Sharp PC-1500 Anwenderhandbuch Seite 164

450:
47:
498:
580:
20G:
5708
988:
68a:
6ae:
618:
620:
623:
625: If
630:
635:
6490:
649:
660:
665:
666:
667:
668:
[ Programmiisting ]
"D"SG=INT ¢. .
TIME 71805:P=
INT ¢€@71998):
LPRINT. P; "MONA
a= Pk100; sii
GG" /
FOR I= ato 28:
TF G<DINT (PCI
2 8)7188dGOTO 3
QB ;
GOSUB 390
NEXT I:LF 3:
CLS :RETURN
Es ee MD el
STE GESAMTE":
FOR I=8TO 28:
IF PCI; @3=9-
GOTO 3588
:GOSUB 399
NEXT I:LF 3:
CLS :RETURN
"G":G=O:H=O:
INPUT "DATUM, 2
EIT="36. |
A=G/ 188: GOSUB
958:LPRINT "NA
CH"; A$
FOR 1=8T0 28:
IF. GCINT CPC,
@)*128)GOTO 62
3 ae
GATO 632
IF H=@LET H=P<
1, @):K=]
IF H>INT PCI, 2
LET H=INT PCI
+5 BI: K=]
NEXT J
IF H=@GO0TO 649
I=K:GOSUB 992 |.
LF 3:CLS :
RE TURN
"A" ENPUT "SPER
REN=1, NICHT SP
FER. =2?", T
IF €T=1)4+¢€T=2)
€>1GOTO 66a
IF T=tLET Bgs"
SPERREN-": GOTO
668
BS="NICHT-SPER
REN
LPRINT BS; "LIS
Te
670:FOR 1=8T0 28:
IF PCI; @)=8
GOTO 688:
672: 1F PCI, B=8.
GOTO: 688 ©
675: 1F PCI; 3)=T
GOSUB 998 :
688: NEXT. 1: LF gi
CLS + RETURN
700: "Ks INPUT "DAT
- UM, ZE1T="36:
FOR I=@8TO 28:
AIS: 1F G=INT (PCI,
@)*iB@BLET 1=2
6! NEXT 'I>GOSUB
988: GOTO. 725
A2B:NEXT To 3?
225:GOSUB 928:CLS
>RETURN ©
750: "M8: G= @: INPUT. .
"DATUM, ZEIT="3
G:FOR I=@T0 28
SIF G>INT CPCI
23
778: GOTO 782.
PAS: ITF PCI, 3)=2
GOSUB '9288
788: NEXT 1: GOSUB 9
. 28:CLS :RETURN
808: "N": CLEAR :DIM
P(29, 4), N$¢29)
"¥48:GOSUB 92@9:
* END...
838: "2": WAIT B
836: FOR R=2T9 28
837: A=TIME <= GOSUB
"- 958:PRINT: Ags'
838: BS=INKEY$: : IF
ae (B$="B")4¢B$="
» CN 94+ CBS="D" )4¢
B$="F'4+(BS="G
")4+(BS="H" d=]
GOTO 842'...
839: 1F <«B$= HMM CB
$="K"I4+(BS=" A"
I+ (CBS="S" 4B
~="_"3=1G0TO. 84
3 ae
8468: GOTO 843
842:GOQSUB BS :
— 158 —
»>9>*10@)G0TO 7
(Fortsetzung nachste Seite)
PROGRAMN-NR.
P5—-D—-25°°
B43: 1F (PCR, 4)=1)+
CP CR; @F=8)=1
GOTO 872°—
845: U=P(R; B3-PCR, 2
34188: W=CU-INT
Ud*100: LF INT
WOSSLET UsSPCR,
B)+1-8,6 |.
847: 1F INT ¢TIME *
-, (BBC INT £UX1B8
8)GOTO 872
S55¢P CR, 45=17M=
TIME +08. 081: N=¢
M-INT M)*188 :
8539: 1F INT NOSSLET
.M=M+1-8.6 :
861: 1F TIME | oMmGorTo
B72 -
865: B$= INKEYS-
— BS<>CHRS ae
ee 2: GOTO 86
870: i- =R: GOSUB 9398:
, ake oS
872:NEXT R: GOTO 83
6
990: PC€I,a@=8:Pc], 1
2=B:PC], 2)=9:P
C1, 3)=8:PCI], 4)
=O:N$CT)a"":
RETURN ©. :-
328:CLS :WAIT: 15@:
PRINT "LOSCHUN
G-ENDE": WAIT @
(2) GRETURN' ;,
925: CURSOR @: INPUT
'B:GOTO 927: -:
976:U=1:GOTQ 349g
927: 1F B>12GOTO 92
5
928: 1F B=@GOTO 925
9293: CURSOR 5: INPUT
C:GOTQ 931
393@:GOTO 929
931: 1F C=BGOTO 929
932: 1F (B=4)+¢(B=6)
+(B=9)4+¢B=11)=
1GO0TO 338
933: 1F B=?GOTO 936
3934: 1F C>31G0TO 92
is)
935: G0TO 94B
3936: 1F C>29G0TO 93?
3
937: GOTO 949