home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / ATOMIC-ISLE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  32.1 KB  |  684 lines
  1. 10 REM  ATOMIC ISLE  Q-LINK DISK # 127
  2. 15 REM  WRITTEN BY GEORGE KNOEDLER
  3. 20 REM             604 ALLENGROVE ST
  4. 25 REM             PHILA PA  19120
  5. 35 :
  6. 40 PRINTCHR$(147):POKE53280,0:POKE53281,0:PRINTCHR$(142)
  7. 50 PRINT"[158]          A T O M I C   I S L E"
  8. 55 PRINTTAB(16)"[154]BY MOUSE"
  9. 60 FORX=1TO5000:NEXT
  10. 90 GOTO790
  11. 100 PRINT"YOU MUST USE THE FULL COMMAND TO GET"
  12. 105 PRINT"ANYWHERE, SUCH AS 'GO NORTH' OR 'CLIMB"
  13. 110 PRINT"FENCE'. YOU MAY PRESS F1 TO GET TO THE"
  14. 115 PRINT"LIST OF COMMANDS AND INSTRUCTIONS AT ANY";
  15. 120 PRINT"PROMPT.":PRINT:PRINT"TO GET TO THE TOP OF TH SCENE, (YELLOW"
  16. 125 PRINT"DESCRIPTION CARD), TYPE IN 'LOOK' AT ANY";
  17. 130 PRINT"PROMPT. (INCLUDING THE 'MISSLE STATUS'"
  18. 135 PRINT"SCREEN)"
  19. 140 PRINT:PRINT"IF A COMMAND DOESN'T WORK ONE WAY, TRY"
  20. 145 PRINT"TO REWORD IT. REMEMBER, WE DON'T ALL"
  21. 150 PRINT"THINK ALIKE.":PRINT:PRINT"TYPING 'HELP' WILL GET YOU A SMALL GRAY"
  22. 155 PRINT"CARD WITH A HELPFUL MESSAGE (MAYBE)."
  23. 160 PRINT"THE GREEN CARD GIVES YOU THE RESULT OF"
  24. 165 PRINT"YOUR LAST ACTION."
  25. 170 PRINTTAB(9)"PRESS <SPACE>   ENJOY  8:)"
  26. 180 GETA$:IFA$=""THEN180
  27. 190 RETURN
  28. 790 Q$(8)="":S$(7)="":Q$(6)="":Q$(5)=""
  29. 795 S$="":Q$(7)="":S$(6)="":Q$(9)=""
  30. 800 A$(1)="                                        ":A$(3)="[158][175]":DIMB$(453)
  31. 805 W$(1)="[145][145][215]RONG! [212]RY AGAIN.":W$(2)="[145][145][199]IVE IT ANOTHER TRY."
  32. 810 W$(3)="[145][145][212]RY SOMETHING ELSE.":W$(4)="[145][145][199]IVE IT ANOTHER SHOT."
  33. 815 W$(5)="[145][145][206]OT THIS TIME! [215]HAT ELSE?":W$(6)="[145][145][196]O SOMETHING DIFFERENT."
  34. 820 GOTO1000
  35. 825 A$(2)="":A$=""
  36. 830 PRINTA$(3);:A(1)=PEEK(211):A(2)=PEEK(214)
  37. 835 GETA$(2):IFA$(2)=""THEN835
  38. 840 A=ASC(A$(2)):IFA=13THENPOKE211,A(1)-1:POKE214,A(2)+1:PRINT"[145] ":GOTO865
  39. 845 IFA$(2)="[133]"THENGOSUB1105:A$="C":RETURN
  40. 850 IFA<20ORA>90ORA=29THEN835
  41. 852 IFLEN(A$)=0AND(A=20ORA=32)THEN835
  42. 855 PRINT"[157]"A$(2);:A$=A$+A$(2):IFA=20THENA(4)=LEN(A$):A$=LEFT$(A$,A(4)-2)
  43. 860 GOTO830
  44. 865 IFRIGHT$(A$,1)=CHR$(32)THENA=LEN(A$):A$=LEFT$(A$,(A-1)):GOTO865
  45. 866 RETURN
  46. 870 FORX=1TO6:POKE53281,X:POKE53280,X:FORT=1TO200:NEXT:NEXT:RETURN
  47. 880 C=1:GOSUB905:PRINTA$(1):PRINTA$(1):GOSUB905:GOSUB910:GOSUB915:RETURN
  48. 885 C=1:GOSUB905:PRINTA$(1)"":PRINTA$(1):GOSUB950:GOSUB915:RETURN
  49. 900 :
  50. 905 PRINT"";:RETURN
  51. 910 GOSUB905:PRINT"[153][215]HAT'S YOUR MOVE?  ":GOSUB825:RETURN
  52. 915 B$="":A=LEN(A$):FORX=1TOA:C=C+2:IFC>9THENC=C-5:REM"RETURN
  53. 920 [139][202](A$,X,1)[178]" "[167]B[178]69[170]C:[137]935:[143]"88-D:GOTO885
  54. 923 IFA=0THENRETURN
  55. 925 B=ASC(MID$(A$,X,1)):IFB<78THENB=B+13-C:GOTO935:REM"-78+C
  56. 930 [139]B[177]77[167]B[178]B[171]13[170]C:[143]"+78-C
  57. 935 B$=B$+CHR$(B):NEXT:RETURN:REM"C):NEXT:RETURN
  58. 936 [139][200](B$,1)[178][199](32)[167]B$[178][201](B$,[195](B$[171]1)):[137]936
  59. 940 [141]905:[153]A$(1):[141]905:[153]"SYS (null)OU HAVE FAILED, (null)ATN(null)(null)(null)LEN(null)VAL(null) IS DOOMED!!
  60. 945 PRINT"      [196]O YOU WANT TO TRY AGAIN?  ";:GOSUB825
  61. 946 IFLEFT$(A$,1)="Y"THENRUN
  62. 947 CLR:PRINT"[145][145][145][145][145][145][145][145]":END
  63. 950 W=INT(6*RND(1))+1:GOSUB905:PRINT A$(1):PRINT"[153]"W$(W)"  ":GOSUB825:RETURN
  64. 955 PRINT"[155]":PRINTTAB(10)"[155]                    ";
  65. 956 FORX=1TO4:PRINT"[155]                    [144] ";:NEXT
  66. 957 PRINT"[144]                    ":RETURN
  67. 960 PRINT"";:PRINTTAB(5)"                             ";
  68. 961 FORX=1TO8:PRINT"                             [144] ";:NEXT:PRINT"";
  69. 962 FORX=1TO2:PRINT"                             [144]  ";:NEXT
  70. 963 FORX=1TO2:PRINT"                             ";:NEXT:PRINT"[146]":RETURN
  71. 970 PRINTS$(6);:FORL=FTOG:PRINT"";:IFL>FTHENPRINTS$;
  72. 975 H=LEN(B$(L)):FORX=1TOH:IFASC(MID$(B$(L),X,1))<60THENPRINTMID$(B$(L),X,1);:GOTO990
  73. 980 D=ASC(MID$(B$(L),X,1))+3
  74. 985 PRINTCHR$(D);
  75. 990 NEXT
  76. 991 IFH<28THENH=H+1:PRINT" ";:GOTO991
  77. 992 NEXT:PRINT"[146]":RETURN
  78. 1000 POKE53280,6:POKE53281,6:PRINTCHR$(14):PRINTCHR$(147)""
  79. 1005 GOSUB1101
  80. 1010 PRINT"[158] [217]OU HAVE BEEN VOLUNTEERED TO SAVE THE [144] [158] CITY OF [208][193][215][212][213][195][203][197][212] FROM ";
  81. 1020 PRINT"CERTAIN ATTACK [144] [158]";:PRINT" BY THE EVIL INHABITANTS OF THE [201][211][204][197]   [144] [158]";
  82. 1030 PRINT" [207][198][160][211][208][207][210][212][212][193] [211][193][208][208][193] AND THEIR ONLY [201][195][194][205]  [144] [158] WITH A NUCLEAR WARHEAD PUR";
  83. 1040 PRINT"CHASED FROM [144] [158]";:PRINT" A LESS THAN FRIENDLY NATION.          [144] [158]";
  84. 1050 GOSUB1100:PRINT" [193]S [201] SEE IT, BETTER YOU THAN ME!      [144] [158]";:GOSUB1100
  85. 1060 PRINT" [217]OUR GOAL IS TO DESTROY THE MISSLE    [144] [158]";
  86. 1070 PRINT" WITHOUT DOING YOURSELF IN AS WELL...  [144] [158]";
  87. 1075 GOSUB1100:GOSUB1102:PRINT"";
  88. 1080 PRINTTAB(4)"[153][198]OR A LIST OF COMMANDS PRESS [198]1"
  89. 1085 PRINTTAB(5)"[158][211]IGNAL YOU ARE READY TO START
  90. 1088 [153][163]9)"BY PRESSING (null)(null)ATNLENVALCLOSEPEEKATN(null)"
  91. 1090 [161]A$:[139]A$[178]""[167]1090
  92. 1092 [139]A$[178]"INPUT"[167][141]1105:[137]1000
  93. 1095 [137]1300
  94. 1100 [153]"                                       STOP SYS";:[142]
  95. 1101 [153]"SYS                                       ":[142]
  96. 1102 [153]"WAIT STOP                                       WAIT";:[142]
  97. 1105 [151]53280,0:[151]53281,0:[153][199](147)[199](142)"LOADLIST                         ";
  98. 1110 [153]"                      LISTu``";
  99. 1115 [153]"````````````````````iWAIT    ";
  100. 1120 [153]"            b       COMMA";
  101. 1125 [153]"NDS       bWAIT              ";
  102. 1130 [153]"  b       eeeeeeee       ";
  103. 1135 [153]"bWAIT                b GO    ";
  104. 1140 [153]"     SWIM      PEEKWAIT         ";
  105. 1145 [153]"       PEEK EXAMINE    ASSEM";
  106. 1150 [153]"BLE  PEEKWAIT                PEEK T";
  107. 1155 [153]"ALK TO    HELP      PEEKWAIT    ";
  108. 1160 [153]"            b JUMP       ";
  109. 1165 [153]"WHAT      PEEKWAIT              ";
  110. 1170 [153]"  PEEK FLIP       EXIT      ";
  111. 1175 [153]"PEEKWAIT                PEEK FEEL  ";
  112. 1180 [153]"     MOVE      PEEKWAIT         ";
  113. 1185 [153]"       PEEK LOOK       CLIMB";
  114. 1190 [153]"     PEEKWAIT                PEEK B";
  115. 1195 [153]"UY        UNLOCK    PEEKWAIT    ";
  116. 1200 [153]"            b GET        ";
  117. 1205 [153]"ENTER     PEEKWAIT              ";
  118. 1210 [153]"  PEEK KILL       PRESS     ";
  119. 1215 [153]"PEEKWAIT                PEEK READ  ";
  120. 1220 [153]"     OPEN      PEEKWAIT         ";
  121. 1225 [153]"       b FOLLOW          ";
  122. 1230 [153]"     PEEKWAIT                PEEK  ";
  123. 1235 [153]"                    PEEKWAIT    ";
  124. 1240 [153]"            PEEK            ";
  125. 1245 [153]"          PEEKWAIT              ";
  126. 1250 [153]"  PEEK F5 FOR INSTRUCTIONS  ";
  127. 1255 [153]"bWAIT                b       ";
  128. 1260 [153]"               bWAIT         ";
  129. 1265 [153]"       b                 ";
  130. 1270 [153]"     bWAIT                jcc";
  131. 1275 [153]"cccccccccccccccccccckWAIT    ";
  132. 1280 [161]A$:[139]A$[178]""[167]1280
  133. 1282 [139]A$[178]"READ"[167][153]"LOAD":[141]100
  134. 1285 [153][199](147)[199](14):[151]53281,6:[151]53280,6:[142]
  135. 1300 [129]X[178]1[164]40:[135]B$(X):[130]:E[178]40
  136. 1310 [153]"LOAD":[141]1101
  137. 1315 [153]"SYS (null)OU'VE BEEN DROPPED OFF ON AN ISLAND  STOP SYS";
  138. 1320 [153]" ABOUT A MILE WEST OF (null)(null)(null)(null)(null)(null)ATN (null)ATN(null)(null)ATN.   STOP SYS";
  139. 1325 [153]" (null)OU'VE BEEN GIVEN SOME PETTY CASH IN  STOP SYS";
  140. 1330 [153]" THE AMOUNT OF $150.00. (null)EERING TO THE STOP SYS";
  141. 1335 [153]" NORTH AND WEST YOU SEE NOTHING BUT    STOP SYS";
  142. 1340 [153]" TREES. (null)O THE EAST IS SOME SEAWEED,   STOP SYS";
  143. 1345 [153]" THE SHORE LINE, AND BEYOND THAT THE   STOP SYS";
  144. 1350 [153]" RIGHT$(null)(null)VAL (null)ASCCLOSE(null)(null)(null)(null)(null)(null)ATNCLOSE(null)ATN(null)(null)ATN. (null)O THE SOUTH   STOP SYS";
  145. 1355 [153]" IS A STEEP TRAIL LEADING UP A CLIFF   STOP SYS";
  146. 1360 [153]" ABOUT A HUNDRED FEET HIGH.            STOP SYS";:[141]1100:[141]1102
  147. 1365 [141]880:[137]1375
  148. 1370 [141]885
  149. 1375 [139]A$[178]"HELP"[167][141]955:[153]Q$(7)S$"LIST(null)RY (null)HISTLING":[153]S$S$(6)"CMDSTR$IXIE":[137]1365
  150. 1380 [139]A$[178]"LOOK"[167]1310
  151. 1385 [139]A$[178]"C"[167]1310
  152. 1390 [139]B$[178]B$(1)[167][141]960:F[178]9:G[178]15:[153]Q$(7);:[141]970:[137]1365
  153. 1400 [139]B$[178]B$(2)[176]B$[178]B$(3)[167][141]960:F[178]16:G[178]17:[153]Q$(9);:[141]970:[137]1370
  154. 1405 [139]B$[178]B$(4)[167][141]960:F[178]18:G[178]22:[153]Q$(8);:[141]970:[137]1365
  155. 1410 [139]B$[178]B$(5)[176]B$[178]B$(6)[167][141]960:F[178]23:G[178]31:[153]Q$(6);:[141]970:[137]940
  156. 1415 [139]B$[178]B$(7)[167][141]960:F[178]32:G[178]40:[153]Q$(6);:[141]970:[137]1365
  157. 1420 [139]B$[178]B$(8)[167][137]1430
  158. 1425 [137]1370
  159. 1430 [139]E[178]40[167][129]X[178]41[164]92:[135]B$(X):[130]:E[178]92:[141]870
  160. 1435 [153]"LOAD":[141]1101
  161. 1440 [153]" (null)OU HAVE WALKED THE TRAIL TO THE TOP  STOP SYS";
  162. 1445 [153]" OF THE CLIFF. (null)OOKING TO THE SOUTH IS STOP SYS";
  163. 1450 [153]" A VERY STEEP FALL TO THE ROCKS BELOW. STOP SYS";
  164. 1455 [153]" (null)O THE EAST IS THE RIGHT$SLE, AND ANOTHER  STOP SYS";
  165. 1460 [153]" DANGEROUS DROP. (null)O THE NORTH, A TRAIL STOP SYS";
  166. 1465 [153]" DOWN TO THE BEACH.                    STOP SYS";
  167. 1470 [153]" (null)OOKING WEST, YOU SEE WHAT APPEARS TO STOP SYS";
  168. 1475 [153]" BE THE TOP OF A VERY OLD BUILDING     STOP SYS";
  169. 1480 [153]" PEEKING OVER THE TOP OF THE TREES.    STOP SYS";
  170. 1485 [153]" (null)HERE IS A STEADY BREEZE BLOWING FROM STOP SYS";
  171. 1490 [153]" THE EAST...(null)O CLOUDS IN SIGHT...      STOP SYS";:[141]1100:[141]1102
  172. 1495 [141]880:[137]1505
  173. 1500 [141]885
  174. 1505 [139]A$[178]"HELP"[167][141]955:[153]Q$(7)S$"LISTCMDSTR$ON'T JUMP INTO IT":[153]S$"TOO SOON.
  175. 1506 IFA$="HELP"THEN1495
  176. 1508 IFA$="LOOK"THEN1435
  177. 1510 IFA$="C"THEN1435
  178. 1515 IFB$=B$(2)ANDI<>4THEN1310
  179. 1520 IF(B$=B$(5)ORB$=B$(8))ANDI=0THENF=79:G=85:GOSUB960:PRINTQ$(7);:GOSUB970:GOTO940
  180. 1525 IF(B$=B$(41)ORB$=B$(42))ANDI=0THENF=79:G=85:GOSUB960:PRINTQ$(7);:GOSUB970:GOTO940
  181. 1530 IF(B$=B$(5)ORB$=B$(8))ANDI=1THENF=71:G=78:GOSUB960:PRINTQ$(6);:GOSUB970:GOTO940
  182. 1535 IF(B$=B$(41)ORB$=B$(42))ANDI=1THENF=71:G=78:GOSUB960:PRINTQ$(6);:GOSUB970:GOTO940
  183. 1540 IF(B$=B$(5)ORB$=B$(8))ANDI=2THENF=86:G=92:GOSUB960:PRINTQ$(7);:GOSUB970:GOTO1725
  184. 1545 IF(B$=B$(41)ORB$=B$(42))ANDI=2THENF=86:G=92:GOSUB960:PRINTQ$(7);:GOSUB970:GOTO1725
  185. 1550 IFB$=B$(7)THENGOSUB960:F=32:G=40:PRINTQ$(6);:GOSUB970:GOTO1495
  186. 1555 IFB$=B$(43)THENGOSUB960:F=47:G=50:PRINTQ$(8);:GOSUB970:GOTO1495
  187. 1560 IFB$=B$(46)THENGOSUB960:F=51:G=54:PRINTQ$(8);:GOSUB970:GOTO1495
  188. 1565 IFB$=B$(2)ANDI=4THENGOSUB960:F=55:G=61:PRINTQ$(7);:GOSUB970:GOTO940
  189. 1570 IF(B$=B$(44)ORB$=B$(45))ANDI=1THENGOSUB960:F=62:G=70:PRINTQ$(6);:GOSUB970:I=2:GOTO1495
  190. 1575 IFB$=B$(3)THENGOTO1585
  191. 1580 GOTO1500
  192. 1585 IFE=92THENFORX=93TO138:READB$(X):NEXT:E=138:GOSUB870:M=150
  193. 1590 PRINT"[147]":GOSUB1101
  194. 1595 PRINT" [217]OU HAVE ENTERED [195]RAZY [204]OU'S [212]RADING  [144] [158]";
  195. 1600 PRINT" [208]OST. [201]T'S A STRANGE SHOP WITH A WIDE [144] [158]";
  196. 1605 PRINT" VARIETY OF ITEMS. [207]F COURSE, YOU ARE  [144] [158]";
  197. 1610 PRINT" INTERESTED ONLY IN THOSE THINGS THAT  [144] [158]";
  198. 1615 PRINT" WILL GET YOU TO [211]PORTTA [211]APPA.        [144] [158]";
  199. 1620 PRINT" [212]HERE'S A TALL THIN FELLOW BEHIND THE [144] [158]";
  200. 1625 PRINT" COUNTER WITH A WILD LOOK IN HIS EYES. [144] [158]";
  201. 1630 PRINT" [211]OME RATHER LARGE BOXES ARE STACKED   [144] [158]";
  202. 1635 PRINT" ON THE FLOOR, ABOVE THAT....A SIGN    [144] [158]";
  203. 1640 PRINT" WITH THIS WEEKS SPECIAL SALE ITEMS.   [144] [158]";
  204. 1645 PRINT" [212]HE ONLY WAY OUT IS THE WAY YOU CAME. [144] [158]";:GOSUB1100:GOSUB1102
  205. 1650 GOSUB880:GOTO1660
  206. 1655 GOSUB885
  207. 1660 IFA$="HELP"THENGOSUB955:PRINTQ$(8)S$"[155][199]OOD [209]UESTION!":GOTO1650
  208. 1663 IFA$="LOOK"THEN1590
  209. 1665 IFA$="C"THEN1590
  210. 1667 IF((B$=B$(97)ORB$=B$(98))OR(B$=B$(96)ORB$=B$(99)))ANDM<64THEN1720
  211. 1670 IFB$=B$(5)ORB$=B$(100)THEN1435
  212. 1675 IFB$=B$(93)THENF=105:G=110:GOSUB960:PRINTQ$(7);:GOSUB970:GOTO1650
  213. 1680 IFB$=B$(46)THENF=111:G=114:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO1650
  214. 1685 IFB$=B$(103)ORB$=B$(104)THENF=115:G=122:GOSUB960:PRINTQ$(6);:GOSUB970:GOTO1650
  215. 1690 IFLEFT$(B$,4)=B$(94)ANDRIGHT$(A$,5)=B$(95)THENF=123:G=128:GOSUB960:PRINTQ$(7);:GOSUB970:Z=1
  216. 1691 IFZ=1THENZ=0:GOTO1650
  217. 1695 IFB$=B$(96)ORB$=B$(97)THENF=129:G=130:I=1:GOSUB960:PRINTQ$(9);:GOSUB970:M=M-130:GOTO1650
  218. 1700 IFB$=B$(98)ORB$=B$(99)THENF=131:G=132::I=4:GOSUB960:PRINTQ$(9);:GOSUB970:M=M-87:GOTO1650
  219. 1705 IFB$=B$(102)THENF=133:G=133:GOSUB960:PRINTQ$(9);"";:GOSUB970:GOTO1650
  220. 1710 IFB$=B$(101)THENF=134:G=135:GOSUB960:PRINTQ$(9);:GOSUB970:M=M-12:GOTO1650
  221. 1715 GOTO1655
  222. 1720 F=136:G=138:GOSUB960:PRINTQ$(9);:GOSUB970:PRINTS$(6)"[145][157]"M"DOLLARS?[146]":GOTO1650
  223. 1725 GOSUB905:PRINTA$(1):PRINTA$(1):GOSUB905:PRINTS$(7)"[158][208]RESS  [198]3 [146] TO CONTINUE"
  224. 1730 GETA$:IFA$<>"[134]"THEN1730
  225. 1735 IFE=138THENFORX=139TO311:READB$(X):NEXT:E=311:GOSUB870
  226. 1740 PRINT"[147]":GOSUB1101
  227. 1745 PRINT" [217]OU ARE STANDING ON THE BEACH OF THE  [144] [158]";
  228. 1750 PRINT" [201]SLE OF [211]PORTTA [211]APPA. [206]EARBY THERE'S [144] [158]";
  229. 1755 PRINT" A LOG NEXT TO A ROCK. [201]N THE SIDE OF  [144] [158]";
  230. 1760 PRINT" A HILL, TO THE NORTH, IS THE OPENING  [144] [158]";
  231. 1765 PRINT" OF A LARGE PIPE; AND THERE IS A TRAIL [144] [158]";
  232. 1770 PRINT" LEADING UP THE HILL. [212]O THE EAST IS   [144] [158]";
  233. 1775 PRINT" ANOTHER RISE INTO THE FOREST. [204]OOKING [144] [158]";
  234. 1780 PRINT" TOWARD THE SOUTH, THE HANG GLIDER AND [144] [158]";
  235. 1785 PRINT" MORE FOREST BEYOND.                   [144] [158]";
  236. 1790 PRINT" [211]O FAR...YOUR PRESENCE APPEARS TO BE  [144] [158]";
  237. 1795 PRINT" UNDETECTED....                        [144] [158]";:GOSUB1100:GOSUB1102
  238. 1800 GOSUB880:GOTO1810
  239. 1805 GOSUB885
  240. 1810 IFA$="HELP"THENGOSUB955:PRINTQ$(8)S$"[155][198]OLLOW [217]OUR [206]OSE":GOTO1800
  241. 1815 IFA$="LOOK"ORA$="C"THEN1740
  242. 1820 IFB$=B$(139)THENF=148:G=152:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO1800
  243. 1825 IFB$=B$(140)THENF=153:G=156:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO1800
  244. 1830 IFB$=B$(141)THENF=157:G=161:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO1800
  245. 1835 IFB$=B$(142)ANDSK=1THENF=162:G=165:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO1800
  246. 1840 IFB$=B$(145)ANDSK=1THENF=166:G=169:GOSUB960:PRINTQ$(8);:GOSUB970:SK=2:GOTO1800
  247. 1845 IFB$=B$(146)THENF=170:G=172:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO1800
  248. 1850 IFB$=B$(8)THENF=173:G=177:GOSUB960:PRINTQ$(7);:GOSUB970:GOTO940
  249. 1855 IFB$=B$(3)THENF=23:G=31:GOSUB960:PRINTQ$(6);:GOSUB970:GOTO940
  250. 1860 IFB$=B$(5)THENF=178:G=186:GOSUB960:PRINTQ$(6);:GOSUB970:GOTO940
  251. 1865 IFB$=B$(147)ANDSK=0THENF=187:G=192:GOSUB960:PRINTQ$(7);:GOSUB970:SK=1:GOTO1800
  252. 1870 IFB$=B$(143)THEN2255
  253. 1875 IFB$=B$(144)ANDSK=1THENGOTO1890
  254. 1878 IFB$=B$(311)THEN1890
  255. 1880 IFB$=B$(2)THEN2035
  256. 1885 GOTO1805
  257. 1890 IFSC(1)=0THENSC(1)=1:GOSUB870
  258. 1895 PRINT"[147]":GOSUB1101
  259. 1900 PRINT" [212]HIS HAS TAKEN YOU INSIDE A CAVE. [201]T  [144] [158]";
  260. 1905 PRINT" IS AS DARK AS A MOONLESS NIGHT INSIDE [144] [158]";
  261. 1910 PRINT" HERE. [201]T IS DAMP AND COOL, A MUSTY    [144] [158]";
  262. 1915 PRINT" SMELL FILLS THE AIR. [217]OU HEAR THE OC- [144] [158]";
  263. 1920 PRINT" CASIONAL FLUTTERING OF A BAT CLOSE BY [144] [158]";
  264. 1925 PRINT" OVERHEAD. [196]IRECTLY AHEAD, (EAST) YOU  [144] [158]";
  265. 1930 PRINT" HEAR THE SOUND OF RUNNING WATER ECHO- [144] [158]";
  266. 1935 PRINT" ING OFF THE WALLS.                    [144] [158]";:GOSUB1100
  267. 1940 PRINT" [217]OUR NEW-FOUND FRIEND HAS VANISHED    [144] [158]";
  268. 1945 PRINT" INTO THE DARKNESS.                    [144] [158]";:GOSUB1100:GOSUB1102
  269. 1950 GOSUB880:GOTO1960
  270. 1955 GOSUB885
  271. 1960 IFA$="HELP"THENGOSUB955:PRINTQ$(8)S$"[155][157][217]OU [195]AN'T [198]EEL [201]T?":GOTO1950
  272. 1965 IFA$="LOOK"ORA$="C"THEN1895
  273. 1970 IFB$=B$(3)ORB$=B$(100)THENSK=2:GOTO1740
  274. 1975 IFB$=B$(5)THENF=193:G=200:GOSUB960:PRINTQ$(6);:GOSUB970:GOTO940
  275. 1980 IFLEFT$(B$,9)=B$(230)THENF=201:G=204:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO1950
  276. 1985 IFLEFT$(B$,7)=LEFT$(B$(233),7)ANDLI<>1THENF=213:G=215:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO1950
  277. 1990 IFLEFT$(B$,7)=B$(233)ANDLI=1THENF=216:G=220:GOSUB960:PRINTQ$(7):GOSUB970:GOTO1950
  278. 1995 IFB$=B$(231)THENF=205:G=212:LI=1:GOSUB960:PRINTQ$(6);:GOSUB970:GOTO1950
  279. 2000 IFLEFT$(B$,12)=B$(233)THENF=216:G=220:GOSUB960:PRINTQ$(7);:BO=1:GOSUB970:GOTO1950
  280. 2005 IFB$=B$(7)THENF=221:G=224:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO1950
  281. 2010 IFB$=B$(234)ANDBO=1THENF=225:G=227:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO1950
  282. 2015 IFB$=B$(232)ANDBO=1THENF=228:G=229:KY=1:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO1950
  283. 2030 GOTO1955
  284. 2035 IFSC(2)=0THENSC(2)=1:GOSUB870
  285. 2040 PRINT"[147]":GOSUB1101
  286. 2045 PRINT" [212]RUDGING UP THE NORTH HILL YOU FIND   [144] [158]";
  287. 2050 PRINT" THERE IS A SPLENDID VIEW OF THE ISLE. [144] [158]";
  288. 2055 PRINT" [201]N THE DISTANCE YOU CAN SEE THE FENCE [144] [158]";
  289. 2060 PRINT" ENCLOSED MISSLE BASE. [193]T IT'S CENTER  [144] [158]";
  290. 2065 PRINT" IS THE [201][195][194][205] STICKING HALFWAY OUT OF   [144] [158]";
  291. 2070 PRINT" AN UNDERGROUND SILO. [206]EARBY, A BUILD- [144] [158]";
  292. 2075 PRINT" ING WITH A DISH ANTENNA ON TOP OF IT. [144] [158]";
  293. 2080 PRINT" [212]HERE IS LITTLE ACTIVITY GOING ON IN- [144] [158]";
  294. 2085 PRINT" SIDE THE BASE.                        [144] [158]";
  295. 2090 PRINT" [212]HE EAST AND WEST IS BLOCKED BY THICK [144] [158]";
  296. 2095 PRINT" FOLIAGE AND FALLEN TREES.             [144] [158]";:GOSUB1100:GOSUB1102
  297. 2100 GOSUB880:GOTO2110
  298. 2105 GOSUB885
  299. 2110 IFA$="HELP"THENGOSUB955:PRINTQ$(7)S$"[155][201]T'S [213]NDER [217]OUR":PRINTS$S$(6)"[157][206]OSE!":GOTO2100
  300. 2115 IFA$="LOOK"ORA$="C"THEN2040
  301. 2120 IFB$=B$(8)THEN1740
  302. 2125 IFB$=B$(2)THEN2135
  303. 2130 GOTO2105
  304. 2135 IFSC(3)=0THENSC(3)=1:GOSUB870
  305. 2140 PRINT"[147]":GOSUB1101
  306. 2145 PRINT" [196]RAWING CLOSER TO THE BASE, YOU ARE   [144] [158]";
  307. 2150 PRINT" NOW STANDING NEXT TO THE TALL CHAIN   [144] [158]";
  308. 2155 PRINT" LINK FENCE THAT SURROUNDS THE MISSLE  [144] [158]";
  309. 2160 PRINT" BASE. [217]OU CAN SEE IN THE DISTANCE THE [144] [158]";
  310. 2165 PRINT" GAURD HOUSE AT THE FRONT GATE. [193] FEW  [144] [158]";
  311. 2170 PRINT" FEET AWAY STANDS A UTILITY POLE THAT  [144] [158]";
  312. 2175 PRINT" CARRIES THE POWER INTO THE EVIL CAMP. [144] [158]";:GOSUB1100
  313. 2180 PRINT" [217]OU MUST FIND A WAY INSIDE THE MISSLE [144] [158]";
  314. 2185 PRINT" LAUNCHING BASE AT ALL COST.           [144] [158]";:GOSUB1100:GOSUB1102
  315. 2190 GOSUB880:GOTO2200
  316. 2195 GOSUB885
  317. 2200 IFA$="HELP"THENGOSUB955:PRINTQ$(7)S$"[155][196]ON'T [194]ARK [213]P":PRINTS$"[212]HE [215]RONG [212]REE!":GOTO2190
  318. 2205 IFA$="LOOK"ORA$="C"THEN2140
  319. 2210 IFB$=B$(238)THENF=242:G=248:GOSUB960:PRINTQ$(7);:GOSUB970:GOTO2190
  320. 2215 IFB$=B$(239)THENF=249:G=252:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO2190
  321. 2220 IFB$=B$(237)THENF=253:G=257:GOSUB960:PRINTQ$(8);:GOSUB970:CP=1:GOTO2190
  322. 2225 IFB$=B$(240)ANDCP=1THENF=258:G=259:GOSUB960:PRINTQ$(9);:GOSUB970:KN=1:GOTO2190
  323. 2230 IFB$=B$(241)ANDKN=1THENF=260:G=265:GOSUB960:PRINTQ$(7);:GOSUB970:GOTO2190
  324. 2235 IFB$=B$(235)THENF=266:G=269:GOSUB960:PRINTQ$(7);:GOSUB970:GOTO2190
  325. 2240 IFB$=B$(236)THENF=270:G=276:GOSUB960:PRINTQ$(6);:GOSUB970:GOTO940
  326. 2245 IFB$=B$(8)THENGOTO1740
  327. 2250 GOTO2195
  328. 2255 IFSC(4)=0THENSC(4)=1:GOSUB870
  329. 2260 PRINT"[147]":GOSUB1101:GOSUB1100
  330. 2265 PRINT" [193] COUPLE HUNDRED FEET INTO THE VENT   [144] [158]";
  331. 2270 PRINT" PIPE, YOU PASS 3 OR 4 SMALL BRANCHES  [144] [158]";
  332. 2275 PRINT" OF THE PIPE GOING INTO DIFFERENT DIR- [144] [158]";
  333. 2280 PRINT" RECTIONS. [194]UT THEY ARE TOO SMALL TO   [144] [158]";
  334. 2285 PRINT" BOTHER WITH.                          [144] [158]";:GOSUB1100
  335. 2290 PRINT" [217]OU NOW COME TO A DEAD STOP AT WHAT   [144] [158]";
  336. 2295 PRINT" APPEARS TO BE AN IRON GRATE. [217]OU CAN  [144] [158]";
  337. 2300 PRINT" JUST MAKE IT OUT IN THE DIM LIGHT.    [144] [158]";:GOSUB1100:GOSUB1100:GOSUB1102
  338. 2305 GOSUB880:GOTO2312
  339. 2310 GOSUB885
  340. 2312 IFRA=2THEN2335
  341. 2315 F=277:G=284:GOSUB960:PRINTQ$(6);:GOSUB970:GOSUB880
  342. 2320 IFLEFT$(B$,4)=B$(305)ANDKN=1THENF=285:G=288:GOSUB960:PRINTQ$(8);:GOSUB970:RA=2:GOTO2305
  343. 2325 IFLEFT$(B$,4)=B$(305)THENF=289:G=291:GOSUB960:PRINTQ$(9);:GOSUB970:FORX=1TO7000:NEXT
  344. 2330 F=292:G=296:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO940
  345. 2335 IFA$="HELP"THENGOSUB955:PRINTQ$(7)S$"[155][157][212]HE [195]AVE [200]ELD [212]HE":PRINTS$S$(6)"[203]EY":GOTO2305
  346. 2337 IFA$="LOOK"ORA$="C"THEN2260
  347. 2340 IFB$=B$(306)THENF=297:G=301:GOSUB960:PRINTQ$(6):GOSUB970:GOTO2305
  348. 2345 IFB$=B$(307)THENF=302:G=302:GOSUB960:PRINTQ$(9);"";:GOSUB970:GOTO2305
  349. 2350 IFB$=B$(308)ANDKY=1THENF=303:G=303:GOSUB960:PRINTQ$(9);"";:GOSUB970:GOSUB880
  350. 2352 IF F=303AND(B$=B$(309)ORB$=B$(310))THEN2370
  351. 2353 IFA$="LOOK"THEN2260
  352. 2354 IFF=303THENB$=B$(308):GOTO2350
  353. 2355 IFB$=B$(308)ANDKY<>1THENF=304:G=304:GOSUB960:PRINTQ$(9);"";:GOSUB970:GOTO2305
  354. 2360 GOTO2310
  355. 2370 IFE=311THENFORX=312TO453:READB$(X):NEXT:E=397:GOSUB870
  356. 2375 PRINT"[147]":GOSUB1101:GOSUB1100:PRINT" [197]NTERING THE ROOM WHERE THE VENT PIPE [144] [158]";
  357. 2380 PRINT" ENDED, YOU SEE: [212]HE OPENING TO THE    [144] [158]";
  358. 2385 PRINT" PIPE, A METAL DOOR MARKED '[211][201][204][207]', A   [144] [158]";
  359. 2390 PRINT" WOODEN DOOR MARKED '[213][212][201][204][201][212][217]', THE AIR [144] [158]";
  360. 2395 PRINT" CONDITIONING EQUIPTMENT THAT WAS      [144] [158]";
  361. 2400 PRINT" MAKING ALL THAT RACKET ENCLOSED IN    [144] [158]";
  362. 2405 PRINT" AN ALCOVE WITH FENCING, AND FINALLY A [144] [158]";
  363. 2410 PRINT" SPIRAL METAL STAIRCASE IN THE CENTER  [144] [158]";
  364. 2415 PRINT" OF THE ROOM.                          [144] [158]";:GOSUB1100:GOSUB1100:GOSUB1102
  365. 2420 GOSUB880:GOTO2430
  366. 2425 GOSUB885
  367. 2430 IFA$="HELP"THENGOSUB955:PRINTQ$(7)S$"[155][195]LOTHES [205]AKE [212]HE":PRINT""S$S$(6)"[205]AN!":GOTO2420
  368. 2435 IFA$="LOOK"ORA$="C"THEN2375
  369. 2440 IFLEFT$(B$,13)=B$(312)ORLEFT$(B$,12)=B$(314)THENF=328:G=333:GOSUB960:PRINTQ$(7);:GOTO2505
  370. 2445 IFLEFT$(B$,12)=B$(313)ORLEFT$(B$,15)=B$(315)THENF=334:G=335:GOSUB960:PRINTQ$(9);:GOTO2505
  371. 2450 IFLEFT$(B$,13)=B$(316)THENF=336:G=338:GOSUB960:PRINTQ$(9);:GOTO2505
  372. 2455 IFLEFT$(B$,9)=B$(318)ORLEFT$(B$,10)=B$(319)THENF=339:G=F:GOSUB960:PRINTQ$(9);:GOTO2505
  373. 2460 IFB$=B$(374)THEN2835
  374. 2465 IFLEFT$(B$,9)=B$(320)ORLEFT$(B$,12)=B$(321)THENF=340:G=341:GOSUB960:PRINTQ$(9);:GOTO2505
  375. 2470 IFB$=B$(317)THENF=342:G=344:GOSUB960:PRINTQ$(9);:GOTO2505
  376. 2475 IFLEFT$(B$,3)=B$(322)AND(MID$(B$,5,11)=B$(323)ORMID$(B$,5,12)=B$(324))THEN2510
  377. 2476 IFLEFT$(B$,3)=B$(322)ANDMID$(B$,5,11)=B$(325)THEN2510
  378. 2480 IF(LEFT$(B$,5)=B$(326)ORLEFT$(B$,5)=B$(327))ANDUN=1THENF=348:G=355:GOSUB960:GOTO2515
  379. 2485 IF(LEFT$(B$,5)=B$(326)ORLEFT$(B$,5)=B$(327))ANDUN<>1THENF=348:G=351:GOSUB960:GOTO2535
  380. 2500 GOTO2425
  381. 2505 GOSUB970:GOTO2420
  382. 2510 F=345:G=347:GOSUB960:PRINTQ$(9);:UN=1:GOTO2505
  383. 2515 PRINTQ$(6);:GOSUB970:GOSUB2520:GOTO2530
  384. 2520 GETA$:IFA$=""THEN2520
  385. 2525 IFA$<>"[134]"THEN2520
  386. 2527 RETURN
  387. 2530 F=356:G=362::PRINT""Q$(6);:GOSUB970:F=375:G=F:GOSUB970:GOSUB2520:GOTO2545
  388. 2535 PRINTQ$(6);:GOSUB970:F=363:G=365:GOSUB970:F=375:G=F:GOSUB970:GOSUB2520
  389. 2540 F=366:G=373:PRINT""Q$(6);:GOSUB970:GOTO940
  390. 2545 IFSC(5)=0THENSC(5)=1:GOSUB870
  391. 2550 PRINT"[147]":GOSUB1101:PRINT" [201]N THE CONTROL ROOM, SITTING AT ONE   [144] [158]";
  392. 2555 PRINT" OF THE CONSOLES YOU SURVEY THE SCENE. [144] [158]";
  393. 2560 PRINT" [201]N FRONT OF YOU A SMALL COMPUTER DIS- [144] [158]";
  394. 2565 PRINT" PLAY. [212]HE KEYBOARD IS ALSO IN FRONT   [144] [158]";
  395. 2570 PRINT" OF YOU. [212]HE DESK IS THE TYPE WITH A   [144] [158]";
  396. 2575 PRINT" CENTER DRAWER. [207]N THE FRONT WALL IS   [144] [158]";
  397. 2580 PRINT" A BIG SCREEN DISPLAY OF THE ISLE AND  [144] [158]";
  398. 2585 PRINT" THE SURROUNDING AREA, INCLUDING THE   [144] [158]";
  399. 2590 PRINT" TARGET. [212]HE USUAL JUNK CLUTTERS THE   [144] [158]";
  400. 2595 PRINT" CONSOLE DESK ([208]ICTURE OF THE OLD LADY [144] [158]";
  401. 2600 PRINT" ETC.). [199]UARDS ARE STILL OBLIVIOUS.... [144] [158]";:GOSUB1100:GOSUB1102
  402. 2605 GOSUB880:GOTO2615
  403. 2610 GOSUB885
  404. 2615 IFA$="HELP"THENGOSUB955:PRINTQ$(8)S$"[155][204]OOK AROUND!":GOTO2605
  405. 2620 IFA$="LOOK"ORA$="C"THEN2550
  406. 2625 IFB$=B$(378)THENF=302:G=F:GOSUB960:PRINTQ$(9);:GOSUB970:GOTO2605
  407. 2630 IFB$=B$(379)THENF=303:G=F:GOSUB960:PRINTQ$(9);:GOSUB970:UN=1:GOTO2605
  408. 2635 IF(B$=B$(380)ORB$=B$(381))ANDUN=1THENF=392:G=393:GOSUB960:PRINTQ$(9);:UN=2:GOTO2665
  409. 2640 IFB$=B$(382)ANDUN=2THENF=394:G=397:GOSUB960:PRINTQ$(8);:GOTO2665
  410. 2645 IFB$=B$(100)THEN2375
  411. 2650 IFLEFT$(B$,13)=B$(376)ORLEFT$(B$,16)=B$(377)THEN2670
  412. 2660 GOTO2610
  413. 2665 GOSUB970:GOTO2605
  414. 2670 IFFF=0THENFF=388:GG=FF
  415. 2671 PRINT"[147][153]":POKE53281,0:POKE53280,0:FORX=0TO39:PRINT"-";:NEXT
  416. 2672 PRINTS$"[205][201][211][211][204][197]  [211][212][193][212][213][211]":FORX=0TO39:PRINT"-";:NEXT
  417. 2675 PRINT"[194][197][193][210][201][206][199]:  [159]"B$(383)SPC(5)B$(384):PRINT"[153][212][193][210][199][197][212] :  [159]"B$(385)
  418. 2680 PRINT"[153][204][193][213][206][195][200] [195][207][206][212][210][207][204]:  "B$(FF)
  419. 2682 IFFF=387THENPRINT"[158]2 [207][208][197][210][193][212][207][210][211] ([197][216][195][197][208][212][201][207][206]: [205]ANUAL [207]VERRIDE)[146][145]";
  420. 2685 PRINT"[153][211][197][204][198] [196][197][211][212][210][213][195][212] :  "B$(GG)
  421. 2687 IFGG=387THENPRINT"[215][193][210][206][201][206][199]: [196][197][211][212][210][213][195][212][201][207][206] 20 [211][197][195] [193][198][212][197][210] [204][193][213][206][195][200][146][145]";
  422. 2688 PRINT"[153]";:FORX=0TO39:PRINT"-";:NEXT
  423. 2689 IFB$(385)=B$(386)THEN2770
  424. 2690 PRINT"[153] [212]O CHANGE [211][212][193][212][213][211], INPUT AREA TO CHANGE";
  425. 2700 C=1:GOSUB905:PRINTA$(1):PRINTA$(1):GOSUB905:GOSUB825:GOSUB915
  426. 2705 IFA$="LOOK"THENPRINT"[147]":POKE53281,6:POKE53280,6:GOTO2550
  427. 2710 IFA$="C"THEN2670
  428. 2715 IFB$=B$(389)THEN2730
  429. 2716 IFB$=B$(390)ANDFF=388THENFF=387:GOTO2670
  430. 2717 IFB$=B$(390)ANDFF=387THENFF=388
  431. 2718 IFB$=B$(391)ANDGG=388THENGG=387:GOTO2670
  432. 2719 IFB$=B$(391)ANDGG=387THENGG=388
  433. 2725 GOTO2670
  434. 2730 GOSUB905:PRINT"[145][153][201]NPUT NEW NORTH BEARING ([198]ORMAT [206] XXXXX)";
  435. 2735 GOSUB905:PRINTA$(1);:GOSUB825:GOSUB915
  436. 2740 B$(383)=A$:IFLEFT$(B$(383),1)="N"THENB$(383)="[206]"+MID$(A$,2,7)
  437. 2745 GOSUB905:PRINT"[145][153][201]NPUT NEW WEST  BEARING ([198]ORMAT [215] XXXXX)":PRINT""A$(1)"[145][145][145][205]"A$(1)
  438. 2747 GOSUB905:PRINTA$(1);:GOSUB825:GOSUB915
  439. 2748 B$(384)=A$:IFLEFT$(B$(384),1)="W"THENB$(384)="[215]"+MID$(A$,2,7)
  440. 2750 IFB$(383)="[206] 17640"ANDB$(384)="[215] 74042"THENB$(385)=B$(398):GOTO2670
  441. 2755 IFB$(383)="[206] 18034"ANDB$(384)="[215] 67078"THENB$(385)="[208]AWTUCKET":GOTO2670
  442. 2760 B$(385)=B$(386):GOTO2670
  443. 2770 PRINT:PRINT"  [193][194][206][207][210][205][193][204] [201][206][208][213][212] : [213][206][193][213][212][200][207][210][201][218][197][196] [193][195][195][197][211][211]  [146]";
  444. 2800 FORL1=54272TO54295:POKEL1,0:NEXT:POKE54296,15
  445. 2805 POKE54277,8:POKE54278,255:POKE54276,21
  446. 2810 XX=2:BC=53280:FORZ1=1TO15:POKEBC,XX
  447. 2815 F1=15:FORY1=1TO5:F2=45:POKE54273,F1:FORX=1TO5:POKE54287,F2:F2=F2*1.03
  448. 2820 NEXTX:F1=F1*1.5:NEXTY1:IFXX=2THENXX=0:GOTO2830
  449. 2825 IFXX=0THENXX=2
  450. 2830 NEXTZ1:POKE54278,15:F=406:G=411:GOSUB960:PRINTQ$(7);:GOSUB970:GOTO940
  451. 2835 IFSC(6)=0THENSC(6)=1:GOSUB870
  452. 2840 PRINT"[147]":GOSUB1101:PRINT" [201]NSIDE THE MISSLE SILO AT LAST!  [212]HE  [144] [158]";
  453. 2845 PRINT" TOWERING MENACE STANDS BEFORE YOU.    [144] [158]";
  454. 2850 PRINT" [212]HE ONLY THING OF INTEREST HERE IS    [144] [158]";
  455. 2855 PRINT" THE BIRD ITSELF.                      [144] [158]";:GOSUB1100
  456. 2860 PRINT" [211]TANDING ABOUT 90 FEET HIGH, IT IS    [144] [158]";
  457. 2865 PRINT" PAINTED WHITE WITH A BLUE DECORATIVE  [144] [158]";
  458. 2870 PRINT" STRIPE HALF SPIRALING UP THE SIDE.    [144] [158]";
  459. 2875 PRINT" [212]HE SILO DOOR IS STILL OPEN, BUT THE  [144] [158]";
  460. 2880 PRINT" MISSLE IS NO LONGER STICKING HALF OUT [144] [158]";
  461. 2885 PRINT" OF THE SILO AS WHEN YOU FIRST SAW IT. [144] [158]";:GOSUB1100:GOSUB1102
  462. 2890 GOSUB880:GOTO2900
  463. 2895 GOSUB885
  464. 2900 IFA$="HELP"THENGOSUB955:PRINTQ$(8)S$"[155][204]OOK [200]IGHER":GOTO2890
  465. 2905 IFA$="LOOK"ORA$="C"THEN2840
  466. 2910 IFB$=B$(399)THENF=412:G=416:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO2890
  467. 2915 IFLEFT$(B$,5)=B$(326)THENF=417:G=420:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO2890
  468. 2917 IFLEFT$(B$,5)=B$(327)THENB$=B$(326):GOTO2915
  469. 2920 IFLEFT$(B$,4)=B$(401)THENF=302:G=F:GOSUB960:PRINTQ$(9);:GOSUB970:GOTO2890
  470. 2925 IFLEFT$(B$,6)=LEFT$(B$(308),6)THENF=303:G=F:GOSUB960:PRINTQ$(9);:GOSUB970:UL=2:GOTO2890
  471. 2930 IF(B$=B$(402)ORB$=B$(403))ANDUL=2THEN2945
  472. 2935 IFB$=B$(100)THEN2375
  473. 2940 GOTO2895
  474. 2945 IFSC(7)=0THENSC(7)=1:GOSUB870
  475. 2950 PRINT"[147]":GOSUB1101:GOSUB1100:PRINT" [217]OU HAVE REACHED THE INSIDE OF THE    [144] [158]";
  476. 2955 PRINT" MISSLE. [212]HE QUARTERS ARE VERY CRAMPED [144] [158]";
  477. 2960 PRINT" BUT THERE IS ROOM ENOUGH FOR YOU TO   [144] [158]";
  478. 2965 PRINT" FIT AND NOSE AROUND.                  [144] [158]";
  479. 2970 PRINT" [201]N FRONT OF YOU IS A CRUDE CONSOLE    [144] [158]";
  480. 2975 PRINT" WITH A SERIES OF BUTTONS AND SWITCHES [144] [158]";:GOSUB1100
  481. 2980 PRINT" [212]HERE IS A SMALL CABINET MARKED WITH  [144] [158]";
  482. 2985 PRINT" '[197][205][197][210][199][197][206][195][217]' NEXT TO THE HATCH.        [144] [158]";:GOSUB1100:GOSUB1100:GOSUB1102
  483. 2990 GOSUB880:GOTO3000
  484. 2995 GOSUB885
  485. 3000 IFA$="HELP"THENGOSUB955:PRINTQ$(8)S$"[155][193]RE [217]OU [203]IDDING?":GOTO2990
  486. 3005 IFA$="LOOK"ORA$="C"THEN2950
  487. 3010 IFB$=B$(100)THEN2840
  488. 3015 IFB$=B$(404)THENF=421:G=425:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO2990
  489. 3020 IFLEFT$(B$,5)=B$(405)ANDFF=387THENF=426:G=429:GOSUB960:PRINTQ$(8);:GOSUB970:GOTO3055
  490. 3050 GOTO2995
  491. 3055 F=355:G=F:GOSUB970
  492. 3060 GETA$:IFA$<>"[134]"THEN3060
  493. 3065 IFGG=387THENF=430:G=435:GOSUB960:PRINTQ$(7);:GOSUB970:GOTO3100
  494. 3070 IFLEFT$(B$(385),1)="[208]"THENF=436:G=444:GOSUB960:PRINTQ$(6);:GOSUB970:GOTO940
  495. 3075 IFLEFT$(B$(385),1)="[207]"THENF=445:G=453:GOSUB960:PRINTQ$(6);:GOSUB970:GOTO3110
  496. 3100 GOSUB905:PRINTA$(1):GOSUB905:PRINT"[158] [217]OU HAVE FAILED, [208][193][215][212][213][195][203][197][212] IS [211][193][214][197][196]!!
  497. 3105 [153]"           PEEKUT (null)(null)(null) ARE DEAD!":[137]945
  498. 3110 [141]905:[153]A$(1):[153]A$(1):[141]905:[153]"SYS(null)OU HAVE SAVED (null)ATN(null)(null)(null)LEN(null)VAL(null) AND BROUGHT THE";
  499. 3115 [153]"EVIL SCUM ON THE ISLE TO THEIR KNEES!!";:[153]"":[128]
  500. 3120 :
  501. 4000 [143] LINES 10000- CONTAIN CODED              DATA WHICH YOU DON'T NEED
  502. 4010 [143] TO SEE SO THEY ARE HIDDEN               FROM YOUR VIEW.
  503. 4020 [143] THE DATA MAY BE SEEN BY                 ERASING LINE 10000.
  504. 10000 [143]""[204]
  505. 10005 [131]"OPGQPIMLOLFOKIK","QGLJHMLN","QGLSLNL","OPGQPIMLPKJMM","QGLIHNL","IOOQ"
  506. 10010 [131]"OPGQPIMLSHOML","QGLOHPLN","(null)LR MF@H FQ RM >KA...(null)(null)LEFT$!!"
  507. 10015 [131]"ASCQ'P >II PIFJBV >KA QEBOB'P","(null)VALASC(null)STR$(null) @O>TIFKD >II >OLRKA"
  508. 10020 [131]"FQ. (null)EBPB >OB QEB K>PQFBPQ","@OFQQBOP VLR BSBO P>T!"
  509. 10025 [131]"ASC PRDDBPQ VLR AOLM QEFP","GRKH ?BCLOB FQ AOLMP VLR!"
  510. 10030 [131]"(null)EB QOBBP >KA ?RPEBP >OB","JR@E QLL QEF@H QE>Q T>V."
  511. 10035 [131]"(null)EB QOBBP >OB > DLLA JFU-","QROB LC MFKB, L>H, M>IJ,"
  512. 10040 [131]"ALDTLLA, TBBMFKD TFIILT,","CBOK, OBATLLA, J>MIB, >KA"
  513. 10045 [131]"> PMI>PE LC >PE.","(null)LR GRJM FK >KA PQ>OQ QL"
  514. 10050 [131]"PTFJ. (null)LR DBQ LKIV > @LRMIB","ERKAOBA CBBQ TEBK VLR OB>I-"
  515. 10055 [131]"FWB QE>Q QEBPB T>QBOP >OB","FKCBPQBA TFQE QEB AOB>ABA"
  516. 10060 [131]"(null)ASCTANLEFT$RIGHT$PEEK LENASC(null)VAL! SINBCLOB VLR @>K","DBQ ?>@H QL PELOB VLR >OB"
  517. 10065 [131]">QQ>@HBA >KA AOLTK.....","(null)(null)(null) VALCOS(null)PEEK ATNASCPEEKATN RIGHT$COS(null)STR$VALASC(null)STR$!!!"
  518. 10070 [131]"(null)E TLT! ATNLBP QE>Q ILLH OB-","COBPEFKD. ASCQ FP QEB ABBMBPQ"
  519. 10075 [131]"?IRB VLR BSBO P>T. ASCQ'P","SBOV @>IJ...>KA >P ELQ >P"
  520. 10080 [131]"FQ FP, QEB T>QBO ?B@HLKP","VLR FK CLO > PTFJ...FQ FP"
  521. 10085 [131]"SBOV QBJMQFKD. COSP VLR P@>K","QEB T>QBOP VLR PBB PLJB-"
  522. 10090 [131]"QEFKD SBOV PQO>KDB....","TMSL","TMSLKJNLNJQQLJ","OPGQPIMLFNNTJMGL"
  523. 10095 [131]"KKMITGTKNOFFMNNQQJIK","KKMITGTKNNQQJIK","HMGHKNQMJ"
  524. 10100 [131]"(null)LQ JR@E JLOB QL PBB EBOB","QE>K >Q CFOPQ DI>K@B...."
  525. 10105 [131]"BU@BMQ QE>Q QEBOB FP > PFDK","LK QLM LC QEB OLLC.","(null)EB PFDK P>VP...."
  526. 10110 [131]"TAN(null)COS(null)(null) RIGHT$(null)(null)'(null) (null)(null)COSATNASC(null)STR$ (null)(null)(null)(null)","((null)MB@F>IFWFKD FK FPI>KA","ELMMFKD)
  527. 10115 DATA"[214]LR PQ>OQBA ALTK QEB QO>FI","TFQE QEB ?L>Q >KA QOFMMBA"
  528. 10120 DATA"LSBO > OL@H. [209]EB ?L>Q >KA","VLR DL EB>A LSBO EBBIP!"
  529. 10125 DATA"[209]EB @LOLKBO E>P > E>OA QFJB","QBIIFKD QEB AFCCBOBK@B ?B-"
  530. 10130 DATA"QTBBK VLR >KA QEB ?L>Q.","[198]KPBOQ Q>? [190] FKQL PILQ [191],"
  531. 10135 DATA"QFB QEB TELPFQ QL QEB QEFKD",">KA C>PQBK QEB QR?FKD QL"
  532. 10140 DATA"QEB GLFKQP TFQE QEB TE>QPFQ","MOLSFABA. [202]>HB PROB QEB OFJ"
  533. 10145 DATA"@LOA FP TO>MBA >OLRKA QEB","GLEKPLK >KA HKLQQBA."
  534. 10150 DATA"[203]LT GRJM LCC QEB KB>OBPQ","@IFCC!","[198]Q'P ?BVLKA JB TEV VLR E>SB"
  535. 10155 DATA"GRJMBA LCC QEB @IFCC TFQE-","LRQ >PPBJ?IFKD QEB DIFABO"
  536. 10160 DATA"[195][198][207][208][209]! [198]Q'P PLOQ LC IFHB","M>O>@ERQFKD TFQE VLRO M>O>-"
  537. 10165 DATA"@ERQB PQFII FK QEB PELMMFKD","?>D.","[203]F@B DLFKD JLOLK!"
  538. 10170 DATA"[212]E>Q AL VLR QEFKH VLR >OB..",">K [195]15<","[214]LR'SB J>K>DBA QL J>PE VLRO"
  539. 10175 DATA"?LA >II LSBO QEB OL@HP ALTK","QEBOB!","[197]BV...ALK'Q >PH JB CLO >KV"
  540. 10180 DATA"PVJM>QEV.","[214]LR GRJM FKQL QEB TFKA >KA","@ORFPB QLT>OA QEB FPIB LC"
  541. 10185 DATA"[208]MLOQQ> [208]>MM>.","[214]LR @LJB QL > I>KAFKD KB>O"
  542. 10190 DATA"PLJB QOBBP >KA ?ORPE >Q QEB","BADB LC QEB ?B>@E.","[203]F@B CIFDEQ [190]@B!!"
  543. 10195 DATA"OPGQPIMLFHSMM","MPGP","BOXES","LMSNOFFMNNQQJIK","LMSNNQQJIK"
  544. 10200 DATA"LMSNKJOHKHO","LMSNIJIN","OPOP","LMSNHFJM","LMSNTNFONLPJ"
  545. 10205 DATA"JIROKOGLGKFRSNSJM","JIROKOGLPHP","[209]EBV >OB >?LRQ 6 CBBQ ILKD"
  546. 10210 DATA">KA 2 CBBQ PNR>OB >KA ALK'Q","PBBJ QL ?B EB>SV >Q >II."
  547. 10215 DATA"[209]EB LKIV J>OHFKDP LK QEBJ",">OB '[202][204][193][194][201] [203][204] [197][196] 7404' >KA"
  548. 10220 DATA"> PBOF>I KRJ?BO.","[209]EB PFDK P>VP...","[193]BIRUB OLT?L>Q....$87"
  549. 10225 DATA"[212]LLABK [204]>OP.......$12","[202]FKF [208]R?........$2076"
  550. 10230 DATA"[212]E>Q V> ILLHFK' CBO EBOB<","[201]LR ?BIILTP. [198]C VLR'OB"
  551. 10235 DATA"QOVFK' QL DFQ QL QE>Q FPIB","LSBO QE>O, [198] DLQ GFPQ TE>Q","V> KBBA."
  552. 10240 DATA"[196]LQ >KV NRBPQFLKP '?LRQ >KV[157]","QEFK' V> @>K'Q PBB< [199]FPQ"
  553. 10245 DATA">PH QEB NRBPQFLK.","[212]EV QEBV'OB E>KD DIFABOP FK"
  554. 10250 DATA"QEBJ QE>O ?LUBP. [192]>K'Q PBBJ","QL DFQ OFA LC 'BJ.....JLPQ"
  555. 10255 DATA"MBLMIB DL CBO QEB ?L>QP.","[198] DFQP $260 CBO 'BJ....[191]RQ"
  556. 10260 DATA"V> @>K Q>HB LKB CBO $130.","[214]> ?LRDEQ VLROPBIC > E>KD","DIFABO!"
  557. 10265 DATA"[214]> ?LRDEQ VLROPBIC > OLT","?L>Q!","[214]> LKIV E>A $150 KFQ TFQ!"
  558. 10270 DATA"[203]LT V> @>K OLT, OLT, OLT","QEB ?L>Q!","[203]LT ELT QEB EB@H @>K VLR"
  559. 10275 DATA"?RV QE>Q TEBK >II VLR E>SB","FP","OPGQPIMLLPKM","OPGQPIMLNHHS"
  560. 10280 DATA"OPGQPIMLPHL","OPGQPIMLORPFQ","MTOQIMQHNOJFN","PGRPHRJMONIS","UQRPKNSOJR"
  561. 10285 DATA"HMGHKNFMGKNHNMHI","WGPIKQGM","[198]Q FP > SBKQ LC PLJB PLOQ,"
  562. 10290 DATA"I>ODB BKLRDE CLO VLR QL DBQ","QEOLRDE. [209]EBOB FP QEB ILT"
  563. 10295 DATA"MFQ@EBA AOLKFKD LC PLJB C>O",">T>V JLQLOP @LJFKD COLJ FQ."
  564. 10300 DATA"[198]Q'P > C>FO PFWBA OL@H TFQE","OLRDE IFQQIB DLRDBP FK FQ."
  565. 10305 DATA"[212]>FQ > JFKRQB...KLQ DLRDBP,","?RQ >K FKP@OFMQFLK!"
  566. 10310 DATA"[198]Q'P >?LRQ 3 CBBQ ILKD >KA",">?LRQ > CLLQ OLRKA. [191]LQE LC"
  567. 10315 DATA"QEB BKAP >OB LMBK. [214]LR O>M","LK FQ...[197]BV, QEFP QEFKD FP","ELIILT!"
  568. 10320 DATA"[194]U>JFKB > [208][200][210][203][200]<<!!!","[190]OB VLR KRQP< [198] PRMMLPB VLR[157]"
  569. 10325 DATA"TFII T>KQ QL DFSB QEB QEFKD","> MEVPF@>I KBUQ!!","[203]F@B DLFKD ARJJV!"
  570. 10330 DATA"[214]LR J>K>DBA QL T>PQB TE>Q","J>V ?B QEB LKIV 'PQFKHFKD'"
  571. 10335 DATA"COFBKA VLR E>SB LK QEB FPIB","[198]Q P>VP KLQEFKD JLOB QE>K.."
  572. 10340 DATA"[203] 17640","[212] 74042","[214]LR MRPEBA VLRO IR@H QEFP"
  573. 10345 DATA"QFJB! [214]LR T>IHBA OFDEQ FKQL","> MLLI LC NRF@H-P>KA!"
  574. 10350 DATA"[214]LR E>SB PRCCBOBA > O>QEBO","PILT >KA DO>KRI>O AB>QE."
  575. 10355 DATA"[214]LR E>SB T>IHBA OFDEQ FKQL","O>KDB LC > PB@ROFQV @>JBO>!"
  576. 10360 DATA"[212]E>Q'P TLOPB, FPI>KA PB@RO-","FQV E>P LMBKBA RM RPFKD QEB"
  577. 10365 DATA"OBJLQB @LKQOLIIBA J>@EFKB","DRKP JLRKQBA KB>O?V."
  578. 10370 DATA"[214]LRO ?LAV FP KLT LK AFPMI>V",">Q QEB [208]JFQEPLKF>K >P QEB"
  579. 10375 DATA"TLOIAP I>ODBPQ @LI>KABO!","[214]LR JLSB >KA PE>HB QEB ILD."
  580. 10380 DATA"[209]L VLRO PROMOFWB, > PHRKH","ORKP LRQ...QROKP >KA PQ>OBP",">Q VLR."
  581. 10385 DATA"[197]B PBBJP QL A>OB VLR QL","J>HB >KLQEBO JLSB!"
  582. 10390 DATA"[212]>IHFKD QLT>OA QEB PLRKA LC","ORKKFKD T>QBO, VLR B>PFIV"
  583. 10395 DATA"CFKA LRQ TEBOB FQ'P DLFKD.","[209]EB P>JB MI>@B [214][204][210]'[207][194] DLFKD"
  584. 10400 DATA"CLLI!","[193]LTK, ALTK, ALTK VLR DL QL","VLRO ABJFPB FKQL >K >IJLPQ"
  585. 10405 DATA"?LQQLJIBPP @E>PJ!","[214]LR ORK VLRO E>KAP LSBO QEB"
  586. 10410 DATA"PJLLQE T>IIP LC QEB @>SBOK.","[212]E>Q'P QEFP<"
  587. 10415 DATA"[190] IFDEQ PTFQ@E...FK > @>SB<","[190]MMOBEBKPFSBIV, VLR QRD LK","QEB PTFQ@E."
  588. 10420 DATA"[208]LK-LC->-DRK...FQ FP CLO >","IFDEQ! ([190]KA VLR QELRDEQ [198]"
  589. 10425 DATA"T>P DLKK> DBQ VLR >D>FK!!)","[209]EB IFDEQ @LJBP LK >KA QEBK"
  590. 10430 DATA"PRAABKIV, FQ >II @LJBP SBOV","@IB>O!","[212]E>Q...[214]LR DLQ PRMBO SFPFLK"
  591. 10435 DATA"LO PLJBQEFKD<","[209]EBOB'P KL IFDEQ, ?LKBEB>A!"
  592. 10440 DATA"[192]EB@HFKD LRQ QEB T>IIP, VLR","CFKA > PQBBI ?LU E>KDFKD RM","KB>O?V."
  593. 10445 DATA"[204]MBKFKD QEB ?LU VLR CFKA >","OFKD LC HBVP."
  594. 10447 DATA"[198]Q'P > PQOB>J QOF@HIFKD LK"
  595. 10450 DATA"ALTK QEB B>PQ T>II.","[198]Q BJMQFBP FKQL > SBOV ABBM","@E>PJ."
  596. 10455 DATA"[198]Q'P > OFKD LC QEOBB HBVP.","[194]>@E LKB FP I>?BIBA TFQE >"
  597. 10460 DATA"KRJ?BO COLJ LKB QL QEOBB.","[209]EB PBQ LC HBVP >OB VLROP."
  598. 10465 DATA"[190]FK'Q QEFP CRK<","PMKPKRIRP","PTOLKNOOPJM","QMNNRJQM","OPGQPIMLSHQT"
  599. 10470 DATA"OPGQPIMLOLTK","TMSLKKMHGL","MTOQIMNKJJJ","MTOQIMHIPL","OPGQPIMLJLIKK"
  600. 10475 DATA"OPGQPIMLLHQM","QMNNRIQLI","HMGHKKIJIK","[198]Q FP >?LRQ QBK CBBQ EFDE"
  601. 10480 DATA">KA >MMB>OP QEB P>JB >P >KV","LQEBO CBK@B VLR'SB PBBK FK"
  602. 10485 DATA"QEB M>PQ.","[214]LR QEOLT > QOBB ?O>K@E >Q","FQ. [212][197][204][190]!! [198]Q COFBA QE>Q"
  603. 10490 DATA"PR@HBO QL > @OFPM!","[201]LLHP LH QL JB, BU@BMQ CLO"
  604. 10495 DATA"> PJ>II ?LU KB>O QEB QLM LC","QEB MLIB GRPQ ?BILT QEB","TFOBP."
  605. 10500 DATA"[208]IFKHFKD RM QEB MLIB, VLR","CFKA QE>Q LMBKFKD QEB ?LU"
  606. 10505 DATA"OBSB>IP > PIFM LC M>MBO. [198]Q","FP TO>MMBA >OLRKA > AB>AIV"
  607. 10510 DATA"ILLHFKD HKFCB.","[214]LR DO>? QEB HKFCB >KA ?>@H"
  608. 10515 DATA"ALTK QEB MLIB VLR PIFAB.","[209]EB M>MBO P>VP..."
  609. 10520 DATA"[214]LR @>K'Q DBQ QEBOB COLJ","EBOB.","[209]L AL FQ OFDEQ, HBBM VLRO"
  610. 10525 DATA"HKFCB. [214]LR J>V KBBA FQ QL","P>SB VLRO IFCB!"
  611. 10527 DATA"[214]LR'SB ?BBK T>Q@EFKD QLL"
  612. 10530 DATA"J>KV [200]RKD [195]R JLSFBP!","[196]BQ OB>IFPQF@, QEFP FP SBOV"
  613. 10535 DATA"PBOFLRP PQRCC EBOB.","[214]LR DO>? QEB CBK@B >KA VLRO","BVBP IFDEQ RM!"
  614. 10540 DATA"[191]BCLOB VLR @>K IBQ DL, VLR","E>SB COFBA VLRO ?RKP QL >","JBAFRJ TBII.
  615. 10545 [131]"(null)E>Q'P Q>HFKD 'VAL>SB FQ VLRO","T>V' > IFQQIB QLL C>O!"
  616. 10550 [131]"COS O>QEBO I>ODB O>Q E>P ?BBK","CLIILTFKD ?BEFKA VLR. (null)EFP"
  617. 10555 [131]"?B>AV-BVBA, CROOV JBK>@B","E>P KL ALR?Q @LJB COLJ LKB"
  618. 10560 [131]"LC QEB ?O>K@EBP LC QEB MFMB","QE>Q VLR M>PPBA."
  619. 10565 [131]"(null)LRO KBUQ >@QFLK TFII MOL-","SLHB QEB >KFJ>I QL >QQ>@H!"
  620. 10570 [131]"(null)LR TFM LRQ QEB HKFCB >KA","MI>KQ FQ OFDEQ ?BQTBBK QEBJ"
  621. 10575 [131]"?B>AV BVBP LC EFP!","STR$LLA NRF@H QEFKHFKD (null)LOOL!"
  622. 10580 [131]"COSKA TE>Q AL VLR MI>K QL RPB","CLO > TB>MLK KFKKV, VLRO","PELB<!!"
  623. 10585 [131]"(null)EB O>Q IRKDBP >Q VLR >KA","OFMP LRQ VLRO GRDRI>O!"
  624. 10590 [131]"ASC @>K DFSB > JLOB DO>MEF@","ABP@OFMQFLK, ?RQ TEV J>HB"
  625. 10595 [131]"?LQE LC RP PF@H<","ASCQ E>P EFKDBP LK LKB PFAB,"
  626. 10600 [131]">KA > IL@H LK QEB LQEBO.","SINBVLKA QEB DO>QFKD VLR @>K"
  627. 10605 [131]"PBB IFDEQ >Q QEB BKA LC QEB","SBKQ MFMB.","ASCQ'P IL@HBA!"
  628. 10610 [131]"(null)FQE TEF@E HBV<","(null)FQE TE>Q, VLRO QLB K>FI<","UQRP"
  629. 10615 [131]"OPGQPIMLKKFLK","EHKJKLJGPL","KFRKJPJMNHOM","=","JPLIL","OFNIKMKGRL"
  630. 10620 [131]"OPGQPIMLQLOIR","OPGQPIMLSHJL","OPGQPIMLOPQG","OPGQPIMLQMNTOPR"
  631. 10625 [131]"OPGQPIMLOMFQL","OPGQPIMLGSJKKP","EHKJKNQRK","EHKJKRMNES","EHKJKRGIH"
  632. 10630 [131]"EHKJKPLOPPOQ","QMN","JQMGJLM","LLMKINJM","NIQLKKR","MTOQI","QGLQI"
  633. 10635 [131]"(null)EFP ALLO JRPQ IB>A FKQL","QEB PFIL QE>Q ELRPBP QEB"
  634. 10640 [131]"AB>AIV >QLJF@ JFPPIB.","ASCQ E>P >K BIB@QOLKF@ @LJ?-"
  635. 10645 [131]"FK>QFLK IL@H TFQE CFSB PBQP","LC KRJ?BO FKAF@>QLOP."
  636. 10650 [131]"CHR$RPQ > MI>FK LIA ALLO TFQE","> MI>FK LIA ALLO HKL?."
  637. 10655 [131]"(null)EB K>OOLT PQ>FOT>V DLBP RM","QL QEB @BFIFKD >KA QEOLRDE"
  638. 10660 [131]">K LMBK E>Q@E.","PEEK(null)(null)PEEK(null) (null)PEEKTAN(null)(null)ASC(null)(null) TAN(null)MID$SINASC(null)COS(null)ASC(null)(null):"
  639. 10665 [131]"ASCQ >MMB>OP QL ?B > G>KFQLOP","@ILPBQ.","(null)EBOB FP > G>KFQLO RKFCLOJ,"
  640. 10670 [131]"> PNRBBDBB, >KA PLJB TFKALT","@IB>KBO >JLKD LQEBO QEFKDP."
  641. 10675 [131]"(null)LR MF@H RM QEB TFKALT","@IB>KFKD PQRCC, >KA MRQ LK"
  642. 10680 [131]"QEB G>KFQLO RKFCLOJ.","(null)M QEB PQBMP VLR DL! COSQ QEB"
  643. 10685 [131]"QLM LC QEB PQ>FOP QEBOB >OB","> @LRMIB LC >OJBA DR>OAP."
  644. 10690 [131]"(null)EBV KLQF@B QE>Q VLR >MMB>O","QL ?B QEB G>KFQLO QEBV E>SB"
  645. 10695 [131]"?BBK QLIA T>P @LJFKD.","(null)E>Q FK@OBAF?IB IR@H!!"
  646. 10700 [131]"((null)OBPP LEN3  QL @LKQFKRB)","(null)LR >OB QLIA QL T>PE QEB"
  647. 10705 [131]"@LJMRQBO P@OBBKP >Q QEB","@LKPLIBP. (null)EB LMBO>QLOP >OB"
  648. 10710 [131]"LRQ QL AFKKBO, >KA QEB","DR>OAP DL ?>@H QL QBIIFKD"
  649. 10715 [131]"PQLOFBP QL B>@E LQEBO.","(null)EBV M>V IFQQIB >QQBKQFLK!"
  650. 10720 [131]"ONQL ?B > PMV LO PLJBQEFKD QL","QE>Q DBKBO>I BCCB@Q!"
  651. 10725 [131]"(null)EBV JLSB @ILPBO QL VLR!!!","(null)BBFKD QEB HKFCB VLR MRQ FK"
  652. 10730 [131]"VLRO ?BIQ, >PHFKD KL NRBPQ-","FLKP >KA FJJBAF>QBIV LMBK","CFOB LK VLR!"
  653. 10735 [131]"(null)LR AFAK'Q PQ>KA > @E>K@B",">D>FKPQ >RQLJ>QF@ J>@EFKB","DRK CFOB."
  654. 10740 [131]"LEFT$FPP QEFP TLOIA DLLA?VB!!!!","CAL;?M9>N8:J>4"
  655. 10745 [131]"((null)OBPP LEN3  QL @LKQFKRB)","OPGQPIMLOTFTR","OPGQPIMLGHRHOPLM"
  656. 10750 [131]"EHKJKIJGSLM","KFRKJPJJNHRML","<","JOI","OPGQPIMLFHJS","(null) 18034"
  657. 10755 [131]"(null) 67978","(null)AWTUCKET","(null)NKNOWN","ATNRMED","CONT(null)NARMED","LMGNPIO"
  658. 10760 [131]"VIOJJMJIKGOJIP","IMRJKIMMPKPKN","(null)LR LMBK QEB AO>TBO >KA VLR"
  659. 10765 [131]"CFKA > ?LLH FKPFAB!","(null)LR LMBK QEB ?LLH >KA CFKA"
  660. 10770 [131]"TE>Q VLR E>SB ?BBK ILLHFKD","CLO:","99 78 18 15 80","(null)UTER (null)PACE"
  661. 10775 [131]"OPGQPIMLQPNKRI","OPGQPIMLLHOKN","EHKJ",";","EFK","OPGQPIMLGHIKIPL"
  662. 10780 [131]"FJKOL","(null)EB DR>OAP >OB >IBOQBA ?V","QEB O>@HBQ QE>Q VLR J>K>DBA"
  663. 10785 [131]"QL MOLAR@B TFQE QEB @LJMRQ-","BO!","STR$RBPP TE>Q< (null)LR DBQ ?ILTK"
  664. 10790 [131]">T>V COSSTR$COSASC(null)!!","(null)MLK @ILPBO FKPMB@QFLK, VLR"
  665. 10795 [131]"PBB > E>Q@E E>ICT>V RM QEB","PFAB LC QEB JFPPIB."
  666. 10800 [131]"(null)EBOB >OB CLLQ ELIAP >ILKD","QEB PFAB LC QEB JFPPIB."
  667. 10805 [131]"(null)M QEB PFAB LC QEB JFPPIB","VLR DL, J>HFKD VLRO T>V QL","QEB E>Q@E."
  668. 10810 [131]"SINRQ, ELT QL LMBK FQ<....","SINBPFABP QEB ?RQQLKP IFDEQP"
  669. 10815 [131]">KA PTFQ@EBP, JLPQ LRQ-","PQ>KAFKD, QEB ?RQQLK QE>Q"
  670. 10820 [131]"FP J>OHBA MID$COS(null)(null)COSRIGHT$ RIGHT$COS(null)(null)TANVAL","(null)(null)PEEK(null)(null)ASCATNPEEK.","ASCJJBAF>QBIV QEB JFPPIB ?B-"
  671. 10825 [131]"DFKP QL ORJ?IB.","ASCQ FP @>OOVFKD VLR >KA QEB",">QLJF@ ?LJ? >ILCQ!!"
  672. 10830 [131]"SINBCLOB VLR @>K AL >KVQEFKD","QEB PBIC ABPQOR@Q QE>Q VLR"
  673. 10835 [131]">@QFS>QBA ALBP FQ'P GL?!","(null)EB FPIB, VLR, >KA BSBOV-"
  674. 10840 [131]"QEFKD BIPB TFQEFK 10 JFIBP","FP TFMBA LRQ!!!"
  675. 10845 [131]"(null)EB A>JK QEFKD FP EB>ABA","CLO (null)>TQR@HBQ!! (null)LR AFAK'Q"
  676. 10850 [131]"@E>KDB QEB ?B>OFKD FK QEB","@LKQOLI OLLJ! (null)B>OFKD LMBK"
  677. 10855 [131]"QEB ALLO LK QEB @>?FKBQ","VLR CFKA > M>O>@ERQB. SINRQ"
  678. 10860 [131]"VLR @>K'Q DBQ LRQ ?B@>RPB","LC QEB JFPPIB'P MFQ@E!"
  679. 10865 [131]"STR$'?VB QL VLR & (null)>TQR@HBQ!","(null)B>OFKD LMBK QEB @>?FKBQ,"
  680. 10870 [131]"VLR CFKA VLROPBIC > M>O>-","@ERQB!","(null)LR GRJM LRQ QEB E>Q@E >KA"
  681. 10875 [131]"CIL>Q ALTK QL > OB@LSBOV","KB>O > (null). (null). PEFM."
  682. 10880 [131]"(null)EB >QLJF@ JFPPIB EB>AP","E>OJIBPPIV QL LRQBO PM>@B."
  683. 10885 [131]"TAN(null)(null)STR$(null)COS(null)(null)RIGHT$COS(null)ASC(null)(null)(null) VALPEEK(null)(null)!!"
  684.