ZX Computings - OpenLibra

270
280
290
300
310
320
IF
IF
IF
IF
IF
IF
FI=2?5
R =54.0
R =37 1
R =239
R =4-52
fl-161
330 GOTO 100
1000 PRINT RT
E N T U R E"
1010 PRINT
1012 PRINT
END "
1014 PRINT
1020 PRINT
130 PRINT
THEN
THEN
THEN
THEN
THEN
THEN
0 , 0 , '
3TRRT
GOTO
GOTO
GOTO
GOTO
GOTO
GOTO
2 (9)
Z ( 10)
Z t 11)
Z < 12)
Z < 13)
7301
R D U
1575 GOSUB 9050
1580 PRINT "YOU MRY BE OFFERED U
*RIOUS"
1585 GOSUB 9050
1590 PRINT "OBJECTS BUT YOU MRY
ONLY CRRRY"
1595 GOSUB 9050
1600 PRINT "ONE RT R TIME RND MU
ST DECIDE"
1605 GOSUB 9050
1610 PRINT "UHICH UILL BE MOST U
SEFUL"
1615 GOSUS 9050
1620 PRINT "RERDY° PRESS RNY f
EY TO STRRT"
1625 PRUSE 9999
16K Games
1630
2000
2005
SEE
PICK
2010
20 12
2015
2020
T . 1
2025
2030
2035
RETURN
CLS
PRINT "ON YOUR
TWO "."KEYS DO
ONE UP?"
INFUT Y $
IF Y$="N" THEN
204-0 CLS
2045 PRINT
CRRRYIMG"
2050
2055
2060
2065
2500
2505
LRNK
RRRY
2510
25 15
2520
2525
2530
2535
RYING
254.0
2545
2550
2555
3000
3005
RMOND
P ICK"
30 10
3015
4050
T"
4055
4 206
4 203
1210
'REMEMBER
FOR 1=1 TO 50
NEXT I
CLS
GOTO 100
CL3
PRINT "ON
OF WOOD" . DO
IT° "
INPUT Y$
IF Y$="N" THEN
IF YJ="N" THEN
LEFT YOU
YOU URNT
CRf i
TO
CLS
IF Y $ = "N" THEN GOTO
PR INT UHICH KEY DO
OR 2?"
INPUT Y
LET R $ = "KEY
IF Y =2 THEN
100
YOU URN
ONE
LET Pl="KEY TUC
LET P$="UOOD"
CLS
PR INT
R$
FOR 1=1 TO 50
NEXT I
CLS
GOTO 100
CLS
PRINT "RT YOUR
,"NECKLACE DO
/'IT UP"
YOU RRE NO!,
RIGHT IS R
YOU URNT TO P
C
CLS
GOTO 100
REMEMBER YOU RRE CR»
FEET IS R D1
YOU URNT TO
INPUT Y $
IF Y $ = "N" THEN CLS
3020 IF Y$="N" THEN GOTO 100
3025 PRINT "DONT
1155 LET P=PEEK (16396)+256*PEEK
FORGET:- YOU HP
UE PICKED' "UP R
T16397)
NECKLRCE"
3030 LET R$="NECKLRCE"
1160 POKE PTR.160
3035 FOR 1=1 TO 50
1165 RETURN
304.0 NEXT I
1500 GOSUB 9G50
3045 CLS
1505 PRINT *' YOU RRE CFIPT IUE IN 3050 GOTO 100
R GIANTS"
3500 CLS
1510 GOSUB 9050
3505 PRINT "DO YOU URNT
1515 PRINT "CRSTLE RND THE ONLY
TO PICK
UP fi PIECE "."OF ROPE?"
WRY YOU CRN"
1520 GOSUB 9050
3510 INPUT Y$
1525 PRINT "E5CRPE IS TO TRRUEL
3515 IF Y*«"N" THEN CLS
3520 IF Y $ ="N" THEN GOTO 100
THROUGH "
1530 GOSUB 9050
3525 PRINT "THE ROPE IS YOURS."
1535 PRINT "R NETWORK OF UNDERGR
3530 LET R$="ROPE"
OUND CRUE5"
35 35 FOR 1 = 1 TO 3©
154-0 GOSUB 9050
3540 NEXT I
1545 PRINT "BUT BEURRE"
3545 CLS
1550 GOSUB 9050
3550 GOTO 10©
4000 CLS
1555 GOSUB 9050
4010 PRINT "YOU HRUE TO CLIMB UP
1560 PRINT "YOU UILL COME UP RGR R 3MRLL" , "CLIFF . HR'JE YOU GOT R
INST "
ROPE?"
1565 GOSUB 9050
40L« INPUT Y$
4UAA IF Y$ = "Y '
1570 PRINT "PERILS RND DECISIONS
RND R$="ROPE" THE
N OOTO 4.200
4021 IF Y$="N" THEN GOTO 4023
4»fi& PRINT "OH NO YOU HRUENT"
4030 PRINT "THEN YOU MUST BORROW
ONE OF ","OURS ONE IS SRFE RND
ONE IS NOT' "CHOOSE YOUR ROPE:-1
OR 2"
4032 LET H$ ="2"
4035 IF RND < .5 THEN LET H$="l"
4040 INPUT 1$
4045 IF I$=H$ THEN GOTO 4200
PRINT "YOU CHOSE URONG SPLR
GOTO 9800
PRINT "OK.YOU MRY CONTINUE
FOR 1=1 TO 50
NEXT I
ZX COMPUTING SUMMER 1982 97