ZX Computings - OpenLibra

IKING
>S TO THi 350
>TCARD Ol
OF
840 IF A = 5 THEN LET C$ = "MONKEY ON
A STICK"
IF A - 6 THEN LET C$ = "PACK OF FISH
AND CHIPS"
Tourist trap
860 IF A - 7 THEN LET C$ = "RINGSIDE SEAT
AT OXFORD CIRCUS"
900 PRINT B$,"WITH A"
910 PRINT C$
920 PRINT
930 PRINT "HOW DO YOU REACT?"
940 PRINT
9 50 PRINT"SPIT(1) ","SWEAR(2) ","SCREAM
FOR HELP(3)",,"POKE AT IT WITH A
STICK(4 ) ","SAY YOU DONT SPEAK ENGLISh
(5)","SAY YOU ARE A STRANGER IN TOWN
{• ) nos pace BOOK A
FLIGHT TO PARIS(7 ) ,
"HAIL A CAD(8)", , ,
"BUY A RIOT SHIELD
1000
1005
1010
1020
1030
1040
1050
1060
(9)"tf"POINT THE OTHER WAY(10)?"
INPUT A
IF A > 10 OR A < 1 THEN GOTO 1000
LET B - RND(IO)
GOSUB 1610
IF RND(5) - 1 OR A < 8 THEN LET A = B
IF A - B THEN PRINT "YOU FOOLED
THE ";B$
IF A'= B THEN LET S « S + RND(iO)
IF A = B THEN PRINT "AND NOW HAVE
iS
IF A = B THEN LET W = W + RND(4)
IF W > 10 THEN LET W = 10
PRINT
IF NOT A = B THEN PRINT "THE ";B$;
" OUTWITTED","YOU"
IF NOT A = B THEN LET S = S • RND(5)
IF W < 10 THEN PRINT "YOU ARE CLOSE
TO",FOOTPATH CHR$(128);CHR${156 +
CHR$(128)
GOTO 160
LET A = RND(4)
GOSUB -1240* (A = 1) - 1 340*(A = 2)
- 138 0*(A = 3) - 1510*(A « 4)
GOTO 160
PRINT ,"YOUVE FALLEN DOWN"
LET B » RND(4)
IF B = 1 THEN PRINT " IN FRONT OF
BIG BEN"
IF B " 2 THEN PRINT " IN THE STRAND'
IF B = 3 THEN PRINT "IN FRONT OF THE
TRAFFIC","IN PICCADILLY CIRCUS"
IF B ~ 4 THEN PRINT RND(99);" STEPS
TO THE THAMES"
LET W — W - 1
LET S = S - RND(2)
RETURN
PRINT "f i vespaceYOU ARE CAUGHT RIDING
ON A","fivespaceNO. ";RND(99);" BUS
WITHOUT A TICKET"
LET W = W - 1 I
LET S = S - RND(2)
RETURN
PRINT ,"YOU GAIN A"
LET D = RND(6)
SUMMER 1» ZX COMPUTING SUMMER 1982 41