Sharp PC-1500 Handbuch Seite 163
Vorschau ausblenden
Andere Handbücher für PC-1500:
- Bedienungsanleitung (166 Seiten) ,
- Anwenderhandbuch (222 Seiten)
Werbung
All
and
more
about Sharp
PC-1500
at
http://www.PC-1500.info
PROGRAMM·NR.
PROGRAMMNAME:
TASCHENCOMPUTER-TERMINPLANER
7
P5
-
D
-
25
[
Programml
isting
1
2:
"S": INPUT "KAS
SE
TTENAUSGABE<
Y/
N)? ";
Y$
:
JF
Y$=
"Y
"GOTO
5
4
:
GQTO
2
S:PRINT
U"TERM
IN
";P
C~),
N$<
*>:
CLS :RETURN
8:
"L"
:
INPUT
"KAS
SETTENEINGABEC
Y/N)?
";
Y$.:
l
F
Y$="Y"GOTO
JJ
J0:GO
TO
'B
11
:
INPU
T
»"T ERMIN
";
PC*), NSC*>:
CLS :RETURN
20:
"A"
:
A=T !ME :
G
OSUB 950•
CLS
:
WAi
T
130:
PR
1
NT A$:
WA
!
T
0
50:
INPUT
"
AENOG.=
.1 ,
KN AENDG.
=
2
?
"
; Z$: JF
<2S=
"I
"
)+
(2$="2" )(
>IGOTO 50
60:
IF
2$="2"
RETURN
63:
PRINT
"
/
'
GOSUB 925:A=B*
J0000+C*I00+0+
[/J00:TJ
M
E =A:
GOTO 20
100: A=B*l0000+Cll0
0+0+E
/l
00
105:TJME
=A:GO
TO
2
0
Do not sale this PDF
!!!
J70 :''8 ''
: FOR J=
0
TO
28
:J
F
PCl,0><>
0GO
TO
240
J75:C LS
:
PRJNT
''
/
'
STAR
T":
GOSUB
925
178: IF
U=JGOTO
245
J80:X=BI J0000+Cll0
0+D+E/
100
:
1
F
X
<
T 1
ME
GOTO
175
200:
CLS
:
PRI
NT
"
/
'
ENDE
"
:
GOSUB 925: 1
F
U
=
JGOTO
200
207:Y=B*l0000+C*l
0
0·•·0+E/ 100:
IF
y·
<XGOTO
200
212 :FOR
J
=0TO
25
:
IF
X<PCJ, 0)
GOTO
220
216:
IF
X>P<J,
1
>
GO TO 222
2
JB:
Z=J
:
J=26
:
GO
TO
222
220: IF
Y>P<J,
0>LET
2=J:J =26
222:NEXT
J
225:JF
Z•
I
LET
2=0:
GOTO 175
226:
P(
J,
0)
:
X: P<
J,
1
>=Y•C
LS
: INPUT
"
1
NHAL
T
="
;
N$
( 1
)
:
CLS :
I NPUT "
ALARMZ.E
I
T=" ;
P<
J,
2)
235:
CLS :
I
NPUT "SP
ERREIN=
1, N
1
CH T
SPERIREN=2
"
1 P <1
,
3): .IF
<P<I
,
3)
=I
)
+ <P<
1,
3>
=2>
<>IG'OTO
235
240
: NEXT 1
245:
1F
U=IL
ET
U=0:
GOTO 290
250:H=0:
K=0
255:FOR
J
=0TO
25:
l
F
P<J
,
3
>=
1
GOTO
275
265
:
IF
P<
J
, 3>
=
1
GOTO 275
-
157
-
267:JF
H=0LET
H=P<
J,
0):1(=J+l
270:JF
H>P<
J
,
0)LET
H=P<J, 0): K=J
+I
27S: NE><T
J
277
:
JF
K=0WAIT
150
:
PR
IN
T
" SPEI
CH
ER
UOLL": WA
1
T
0
•
GO
TO 290
2B0:
l
=K-J:GOSUB 90
0: GOTO 170
290:CLS
:RETURN
300:
"C":
WAi
T
0:
CLS
:
I
NPUT "EINTRA
G
STARTDATUM="
;G:GOTO
330
305
:G=0:
H,,,9999
330:CLS : INPUT
"
El
NTRAG
ENODA
TU
M
=
'';
H
350:JF
<G=0>
•(
H=99
99>+<G>H>=
J
GOTO 300
365:A=G*
l 00:GOSUB
950:
LPR
1
NT
··uo
N'';B; "/'';C
366:A=HIJ00:GOSUB
950:LPRJN
T
"
BI
S
„
;
B;
''
/
1
'
;
C;
"
L
ISTE"
370: FOR 1=0 TO 28:
lf.
P<I, 0>"'0
GOTO 410
380:
lf.
G>INT <PU,
0)/J00>GO
TO 41
0,
390:
l
F
H<IN
T
<P<J,
0)/J00> GOTO 4
1
0
400:
GOSUB 990
410:NEX
T
l:
LF
3:
CLS :RETURN
(Fortsetzung
nächste
Seite)
Werbung
