Sharp PC-1500 Applications Manual 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=PT<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=PW
570: D=OJ
580:GOTO J/0
600: A=PTCPl.i):A=A
AND DJ
610: JF A• 0BEEP 3,
J
0,30: 0=DJ:GOTO
170
620 :GCURSOR J05:
GPRINT "040B7B
3f'7B0804"
62l:BEEP l,90, 50
622:8EEP
1,70, 50
623: BEEP l, 150, 90
624: BEEP l , 150, J 00
625: BEEP
l,
60, 60
626:BEEP 1,200,200
630:T= TlM E :T=T-
INT T: T• TtJ000
0
640:MM= INT CT/J00>
:SS=T- CMM1'l00>
645:NPS•STR$ MM•":
"•STRS SS
650:WA1T J50:
CURSOR 2J:
PRIN T NPs
660: lf M >MML ET M • M
M:s.,ss :GO To 10
0
6/0: IF M<>MMGOTO ?
00
680: IF S>SSLET S=S
s
700:CLS :CURSOR 0:
IJA lT 0
Do not sale this PDF !!!
710:PR JNT "YOUR Tl
ME:•
720: 1.JAIT 150:
CURSOR 12:
PRINT NPS
/30:CLS : CURSOR
0:
IJA
IT 0
740:PRJ NT ''SHORTES
T
T lME: "
/45:HP$• STR$ M•'': "
+STR$ S
/50!
IJAU
150:
CURSOR 16:
PRINT HPs
760: CLS :WAIT 0 :
CURSOR 0
770:PR JN T ''REPLAY<
Yor-N) "
7B0:CURSOR J3:
INPUT AS
790: lF A$='"Y"GOTO
50
800:
IF
AS= '"N'"GOTO
850
BJ0:GOTO 750
650:CLS :CURSOR 0:
ENO
STATUS J
241 3
- 181 -
PROGRAM NO.
PS- E-3
4