home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / GRAVEROBBERS (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  10KB  |  297 lines
  1. 10 GOSUB2920
  2. 15 C$="                                      ":GOTO1380
  3. 20 POKEU,0:FORQ=1TO5:POKEBC,1
  4. 30 FORJ=1TO8:POKEP,3:NEXT:POKEBC,0:POKEP,16-Q/2
  5. 40 FORJ=1TO5+RND(8)*12:POKEU,20+(JAND4)*8:NEXT:NEXT:FORQ=6TO3STEPR
  6. 50 POKEP,Q:POKEU,12:NEXT:RETURN
  7. 60 GOSUB630:PRINT"YOU CAN'T DO THAT.";:GOTO80
  8. 70 GOSUB630:PRINT"OK.";:IFN=3THENDF=1:GOSUB810
  9. 80 GOSUB100:IFPEEK(198)THEN130
  10. 90 GOTO80
  11. 100 IFTR>TIORL<2THENRETURN
  12. 110 IFD=0ANDL%(4)+L%(6)=20THENR=-1:GOSUB20:GOTO580
  13. 120 GOSUB20:TR=90+RND(8)*360+TI:RETURN
  14. 130 GOSUB610:PRINT"[146]EXITS:";:IFL<6THENPRINT" NORTH";
  15. 140 IFL>2THENPRINT" SOUTH";:IFL=6ANDDTHENPRINT" DOWN";
  16. 150 GOSUB630:PRINT"COMMAND?  [146]";:R$=""
  17. 160 GETI$:GOSUB100:IFI$=""THEN210
  18. 170 IFLEN(R$)<1THEN190
  19. 180 IFI$=YB$ORI$=ZB$THENPRINTYB$YB$" [146]";:R$=LEFT$(R$,LEN(R$)-1):GOTO160
  20. 190 IFI$>""ANDI$<"["THENR$=R$+I$:PRINTZB$I$" [146]";
  21. 200 IFLEN(R$)<28THEN160
  22. 210 V=0:R$=R$+"  ":IFLEN(R$)=2THEN150
  23. 220 V$=LEFT$(R$,2):FORQ=2TO19STEP2:IFV$=MID$(" OPGOLOFEUNPUINLIGE",Q,2)THENV=Q/2:Q=H
  24. 230 NEXT
  25. 240 N$="":FORQ=LEN(R$)-2TO1STEP-1:IFMID$(R$,Q,1)=" "THENN$=MID$(R$,Q+1,2):Q=.
  26. 250 NEXT:N=.:FORQ=2TO23STEP2:IFN$=MID$(" NOSODODYMAANRAFOSATOGA",Q,2)THENN=Q/2:Q=H
  27. 260 NEXT
  28. 270 ONVGOTO290,310,390,420,450,470,490,510,520
  29. 280 GOSUB630:PRINT"HUH?";:GOTO80
  30. 290 IFN=11THENG=1:GOTO550
  31. 300 GOTO60
  32. 310 IFN=1THEN360
  33. 320 IFN=2ANDL>2THENL=L-1:GOTO550
  34. 330 IFN=2ANDL=2THENGOSUB630:PRINT"CAN'T, GATE LOCKED!";:GOTO80
  35. 340 IFD=0ORL-6THEN60
  36. 350 GOTO1730
  37. 360 IFL=5ANDF=0THENGOSUB610:PRINT"A VICIOUS DOG, NOT A GOOD IDEA!";:GOTO80
  38. 370 IFL<6ANDGTHENL=L+1:GOTO550
  39. 380 GOTO60
  40. 390 GOSUB630:IFN=7ANDL%(6)=7THENPRINTD$(6);:GOTO80
  41. 400 IFN=0THEN150
  42. 410 PRINT"NOTHING SPECIAL";:GOTO80
  43. 420 IFN-3ORL-5THEN60
  44. 430 IFL%(8)THENL%(9)=0:F=1:GOTO70
  45. 440 GOSUB630:PRINT"DOG WON'T EAT IT";:GOTO80
  46. 450 IFN-9ORL%(8)THEN60
  47. 460 L%(8)=H:D$(9)="SANDWICH":GOTO70
  48. 470 IFL=6AND(N=4ORN=6)THENIFL%(N)-10THENL%(N)=10:GOTO550
  49. 480 GOTO60
  50. 490 GOSUB610:FORQ=4TO9:IFL%(Q)=HTHENPRINTD$(Q)" ";
  51. 500 NEXT:GOTO80
  52. 510 GOSUB630:PRINT"IT'S RAINING!";:GOTO80
  53. 520 GOSUB630:IFN>9THENPRINT"TOO HEAVY";:GOTO80
  54. 530 IFN=3THENPRINT"IT BITES!";:GOTO80
  55. 540 GOTO60
  56. 550 PRINT"[147]":GOSUB610:PRINT"[145]  "C$;
  57. 560 PRINT"[146][144]"TAB(15+NT)"[206][145][206][145][206][145][206][205][206][145][206][145][206]";
  58. 570 ONLGOSUB640,720,750,770,810,930:GOTO130
  59. 580 L%(4)=25:GOSUB930
  60. 590 POKE36879,25:PRINT""TAB(NT)"[144][205][205][157][206][157][157][206][145][145][206][145][206][205][206][205][206][145][206][163][163][157][157][145][206][145][206]
  61. 600 D[178]1:[141]20:[141]20:[141]20:R[178][171].05:[137]550
  62. 610 [141]630:[141]620:[153]"WAIT  "C$;
  63. 620 [153]"";:[142]
  64. 630 [141]620:[153]"WAIT"C$;:[141]620:[153]"";:[142]
  65. 640 [153]"CLRWAIT WAITINT"[163]25)" WAITINT";
  66. 650 [145]G[137]690:[129]Q[178]3[164]20:[153]"INTINTINTINTINTINTINTINTINTINTINT WAITINTINTINTINTINTINTINTINTINTINTINTINTINT WAITINTINTINTINT";
  67. 660 [153]"INTINTINTINTINTINTINTINTINTINT";:[130]
  68. 670 [153]"SYSDIAMOND(null)"[166]32)"CEMETERY
  69. 680 PRINT"  [157][157]  [157][157]  [145][157][209]";:RETURN
  70. 690 PRINT"[182] "SPC(27);:FORQ=3TO20
  71. 700 PRINT"[181][181][181][181][181][181][181][181][181]   [146]              [146][181][181][181][181][181][181][181][181][181][181][181][181][181][181]";
  72. 710 NEXT:PRINT"";:GOTO730
  73. 720 PRINT"";
  74. 730 PRINT"[158][164][164][164][164][164][164][164][164][164][164][164]"SPC(16);
  75. 735 PRINT" PRIVATE   "SPC(29)"  PROPERTY ";
  76. 740 PRINTSPC(29)"    NO     "SPC(29)"TRESPASSING"SPC(34);:GOTO800
  77. 750 PRINT"[158]        "SPC(32)" BEWARE "SPC(32)"   OF   ";
  78. 760 PRINTSPC(32)"  DOG!  "SPC(32)"        "SPC(35);:GOTO800
  79. 770 PRINT"[144] [188]         [161][157][161]":PRINT"    [157] [146]
  80. 780 [153]"SYS      "[166]34)" KEEP "[166]34)" OUT! ";
  81. 790 [153][166]34)"      "[166]36);
  82. 800 [153]"INTCMDINTCMDINTCMDINTCMDINT";:[142]
  83. 810 [153]"WAITSTOP    GET
  84. 820 PRINTSPC(33)"[166][166][157][157][166][166]
  85. 830 [153]"           (null)WAITTO    LOGFREFRECOS
  86. 840 PRINT"[205]         [206] [172][205][164][164]
  87. 850 [153]" (null)       (null)     LOGFN
  88. 860 IFDF=1THENPRINT"  [207][163][163][163][163][163][163]   [202][195][195][195][165]
  89. 870 [139]DF[178]1[167][153]"  FN         (null)TAB(TAB(TAB( ":[137]900
  90. 880 [153]"  (null)TAB(TAB(TAB(TAB(TAB(TAB(   (null)LEN=LENFN
  91. 890 PRINT"  [165]         [206][177][195][177][203]
  92. 900 [153]"  (null)TOTOTOTOTOTOTOTO(null)
  93. 910 FORQ=1TO3:PRINT"    ":NEXT
  94. 920 PRINT"   [146][187] [146][187]":RETURN
  95. 930 ONDGOTO1020:PRINT""TAB(NT)"[144]    [206][163][163][163][163][163][163][163][205]
  96. 940 [153][163]NT)"   (null)         (null)
  97. 950 FORQ=1TO10:PRINTTAB(NT)"  [167]           [165]":NEXT
  98. 960 PRINTTAB(NT)" [207][163][163][163][163][163][163][163][163][163][163][163][163][163][208]":PRINTTAB(NT)" [204][164][164][164][164][164][164][164][164][164][164][164][164][164][186]
  99. 970 [153]""[163]NT)"SYSLE0 0PEEKLCMDCMDCMDCMDCMDCMDCMDR. I. P.STOP";
  100. 980 [139]L%(4)[178]10[167][153]"CMDCMDCMD    WAITTAN(null)CMDCMDCMD";
  101. 990 [139]L%(4)[178]25[167][153]"CMDCMDCMD      CMDCMDCMD";
  102. 1000 [139]L%(6)[178]10[167][153]"";:[129]Q[178]0[164]11:[153]"SGNONCMD";:[130]
  103. 1010 [142]
  104. 1020 [153]"STOP
  105. 1030 PRINTTAB(NT)"     [164][206]    [205][164]
  106. 1040 [153][163]NT)"     (null)(null)TAB(TAB(TAB(TAB((null)(null)
  107. 1050 PRINTTAB(NT)"    [206] [165]    [167] [205]
  108. 1060 [153][163]NT)" TOTO(null)  FN    THEN  (null)TOTO
  109. 1070 PRINTTAB(NT)"  [206][163][163][163][163][163][163][163][163][163][163][163][163][205]
  110. 1080 [153][163]NT)" (null)              (null)":[142]
  111. 1090 [153]"ONONON       DEFADVENTURE INSTRUCTIONS:WAIT"
  112. 1100 [153]"ADVENTURES ARE INTERACTIVE FANTASIES IN
  113. 1110 PRINT"WHICH YOU PLAY THE ROLE OF A CHARACTER
  114. 1120 [153]"IN AN UNKNOWN ENVIRONMENT.  THROUGH THE
  115. 1130 PRINT"COMPUTER YOU CONTROL THE CHARACTER WITH
  116. 1140 [153]"PLAIN ENGLISH STATEMENTS LIKE "[199](34)"GET THE"
  117. 1150 [153]"KEY"[199](34)" OR "[199](34)"OPEN THE GATE"[199](34)"."
  118. 1160 [153]"THE COMPUTER CONSIDERS THE FIRST WORD
  119. 1170 PRINT"THE VERB AND THE LAST WORD THE NOUN.  IT";
  120. 1180 PRINT"ALSO ONLY LOOKS AT THE FIRST TWO LETTERS";
  121. 1190 PRINT"OF EACH WORD.  THEREFORE; "CHR$(34)"OP GA"CHR$(34)" MEANS"
  122. 1200 PRINT"THE SAME AS "CHR$(34)"OPEN THE GATE"CHR$(34)"."
  123. 1210 GOSUB1370
  124. 1220 PRINT"[147]ENTER "CHR$(34)"IN"CHR$(34)" (FOR "CHR$(34)"INVENTORY"CHR$(34)") ";
  125. 1230 PRINT"TO SEE WHATYOU ARE CARRYING.  LOOK AT INDIVIDUAL
  126. 1240 [153]"ITEMS FOR FURTHER CLUES.
  127. 1250 PRINT"IN ANY OF MY ADVENTURES, YOU WILL
  128. 1260 [153]"NEVER GET INTO A "[199](34)"DEAD END"[199](34)" SITUATION;
  129. 1270 PRINT"THERE IS ALWAYS A WAY OUT (UNLESS YOU
  130. 1280 [153]"DIE).
  131. 1290 PRINT"BELOW IS A LIST OF VERBS THAT YOU CAN
  132. 1300 [153]"USE WITH THIS ADVENTURE.  THE DISCOVERY
  133. 1310 PRINT"OF THE NOUNS IS LEFT UP TO YOU; THAT'S
  134. 1320 [153]"PART OF THE FUN!
  135. 1330 PRINT"[154]OPEN, GO, LOOK, FEED, UNWRAP, INVENTORY,";
  136. 1340 PRINT"LIGHT, GET, PRESS, CUT, PUSH, PUT, JUMP"
  137. 1350 PRINT"REMEMBER... ALWAYS PUT THE VERB FIRST   AND THE NOUN LAST!";
  138. 1355 PRINT"  ALL OTHER WORDS     SHOULD BE IN THE MIDDLE.  DON'T FORGET  TO ";
  139. 1357 PRINT"LOOK FOR CLUES ALONG THE WAY!
  140. 1360 [141]1370:[153]"LOAD":[142]
  141. 1370 [153]"            SYS(HIT ANY KEY)":[151]198,0:[146]198,1:[151]198,0:[142]
  142. 1380 P[178]54296:[143] VOLUME
  143. 1390 BR[178]53280:[143] BORDER COLOR
  144. 1400 BC[178]53281:[143] BACKGROUND COLOR
  145. 1410 U[178]54273:[143] "NOISE" PORT?
  146. 1420 [151]BC,0:[151]P,1:[151]U,64:R[178][171].05
  147. 1430 [151]BR,0:[143] MAKE BORDER BLACK
  148. 1440 [153]"LOADPRINT#    STEPLISTFN  THEN                           "
  149. 1450 [153]"   PRINT#STEP LISTFN  (null)  (null)LENRIGHT$ (null)LENRIGHT$ (null)LENRIGHT$ RIGHT$ (null) (null)LEN       "
  150. 1460 [153]"   PRINT#  LISTFN (null)(null)  PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK        "
  151. 1470 [153]"   PRINT#  LISTFN  THEN  PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK        "
  152. 1480 [153]"   PRINT#  LISTFN  (null)(null) PEEK PEEK -LEN(null) -LEN< PEEK PEEK PEEK      SGN "
  153. 1490 [153]"   PRINT#  LISTFN  SGN  PEEK   -LENRIGHT$ PEEK PEEK PEEK PEEK -LEN   (null)(null)  "
  154. 1500 [153]"   PRINT#  LISTFN     PEEK(null)RIGHT$ PEEK PEEK PEEK PEEK PEEK PEEK PEEK     (null)(null) "
  155. 1510 [153]"   PRINT#  LISTFN     PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK     (null)SGN "
  156. 1520 [153]"   PRINT#  LISTFN     PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK      (null)WAITSTEP"
  157. 1530 [153]"   PRINT#  LISTFN     MID$LEN(null) (null) MID$ (null) MID$ MID$LEN(null) MID$LEN      (null)"
  158. 1540 [153]"   PRINT#  LISTFN                              "
  159. 1550 [153]"   PRINT#  LISTFN (null)LENRIGHT$ (null)LENRIGHT$ (null)LENRIGHT$ (null)LENRIGHT$ (null)LEN  (null)LENRIGHT$ (null)LENRIGHT$  "
  160. 1560 [153]"   PRINT#  LISTFN PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK   PEEK PEEK PEEK PEEK  "
  161. 1570 [153]"   PRINT#  LISTFN PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK   PEEK PEEK PEEK PEEK  "
  162. 1580 [153]"   PRINT#  LISTFN -LEN(null) PEEK PEEK -LEN(null) -LEN(null) PEEK   -LEN(null) PEEK    "
  163. 1590 [153]"   PRINT#  LISTFN -LENRIGHT$ PEEK PEEK -LENRIGHT$ -LENRIGHT$ -LEN  -LENRIGHT$ MID$LENRIGHT$  "
  164. 1600 [153]"   PRINT#  LISTFN PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK   PEEK PEEK   PEEK  "
  165. 1610 [153]"   PRINT#  LISTFN PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK   PEEK PEEK PEEK PEEK  "
  166. 1620 [153]"   PRINT#  LISTFN PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK   PEEK PEEK PEEK PEEK  "
  167. 1630 [153]"   PRINT#  LISTFN (null) MID$ MID$LEN(null) MID$LEN(null) MID$LEN(null) MID$LEN  (null) MID$ MID$LEN(null)  "
  168. 1640 [153]"   PRINT#  LISTFN                              "
  169. 1650 [153]" PRINT#STEPLIST(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
  170. 1660 PRINT"[152][169] [155][165]     BY WILLIAM D. PITTS  @1987     "
  171. 1670 PRINT"[152]  [155][165]                                    [145][145]"
  172. 1680 GOSUB20:FORI=1TO4000:NEXT:PRINT"[147]":POKEBR,6:GOSUB1090
  173. 1690 FORQ=4TO9:READD$(Q):NEXT:DATADYNAMITE,MATCHES,ANTENNA,RADIO,FOIL,SANDWICH IN FOIL
  174. 1700 NT=10:H=99:L=1:FORQ=4TO9:READL%(Q):NEXT:DATA99,99,7,99,0,99
  175. 1710 GOTO550
  176. 1720 PRINT"[145]                                        [146][144]";:GOTO2450
  177. 1730 CLR:GOSUB2920:GOTO2880
  178. 1740 PRINT"[147]":GOSUB2470:GOTO1720
  179. 1750 PRINT""TAB(X);:IFYTHENFORQ=1TOY:PRINT"";:NEXT
  180. 1760 RETURN
  181. 1770 PRINT"YOU CAN'T DO THAT!";:GOTO1800
  182. 1780 PRINT"NOTHING SPECIAL.";:GOTO1800
  183. 1790 PRINT"THE ELEVATOR IS JAMMED.";:GOTO1800
  184. 1800 GOSUB2490:PRINT"[146]COMMAND?  [146]";:R$=""
  185. 1810 GETI$:IFLEN(R$)<1THEN1830
  186. 1820 IFI$=YB$ORI$=ZB$THENPRINTYB$YB$" [146]";:R$=LEFT$(R$,LEN(R$)-1):GOTO1810
  187. 1830 IFI$>""ANDI$<"["THENR$=R$+I$:PRINTZB$I$" [146]";
  188. 1840 IFI$=CHR$(13)THEN1860
  189. 1850 IFLEN(R$)<29THEN1810
  190. 1860 V=0:R$=R$+"  ":IFLEN(R$)=2THEN1800
  191. 1870 V$=LEFT$(R$,2)
  192. 1880 FORQ=2TO19STEP2
  193. 1890 IFV$=MID$(" OPGOLOPRCUPUINJUGE",Q,2)THENV=Q/2:Q=H
  194. 1900 NEXT:N$="":FORQ=LEN(R$)-2TO2STEP-1
  195. 1910 IFMID$(R$,Q,1)=" "THENN$=MID$(R$,Q+1,2):Q=.
  196. 1920 NEXT:N=.:FORQ=2TO41STEP2
  197. 1930 IFN$=MID$(" FODIKEPIRALOSTFUFISAGLTO1 2 3 4 ELUPOUDO",Q,2)THENN=Q/2:Q=H
  198. 1940 NEXT:GOSUB2470
  199. 1950 ONVGOTO1970,2050,2200,2270,2300,2330,2370,2390,2410
  200. 1960 PRINT"HUH?";:GOTO1800
  201. 1970 IFN=8THENF=1:GOTO1740
  202. 1980 IFN=20ANDL=13THENP=1:PRINT"THE KNOB FELL OFF![144]";::GOSUB2510:GOTO1800
  203. 1990 IFN-10ORL-14THEN1770
  204. 2000 PRINT"COMBINATION?";:R$="":FORQ=0TO5
  205. 2010 GETI$:IFI$<"0"ORI$>"9"THEN2010
  206. 2020 R$=R$+I$:PRINTI$;:IFQ<5ANDQAND1THENPRINT"-";
  207. 2030 NEXT:GOSUB2470:IFR$="710037"THENS=1:GOTO1740
  208. 2040 PRINT"WRONG COMBINATION";:GOTO1800
  209. 2050 IFITHEN2130
  210. 2060 IFN-17THEN2100
  211. 2070 IFG=0THENPRINT"BAD IDEA!";:GOTO1800
  212. 2080 IFL=15ORL=14THEN1790
  213. 2090 L=17:GOTO1740
  214. 2100 IFN=9THENIFL=14ORL=15THENI=1:GOTO1740
  215. 2110 IFI=0ANDL=15ANDN=50THENL=17:GOTO1740
  216. 2120 GOTO1770
  217. 2130 IFN<18THEN1770
  218. 2140 IFN=19THENI=0:GOTO1740
  219. 2150 IFN=18THEN2180
  220. 2160 IFL=15THENL=14:I=0:GOTO1740
  221. 2170 GOTO1770
  222. 2180 IFL=14THENL=15:I=0:GOTO1740
  223. 2190 GOTO1770
  224. 2200 IFN=0THEN1740
  225. 2210 IFN-17THEN1780
  226. 2220 IFL-15THEN2250
  227. 2230 J=8:X=12:Y=3:V=14:W=15:GOSUB2810:GOSUB2780
  228. 2240 PRINT"[158]";:FORQ=1TO5:PRINTTAB(16)"    ":NEXT:GOTO1800
  229. 2250 IFL=16ANDG=0THENJ=1:X=19:Y=10:V=0:W=1:GOSUB2810:GOSUB2780:GOTO1800
  230. 2260 GOTO1780
  231. 2270 IFL-17ORN<13ORN>16THEN1770
  232. 2280 IFN=15OR(N=13ANDE=0)THENPRINT"BUTTON IS NOT WORKING";:GOTO1800
  233. 2290 L=N:GOTO1740
  234. 2300 IFL(2)-HORL-13ORN-11THEN1770
  235. 2310 PRINT"[147]CONGRATULATIONS!  YOU FOUND THE DIAMOND
  236. 2320 [153]"AND THE SECRET PASSAGE LEADING OUT!":[128]
  237. 2330 [139]N[178]1[167]G[178]1:L(1)[178]0:[137]1740
  238. 2340 [139]L[171]17[167]1770
  239. 2350 [139]N[178]3[175]L(3)[178]H[167]E[178]1:L(3)[178]0:[137]1740
  240. 2360 [137]2270
  241. 2370 [141]2470:[129]Q[178]1[164]5:[139]L(Q)[178]H[167][153]D$(Q)" ";
  242. 2380 [130]:[137]1800
  243. 2390 [139]L[178]15[167]L[178]17:[137]1740
  244. 2400 [137]1770
  245. 2410 [139]L[178]14[175]S[175]N[178]3[175]L(3)[178]10[167]L(3)[178]H:[137]1740
  246. 2420 [139]L[178]14[175]N[178]4[167]L(4)[178]H:[137]1740
  247. 2430 [139]L[178]13[175]N[178]2[167]L(2)[178]H:[137]1740
  248. 2440 [137]1770
  249. 2450 [139]I[167][153]"LOAD":[151]53281,0:[137]1800
  250. 2460 [151]BC,5:[145]L[171]12[141]2510,2560,2620,2660,2860:[137]1800
  251. 2470 [141]2490:[141]2480:[153]"WAIT                                      ";
  252. 2480 X[178]0:Y[178]21:[137]1750
  253. 2490 [141]2480:[153]"WAIT                                       ";
  254. 2500 [141]2480:[153]"";:[142]
  255. 2510 X[178]21:Y[178]1:W[178]10:V[178]17:[141]2780:X[178]22:Y[178]2:W[178]8:V[178]6:[141]2780:[141]1750
  256. 2520 [153]"03SQRCMDCMDCMDSQRLEFT$0CMDCMDCMDCMDCMDCMD(null)";:[139]P[167][153]"CMD."
  257. 2530 [139]L(2)[171]H[167]X[178]8:Y[178]10:[141]1750:[153]"(null) ON   (null)CMDCMDCMDCMD(null)(null)CMDCMD(null)(null)
  258. 2540 Y=14:X=9:W=3:V=4:GOSUB2780
  259. 2550 RETURN
  260. 2560 GOSUB2620:X=18:Y=3:GOSUB1750
  261. 2570 IFL(4)=HTHEN2590
  262. 2580 PRINT"      [157][157][157][157][157][157]  [157][157][157][157][157][157]  [157][157][157][157][157][157]  [157][157][157][157][157][157]      [146]";:RETURN
  263. 2590 W=4+S:V=3:GOSUB2780:GOSUB1750:IFS=0THENPRINT"[209][167]";:RETURN
  264. 2600 PRINT" [157] [157] [157] [157] [146]";:IFL(3)=10THENPRINT"[145][215][198][198][162]";
  265. 2610 RETURN
  266. 2620 PRINT"[144]":X=13:Y=9:W=15:V=0:GOSUB2780:X=15:W=11:V=7:Y=11:GOSUB2780:X=17:Y=13
  267. 2630 W=7:V=5:GOSUB2780
  268. 2640 IFL=14THENPRINT"[157][157][186][157][157][157][157][157][204][157][157][145][166][166][166][166][166][166][145][157][157][157][157][157][157][166][166][166][166][166][220][145][157][157][157][157][166][166][220]
  269. 2650 [142]
  270. 2660 [153]"STOP"[163]27)"TOTOTOTOCMDCMDCMDCMD(null)(null)SQR(null)
  271. 2670 X=0:Y=0:V=15:W=18:GOSUB2780:X=23:Y=4:V=7:W=16:GOSUB2780
  272. 2680 PRINT""TAB(19)"[205][205][205][205]";
  273. 2690 Y=16:X=19:GOSUB1750:PRINT"[206][145][206][145][206][145][206]";
  274. 2700 X=26:W=3:Y=7:V=4:GOSUB2780:W=1:GOSUB2780:GOSUB1750:PRINT"[157][167][145][145][145][164][164]
  275. 2710 X[178]29:Y[178]14:[141]1750:[153]"(null)TAB(TAB(TAB(TAB(TAB((null)"[166]32)"(null)       (null)";
  276. 2720 [153][166]30)"THEN (null)E0 0PEEK(null)(null)FN"[166]29)"THEN(null)TOTOCMDCMDCMD(null)FNTHEN(null)TOTO(null)(null)ONCMD(null)(null)"[166]32)"TAB(TAB((null)(null)SQR(null)
  277. 2730 V=8:W=5:X=10:Y=3:GOSUB2780:GOSUB1750
  278. 2740 IFF=0THENPRINT"HIGH[170][157][170][157][157][157][157][157]VOLT[170]":RETURN
  279. 2750 PRINT"[145]";:FORQ=0TO9:PRINT"[157] ";:NEXT
  280. 2760 PRINT"[146][145][145][215] [215][145][145][157][157][157][215] [215][145][145][157][157][157][215] ";:PRINT"[209]";:IFGTHENPRINT"[157][215]";
  281. 2770 RETURN
  282. 2780 GOSUB1750:PRINTLEFT$("[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]",W)"[208]";
  283. 2790 IFVTHENFORQ=1TOV:PRINTSPC(39-W)"[180]"SPC(W-1)"[170]";:NEXT
  284. 2800 PRINTSPC(39-W)LEFT$("[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]",W)"[186]";:RETURN
  285. 2810 PRINT"[147]"TAB(9);:POKE53281,0:FORQ=1TO22:GOSUB2840:PRINT"[205]";:NEXT
  286. 2820 PRINT""TAB(9);
  287. 2830 FORQ=1TO21:GOSUB2840:PRINT"[206][145]";:NEXT
  288. 2840 PRINT"";:IFABS(11.5-Q)<JTHENPRINT"[144]";
  289. 2850 RETURN
  290. 2860 FORQ=1TO20:PRINT"          [180]        [199]        [182]":NEXT
  291. 2870 PRINT"        4[157]3[157]2[157]1[157][146]"MID$("[193][218]",E+1,1):RETURN
  292. 2880 BC=53281:DATAMARKER,FOIL,DIAMOND,KEY,PICTURE,RADIO
  293. 2890 READXC$:IFXC$<>"MARKER"THEN2890
  294. 2900 FORQ=1TO5:READD$(Q):NEXT:H=99:L=16
  295. 2910 PRINT"[144]":FORQ=1TO6:READL(Q):NEXT:DATA99,13,10,14,99,14:GOTO1740
  296. 2920 ZB$=CHR$(157):YB$=CHR$(20):RETURN
  297.