1 DIM E(30),L(30),N(30),P(30)
4 A=1
7 FOR B=1 TO 30
10 E(B)=B
13 NEXT B
16 CALL CHAR(35,"00001866816618")
22 ST=20
25 CALL CHAR(36,"001C141038103E32")
28 RESTORE 1051
31 FOR F=1 TO 30
34 READ R
37 N(F)=R
40 NEXT F
43 S=0
46 T=0
49 U=0
52 CALL COLOR(13,9,8)
55 GOSUB 1516
58 FOR F=1 TO 30
61 P(F)=1
64 NEXT F
67 CALL CHAR(73,"FF")
70 CALL SCREEN(8)
73 CALL COLOR(16,6,8)
76 CALL CHAR(75,"00000000000000FF")
79 W=1
82 CALL COLOR(7,14,1)
85 CALL CHAR(76,"8040201008040201")
88 CALL CHAR(77,"010204081020408")
91 CALL CHAR(79,"8080808080808080")
94 CALL CHAR(78,"010101010101010101")
97 CALL CLEAR
100 ST=ST-1
103 FO=0
106 IF ST<0 THEN 1354
109 IF ST>20 THEN 112 ELSE 115
112 ST=19
115 CALL CHAR(78,"0101010101010101010")
118 CALL COLOR(7,14,1)
121 RESTORE 1471
124 FOR B=1 TO A
127 READ A$
130 NEXT B
133 CALL SCREEN(8)
136 RESTORE 1483
139 FOR F=1 TO A
142 READ Z
145 NEXT F
148 ON Z GOTO 1375,1375,154,154
151 CALL CHAR(91,"00FF")
154 CALL CHAR(88,"0")
157 RANDOMIZE
160 CO=INT((14-3+1)*RND)+3
163 CALL CHAR(80,"00000000000000FF")
166 CALL CHAR(81,"FF")
169 CALL CHAR(82,"0101010101010101010101")
172 CALL CHAR(83,"808080808080808")
175 CALL COLOR(7,2,8)
178 CALL CHAR(84,"18183C5A5A3C2466")
181 CALL CHAR(128,"0000FF")
184 CALL COLOR(6,2,CO)
187 CALL COLOR(8,2,CO)
190 PRINT " capital    score   bullets"
193 PRINT "  ";"$";T;"    ";S;"%     ";U
196 CALL HCHAR(24,4,35,26)
199 PRINT: :
202 PRINT:"  LXXXXXXXXM        n    "
205 PRINT "  XLXXXXXXMX              "
208 IF Z=4 THEN 214
211 GOTO 1459
214 PRINT "  XXLKKKKMXX      PPPPP "
217 PRINT "  XXXOXXNXXX     R     S"
220 PRINT "  XXXOXXNXXX     R     S"
223 PRINT "  XXXOXXNXXX    wR  T  Se"
226 PRINT "  XXXOXXNXXX     R     S"
229 IF Z=4 THEN 235
232 GOTO 1465
235 PRINT "  XXMIIIILXX     R     S"
238 PRINT "  XMXXXXXXLX      QQQQQ"
241 PRINT "  MXXXXXXXXL        s"
244 IF A<>16 THEN 250
247 CALL HCHAR(22,9,32)
250 CALL COLOR(13,9,8)
253 CALL CHAR(64,"3C7EFFFFFFFFFFFFF")
256 CALL CHAR(65,"FFFFFFFFFFFFFFFFF")
259 CALL CHAR(66,"FFFE808080808080")
262 CALL CHAR(69,"FF7F01010101010101")
265 IF A<>29 THEN 271
268 CALL HCHAR(17,10,32)
271 CALL COLOR(5,2,CO)
274 RESTORE 1486
277 FOR C=1 TO A
280 READ D
283 NEXT C
286 IF D<>0 THEN 289 ELSE 304
289 CALL HCHAR(20,6,64)
292 CALL HCHAR(21,6,65)
295 CALL HCHAR(22,6,66)
298 CALL HCHAR(21,6,65)
301 CALL HCHAR(19,20,32)
304 RESTORE 1489
307 FOR C=1 TO A
310 READ D
313 NEXT C
316 IF D<>0 THEN 319 ELSE 331
319 CALL HCHAR(20,13,64)
322 CALL HCHAR(19,26,32)
325 CALL HCHAR(21,13,65)
328 CALL HCHAR(22,13,69)
331 RESTORE 1492
334 FOR C=1 TO A
337 READ D
340 NEXT C
343 IF D<>0 THEN 346 ELSE 376
346 CALL CHAR(70,"000000030707070707")
349 CALL HCHAR(16,23,32)
352 IF Z=3 THEN 376
355 CALL CHAR(71,"000000C0E0E0E0E0E0")
358 CALL CHAR(67,"0707070707070707")
361 CALL CHAR(68,"E0E0E0E0E0E0E0E0E0E0")
364 CALL HCHAR(19,9,70)
367 CALL HCHAR(19,10,71)
370 CALL HCHAR(20,9,67)
373 CALL HCHAR(20,10,68)
376 CALL CHAR(85,"0000186681661800")
379 RESTORE 1510
382 FOR C=1 TO A
385 READ D
388 NEXT C
391 IF D<>0 THEN 394 ELSE 397
394 CALL HCHAR(22,23,32)
397 CALL CHAR(158,"00000000FFFF")
400 CALL CHAR(96,"0000FF")
403 CALL COLOR(16,5,8)
406 PRINT:" energy"
409 CALL HCHAR(23,11,158,ST)
412 PRINT:TAB(2);A$
415 CALL HCHAR(24,4,96,LEN(A$))
418 PRINT:" you can see";
421 H=0
424 RESTORE 1495-12530
427 FOR G=1 TO 30
430 READ C$
433 IF E(G)<>A THEN 451
436 IF H=4 THEN 451
438 IF C$="" THEN 442
439 PRINT ":";C$;
442 H=H+1
445 IF H<>2 THEN 451
448 PRINT "";
451 NEXT G
454 IF N(A)=0 THEN 460
457 PRINT " :food";
460 REM    
463 IF W=0 THEN 496
466 RESTORE 1513
469 RANDOMIZE
472 IF FG=1 THEN 496
475 FOR K=3 TO INT((9-3+1)*RND)+3
478 READ GU$
481 FG=0
484 NEXT K
487 IF K>5 THEN 496
490 PRINT;" :";GU$
493 FO=1
496 PRINT:
499 CALL HCHAR(24,4,35,26)
502 PRINT:
505 INPUT " >":B$
506 IF B$="eatfoo" THEN 1333
508 IF SEG$(B$,1,3)="loo" THEN 97
511 IF B$="opetap" THEN 1576
514 IF B$<>"n" THEN 535
517 RESTORE 1492
520 FOR C=1 TO A
523 READ D
526 NEXT C
529 IF D=0 THEN 631
532 IF D=50 THEN 625 ELSE 598
535 IF B$<>"s" THEN 556
538 RESTORE 1510
541 FOR C=1 TO A
544 READ D
547 NEXT C
550 IF D=0 THEN 631
553 IF D=50 THEN 625 ELSE 598
556 IF B$<>"w" THEN 577
559 RESTORE 1486
562 FOR C=1 TO A
565 READ D
568 NEXT C
571 IF D=0 THEN 631
574 IF D=50 THEN 625 ELSE 598
577 IF B$<>"e" THEN 637
580 RESTORE 1489
583 FOR C=1 TO A
586 READ D
589 NEXT C
592 IF D=0 THEN 631
595 IF D=50 THEN 625 ELSE 598
598 A=A+D
601 IF FO=1 THEN 1552
604 CALL CLEAR
607 W=1
610 IF P(A)=0 THEN 97
613 S=S+2
616 P(A)=0
619 FO=0
622 GOTO 97
625 PRINT " exit locked"
628 GOTO 496
631 PRINT " no exit":
634 GOTO 496
637 RESTORE 1603
640 M=0
643 AS=0
646 Q=0
649 FOR I=1 TO 3
652 READ C$
655 C$=SEG$(C$,1,3)
658 IF SEG$(B$,1,3)=C$ THEN 661 ELSE 664
661 M=I
664 NEXT I
667 IF M<>0 THEN 700
670 RESTORE 1609
673 FOR Q=1 TO 3
676 READ C$
679 IF SEG$(C$,1,3)<>SEG$(B$,1,3)THEN 685
682 AS=Q
685 NEXT Q
688 IF AS=0 THEN 694
691 ON AS GOTO 1267,1273,985
694 PRINT " not understood"
697 GOTO 496
700 RESTORE 1495-12530
703 D$=SEG$(B$,4,3)
706 FOR J=1 TO 39
709 READ C$
712 C$=SEG$(C$,1,3)
715 IF C$=D$ THEN 724
718 NEXT J
721 GOTO 694
724 O=J
727 ON M GOTO 760,835,853
730 GOTO 496
733 PRINT:" ok":
736 GOTO 496
739 REM  
742 PRINT:" it's not here"
745 GOTO 496
748 PRINT:" you haven't got it":
751 GOTO 496
754 PRINT:" you can't":
757 GOTO 496
760 IF C$="mon" THEN 811
763 IF C$="amm" THEN 769
766 IF C$<>"bul" THEN 793
769 IF A=4 THEN 775
772 IF A<>19 THEN 742
775 IF E(O)<>A THEN 742
778 IF BA>2 THEN 799
781 BA=BA+1
784 BI=INT((4-2+1)*RND)+2
787 U=U+BI
790 GOTO 733
793 IF E(O)<>A THEN 742
796 IF A=29 THEN 754
799 E(O)=0
800 B=0
802 S=S+1
805 IF A=28 THEN 1504
808 GOTO 733
811 IF A=5 THEN 820
814 IF A=17 THEN 820
817 IF A<>25 THEN 742
820 IF E(A)=0 THEN 742
823 CI=INT((500-100+1)*RND)+100
826 T=T+CI
829 E(A)=0
832 GOTO 733
835 IF E(O)<>0 THEN 748
838 IF C$<>"mon" THEN 844
841 T=0
844 IF H=4 THEN 754
847 S=S-1
850 GOTO 733
853 IF A=29 THEN 754
856 IF O>20 THEN 754
859 ON O GOTO 883,754,976,754,754,1138,754,754,1186,754,943,754,1054,979,862,982,754,754,754,754
862 IF E(O)<>0 THEN 748
865 IF A<>16 THEN 754
868 PRINT:" ok":
871 A=17
874 GOSUB 1042
877 Y=Y-2
880 GOTO 97
883 IF E(O)<>0 THEN 748
886 IF A=8 THEN 898
889 PRINT:" everything looks big":
895 GOTO 496
898 IF XB=4 THEN 904
901 IF XB<>0 THEN 907
904 XB=0
907 XB=XB+1
910 PRINT:"  you see the":
913 ON XB GOTO 916,922,928,934
916 PRINT "  tower of london":
919 GOTO 937
922 PRINT "  casino":
925 GOTO 937
928 PRINT "  treasury":
931 GOTO 937
934 PRINT "  word nelson on his column":
937 GOTO 496
940 IF E(11)<>0 THEN 748
943 IF E(O)<>0 THEN 748
946 IF E(26)=0 THEN 952
949 IF E(10)<>0 THEN 970
952 CALL CLEAR
955 PRINT:TAB(11);"b a n g": : : : : : : : : :
958 INPUT "    play again y/n >":B$
961 IF B$="y" THEN 1
964 IF B$="n" THEN 967 ELSE 958
967 END
970 PRINT:" the match flares":
973 IF A=30 THEN 1033 ELSE 496
976 IF E(3)=0 THEN 997 ELSE 754
979 IF E(14)=0 THEN 997 ELSE 754
982 IF E(16)=0 THEN 997 ELSE 754
985 IF SEG$(B$,4,10)="master key" THEN 997
991 IF SEG$(B$,4,10)="queens key" THEN 997
994 IF SEG$(B$,4,6)="nelson" THEN 997 ELSE 733
997 RESTORE 1546
1000 FOR F=1 TO A
1003 READ KE$
1006 NEXT F
1009 IF SEG$(B$,4,3)<>SEG$(KE$,1,3)THEN 754
1012 RESTORE 1549
1015 FOR F=1 TO A
1018 READ DO
1021 NEXT F
1024 IF DO=0 THEN 754
1027 A=DO
1030 GOTO 97
1033 REM  
1036 PRINT:" on the wall is written      master key"
1039 GOTO 496
1042 FOR F=1 TO 800
1045 NEXT F
1048 RETURN
1051 DATA 1,0,1,1,0,1,1,1,1,1,1,1,1,1,0,1,0,1,0,0,1,0,0,1,0,0,0,1,0,1
1054 IF A<>7 THEN 754
1057 IF E(13)<>0 THEN 754
1060 CALL CLEAR
1063 PRINT "   $";T
1066 PRINT TAB(9);"c a s i n o": :
1069 PRINT TAB(8);"number  match": :
1072 PRINT "  the odds equal the number            choose             a number between  1 and 6": :
1075 PRINT TAB(10);"7 to exit": :
1078 INPUT "             ":NU
1081 IF NU>6 THEN 97
1084 PRINT:
1087 INPUT "place  bet $":BE
1090 IF BE>T THEN 754
1093 RESTORE 1132
1096 FOR F=1 TO INT((21-1+1)*RND)+1
1099 READ OD
1102 NEXT F
1105 IF OD<>NU THEN 1123
1108 WW=NU*BE
1111 T=T+WW
1114 PRINT: :" win $";WW
1117 GOSUB 1042
1120 GOTO 1054
1123 T=T-BE
1126 PRINT: :" lost $";BE
1129 GOTO 1117
1132 DATA 1,2,3,4,5,1,2,3,4,5,1,2,6,3,4,1,2,3,1,2,1
1135 GOTO 97
1138 IF A<>22 THEN 754
1141 IF E(O)<>0 THEN 748
1144 PRINT:" the computer  hums":
1147 GOSUB 1042
1150 CALL CLEAR
1153 PRINT TAB(8);"congratulations": : : :
1156 PRINT: : : :"your mission is to steal thecrown jewels."
1159 PRINT "on nelsons column is the keyto the vault."
1162 PRINT "go sightseeing in whitehall."
1165 FOR F=1 TO 2000
1168 NEXT F
1171 CALL CLEAR
1174 GOTO 97
1177 IF E(9)<>0 THEN 754
1180 IF U<0 THEN 754
1183 IF YU=10 THEN 32767
1186 IF E(O)<>0 THEN 754
1189 IF U<1 THEN 754
1192 U=U-1
1195 IF K>6 THEN 733
1198 IF XG<>0 THEN 1210
1201 XG=0
1204 RANDOMIZE
1207 GT=INT((5-1+1)*RND)+1
1210 XG=XG+1
1213 IF XG=GT THEN 1246
1216 GH=INT((5-1+1)*RND)+1
1219 IF GH<>2 THEN 1237
1222 PRINT:" you've been arrested"
1225 GOSUB 1042
1228 XG=0
1231 A=29
1234 GOTO 97
1237 PRINT:" missed"
1240 ST=ST-1
1243 GOTO 496
1246 PRINT:" he dies"
1249 W=0
1252 XG=0
1255 FG=0
1258 FO=0
1261 K=7
1264 GOTO 496
1267 ST=ST+2
1270 GOTO 733
1273 IF K>5 THEN 1327
1276 GT=INT((T-1+1)*RND)+1
1279 PRINT: :
1282 INPUT " what are you worth $":BR
1285 IF BR>T THEN 1321
1288 IF BR>GT THEN 1300
1291 GOTO 1222
1294 A=30
1297 GOTO 97
1300 T=T-BR
1303 PRINT " accepted": :
1306 W=0
1309 K=10
1312 IF A<>29 THEN 496
1315 A=11
1318 GOTO 496
1321 PRINT " impossible":
1324 GOTO 1222
1327 PRINT: :" theres no one here"
1330 GOTO 496
1333 IF N(A)<>0 THEN 1342
1336 PRINT:" no food here": :
1339 GOTO 496
1342 N(A)=0
1345 RANDOMIZE
1348 ST=ST+INT((5+1+1)*RND)+1
1351 GOTO 733
1354 PRINT "  you've starved to death "
1357 PRINT:
1360 INPUT "      play again y n ":K$
1363 IF K$="y" THEN 1
1366 IF K$="n" THEN 1372
1369 GOTO 1360
1372 END
1375 CALL CHAR(88,"FFFFFFFFFFFFFFFF")
1378 CALL CHAR(78,"FFFFFFFFFFFFFFFF")
1381 IF Z=2 THEN 1393
1384 CALL COLOR(6,4,4)
1387 CALL COLOR(8,6,6)
1390 GOTO 1399
1393 CALL COLOR(8,6,6)
1396 CALL COLOR(6,15,15)
1399 PRINT " capital    score   bullets"
1402 PRINT "  ";"$";T;"     ";S;"%     ";U
1405 CALL HCHAR(24,4,35,26)
1408 PRINT: : : : : : : : : : :
1411 FOR F=1 TO 3
1414 CALL HCHAR(F+13,10,88,11)
1417 NEXT F
1420 FOR F=1 TO 6
1423 CALL HCHAR(17+F,10,78,11)
1426 NEXT F
1429 CALL COLOR(15,13,4)
1432 CALL HCHAR(17,10,149,11)
1435 IF Z=2 THEN 1441
1438 GOTO 397
1441 CALL CHAR(80,"1A1A3E3838181818")
1444 CALL CHAR(81,"7E7E3C3C3C3C7E7E")
1447 CALL COLOR(7,10,15)
1450 CALL HCHAR(19,15,80,1)
1453 CALL VCHAR(20,15,81,4)
1456 GOTO 397
1459 PRINT "  XXLXXXXMXX      PPPPP"
1462 GOTO 217
1465 PRINT "  XXMXXXXLXX     R     S"
1468 GOTO 238
1471 DATA trafalgar sq,hampstead heath,fields,heath,park
1474 DATA leicester sq,mayfair,whitehall,strand,outside treasury,river bank,,foyer
1477 DATA security,stores,guardroom,office,gallery,armoury,gallery,vault,computer room
1480 DATA bridge,reception,dark room,security,guard room,vault,dungeon,dark room
1483 DATA 2,1,1,1,1,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
1486 DATA 5,1,-1,1,-3,1,0,0,-8,50,0,20,0,1,0,0,2,1,0,-2,-3,-1,-14,-1,5,50,-3,0,0,0
1489 DATA 8,0,1,-1,-1,-5,-1,-7,14,0,0,19,50,0,-1,-3,-1,0,-1,-3,1,0,1,6,50,-1,0,50,0,-7
1492 DATA 1,1,1,-1,-2,-3,-4,-7,-5,-2,-1,-1,1,50,0,-1,1,2,0,0,-1,0,0,6,-1,1,50,0,0,0
1495 DATA binoculars,,black key,bullets,money,ticartridge,,,revolver,petrol,matches
1498 DATA,membership card,silver key,ladder,yale key,money,,ammunition,,you see the passwords queens key
1501 DATA computer,,,money,gunpowder,,crown jewels,tap,
1504 CALL CLEAR
1507 PRINT TAB(9);"you win":" score";S+10
1508 GOTO 1357
1510 DATA 7,0,-1,0,-4,50,0,2,0,1,0,0,0,0,1,0,0,-1,-2,50,-5,0,0,1,5,4,-1,0,0,-6
1513 DATA guard,security man,policeman
1516 CALL CLEAR
1519 CALL SCREEN(11)
1522 CALL CHAR(64,"3C4299919199423C")
1525 PRINT:"     intrigue  software": :TAB(11);"presents": : :TAB(8);"adventuremania": :TAB(12);"@ 1983": : : : : : :
1528 PRINT TAB(5);"press any key to play": :
1531 CALL KEY(0,K,S)
1534 IF S=1 THEN 1537 ELSE 1531
1537 CALL CLEAR
1540 S=0
1543 RETURN
1546 DATA,,,,,yal,,,,bla,,,bla,yal,,,,,,master key,,,,,sil,sil,queens key,nelson,,
1549 DATA 0,0,0,0,0,14,0,0,0,13,0,0,10,6,0,0,0,0,0,21,0,0,0,0,26,25,28,20,0,0
1552 FL=INT(((K+0)-1+1)*RND)+1
1555 IF FL=K THEN 1564
1558 FO=0
1561 GOTO 604
1564 PRINT:" you've been arrested"
1567 GOSUB 1042
1570 FO=0
1573 GOTO 1225
1576 IF A<>29 THEN 754
1579 PRINT: :
1582 PRINT:" you float up": :
1585 INPUT " now what >":B$
1588 IF B$="n" THEN 1597
1591 PRINT:" you drowned ": :
1594 GOTO 1357
1597 A=11
1600 GOTO 97
1603 DATA take,drop,use
1606 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14
1609 DATA rest,bribe,say
