Sharp PC-1500 - Page 187

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
TI TL E
LABYRINTH ESCAPE
[ Program List I
500: IF PW<0LET PW =
0: BEEP 3, 10, 30
:GOTO 570
510:
IF PW>J0JGOTO
600
520:A=P T<PW):A=A
AND DJ
530: IF A=0BEEP 3, J
0,30 :GOTO 570
540:A= &7F -O J:X=A
ANO X
550:GCURSOR CP:
GPRINT X
560:CP =P W
570: D=OJ
580:GOTO J/0
60 0: A=PTCPl.i):A=A
AND DJ
610: JF A• 0BEEP 3, J
0,30: 0=DJ:G OT O
170
62 0 :GCUR SO R J05:
GPRINT " 040B7B
3f'7B0804"
62l:BEEP l,90, 50
622:8 EEP 1,70, 50
623: BEEP l, 150, 90
624:
BEEP l, 15 0, J 00
625:
BEEP l, 60, 60
626:BEEP 1,2 00,200
630:T= Tl ME :T=T-
INT T: T• T tJ000
0
640:MM= INT CT/J00>
:SS=T-
CMM1'l00>
645:NPS•STR$ MM•":
"•STRS SS
650:WA1T J50:
CURSOR 2J:
PRIN T NP s
660:
lf M >M ML ET M• M
M:s
.,ss :GO To 10
0
6/0: IF M<>MMGOTO ?
00
680:
IF S>SSLET S=S
s
700:C LS :CU RS OR 0:
IJA lT 0
Do not sale this PDF !!!
710:PR JNT "Y OUR Tl
ME:•
720:
1.JAIT 150:
CU RSOR 12:
PRINT NP S
/30:CLS :
CU R SOR 0:
IJA IT 0
740:PRJ NT '' SHORTES
T T lME : "
/45:HP $• STR$ M•'': "
+STR$ S
/50 ! IJAU 150:
CU RSOR 16:
PRINT HP s
760:
CLS :WAIT 0:
CUR SOR 0
770:PR JN T ''REPLAY<
Yor-N) "
7B 0:CURS OR J 3:
INP UT AS
790: lF A$ = '"Y"GOTO
50
800:
IF AS= '"N'"GOTO
850
BJ0:GO TO 750
650:CLS :CUR SOR 0:
ENO
STATUS J
241 3
- 181 -
PROGRAM NO.
PS - E-3
4