Sharp PC-1500 Anwenderhandbuch Seite 187

PROGRAMMNAME:
{ Programmlisting ]
420: 1F A=Q@BEEP 3; !
8, 30: DW=D1:
GOTO 440
439: 9=87F-D1:x%=A
AND X
44@: GCURSOR CP:
GPRINT X
459: D=DW
46@:GOTO 178
508: 1F PW<@LET PW=
Q:BEEP 3, 18, 38
:GOTO 578
510: IF PW>2181G0TO
668
529: A=PTCPW):A=A
AND D1
538: 1F A=BBEEP 3; !
8, 380: GOTO 578
540: Q=&7F-D1: X=A
AND X
558: GCURSOR CP:
GPRINT X
56@: CP=PW
578:D=D1
588: GOTO 178
628: A=PTCPWO:A=A
AND Di
618: 1F A=@BEEP 3, 1
8, 38:D=D1: GOTO
178
628: GCURSOR 185:
GPRINT "84887B
3F 7Ba8e4"
621:BEEP 1, 98, 58
622: BEEP 1; 78, 5@
623: BEEP 1, 158; 98
624: BEEP 1, 158, 188
625:BEEP 1; 68, 68
626: BEEP 1, 208, 2860
638: T=TIME :T=T-
Itt T: T=TK186O
@
648: MM=INT (€74168>
2 SS=T-CMM*188>
B45: NF$=STR$ MM+":
"+S TRS SS
650: WAIT 158:
CURSOR 21:
PRINT NP$
LABYRINTH
668: 1F M>MMLET M=M
M:S=SS: GOTO 76
4)
B78: 1F M<oMMGOTO 7
BG
688: 1F S>SSLET S=S
S
71@:PRINT "IHRE ZE
IT: "
728:WAIT 158:
CURSOR 12:
PRINT NP$
74@:PRINT "REKORD
ZEIT: "
750: WAIT 158:
CURSOR 16:
PRINT HPS
768:CLS :WAIT 2:
CURSOR 2
770:PRINT "SPIELWI
EDERHOLUNG ¢Y/
ND"
788: CURSOR 24:
INPUT A$
798: 1F Ags="Y"GOTO
52
898: IF AS="N"GOTO
850
818:GOTO 76a
858:CLS :CURSOR @:
END
STATUS |
2422
15)
PROGRAMN-NR.