Sharp PC-1500 Anwenderhandbuch Seite 163

Cf
2:
2b": INPUT
1Q:
1k;
28:
5a:
6@:
63:
198:
1@5:
[ Programmlisting ]
"S": INPUT "KAS
SETTENAUSGABE
YAN? "3 YS: IF
Y$="¥"GOTO 5
:GOTO 2
>PRINT #"TERMIN
"SPOCK, NSOK):
CLS : RETURN
"KAS
SE TTENE INGABE ¢
Y/N? "ZV YSIIF
y$="¥"GOTO 11
GOTO 8
INPUT #""TERMIN
He POK), NSCK):
CLS :RETURN
"Av": A=TIME :
GOSUB 958:CLS
:WAIT 138:
PRINT AS: WAIT
2)
INPUT "@ENDG.=
1, KN AENDG. =2
2? "s2$:1F
(2$=
My
ye CO ZH="2")6
>1G0TO 58
IF 2$="2"
RETURN
PRINT " /
; : ;
GOSUB 925; A=Bx
10900+CX*198+D+
£4108: TIME =A:
GOTO 28
Q=BkK18988+CK19
Q9+D+E7109
TIME =A:GOTO 2
3)
17:
175:
178:
188:
208:
20?:
212:
216:
218:
270:
222:
2275:
226:
235:
248:
245:
258:
255;
265:
CLS :PRINT "
ra 3 4
START":
GOSUB 325
IF U=1G0TO 245
%=BkK1AGBB+CK1
Q@+D0+E71@@:1F X
€TIME GOTO {75
CLS :PRINT "
ra ; :
ENDE":
GOSUB 925:1F U
=1G0TO 280
Y=B*k18888+C*18
Q@+D+E/10@: IF Y
<XGOTO 209
FOR J=@TO 25:
IF X<PCJ; @>
GOTO 228
IF XoPCJ; 1)
GOTO 222
2=1: J=26: GOTO
222
IF Y>P¢J; @OLET
Z=1: J=26
NEXT J
IF Z=\1LET 2=8:
GOTO 175
P¢1, @)=x%: PCI; 1
>=Y¥: CLS |: INPUT
" TNHALT="5N$ CI
d:CLS : INPUT "
ALARMZEIT="3;P¢
I; 2)
CLS : INPUT "SP
ERREN=1; NICHT
SPERREN=2", PC]
saree CPCls Ss)
=1])+¢PC1, 35=2)
<€>160TO 235
NEXT 1]
IF U=1LET U=@:
GOTO 296
H=B8: K=8
FOR J=@TO 25:
IF PCJ, 3)=1
GOTO 275
IF PCJ; 39=1
GOTO 275
== Loe
267:
27D:
275:
277:
280:
2928:
380:
365:
338:
358:
365:
366:
378:
388:
39B:
403:
4i@:
IF H=@8LET H=P¢
J; Bo: kK=J+1
IF HOPCJ, BOLET
H=P¢J,; 8): K=J+1
NEXT J
IF K=8WAIT 158
:PRINT "SPEICH
ER VOLL": WAIT
@:GOTO 298
I=K-]:GOSUB 38
@:GOTO 178
CLS : RETURN
"C'sWAIT @:CLS
> INPUT "EINTRA
G STARTDATUM="
3G: GOTO 338
G=8:H=9999
CLS : INPUT "EI
NTRAG ENDDATUN
ed
IF (€G=@6)+¢CH=393
99)+(G>H)=1
GOTO 388
A=6* 188: GOSUB
958: LPRINT "VO
NUSsBs'7"5C
A=H* 192: GOSUB
958:LPRINT "BI
Si sae teh Cp ok
ISTE"
FOR J]=06TO 28:
IF PCI, @=8
GOTO 410
IF GSINT CPCI;
@)71@8@>GOTO 41
Q
IF H<INT CPCI;
B)71B@2GOTO 43
4)
GOSUB 398
NEXT I:LF 3:
CLS «RETURN
(Fortsetzung nachste Seite)
PROGRAMMN-NR.
P5—D—25 7