diff --git a/encounter/apple/TITLE b/encounter/apple/TITLE
new file mode 100644
index 0000000..4efce3b
Binary files /dev/null and b/encounter/apple/TITLE differ
diff --git a/encounter/applesoft.bas b/encounter/apple/applesoft.bas
similarity index 100%
rename from encounter/applesoft.bas
rename to encounter/apple/applesoft.bas
diff --git a/encounter/hello.bas b/encounter/apple/hello.bas
similarity index 100%
rename from encounter/hello.bas
rename to encounter/apple/hello.bas
diff --git a/encounter/apple/marketing.txt b/encounter/apple/marketing.txt
new file mode 100644
index 0000000..5ddd0e3
--- /dev/null
+++ b/encounter/apple/marketing.txt
@@ -0,0 +1,9 @@
+Encounter Adventure (Severn Software, 1983) is now available on the Apple II.
+Your task is to find and rescue a young girl kidnapped by thugs. Everything you need is here but you may have to manufacture some items. Chemistry knowledge helps.
+Download the game @ https://www.brutaldeluxe.fr/products/apple2/encounter/
+
+Encounter Adventure (Severn Software, 1983) arrive sur Apple II.
+Votre mission est de trouver et de sauver une jeune femme kidnappˇe par des voyous. Vous aurez tout sous le main mais vous devrez confectionner quelques produits. La connaissance de la chimie vous aider.
+Le jeu est en tˇlˇchargement @ https://www.brutaldeluxe.fr/products/apple2/encounter/
+
+HT @
\ No newline at end of file
diff --git a/encounter/encounteradventure.dsk b/encounter/encounteradventure.dsk
new file mode 100644
index 0000000..a3532b3
Binary files /dev/null and b/encounter/encounteradventure.dsk differ
diff --git a/encounter/images/encounter.jpg b/encounter/images/encounter.jpg
new file mode 100644
index 0000000..4662442
Binary files /dev/null and b/encounter/images/encounter.jpg differ
diff --git a/encounter/images/final.jpg b/encounter/images/final.jpg
new file mode 100644
index 0000000..859f969
Binary files /dev/null and b/encounter/images/final.jpg differ
diff --git a/encounter/images/game.jpg b/encounter/images/game.jpg
new file mode 100644
index 0000000..e5b25ee
Binary files /dev/null and b/encounter/images/game.jpg differ
diff --git a/encounter/images/severn.jpg b/encounter/images/severn.jpg
new file mode 100644
index 0000000..9ca7c23
Binary files /dev/null and b/encounter/images/severn.jpg differ
diff --git a/encounter/images/severnsoftware.jpg b/encounter/images/severnsoftware.jpg
new file mode 100644
index 0000000..2bf3eec
Binary files /dev/null and b/encounter/images/severnsoftware.jpg differ
diff --git a/encounter/images/title.jpg b/encounter/images/title.jpg
new file mode 100644
index 0000000..e427baa
Binary files /dev/null and b/encounter/images/title.jpg differ
diff --git a/encounter/oric/Encounter Adventure (19xx)(Severn Software).tap b/encounter/oric/Encounter Adventure (19xx)(Severn Software).tap
new file mode 100644
index 0000000..55108e5
Binary files /dev/null and b/encounter/oric/Encounter Adventure (19xx)(Severn Software).tap differ
diff --git a/encounter/oric/encounter new.bas b/encounter/oric/encounter new.bas
new file mode 100644
index 0000000..79d85df
--- /dev/null
+++ b/encounter/oric/encounter new.bas	
@@ -0,0 +1,1005 @@
+ 15 Z$=" "+CHR$(27)
+ 16 PAPER3:INK4
+ 20 CLS:FORT=1TO4:PRINTZ$"A          ***********"
+ 22 PRINTZ$"D          *Encounter (2.0)*":PRINTZ$"D          *Adventure  (2.0)*"
+ 23 PRINTZ$"A          ***********":PRINT:NEXT
+ 24 PRINT"     ***************************"
+ 25 PRINT"     *Copyright SEVERN SOFTWARE*"
+ 26 PRINT"     ***************************"
+ 28 PRINT:PRINT"  Press any key when you are ready"
+ 30 GETK$
+ 31 CLS:PRINTZ$"AEncounter - A Guide"
+ 32 PRINT:PRINT"Your task is to find and rescue a"
+ 33 PRINT"young girl kidnapped by thugs."
+ 34 PRINT:PRINT"Everything you need is here but you" 
+ 35 PRINT"may have to manufacture some items."
+ 36 PRINT:PRINT"CLUE  chemistry knowledge helps."
+ 37 PRINT:PRINT"        Single letter COMMANDS"
+ 38 PRINT:PRINT"  eg    N for North  U for UP" 
+ 39 PRINT" PLUS   L for look   I for inventory"
+ 40 PRINT:PRINT"Most other commands are VERB followed"
+ 41 PRINT"by NOUN (eg EMPTY BOTTLE). These may"
+ 42 PRINT"be typed in as 3 letter abbreviations for instance EMP BOT"
+ 43 PRINT:PRINT"If the computer can't understand your" 
+ 44 PRINT"command, re-phrase it. You will soon"
+ 45 PRINT"learn the accepted vocabulary."
+ 46 PRINT:PRINT"      Press any key to continue"
+ 47 GETK$
+ 48 CLS:PRINTZ$"AEncounter - A Guide"
+ 50 PRINT:PRINT"If the alarm rings, you have twenty"
+ 51 PRINT"moves to stop it before you're caught." 
+ 52 PRINT:PRINT"HINT  make a map as you travel noting" 
+ 53 PRINT"      what you find and where."  
+ 54 PRINT:PRINT"The time limit is 500 moves."
+ 55 PRINT:PRINT"Common commands - GET DROP THROW KILL" 
+ 56 PRINT"                  HIT MAKE CLIMB QUIT"
+ 57 PRINT:PRINT"Only use QUIT if you wish to give up."
+ 58 PRINT:PRINT"Don't worry if you fail first time -  WE EXPECT YOU TO!!!!"
+ 59 PRINT:PRINT"Telephoning SEVERN SOFTWARE for help  is forbidden."
+ 60 PRINT:PRINT:PRINT"        Press any key to start"
+ 62 GETK$
+ 63 PAPER2:INK0
+ 65 CLS
+ 100 CLS:PL=3:BD=4:KY=5:YP=7:BU=8:RO=8:WA=8:PG=9:BX=14:TW=14:KN=16:NE=17
+ 101 LD=19:CR=11:BL=20:ME=26:BR=26:TN=23:DG=24:AV=1:TP=25:BK=25:MA=30:CU=28
+ 102 SA=21:NO=38:GL=43:TT=36:TG=34:AL=1:SB=99:SF=1:HP=12:PT=99:GP=99:FU=99
+ 103 AC=99:PU=99:AB=99:BB=99:BM=99:LP=99:HD=99:OS=99:GF=99:CP=20:PO=99
+ 1000 A=1:PRINT:PRINT"You are in a deserted market square":IF GL=0THEN31000
+ 1001 GOSUB9000:PRINT"Exits lead North and East"        
+ 1003 N=1:E=1:GOSUB10000
+ 1004 IFLEFT$(A$,1)="L"THEN1000
+ 1006 IFLEFT$(A$,1)="N"THEN1030
+ 1007 IFLEFT$(A$,1)="E"THEN1010
+ 1009 GOTO1003
+ 1010 A=2:PRINT:PRINT" You are in a dark, seedy alley."
+ 1011 GOSUB9000
+ 1012 PRINT" Exits lead North, East and West."
+ 1013 N=1:E=1:W=1:GOSUB10000
+ 1014 IFLEFT$(A$,1)="L"THEN1010
+ 1015 IFLEFT$(A$,1)="N"THEN1040
+ 1016 IFLEFT$(A$,1)="E"THEN1020
+ 1017 IFLEFT$(A$,1)="W"THEN1000
+ 1019 GOTO1013
+ 1020 A=3:PRINT:PRINT"A long road stretches ahead of you."
+ 1021 GOSUB9000
+ 1022 PRINT"Exits lead North and West."
+ 1023 N=1:W=1:GOSUB10000
+ 1024 IFLEFT$(A$,1)="L"THEN1020
+ 1025 IFLEFT$(A$,1)="N"THEN1050
+ 1026 IFLEFT$(A$,1)="W"THEN1010
+ 1029 GOTO1023
+ 1030 A=4:PRINT:PRINT"You are in a dark, damp tunnel."
+ 1031 GOSUB9000
+ 1032 PRINT"Exits lead North and South."
+ 1033 N=1:S=1:GOSUB10000
+ 1034 IFLEFT$(A$,1)="L"THEN1030
+ 1035 IFLEFT$(A$,1)="N"THEN1080
+ 1036 IFLEFT$(A$,1)="S"THEN1000
+ 1039 GOTO1033
+ 1040 A=5:PRINT:PRINT"You are on the main street."
+ 1041 GOSUB9000
+ 1042 PRINT"Exits lead North, South and East."
+ 1043 N=1:S=1:E=1:GOSUB10000
+ 1044 IFLEFT$(A$,1)="L"THEN1040
+ 1045 IFLEFT$(A$,1)="N"THEN1090
+ 1046 IFLEFT$(A$,1)="S"THEN1010
+ 1047 IFLEFT$(A$,1)="E"THEN1050
+ 1049 GOTO1043
+ 1050 A=6:PRINT:PRINT"You are on a narrow path."
+ 1051 GOSUB9000
+ 1052 PRINT"Exits lead North, South, East and West."
+ 1053 N=1:S=1:E=1:W=1:GOSUB10000
+ 1054 IFLEFT$(A$,1)="L"THEN1050
+ 1055 IFLEFT$(A$,1)="N"THEN1100
+ 1056 IFLEFT$(A$,1)="S"THEN1020
+ 1057 IFLEFT$(A$,1)="E"THEN1060
+ 1058 IFLEFT$(A$,1)="W"THEN1040
+ 1059 GOTO1053
+ 1060 A=7:PRINT:PRINT"You have fallen into a deep pit"
+ 1061 GOSUB9000
+ 1062 PRINT"There seems to be no way out."
+ 1063 GOSUB10000
+ 1064 IFLEFT$(A$,1)="L"THEN1060
+ 1065 IFOP=1THENOP=0:GOTO1050
+ 1069 GOTO1063
+ 1070 A=8:PRINT:PRINT"You are near to an old-fashioned well."
+ 1071 GOSUB9000
+ 1072 PRINT"Exit to the East only."
+ 1073 E=1:GOSUB10000
+ 1074 IFLEFT$(A$,1)="L"THEN1070
+ 1077 IFLEFT$(A$,1)="E"THEN1080
+ 1079 GOTO1073
+ 1080 A=9:PRINT:PRINT"You are in a dark forest."
+ 1081 GOSUB9000
+ 1082 PRINT"Exits lead North, South, East and West."
+ 1083 N=1:S=1:E=1:W=1:GOSUB10000
+ 1084 IFLEFT$(A$,1)="L"THEN1080
+ 1085 IFLEFT$(A$,1)="N"THEN1110
+ 1086 IFLEFT$(A$,1)="S"THEN1030
+ 1087 IFLEFT$(A$,1)="E"THEN1090
+ 1088 IFLEFT$(A$,1)="W"THEN1070
+ 1089 GOTO1083
+ 1090 A=10:PRINT:PRINT"You are on a wide gravel drive"
+ 1091 GOSUB9000
+ 1092 PRINT"Exits lead North, South, East and West."
+ 1093 N=1:S=1:E=1:W=1:GOSUB10000
+ 1094 IFLEFT$(A$,1)="L"THEN1090
+ 1095 IFLEFT$(A$,1)="N"THEN1120
+ 1096 IFLEFT$(A$,1)="S"THEN1040
+ 1097 IFLEFT$(A$,1)="E"THEN1100
+ 1098 IFLEFT$(A$,1)="W"THEN1080
+ 1099 GOTO1093
+ 1100 A=11:PRINT:PRINT"You are in an open area of tarmac"
+ 1101 GOSUB9000
+ 1102 PRINT"Exits lead North, South and West."
+ 1103 N=1:S=1:W=1:GOSUB10000
+ 1104 IFLEFT$(A$,1)="L"THEN1100
+ 1105 IFLEFT$(A$,1)="N"THEN1130
+ 1106 IFLEFT$(A$,1)="S"THEN1050
+ 1108 IFLEFT$(A$,1)="W"THEN1090
+ 1109 GOTO1103
+ 1110 A=12:PRINT:PRINT"You are in a beautiful garden"
+ 1111 GOSUB9000
+ 1112 PRINT"Exits lead North, South and East"
+ 1113 N=1:S=1:E=1:GOSUB10000
+ 1114 IFLEFT$(A$,1)="L"THEN1110
+ 1115 IFLEFT$(A$,1)="N"THEN1140
+ 1116 IFLEFT$(A$,1)="S"THEN1080
+ 1117 IFLEFT$(A$,1)="E"THEN1120
+ 1119 GOTO1113
+ 1120 A=13:PRINT:PRINT"You are on a huge area of lawn"
+ 1121 GOSUB9000 
+ 1122 PRINT"Exits lead North, South and East."
+ 1123 N=1:S=1:E=1:GOSUB10000
+ 1124 IFLEFT$(A$,1)="L"THEN1120
+ 1125 IF(LEFT$(A$,1)="N")AND(LD=0)THENPRINT"DROP something first":GOTO1123
+ 1126 IFLEFT$(A$,1)="N"THEN1200
+ 1127 IFLEFT$(A$,1)="S"THEN1090
+ 1128 IFLEFT$(A$,1)="E"THEN1130 
+ 1129 GOTO1123
+ 1130 A=14:PRINT:PRINT"You are in a small greenhouse"
+ 1131 GOSUB9000 
+ 1132 PRINT"Exits lead North, South and West."
+ 1133 N=1:S=1:W=1:GOSUB10000
+ 1134 IFLEFT$(A$,1)="L"THEN1130
+ 1135 IFLEFT$(A$,1)="N"THEN1150
+ 1136 IFLEFT$(A$,1)="S"THEN1100
+ 1138 IFLEFT$(A$,1)="W"THEN1120
+ 1139 GOTO1133
+ 1140 A=15:PRINT:PRINT"You are on a lawn tennis court."
+ 1141 GOSUB9000
+ 1142 PRINT"Exits lead North and South."
+ 1143 N=1:S=1:GOSUB10000
+ 1144 IFLEFT$(A$,1)="L"THEN1140
+ 1145 IFLEFT$(A$,1)="N"THEN1160
+ 1146 IFLEFT$(A$,1)="S"THEN1110
+ 1149 GOTO1143
+ 1150 A=16:PRINT:PRINT"You are in a vegetable plot."
+ 1151 GOSUB9000
+ 1152 PRINT"Exits lead North snd South."
+ 1153 N=1:S=1:GOSUB10000
+ 1154 IFLEFT$(A$,1)="L"THEN1150
+ 1155 IFLEFT$(A$,1)="N"THEN1180
+ 1156 IFLEFT$(A$,1)="S"THEN1130
+ 1159 GOTO1153
+ 1160 A=17:PRINT:PRINT"You are standing by a fish pond."
+ 1161 GOSUB9000
+ 1162 PRINT"Exits lead South and East."
+ 1163 S=1:E=1:GOSUB10000
+ 1164 IFLEFT$(A$,1)="L"THEN1160
+ 1166 IFLEFT$(A$,1)="S"THEN1140
+ 1167 IFLEFT$(A$,1)="E"THEN1170
+ 1169 GOTO1163
+ 1170 A=18:PRINT:PRINT"You are on a tiled patio and above it is a barred window" 
+ 1171 GOSUB9000
+ 1172 PRINT"Exits lead South, East and West."
+ 1173 S=1:E=1:W=1:GOSUB10000
+ 1174 IFLEFT$(A$,1)="L"THEN1170
+ 1175 IF(LEFT$(A$,1)="S")AND(LD=0)THENPRINT"DROP something first":GOTO1173
+ 1176 IFLEFT$(A$,1)="S"THEN1280
+ 1177 IFLEFT$(A$,1)="E"THEN1180
+ 1178 IFLEFT$(A$,1)="W"THEN1160
+ 1179 GOTO1173
+ 1180 A=19:PRINT:PRINT"You are in an apple orchard."
+ 1181 GOSUB9000
+ 1182 PRINT"Exits lead South and West."
+ 1183 S=1:W=1:GOSUB10000
+ 1184 IFLEFT$(A$,1)="L"THEN1180
+ 1186 IFLEFT$(A$,1)="S"THEN1150
+ 1188 IFLEFT$(A$,1)="W"THEN1170
+ 1189 GOTO1183
+ 1190 A=23:PRINT:PRINT"You are in the lounge."
+ 1191 GOSUB9000
+ 1192 PRINT"Exits lead North and East."
+ 1193 N=1:E=1:GOSUB10000
+ 1194 IFLEFT$(A$,1)="L"THEN1190
+ 1195 IFLEFT$(A$,1)="N"THEN1230
+ 1197 IFLEFT$(A$,1)="E"THEN1200
+ 1198 GOTO1193
+ 1200 A=24:PRINT:PRINT"You are in an imposing entrance hall"
+ 1201 GOSUB9000:IFAV=1THEN9100
+ 1202 PRINT"Exits lead North, South, West and up." 
+ 1203 DB=0:N=1:S=1:W=1:U=1:GOSUB10000
+ 1204 IFLEFT$(A$,1)="L"THEN1200
+ 1205 IFLEFT$(A$,1)="N"THEN1250
+ 1206 IFLEFT$(A$,1)="S"THEN1120
+ 1207 IFLEFT$(A$,1)="U"THEN1240
+ 1208 IFLEFT$(A$,1)="W"THEN1190
+ 1209 GOTO1203
+ 1210 A=25:PRINT:PRINT"This looks like a library." 
+ 1211 GOSUB9000
+ 1212 PRINT"The only exit is West."
+ 1213 W=1:GOSUB10000
+ 1214 IFLEFT$(A$,1)="L"THEN1210 
+ 1218 IFLEFT$(A$,1)="W"THEN1250
+ 1219 GOTO1213
+ 1230 A=26:PRINT:PRINT"A dining room, or so it appears" 
+ 1231 GOSUB9000
+ 1232 PRINT"Exits lead North and South."
+ 1233 N=1:S=1:GOSUB10000
+ 1234 IFLEFT$(A$,1)="L"THEN1230
+ 1235 IFLEFT$(A$,1)="N"THEN1270
+ 1236 IFLEFT$(A$,1)="S"THEN1190
+ 1239 GOTO1233
+ 1240 A=27:PRINT:PRINT"You are on a sweeping staircase"
+ 1241 GOSUB9000
+ 1242 PRINT"Choose up or down."
+ 1243 U=1:D=1:GOSUB10000
+ 1244 IFLEFT$(A$,1)="L"THEN1240
+ 1245 IFLEFT$(A$,1)="U"THEN1410
+ 1246 IFLEFT$(A$,1)="D"THEN1200
+ 1249 GOTO1243
+ 1250 A=31:PRINT:PRINT"You are in a narrow passage"
+ 1251 GOSUB9000
+ 1252 PRINT"Exits lead North, South and East."
+ 1253 N=1:S=1:E=1:GOSUB10000
+ 1254 IFLEFT$(A$,1)="L"THEN1250
+ 1255 IFLEFT$(A$,1)="N"THEN1280
+ 1256 IFLEFT$(A$,1)="S"THEN1200
+ 1257 IFLEFT$(A$,1)="E"THEN1210
+ 1259 GOTO1253
+ 1260 A=22:PRINT:PRINT"You are on some gloomy, narrow steps."
+ 1261 GOSUB9000
+ 1262 PRINT"Choose up or down."
+ 1263 U=1:D=1:GOSUB10000
+ 1264 IFLEFT$(A$,1)="L"THEN1260
+ 1265 IFLEFT$(A$,1)="U"THEN1290
+ 1266 IFLEFT$(A$,1)="D"THEN1300
+ 1269 GOTO1263
+ 1270 A=28:PRINT:PRINT"This looks like a games room."
+ 1271 GOSUB9000         
+ 1272 PRINT"Exits lead South and East."
+ 1273 S=1:E=1:GOSUB10000
+ 1274 IFLEFT$(A$,1)="L"THEN1270
+ 1276 IFLEFT$(A$,1)="S"THEN1230
+ 1277 IFLEFT$(A$,1)="E"THEN1280
+ 1279 GOTO1273
+ 1280 A=29:PRINT:PRINT"You find yourself in a sun-lounge."
+ 1281 GOSUB9000
+ 1282 PRINT"Exits lead North, South, East and West."
+ 1283 N=1:S=1:E=1:W=1:GOSUB10000
+ 1284 IFLEFT$(A$,1)="L"THEN1280
+ 1285 IFLEFT$(A$,1)="N"THEN1170
+ 1286 IFLEFT$(A$,1)="S"THEN1250
+ 1287 IFLEFT$(A$,1)="E"THEN1290
+ 1288 IFLEFT$(A$,1)="W"THEN1270
+ 1289 GOTO1283
+ 1290 A=30:PRINT:PRINT"This is obviously the kitchen."
+ 1291 GOSUB9000
+ 1292 PRINT"Exits lead West and down."
+ 1293 W=1:D=1:GOSUB10000
+ 1294 IFLEFT$(A$,1)="L"THEN1290
+ 1296 IFLEFT$(A$,1)="D"THEN1260
+ 1298 IFLEFT$(A$,1)="W"THEN1280
+ 1299 GOTO1293
+ 1300 A=21:PRINT:PRINT"This is a cold, damp cellar"
+ 1301 GOSUB9000
+ 1302 PRINT"Exits lead South and up."        
+ 1303 S=1:U=1:GOSUB10000
+ 1304 IFLEFT$(A$,1)="L"THEN1300
+ 1306 IFLEFT$(A$,1)="S"THEN1310
+ 1307 IFLEFT$(A$,1)="U"THEN1260
+ 1309 GOTO1303
+ 1310 A=20:PRINT:PRINT"This room is even darker than the last"
+ 1311 GOSUB9000
+ 1312 PRINT"The only way out is North"
+ 1313 N=1:GOSUB10000
+ 1314 IFLEFT$(A$,1)="L"THEN1310
+ 1315 IFLEFT$(A$,1)="N"THEN1300
+ 1319 GOTO1313
+ 1320 A=32:PRINT:PRINT"This seems to bea quest bedroom"
+ 1321 GOSUB9000
+ 1322 PRINT"The only exit it North."
+ 1323 N=1:GOSUB10000
+ 1324 IFLEFT$(A$,1)="L"THEN1320
+ 1325 IFLEFT$(A$,1)="N"THEN1400
+ 1329 GOTO1323
+ 1330 A=33:PRINT:PRINT"This is a child's bedroom"
+ 1331 GOSUB9000
+ 1332 PRINT"Exit to the North only."
+ 1333 N=1:GOSUB10000
+ 1334 IFLEFT$(A$,1)="L"THEN1330
+ 1335 IFLEFT$(A$,1)="N"THEN1360
+ 1339 GOTO1333
+ 1340 A=34:PRINT:PRINT"This must be the master bedroom"
+ 1341 GOSUB9000
+ 1342 PRINT"Exits lead North and West."
+ 1343 N=1:W=1:GOSUB10000
+ 1344 IFLEFT$(A$,1)="L"THEN1340
+ 1345 IFLEFT$(A$,1)="N"THEN1370
+ 1348 IFLEFT$(A$,1)="W"THEN1360
+ 1349 GOTO1343
+ 1350 A=35:PRINT:PRINT"You are in a tiled shower-room"
+ 1351 GOSUB9000
+ 1352 PRINT"Exit to the North only."
+ 1353 N=1:GOSUB10000
+ 1354 IFLEFT$(A$,1)="L"THEN1350
+ 1356 IFLEFT$(A$,1)="N"THEN1380
+ 1359 GOTO1353
+ 1360 A=37:PRINT:PRINT"You have found the east gallery"
+ 1361 GOSUB9000
+ 1362 PRINT"Exits North, South, East and West."
+ 1363 N=1:S=1:E=1:W=1:GOSUB10000
+ 1364 IFLEFT$(A$,1)="L"THEN1360
+ 1365 IFLEFT$(A$,1)="N"THEN1390
+ 1366 IFLEFT$(A$,1)="S"THEN1330
+ 1367 IFLEFT$(A$,1)="E"THEN1340
+ 1368 IFLEFT$(A$,1)="W"THEN1410
+ 1369 GOTO1363
+ 1370 A=36:PRINT:PRINT"This is a tiny toilet"
+ 1371 GOSUB9000
+ 1372 PRINT"Exit to the South only."
+ 1373 S=1:GOSUB10000
+ 1374 IFLEFT$(A$,1)="L"THEN1370
+ 1376 IFLEFT$(A$,1)="S"THEN1340
+ 1379 GOTO1373
+ 1380 A=38:PRINT:PRINT"This is a small box-room"
+ 1381 GOSUB9000
+ 1382 PRINT"Exits to the South and East."
+ 1383 S=1:E=1:GOSUB10000
+ 1384 IFLEFT$(A$,1)="L"THEN1380
+ 1385 IFLEFT$(A$,1)="S"THEN1350
+ 1386 IFLEFT$(A$,1)="E"THEN1400
+ 1389 GOTO1383
+ 1390 A=40:PRINT:PRINT"You are in an ornate bathroom"
+ 1391 GOSUB9000
+ 1392 PRINT"Exit to the South only."
+ 1393 S=1:GOSUB10000
+ 1394 IFLEFT$(A$,1)="L"THEN1390
+ 1396 IFLEFT$(A$,1)="S"THEN1360
+ 1399 GOTO1393
+ 1400 A=41:PRINT:PRINT"This is the west gallery"
+ 1401 GOSUB9000
+ 1402 PRINT"Exits lead North, South, East and West."
+ 1403 N=1:S=1:E=1:W=1:GOSUB10000
+ 1404 IFLEFT$(A$,1)="L"THEN1400
+ 1405 IFLEFT$(A$,1)="N"THEN1420
+ 1406 IFLEFT$(A$,1)="S"THEN1320
+ 1407 IFLEFT$(A$,1)="E"THEN1410
+ 1408 IFLEFT$(A$,1)="W"THEN1380
+ 1409 GOTO1403
+ 1410 A=42:PRINT:PRINT"You are on the main landing"
+ 1411 GOSUB9000
+ 1412 PRINT"Exits lead East, West and down."
+ 1413 E=1:W=1:D=1:GOSUB10000
+ 1414 IFLEFT$(A$,1)="L"THEN1410
+ 1416 IFLEFT$(A$,1)="W"THEN1400
+ 1417 IFLEFT$(A$,1)="E"THEN1360
+ 1418 IFLEFT$(A$,1)="D"THEN1240
+ 1419 GOTO1413
+ 1420 A=39:PRINT:PRINT"You have reached a steel-plated door. It is padlocked."
+ 1421 GOSUB9000
+ 1422 PRINT"You can return to the South"
+ 1423 S=1:GOSUB10000
+ 1424 IFLEFT$(A$,1)="L"THEN1420
+ 1426 IFLEFT$(A$,1)="S"THEN1400
+ 1429 GOTO1423
+ 1604 IFK$="N"THEN15000
+ 9000 IT=0:PRINT"I can see ";:IFWB=ATHENPRINT"the window is broken"
+ 9001 IFOS=ATHENPRINT"an open safe":IT=1
+ 9002 IFPL=ATHENPRINT"a plastic bag":IT=1
+ 9003 IFBD=ATHENPRINT"black dust":IT=1
+ 9004 IFPO=ATHENPRINT"an open panel on wall":IT=1
+ 9005 IFCP=ATHENPRINT"a locked panel on the wall":IT=1
+ 9006 IFYP=ATHENPRINT"gritty yellow powder":IT=1
+ 9007 IFBU=ATHENPRINT"a wooden bucket":IT=1
+ 9008 IFHD=ATHENPRINT"a small hole in the door":IT=1
+ 9009 IFWA=ATHENPRINT"some water":IT=1
+ 9010 IFPG=ATHENPRINT"a large dove":IT=1
+ 9011 IFBX=ATHENPRINT"a cardboard box":IT=1
+ 9012 IFTW=ATHENPRINT"some twine":IT=1
+ 9013 IFKN=ATHENPRINT"a silver knife":IT=1
+ 9014 IFNE=ATHENPRINT"a fishing net":IT=1
+ 9015 IFLD=ATHENPRINT"a long ladder":IT=1
+ 9016 IFCR=ATHENPRINT"an abandoned car":IT=1
+ 9017 IFBL=ATHENPRINT"three .38 bullets":IT=1
+ 9018 IFME=ATHENPRINT"a joint of meat":IT=1
+ 9019 IFBR=ATHENPRINT"some brown bread":IT=1
+ 9020 IFTN=ATHENPRINT"an empty tobacco tin":IT=1
+ 9021 IF(DG=A)AND(AV=1)THENPRINT"an alsatian growling at you":IT=1
+ 9022 IF(DG=A)AND(AV=0)THENPRINT"the body of an alsatian dog":IT=1
+ 9023 IFTP=ATHENPRINT"a roll of sticky tape":IT=1
+ 9024 IFBK=ATHENPRINT"an open book":IT=1 
+ 9025 IFMA=ATHENPRINT"a box of matches":IT=1
+ 9026 IFCU=ATHENPRINT"a snooker cue":IT=1
+ 9027 IFLP=ATHENPRINT"a loaded pistol":IT=1
+ 9028 IFSA=ATHENPRINT"a heavy safe":IT=1
+ 9029 IFNO=ATHENPRINT"a printed note":IT=1
+ 9030 IFRH=ATHENPRINT"a rope hangs from the window":IT=1:RO=99
+ 9031 IFGL=ATHENPRINT"a young girl tied up on the floor":IT=1
+ 9032 IFTT=ATHENPRINT"a roll of toilet tissue":IT=1 
+ 9033 IF(TG=A)AND(AL=1)THENPRINT"a thug asleep on the bed":IT=1
+ 9034 IF(TG=A)AND(AL=0)THENPRINT"a thug lying dead on the bed":IT=1
+ 9036 IFHP=ATHENPRINT"a hose-pipe":IT=1
+ 9037 IFPT=ATHENPRINT"some petrol":IT=1
+ 9038 IFBB=ATHENPRINT"broken glass":IT=1
+ 9039 IFAB=ATHENPRINT"an acid burn":IT=1
+ 9040 IFSB=ATHENPRINT"a small bottle":IT=1
+ 9041 IFGF=ATHENPRINT"a young girl":IT=1
+ 9042 IF(CU=43)AND(HD=39)THENPRINT"a cue on the floor":IT=1
+ 9043 IFRO=ATHENPRINT"a length of rope":IT=1
+ 9044 IFFU=ATHENPRINT"a fuse":IT=1
+ 9045 IFGP=ATHENPRINT"some gunpowder":IT=1
+ 9046 IFKY=ATHENPRINT"a set of keys":IT=1
+ 9047 IFPU=ATHENPRINT"a pistol":IT=1
+ 9048 IFBM=ATHENPRINT"a bomb":IT=1
+ 9098 IFIT=0THENPRINT"nothing of interest here"
+ 9099 PRINT:RETURN
+ 9100 GOSUB10000
+ 9101 IF(AV=1)AND(DB=0)THENPRINT:PRINT"AAAAAARRRGGGHHHH - he got you":KD=1:GOTO30000
+ 9102 PRINT:GOTO1202
+ 10000 IFAR=1THENPRINT:PRINTTAB(20)"ALARM RINGING":IFTM>19THEN32000 
+ 10001 IFOT=1THEN31001
+ 10002 PRINT:PRINT"What are you going to do now ?":NM=NM+1:IFNM>NM499THENOT=1
+ 10003 AA$="":BB$="":A$="":B$="":PRINT:INPUTQ$:PAPER2
+ 10004 PRINTTAB(29);"Moves ";NM 
+ 10006 IFAR=1THENTM=TM+1:PRINTTAB(29);"Alarm ";20-TM 
+ 10007 XX=10
+ 10008 L=LEN(Q$)
+ 10009 FORJ=1TOL
+ 10010 IFMID$(Q$,J,1)=" "THENXX=J+1
+ 10012 NEXT
+ 10014 BB$=MID$(Q$,XX,L):AA$=LEFT$(Q$,XX-2)
+ 10015 B$=LEFT$(BB$,3):A$=LEFT$(AA$,3)
+ 10016 IF(AA$="LOST")OR(BB$="LOST")THENPRINT:PRINT"I'm fed up too":GOTO10000
+ 10017 IFAA$="SHOUT"THENPRINT:PRINT"I've already got a headache":GOTO10000
+ 10018 IF(AA$="HOTWIRE")OR(AA$="STEAL")THENPRINT"Let's keep it legal":GOTO10000
+ 10019 IFB$="OFF"THENPRINT:PRINT"I'm going to ignore that":GOTO10000
+ 10050 IFA$="GET"THEN11000
+ 10051 IFA$="EMP"THENPRINT:PRINT"Use the DROP command":GOTO10000
+ 10053 IFA$="DRO"THEN11100
+ 10054 IFA$="THR"THEN11200 
+ 10055 IFA$="KIL"THEN11350
+ 10056 IFA$="OPE"THEN11300
+ 10057 IFA$="CLI"THEN11320
+ 10058 IFA$="FRI"THEN11340
+ 10059 IFA$="MAK"THEN11400
+ 10060 IF(A$="SYP")OR(A$="SIP")THEN11450
+ 10061 IFA$="LOA"THEN11470
+ 10062 IF(A$="BLO")OR(A$="EXP")THEN11500
+ 10063 IFA$="USE"THEN11550
+ 10064 IF(A$="STA")AND(A=11)THENPRINT:PRINT"How ?":GOTO10002
+ 10065 IFA$="REA"THEN11570
+ 10066 IFA$="QUI"THEN11600
+ 10067 IFA$="SHO"THEN11620
+ 10068 IFA$="PRE"THEN11700
+ 10069 IFA$="HEL"THENPRINT:PRINT"It's no use shouting HELP":GOTO10000
+ 10072 IF(A$="RUN")OR(A$="JUM")THENPRINT:PRINT"I'm too tired for athletics":GOTO10000
+ 10073 IFAA$="PANIC"THENPRINT:PRINT"I'm inclined to agree":GOTO10000
+ 10090 IFL>1THEN10995
+ 10100 IFA$="L"THENRETURN
+ 10101 IF(A$="N")AND(N=1)THEN15000
+ 10102 IF(A$="S")AND(S=1)THEN15000
+ 10103 IF(A$="E")AND(E=1)THEN15000
+ 10104 IF(A$="W")AND(W=1)THEN15000
+ 10105 IF(A$="U")AND(U=1)THEN15000
+ 10106 IF(A$="D")AND(D=1)THEN15000
+ 10107 IFA$="I"THEN14000
+ 10990 IFL=1THEN10998
+ 10995 PRINT:PRINT"I don't know how to ";AA$;" something":GOTO10000 
+ 10998 PRINT:PRINT"Sorry, can't do that":GOTO10000
+ 11000 GOSUB15100:IFD9=1THEND9=0:GOTO10000
+ 11001 IF(B$="BAG")AND(PL=A)THENPL=0:GOTO15000
+ 11002 IF(B$="DUS")AND(BD=A)THEN13000
+ 11004 IF(B$="KEY")AND(KY=A)THENKY=0:GOTO15000
+ 11006 IF(B$="POW")AND(YP=A)THEN13000
+ 11008 IF(B$="BUC")AND(BU=A)THENBU=0:GOTO15000  
+ 11010 IF(B$="ROP")AND(RO=A)THENRO=0:GOTO15000
+ 11012 IF(B$="WAT")AND(WA=A)THEN13000
+ 11014 IF(B$="DOV")AND(PG=A)THEN13000
+ 11016 IF(B$="BOX")AND(BX=A)THENBX=0:GOTO15000
+ 11018 IF(B$="TWI")AND(TW=A)THENTW=0:GOTO15000 
+ 11020 IF(B$="KNI")AND(KN=A)THENKN=0:GOTO15000
+ 11022 IF(B$="NET")AND(NE=A)THENNE=0:GOTO15000
+ 11024 IF(B$="LAD")AND(LD=A)THENLD=0:GOTO15000
+ 11026 IF(B$="HOS")AND(HP=A)THENHP=0:GOTO15000 
+ 11030 IF(B$="PIS")AND(PU=A)THENPU=0:GOTO15000
+ 11032 IF(B$="BUL")AND(BL=A)THENBL=0:GOTO15000
+ 11034 IF(B$="MEA")AND(ME=A)THENME=0:GOTO15000
+ 11038 IF(B$="NOT")AND(NO=A)THENNO=0:GOTO15000
+ 11040 IF(B$="MAT")AND(MA=A)THENMA=0:GOTO15000
+ 11044 IF(B$="CUE")AND(CU=A)THENCU=0:GOTO15000
+ 11046 IF(B$="BOO")AND(BK=A)THENBK=0:GOTO15000 
+ 11048 IF(B$="BRE")AND(BR=A)THENBR=0:GOTO15000
+ 11052 IF(B$="TAP")AND(TP=A)THENTP=0:GOTO15000
+ 11057 IFQ$="BAG"THENPRINT:PRINT"Sorry, it will suffocate":GOTO10000
+ 11058 IF(B$="GUN")AND(GP=A)THEN13000         
+ 11060 IF(B$="TIS")AND(TT=A)THENTT=0:GOTO15000
+ 11062 IF(B$="PET")AND(PT=A)THEN13000
+ 11064 IF(B$="GIR")AND(GF=A)THENGL=0:GOTO15000
+ 11066 IF(B$="BOT")AND(SB=A)THENSB=0:GOTO15000
+ 11068 IF(B$="TIN")AND(TN=A)THENTN=0:GOTO15000
+ 11070 IF(B$="SAF")AND(SA=A)THENPRINT:PRINT"It weighs too much":GOTO10000
+ 11071 IF(B$="GRE")AND(A=14)THENPRINT:PRINT"Don't be daft":GOTO10000
+ 11072 IF(B$="CAR")AND(CR=A)THENPRINT:PRINT"It's too heavy":GOTO10000
+ 11073 IF(B$="BED")AND((A=32)OR(A=33)OR(A=34))THENPRINT:PRINT"It's too heavy":GOTO10000
+ 11074 IF(B$="THU")AND(TG=A)AND(AL=O)THENPRINT:PRINT"He's too heavy":GOTO10000
+ 11075 IF(B$="THU")AND(TG=A)AND(AL=1)THENPRINT  
+ 11077 IF(B$="DOG")AND(DG=A)AND(AV=0)THENDG=0:GOTO15000
+ 11078 IF(B$="DOG")AND(DG=A)AND(AV=1)THENPRINT:PRINT"Not a good idea":GOTO10000
+ 11079 IF(B$="LIG")AND(A=20)AND(PO=A)THENPRINT:PRINT"Bulb's too hot":GOTO10000
+ 11080 IF(B$="GLA")AND(BB=A)THENBB=0:GOTO15000
+ 11082 IF(B$="FUS")AND(FU=A)THENFU=0:GOTO15000 
+ 11083 IF(BB$="STUFFED")OR(BB$="KNOTTED")THEN19050
+ 11084 IF(B$="BUT")AND(A=20)THENPRINT:PRINT"Try pressing it":GOTO10000
+ 11085 IF(B$="WIN")AND(A=18)THENPRINT:PRINT"It's a bit too high":GOTO10000
+ 11086 IF(B$="PAN")AND(A=20)THENPRINT:PRINT"It's fixed to the wall"GOTO15000
+ 11087 IF(B$="BOM")AND(BM=A)THENBM=0:GOTO15000
+ 11099 GOTO19020
+ 11100 IF(B$="BAG")AND(PL=0)THENPL=A:GOTO13700
+ 11102 IF(B$="DUS")AND(BD=0)THEN13530
+ 11104 IF(B$="KEY")AND(KY=0)THENKY=A:GOTO13700
+ 11106 IF(B$="POW")AND(YP=0)THEN13520
+ 11108 IF(B$="BUC")AND(BU=0)THENBU=A:GOTO13710
+ 11110 IF(B$="ROP")AND(RO=0)THENRO=A:GOTO15000
+ 11112 IF(B$="WAT")AND(WA=0)THENPRINT:PRINT"The water drains away":GOTO13500
+ 11114 IF(B$="DOV")AND(PG=0)THEN13510
+ 11118 IF(B$="TWI")AND(TW=0)THENTW=A:GOTO15000 
+ 11120 IF(B$="KNI")AND(KN=0)THENKN=A:GOTO15000
+ 11122 IF(B$="NET")AND(NE=0)THENNE=A:GOTO15000
+ 11124 IF(B$="LAD")AND(LD=0)THENLD=A:GOTO15000
+ 11125 IF(B$="PIS")AND(LP=0)THENLP=A:GOTO15000
+ 11126 IF(B$="PIS")AND(PU=0)THENPU=A:GOTO15000
+ 11130 IF(B$="BUL")AND(BL=0)THENBL=A:GOTO15000 
+ 11132 IF(B$="MEA")AND(ME=0)THENME=A:GOTO15000
+ 11134 IF(B$="NOT")AND(NO=0)THENNO=A:GOTO15000
+ 11136 IF(B$="MAT")AND(MA=0)THENMA=A:GOTO15000
+ 11138 IF(B$="CUE")AND(CU=0)THENCU=A:GOTO15000
+ 11140 IF(B$="BOO")AND(BK=0)THENBK=A:GOTO15000
+ 11142 IF(B$="BRE")AND(BR=0)THENBR=A:GOTO15000
+ 11144 IF(B$="TAP")AND(TP=0)THENTP=A:GOTO15000
+ 11146 IF(B$="GUN")AND(GP=0)THENGP=A:GOTO13540
+ 11148 IF(B$="TIS")AND(TT=0)THENTT=A:GOTO15000
+ 11150 IF(B$="PET")AND(PT=0)THENPRINT:PRINT"The petrol evaporates":GOTO13500
+ 11152 IF(B$="HOS")AND(HP=0)THENHP=A:GOTO15000
+ 11154 IF(B$="GIR")AND(GL=0)THENGL=A:GOTO15000
+ 11156 IF(B$="BOX")AND(BX=0)THENBX=A:GOTO13720
+ 11158 IF(B$="DOG")AND(DG=0)THENDG=A:GOTO15000
+ 11160 IF(B$="TIN")AND(TN=0)THENTN=A:GOTO13740
+ 11162 IF(B$="BOT")AND(SB=0)THENGOSUB19000:GOTO10000
+ 11164 IF(B$="FUS")AND(FU=0)THENFU=A:GOTO1OOOO
+ 11199 GOTO19030
+ 11200 IF(B$="MEA")AND(ME=0)THEN11210
+ 11201 IF(B$="BRE")AND(BR=0)THEN11220
+ 11202 IF(B$="CUE")AND(CU=0)THEN11230
+ 11203 IF(B$="BOT")AND(SB=0)THEN11240
+ 11204 IF(B$="KNI")AND(KN=0)THEN11250
+ 11205 IF(B$="ROP")AND(RO=0)THEN11260
+ 11206 IF(B$="GLA")AND(BB=0)THEN11280
+ 11208 PRINT:PRINT"Use the DROP command":GOTO10000
+ 11210 IF(DG=A)AND(AV=1)THENPRINT:PRINT"Dog eats meat":ME=99:DB=99:P=P+25:GOTO15000
+ 11211 ME=A:GOTO15000
+ 11220 IFPG=ATHENPRINT:PRINT"Dove eats the bread":BR=99:GOTO15000
+ 11221 IF(DG=A)AND(AV=1)THENPRINT:PRINT"Dog sniffs bread - he is not happy"         
+ 11222 BR=A:GOTO15000
+ 11230 IFDG=ATHENPRINT:PRINT"You have speared the dog":CU=A:AV=0:P=P+50:GOTO15000
+ 11231 IF(A=18)AND(WB=18)THEN11233
+ 11232 IF A=18THENPRINT:PRINT"The cue smashes the window":CU=39:WB=18:AR=1:GOTO14999
+ 11233 CU=A:GOTO15000
+ 11240 IFA<>39THENGOSUB19000:GOTO10000
+ 11241 PRINT:PRINT"Acid in the bottle burns small hole in the door":P=P+200
+ 11242 SB=99:GL=39:HD=39:BB=39:GOTO15000
+ 11250 IFDG=ATHENPRINT:PRINT"You have killed the dog":KN=A:AV=0:GOTO15000
+ 11251 IF(GL=A)AND(HD=A)THENPRINT:PRINT"Girl cuts her bonds":KN=A:GL=99:GF=A
+ 11255 KN=A:IC=IC-1
+ 11256 IFRO=39THEN11264
+ 11259 IC=IC+1:GOTO15000
+ 11260 IF(A<>39)AND(HD<>39)THENRIO=A:GOTO15000
+ 11262 IFGF<>39THENRO=A:GOTO15000
+ 11264 IFWB=0THENPRINT:PRINT"Girl breaks window and slides down rope"
+ 11265 IFWB=0THENPRINT:PRINT"Alarm starts ringing":WB=18:PLAY3,2,4,1:GOTO11270
+ 11266 IFWB=8THENPRINT:PRINT"Girl climbs out of window and down rope":GOTO10000
+ 11268 RO=39:GOTO15000
+ 11270 GF=18:RH=18:RO=18:IC=IC-1:AR=1:P=P+100:GOTO10000 
+ 11275 GF=18:RH=18:RO=18:IC=IC-1:P=P+100:GOTO10000
+ 11280 PRINT:PRINT"The fragments are too small to throw":GOTO10000
+ 11300 IF(B$="DOO")AND(A=39)THENPRINT:PRINT"It's locked, remember":GOTO10000 
+ 11301 IF(B$="WIN")AND(A=18)THENPRINT:PRINT"It's thirty feet up:GOTO10000
+ 11302 IF(B$="SAF")AND(A=21)AND(OS=99)THENPRINT:PRINT"It's locked":GOTO10000 
+ 11303 IF(B$="BOT")AND(SB=0)THENPRINT:PRINT"The screw cap is stuck":GOTO10000
+ 11304 IF(B$="CAR")AND(A=11)THENPRINT:PRINT"Nothing. Try the trunk":GOTO10000
+ 11305 IF(B$="TRU")AND(A=11)THENPRINT:PRINT"Nothing here, either":GOTO10000
+ 11306 IF(B$="TIN")AND(TF=0)AND(TN=0)THENPRINT:PRINT"Nothing inside":GOSUB10000
+ 11307 IF(B$="TIN")AND(TF=1)AND(TN=0)THENPRINT:PRINT"Okay, it's open":GOSUB10000
+ 11308 IF(B$="TAN")AND(A=11)AND(PA=1)THENPRINT:PRINT"It's already open":GOSUB10000 
+ 11309 IF(B$="TAN")AND(A=11)THENPA=1:PRINT:PRINT"Okay, it's open":GOTO10000
+ 11310 IF(B$="SAF")AND(A=21)AND(OS=21)THENPRINT:PRINT"It is open":GOTO10000
+ 11311 IF(B$="PAN")AND(A=20)AND(PO=20)THENPRINT:PRINT"It is open"GOSUB10000
+ 11312 IF(B$="PAN")AND(A=20)THENPRINT:PRINT"It's locked":GOTO10000
+ 11313 IF(B$="BOX")AND(XF=0)AND(BX=0)THENPRINT:PRINT"Nothing inside":GOTO10000
+ 11314 IF(B$="BOX")AND(XF=1)AND(BX=0)THENPRINT:PRINT"Okay, it's open":GOTO10000
+ 11315 GOTO19010
+ 11320 IF(B$="WAL")AND(A=18)THENPRINT:PRINT"It's too steep":GOTO10000
+ 11321 IF(B$="WAL")AND(A=7)THENPRINT:PRINT"It's too steep":GOTO10000
+ 11322 IF(B$="LAD")AND(AD<>0)THENPRINT:PRINT"You have no ladder":GOTO10000
+ 11323 IF(B$="LAD")AND(A=18)THENPRINT:PRINT"Ladder is too short":GOTO10000
+ 11324 IF(B$="LAD")AND(A=7)THENPRINT:PRINT"You are out":LD=7:IC=IC-1:OP=1
+ 11325 IFOP=1THENA=6:RETURN
+ 11326 GOTO10998
+ 11340 IF(B$="GIR")AND(GL=0)THENPRINT:PRINT"Shame on you":GOTO10000  
+ 11341 IFB$="THU"THEN11343
+ 11342 PRINT:PRINT"I don't understand":GOTO10000
+ 11343 IFFK=1THENPRINT:PRINT"You've already frisked him":GOTO10000
+ 11344 IFAL=1THENPRINT:PRINT"I should subdue him first":GOTO10000
+ 11345 PRINT"I've found a pistol.It is not loaded":PU=A:FK=1:P=P+50:GOTO10000
+ 11350 IF(B$="DOG")AND(A=24)AND(AV=1)THENPRINT:PRINT"Good idea":GOTO10000 
+ 11352 IF(B$="GIR")AND(GL=0)THENPRINT:PRINT"N, I don't think so":GOTO10000
+ 11354 IF(B$="DOV")AND(DV=0)THENPRINT:PRINT"No needless violence":GOTO10000 
+ 11356 IF(B$="THU")AND(A=34)AND(AL=1)THENPRINT:PRINT"I'm game. How":GOTO11360
+ 11358 GOTO19010
+ 11360 PRINT:INPUTRR$:R$=LEFT$(RR$,3)
+ 11361 PRINT:PRINT"With what ?":PRINT:INPUTSS$:S$=LEFT$(SS$,3)
+ 11362 IFR$="STR"THEN11370
+ 11364 IFR$="STA"THEN11380
+ 11366 IFR$="HIT"THEN11390
+ 11368 IFR$="SUF"THEN11395 
+ 11369 PRINT:PRINT"Come again ?":GOTO10000
+ 11370 IF(S$="TWI")AND(TW=0)THENPRINT:PRINT"CROAK":AL=0:TW=A:IC=IC-1:P=P+50:GOTO10000
+ 11371 IF(S$="TWI")AND(TW<>0)THENPRINT:PRINT"You don't have any":GOTO10000
+ 11372 IF(S$="ROP")AND(RO=0)THENPRINT:PRINT"CROAK":AL=0:TW=A:IC=IC-1:P=P+50:GOTO10000
+ 11373 IF(S$="ROP")AND(RO<>0)THENPRINT:PRINT"You don't have any":GOTO10000 
+ 11374 IF(S$="HOS")AND(HP=0)THENPRINT:PRINT"CROAK":AL=0:HP=A:IC=IC-1:P=P+50:GOTO10000
+ 11375 IF(S$="HOS")AND(HP<>0)THENPRINT:PRINT"You don't have one":GOTO10000
+ 11376 PRINT:PRINT"Come again ?":GOTO10000
+ 11380 IF(S$="KNI")AND(KN=0)THENPRINT:PRINT"Messy":AL=0:KN=A:IC=IC-1:P=P+50:GOTO10000
+ 11381 IF(S$="KNI")AND(KN<>0)THENPRINT:PRINT"You don't have one":GOTO10000   
+ 11382 PRINT:PRINT"Come again ?":GOTO10000
+ 11390 IF(S$="CUE")AND(CU=0)THENPRINT:PRINT"KRUNCH":AL=0:CU=0:IC=IC+1:P=P+50:GOTO10000
+ 11391 IF(S$="CUE")AND(CU<>0)THENPRINT:PRINT"You don't have one":GOTO10000
+ 11392 PRINT:PRINT"You managed to wake him - he's not happy- he approaches......."
+ 11393 FORT=1TO500:NEXT:PRINT"**BANG**   you are dead":SHOOT:KT=1:GOTO30000 
+ 11395 IF(S$="BAG")AND(PL=0)THEN1398
+ 11396 IF(S$="BAG")AND(PL<>0)THENPRINT:PRINT"You don't have one":GOTO10000
+ 11397 PRINT:PRINT"What ???":GOTO10000
+ 11398 IFPF=1THENPRINT:PRINT"Your bag is full":GOTO10000
+ 11399 PRINT:PRINT"G-A-S-P !!!":AL=0:PL=A:IC=IC-1:P=P+50:GOTO10000
+ 11400 IFB$="GUN"THEN11410
+ 11401 IFB$="FUS"THEN11420
+ 11402 IFB$="BOM"THEN11430
+ 11403 IFB$="NOI"THENPRINT"I'd keep quiet if I were you":GOTO10000
+ 11404 IF(B$="GIR")AND(GF=A)THENPRINT:PRINT"Later, later":GOTO10000
+ 11405 IF(B$="GIR")AND(GF=0)THENPRINT:PRINT"Later, later":GOTO10000   
+ 11406 GOTO10998
+ 11410 IF(YP=0)AND(BD=0)THENPRINT:PRINT"Okay, gunpowder ready":P=P+100:GOTO13600 
+ 11411 IF(YP<>0)AND(BD<>0)THENPRINT:PRINT"Sorry, can't do that": GOTO10000
+ 11420 IF(TT=0)AND(PT=0)THENPRINT:PRINT"Okay, fuse ready":P=P+100:GOTO13670
+ 11421 GOTO10998
+ 11430 IF(FU=0)AND(GP=0)AND(TN=0)THENPRINT:PRINT"Bomb ready":FU=99:GP=99:TN=99:GOTO11432
+ 11431 GOTO10998
+ 11432 BM=A:IC=IC-2:EE=0:P=P+200:GOTO10000
+ 11450 IFB$="PET"THEN11452
+ 11451 GOTO19010
+ 11452 IF(PA=0)OR(A<>11)THEN10998
+ 11453 PRINT:PRINT"What shall I use?"
+ 11454 PRINT:INPUTS$:IFLEFT$(S$,3)="HOS"THEN11456
+ 11455 GOTO10998
+ 11456 IFHP<>0THENPRINT:PRINT"You don't have one":GOTO10000
+ 11457 PRINT:PRINT"Okay":PT=A:HP=A:GOTO13000
+ 11470 IFB$="PIS"THEN11472
+ 11471 GOTO10998
+ 11472 IF(PU<>0)OR(BL<>0)THEN10998
+ 11473 IFLP=0THENPRINT:PRINT"It's already loaded":GOTO10000
+ 11474 LP=0:PU=99:BL=99:PRINT:PRINT"Okay":IC=IC-1:GOTO10000
+ 11500 IF(B$="SAF")AND(OS=21)THENPRINT:PRINT"It's already open":GOTO10000
+ 11501 IF(B$="SAF")OR(B$="DOO")THEN11503
+ 11502 GOTO10998
+ 11503 IF(B$="SAF")AND(A<>21)THENPRINT:PRINT"I can't see a safe":GOTO10000
+ 11504 IF(B$="DOO")AND(A<>39)THENPRINT:PRINT"I can't see a door":GOTO10000
+ 11506 PRINT:PRINT"Using what ?":PRINT:INPUTZZ$:Z$=LEFT$(ZZ$,3) 
+ 11507 IFZ$="GUN"THEN11510
+ 11508 IFZ$="BOM"THEN11530
+ 11509 GOTO19010
+ 11510 IFGP<>0THENPRINT:PRINT"You don't have any":GOTO10000
+ 11512 PRINT:PRINT"Okay, how shall we light it?"
+ 11514 PRINT:INPUTXX$:X$=LEFT$(XX$,3)
+ 11516 IF(X$="MAT")AND(MA=0)THENMA=99:GP=99:GOTO11525
+ 11518 IF(X$="PIS")AND(LP=0)THENLP=99:PI=0:GP=99:GOTO11525
+ 11520 IF(X$="PIS")AND(PI=0)THENPRINT:PRINT"CLICK  it isn't loaded":GOTO10000
+ 11522 PRINT:PRINT"Let's try again, eh":GOTO10000
+ 11525 PRINT:PRINT"****B*O*O*O*M*M*M****":EXPLODE
+ 11527 IFX$="MAT"THENPRINT:PRINT"You have been blown to bits":KE=1:GOTO30000
+ 11528 IFX$="PIS"THENPRINT:PRINT"Lots of smoke but unsuccessful":GOTO30000
+ 11530 IFBM<>0THENPRINT:PRINT"You don't have a bomb":GOTO10000
+ 11532 PRINT:PRINT"Okay, how shall we light it?"
+ 11534 PRINT:INPUTXX$:X$=LEFT$(XX$,3)
+ 11536 IF(X$="MAT")AND(MA=0)THENMA=99:BM=99:GOTO11545
+ 11538 IF(X$="PIS")AND(LP=0)THENLP=99:PU=0:BM=99:QZ=1
+ 11539 IFQZ=1THENQZ=0:PRINT:PRINT"*BANG*BANG*BANG*":GOTO11545
+ 11540 IF(X$="PIS")AND(PU=0)THENPRINT:PRINT"CLICK  it isn't loaded":GOTO10000
+ 11542 PRINT:PRINT"Let's try again, eh":GOTO10000
+ 11545 PRINT:PRINT"****B*O*O*O*M*M*M****":EXPLODE  
+ 11546 IFB$="DOO"THENPRINT:PRINT"The door is untouched":GOTO10000
+ 11547 PRINT:PRINT"The safe is open":SB=A:SA=99:OS=21:P=P+200:GOTO10000
+ 11550 IFB$="KEY"THEN11552
+ 11551 GOTO10998
+ 11552 IFKY<>0THEN19030
+ 11553 IF(A=39)OR(A=21)OR(A=11)THEN11556
+ 11554 IFA=20THEN11560
+ 11555 PRINT:PRINT"I don't understand":GOTO10000
+ 11556 PRINT:PRINT"The keys don't fit":GOTO10000
+ 11560 PRINT:PRINT"It's open"
+ 11562 PRINT:PRINT"I see lots of lights and a red button" 
+ 11564 KY=20:IC=IC-1:CP=99:PO=20:GOTO10000
+ 11570 IFB$="NOT"THEN11572
+ 11571 GOTO11580  
+ 11572 IFN0<>0THEN19030
+ 11573 PRINT:PRINT"It says":PRINT:PRINT"For the best computer games"
+ 11574 PRINT:PRINT"         SEVERN SOFTWARE"
+ 11575 PRINT"         5, SCHOOL CRESCENT"
+ 11576 PRINT"         LYDNEY"
+ 11577 PRINT"         GLOS GL15 5TA"
+ 11578 PRINT:PRINT"         TEL(0594) 43352":GOTO10000
+ 11580 IFB$="BOO"THEN11582
+ 11581 GOTO19010
+ 11582 IFBK<>0THEN19030
+ 11583 PRINT:PRINT"I shouldn't bother":GOTO10000
+ 11600 PRINT:PRINT"Giving up ???? - are you sure ?"
+ 11602 K$=KEY$:IFK$="Y"THENGU=1:GOTO30001
+ 11604 IFK$="N"THEN15000
+ 11606 GOTO11602  
+ 11620 IFPU=0THENPRINT:PRINT"CLICK   it isn't loaded":GOTO10000
+ 11622 IF(PU<>0)AND(LP<>0)THENPRINT:PRINT"You have no gun":GOTO10000
+ 11623 PRINT:PRINT"*BANG*BANG*BANG*":LP=99:PU=0:GOSUB16000
+ 11624 IF(A=24)AND(AV=1)THENPRINT:PRINT"The dog is dead":P=P+50:AV=0
+ 11626 GOTO10000
+ 11700 IFB$="BUT"THENGOTO11702
+ 11701 PRINT:PRINT"Press what ?":GOTO10000  
+ 11702 IF(PO<>20)OR(A<>20)THEN19020
+ 11704 IFAR=1THENPRINT:PRINT"Alarm stops ringing":PING::AR=0:P=P+200:GOTO10000
+ 11706 PRINT:PRINT"Oh - nothing happened":GOTO10000
+ 12000 IF(GL=39)OR(GF=39)THENPRINT:PRINT"She cannot get through the hole":GOTO10000
+ 12004 GF=0:GOTO15000
+ 13000 PRINT:PRINT"Carry it in what?":PRINT:INPUTQQ$:Q$=LEFT$(QQ$,3):IFQ$="IN "THEN13002
+ 13001 GOTO13004
+ 13002 XX=10:L=LEN(QQ$):FORJ=1TOL:IFMID$(QQ$,J,1)=" "THENXX=J+1
+ 13003 NEXT:J$=MID$(QQ$,XX,L):Q$=LEFT$(J$,3)
+ 13004 IF(Q$="BUC")AND(BU<>0)THEN13012
+ 13005 IF(Q$="BOX")AND(BX<>0)THEN13012
+ 13006 IF(Q$="BOT")AND(SB<>0)THEN13012
+ 13007 IF(Q$="BAG")AND(PL<>0)THEN13012
+ 13008 IF(Q$="TIN")AND(TN<>0)THEN13012
+ 13009 IF(Q$="NET")AND(NE<>0)THEN13012
+ 13010 IF(Q$="BOT")AND(SB=0)THENPRINT:PRINT"Your bottle is full:GOTO10000
+ 13011 GOTO13014
+ 13012 PRINT:PRINT"You aren't carrying one":GOTO10000
+ 13014 IFB$="GUN"THEN13250
+ 13015 IFB$="WAT"THEN13020
+ 13016 IFB$="DOV"THEN13050
+ 13017 IFB$="POW"THEN13100
+ 13018 IFB$="DUS"THEN13150
+ 13019 IFB$="PET"THEN13200
+ 13020 IF(Q$="BUC")AND(BF=0)THENWA=0:BF=1:WW=1:GOTO15000
+ 13021 IF(Q$="BUC")AND(BF=1)THENPRINT:PRINT"Your bucket is full":GOTO10000
+ 13022 IF(Q$="BAG")AND(PF=0)THENWA=0:PF=1:WW=5:GOTO15000
+ 13023 IF(Q$="BAG")AND(PF=1)THEN19060 
+ 13028 IF(Q$="TIN")AND(TF=0)THENWA=0:TF=1:WW=6:GOTO15000
+ 13029 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13050 IF(Q$="BUC")AND(BF=0)THENPG=0:BF=1:PP=1:GOTO15000
+ 13051 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13052 IF(Q$="BOX")AND(XF=0)THENPG=0:XF=1:PP=2:GOTO15000
+ 13053 IF(Q$="BOX")AND(XF=1)THEN19060
+ 13054 IF(Q$="NET")AND(NF=0)THENPG=0:NF=1:PP=3:GOTO15000
+ 13055 IF(Q$="NET")AND(NF=1)THEN19060
+ 13065 GOTO19040
+ 13100 IF(Q$="BUC")AND(BF=0)THENYP=0:BF=1:Y=1:GOTO15000
+ 13101 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13102 IF(Q$="BOX")AND(XF=0)THENYP=0:XF=1:Y=2:GOTO15000
+ 13103 IF(Q$="BOX")AND(XF=1)THEN19060
+ 13108 IF(Q$="BAG")AND(PF=0)THENYP=0:PF=1:Y=5:GOTO15000
+ 13109 IF(Q$="BAG")AND(PF=1)THEN19060
+ 13110 IF(Q$="TIN")AND(TF=0)THENYP=0:TF=1:Y=6:GOTO15000
+ 13111 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13115 GOTO19040
+ 13150 IF(Q$="BUC")AND(BF=0)THENBD=0:BF=1:B=1:GOTO15000
+ 13151 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13152 IF(Q$="BOX")AND(XF=0)THENBD=0:XF=1:B=2:GOTO15000 
+ 13153 IF(Q$="BOX")AND(XF=1)THEN19060
+ 13158 IF(Q$="BAG")AND(PF=0)THENBD=0:PF=1:B=5:GOTO15000
+ 13159 IF(Q$="BAG")AND(PF=1)THEN19060
+ 13160 IF(Q$="TIN")AND(TF=0)THENBD=0:TF=1:B=6:GOTO15000
+ 13161 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13165 GOTO19040 
+ 13200 IF(Q$="BUC")AND(BF=0)THENPT=0:BF=1:G=1:GOTO13240
+ 13201 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13202 IF(Q$="BAG")AND(PF=0)THENPT=0:PF=1:G=5:GOTO13240
+ 13203 IF(Q$="BAG")AND(PF=1)THEN19060
+ 13208 IF(Q$="TIN")AND(TF=0)THENPT=0:TF=1:G=6:GOTO13240
+ 13209 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13210 GOTO19040
+ 13240 PRINT:PRINT"Okay":GOTO10000
+ 13250 IF(Q$="BUC")AND(BF=0)THENBF=1:EE=1:GP=0:IC=IC+1:GOTO13240 
+ 13251 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13252 IF(Q$="BAG")AND(PF=0)THENPF=1:EE=5:GP=0:IC=IC+1:GOTO13240
+ 13253 IF(Q$="BAG")AND(PF=1)THEN19060
+ 13254 IF(Q$="BOX")AND(XF=0)THENXF=1:EE=2:GP=0:IC=IC+1:GOTO13240
+ 13255 IF(Q$="BOX")AND(XF=1)THEN19060
+ 13258 IF(Q$="TIN")AND(TF=0)THENTF=1:EE=6:GP=0:IC=IC+1:GOTO13240 
+ 13259 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13260 GOTO19040
+ 13500 IFWW=1THENBF=0:WW=0
+ 13502 IFWW=5THENPF=0:WW=0
+ 13503 IFWW=6THENTF=0:WW=0
+ 13505 WA=99:GOTO15000
+ 13510 IFPP=1THENBF=0:PP=0
+ 13511 IFPP=2THENXF=0:PP=0
+ 13512 IFPP=3THENNF=0:PP=0
+ 13515 PG=A:GOTO15000
+ 13520 IFY=1THENBF=0:Y=0
+ 13521 IFY=2THENXF=0:Y=0
+ 13523 IFY=5THENPF=0:Y=0
+ 13524 IFY=6THENTF=0:Y=0
+ 13525 YP=A:GOTO15000
+ 13530 IFB=1THENBF=0:B=0
+ 13531 IFB=2THENXF=0:B=0
+ 13533 IFB=5THENPF=0:B=0
+ 13534 IFB=6THENTF=0:B=0
+ 13535 BD=A:GOTO15000
+ 13540 IFEE=1THENBF=0:EE=0
+ 13541 IFEE=2THENXF=0:EE=0
+ 13542 IFEE=5THENPF=0:EE=0 
+ 13544 IFEE=6THENTF=0:EE=0
+ 13545 GP=A:GOTO15000
+ 13550 IFG=1THENBF=0:G=0
+ 13553 IFG=5THENPF=0:G=0 
+ 13554 IFG=6THENTF=0:G=0
+ 13555 PT=99:GOTO15000
+ 13600 IF(Y=1)OR(B=1)THENBF=0
+ 13601 IF(Y=2)OR(B=2)THENXF=0
+ 13602 IF(Y=5)OR(B=5)THENPF=0
+ 13603 IF(Y=6)OR(B=6)THENTF=0
+ 13604 YP=99:BD=99:Y=0:B=0:GP=A:IC=IC-2:GOTO10000
+ 13660 BM=0
+ 13661 IFEE=1THENBF=0:EE=0
+ 13662 IFEE=2THENXF=0:EE=0
+ 13663 IFEE=5THENPF=0:EE=0
+ 13664 IFEE=6THENTF=0:EE=0 
+ 13669 GOTO10000
+ 13670 IFG=1THENBF=0:G=0
+ 13671 IFG=5THENPF=0:G=0
+ 13672 IFG=6THENTF=0:G=0 
+ 13674 TT=99:PT=99:G=0:FU=A:IC=IC-1:GOTO10000
+ 13700 IFWW=5THENWA=99:WW=0:GOSUB13800
+ 13701 IFB=5THENBD=A:B=0
+ 13702 IFY=5THENYP=A:Y=0
+ 13703 IFG=5THENPT=99:G=0:GOSUB13810
+ 13704 IFEE=5THENGP=A:EE=0
+ 13705 IFPF=1THENPF=0:IC=IC-1
+ 13706 GOTO15000
+ 13710 IFWW=1THENWA=99:WW=0:GOSUB13800
+ 13711 IFB=1THENBD=A:B=0
+ 13712 IFY=1THENYP=A:Y=0
+ 13713 IFG=1THENPT=99:G=0:GOSUB13810
+ 13714 IFEE=1THENGP=A:EE=0
+ 13715 IFPP=1THENPG=A
+ 13716 IFBF=1THENBF=0:IC=IC-1
+ 13717 GOTO15000
+ 13720 IFB=2THENBD=A:B=0
+ 13721 IFY=2THENYP=A:Y=0
+ 13722 IFPP=2THENPG=A:PP=0
+ 13723 IFEE=2THENGP=A:EE=0 
+ 13724 IFXF=1THENXF=0:IC=IC-1
+ 13725 GOTO15000
+ 13730 IFPP=3THENPG=A:PP=0 
+ 13731 IFNF=1THENNF=0:IC=IC-1
+ 13732 GOTO15000
+ 13740 IFWW=6THENWA=99:WW=0:GOSUB13800
+ 13741 IFB=6THENBD=A:B=0
+ 13742 IFY=6THENYP=A:Y=0
+ 13743 IFG=6THENPT=99:G=0:GOSUB13810
+ 13744 IFEE=6THENGP=A:EE=0
+ 13745 IFTF=1THENTF=0:IC=IC-1
+ 13746 GOTO15000  
+ 13800 PRINT:PRINT"The water spills out and drains away":RETURN
+ 13810 PRINT:PRINT"The petrol spills out and evaporates":RETURN 
+ 14000 CLS:PAPER6:PRINTTAB(15);"          Inventory"
+ 14001 PRINT"***********************************" 
+ 14002 IFPL=0THENPRINTTAB(13);"A plasic bag"
+ 14003 IFBD=0THENPRINTTAB(13);"Some black dust"
+ 14004 IFKY=0THENPRINTTAB(13);"A set of keys"  
+ 14005 IFPU=0THENPRINTTAB(13);"A pistol" 
+ 14006 IFYP=0THENPRINTTAB(13);"Some gritty yellow powder"
+ 14007 IFBU=0THENPRINTTAB(13);"A wooden bucket"           
+ 14008 IFRO=0THENPRINTTAB(13);"A length of rope" 
+ 14009 IFWA=0THENPRINTTAB(13);"Some water"     
+ 14010 IFPG=0THENPRINTTAB(13);"A large dove"
+ 14011 IFBL=0THENPRINTTAB(13);"3 bullets"    
+ 14012 IFKN=0THENPRINTTAB(13);"A silver knife"
+ 14013 IFTW=0THENPRINTTAB(13);"Some twine"     
+ 14014 IFME=0THENPRINTTAB(13);"Some meat" 
+ 14015 IFNO=0THENPRINTTAB(13);"A printed note"
+ 14016 IFMA=0THENPRINTTAB(13);"A box of matches"
+ 14017 IFCU=0THENPRINTTAB(13);"A snooker cue"   
+ 14018 IFBK=0THENPRINTTAB(13);"A large book" 
+ 14019 IFLD=0THENPRINTTAB(13);"A ladder"     
+ 14020 IFBR=0THENPRINTTAB(13);"Some brown bread"
+ 14021 IFTP=0THENPRINTTAB(13);"a roll of sticky tape"
+ 14022 IFGP=0THENPRINTTAB(13);"Some gunpowder"       
+ 14023 IFTT=0THENPRINTTAB(13);"Some toilet tissue"
+ 14024 IFPT=0THENPRINTTAB(13);"Some petrol"       
+ 14025 IFHP=0THENPRINTTAB(13);"A hose-pipe"
+ 14026 IFGL=0THENPRINTTAB(13);"A girl"     
+ 14027 IFDG=0THENPRINTTAB(13);"A dead dog"
+ 14028 IFBB=0THENPRINTTAB(13);"Some broken glass"
+ 14029 IFBX=0THENPRINTTAB(13);"A cardboard box"  
+ 14030 IFNE=0THENPRINTTAB(13);"A fishing net"  
+ 14031 IFSB=0THENPRINTTAB(13);"A small bottle"
+ 14032 IFTN=0THENPRINTTAB(13);"A tobacco tin" 
+ 14034 IFBM=0THENPRINTTAB(13);"A bomb"        
+ 14035 IFLP=0THENPRINTTAB(13);"A loaded pistol"
+ 14036 IFFU=0THENPRINTTAB(13);"A fuse"         
+ 14100 PRINT"***********************************":RETURN 
+ 14999 PRINT:PRINT"Alarm starts ringing"                
+ 15000 IFA$="GET"THENIC=IC+1
+ 15001 IFA$="MAK"THENIC=IC-2
+ 15002 IFA$="DRO"THENIC=IC-1:PRINT:PRINT"Okay":GOTO10000
+ 15003 IFA$="THR"THENIC=IC-1
+ 15005 N=0:S=0:E=0:W=0:U=0:D=0:PRINT:PRINT"Okay":IT=0:RETURN  
+ 15100 IFIC>7THENPRINT:PRINT"You will have to DROP something":D9=1
+ 15101 RETURN
+ 16000 SHOOT:WAIT25:SHOOT:WAIT25:SHOOT:RETURN
+ 17000 PLAY3,2,4,1 
+ 19000 PRINT:PRINT"*CRASH*TINKLE* There is a funny smell.":AB=A
+ 19005 BB=A:SB=99:RETURN
+ 19010 PRINT:PRINT"Eh ??":GOTO10000
+ 19020 PRINT:PRINT"I can't see ";BB$;" anywhere":GOTO10000 
+ 19030 PRINT:PRINT"Don't have ";BB$;" - check inventory":GOTO10000
+ 19040 PRINT:PRINT"Don't be ridiculous"
+ 19041 IFPT=ATHENPT=99
+ 19042 GOTO10000
+ 19050 PRINT:PRINT"Abuse will get you nowhere":GOTO10000
+ 19060 PRINT:PRINT"Sorry, that's full":GOTO10000         
+ 30000 FORT=1TO500:NEXT
+ 30001 FORLF=1TO24:PRINT:NEXT
+ 30002 IFKD=1THENKL$="dog":NM=NM*5
+ 30003 IFKT=1THENKL$="thug":NM=NM*4    
+ 30004 IFKE=1THENKL$="explosion":NM=NM*3
+ 30005 IFGU=1THENPRINT:PRINT"You were unable to complete your task":NM=NM*10
+ 30006 IF(GU=1)AND(NM<502)THENNM=502
+ 30007 IFGU=1THEN30020
+ 30008 IFOT=1THENPRINT:PRINT"You have made your 500 moves":GOTO30020
+ 30010 CLS:PRINT:PRINT"You have been killed by the ";KL$:GOTO30020 
+ 30020 PRINT:PRINT:PRINT"Game score     ";P-NM" points"
+ 30030 PRINT:PRINT:PRINT"Do you want to try again ?"
+ 30032 FORT=1TO15:PRINT:NEXT
+ 30035 K$=KEY$:IFK$="Y"THENRUN:GOTO100
+ 30036 IFK$="N"THEN40000
+ 30037 GOTO30035
+ 31000 FORT=1TO250:NEXT:FORT=1TO22:PRINT:NEXT
+ 31002 PRINT:PRINT:PRINT"and you have made it - WELL DONE":P=P+200:GOTO30020
+ 32000 FORT=1TO500:NEXT  
+ 32001 FORLF=1TO24:PRINT:PRINT:NEXT
+ 32005 PRINT"You failed to silence the alarm" 
+ 32006 PRINT"in time and have been captured.":NM=NM*2:GOTO30020
+ 40000 CLS:PRINT:PRINT:PRINT"If you have enjoyed this game, why not"
+ 40001 PRINT" send for our list"
+ 40002 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"         SEVERN SOFTWARE"
+ 40003 PRINT"         5, SCHOOL CRESCENT"
+ 40004 PRINT"         LYDNEY"
+ 40005 PRINT"         GLOS GL15 5TA"
+ 40006 PRINT"         TEL(0594) 43352"
+ 40018 REM FORT=1TO1000:NEXT:PING
+ 40019 PRINT:PRINT:PRINT:PRINT:PRINT"***********************************" 
+ 40020 PRINT"Any key to clear or 'R' to re-start"
+ 40021 GETK$
+ 40022 IFK$="R"THENRUN
+ 40023 CLS:END
\ No newline at end of file
diff --git a/encounter/oric/encounter v1.bas b/encounter/oric/encounter v1.bas
new file mode 100644
index 0000000..df68e3d
--- /dev/null
+++ b/encounter/oric/encounter v1.bas	
@@ -0,0 +1,1005 @@
+ 15 Z$=" "+CHR$(27)
+ 16 PAPER3:INK4
+ 20 CLS:FORT=1TO4:PRINTZ$"A          ***********"
+ 22 PRINTZ$"D          *Encounter*":PRINTZ$"D          *Adventure*"
+ 23 PRINTZ$"A          ***********":PRINT:NEXT
+ 24 PRINT"     ***************************"
+ 25 PRINT"     *Copyright SEVERN SOFTWARE*"
+ 26 PRINT"     ***************************"
+ 28 PRINT:PRINT"  Press any key when you are ready"
+ 30 GETK$
+ 31 CLS:PRINTZ$"AEncounter - A Guide":PING:FORT=1TO300:NEXT:PING 
+ 32 PRINT:PRINT"Your task is to find and rescue a"
+ 33 PRINT"young girl kidnapped by thugs."
+ 34 PRINT:PRINT"Everything you need is here but you" 
+ 35 PRINT"may have to manufacture some items."
+ 36 PRINT:PRINT"CLUE  chemistry knowledge helps."
+ 37 PRINT:PRINT"        Single letter COMMANDS"
+ 38 PRINT:PRINT"  eg    N for North  U for UP" 
+ 39 PRINT" PLUS   L for look   I for inventory"
+ 40 PRINT:PRINT"Most other commands are VERB followed"
+ 41 PRINT"by NOUN (eg EMPTY BOTTLE). These may"
+ 42 PRINT"be typed in as 3 letter abbreviations for instance EMP BOT"
+ 43 PRINT:PRINT"If the computer can't understand your" 
+ 44 PRINT"command, re-phrase it. You will soon"
+ 45 PRINT"learn the accepted vocabulary."
+ 46 PRINT:PRINT"      Press any key to continue"
+ 47 GETK$
+ 48 CLS:PRINTZ$"AEncounter - A Guide":PING:FORT=1TO300:NEXT:PING 
+ 50 PRINT:PRINT"If the alarm rings, you have twenty"
+ 51 PRINT"moves to stop it before you're caught." 
+ 52 PRINT:PRINT"HINT  make a map as you travel noting" 
+ 53 PRINT"      what you find and where."  
+ 54 PRINT:PRINT"The time limit is 500 moves."
+ 55 PRINT:PRINT"Common commands - GET DROP THROW KILL" 
+ 56 PRINT"                  HIT MAKE CLIMB QUIT"
+ 57 PRINT:PRINT"Only use QUIT if you wish to give up."
+ 58 PRINT:PRINT"Don't worry if you fail first time -  WE EXPECT YOU TO!!!!"
+ 59 PRINT:PRINT"Telephoning SEVERN SOFTWARE for help  is forbidden."
+ 60 PRINT:PRINT:PRINT"        Press any key to start"
+ 62 GETK$
+ 63 PAPER2:INK0
+ 65 CLS:FORT=1TO10:PING:NEXT
+ 100 CLS:PL=3:BD=4:KY=5:YP=7:BU=8:RO=8:WA=8:PG=9:BX=14:TW=14:KN=16:NE=17
+ 101 LD=19:CR=11:BL=20:ME=26:BR=26:TN=23:DG=24:AV=1:TP=25:BK=25:MA=30:CU=28
+ 102 SA=21:NO=38:GL=43:TT=36:TG=34:AL=1:SB=99:SF=1:HP=12:PT=99:GP=99:FU=99
+ 103 AC=99:PU=99:AB=99:BB=99:BM=99:LP=99:HD=99:OS=99:GF=99:CP=20:PO=99
+ 1000 A=1:PRINT:PRINT"You are in a deserted market square":IF GL=0THEN31000
+ 1001 GOSUB9000:PRINT"Exits lead North and East"        
+ 1003 N=1:E=1:GOSUB10000
+ 1004 IFLEFT$(A$,1)="L"THEN1000
+ 1006 IFLEFT$(A$,1)="N"THEN1030
+ 1007 IFLEFT$(A$,1)="E"THEN1010
+ 1009 GOTO1003
+ 1010 A=2:PRINT:PRINT" You are in a dark, seedy alley."
+ 1011 GOSUB9000
+ 1012 PRINT" Exits lead North, East and West."
+ 1013 N=1:E=1:W=1:GOSUB10000
+ 1014 IFLEFT$(A$,1)="L"THEN1010
+ 1015 IFLEFT$(A$,1)="N"THEN1040
+ 1016 IFLEFT$(A$,1)="E"THEN1020
+ 1017 IFLEFT$(A$,1)="W"THEN1000
+ 1019 GOTO1013
+ 1020 A=3:PRINT:PRINT"A long road stretches ahead of you."
+ 1021 GOSUB9000
+ 1022 PRINT"Exits lead North and West."
+ 1023 N=1:W=1:GOSUB10000
+ 1024 IFLEFT$(A$,1)="L"THEN1020
+ 1025 IFLEFT$(A$,1)="N"THEN1050
+ 1026 IFLEFT$(A$,1)="W"THEN1010
+ 1029 GOTO1023
+ 1030 A=4:PRINT:PRINT"You are in a dark, damp tunnel."
+ 1031 GOSUB9000
+ 1032 PRINT"Exits lead North and South."
+ 1033 N=1:S=1:GOSUB10000
+ 1034 IFLEFT$(A$,1)="L"THEN1030
+ 1035 IFLEFT$(A$,1)="N"THEN1080
+ 1036 IFLEFT$(A$,1)="S"THEN1000
+ 1039 GOTO1033
+ 1040 A=5:PRINT:PRINT"You are on the main street."
+ 1041 GOSUB9000
+ 1042 PRINT"Exits lead North, South and East."
+ 1043 N=1:S=1:E=1:GOSUB10000
+ 1044 IFLEFT$(A$,1)="L"THEN1040
+ 1045 IFLEFT$(A$,1)="N"THEN1090
+ 1046 IFLEFT$(A$,1)="S"THEN1010
+ 1047 IFLEFT$(A$,1)="E"THEN1050
+ 1049 GOTO1043
+ 1050 A=6:PRINT:PRINT"You are on a narrow path."
+ 1051 GOSUB9000
+ 1052 PRINT"Exits lead North, South, East and West."
+ 1053 N=1:S=1:E=1:W=1:GOSUB10000
+ 1054 IFLEFT$(A$,1)="L"THEN1050
+ 1055 IFLEFT$(A$,1)="N"THEN1100
+ 1056 IFLEFT$(A$,1)="S"THEN1020
+ 1057 IFLEFT$(A$,1)="E"THEN1060
+ 1058 IFLEFT$(A$,1)="W"THEN1040
+ 1059 GOTO1053
+ 1060 A=7:PRINT:PRINT"You have fallen into a deep pit"
+ 1061 GOSUB9000
+ 1062 PRINT"There seems to be no way out."
+ 1063 GOSUB10000
+ 1064 IFLEFT$(A$,1)="L"THEN1060
+ 1065 IFOP=1THENOP=0:GOTO1050
+ 1069 GOTO1063
+ 1070 A=8:PRINT:PRINT"You are near to an old-fashioned well."
+ 1071 GOSUB9000
+ 1072 PRINT"Exit to the East only."
+ 1073 E=1:GOSUB10000
+ 1074 IFLEFT$(A$,1)="L"THEN1070
+ 1077 IFLEFT$(A$,1)="E"THEN1080
+ 1079 GOTO1073
+ 1080 A=9:PRINT:PRINT"You are in a dark forest."
+ 1081 GOSUB9000
+ 1082 PRINT"Exits lead North, South, East and West."
+ 1083 N=1:S=1:E=1:W=1:GOSUB10000
+ 1084 IFLEFT$(A$,1)="L"THEN1080
+ 1085 IFLEFT$(A$,1)="N"THEN1110
+ 1086 IFLEFT$(A$,1)="S"THEN1030
+ 1087 IFLEFT$(A$,1)="E"THEN1090
+ 1088 IFLEFT$(A$,1)="W"THEN1070
+ 1089 GOTO1083
+ 1090 A=10:PRINT:PRINT"You are on a wide gravel drive"
+ 1091 GOSUB9000
+ 1092 PRINT"Exits lead North, South, East and West."
+ 1093 N=1:S=1:E=1:W=1:GOSUB10000
+ 1094 IFLEFT$(A$,1)="L"THEN1090
+ 1095 IFLEFT$(A$,1)="N"THEN1120
+ 1096 IFLEFT$(A$,1)="S"THEN1040
+ 1097 IFLEFT$(A$,1)="E"THEN1100
+ 1098 IFLEFT$(A$,1)="W"THEN1080
+ 1099 GOTO1093
+ 1100 A=11:PRINT:PRINT"You are in an open area of tarmac"
+ 1101 GOSUB9000
+ 1102 PRINT"Exits lead North, South and West."
+ 1103 N=1:S=1:W=1:GOSUB10000
+ 1104 IFLEFT$(A$,1)="L"THEN1100
+ 1105 IFLEFT$(A$,1)="N"THEN1130
+ 1106 IFLEFT$(A$,1)="S"THEN1050
+ 1108 IFLEFT$(A$,1)="W"THEN1090
+ 1109 GOTO1103
+ 1110 A=12:PRINT:PRINT"You are in a beautiful garden"
+ 1111 GOSUB9000
+ 1112 PRINT"Exits lead North, South and East"
+ 1113 N=1:S=1:E=1:GOSUB10000
+ 1114 IFLEFT$(A$,1)="L"THEN1110
+ 1115 IFLEFT$(A$,1)="N"THEN1140
+ 1116 IFLEFT$(A$,1)="S"THEN1080
+ 1117 IFLEFT$(A$,1)="E"THEN1120
+ 1119 GOTO1113
+ 1120 A=13:PRINT:PRINT"You are on a huge area of lawn"
+ 1121 GOSUB9000 
+ 1122 PRINT"Exits lead North, South and East."
+ 1123 N=1:S=1:E=1:GOSUB10000
+ 1124 IFLEFT$(A$,1)="L"THEN1120
+ 1125 IF(LEFT$(A$,1)="N")AND(LD=0)THENPRINT"DROP something first":GOTO1123
+ 1126 IFLEFT$(A$,1)="N"THEN1200
+ 1127 IFLEFT$(A$,1)="S"THEN1090
+ 1128 IFLEFT$(A$,1)="E"THEN1130 
+ 1129 GOTO1123
+ 1130 A=14:PRINT:PRINT"You are in a small greenhouse"
+ 1131 GOSUB9000 
+ 1132 PRINT"Exits lead North, South and West."
+ 1133 N=1:S=1:W=1:GOSUB10000
+ 1134 IFLEFT$(A$,1)="L"THEN1130
+ 1135 IFLEFT$(A$,1)="N"THEN1150
+ 1136 IFLEFT$(A$,1)="S"THEN1100
+ 1138 IFLEFT$(A$,1)="W"THEN1120
+ 1139 GOTO1133
+ 1140 A=15:PRINT:PRINT"You are on a lawn tennis court."
+ 1141 GOSUB9000
+ 1142 PRINT"Exits lead North and South."
+ 1143 N=1:S=1:GOSUB10000
+ 1144 IFLEFT$(A$,1)="L"THEN1140
+ 1145 IFLEFT$(A$,1)="N"THEN1160
+ 1146 IFLEFT$(A$,1)="S"THEN1110
+ 1149 GOTO1143
+ 1150 A=16:PRINT:PRINT"You are in a vegetable plot."
+ 1151 GOSUB9000
+ 1152 PRINT"Exits lead North snd South."
+ 1153 N=1:S=1:GOSUB10000
+ 1154 IFLEFT$(A$,1)="L"THEN1150
+ 1155 IFLEFT$(A$,1)="N"THEN1180
+ 1156 IFLEFT$(A$,1)="S"THEN1130
+ 1159 GOTO1153
+ 1160 A=17:PRINT:PRINT"You are standing by a fish pond."
+ 1161 GOSUB9000
+ 1162 PRINT"Exits lead South and East."
+ 1163 S=1:E=1:GOSUB10000
+ 1164 IFLEFT$(A$,1)="L"THEN1160
+ 1166 IFLEFT$(A$,1)="S"THEN1140
+ 1167 IFLEFT$(A$,1)="E"THEN1170
+ 1169 GOTO1163
+ 1170 A=18:PRINT:PRINT"You are on a tiled patio and above it is a barred window" 
+ 1171 GOSUB9000
+ 1172 PRINT"Exits lead South, East and West."
+ 1173 S=1:E=1:W=1:GOSUB10000
+ 1174 IFLEFT$(A$,1)="L"THEN1170
+ 1175 IF(LEFT$(A$,1)="S")AND(LD=0)THENPRINT"DROP something first":GOTO1173
+ 1176 IFLEFT$(A$,1)="S"THEN1280
+ 1177 IFLEFT$(A$,1)="E"THEN1180
+ 1178 IFLEFT$(A$,1)="W"THEN1160
+ 1179 GOTO1173
+ 1180 A=19:PRINT:PRINT"You are in an apple orchard."
+ 1181 GOSUB9000
+ 1182 PRINT"Exits lead South and West."
+ 1183 S=1:W=1:GOSUB10000
+ 1184 IFLEFT$(A$,1)="L"THEN1180
+ 1186 IFLEFT$(A$,1)="S"THEN1150
+ 1188 IFLEFT$(A$,1)="W"THEN1170
+ 1189 GOTO1183
+ 1190 A=23:PRINT:PRINT"You are in the lounge."
+ 1191 GOSUB9000
+ 1192 PRINT"Exits lead North and East."
+ 1193 N=1:E=1:GOSUB10000
+ 1194 IFLEFT$(A$,1)="L"THEN1190
+ 1195 IFLEFT$(A$,1)="N"THEN1230
+ 1197 IFLEFT$(A$,1)="E"THEN1200
+ 1198 GOTO1193
+ 1200 A=24:PRINT:PRINT"You are in an imposing entrance hall"
+ 1201 GOSUB9000:IFAV=1THEN9100
+ 1202 PRINT"Exits lead North, South, West and up." 
+ 1203 DB=0:N=1:S=1:W=1:U=1:GOSUB10000
+ 1204 IFLEFT$(A$,1)="L"THEN1200
+ 1205 IFLEFT$(A$,1)="N"THEN1250
+ 1206 IFLEFT$(A$,1)="S"THEN1120
+ 1207 IFLEFT$(A$,1)="U"THEN1240
+ 1208 IFLEFT$(A$,1)="W"THEN1190
+ 1209 GOTO1203
+ 1210 A=25:PRINT:PRINT"This looks like a library." 
+ 1211 GOSUB9000
+ 1212 PRINT"The only exit is West."
+ 1213 W=1:GOSUB10000
+ 1214 IFLEFT$(A$,1)="L"THEN1210 
+ 1218 IFLEFT$(A$,1)="W"THEN1250
+ 1219 GOTO1213
+ 1230 A=26:PRINT:PRINT"A dining room, or so it appears" 
+ 1231 GOSUB9000
+ 1232 PRINT"Exits lead North and South."
+ 1233 N=1:S=1:GOSUB10000
+ 1234 IFLEFT$(A$,1)="L"THEN1230
+ 1235 IFLEFT$(A$,1)="N"THEN1270
+ 1236 IFLEFT$(A$,1)="S"THEN1190
+ 1239 GOTO1233
+ 1240 A=27:PRINT:PRINT"You are on a sweeping staircase"
+ 1241 GOSUB9000
+ 1242 PRINT"Choose up or down."
+ 1243 U=1:D=1:GOSUB10000
+ 1244 IFLEFT$(A$,1)="L"THEN1240
+ 1245 IFLEFT$(A$,1)="U"THEN1410
+ 1246 IFLEFT$(A$,1)="D"THEN1200
+ 1249 GOTO1243
+ 1250 A=31:PRINT:PRINT"You are in a narrow passage"
+ 1251 GOSUB9000
+ 1252 PRINT"Exits lead North, South and East."
+ 1253 N=1:S=1:E=1:GOSUB10000
+ 1254 IFLEFT$(A$,1)="L"THEN1250
+ 1255 IFLEFT$(A$,1)="N"THEN1280
+ 1256 IFLEFT$(A$,1)="S"THEN1200
+ 1257 IFLEFT$(A$,1)="E"THEN1210
+ 1259 GOTO1253
+ 1260 A=22:PRINT:PRINT"You are on some gloomy, narrow steps."
+ 1261 GOSUB9000
+ 1262 PRINT"Choose up or down."
+ 1263 U=1:D=1:GOSUB10000
+ 1264 IFLEFT$(A$,1)="L"THEN1260
+ 1265 IFLEFT$(A$,1)="U"THEN1290
+ 1266 IFLEFT$(A$,1)="D"THEN1300
+ 1269 GOTO1263
+ 1270 A=28:PRINT:PRINT"This looks like a games room."
+ 1271 GOSUB9000         
+ 1272 PRINT"Exits lead South and East."
+ 1273 S=1:E=1:GOSUB10000
+ 1274 IFLEFT$(A$,1)="L"THEN1270
+ 1276 IFLEFT$(A$,1)="S"THEN1230
+ 1277 IFLEFT$(A$,1)="E"THEN1280
+ 1279 GOTO1273
+ 1280 A=29:PRINT:PRINT"You find yourself in a sun-lounge."
+ 1281 GOSUB9000
+ 1282 PRINT"Exits lead North, South, East and West."
+ 1283 N=1:S=1:E=1:W=1:GOSUB10000
+ 1284 IFLEFT$(A$,1)="L"THEN1280
+ 1285 IFLEFT$(A$,1)="N"THEN1170
+ 1286 IFLEFT$(A$,1)="S"THEN1250
+ 1287 IFLEFT$(A$,1)="E"THEN1290
+ 1288 IFLEFT$(A$,1)="W"THEN1270
+ 1289 GOTO1283
+ 1290 A=30:PRINT:PRINT"This is obviously the kitchen."
+ 1291 GOSUB9000
+ 1292 PRINT"Exits lead West and down."
+ 1293 W=1:D=1:GOSUB10000
+ 1294 IFLEFT$(A$,1)="L"THEN1290
+ 1296 IFLEFT$(A$,1)="D"THEN1260
+ 1298 IFLEFT$(A$,1)="W"THEN1280
+ 1299 GOTO1293
+ 1300 A=21:PRINT:PRINT"This is a cold, damp cellar"
+ 1301 GOSUB9000
+ 1302 PRINT"Exits lead South and up."        
+ 1303 S=1:U=1:GOSUB10000
+ 1304 IFLEFT$(A$,1)="L"THEN1300
+ 1306 IFLEFT$(A$,1)="S"THEN1310
+ 1307 IFLEFT$(A$,1)="U"THEN1260
+ 1309 GOTO1303
+ 1310 A=20:PRINT:PRINT"This room is even darker than the last"
+ 1311 GOSUB9000
+ 1312 PRINT"The only way out is North"
+ 1313 N=1:GOSUB10000
+ 1314 IFLEFT$(A$,1)="L"THEN1310
+ 1315 IFLEFT$(A$,1)="N"THEN1300
+ 1319 GOTO1313
+ 1320 A=32:PRINT:PRINT"This seems to bea quest bedroom"
+ 1321 GOSUB9000
+ 1322 PRINT"The only exit it North."
+ 1323 N=1:GOSUB10000
+ 1324 IFLEFT$(A$,1)="L"THEN1320
+ 1325 IFLEFT$(A$,1)="N"THEN1400
+ 1329 GOTO1323
+ 1330 A=33:PRINT:PRINT"This is a child's bedroom"
+ 1331 GOSUB9000
+ 1332 PRINT"Exit to the North only."
+ 1333 N=1:GOSUB10000
+ 1334 IFLEFT$(A$,1)="L"THEN1330
+ 1335 IFLEFT$(A$,1)="N"THEN1360
+ 1339 GOTO1333
+ 1340 A=34:PRINT:PRINT"This must be the master bedroom"
+ 1341 GOSUB9000
+ 1342 PRINT"Exits lead North and West."
+ 1343 N=1:W=1:GOSUB10000
+ 1344 IFLEFT$(A$,1)="L"THEN1340
+ 1345 IFLEFT$(A$,1)="N"THEN1370
+ 1348 IFLEFT$(A$,1)="W"THEN1360
+ 1349 GOTO1343
+ 1350 A=35:PRINT:PRINT"You are in a tiled shower-room"
+ 1351 GOSUB9000
+ 1352 PRINT"Exit to the North only."
+ 1353 N=1:GOSUB10000
+ 1354 IFLEFT$(A$,1)="L"THEN1350
+ 1356 IFLEFT$(A$,1)="N"THEN1380
+ 1359 GOTO1353
+ 1360 A=37:PRINT:PRINT"You have found the east gallery"
+ 1361 GOSUB9000
+ 1362 PRINT"Exits North, South, East and West."
+ 1363 N=1:S=1:E=1:W=1:GOSUB10000
+ 1364 IFLEFT$(A$,1)="L"THEN1360
+ 1365 IFLEFT$(A$,1)="N"THEN1390
+ 1366 IFLEFT$(A$,1)="S"THEN1330
+ 1367 IFLEFT$(A$,1)="E"THEN1340
+ 1368 IFLEFT$(A$,1)="W"THEN1410
+ 1369 GOTO1363
+ 1370 A=36:PRINT:PRINT"This is a tiny toilet"
+ 1371 GOSUB9000
+ 1372 PRINT"Exit to the South only."
+ 1373 S=1:GOSUB10000
+ 1374 IFLEFT$(A$,1)="L"THEN1370
+ 1376 IFLEFT$(A$,1)="S"THEN1340
+ 1379 GOTO1373
+ 1380 A=38:PRINT:PRINT"This is a small box-room"
+ 1381 GOSUB9000
+ 1382 PRINT"Exits to the South and East."
+ 1383 S=1:E=1:GOSUB10000
+ 1384 IFLEFT$(A$,1)="L"THEN1380
+ 1385 IFLEFT$(A$,1)="S"THEN1350
+ 1386 IFLEFT$(A$,1)="E"THEN1400
+ 1389 GOTO1383
+ 1390 A=40:PRINT:PRINT"You are in an ornate bathroom"
+ 1391 GOSUB9000
+ 1392 PRINT"Exit to the South only."
+ 1393 S=1:GOSUB10000
+ 1394 IFLEFT$(A$,1)="L"THEN1390
+ 1396 IFLEFT$(A$,1)="S"THEN1360
+ 1399 GOTO1393
+ 1400 A=41:PRINT:PRINT"This is the west gallery"
+ 1401 GOSUB9000
+ 1402 PRINT"Exits lead North, South, East and West."
+ 1403 N=1:S=1:E=1:W=1:GOSUB10000
+ 1404 IFLEFT$(A$,1)="L"THEN1400
+ 1405 IFLEFT$(A$,1)="N"THEN1420
+ 1406 IFLEFT$(A$,1)="S"THEN1320
+ 1407 IFLEFT$(A$,1)="E"THEN1410
+ 1408 IFLEFT$(A$,1)="W"THEN1380
+ 1409 GOTO1403
+ 1410 A=42:PRINT:PRINT"You are on the main landing"
+ 1411 GOSUB9000
+ 1412 PRINT"Exits lead East, West and down."
+ 1413 E=1:W=1:D=1:GOSUB10000
+ 1414 IFLEFT$(A$,1)="L"THEN1410
+ 1416 IFLEFT$(A$,1)="W"THEN1400
+ 1417 IFLEFT$(A$,1)="E"THEN1360
+ 1418 IFLEFT$(A$,1)="D"THEN1240
+ 1419 GOTO1413
+ 1420 A=39:PRINT:PRINT"You have reached a steel-plated door. It is padlocked."
+ 1421 GOSUB9000
+ 1422 PRINT"You can return to the South"
+ 1423 S=1:GOSUB10000
+ 1424 IFLEFT$(A$,1)="L"THEN1420
+ 1426 IFLEFT$(A$,1)="S"THEN1400
+ 1429 GOTO1423
+ 1604 IFK$="N"THEN15000
+ 9000 IT=0:PRINT"I can see ";:IFWB=ATHENPRINT"the window is broken"
+ 9001 IFOS=ATHENPRINT"an open safe":IT=1
+ 9002 IFPL=ATHENPRINT"a plastic bag":IT=1
+ 9003 IFBD=ATHENPRINT"black dust":IT=1
+ 9004 IFPO=ATHENPRINT"an open panel on wall":IT=1
+ 9005 IFCP=ATHENPRINT"a locked panel on the wall":IT=1
+ 9006 IFYP=ATHENPRINT"gritty yellow powder":IT=1
+ 9007 IFBU=ATHENPRINT"a wooden bucket":IT=1
+ 9008 IFHD=ATHENPRINT"a small hole in the door":IT=1
+ 9009 IFWA=ATHENPRINT"some water":IT=1
+ 9010 IFPG=ATHENPRINT"a large dove":IT=1
+ 9011 IFBX=ATHENPRINT"a cardboard box":IT=1
+ 9012 IFTW=ATHENPRINT"some twine":IT=1
+ 9013 IFKN=ATHENPRINT"a silver knife":IT=1
+ 9014 IFNE=ATHENPRINT"a fishing net":IT=1
+ 9015 IFLD=ATHENPRINT"a long ladder":IT=1
+ 9016 IFCR=ATHENPRINT"an abandoned car":IT=1
+ 9017 IFBL=ATHENPRINT"three .38 bullets":IT=1
+ 9018 IFME=ATHENPRINT"a joint of meat":IT=1
+ 9019 IFBR=ATHENPRINT"some brown bread":IT=1
+ 9020 IFTN=ATHENPRINT"an empty tobacco tin":IT=1
+ 9021 IF(DG=A)AND(AV=1)THENPRINT"an alsatian growling at you":IT=1
+ 9022 IF(DG=A)AND(AV=0)THENPRINT"the body of an alsatian dog":IT=1
+ 9023 IFTP=ATHENPRINT"a roll of sticky tape":IT=1
+ 9024 IFBK=ATHENPRINT"an open book":IT=1 
+ 9025 IFMA=ATHENPRINT"a box of matches":IT=1
+ 9026 IFCU=ATHENPRINT"a snooker cue":IT=1
+ 9027 IFLP=ATHENPRINT"a loaded pistol":IT=1
+ 9028 IFSA=ATHENPRINT"a heavy safe":IT=1
+ 9029 IFNO=ATHENPRINT"a printed note":IT=1
+ 9030 IFRH=ATHENPRINT"a rope hangs from the window":IT=1:RO=99
+ 9031 IFGL=ATHENPRINT"a young girl tied up on the floor":IT=1
+ 9032 IFTT=ATHENPRINT"a roll of toilet tissue":IT=1 
+ 9033 IF(TG=A)AND(AL=1)THENPRINT"a thug asleep on the bed":IT=1
+ 9034 IF(TG=A)AND(AL=0)THENPRINT"a thug lying dead on the bed":IT=1
+ 9036 IFHP=ATHENPRINT"a hose-pipe":IT=1
+ 9037 IFPT=ATHENPRINT"some petrol":IT=1
+ 9038 IFBB=ATHENPRINT"broken glass":IT=1
+ 9039 IFAB=ATHENPRINT"an acid burn":IT=1
+ 9040 IFSB=ATHENPRINT"a small bottle":IT=1
+ 9041 IFGF=ATHENPRINT"a young girl":IT=1
+ 9042 IF(CU=43)AND(HD=39)THENPRINT"a cue on the floor":IT=1
+ 9043 IFRO=ATHENPRINT"a length of rope":IT=1
+ 9044 IFFU=ATHENPRINT"a fuse":IT=1
+ 9045 IFGP=ATHENPRINT"some gunpowder":IT=1
+ 9046 IFKY=ATHENPRINT"a set of keys":IT=1
+ 9047 IFPU=ATHENPRINT"a pistol":IT=1
+ 9048 IFBM=ATHENPRINT"a bomb":IT=1
+ 9098 IFIT=0THENPRINT"nothing of interest here"
+ 9099 PRINT:RETURN
+ 9100 GOSUB10000
+ 9101 IF(AV=1)AND(DB=0)THENPRINT:PRINT"AAAAAARRRGGGHHHH - he got you":KD=1:GOTO30000
+ 9102 PRINT:GOTO1202
+ 10000 IFAR=1THENPRINT:PRINTTAB(20)"ALARM RINGING":IFTM>19THEN32000 
+ 10001 IFOT=1THEN31001
+ 10002 PRINT:PRINT"What are you going to do now ?":NM=NM+1:IFNM>NM499THENOT=1
+ 10003 AA$="":BB$="":A$="":B$="":PRINT:INPUTQ$:PAPER2
+ 10004 PRINTTAB(29);"Moves ";NM 
+ 10006 IFAR=1THENTM=TM+1:PRINTTAB(29);"Alarm ";20-TM 
+ 10007 XX=10
+ 10008 L=LEN(Q$)
+ 10009 FORJ=1TOL
+ 10010 IFMID$(Q$,J,1)=" "THENXX=J+1
+ 10012 NEXT
+ 10014 BB$=MID$(Q$,XX,L):AA$=LEFT$(Q$,XX-2)
+ 10015 B$=LEFT$(BB$,3):A$=LEFT$(AA$,3)
+ 10016 IF(AA$="LOST")OR(BB$="LOST")THENPRINT:PRINT"I'm fed up too":GOTO10000
+ 10017 IFAA$="SHOUT"THENPRINT:PRINT"I've already got a headache":GOTO10000
+ 10018 IF(AA$="HOTWIRE")OR(AA$="STEAL")THENPRINT"Let's keep it legal":GOTO10000
+ 10019 IFB$="OFF"THENPRINT:PRINT"I'm going to ignore that":GOTO10000
+ 10050 IFA$="GET"THEN11000
+ 10051 IFA$="EMP"THENPRINT:PRINT"Use the DROP command":GOTO10000
+ 10053 IFA$="DRO"THEN11100
+ 10054 IFA$="THR"THEN11200 
+ 10055 IFA$="KIL"THEN11350
+ 10056 IFA$="OPE"THEN11300
+ 10057 IFA$="CLI"THEN11320
+ 10058 IFA$="FRI"THEN11340
+ 10059 IFA$="MAK"THEN11400
+ 10060 IF(A$="SYP")OR(A$="SIP")THEN11450
+ 10061 IFA$="LOA"THEN11470
+ 10062 IF(A$="BLO")OR(A$="EXP")THEN11500
+ 10063 IFA$="USE"THEN11550
+ 10064 IF(A$="STA")AND(A=11)THENPRINT:PRINT"How ?":GOTO10002
+ 10065 IFA$="REA"THEN11570
+ 10066 IFA$="QUI"THEN11600
+ 10067 IFA$="SHO"THEN11620
+ 10068 IFA$="PRE"THEN11700
+ 10069 IFA$="HEL"THENPRINT:PRINT"It's no use shouting HELP":GOTO10000
+ 10072 IF(A$="RUN")OR(A$="JUM")THENPRINT:PRINT"I'm too tired for athletics":GOTO10000
+ 10073 IFAA$="PANIC"THENPRINT:PRINT"I'm inclined to agree":GOTO10000
+ 10090 IFL>1THEN10995
+ 10100 IFA$="L"THENRETURN
+ 10101 IF(A$="N")AND(N=1)THEN15000
+ 10102 IF(A$="S")AND(S=1)THEN15000
+ 10103 IF(A$="E")AND(E=1)THEN15000
+ 10104 IF(A$="W")AND(W=1)THEN15000
+ 10105 IF(A$="U")AND(U=1)THEN15000
+ 10106 IF(A$="D")AND(D=1)THEN15000
+ 10107 IFA$="I"THEN14000
+ 10990 IFL=1THEN10998
+ 10995 PRINT:PRINT"I don't know how to ";AA$;" something":GOTO10000 
+ 10998 PRINT:PRINT"Sorry, can't do that":GOTO10000
+ 11000 GOSUB15100:IFD9=1THEND9=0:GOTO10000
+ 11001 IF(B$="BAG")AND(PL=A)THENPL=0:GOTO15000
+ 11002 IF(B$="DUS")AND(BD=A)THEN13000
+ 11004 IF(B$="KEY")AND(KY=A)THENKY=0:GOTO15000
+ 11006 IF(B$="POW")AND(YP=A)THEN13000
+ 11008 IF(B$="BUC")AND(BU=A)THENBU=0:GOTO15000  
+ 11010 IF(B$="ROP")AND(RO=A)THENRO=0:GOTO15000
+ 11012 IF(B$="WAT")AND(WA=A)THEN13000
+ 11014 IF(B$="DOV")AND(PG=A)THEN13000
+ 11016 IF(B$="BOX")AND(BX=A)THENBX=0:GOTO15000
+ 11018 IF(B$="TWI")AND(TW=A)THENTW=0:GOTO15000 
+ 11020 IF(B$="KNI")AND(KN=A)THENKN=0:GOTO15000
+ 11022 IF(B$="NET")AND(NE=A)THENNE=0:GOTO15000
+ 11024 IF(B$="LAD")AND(LD=A)THENLD=0:GOTO15000
+ 11026 IF(B$="HOS")AND(HP=A)THENHP=0:GOTO15000 
+ 11030 IF(B$="PIS")AND(PU=A)THENPU=0:GOTO15000
+ 11032 IF(B$="BUL")AND(BL=A)THENBL=0:GOTO15000
+ 11034 IF(B$="MEA")AND(ME=A)THENME=0:GOTO15000
+ 11038 IF(B$="NOT")AND(NO=A)THENNO=0:GOTO15000
+ 11040 IF(B$="MAT")AND(MA=A)THENMA=0:GOTO15000
+ 11044 IF(B$="CUE")AND(CU=A)THENCU=0:GOTO15000
+ 11046 IF(B$="BOO")AND(BK=A)THENBK=0:GOTO15000 
+ 11048 IF(B$="BRE")AND(BR=A)THENBR=0:GOTO15000
+ 11052 IF(B$="TAP")AND(TP=A)THENTP=0:GOTO15000
+ 11057 IFQ$="BAG"THENPRINT:PRINT"Sorry, it will suffocate":GOTO10000
+ 11058 IF(B$="GUN")AND(GP=A)THEN13000         
+ 11060 IF(B$="TIS")AND(TT=A)THENTT=0:GOTO15000
+ 11062 IF(B$="PET")AND(PT=A)THEN13000
+ 11064 IF(B$="GIR")AND(GF=A)THENGL=0:GOTO15000
+ 11066 IF(B$="BOT")AND(SB=A)THENSB=0:GOTO15000
+ 11068 IF(B$="TIN")AND(TN=A)THENTN=0:GOTO15000
+ 11070 IF(B$="SAF")AND(SA=A)THENPRINT:PRINT"It weighs too much":GOTO10000
+ 11071 IF(B$="GRE")AND(A=14)THENPRINT:PRINT"Don't be daft":GOTO10000
+ 11072 IF(B$="CAR")AND(CR=A)THENPRINT:PRINT"It's too heavy":GOTO10000
+ 11073 IF(B$="BED")AND((A=32)OR(A=33)OR(A=34))THENPRINT:PRINT"It's too heavy":GOTO10000
+ 11074 IF(B$="THU")AND(TG=A)AND(AL=O)THENPRINT:PRINT"He's too heavy":GOTO10000
+ 11075 IF(B$="THU")AND(TG=A)AND(AL=1)THENPRINT  
+ 11077 IF(B$="DOG")AND(DG=A)AND(AV=0)THENDG=0:GOTO15000
+ 11078 IF(B$="DOG")AND(DG=A)AND(AV=1)THENPRINT:PRINT"Not a good idea":GOTO10000
+ 11079 IF(B$="LIG")AND(A=20)AND(PO=A)THENPRINT:PRINT"Bulb's too hot":GOTO10000
+ 11080 IF(B$="GLA")AND(BB=A)THENBB=0:GOTO15000
+ 11082 IF(B$="FUS")AND(FU=A)THENFU=0:GOTO15000 
+ 11083 IF(BB$="STUFFED")OR(BB$="KNOTTED")THEN19050
+ 11084 IF(B$="BUT")AND(A=20)THENPRINT:PRINT"Try pressing it":GOTO10000
+ 11085 IF(B$="WIN")AND(A=18)THENPRINT:PRINT"It's a bit too high":GOTO10000
+ 11086 IF(B$="PAN")AND(A=20)THENPRINT:PRINT"It's fixed to the wall"GOTO15000
+ 11087 IF(B$="BOM")AND(BM=A)THENBM=0:GOTO15000
+ 11099 GOTO19020
+ 11100 IF(B$="BAG")AND(PL=0)THENPL=A:GOTO13700
+ 11102 IF(B$="DUS")AND(BD=0)THEN13530
+ 11104 IF(B$="KEY")AND(KY=0)THENKY=A:GOTO13700
+ 11106 IF(B$="POW")AND(YP=0)THEN13520
+ 11108 IF(B$="BUC")AND(BU=0)THENBU=A:GOTO13710
+ 11110 IF(B$="ROP")AND(RO=0)THENRO=A:GOTO15000
+ 11112 IF(B$="WAT")AND(WA=0)THENPRINT:PRINT"The water drains away":GOTO13500
+ 11114 IF(B$="DOV")AND(PG=0)THEN13510
+ 11118 IF(B$="TWI")AND(TW=0)THENTW=A:GOTO15000 
+ 11120 IF(B$="KNI")AND(KN=0)THENKN=A:GOTO15000
+ 11122 IF(B$="NET")AND(NE=0)THENNE=A:GOTO15000
+ 11124 IF(B$="LAD")AND(LD=0)THENLD=A:GOTO15000
+ 11125 IF(B$="PIS")AND(LP=0)THENLP=A:GOTO15000
+ 11126 IF(B$="PIS")AND(PU=0)THENPU=A:GOTO15000
+ 11130 IF(B$="BUL")AND(BL=0)THENBL=A:GOTO15000 
+ 11132 IF(B$="MEA")AND(ME=0)THENME=A:GOTO15000
+ 11134 IF(B$="NOT")AND(NO=0)THENNO=A:GOTO15000
+ 11136 IF(B$="MAT")AND(MA=0)THENMA=A:GOTO15000
+ 11138 IF(B$="CUE")AND(CU=0)THENCU=A:GOTO15000
+ 11140 IF(B$="BOO")AND(BK=0)THENBK=A:GOTO15000
+ 11142 IF(B$="BRE")AND(BR=0)THENBR=A:GOTO15000
+ 11144 IF(B$="TAP")AND(TP=0)THENTP=A:GOTO15000
+ 11146 IF(B$="GUN")AND(GP=0)THENGP=A:GOTO13540
+ 11148 IF(B$="TIS")AND(TT=0)THENTT=A:GOTO15000
+ 11150 IF(B$="PET")AND(PT=0)THENPRINT:PRINT"The petrol evaporates":CORRUPTED_ERROR_CODE_247T13550
+ 11152 IF(B$="HOS")AND(HP=0)THENHP=A:GOTO15000
+ 11154 IF(B$="GIR")AND(GL=0)THENGL=A:GOTO15000
+ 11156 IF(B$="BOX")AND(BX=0)THENBX=A:GOTO13720
+ 11158 IF(B$="DOG")AND(DG=0)THENDG=A:GOTO15000
+ 11160 IF(B$="TIN")AND(TN=0)THENTN=A:GOTO13740
+ 11162 IF(B$="BOT")AND(SB=0)THENGOSUB19000:GOTO10000
+ 11164 IF(B$="FUS")AND(FU=0)THENFU=A:GOTO1OOOO
+ 11199 GOTO19030
+ 11200 IF(B$="MEA")AND(ME=0)THEN11210
+ 11201 IF(B$="BRE")AND(BR=0)THEN11220
+ 11202 IF(B$="CUE")AND(CU=0)THEN11230
+ 11203 IF(B$="BOT")AND(SB=0)THEN11240
+ 11204 IF(B$="KNI")AND(KN=0)THEN11250
+ 11205 IF(B$="ROP")AND(RO=0)THEN11260
+ 11206 IF(B$="GLA")AND(BB=0)THEN11280
+ 11208 PRINT:PRINT"Use the DROP command":GOTO10000
+ 11210 IF(DG=A)AND(AV=1)THENPRINT:PRINT"Dog eats meat":ME=99:DB=99:P=P+25:GOTO15000
+ 11211 ME=A:GOTO15000
+ 11220 IFPG=ATHENPRINT:PRINT"Dove eats the bread":BR=99:GOTO15000
+ 11221 IF(DG=A)AND(AV=1)THENPRINT:PRINT"Dog sniffs bread - he is not happy"         
+ 11222 BR=A:GOTO15000
+ 11230 IFDG=ATHENPRINT:PRINT"You have speared the dog":CU=A:AV=0:P=P+50:GOTO15000
+ 11231 IF(A=18)AND(WB=18)THEN11233
+ 11232 IF A=18THENPRINT:PRINT"The cue smashes the window":CU=39:WB=18:AR=1:GOTO14999
+ 11233 CU=A:GOTO15000
+ 11240 IFA<>39THENGOSUB19000:GOTO10000
+ 11241 PRINT:PRINT"Acid in the bottle burns small hole in the door":P=P+200
+ 11242 SB=99:GL=39:HD=39:BB=39:GOTO15000
+ 11250 IFDG=ATHENPRINT:PRINT"You have killed the dog":KN=A:AV=0:GOTO15000
+ 11251 IF(GL=A)AND(HD=A)THENPRINT:PRINT"Girl cuts her bonds":KN=A:GL=99:GF=A
+ 11255 KN=A:IC=IC-1
+ 11256 IFRO=39THEN11264
+ 11259 IC=IC+1:GOTO15000
+ 11260 IF(A<>39)AND(HD<>39)THENRIO=A:GOTO15000
+ 11262 IFGF<>39THENRO=A:GOTO15000
+ 11264 IFWB=0THENPRINT:PRINT"Girl breaks window and slides down rope"
+ 11265 IFWB=0THENPRINT:PRINT"Alarm starts ringing":WB=18:PLAY3,2,4,1:GOTO11270
+ 11266 IFWB=8THENPRINT:PRINT"Girl climbs out of window and down rope":GOTO10000
+ 11268 RO=39:GOTO15000
+ 11270 GF=18:RH=18:RO=18:IC=IC-1:AR=1:P=P+100:GOTO10000 
+ 11275 GF=18:RH=18:RO=18:IC=IC-1:P=P+100:GOTO10000
+ 11280 PRINT:PRINT"The fragments are too small to throw":GOTO10000
+ 11300 IF(B$="DOO")AND(A=39)THENPRINT:PRINT"It's locked, remember":GOTO10000 
+ 11301 IF(B$="WIN")AND(A=18)THENPRINT:PRINT"It's thirty feet up:GOTO10000
+ 11302 IF(B$="SAF")AND(A=21)AND(OS=99)THENPRINT:PRINT"It's locked":GOTO10000 
+ 11303 IF(B$="BOT")AND(SB=0)THENPRINT:PRINT"The screw cap is stuck":GOTO10000
+ 11304 IF(B$="CAR")AND(A=11)THENPRINT:PRINT"Nothing. Try the trunk":GOTO10000
+ 11305 IF(B$="TRU")AND(A=11)THENPRINT:PRINT"Nothing here, either":GOTO10000
+ 11306 IF(B$="TIN")AND(TF=0)AND(TN=0)THENPRINT:PRINT"Nothing inside":GOSUB10000
+ 11307 IF(B$="TIN")AND(TF=1)AND(TN=0)THENPRINT:PRINT"Okay, it's open":GOSUB10000
+ 11308 IF(B$="TAN")AND(A=11)AND(PA=1)THENPRINT:PRINT"It's already open":GOSUB10000 
+ 11309 IF(B$="TAN")AND(A=11)THENPA=1:PRINT:PRINT"Okay, it's open":GOTO10000
+ 11310 IF(B$="SAF")AND(A=21)AND(OS=21)THENPRINT:PRINT"It is open":GOTO10000
+ 11311 IF(B$="PAN")AND(A=20)AND(PO=20)THENPRINT:PRINT"It is open"GOSUB10000
+ 11312 IF(B$="PAN")AND(A=20)THENPRINT:PRINT"It's locked":GOTO10000
+ 11313 IF(B$="BOX")AND(XF=0)AND(BX=0)THENPRINT:PRINT"Nothing inside":GOTO10000
+ 11314 IF(B$="BOX")AND(XF=1)AND(BX=0)THENPRINT:PRINT"Okay, it's open":GOTO10000
+ 11315 GOTO19010
+ 11320 IF(B$="WAL")AND(A=18)THENPRINT:PRINT"It's too steep":GOTO10000
+ 11321 IF(B$="WAL")AND(A=7)THENPRINT:PRINT"It's too steep":GOTO10000
+ 11322 IF(B$="LAD")AND(AD<>0)THENPRINT:PRINT"You have no ladder":GOTO10000
+ 11323 IF(B$="LAD")AND(A=18)THENPRINT:PRINT"Ladder is too short":GOTO10000
+ 11324 IF(B$="LAD")AND(A=7)THENPRINT:PRINT"You are out":LD=7:IC=IC-1:OP=1
+ 11325 IFOP=1THENA=6:RETURN
+ 11326 GOTO10998
+ 11340 IF(B$="GIR")AND(GL=0)THENPRINT:PRINT"Shame on you":GOTO10000  
+ 11341 IFB$="THU"THEN11343
+ 11342 PRINT:PRINT"I don't understand":GOTO10000
+ 11343 IFFK=1THENPRINT:PRINT"You've already frisked him":GOTO10000
+ 11344 IFAL=1THENPRINT:PRINT"I should subdue him first":GOTO10000
+ 11345 PRINT"I've found a pistol.It is not loaded":PU=A:FK=1:P=P+50:GOTO10000
+ 11350 IF(B$="DOG")AND(A=24)AND(AV=1)THENPRINT:PRINT"Good idea":GOTO10000 
+ 11352 IF(B$="GIR")AND(GL=0)THENPRINT:PRINT"N, I don't think so":GOTO10000
+ 11354 IF(B$="DOV")AND(DV=0)THENPRINT:PRINT"No needless violence":GOTO10000 
+ 11356 IF(B$="THU")AND(A=34)AND(AL=1)THENPRINT:PRINT"I'm game. How":GOTO11360
+ 11358 GOTO19010
+ 11360 PRINT:INPUTRR$:R$=LEFT$(RR$,3)
+ 11361 PRINT:PRINT"With what ?":PRINT:INPUTSS$:S$=LEFT$(SS$,3)
+ 11362 IFR$="STR"THEN11370
+ 11364 IFR$="STA"THEN11380
+ 11366 IFR$="HIT"THEN11390
+ 11368 IFR$="SUF"THEN11395 
+ 11369 PRINT:PRINT"Come again ?":GOTO10000
+ 11370 IF(S$="TWI")AND(TW=0)THENPRINT:PRINT"CROAK":AL=0:TW=A:IC=IC-1:P=P+50:GOTO10000
+ 11371 IF(S$="TWI")AND(TW<>0)THENPRINT:PRINT"You don't have any":GOTO10000
+ 11372 IF(S$="ROP")AND(RO=0)THENPRINT:PRINT"CROAK":AL=0:TW=A:IC=IC-1:P=P+50:GOTO10000
+ 11373 IF(S$="ROP")AND(RO<>0)THENPRINT:PRINT"You don't have any":GOTO10000 
+ 11374 IF(S$="HOS")AND(HP=0)THENPRINT:PRINT"CROAK":AL=0:HP=A:IC=IC-1:P=P+50:GOTO10000
+ 11375 IF(S$="HOS")AND(HP<>0)THENPRINT:PRINT"You don't have one":GOTO10000
+ 11376 PRINT:PRINT"Come again ?":GOTO10000
+ 11380 IF(S$="KNI")AND(KN=0)THENPRINT:PRINT"Messy":AL=0:KN=A:IC=IC-1:P=P+50:GOTO10000
+ 11381 IF(S$="KNI")AND(KN<>0)THENPRINT:PRINT"You don't have one":GOTO10000   
+ 11382 PRINT:PRINT"Come again ?":GOTO10000
+ 11390 IF(S$="CUE")AND(CU=0)THENPRINT:PRINT"KRUNCH":AL=0:CU=0:IC=IC+1:P=P+50:GOTO10000
+ 11391 IF(S$="CUE")AND(CU<>0)THENPRINT:PRINT"You don't have one":GOTO10000
+ 11392 PRINT:PRINT"You managed to wake him - he's not happy- he approaches......."
+ 11393 FORT=1TO500:NEXT:PRINT"**BANG**   you are dead":SHOOT:KT=1:GOTO30000 
+ 11395 IF(S$="BAG")AND(PL=0)THEN1398
+ 11396 IF(S$="BAG")AND(PL<>0)THENPRINT:PRINT"You don't have one":GOTO10000
+ 11397 PRINT:PRINT"What ???":GOTO10000
+ 11398 IFPF=1THENPRINT:PRINT"Your bag is full":GOTO10000
+ 11399 PRINT:PRINT"G-A-S-P !!!":AL=0:PL=A:IC=IC-1:P=P+50:GOTO10000
+ 11400 IFB$="GUN"THEN11410
+ 11401 IFB$="FUS"THEN11420
+ 11402 IFB$="BOM"THEN11430
+ 11403 IFB$="NOI"THENPRINT"I'd keep quiet if I were you":GOTO10000
+ 11404 IF(B$="GIR")AND(GF=A)THENPRINT:PRINT"Later, later":GOTO10000
+ 11405 IF(B$="GIR")AND(GF=0)THENPRINT:PRINT"Later, later":GOTO10000   
+ 11406 GOTO10998
+ 11410 IF(YP=0)AND(BD=0)THENPRINT:PRINT"Okay, gunpowder ready":P=P+100:GOTO13600 
+ 11411 IF(YP<>0)AND(BD<>0)THENPRINT:PRINT"Sorry, can't do that": GOTO10000
+ 11420 IF(TT=0)AND(PT=0)THENPRINT:PRINT"Okay, fuse ready":P=P+100:GOTO13670
+ 11421 GOTO10998
+ 11430 IF(FU=0)AND(GP=0)AND(TN=0)THENPRINT:PRINT"Bomb ready":FU=99:GP=99:TN=99:GOTO11432
+ 11431 GOTO10998
+ 11432 BM=A:IC=IC-2:EE=0:P=P+200:GOTO10000
+ 11450 IFB$="PET"THEN11452
+ 11451 GOTO19010
+ 11452 IF(PA=0)OR(A<>11)THEN10998
+ 11453 PRINT:PRINT"What shall I use?"
+ 11454 PRINT:INPUTS$:IFLEFT$(S$,3)="HOS"THEN11456
+ 11455 GOTO10998
+ 11456 IFHP<>0THENPRINT:PRINT"You don't have one":GOTO10000
+ 11457 PRINT:PRINT"Okay":PT=A:HP=A:GOTO13000
+ 11470 IFB$="PIS"THEN11472
+ 11471 GOTO10998
+ 11472 IF(PU<>0)OR(BL<>0)THEN10998
+ 11473 IFLP=0THENPRINT:PRINT"It's already loaded":GOTO10000
+ 11474 LP=0:PU=99:BL=99:PRINT:PRINT"Okay":IC=IC-1:GOTO10000
+ 11500 IF(B$="SAF")AND(OS=21)THENPRINT:PRINT"It's already open":GOTO10000
+ 11501 IF(B$="SAF")OR(B$="DOO")THEN11503
+ 11502 GOTO10998
+ 11503 IF(B$="SAF")AND(A<>21)THENPRINT:PRINT"I can't see a safe":GOTO10000
+ 11504 IF(B$="DOO")AND(A<>39)THENPRINT:PRINT"I can't see a door":GOTO10000
+ 11506 PRINT:PRINT"Using what ?":PRINT:INPUTZZ$:Z$=LEFT$(ZZ$,3) 
+ 11507 IFZ$="GUN"THEN11510
+ 11508 IFZ$="BOM"THEN11530
+ 11509 GOTO19010
+ 11510 IFGP<>0THENPRINT:PRINT"You don't have any":GOTO10000
+ 11512 PRINT:PRINT"Okay, how shall we light it?"
+ 11514 PRINT:INPUTXX$:X$=LEFT$(XX$,3)
+ 11516 IF(X$="MAT")AND(MA=0)THENMA=99:GP=99:GOTO11525
+ 11518 IF(X$="PIS")AND(LP=0)THENLP=99:PI=0:GP=99:GOTO11525
+ 11520 IF(X$="PIS")AND(PI=0)THENPRINT:PRINT"CLICK  it isn't loaded":GOTO10000
+ 11522 PRINT:PRINT"Let's try again, eh":GOTO10000
+ 11525 PRINT:PRINT"****B*O*O*O*M*M*M****":EXPLODE
+ 11527 IFX$="MAT"THENPRINT:PRINT"You have been blown to bits":KE=1:GOTO30000
+ 11528 IFX$="PIS"THENPRINT:PRINT"Lots of smoke but unsuccessful":GOTO30000
+ 11530 IFBM<>0THENPRINT:PRINT"You don't have a bomb":GOTO10000
+ 11532 PRINT:PRINT"Okay, how shall we light it?"
+ 11534 PRINT:INPUTXX$:X$=LEFT$(XX$,3)
+ 11536 IF(X$="MAT")AND(MA=0)THENMA=99:BM=99:GOTO11545
+ 11538 IF(X$="PIS")AND(LP=0)THENLP=99:PU=0:BM=99:QZ=1
+ 11539 IFQZ=1THENQZ=0:PRINT:PRINT"*BANG*BANG*BANG*":GOTO11545
+ 11540 IF(X$="PIS")AND(PU=0)THENPRINT:PRINT"CLICK  it isn't loaded":GOTO10000
+ 11542 PRINT:PRINT"Let's try again, eh":GOTO10000
+ 11545 PRINT:PRINT"****B*O*O*O*M*M*M****":EXPLODE  
+ 11546 IFB$="DOO"THENPRINT:PRINT"The door is untouched":GOTO10000
+ 11547 PRINT:PRINT"The safe is open":SB=A:SA=99:OS=21:P=P+200:GOTO10000
+ 11550 IFB$="KEY"THEN11552
+ 11551 GOTO10998
+ 11552 IFKY<>0THEN19030
+ 11553 IF(A=39)OR(A=21)OR(A=11)THEN11556
+ 11554 IFA=20THEN11560
+ 11555 PRINT:PRINT"I don't understand":GOTO10000
+ 11556 PRINT:PRINT"The keys don't fit":GOTO10000
+ 11560 PRINT:PRINT"It's open"
+ 11562 PRINT:PRINT"I see lots of lights and a red button" 
+ 11564 KY=20:IC=IC-1:CP=99:PO=20:GOTO10000
+ 11570 IFB$="NOT"THEN11572
+ 11571 GOTO11580  
+ 11572 IFN0<>0THEN19030
+ 11573 PRINT:PRINT"It says":PRINT:PRINT"For the best computer games"
+ 11574 PRINT:PRINT"         SEVERN SOFTWARE"
+ 11575 PRINT"         5, SCHOOL CRESCENT"
+ 11576 PRINT"         LYDNEY"
+ 11577 PRINT"         GLOS GL15 5TA"
+ 11578 PRINT:PRINT"         TEL(0594) 43352":GOTO10000
+ 11580 IFB$="BOO"THEN11582
+ 11581 GOTO19010
+ 11582 IFBK<>0THEN19030
+ 11583 PRINT:PRINT"I shouldn't bother":GOTO10000
+ 11600 PRINT:PRINT"Giving up ???? - are you sure ?"
+ 11602 K$=KEY$:IFK$="Y"THENGU=1:GOTO30001
+ 11604 IFK$="N"THEN15000
+ 11606 GOTO11602  
+ 11620 IFPU=0THENPRINT:PRINT"CLICK   it isn't loaded":GOTO10000
+ 11622 IF(PU<>0)AND(LP<>0)THENPRINT:PRINT"You have no gun":GOTO10000
+ 11623 PRINT:PRINT"*BANG*BANG*BANG*":LP=99:PU=0:GOSUB16000
+ 11624 IF(A=24)AND(AV=1)THENPRINT:PRINT"The dog is dead":P=P+50:AV=0
+ 11626 GOTO10000
+ 11700 IFB$="BUT"THENGOTO11702
+ 11701 PRINT:PRINT"Press what ?":GOTO10000  
+ 11702 IF(PO<>20)OR(A<>20)THEN19020
+ 11704 IFAR=1THENPRINT:PRINT"Alarm stops ringing":PING::AR=0:P=P+200:GOTO10000
+ 11706 PRINT:PRINT"Oh - nothing happened":GOTO10000
+ 12000 IF(GL=39)OR(GF=39)THENPRINT:PRINT"She cannot get through the hole":GOTO10000
+ 12004 GF=0:GOTO15000
+ 13000 PRINT:PRINT"Carry it in what?":PRINT:INPUTQQ$:Q$=LEFT$(QQ$,3):IFQ$="IN "THEN13002
+ 13001 GOTO13004
+ 13002 XX=10:L=LEN(QQ$):FORJ=1TOL:IFMID$(QQ$,J,1)=" "THENXX=J+1
+ 13003 NEXT:J$=MID$(QQ$,XX,L):Q$=LEFT$(J$,3)
+ 13004 IF(Q$="BUC")AND(BU<>0)THEN13012
+ 13005 IF(Q$="BOX")AND(BX<>0)THEN13012
+ 13006 IF(Q$="BOT")AND(SB<>0)THEN13012
+ 13007 IF(Q$="BAG")AND(PL<>0)THEN13012
+ 13008 IF(Q$="TIN")AND(TN<>0)THEN13012
+ 13009 IF(Q$="NET")AND(NE<>0)THEN13012
+ 13010 IF(Q$="BOT")AND(SB=0)THENPRINT:PRINT"Your bottle is full:GOTO10000
+ 13011 GOTO13014
+ 13012 PRINT:PRINT"You aren't carrying one":GOTO10000
+ 13014 IFB$="GUN"THEN13250
+ 13015 IFB$="WAT"THEN13020
+ 13016 IFB$="DOV"THEN13050
+ 13017 IFB$="POW"THEN13100
+ 13018 IFB$="DUS"THEN13150
+ 13019 IFB$="PET"THEN13200
+ 13020 IF(Q$="BUC")AND(BF=0)THENWA=0:BF=1:WW=1:GOTO15000
+ 13021 IF(Q$="BUC")AND(BF=1)THENPRINT:PRINT"Your bucket is full":GOTO10000
+ 13022 IF(Q$="BAG")AND(PF=0)THENWA=0:PF=1:WW=5:GOTO15000
+ 13023 IF(Q$="BAG")AND(PF=1)THEN19060 
+ 13028 IF(Q$="TIN")AND(TF=0)THENWA=0:TF=1:WW=6:GOTO15000
+ 13029 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13050 IF(Q$="BUC")AND(BF=0)THENPG=0:BF=1:PP=1:GOTO15000
+ 13051 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13052 IF(Q$="BOX")AND(XF=0)THENPG=0:XF=1:PP=2:GOTO15000
+ 13053 IF(Q$="BOX")AND(XF=1)THEN19060
+ 13054 IF(Q$="NET")AND(NF=0)THENPG=0:NF=1:PP=3:GOTO15000
+ 13055 IF(Q$="NET")AND(NF=1)THEN19060
+ 13065 GOTO19040
+ 13100 IF(Q$="BUC")AND(BF=0)THENYP=0:BF=1:Y=1:GOTO15000
+ 13101 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13102 IF(Q$="BOX")AND(XF=0)THENYP=0:XF=1:Y=2:GOTO15000
+ 13103 IF(Q$="BOX")AND(XF=1)THEN19060
+ 13108 IF(Q$="BAG")AND(PF=0)THENYP=0:PF=1:Y=5:GOTO15000
+ 13109 IF(Q$="BAG")AND(PF=1)THEN19060
+ 13110 IF(Q$="TIN")AND(TF=0)THENYP=0:TF=1:Y=6:GOTO15000
+ 13111 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13115 GOTO19040
+ 13150 IF(Q$="BUC")AND(BF=0)THENBD=0:BF=1:B=1:GOTO15000
+ 13151 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13152 IF(Q$="BOX")AND(XF=0)THENBD=0:XF=1:B=2:GOTO15000 
+ 13153 IF(Q$="BOX")AND(XF=1)THEN19060
+ 13158 IF(Q$="BAG")AND(PF=0)THENBD=0:PF=1:B=5:GOTO15000
+ 13159 IF(Q$="BAG")AND(PF=1)THEN19060
+ 13160 IF(Q$="TIN")AND(TF=0)THENBD=0:TF=1:B=6:GOTO15000
+ 13161 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13165 GOTO19040 
+ 13200 IF(Q$="BUC")AND(BF=0)THENPT=0:BF=1:G=1:GOTO13240
+ 13201 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13202 IF(Q$="BAG")AND(PF=0)THENPT=0:PF=1:G=5:GOTO13240
+ 13203 IF(Q$="BAG")AND(PF=1)THEN19060
+ 13208 IF(Q$="TIN")AND(TF=0)THENPT=0:TF=1:G=6:GOTO13240
+ 13209 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13210 GOTO19040
+ 13240 PRINT:PRINT"Okay":GOTO10000
+ 13250 IF(Q$="BUC")AND(BF=0)THENBF=1:EE=1:GP=0:IC=IC+1:GOTO13240 
+ 13251 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13252 IF(Q$="BAG")AND(PF=0)THENPF=1:EE=5:GP=0:IC=IC+1:GOTO13240
+ 13253 IF(Q$="BAG")AND(PF=1)THEN19060
+ 13254 IF(Q$="BOX")AND(XF=0)THENXF=1:EE=2:GP=0:IC=IC+1:GOTO13240
+ 13255 IF(Q$="BOX")AND(XF=1)THEN19060
+ 13258 IF(Q$="TIN")AND(TF=0)THENTF=1:EE=6:GP=0:IC=IC+1:GOTO13240 
+ 13259 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13260 GOTO19040
+ 13500 IFWW=1THENBF=0:WW=0
+ 13502 IFWW=5THENPF=0:WW=0
+ 13503 IFWW=6THENTF=0:WW=0
+ 13505 WA=99:GOTO15000
+ 13510 IFPP=1THENBF=0:PP=0
+ 13511 IFPP=2THENXF=0:PP=0
+ 13512 IFPP=3THENNF=0:PP=0
+ 13515 PG=A:GOTO15000
+ 13520 IFY=1THENBF=0:Y=0
+ 13521 IFY=2THENXF=0:Y=0
+ 13523 IFY=5THENPF=0:Y=0
+ 13524 IFY=6THENTF=0:Y=0
+ 13525 YP=A:GOTO15000
+ 13530 IFB=1THENBF=0:B=0
+ 13531 IFB=2THENXF=0:B=0
+ 13533 IFB=5THENPF=0:B=0
+ 13534 IFB=6THENTF=0:B=0
+ 13535 BD=A:GOTO15000
+ 13540 IFEE=1THENBF=0:EE=0
+ 13541 IFEE=2THENXF=0:EE=0
+ 13542 IFEE=5THENPF=0:EE=0 
+ 13544 IFEE=6THENTF=0:EE=0
+ 13545 GP=A:GOTO15000
+ 13550 IFG=1THENBF=0:G=0
+ 13553 IFG=5THENPF=0:G=0 
+ 13554 IFG=6THENTF=0:G=0
+ 13555 PT=99:GOTO15000
+ 13600 IF(Y=1)OR(B=1)THENBF=0
+ 13601 IF(Y=2)OR(B=2)THENXF=0
+ 13602 IF(Y=5)OR(B=5)THENPF=0
+ 13603 IF(Y=6)OR(B=6)THENTF=0
+ 13604 YP=99:BD=99:Y=0:B=0:GP=A:IC=IC-2:GOTO10000
+ 13660 BM=0
+ 13661 IFEE=1THENBF=0:EE=0
+ 13662 IFEE=2THENXF=0:EE=0
+ 13663 IFEE=5THENPF=0:EE=0
+ 13664 IFEE=6THENTF=0:EE=0 
+ 13669 GOTO10000
+ 13670 IFG=1THENBF=0:G=0
+ 13671 IFG=5THENPF=0:G=0
+ 13672 IFG=6THENTF=0:G=0 
+ 13674 TT=99:PT=99:G=0:FU=A:IC=IC-1:GOTO10000
+ 13700 IFWW=5THENWA=99:WW=0:GOSUB13800
+ 13701 IFB=5THENBD=A:B=0
+ 13702 IFY=5THENYP=A:Y=0
+ 13703 IFG=5THENPT=99:G=0:GOSUB13810
+ 13704 IFEE=5THENGP=A:EE=0
+ 13705 IFPF=1THENPF=0:IC=IC-1
+ 13706 GOTO15000
+ 13710 IFWW=1THENWA=99:WW=0:GOSUB13800
+ 13711 IFB=1THENBD=A:B=0
+ 13712 IFY=1THENYP=A:Y=0
+ 13713 IFG=1THENPT=99:G=0:GOSUB13810
+ 13714 IFEE=1THENGP=A:EE=0
+ 13715 IFPP=1THENPG=A
+ 13716 IFBF=1THENBF=0:IC=IC-1
+ 13717 GOTO15000
+ 13720 IFB=2THENBD=A:B=0
+ 13721 IFY=2THENYP=A:Y=0
+ 13722 IFPP=2THENPG=A:PP=0
+ 13723 IFEE=2THENGP=A:EE=0 
+ 13724 IFXF=1THENXF=0:IC=IC-1
+ 13725 GOTO15000
+ 13730 IFPP=3THENPG=A:PP=0 
+ 13731 IFNF=1THENNF=0:IC=IC-1
+ 13732 GOTO15000
+ 13740 IFWW=6THENWA=99:WW=0:GOSUB13800
+ 13741 IFB=6THENBD=A:B=0
+ 13742 IFY=6THENYP=A:Y=0
+ 13743 IFG=6THENPT=99:G=0:GOSUB13810
+ 13744 IFEE=6THENGP=A:EE=0
+ 13745 IFTF=1THENTF=0:IC=IC-1
+ 13746 GOTO15000  
+ 13800 PRINT:PRINT"The water spills out and drains away":RETURN
+ 13810 PRINT:PRINT"The petrol spills out and evaporates":RETURN 
+ 14000 CLS:PAPER6:PRINTTAB(15);"          Inventory"
+ 14001 PRINT"***********************************" 
+ 14002 IFPL=0THENPRINTTAB(13);"A plasic bag"
+ 14003 IFBD=0THENPRINTTAB(13);"Some black dust"
+ 14004 IFKY=0THENPRINTTAB(13);"A set of keys"  
+ 14005 IFPU=0THENPRINTTAB(13);"A pistol" 
+ 14006 IFYP=0THENPRINTTAB(13);"Some gritty yellow powder"
+ 14007 IFBU=0THENPRINTTAB(13);"A wooden bucket"           
+ 14008 IFRO=0THENPRINTTAB(13);"A length of rope" 
+ 14009 IFWA=0THENPRINTTAB(13);"Some water"     
+ 14010 IFPG=0THENPRINTTAB(13);"A large dove"
+ 14011 IFBL=0THENPRINTTAB(13);"3 bullets"    
+ 14012 IFKN=0THENPRINTTAB(13);"A silver knife"
+ 14013 IFTW=0THENPRINTTAB(13);"Some twine"     
+ 14014 IFME=0THENPRINTTAB(13);"Some meat" 
+ 14015 IFNO=0THENPRINTTAB(13);"A printed note"
+ 14016 IFMA=0THENPRINTTAB(13);"A box of matches"
+ 14017 IFCU=0THENPRINTTAB(13);"A snooker cue"   
+ 14018 IFBK=0THENPRINTTAB(13);"A large book" 
+ 14019 IFLD=0THENPRINTTAB(13);"A ladder"     
+ 14020 IFBR=0THENPRINTTAB(13);"Some brown bread"
+ 14021 IFTP=0THENPRINTTAB(13);"a roll of sticky tape"
+ 14022 IFGP=0THENPRINTTAB(13);"Some gunpowder"       
+ 14023 IFTT=0THENPRINTTAB(13);"Some toilet tissue"
+ 14024 IFPT=0THENPRINTTAB(13);"Some petrol"       
+ 14025 IFHP=0THENPRINTTAB(13);"A hose-pipe"
+ 14026 IFGL=0THENPRINTTAB(13);"A girl"     
+ 14027 IFDG=0THENPRINTTAB(13);"A dead dog"
+ 14028 IFBB=0THENPRINTTAB(13);"Some broken glass"
+ 14029 IFBX=0THENPRINTTAB(13);"A cardboard box"  
+ 14030 IFNE=0THENPRINTTAB(13);"A fishing net"  
+ 14031 IFSB=0THENPRINTTAB(13);"A small bottle"
+ 14032 IFTN=0THENPRINTTAB(13);"A tobacco tin" 
+ 14034 IFBM=0THENPRINTTAB(13);"A bomb"        
+ 14035 IFLP=0THENPRINTTAB(13);"A loaded pistol"
+ 14036 IFFU=0THENPRINTTAB(13);"A fuse"         
+ 14100 PRINT"***********************************":RETURN 
+ 14999 PRINT:PRINT"Alarm starts ringing"                
+ 15000 IFA$="GET"THENIC=IC+1
+ 15001 IFA$="MAK"THENIC=IC-2
+ 15002 IFA$="DRO"THENIC=IC-1:PRINT:PRINT"Okay":GOTO10000
+ 15003 IFA$="THR"THENIC=IC-1
+ 15005 N=0:S=0:E=0:W=0:U=0:D=0:PRINT:PRINT"Okay":IT=0:RETURN  
+ 15100 IFIC>7THENPRINT:PRINT"You will have to DROP something":D9=1
+ 15101 RETURN
+ 16000 SHOOT:WAIT25:SHOOT:WAIT25:SHOOT:RETURN
+ 17000 PLAY3,2,4,1 
+ 19000 PRINT:PRINT"*CRASH*TINKLE* There is a funny smell.":AB=A
+ 19005 BB=A:SB=99:RETURN
+ 19010 PRINT:PRINT"Eh ??":GOTO10000
+ 19020 PRINT:PRINT"I can't see ";BB$;" anywhere":GOTO10000 
+ 19030 PRINT:PRINT"Don't have ";BB$;" - check inventory":GOTO10000
+ 19040 PRINT:PRINT"Don't be ridiculous"
+ 19041 IFPT=ATHENPT=99
+ 19042 GOTO10000
+ 19050 PRINT:PRINT"Abuse will get you nowhere":GOTO10000
+ 19060 PRINT:PRINT"Sorry, that's full":GOTO10000         
+ 30000 FORT=1TO500:NEXT
+ 30001 FORLF=1TO24:PRINT:NEXT
+ 30002 IFKD=1THENKL$="dog":NM=NM*5
+ 30003 IFKT=1THENKL$="thug":NM=NM*4    
+ 30004 IFKE=1THENKL$="explosion":NM=NM*3
+ 30005 IFGU=1THENPRINT:PRINT"You were unable to complete your task":NM=NM*10
+ 30006 IF(GU=1)AND(NM<502)THENNM=502
+ 30007 IFGU=1THEN30020
+ 30008 IFOT=1THENPRINT:PRINT"You have made your 500 moves":GOTO30020
+ 30010 CLS:PRINT:PRINT"You have been killed by the ";KL$:GOTO30020 
+ 30020 PRINT:PRINT:PRINT"Game score     ";P-NM" points"
+ 30030 PRINT:PRINT:PRINT"Do you want to try again ?"
+ 30032 FORT=1TO15:PRINT:NEXT
+ 30035 K$=KEY$:IFK$="Y"THENRUN:GOTO100
+ 30036 IFK$="N"THEN40000
+ 30037 GOTO30035
+ 31000 FORT=1TO250:NEXT:FORT=1TO22:PRINT:NEXT
+ 31002 PRINT:PRINT:PRINT"and you have made it - WELL DONE":P=P+200:GOTO30020
+ 32000 FORT=1TO500:NEXT  
+ 32001 FORLF=1TO24:PRINT:PRINT:NEXT
+ 32005 PRINT"You failed to silence the alarm" 
+ 32006 PRINT"in time and have been captured.":NM=NM*2:GOTO30020
+ 40000 CLS:PRINT:PRINT:PRINT"If you have enjoyed this game, why not"
+ 40001 PRINT" send for our list"
+ 40002 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"         SEVERN SOFTWARE"
+ 40003 PRINT"         5, SCHOOL CRESCENT"
+ 40004 PRINT"         LYDNEY"
+ 40005 PRINT"         GLOS GL15 5TA"
+ 40006 PRINT"         TEL(0594) 43352"
+ 40018 FORT=1TO1000:NEXT:PING
+ 40019 PRINT:PRINT:PRINT:PRINT:PRINT"***********************************" 
+ 40020 PRINT"Any key to clear or 'R' to re-start"
+ 40021 GETK$
+ 40022 IFK$="R"THENRUN
+ 40023 CLS:END
\ No newline at end of file
diff --git a/encounter/oric/encounter v2.bas b/encounter/oric/encounter v2.bas
new file mode 100644
index 0000000..aead27e
--- /dev/null
+++ b/encounter/oric/encounter v2.bas	
@@ -0,0 +1,1007 @@
+ 10 LOAD"FONT.BIN",A #B400+8*32
+ 15 Z$=" "+CHR$(27)
+ 16 PAPER3:INK4
+ 20 HIRES:LOAD"TITLE.BIN"
+ 21 REM CLS:FORT=1TO4:PRINTZ$"A          ***********"
+ 22 REM PRINTZ$"D          *Encounter (2.0)*":PRINTZ$"D          *Adventure  (2.0)*"
+ 23 REM PRINTZ$"A          ***********":PRINT:NEXT
+ 24 REM PRINT"     ***************************"
+ 25 REM PRINT"     *Copyright SEVERN SOFTWARE*"
+ 26 REM PRINT"     ***************************"
+ 28 PRINT:PRINT"  Press any key when you are ready"
+ 30 GETK$:TEXT
+ 31 CLS:PRINTZ$"AEncounter - A Guide"
+ 32 PRINT:PRINT"Your task is to find and rescue a"
+ 33 PRINT"young girl kidnapped by thugs."
+ 34 PRINT:PRINT"Everything you need is here but you" 
+ 35 PRINT"may have to manufacture some items."
+ 36 PRINT:PRINT"CLUE  chemistry knowledge helps."
+ 37 PRINT:PRINT"        Single letter COMMANDS"
+ 38 PRINT:PRINT"  eg    N for North  U for UP" 
+ 39 PRINT" PLUS   L for look   I for inventory"
+ 40 PRINT:PRINT"Most other commands are VERB followed"
+ 41 PRINT"by NOUN (eg EMPTY BOTTLE). These may"
+ 42 PRINT"be typed in as 3 letter abbreviations for instance EMP BOT"
+ 43 PRINT:PRINT"If the computer can't understand your" 
+ 44 PRINT"command, re-phrase it. You will soon"
+ 45 PRINT"learn the accepted vocabulary."
+ 46 PRINT:PRINT"      Press any key to continue"
+ 47 GETK$
+ 48 CLS:PRINTZ$"AEncounter - A Guide"
+ 50 PRINT:PRINT"If the alarm rings, you have twenty"
+ 51 PRINT"moves to stop it before you're caught." 
+ 52 PRINT:PRINT"HINT  make a map as you travel noting" 
+ 53 PRINT"      what you find and where."  
+ 54 PRINT:PRINT"The time limit is 500 moves."
+ 55 PRINT:PRINT"Common commands - GET DROP THROW KILL" 
+ 56 PRINT"                  HIT MAKE CLIMB QUIT"
+ 57 PRINT:PRINT"Only use QUIT if you wish to give up."
+ 58 PRINT:PRINT"Don't worry if you fail first time -  WE EXPECT YOU TO!!!!"
+ 59 PRINT:PRINT"Telephoning SEVERN SOFTWARE for help  is forbidden."
+ 60 PRINT:PRINT:PRINT"        Press any key to start"
+ 62 GETK$
+ 63 PAPER2:INK0
+ 65 CLS
+ 100 CLS:PL=3:BD=4:KY=5:YP=7:BU=8:RO=8:WA=8:PG=9:BX=14:TW=14:KN=16:NE=17
+ 101 LD=19:CR=11:BL=20:ME=26:BR=26:TN=23:DG=24:AV=1:TP=25:BK=25:MA=30:CU=28
+ 102 SA=21:NO=38:GL=43:TT=36:TG=34:AL=1:SB=99:SF=1:HP=12:PT=99:GP=99:FU=99
+ 103 AC=99:PU=99:AB=99:BB=99:BM=99:LP=99:HD=99:OS=99:GF=99:CP=20:PO=99
+ 1000 A=1:PRINT:PRINT"You are in a deserted market square":IF GL=0THEN31000
+ 1001 GOSUB9000:PRINT"Exits lead North and East"        
+ 1003 N=1:E=1:GOSUB10000
+ 1004 IFLEFT$(A$,1)="L"THEN1000
+ 1006 IFLEFT$(A$,1)="N"THEN1030
+ 1007 IFLEFT$(A$,1)="E"THEN1010
+ 1009 GOTO1003
+ 1010 A=2:PRINT:PRINT" You are in a dark, seedy alley."
+ 1011 GOSUB9000
+ 1012 PRINT" Exits lead North, East and West."
+ 1013 N=1:E=1:W=1:GOSUB10000
+ 1014 IFLEFT$(A$,1)="L"THEN1010
+ 1015 IFLEFT$(A$,1)="N"THEN1040
+ 1016 IFLEFT$(A$,1)="E"THEN1020
+ 1017 IFLEFT$(A$,1)="W"THEN1000
+ 1019 GOTO1013
+ 1020 A=3:PRINT:PRINT"A long road stretches ahead of you."
+ 1021 GOSUB9000
+ 1022 PRINT"Exits lead North and West."
+ 1023 N=1:W=1:GOSUB10000
+ 1024 IFLEFT$(A$,1)="L"THEN1020
+ 1025 IFLEFT$(A$,1)="N"THEN1050
+ 1026 IFLEFT$(A$,1)="W"THEN1010
+ 1029 GOTO1023
+ 1030 A=4:PRINT:PRINT"You are in a dark, damp tunnel."
+ 1031 GOSUB9000
+ 1032 PRINT"Exits lead North and South."
+ 1033 N=1:S=1:GOSUB10000
+ 1034 IFLEFT$(A$,1)="L"THEN1030
+ 1035 IFLEFT$(A$,1)="N"THEN1080
+ 1036 IFLEFT$(A$,1)="S"THEN1000
+ 1039 GOTO1033
+ 1040 A=5:PRINT:PRINT"You are on the main street."
+ 1041 GOSUB9000
+ 1042 PRINT"Exits lead North, South and East."
+ 1043 N=1:S=1:E=1:GOSUB10000
+ 1044 IFLEFT$(A$,1)="L"THEN1040
+ 1045 IFLEFT$(A$,1)="N"THEN1090
+ 1046 IFLEFT$(A$,1)="S"THEN1010
+ 1047 IFLEFT$(A$,1)="E"THEN1050
+ 1049 GOTO1043
+ 1050 A=6:PRINT:PRINT"You are on a narrow path."
+ 1051 GOSUB9000
+ 1052 PRINT"Exits lead North, South, East and West."
+ 1053 N=1:S=1:E=1:W=1:GOSUB10000
+ 1054 IFLEFT$(A$,1)="L"THEN1050
+ 1055 IFLEFT$(A$,1)="N"THEN1100
+ 1056 IFLEFT$(A$,1)="S"THEN1020
+ 1057 IFLEFT$(A$,1)="E"THEN1060
+ 1058 IFLEFT$(A$,1)="W"THEN1040
+ 1059 GOTO1053
+ 1060 A=7:PRINT:PRINT"You have fallen into a deep pit"
+ 1061 GOSUB9000
+ 1062 PRINT"There seems to be no way out."
+ 1063 GOSUB10000
+ 1064 IFLEFT$(A$,1)="L"THEN1060
+ 1065 IFOP=1THENOP=0:GOTO1050
+ 1069 GOTO1063
+ 1070 A=8:PRINT:PRINT"You are near to an old-fashioned well."
+ 1071 GOSUB9000
+ 1072 PRINT"Exit to the East only."
+ 1073 E=1:GOSUB10000
+ 1074 IFLEFT$(A$,1)="L"THEN1070
+ 1077 IFLEFT$(A$,1)="E"THEN1080
+ 1079 GOTO1073
+ 1080 A=9:PRINT:PRINT"You are in a dark forest."
+ 1081 GOSUB9000
+ 1082 PRINT"Exits lead North, South, East and West."
+ 1083 N=1:S=1:E=1:W=1:GOSUB10000
+ 1084 IFLEFT$(A$,1)="L"THEN1080
+ 1085 IFLEFT$(A$,1)="N"THEN1110
+ 1086 IFLEFT$(A$,1)="S"THEN1030
+ 1087 IFLEFT$(A$,1)="E"THEN1090
+ 1088 IFLEFT$(A$,1)="W"THEN1070
+ 1089 GOTO1083
+ 1090 A=10:PRINT:PRINT"You are on a wide gravel drive"
+ 1091 GOSUB9000
+ 1092 PRINT"Exits lead North, South, East and West."
+ 1093 N=1:S=1:E=1:W=1:GOSUB10000
+ 1094 IFLEFT$(A$,1)="L"THEN1090
+ 1095 IFLEFT$(A$,1)="N"THEN1120
+ 1096 IFLEFT$(A$,1)="S"THEN1040
+ 1097 IFLEFT$(A$,1)="E"THEN1100
+ 1098 IFLEFT$(A$,1)="W"THEN1080
+ 1099 GOTO1093
+ 1100 A=11:PRINT:PRINT"You are in an open area of tarmac"
+ 1101 GOSUB9000
+ 1102 PRINT"Exits lead North, South and West."
+ 1103 N=1:S=1:W=1:GOSUB10000
+ 1104 IFLEFT$(A$,1)="L"THEN1100
+ 1105 IFLEFT$(A$,1)="N"THEN1130
+ 1106 IFLEFT$(A$,1)="S"THEN1050
+ 1108 IFLEFT$(A$,1)="W"THEN1090
+ 1109 GOTO1103
+ 1110 A=12:PRINT:PRINT"You are in a beautiful garden"
+ 1111 GOSUB9000
+ 1112 PRINT"Exits lead North, South and East"
+ 1113 N=1:S=1:E=1:GOSUB10000
+ 1114 IFLEFT$(A$,1)="L"THEN1110
+ 1115 IFLEFT$(A$,1)="N"THEN1140
+ 1116 IFLEFT$(A$,1)="S"THEN1080
+ 1117 IFLEFT$(A$,1)="E"THEN1120
+ 1119 GOTO1113
+ 1120 A=13:PRINT:PRINT"You are on a huge area of lawn"
+ 1121 GOSUB9000 
+ 1122 PRINT"Exits lead North, South and East."
+ 1123 N=1:S=1:E=1:GOSUB10000
+ 1124 IFLEFT$(A$,1)="L"THEN1120
+ 1125 IF(LEFT$(A$,1)="N")AND(LD=0)THENPRINT"DROP something first":GOTO1123
+ 1126 IFLEFT$(A$,1)="N"THEN1200
+ 1127 IFLEFT$(A$,1)="S"THEN1090
+ 1128 IFLEFT$(A$,1)="E"THEN1130 
+ 1129 GOTO1123
+ 1130 A=14:PRINT:PRINT"You are in a small greenhouse"
+ 1131 GOSUB9000 
+ 1132 PRINT"Exits lead North, South and West."
+ 1133 N=1:S=1:W=1:GOSUB10000
+ 1134 IFLEFT$(A$,1)="L"THEN1130
+ 1135 IFLEFT$(A$,1)="N"THEN1150
+ 1136 IFLEFT$(A$,1)="S"THEN1100
+ 1138 IFLEFT$(A$,1)="W"THEN1120
+ 1139 GOTO1133
+ 1140 A=15:PRINT:PRINT"You are on a lawn tennis court."
+ 1141 GOSUB9000
+ 1142 PRINT"Exits lead North and South."
+ 1143 N=1:S=1:GOSUB10000
+ 1144 IFLEFT$(A$,1)="L"THEN1140
+ 1145 IFLEFT$(A$,1)="N"THEN1160
+ 1146 IFLEFT$(A$,1)="S"THEN1110
+ 1149 GOTO1143
+ 1150 A=16:PRINT:PRINT"You are in a vegetable plot."
+ 1151 GOSUB9000
+ 1152 PRINT"Exits lead North snd South."
+ 1153 N=1:S=1:GOSUB10000
+ 1154 IFLEFT$(A$,1)="L"THEN1150
+ 1155 IFLEFT$(A$,1)="N"THEN1180
+ 1156 IFLEFT$(A$,1)="S"THEN1130
+ 1159 GOTO1153
+ 1160 A=17:PRINT:PRINT"You are standing by a fish pond."
+ 1161 GOSUB9000
+ 1162 PRINT"Exits lead South and East."
+ 1163 S=1:E=1:GOSUB10000
+ 1164 IFLEFT$(A$,1)="L"THEN1160
+ 1166 IFLEFT$(A$,1)="S"THEN1140
+ 1167 IFLEFT$(A$,1)="E"THEN1170
+ 1169 GOTO1163
+ 1170 A=18:PRINT:PRINT"You are on a tiled patio and above it is a barred window" 
+ 1171 GOSUB9000
+ 1172 PRINT"Exits lead South, East and West."
+ 1173 S=1:E=1:W=1:GOSUB10000
+ 1174 IFLEFT$(A$,1)="L"THEN1170
+ 1175 IF(LEFT$(A$,1)="S")AND(LD=0)THENPRINT"DROP something first":GOTO1173
+ 1176 IFLEFT$(A$,1)="S"THEN1280
+ 1177 IFLEFT$(A$,1)="E"THEN1180
+ 1178 IFLEFT$(A$,1)="W"THEN1160
+ 1179 GOTO1173
+ 1180 A=19:PRINT:PRINT"You are in an apple orchard."
+ 1181 GOSUB9000
+ 1182 PRINT"Exits lead South and West."
+ 1183 S=1:W=1:GOSUB10000
+ 1184 IFLEFT$(A$,1)="L"THEN1180
+ 1186 IFLEFT$(A$,1)="S"THEN1150
+ 1188 IFLEFT$(A$,1)="W"THEN1170
+ 1189 GOTO1183
+ 1190 A=23:PRINT:PRINT"You are in the lounge."
+ 1191 GOSUB9000
+ 1192 PRINT"Exits lead North and East."
+ 1193 N=1:E=1:GOSUB10000
+ 1194 IFLEFT$(A$,1)="L"THEN1190
+ 1195 IFLEFT$(A$,1)="N"THEN1230
+ 1197 IFLEFT$(A$,1)="E"THEN1200
+ 1198 GOTO1193
+ 1200 A=24:PRINT:PRINT"You are in an imposing entrance hall"
+ 1201 GOSUB9000:IFAV=1THEN9100
+ 1202 PRINT"Exits lead North, South, West and up." 
+ 1203 DB=0:N=1:S=1:W=1:U=1:GOSUB10000
+ 1204 IFLEFT$(A$,1)="L"THEN1200
+ 1205 IFLEFT$(A$,1)="N"THEN1250
+ 1206 IFLEFT$(A$,1)="S"THEN1120
+ 1207 IFLEFT$(A$,1)="U"THEN1240
+ 1208 IFLEFT$(A$,1)="W"THEN1190
+ 1209 GOTO1203
+ 1210 A=25:PRINT:PRINT"This looks like a library." 
+ 1211 GOSUB9000
+ 1212 PRINT"The only exit is West."
+ 1213 W=1:GOSUB10000
+ 1214 IFLEFT$(A$,1)="L"THEN1210 
+ 1218 IFLEFT$(A$,1)="W"THEN1250
+ 1219 GOTO1213
+ 1230 A=26:PRINT:PRINT"A dining room, or so it appears" 
+ 1231 GOSUB9000
+ 1232 PRINT"Exits lead North and South."
+ 1233 N=1:S=1:GOSUB10000
+ 1234 IFLEFT$(A$,1)="L"THEN1230
+ 1235 IFLEFT$(A$,1)="N"THEN1270
+ 1236 IFLEFT$(A$,1)="S"THEN1190
+ 1239 GOTO1233
+ 1240 A=27:PRINT:PRINT"You are on a sweeping staircase"
+ 1241 GOSUB9000
+ 1242 PRINT"Choose up or down."
+ 1243 U=1:D=1:GOSUB10000
+ 1244 IFLEFT$(A$,1)="L"THEN1240
+ 1245 IFLEFT$(A$,1)="U"THEN1410
+ 1246 IFLEFT$(A$,1)="D"THEN1200
+ 1249 GOTO1243
+ 1250 A=31:PRINT:PRINT"You are in a narrow passage"
+ 1251 GOSUB9000
+ 1252 PRINT"Exits lead North, South and East."
+ 1253 N=1:S=1:E=1:GOSUB10000
+ 1254 IFLEFT$(A$,1)="L"THEN1250
+ 1255 IFLEFT$(A$,1)="N"THEN1280
+ 1256 IFLEFT$(A$,1)="S"THEN1200
+ 1257 IFLEFT$(A$,1)="E"THEN1210
+ 1259 GOTO1253
+ 1260 A=22:PRINT:PRINT"You are on some gloomy, narrow steps."
+ 1261 GOSUB9000
+ 1262 PRINT"Choose up or down."
+ 1263 U=1:D=1:GOSUB10000
+ 1264 IFLEFT$(A$,1)="L"THEN1260
+ 1265 IFLEFT$(A$,1)="U"THEN1290
+ 1266 IFLEFT$(A$,1)="D"THEN1300
+ 1269 GOTO1263
+ 1270 A=28:PRINT:PRINT"This looks like a games room."
+ 1271 GOSUB9000         
+ 1272 PRINT"Exits lead South and East."
+ 1273 S=1:E=1:GOSUB10000
+ 1274 IFLEFT$(A$,1)="L"THEN1270
+ 1276 IFLEFT$(A$,1)="S"THEN1230
+ 1277 IFLEFT$(A$,1)="E"THEN1280
+ 1279 GOTO1273
+ 1280 A=29:PRINT:PRINT"You find yourself in a sun-lounge."
+ 1281 GOSUB9000
+ 1282 PRINT"Exits lead North, South, East and West."
+ 1283 N=1:S=1:E=1:W=1:GOSUB10000
+ 1284 IFLEFT$(A$,1)="L"THEN1280
+ 1285 IFLEFT$(A$,1)="N"THEN1170
+ 1286 IFLEFT$(A$,1)="S"THEN1250
+ 1287 IFLEFT$(A$,1)="E"THEN1290
+ 1288 IFLEFT$(A$,1)="W"THEN1270
+ 1289 GOTO1283
+ 1290 A=30:PRINT:PRINT"This is obviously the kitchen."
+ 1291 GOSUB9000
+ 1292 PRINT"Exits lead West and down."
+ 1293 W=1:D=1:GOSUB10000
+ 1294 IFLEFT$(A$,1)="L"THEN1290
+ 1296 IFLEFT$(A$,1)="D"THEN1260
+ 1298 IFLEFT$(A$,1)="W"THEN1280
+ 1299 GOTO1293
+ 1300 A=21:PRINT:PRINT"This is a cold, damp cellar"
+ 1301 GOSUB9000
+ 1302 PRINT"Exits lead South and up."        
+ 1303 S=1:U=1:GOSUB10000
+ 1304 IFLEFT$(A$,1)="L"THEN1300
+ 1306 IFLEFT$(A$,1)="S"THEN1310
+ 1307 IFLEFT$(A$,1)="U"THEN1260
+ 1309 GOTO1303
+ 1310 A=20:PRINT:PRINT"This room is even darker than the last"
+ 1311 GOSUB9000
+ 1312 PRINT"The only way out is North"
+ 1313 N=1:GOSUB10000
+ 1314 IFLEFT$(A$,1)="L"THEN1310
+ 1315 IFLEFT$(A$,1)="N"THEN1300
+ 1319 GOTO1313
+ 1320 A=32:PRINT:PRINT"This seems to bea quest bedroom"
+ 1321 GOSUB9000
+ 1322 PRINT"The only exit it North."
+ 1323 N=1:GOSUB10000
+ 1324 IFLEFT$(A$,1)="L"THEN1320
+ 1325 IFLEFT$(A$,1)="N"THEN1400
+ 1329 GOTO1323
+ 1330 A=33:PRINT:PRINT"This is a child's bedroom"
+ 1331 GOSUB9000
+ 1332 PRINT"Exit to the North only."
+ 1333 N=1:GOSUB10000
+ 1334 IFLEFT$(A$,1)="L"THEN1330
+ 1335 IFLEFT$(A$,1)="N"THEN1360
+ 1339 GOTO1333
+ 1340 A=34:PRINT:PRINT"This must be the master bedroom"
+ 1341 GOSUB9000
+ 1342 PRINT"Exits lead North and West."
+ 1343 N=1:W=1:GOSUB10000
+ 1344 IFLEFT$(A$,1)="L"THEN1340
+ 1345 IFLEFT$(A$,1)="N"THEN1370
+ 1348 IFLEFT$(A$,1)="W"THEN1360
+ 1349 GOTO1343
+ 1350 A=35:PRINT:PRINT"You are in a tiled shower-room"
+ 1351 GOSUB9000
+ 1352 PRINT"Exit to the North only."
+ 1353 N=1:GOSUB10000
+ 1354 IFLEFT$(A$,1)="L"THEN1350
+ 1356 IFLEFT$(A$,1)="N"THEN1380
+ 1359 GOTO1353
+ 1360 A=37:PRINT:PRINT"You have found the east gallery"
+ 1361 GOSUB9000
+ 1362 PRINT"Exits North, South, East and West."
+ 1363 N=1:S=1:E=1:W=1:GOSUB10000
+ 1364 IFLEFT$(A$,1)="L"THEN1360
+ 1365 IFLEFT$(A$,1)="N"THEN1390
+ 1366 IFLEFT$(A$,1)="S"THEN1330
+ 1367 IFLEFT$(A$,1)="E"THEN1340
+ 1368 IFLEFT$(A$,1)="W"THEN1410
+ 1369 GOTO1363
+ 1370 A=36:PRINT:PRINT"This is a tiny toilet"
+ 1371 GOSUB9000
+ 1372 PRINT"Exit to the South only."
+ 1373 S=1:GOSUB10000
+ 1374 IFLEFT$(A$,1)="L"THEN1370
+ 1376 IFLEFT$(A$,1)="S"THEN1340
+ 1379 GOTO1373
+ 1380 A=38:PRINT:PRINT"This is a small box-room"
+ 1381 GOSUB9000
+ 1382 PRINT"Exits to the South and East."
+ 1383 S=1:E=1:GOSUB10000
+ 1384 IFLEFT$(A$,1)="L"THEN1380
+ 1385 IFLEFT$(A$,1)="S"THEN1350
+ 1386 IFLEFT$(A$,1)="E"THEN1400
+ 1389 GOTO1383
+ 1390 A=40:PRINT:PRINT"You are in an ornate bathroom"
+ 1391 GOSUB9000
+ 1392 PRINT"Exit to the South only."
+ 1393 S=1:GOSUB10000
+ 1394 IFLEFT$(A$,1)="L"THEN1390
+ 1396 IFLEFT$(A$,1)="S"THEN1360
+ 1399 GOTO1393
+ 1400 A=41:PRINT:PRINT"This is the west gallery"
+ 1401 GOSUB9000
+ 1402 PRINT"Exits lead North, South, East and West."
+ 1403 N=1:S=1:E=1:W=1:GOSUB10000
+ 1404 IFLEFT$(A$,1)="L"THEN1400
+ 1405 IFLEFT$(A$,1)="N"THEN1420
+ 1406 IFLEFT$(A$,1)="S"THEN1320
+ 1407 IFLEFT$(A$,1)="E"THEN1410
+ 1408 IFLEFT$(A$,1)="W"THEN1380
+ 1409 GOTO1403
+ 1410 A=42:PRINT:PRINT"You are on the main landing"
+ 1411 GOSUB9000
+ 1412 PRINT"Exits lead East, West and down."
+ 1413 E=1:W=1:D=1:GOSUB10000
+ 1414 IFLEFT$(A$,1)="L"THEN1410
+ 1416 IFLEFT$(A$,1)="W"THEN1400
+ 1417 IFLEFT$(A$,1)="E"THEN1360
+ 1418 IFLEFT$(A$,1)="D"THEN1240
+ 1419 GOTO1413
+ 1420 A=39:PRINT:PRINT"You have reached a steel-plated door. It is padlocked."
+ 1421 GOSUB9000
+ 1422 PRINT"You can return to the South"
+ 1423 S=1:GOSUB10000
+ 1424 IFLEFT$(A$,1)="L"THEN1420
+ 1426 IFLEFT$(A$,1)="S"THEN1400
+ 1429 GOTO1423
+ 1604 IFK$="N"THEN15000
+ 9000 IT=0:PRINT"I can see ";:IFWB=ATHENPRINT"the window is broken"
+ 9001 IFOS=ATHENPRINT"an open safe":IT=1
+ 9002 IFPL=ATHENPRINT"a plastic bag":IT=1
+ 9003 IFBD=ATHENPRINT"black dust":IT=1
+ 9004 IFPO=ATHENPRINT"an open panel on wall":IT=1
+ 9005 IFCP=ATHENPRINT"a locked panel on the wall":IT=1
+ 9006 IFYP=ATHENPRINT"gritty yellow powder":IT=1
+ 9007 IFBU=ATHENPRINT"a wooden bucket":IT=1
+ 9008 IFHD=ATHENPRINT"a small hole in the door":IT=1
+ 9009 IFWA=ATHENPRINT"some water":IT=1
+ 9010 IFPG=ATHENPRINT"a large dove":IT=1
+ 9011 IFBX=ATHENPRINT"a cardboard box":IT=1
+ 9012 IFTW=ATHENPRINT"some twine":IT=1
+ 9013 IFKN=ATHENPRINT"a silver knife":IT=1
+ 9014 IFNE=ATHENPRINT"a fishing net":IT=1
+ 9015 IFLD=ATHENPRINT"a long ladder":IT=1
+ 9016 IFCR=ATHENPRINT"an abandoned car":IT=1
+ 9017 IFBL=ATHENPRINT"three .38 bullets":IT=1
+ 9018 IFME=ATHENPRINT"a joint of meat":IT=1
+ 9019 IFBR=ATHENPRINT"some brown bread":IT=1
+ 9020 IFTN=ATHENPRINT"an empty tobacco tin":IT=1
+ 9021 IF(DG=A)AND(AV=1)THENPRINT"an alsatian growling at you":IT=1
+ 9022 IF(DG=A)AND(AV=0)THENPRINT"the body of an alsatian dog":IT=1
+ 9023 IFTP=ATHENPRINT"a roll of sticky tape":IT=1
+ 9024 IFBK=ATHENPRINT"an open book":IT=1 
+ 9025 IFMA=ATHENPRINT"a box of matches":IT=1
+ 9026 IFCU=ATHENPRINT"a snooker cue":IT=1
+ 9027 IFLP=ATHENPRINT"a loaded pistol":IT=1
+ 9028 IFSA=ATHENPRINT"a heavy safe":IT=1
+ 9029 IFNO=ATHENPRINT"a printed note":IT=1
+ 9030 IFRH=ATHENPRINT"a rope hangs from the window":IT=1:RO=99
+ 9031 IFGL=ATHENPRINT"a young girl tied up on the floor":IT=1
+ 9032 IFTT=ATHENPRINT"a roll of toilet tissue":IT=1 
+ 9033 IF(TG=A)AND(AL=1)THENPRINT"a thug asleep on the bed":IT=1
+ 9034 IF(TG=A)AND(AL=0)THENPRINT"a thug lying dead on the bed":IT=1
+ 9036 IFHP=ATHENPRINT"a hose-pipe":IT=1
+ 9037 IFPT=ATHENPRINT"some petrol":IT=1
+ 9038 IFBB=ATHENPRINT"broken glass":IT=1
+ 9039 IFAB=ATHENPRINT"an acid burn":IT=1
+ 9040 IFSB=ATHENPRINT"a small bottle":IT=1
+ 9041 IFGF=ATHENPRINT"a young girl":IT=1
+ 9042 IF(CU=43)AND(HD=39)THENPRINT"a cue on the floor":IT=1
+ 9043 IFRO=ATHENPRINT"a length of rope":IT=1
+ 9044 IFFU=ATHENPRINT"a fuse":IT=1
+ 9045 IFGP=ATHENPRINT"some gunpowder":IT=1
+ 9046 IFKY=ATHENPRINT"a set of keys":IT=1
+ 9047 IFPU=ATHENPRINT"a pistol":IT=1
+ 9048 IFBM=ATHENPRINT"a bomb":IT=1
+ 9098 IFIT=0THENPRINT"nothing of interest here"
+ 9099 PRINT:RETURN
+ 9100 GOSUB10000
+ 9101 IF(AV=1)AND(DB=0)THENPRINT:PRINT"AAAAAARRRGGGHHHH - he got you":KD=1:GOTO30000
+ 9102 PRINT:GOTO1202
+ 10000 IFAR=1THENPRINT:PRINTTAB(20)"ALARM RINGING":IFTM>19THEN32000 
+ 10001 IFOT=1THEN31001
+ 10002 PRINT:PRINT"What are you going to do now ?":NM=NM+1:IFNM>NM499THENOT=1
+ 10003 AA$="":BB$="":A$="":B$="":PRINT:INPUTQ$:PAPER2
+ 10004 PRINTTAB(29);"Moves ";NM 
+ 10006 IFAR=1THENTM=TM+1:PRINTTAB(29);"Alarm ";20-TM 
+ 10007 XX=10
+ 10008 L=LEN(Q$)
+ 10009 FORJ=1TOL
+ 10010 IFMID$(Q$,J,1)=" "THENXX=J+1
+ 10012 NEXT
+ 10014 BB$=MID$(Q$,XX,L):AA$=LEFT$(Q$,XX-2)
+ 10015 B$=LEFT$(BB$,3):A$=LEFT$(AA$,3)
+ 10016 IF(AA$="LOST")OR(BB$="LOST")THENPRINT:PRINT"I'm fed up too":GOTO10000
+ 10017 IFAA$="SHOUT"THENPRINT:PRINT"I've already got a headache":GOTO10000
+ 10018 IF(AA$="HOTWIRE")OR(AA$="STEAL")THENPRINT"Let's keep it legal":GOTO10000
+ 10019 IFB$="OFF"THENPRINT:PRINT"I'm going to ignore that":GOTO10000
+ 10050 IFA$="GET"THEN11000
+ 10051 IFA$="EMP"THENPRINT:PRINT"Use the DROP command":GOTO10000
+ 10053 IFA$="DRO"THEN11100
+ 10054 IFA$="THR"THEN11200 
+ 10055 IFA$="KIL"THEN11350
+ 10056 IFA$="OPE"THEN11300
+ 10057 IFA$="CLI"THEN11320
+ 10058 IFA$="FRI"THEN11340
+ 10059 IFA$="MAK"THEN11400
+ 10060 IF(A$="SYP")OR(A$="SIP")THEN11450
+ 10061 IFA$="LOA"THEN11470
+ 10062 IF(A$="BLO")OR(A$="EXP")THEN11500
+ 10063 IFA$="USE"THEN11550
+ 10064 IF(A$="STA")AND(A=11)THENPRINT:PRINT"How ?":GOTO10002
+ 10065 IFA$="REA"THEN11570
+ 10066 IFA$="QUI"THEN11600
+ 10067 IFA$="SHO"THEN11620
+ 10068 IFA$="PRE"THEN11700
+ 10069 IFA$="HEL"THENPRINT:PRINT"It's no use shouting HELP":GOTO10000
+ 10072 IF(A$="RUN")OR(A$="JUM")THENPRINT:PRINT"I'm too tired for athletics":GOTO10000
+ 10073 IFAA$="PANIC"THENPRINT:PRINT"I'm inclined to agree":GOTO10000
+ 10090 IFL>1THEN10995
+ 10100 IFA$="L"THENRETURN
+ 10101 IF(A$="N")AND(N=1)THEN15000
+ 10102 IF(A$="S")AND(S=1)THEN15000
+ 10103 IF(A$="E")AND(E=1)THEN15000
+ 10104 IF(A$="W")AND(W=1)THEN15000
+ 10105 IF(A$="U")AND(U=1)THEN15000
+ 10106 IF(A$="D")AND(D=1)THEN15000
+ 10107 IFA$="I"THEN14000
+ 10990 IFL=1THEN10998
+ 10995 PRINT:PRINT"I don't know how to ";AA$;" something":GOTO10000 
+ 10998 PRINT:PRINT"Sorry, can't do that":GOTO10000
+ 11000 GOSUB15100:IFD9=1THEND9=0:GOTO10000
+ 11001 IF(B$="BAG")AND(PL=A)THENPL=0:GOTO15000
+ 11002 IF(B$="DUS")AND(BD=A)THEN13000
+ 11004 IF(B$="KEY")AND(KY=A)THENKY=0:GOTO15000
+ 11006 IF(B$="POW")AND(YP=A)THEN13000
+ 11008 IF(B$="BUC")AND(BU=A)THENBU=0:GOTO15000  
+ 11010 IF(B$="ROP")AND(RO=A)THENRO=0:GOTO15000
+ 11012 IF(B$="WAT")AND(WA=A)THEN13000
+ 11014 IF(B$="DOV")AND(PG=A)THEN13000
+ 11016 IF(B$="BOX")AND(BX=A)THENBX=0:GOTO15000
+ 11018 IF(B$="TWI")AND(TW=A)THENTW=0:GOTO15000 
+ 11020 IF(B$="KNI")AND(KN=A)THENKN=0:GOTO15000
+ 11022 IF(B$="NET")AND(NE=A)THENNE=0:GOTO15000
+ 11024 IF(B$="LAD")AND(LD=A)THENLD=0:GOTO15000
+ 11026 IF(B$="HOS")AND(HP=A)THENHP=0:GOTO15000 
+ 11030 IF(B$="PIS")AND(PU=A)THENPU=0:GOTO15000
+ 11032 IF(B$="BUL")AND(BL=A)THENBL=0:GOTO15000
+ 11034 IF(B$="MEA")AND(ME=A)THENME=0:GOTO15000
+ 11038 IF(B$="NOT")AND(NO=A)THENNO=0:GOTO15000
+ 11040 IF(B$="MAT")AND(MA=A)THENMA=0:GOTO15000
+ 11044 IF(B$="CUE")AND(CU=A)THENCU=0:GOTO15000
+ 11046 IF(B$="BOO")AND(BK=A)THENBK=0:GOTO15000 
+ 11048 IF(B$="BRE")AND(BR=A)THENBR=0:GOTO15000
+ 11052 IF(B$="TAP")AND(TP=A)THENTP=0:GOTO15000
+ 11057 IFQ$="BAG"THENPRINT:PRINT"Sorry, it will suffocate":GOTO10000
+ 11058 IF(B$="GUN")AND(GP=A)THEN13000         
+ 11060 IF(B$="TIS")AND(TT=A)THENTT=0:GOTO15000
+ 11062 IF(B$="PET")AND(PT=A)THEN13000
+ 11064 IF(B$="GIR")AND(GF=A)THENGL=0:GOTO15000
+ 11066 IF(B$="BOT")AND(SB=A)THENSB=0:GOTO15000
+ 11068 IF(B$="TIN")AND(TN=A)THENTN=0:GOTO15000
+ 11070 IF(B$="SAF")AND(SA=A)THENPRINT:PRINT"It weighs too much":GOTO10000
+ 11071 IF(B$="GRE")AND(A=14)THENPRINT:PRINT"Don't be daft":GOTO10000
+ 11072 IF(B$="CAR")AND(CR=A)THENPRINT:PRINT"It's too heavy":GOTO10000
+ 11073 IF(B$="BED")AND((A=32)OR(A=33)OR(A=34))THENPRINT:PRINT"It's too heavy":GOTO10000
+ 11074 IF(B$="THU")AND(TG=A)AND(AL=O)THENPRINT:PRINT"He's too heavy":GOTO10000
+ 11075 IF(B$="THU")AND(TG=A)AND(AL=1)THENPRINT  
+ 11077 IF(B$="DOG")AND(DG=A)AND(AV=0)THENDG=0:GOTO15000
+ 11078 IF(B$="DOG")AND(DG=A)AND(AV=1)THENPRINT:PRINT"Not a good idea":GOTO10000
+ 11079 IF(B$="LIG")AND(A=20)AND(PO=A)THENPRINT:PRINT"Bulb's too hot":GOTO10000
+ 11080 IF(B$="GLA")AND(BB=A)THENBB=0:GOTO15000
+ 11082 IF(B$="FUS")AND(FU=A)THENFU=0:GOTO15000 
+ 11083 IF(BB$="STUFFED")OR(BB$="KNOTTED")THEN19050
+ 11084 IF(B$="BUT")AND(A=20)THENPRINT:PRINT"Try pressing it":GOTO10000
+ 11085 IF(B$="WIN")AND(A=18)THENPRINT:PRINT"It's a bit too high":GOTO10000
+ 11086 IF(B$="PAN")AND(A=20)THENPRINT:PRINT"It's fixed to the wall"GOTO15000
+ 11087 IF(B$="BOM")AND(BM=A)THENBM=0:GOTO15000
+ 11099 GOTO19020
+ 11100 IF(B$="BAG")AND(PL=0)THENPL=A:GOTO13700
+ 11102 IF(B$="DUS")AND(BD=0)THEN13530
+ 11104 IF(B$="KEY")AND(KY=0)THENKY=A:GOTO13700
+ 11106 IF(B$="POW")AND(YP=0)THEN13520
+ 11108 IF(B$="BUC")AND(BU=0)THENBU=A:GOTO13710
+ 11110 IF(B$="ROP")AND(RO=0)THENRO=A:GOTO15000
+ 11112 IF(B$="WAT")AND(WA=0)THENPRINT:PRINT"The water drains away":GOTO13500
+ 11114 IF(B$="DOV")AND(PG=0)THEN13510
+ 11118 IF(B$="TWI")AND(TW=0)THENTW=A:GOTO15000 
+ 11120 IF(B$="KNI")AND(KN=0)THENKN=A:GOTO15000
+ 11122 IF(B$="NET")AND(NE=0)THENNE=A:GOTO15000
+ 11124 IF(B$="LAD")AND(LD=0)THENLD=A:GOTO15000
+ 11125 IF(B$="PIS")AND(LP=0)THENLP=A:GOTO15000
+ 11126 IF(B$="PIS")AND(PU=0)THENPU=A:GOTO15000
+ 11130 IF(B$="BUL")AND(BL=0)THENBL=A:GOTO15000 
+ 11132 IF(B$="MEA")AND(ME=0)THENME=A:GOTO15000
+ 11134 IF(B$="NOT")AND(NO=0)THENNO=A:GOTO15000
+ 11136 IF(B$="MAT")AND(MA=0)THENMA=A:GOTO15000
+ 11138 IF(B$="CUE")AND(CU=0)THENCU=A:GOTO15000
+ 11140 IF(B$="BOO")AND(BK=0)THENBK=A:GOTO15000
+ 11142 IF(B$="BRE")AND(BR=0)THENBR=A:GOTO15000
+ 11144 IF(B$="TAP")AND(TP=0)THENTP=A:GOTO15000
+ 11146 IF(B$="GUN")AND(GP=0)THENGP=A:GOTO13540
+ 11148 IF(B$="TIS")AND(TT=0)THENTT=A:GOTO15000
+ 11150 IF(B$="PET")AND(PT=0)THENPRINT:PRINT"The petrol evaporates":GOTO13500
+ 11152 IF(B$="HOS")AND(HP=0)THENHP=A:GOTO15000
+ 11154 IF(B$="GIR")AND(GL=0)THENGL=A:GOTO15000
+ 11156 IF(B$="BOX")AND(BX=0)THENBX=A:GOTO13720
+ 11158 IF(B$="DOG")AND(DG=0)THENDG=A:GOTO15000
+ 11160 IF(B$="TIN")AND(TN=0)THENTN=A:GOTO13740
+ 11162 IF(B$="BOT")AND(SB=0)THENGOSUB19000:GOTO10000
+ 11164 IF(B$="FUS")AND(FU=0)THENFU=A:GOTO1OOOO
+ 11199 GOTO19030
+ 11200 IF(B$="MEA")AND(ME=0)THEN11210
+ 11201 IF(B$="BRE")AND(BR=0)THEN11220
+ 11202 IF(B$="CUE")AND(CU=0)THEN11230
+ 11203 IF(B$="BOT")AND(SB=0)THEN11240
+ 11204 IF(B$="KNI")AND(KN=0)THEN11250
+ 11205 IF(B$="ROP")AND(RO=0)THEN11260
+ 11206 IF(B$="GLA")AND(BB=0)THEN11280
+ 11208 PRINT:PRINT"Use the DROP command":GOTO10000
+ 11210 IF(DG=A)AND(AV=1)THENPRINT:PRINT"Dog eats meat":ME=99:DB=99:P=P+25:GOTO15000
+ 11211 ME=A:GOTO15000
+ 11220 IFPG=ATHENPRINT:PRINT"Dove eats the bread":BR=99:GOTO15000
+ 11221 IF(DG=A)AND(AV=1)THENPRINT:PRINT"Dog sniffs bread - he is not happy"         
+ 11222 BR=A:GOTO15000
+ 11230 IFDG=ATHENPRINT:PRINT"You have speared the dog":CU=A:AV=0:P=P+50:GOTO15000
+ 11231 IF(A=18)AND(WB=18)THEN11233
+ 11232 IF A=18THENPRINT:PRINT"The cue smashes the window":CU=39:WB=18:AR=1:GOTO14999
+ 11233 CU=A:GOTO15000
+ 11240 IFA<>39THENGOSUB19000:GOTO10000
+ 11241 PRINT:PRINT"Acid in the bottle burns small hole in the door":P=P+200
+ 11242 SB=99:GL=39:HD=39:BB=39:GOTO15000
+ 11250 IFDG=ATHENPRINT:PRINT"You have killed the dog":KN=A:AV=0:GOTO15000
+ 11251 IF(GL=A)AND(HD=A)THENPRINT:PRINT"Girl cuts her bonds":KN=A:GL=99:GF=A
+ 11255 KN=A:IC=IC-1
+ 11256 IFRO=39THEN11264
+ 11259 IC=IC+1:GOTO15000
+ 11260 IF(A<>39)AND(HD<>39)THENRIO=A:GOTO15000
+ 11262 IFGF<>39THENRO=A:GOTO15000
+ 11264 IFWB=0THENPRINT:PRINT"Girl breaks window and slides down rope"
+ 11265 IFWB=0THENPRINT:PRINT"Alarm starts ringing":WB=18:PLAY3,2,4,1:GOTO11270
+ 11266 IFWB=8THENPRINT:PRINT"Girl climbs out of window and down rope":GOTO10000
+ 11268 RO=39:GOTO15000
+ 11270 GF=18:RH=18:RO=18:IC=IC-1:AR=1:P=P+100:GOTO10000 
+ 11275 GF=18:RH=18:RO=18:IC=IC-1:P=P+100:GOTO10000
+ 11280 PRINT:PRINT"The fragments are too small to throw":GOTO10000
+ 11300 IF(B$="DOO")AND(A=39)THENPRINT:PRINT"It's locked, remember":GOTO10000 
+ 11301 IF(B$="WIN")AND(A=18)THENPRINT:PRINT"It's thirty feet up:GOTO10000
+ 11302 IF(B$="SAF")AND(A=21)AND(OS=99)THENPRINT:PRINT"It's locked":GOTO10000 
+ 11303 IF(B$="BOT")AND(SB=0)THENPRINT:PRINT"The screw cap is stuck":GOTO10000
+ 11304 IF(B$="CAR")AND(A=11)THENPRINT:PRINT"Nothing. Try the trunk":GOTO10000
+ 11305 IF(B$="TRU")AND(A=11)THENPRINT:PRINT"Nothing here, either":GOTO10000
+ 11306 IF(B$="TIN")AND(TF=0)AND(TN=0)THENPRINT:PRINT"Nothing inside":GOSUB10000
+ 11307 IF(B$="TIN")AND(TF=1)AND(TN=0)THENPRINT:PRINT"Okay, it's open":GOSUB10000
+ 11308 IF(B$="TAN")AND(A=11)AND(PA=1)THENPRINT:PRINT"It's already open":GOSUB10000 
+ 11309 IF(B$="TAN")AND(A=11)THENPA=1:PRINT:PRINT"Okay, it's open":GOTO10000
+ 11310 IF(B$="SAF")AND(A=21)AND(OS=21)THENPRINT:PRINT"It is open":GOTO10000
+ 11311 IF(B$="PAN")AND(A=20)AND(PO=20)THENPRINT:PRINT"It is open"GOSUB10000
+ 11312 IF(B$="PAN")AND(A=20)THENPRINT:PRINT"It's locked":GOTO10000
+ 11313 IF(B$="BOX")AND(XF=0)AND(BX=0)THENPRINT:PRINT"Nothing inside":GOTO10000
+ 11314 IF(B$="BOX")AND(XF=1)AND(BX=0)THENPRINT:PRINT"Okay, it's open":GOTO10000
+ 11315 GOTO19010
+ 11320 IF(B$="WAL")AND(A=18)THENPRINT:PRINT"It's too steep":GOTO10000
+ 11321 IF(B$="WAL")AND(A=7)THENPRINT:PRINT"It's too steep":GOTO10000
+ 11322 IF(B$="LAD")AND(AD<>0)THENPRINT:PRINT"You have no ladder":GOTO10000
+ 11323 IF(B$="LAD")AND(A=18)THENPRINT:PRINT"Ladder is too short":GOTO10000
+ 11324 IF(B$="LAD")AND(A=7)THENPRINT:PRINT"You are out":LD=7:IC=IC-1:OP=1
+ 11325 IFOP=1THENA=6:RETURN
+ 11326 GOTO10998
+ 11340 IF(B$="GIR")AND(GL=0)THENPRINT:PRINT"Shame on you":GOTO10000  
+ 11341 IFB$="THU"THEN11343
+ 11342 PRINT:PRINT"I don't understand":GOTO10000
+ 11343 IFFK=1THENPRINT:PRINT"You've already frisked him":GOTO10000
+ 11344 IFAL=1THENPRINT:PRINT"I should subdue him first":GOTO10000
+ 11345 PRINT"I've found a pistol.It is not loaded":PU=A:FK=1:P=P+50:GOTO10000
+ 11350 IF(B$="DOG")AND(A=24)AND(AV=1)THENPRINT:PRINT"Good idea":GOTO10000 
+ 11352 IF(B$="GIR")AND(GL=0)THENPRINT:PRINT"N, I don't think so":GOTO10000
+ 11354 IF(B$="DOV")AND(DV=0)THENPRINT:PRINT"No needless violence":GOTO10000 
+ 11356 IF(B$="THU")AND(A=34)AND(AL=1)THENPRINT:PRINT"I'm game. How":GOTO11360
+ 11358 GOTO19010
+ 11360 PRINT:INPUTRR$:R$=LEFT$(RR$,3)
+ 11361 PRINT:PRINT"With what ?":PRINT:INPUTSS$:S$=LEFT$(SS$,3)
+ 11362 IFR$="STR"THEN11370
+ 11364 IFR$="STA"THEN11380
+ 11366 IFR$="HIT"THEN11390
+ 11368 IFR$="SUF"THEN11395 
+ 11369 PRINT:PRINT"Come again ?":GOTO10000
+ 11370 IF(S$="TWI")AND(TW=0)THENPRINT:PRINT"CROAK":AL=0:TW=A:IC=IC-1:P=P+50:GOTO10000
+ 11371 IF(S$="TWI")AND(TW<>0)THENPRINT:PRINT"You don't have any":GOTO10000
+ 11372 IF(S$="ROP")AND(RO=0)THENPRINT:PRINT"CROAK":AL=0:TW=A:IC=IC-1:P=P+50:GOTO10000
+ 11373 IF(S$="ROP")AND(RO<>0)THENPRINT:PRINT"You don't have any":GOTO10000 
+ 11374 IF(S$="HOS")AND(HP=0)THENPRINT:PRINT"CROAK":AL=0:HP=A:IC=IC-1:P=P+50:GOTO10000
+ 11375 IF(S$="HOS")AND(HP<>0)THENPRINT:PRINT"You don't have one":GOTO10000
+ 11376 PRINT:PRINT"Come again ?":GOTO10000
+ 11380 IF(S$="KNI")AND(KN=0)THENPRINT:PRINT"Messy":AL=0:KN=A:IC=IC-1:P=P+50:GOTO10000
+ 11381 IF(S$="KNI")AND(KN<>0)THENPRINT:PRINT"You don't have one":GOTO10000   
+ 11382 PRINT:PRINT"Come again ?":GOTO10000
+ 11390 IF(S$="CUE")AND(CU=0)THENPRINT:PRINT"KRUNCH":AL=0:CU=0:IC=IC+1:P=P+50:GOTO10000
+ 11391 IF(S$="CUE")AND(CU<>0)THENPRINT:PRINT"You don't have one":GOTO10000
+ 11392 PRINT:PRINT"You managed to wake him - he's not happy- he approaches......."
+ 11393 FORT=1TO500:NEXT:PRINT"**BANG**   you are dead":SHOOT:KT=1:GOTO30000 
+ 11395 IF(S$="BAG")AND(PL=0)THEN1398
+ 11396 IF(S$="BAG")AND(PL<>0)THENPRINT:PRINT"You don't have one":GOTO10000
+ 11397 PRINT:PRINT"What ???":GOTO10000
+ 11398 IFPF=1THENPRINT:PRINT"Your bag is full":GOTO10000
+ 11399 PRINT:PRINT"G-A-S-P !!!":AL=0:PL=A:IC=IC-1:P=P+50:GOTO10000
+ 11400 IFB$="GUN"THEN11410
+ 11401 IFB$="FUS"THEN11420
+ 11402 IFB$="BOM"THEN11430
+ 11403 IFB$="NOI"THENPRINT"I'd keep quiet if I were you":GOTO10000
+ 11404 IF(B$="GIR")AND(GF=A)THENPRINT:PRINT"Later, later":GOTO10000
+ 11405 IF(B$="GIR")AND(GF=0)THENPRINT:PRINT"Later, later":GOTO10000   
+ 11406 GOTO10998
+ 11410 IF(YP=0)AND(BD=0)THENPRINT:PRINT"Okay, gunpowder ready":P=P+100:GOTO13600 
+ 11411 IF(YP<>0)AND(BD<>0)THENPRINT:PRINT"Sorry, can't do that": GOTO10000
+ 11420 IF(TT=0)AND(PT=0)THENPRINT:PRINT"Okay, fuse ready":P=P+100:GOTO13670
+ 11421 GOTO10998
+ 11430 IF(FU=0)AND(GP=0)AND(TN=0)THENPRINT:PRINT"Bomb ready":FU=99:GP=99:TN=99:GOTO11432
+ 11431 GOTO10998
+ 11432 BM=A:IC=IC-2:EE=0:P=P+200:GOTO10000
+ 11450 IFB$="PET"THEN11452
+ 11451 GOTO19010
+ 11452 IF(PA=0)OR(A<>11)THEN10998
+ 11453 PRINT:PRINT"What shall I use?"
+ 11454 PRINT:INPUTS$:IFLEFT$(S$,3)="HOS"THEN11456
+ 11455 GOTO10998
+ 11456 IFHP<>0THENPRINT:PRINT"You don't have one":GOTO10000
+ 11457 PRINT:PRINT"Okay":PT=A:HP=A:GOTO13000
+ 11470 IFB$="PIS"THEN11472
+ 11471 GOTO10998
+ 11472 IF(PU<>0)OR(BL<>0)THEN10998
+ 11473 IFLP=0THENPRINT:PRINT"It's already loaded":GOTO10000
+ 11474 LP=0:PU=99:BL=99:PRINT:PRINT"Okay":IC=IC-1:GOTO10000
+ 11500 IF(B$="SAF")AND(OS=21)THENPRINT:PRINT"It's already open":GOTO10000
+ 11501 IF(B$="SAF")OR(B$="DOO")THEN11503
+ 11502 GOTO10998
+ 11503 IF(B$="SAF")AND(A<>21)THENPRINT:PRINT"I can't see a safe":GOTO10000
+ 11504 IF(B$="DOO")AND(A<>39)THENPRINT:PRINT"I can't see a door":GOTO10000
+ 11506 PRINT:PRINT"Using what ?":PRINT:INPUTZZ$:Z$=LEFT$(ZZ$,3) 
+ 11507 IFZ$="GUN"THEN11510
+ 11508 IFZ$="BOM"THEN11530
+ 11509 GOTO19010
+ 11510 IFGP<>0THENPRINT:PRINT"You don't have any":GOTO10000
+ 11512 PRINT:PRINT"Okay, how shall we light it?"
+ 11514 PRINT:INPUTXX$:X$=LEFT$(XX$,3)
+ 11516 IF(X$="MAT")AND(MA=0)THENMA=99:GP=99:GOTO11525
+ 11518 IF(X$="PIS")AND(LP=0)THENLP=99:PI=0:GP=99:GOTO11525
+ 11520 IF(X$="PIS")AND(PI=0)THENPRINT:PRINT"CLICK  it isn't loaded":GOTO10000
+ 11522 PRINT:PRINT"Let's try again, eh":GOTO10000
+ 11525 PRINT:PRINT"****B*O*O*O*M*M*M****":EXPLODE
+ 11527 IFX$="MAT"THENPRINT:PRINT"You have been blown to bits":KE=1:GOTO30000
+ 11528 IFX$="PIS"THENPRINT:PRINT"Lots of smoke but unsuccessful":GOTO30000
+ 11530 IFBM<>0THENPRINT:PRINT"You don't have a bomb":GOTO10000
+ 11532 PRINT:PRINT"Okay, how shall we light it?"
+ 11534 PRINT:INPUTXX$:X$=LEFT$(XX$,3)
+ 11536 IF(X$="MAT")AND(MA=0)THENMA=99:BM=99:GOTO11545
+ 11538 IF(X$="PIS")AND(LP=0)THENLP=99:PU=0:BM=99:QZ=1
+ 11539 IFQZ=1THENQZ=0:PRINT:PRINT"*BANG*BANG*BANG*":GOTO11545
+ 11540 IF(X$="PIS")AND(PU=0)THENPRINT:PRINT"CLICK  it isn't loaded":GOTO10000
+ 11542 PRINT:PRINT"Let's try again, eh":GOTO10000
+ 11545 PRINT:PRINT"****B*O*O*O*M*M*M****":EXPLODE  
+ 11546 IFB$="DOO"THENPRINT:PRINT"The door is untouched":GOTO10000
+ 11547 PRINT:PRINT"The safe is open":SB=A:SA=99:OS=21:P=P+200:GOTO10000
+ 11550 IFB$="KEY"THEN11552
+ 11551 GOTO10998
+ 11552 IFKY<>0THEN19030
+ 11553 IF(A=39)OR(A=21)OR(A=11)THEN11556
+ 11554 IFA=20THEN11560
+ 11555 PRINT:PRINT"I don't understand":GOTO10000
+ 11556 PRINT:PRINT"The keys don't fit":GOTO10000
+ 11560 PRINT:PRINT"It's open"
+ 11562 PRINT:PRINT"I see lots of lights and a red button" 
+ 11564 KY=20:IC=IC-1:CP=99:PO=20:GOTO10000
+ 11570 IFB$="NOT"THEN11572
+ 11571 GOTO11580  
+ 11572 IFN0<>0THEN19030
+ 11573 PRINT:PRINT"It says":PRINT:PRINT"For the best computer games"
+ 11574 PRINT:PRINT"         SEVERN SOFTWARE"
+ 11575 PRINT"         5, SCHOOL CRESCENT"
+ 11576 PRINT"         LYDNEY"
+ 11577 PRINT"         GLOS GL15 5TA"
+ 11578 PRINT:PRINT"         TEL(0594) 43352":GOTO10000
+ 11580 IFB$="BOO"THEN11582
+ 11581 GOTO19010
+ 11582 IFBK<>0THEN19030
+ 11583 PRINT:PRINT"I shouldn't bother":GOTO10000
+ 11600 PRINT:PRINT"Giving up ???? - are you sure ?"
+ 11602 K$=KEY$:IFK$="Y"THENGU=1:GOTO30001
+ 11604 IFK$="N"THEN15000
+ 11606 GOTO11602  
+ 11620 IFPU=0THENPRINT:PRINT"CLICK   it isn't loaded":GOTO10000
+ 11622 IF(PU<>0)AND(LP<>0)THENPRINT:PRINT"You have no gun":GOTO10000
+ 11623 PRINT:PRINT"*BANG*BANG*BANG*":LP=99:PU=0:GOSUB16000
+ 11624 IF(A=24)AND(AV=1)THENPRINT:PRINT"The dog is dead":P=P+50:AV=0
+ 11626 GOTO10000
+ 11700 IFB$="BUT"THENGOTO11702
+ 11701 PRINT:PRINT"Press what ?":GOTO10000  
+ 11702 IF(PO<>20)OR(A<>20)THEN19020
+ 11704 IFAR=1THENPRINT:PRINT"Alarm stops ringing":PING::AR=0:P=P+200:GOTO10000
+ 11706 PRINT:PRINT"Oh - nothing happened":GOTO10000
+ 12000 IF(GL=39)OR(GF=39)THENPRINT:PRINT"She cannot get through the hole":GOTO10000
+ 12004 GF=0:GOTO15000
+ 13000 PRINT:PRINT"Carry it in what?":PRINT:INPUTQQ$:Q$=LEFT$(QQ$,3):IFQ$="IN "THEN13002
+ 13001 GOTO13004
+ 13002 XX=10:L=LEN(QQ$):FORJ=1TOL:IFMID$(QQ$,J,1)=" "THENXX=J+1
+ 13003 NEXT:J$=MID$(QQ$,XX,L):Q$=LEFT$(J$,3)
+ 13004 IF(Q$="BUC")AND(BU<>0)THEN13012
+ 13005 IF(Q$="BOX")AND(BX<>0)THEN13012
+ 13006 IF(Q$="BOT")AND(SB<>0)THEN13012
+ 13007 IF(Q$="BAG")AND(PL<>0)THEN13012
+ 13008 IF(Q$="TIN")AND(TN<>0)THEN13012
+ 13009 IF(Q$="NET")AND(NE<>0)THEN13012
+ 13010 IF(Q$="BOT")AND(SB=0)THENPRINT:PRINT"Your bottle is full:GOTO10000
+ 13011 GOTO13014
+ 13012 PRINT:PRINT"You aren't carrying one":GOTO10000
+ 13014 IFB$="GUN"THEN13250
+ 13015 IFB$="WAT"THEN13020
+ 13016 IFB$="DOV"THEN13050
+ 13017 IFB$="POW"THEN13100
+ 13018 IFB$="DUS"THEN13150
+ 13019 IFB$="PET"THEN13200
+ 13020 IF(Q$="BUC")AND(BF=0)THENWA=0:BF=1:WW=1:GOTO15000
+ 13021 IF(Q$="BUC")AND(BF=1)THENPRINT:PRINT"Your bucket is full":GOTO10000
+ 13022 IF(Q$="BAG")AND(PF=0)THENWA=0:PF=1:WW=5:GOTO15000
+ 13023 IF(Q$="BAG")AND(PF=1)THEN19060 
+ 13028 IF(Q$="TIN")AND(TF=0)THENWA=0:TF=1:WW=6:GOTO15000
+ 13029 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13050 IF(Q$="BUC")AND(BF=0)THENPG=0:BF=1:PP=1:GOTO15000
+ 13051 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13052 IF(Q$="BOX")AND(XF=0)THENPG=0:XF=1:PP=2:GOTO15000
+ 13053 IF(Q$="BOX")AND(XF=1)THEN19060
+ 13054 IF(Q$="NET")AND(NF=0)THENPG=0:NF=1:PP=3:GOTO15000
+ 13055 IF(Q$="NET")AND(NF=1)THEN19060
+ 13065 GOTO19040
+ 13100 IF(Q$="BUC")AND(BF=0)THENYP=0:BF=1:Y=1:GOTO15000
+ 13101 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13102 IF(Q$="BOX")AND(XF=0)THENYP=0:XF=1:Y=2:GOTO15000
+ 13103 IF(Q$="BOX")AND(XF=1)THEN19060
+ 13108 IF(Q$="BAG")AND(PF=0)THENYP=0:PF=1:Y=5:GOTO15000
+ 13109 IF(Q$="BAG")AND(PF=1)THEN19060
+ 13110 IF(Q$="TIN")AND(TF=0)THENYP=0:TF=1:Y=6:GOTO15000
+ 13111 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13115 GOTO19040
+ 13150 IF(Q$="BUC")AND(BF=0)THENBD=0:BF=1:B=1:GOTO15000
+ 13151 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13152 IF(Q$="BOX")AND(XF=0)THENBD=0:XF=1:B=2:GOTO15000 
+ 13153 IF(Q$="BOX")AND(XF=1)THEN19060
+ 13158 IF(Q$="BAG")AND(PF=0)THENBD=0:PF=1:B=5:GOTO15000
+ 13159 IF(Q$="BAG")AND(PF=1)THEN19060
+ 13160 IF(Q$="TIN")AND(TF=0)THENBD=0:TF=1:B=6:GOTO15000
+ 13161 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13165 GOTO19040 
+ 13200 IF(Q$="BUC")AND(BF=0)THENPT=0:BF=1:G=1:GOTO13240
+ 13201 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13202 IF(Q$="BAG")AND(PF=0)THENPT=0:PF=1:G=5:GOTO13240
+ 13203 IF(Q$="BAG")AND(PF=1)THEN19060
+ 13208 IF(Q$="TIN")AND(TF=0)THENPT=0:TF=1:G=6:GOTO13240
+ 13209 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13210 GOTO19040
+ 13240 PRINT:PRINT"Okay":GOTO10000
+ 13250 IF(Q$="BUC")AND(BF=0)THENBF=1:EE=1:GP=0:IC=IC+1:GOTO13240 
+ 13251 IF(Q$="BUC")AND(BF=1)THEN19060
+ 13252 IF(Q$="BAG")AND(PF=0)THENPF=1:EE=5:GP=0:IC=IC+1:GOTO13240
+ 13253 IF(Q$="BAG")AND(PF=1)THEN19060
+ 13254 IF(Q$="BOX")AND(XF=0)THENXF=1:EE=2:GP=0:IC=IC+1:GOTO13240
+ 13255 IF(Q$="BOX")AND(XF=1)THEN19060
+ 13258 IF(Q$="TIN")AND(TF=0)THENTF=1:EE=6:GP=0:IC=IC+1:GOTO13240 
+ 13259 IF(Q$="TIN")AND(TF=1)THEN19060
+ 13260 GOTO19040
+ 13500 IFWW=1THENBF=0:WW=0
+ 13502 IFWW=5THENPF=0:WW=0
+ 13503 IFWW=6THENTF=0:WW=0
+ 13505 WA=99:GOTO15000
+ 13510 IFPP=1THENBF=0:PP=0
+ 13511 IFPP=2THENXF=0:PP=0
+ 13512 IFPP=3THENNF=0:PP=0
+ 13515 PG=A:GOTO15000
+ 13520 IFY=1THENBF=0:Y=0
+ 13521 IFY=2THENXF=0:Y=0
+ 13523 IFY=5THENPF=0:Y=0
+ 13524 IFY=6THENTF=0:Y=0
+ 13525 YP=A:GOTO15000
+ 13530 IFB=1THENBF=0:B=0
+ 13531 IFB=2THENXF=0:B=0
+ 13533 IFB=5THENPF=0:B=0
+ 13534 IFB=6THENTF=0:B=0
+ 13535 BD=A:GOTO15000
+ 13540 IFEE=1THENBF=0:EE=0
+ 13541 IFEE=2THENXF=0:EE=0
+ 13542 IFEE=5THENPF=0:EE=0 
+ 13544 IFEE=6THENTF=0:EE=0
+ 13545 GP=A:GOTO15000
+ 13550 IFG=1THENBF=0:G=0
+ 13553 IFG=5THENPF=0:G=0 
+ 13554 IFG=6THENTF=0:G=0
+ 13555 PT=99:GOTO15000
+ 13600 IF(Y=1)OR(B=1)THENBF=0
+ 13601 IF(Y=2)OR(B=2)THENXF=0
+ 13602 IF(Y=5)OR(B=5)THENPF=0
+ 13603 IF(Y=6)OR(B=6)THENTF=0
+ 13604 YP=99:BD=99:Y=0:B=0:GP=A:IC=IC-2:GOTO10000
+ 13660 BM=0
+ 13661 IFEE=1THENBF=0:EE=0
+ 13662 IFEE=2THENXF=0:EE=0
+ 13663 IFEE=5THENPF=0:EE=0
+ 13664 IFEE=6THENTF=0:EE=0 
+ 13669 GOTO10000
+ 13670 IFG=1THENBF=0:G=0
+ 13671 IFG=5THENPF=0:G=0
+ 13672 IFG=6THENTF=0:G=0 
+ 13674 TT=99:PT=99:G=0:FU=A:IC=IC-1:GOTO10000
+ 13700 IFWW=5THENWA=99:WW=0:GOSUB13800
+ 13701 IFB=5THENBD=A:B=0
+ 13702 IFY=5THENYP=A:Y=0
+ 13703 IFG=5THENPT=99:G=0:GOSUB13810
+ 13704 IFEE=5THENGP=A:EE=0
+ 13705 IFPF=1THENPF=0:IC=IC-1
+ 13706 GOTO15000
+ 13710 IFWW=1THENWA=99:WW=0:GOSUB13800
+ 13711 IFB=1THENBD=A:B=0
+ 13712 IFY=1THENYP=A:Y=0
+ 13713 IFG=1THENPT=99:G=0:GOSUB13810
+ 13714 IFEE=1THENGP=A:EE=0
+ 13715 IFPP=1THENPG=A
+ 13716 IFBF=1THENBF=0:IC=IC-1
+ 13717 GOTO15000
+ 13720 IFB=2THENBD=A:B=0
+ 13721 IFY=2THENYP=A:Y=0
+ 13722 IFPP=2THENPG=A:PP=0
+ 13723 IFEE=2THENGP=A:EE=0 
+ 13724 IFXF=1THENXF=0:IC=IC-1
+ 13725 GOTO15000
+ 13730 IFPP=3THENPG=A:PP=0 
+ 13731 IFNF=1THENNF=0:IC=IC-1
+ 13732 GOTO15000
+ 13740 IFWW=6THENWA=99:WW=0:GOSUB13800
+ 13741 IFB=6THENBD=A:B=0
+ 13742 IFY=6THENYP=A:Y=0
+ 13743 IFG=6THENPT=99:G=0:GOSUB13810
+ 13744 IFEE=6THENGP=A:EE=0
+ 13745 IFTF=1THENTF=0:IC=IC-1
+ 13746 GOTO15000  
+ 13800 PRINT:PRINT"The water spills out and drains away":RETURN
+ 13810 PRINT:PRINT"The petrol spills out and evaporates":RETURN 
+ 14000 CLS:PAPER6:PRINTTAB(15);"          Inventory"
+ 14001 PRINT"***********************************" 
+ 14002 IFPL=0THENPRINTTAB(13);"A plasic bag"
+ 14003 IFBD=0THENPRINTTAB(13);"Some black dust"
+ 14004 IFKY=0THENPRINTTAB(13);"A set of keys"  
+ 14005 IFPU=0THENPRINTTAB(13);"A pistol" 
+ 14006 IFYP=0THENPRINTTAB(13);"Some gritty yellow powder"
+ 14007 IFBU=0THENPRINTTAB(13);"A wooden bucket"           
+ 14008 IFRO=0THENPRINTTAB(13);"A length of rope" 
+ 14009 IFWA=0THENPRINTTAB(13);"Some water"     
+ 14010 IFPG=0THENPRINTTAB(13);"A large dove"
+ 14011 IFBL=0THENPRINTTAB(13);"3 bullets"    
+ 14012 IFKN=0THENPRINTTAB(13);"A silver knife"
+ 14013 IFTW=0THENPRINTTAB(13);"Some twine"     
+ 14014 IFME=0THENPRINTTAB(13);"Some meat" 
+ 14015 IFNO=0THENPRINTTAB(13);"A printed note"
+ 14016 IFMA=0THENPRINTTAB(13);"A box of matches"
+ 14017 IFCU=0THENPRINTTAB(13);"A snooker cue"   
+ 14018 IFBK=0THENPRINTTAB(13);"A large book" 
+ 14019 IFLD=0THENPRINTTAB(13);"A ladder"     
+ 14020 IFBR=0THENPRINTTAB(13);"Some brown bread"
+ 14021 IFTP=0THENPRINTTAB(13);"a roll of sticky tape"
+ 14022 IFGP=0THENPRINTTAB(13);"Some gunpowder"       
+ 14023 IFTT=0THENPRINTTAB(13);"Some toilet tissue"
+ 14024 IFPT=0THENPRINTTAB(13);"Some petrol"       
+ 14025 IFHP=0THENPRINTTAB(13);"A hose-pipe"
+ 14026 IFGL=0THENPRINTTAB(13);"A girl"     
+ 14027 IFDG=0THENPRINTTAB(13);"A dead dog"
+ 14028 IFBB=0THENPRINTTAB(13);"Some broken glass"
+ 14029 IFBX=0THENPRINTTAB(13);"A cardboard box"  
+ 14030 IFNE=0THENPRINTTAB(13);"A fishing net"  
+ 14031 IFSB=0THENPRINTTAB(13);"A small bottle"
+ 14032 IFTN=0THENPRINTTAB(13);"A tobacco tin" 
+ 14034 IFBM=0THENPRINTTAB(13);"A bomb"        
+ 14035 IFLP=0THENPRINTTAB(13);"A loaded pistol"
+ 14036 IFFU=0THENPRINTTAB(13);"A fuse"         
+ 14100 PRINT"***********************************":RETURN 
+ 14999 PRINT:PRINT"Alarm starts ringing"                
+ 15000 IFA$="GET"THENIC=IC+1
+ 15001 IFA$="MAK"THENIC=IC-2
+ 15002 IFA$="DRO"THENIC=IC-1:PRINT:PRINT"Okay":GOTO10000
+ 15003 IFA$="THR"THENIC=IC-1
+ 15005 N=0:S=0:E=0:W=0:U=0:D=0:PRINT:PRINT"Okay":IT=0:RETURN  
+ 15100 IFIC>7THENPRINT:PRINT"You will have to DROP something":D9=1
+ 15101 RETURN
+ 16000 SHOOT:WAIT25:SHOOT:WAIT25:SHOOT:RETURN
+ 17000 PLAY3,2,4,1 
+ 19000 PRINT:PRINT"*CRASH*TINKLE* There is a funny smell.":AB=A
+ 19005 BB=A:SB=99:RETURN
+ 19010 PRINT:PRINT"Eh ??":GOTO10000
+ 19020 PRINT:PRINT"I can't see ";BB$;" anywhere":GOTO10000 
+ 19030 PRINT:PRINT"Don't have ";BB$;" - check inventory":GOTO10000
+ 19040 PRINT:PRINT"Don't be ridiculous"
+ 19041 IFPT=ATHENPT=99
+ 19042 GOTO10000
+ 19050 PRINT:PRINT"Abuse will get you nowhere":GOTO10000
+ 19060 PRINT:PRINT"Sorry, that's full":GOTO10000         
+ 30000 FORT=1TO500:NEXT
+ 30001 FORLF=1TO24:PRINT:NEXT
+ 30002 IFKD=1THENKL$="dog":NM=NM*5
+ 30003 IFKT=1THENKL$="thug":NM=NM*4    
+ 30004 IFKE=1THENKL$="explosion":NM=NM*3
+ 30005 IFGU=1THENPRINT:PRINT"You were unable to complete your task":NM=NM*10
+ 30006 IF(GU=1)AND(NM<502)THENNM=502
+ 30007 IFGU=1THEN30020
+ 30008 IFOT=1THENPRINT:PRINT"You have made your 500 moves":GOTO30020
+ 30010 CLS:PRINT:PRINT"You have been killed by the ";KL$:GOTO30020 
+ 30020 PRINT:PRINT:PRINT"Game score     ";P-NM" points"
+ 30030 PRINT:PRINT:PRINT"Do you want to try again ?"
+ 30032 FORT=1TO15:PRINT:NEXT
+ 30035 K$=KEY$:IFK$="Y"THENRUN:GOTO100
+ 30036 IFK$="N"THEN40000
+ 30037 GOTO30035
+ 31000 FORT=1TO250:NEXT:FORT=1TO22:PRINT:NEXT
+ 31002 PRINT:PRINT:PRINT"and you have made it - WELL DONE":P=P+200:GOTO30020
+ 32000 FORT=1TO500:NEXT  
+ 32001 FORLF=1TO24:PRINT:PRINT:NEXT
+ 32005 PRINT"You failed to silence the alarm" 
+ 32006 PRINT"in time and have been captured.":NM=NM*2:GOTO30020
+ 40000 CLS:PRINT:PRINT:PRINT"If you have enjoyed this game, why not"
+ 40001 PRINT" send for our list"
+ 40002 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"         SEVERN SOFTWARE"
+ 40003 PRINT"         5, SCHOOL CRESCENT"
+ 40004 PRINT"         LYDNEY"
+ 40005 PRINT"         GLOS GL15 5TA"
+ 40006 PRINT"         TEL(0594) 43352"
+ 40018 REM FORT=1TO1000:NEXT:PING
+ 40019 PRINT:PRINT:PRINT:PRINT:PRINT"***********************************" 
+ 40020 PRINT"Any key to clear or 'R' to re-start"
+ 40021 GETK$
+ 40022 IFK$="R"THENRUN
+ 40023 CLS:END
\ No newline at end of file
diff --git a/encounter/solutions/ENCOUNTER ADVENTURES.doc b/encounter/solutions/ENCOUNTER ADVENTURES.doc
new file mode 100644
index 0000000..ef8724b
Binary files /dev/null and b/encounter/solutions/ENCOUNTER ADVENTURES.doc differ
diff --git a/encounter/solution.txt b/encounter/solutions/solution.txt
similarity index 100%
rename from encounter/solution.txt
rename to encounter/solutions/solution.txt
diff --git a/encounter/spectrum/Encounter.scr b/encounter/spectrum/Encounter.scr
new file mode 100644
index 0000000..7660c30
Binary files /dev/null and b/encounter/spectrum/Encounter.scr differ
diff --git a/encounter/spectrum/scr2.gif b/encounter/spectrum/scr2.gif
new file mode 100644
index 0000000..d8f816f
Binary files /dev/null and b/encounter/spectrum/scr2.gif differ