Sharp PC-1500 Handbuch Seite 189

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAMMNAME: LABYRINTH
[ Programm! isting)
420: JF A=0BEEP 3, 1
0, 30: OW=OI:
GOTO 440
430:A=&7F -O J:X=A
ANO X
440:GCURSOR CP:
GPRINT X
450:0=0W
460:GOTO 170
500:JF PW<0LET PW=
0!BEEP 3, 10,30
: GOTO 570
510: IF PW>J01GOTO
600
520:A=PTCPW>:A=A
ANO 0 . 1
530: 1
F
A=0 BEEP 3
1
1
0,30:GOTO 570
540 : A=& 7F-Ol:X=A
ANO X
550:GCURSOR CP :
GPRJNT X
560:CP=PW
570 : 0=0!
580: G OTO J 70
600: A =PT<PW ) :A=A
ANO OJ
51 0 :
IF
A=0BEEP 3, 1
0, 30 : 0 =01: GOTO
170
620 :GCURSOR 105:
GPRINT "040878
3F?B0904"
62 1 : BEEP J, 90, 50
622:BEEP J, 70,50
623: BEEP J, 1 50, 90
524: BEEP J, 150, 100
625:BEEP J, 60,60
626!BEEP J, 200,200
630:T = TIM~
: T=T-
ll' T T:T =Ttl000
0
640:nn=JNT Cf/ 100 >
:SS-T-CMM1' 100)
645: NFS=STRS nn+ " :
"+STRS SS
650:WAJT J50:
CURSOR 21:
PRINT NPS
Do not sale this PDF !!!
660: lF M>MMLET M =M
n:S=SS:GOTO 70
0
670: IF M <>MMGOTO 7
00
600:
IF
S>SSLET S=S
s
700:CLS :CURSOR 0:
WAi
T 0
710:PRINT " IHRE ZE
1
T: "
720 :WAI T 150:
CURSOR 12:
PRINT NPS
?30:CLS :CURSOR 0:
WAi
T 0
?40 :PRINT ''REKORD
ZE J
T:"
?45:HP$ =STRS M +" : ''
+STR$ S
?50:WA 1 T 150:
CURSOR
16:
PRI NT HPS
?60:CLS :WAIT 0 :
CURSOR 0
)70:PRI NT ''SP IE LWJ
EOERHOLUNG ( Y/
N>"
780: CURSOR 24 :
INPUT AS
790:JF AS=''Y'' GO TO
50
800:
IF
AS="N"GOTO
850
B10:GOTO ?60
850:CLS :CURSOR
0 :
END
ST ATUS 1
2422
- 181 -
PROGRAMM·NR.
PS -E-3
4