home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #3 / Floppy_Magazine_88-3_1988_Megasystems_Oy_fi_Side_B.d64 / ilpo2_88 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  11KB  |  278 lines
  1. 1 remark: luodesoft creations presents: 2 remark: ** ilpon seikkailut 1/1988 **(NULL)
  2. 2 a=a+1:ifa=1thenload"ilpocontrol",8,1
  3. 4 ifa=2thenload"ilpodisplay",8,1
  4. 6 clr:gosub42000
  5. 100 sys51176:poke53265,27:poke53270,8:print"[147]";:gosub302
  6. 110 print"     [174][184][185][175][185][170] [176][165][177][170][163][163][162] [162][182][175][185] [175][162][162][175][175][185][170][177][170]"
  7. 111 print"     & [161][162][178][181][177][162][174][162][162][170] [161][166][163][161][177][163][163][183] [161][184][185][182][177][167][176]"
  8. 112 print"[185][174][176] 3.":gosub50000
  9. 120 print"[147][212]ervetuloa [201]lpon seikkailuihin!"
  10. 121 print"[200]aluatko, ett[ kerron, mit[ on tapahtu- nut t[t[ ennen??? (k/e):?"
  11. 122 gosub51000:ifa$="e"then200
  12. 130 print"[147][193]lkujaksossa [201]lpo sai teht[v[kseen ot-  taa selv[[, kuinka ja miksi"
  13. 131 print"3 geologia sai surmansa."
  14. 132 print"[217]ksi geologeista oli suomalainen, yksi  taas norjalainen ja yksi oli"
  15. 133 print"amerikkalainen.":gosub50000
  16. 134 print"[147][211]uomalainen ty\skenteli [207]utokummun pal- veluksessa."
  17. 135 print"[193]merikkalainen oli [163][166][180][163][162][177][170] [174][185][163][176]-hankkeenasiantuntija ja norjalainen
  18. 136 [153]"oli taas er[[n norjalaisen kaivosyhti\n palveluksessa."
  19. 137 [153]"(NULL)irjepommimurhien syy selvisi tavatessa-si vanhan yliopistoheilasi"
  20. 138 [153]"(NULL)ew (NULL)orkissa hotellissa: ^getor+*newfrethen oli   koko murhaketjun takana!"
  21. 139 [153]"(NULL)kandium - tuo kultaakin arvokkaampi so-tavarusteluun k[ytett[v["
  22. 140 [153]"alkuaine oli murhaajien t[ht[imess[!":[141]50000
  23. 141 [153]"load(NULL)apasit samassa hotellissa..."
  24. 142 [153]"...vali mutta katso itse asc(NULL)(NULL)(NULL)(NULL)right$(NULL) 5/87!"
  25. 143 [153]"mid$os sinulla ei sit[ ole, niin tilaa:"
  26. 144 [153]"ascloppiksen irtonumeron hintahan on 39:-"
  27. 145 [153]"ja tilausosoite l\ytyy vaikkapa toimi-"
  28. 146 [153]"tuksen sivun alalaidasta. mid$a nyt jatke- taan!":[141]50000
  29. 147 [153]"load (NULL)iime jaksossa right$lpo kidnapattiin postab(tab(pos   =not^>absnew+ toimesta (NULL)val(NULL)";
  30. 148 [153]" (NULL)(NULL)(NULL)(NULL)ista right$stan-":[153]"buliin.":[153]" right$lpo kuitenkin karkasi (NULL)\selin pa-"
  31. 149 [153]"latsista newabs^thenor+new+, (NULL)urkin salaisen poliisinmiehen, avustuksella."
  32. 150 [141]50000:[153]"load (NULL)y\hemmin right$lpo tapasi pomonsa valnsion"
  33. 151 [153]"(NULL)uomen suurl[hetyst\ss[. (NULL)ovittiin, ett[l[hdet kohti (NULL)ohjois-(NULL)orjaa,"
  34. 152 [153]"jossa (NULL)\sel on kehitellyt uutta super-  asetta, joka mahdollistaa";
  35. 153 [153]" h[nen maail-":[153]"manvalloitussuunnitelmansa.":[141]50000
  36. 154 [153]"load (NULL)[hdet viipym[tt[ ensimm[isell[ laival-la peekosporinsalmen y";
  37. 155 [153]"li. ...(NULL)ai et":[153]"sittenk[[n. (NULL)alitsemasi laiva sattui"
  38. 156 [153]"olemaan turkkilaisten salakujettajien   vene, joka joutuikin k[[nt[-"
  39. 157 [153]"m[[n kokkansa kohti (NULL)hodoksen saarta,   koska poliisit tunsivat alu";
  40. 158 [153]"ksen kesken":[153]"peekosporinsalmen ylitt[misen."
  41. 159 [153]"(NULL)en takia sait muitakin ongelmia kuin   (NULL)tto (NULL)\selin... (NULL)nnea seik";
  42. 160 [153]"kailuun.":[141]50000
  43. 200 :
  44. 208 [137]660
  45. 209 [153]"";:[142]
  46. 210 [141]302:[141]209:[153]"(NULL)aavutte (NULL)hodoksen satamaan.":[141]50000
  47. 211 [141]209:[153]"(NULL)alakuljettajat tulevat puheillesi ja"
  48. 212 [153]"kertovat yst[v[llisesti, ett[ pidemm[st[matkasta isompi taksa...!onon"
  49. 213 [141]50000
  50. 219 [141]209:[153]"valt oikein pid[ ajatuksesta ja sanot, "
  51. 220 [153]"ettet maksa enemp[[ kuin peekosporinsalmen ylitt[misest[.           onon"
  52. 221 [141]50000:[141]209:[153]"atnluksen kapteeni ottaa aseen taskus-"
  53. 222 [153]"taan ja lupaa, ettet poistu laivasta    elossa, ellet maksa...!  onon"
  54. 223 [141]50000
  55. 224 [141]209:[153]"(NULL)it[ teet?  1) (NULL)tat aseen taskustasi"
  56. 225 [153]"            2) (NULL)dotat                              3) left$uudat apuaonon"
  57. 226 [141]51000:[139]a$[179]"1"[176]a$[177]"3"[167]226
  58. 227 [151]52336,0:[139]a$[178]"2"[167]231
  59. 228 [139]a$[178]"3"[167]235
  60. 229 [139]a$[178]"1"[167]240
  61. 230 [137]226
  62. 231 co[178]co[170]1:[139]co[177]2[167][153]"load(NULL)oistot eiv[t odottaneet en[[!":[141]50000:[137]1000
  63. 232 [153]"load(NULL)dotat.":[139]co[178]1[167][153]"(NULL)it[[n ei tapahdu. (NULL)oistot l[hestyv[t."
  64. 233 [139]co[178]2[167][153]"(NULL)oliisiauto sireeneineen ulisee kadulla.(NULL)oistot k[[ntyv[t."
  65. 234 [141]50000:[137]224
  66. 235 [153]"loadleft$uudat apua, kunnes luoti ruumiissasi   hiljent[[ sinut.":[141]50000
  67. 236 [137]1000
  68. 240 [139]co[179][177]2[167][153]"load2 laukausta. (NULL)uolet siihen paikkaan.":[141]50000:[137]1000
  69. 241 [153]"load(NULL)oistojen katsoessa poliisiautoa otat   upouuden aseesi esiin."
  70. 242 [153]"(NULL)oistot huomaavat sen k[[ntyess[[n      takaisin.":[141]50000
  71. 250 [153]"load(NULL)it[ teet???":[153]"   1) atnmmut varoituslaukauksen ilmaan."
  72. 251 [153]"     2) atnmmut kapun.":[153]"   3) (NULL)soitat kapteenia aseellasi."
  73. 252 [141]51000:[139]a$[179]"1"[176]a$[177]"3"[167]252
  74. 253 [139]a$[178]"3"[167]260
  75. 254 [153]"load(NULL)rit[t ampua, mutta huomaatkin uuden    aseesi olevan tab(usrsgnintspc(!"
  76. 255 [153]"mid$(NULL)(NULL)atn >#%(%@sqr!! (NULL)val(NULL)(NULL)atn, kun on t[llainen  tilanne, jokin menee pieleen!!
  77. 256 print"[211]alakuljettajat ottavat sinut maalitau- luksi ja niinp[ oletkin"
  78. 257 print"v[h[n huonossa kunnossa k[sittelyn j[l- keen...":gosub50000:goto1000
  79. 260 print"[147][207]soitat aseella kapua. [203]uinka ollakaan  aseesi tuntuu hiukan [204][201][201][193][206]"
  80. 261 print"[203][197][214][217][197][204][212][219].":gosub50000
  81. 262 print"[147][182][184][185][172][162][163]!!!!! [205][201][211][211][219] [207][214][193][212] [193][211][197][197][211][201]           [182][184][185][172][162][163]!!!!!!!!"
  82. 263 gosub50000
  83. 264 print"[147][205]it[ teet???"
  84. 265 print"     1) [200]ypp[[t mereen ja pakenet."
  85. 266 print"     2) [200]ypp[[t maihin ja pakenet."
  86. 267 print"     3) [200]ypp[[t kapteenin syliin."
  87. 268 print"     4) [200]eit[t aseesi kapulle."
  88. 269 print"     5) [213]hkaat ampuvasi kapun, jollei           miehist\ antaudu."
  89. 270 print"     6) [211]y\ksyt mereen ja sukellat."
  90. 271 print"     7) [200]uudat: '[205]inulla on sukupuoli-          tauti!'"
  91. 272 gosub51000:ifa$<"6"ora$>"7"then275
  92. 273 ifa$="6"then280
  93. 274 ifa$="7"then278
  94. 275 print"[147][217]ll[tys, yll[tys!!! [211]aitkin nipun tar-  vitsemiasi luoteja!!!!!"
  95. 276 print"...[201]k[v[ vaan, ett[ ne eiv[t olleet     asettasi varten, vaan sinua.."
  96. 277 print"[206]o, [l[ masennu...":gosub50000:goto1000
  97. 278 print"[147][212][213][207] [200][213][213][212][207] [212][197][200][207][211][201]!!!":gosub50000:print"[147][202]okainen ampuu, puukottaa tai ly\"
  98. 279 print"sinua yht[aikaa! [202]uonet eiv[t toimi toivotusti...":gosub50000:goto1000
  99. 280 print"[147][200]yp[tess[si heit[t aseella kapteenia,   joka taas ampuukin";
  100. 281 print" oman miehen.":print"[211]ukellat aluksen k\lin alitse, jotteiv[t"
  101. 282 print"he p[[sisi heti sinun per[[si.":gosub50000
  102. 283 forfg=1to10
  103. 284 print"[147][206]ouset yl\s, hengit[t, ja sukellat taas.[202]atkat matkaasi eteenp[in."
  104. 285 gosub50000:next
  105. 290 print"[147][214]ihdoin p[[set turvallisen v[limatkan   p[[h[n aluksesta."
  106. 291 print"[206]ouset maihin.":gosub50000
  107. 292 print"[147][214]oit arvata, ett[ ihmiset ovat ihmeis-  s[[n noustessasi t[p\t[y";
  108. 293 print"delle":print"uimarannalle merest[ m[rk[ kokopuku     p[[ll[.":gosub50000
  109. 294 print"[147][197]t kuitenkaan v[lit[ siit[, sill[ er[s  roistoista n[kee sinut"
  110. 295 print"v[kijoukon keskelt[.":gosub50000
  111. 296 print"[147][205]it[ teet??":print" 1) [202][[t paikallesi"
  112. 297 print" 2) [202]uokset satamakortteleihin":gosub51000:ifa$<"1"ora$>"2"then296
  113. 298 ifa$="1"thenprint"[147][210]oisto ampui sinut.":gosub50000:goto1000
  114. 299 rem(NULL)
  115. 300 gosub302:goto310
  116. 302 poke53280,0:poke53281,0:poke52340,0
  117. 303 forl=0to7:poke53287+l,11:next
  118. 304 poke646,11:return
  119. 307 gosub51000:ifa$<>"p"anda$<>"i"anda$<>"e"anda$<>"l"then316
  120. 308 a$=chr$(asc(a$)+64):return
  121. 309 print"[210]oistot l\ysiv[t sinut. [208][193][205]!!":print"[208]aina jotain.":gosub51000:return
  122. 310 gosub50000:print"[147][202]uokset satamakortteleihin."
  123. 311 yl=32:al=32+8*20+2
  124. 312 vi$="[185][182][177][163] [178][180][185][172][185][161][174][177][170] [174][176][163][176][167][176][161][185][178][163][163][177][182][177][162][174][174][176]. [178][185][162][174][163][185] [176][181][176][176] [174][162][170][184][176] [163][176][161][176][176]."
  125. 313 vi$=vi$+" [175][176][162][170][176] [181][185][163][176][162][170]...":pi$="?pic ? bas*":gosub20000
  126. 314 sys879:gosub51000
  127. 315 goto320
  128. 316 goto307
  129. 317 gosub319:print"[207]let korttelissa. [205]ihin suuntaan menet?":print"[211]uunnat: ";
  130. 318 return
  131. 319 print"";:poke646,rnd(1)*14+2:return
  132. 320 gosub317:print"[208] [201] [197] [204].":gosub316
  133. 321 ifa$="[208]"ora$="[197]"ora$="[201]"thengosub309:goto1000
  134. 322 gosub317:print"[208] [201] [197] [204].":gosub316
  135. 323 ifa$="[208]"ora$="[197]"ora$="[201]"thengosub309:goto1000
  136. 324 gosub317:print"[208] [201] [197] [204].":gosub316
  137. 325 ifa$="[208]"ora$="[197]"ora$="[201]"thengosub309:goto1000
  138. 326 gosub317:print"[208] [201] [197] [204].":gosub316
  139. 327 ifa$="[208]"ora$="[197]"ora$="[201]"thengosub309:goto1000
  140. 328 gosub317:print"[208] [201].    ":gosub316
  141. 329 ifa$="[201]"thengosub309:goto1000
  142. 330 gosub317:print"[208] [197].    ":gosub316
  143. 331 ifa$="[197]"thengosub309:goto1000
  144. 332 gosub317:print"[208] [197].    ":gosub316
  145. 333 ifa$="[197]"thengosub309:goto1000
  146. 334 gosub317:print"[208] [201] [197].  ":gosub316
  147. 335 ifa$="[197]"thengosub309:goto1000
  148. 336 gosub317:print"[201] [204].    ":gosub316
  149. 337 ifa$="[204]"thengosub309:goto1000
  150. 338 gosub317:print"[208] [201] [197] [204].":gosub316
  151. 339 ifa$="[204]"thengosub309:goto1000
  152. 350 poke52336,0
  153. 351 print"[147][211]aavut suurelle aukiolle."
  154. 352 print"[208][[t[t ottaa auton ja ajaa turvallisem- paan paikkaan.":gosub50000
  155. 353 forct=1to8:print"[147][197]tsit autoa. [197]i oikein meinaa l\yty[."
  156. 354 gosub50000:next
  157. 355 print"[147][204]opultakin l\yd[t er[[n hiukan h[m[r[h- k\n tyypin, joka myy";
  158. 356 print" autoja.":print"[211]inulla on dollareita mukanasi.":gosub50000
  159. 360 print"[147][205]yyj[ pyyt[[ vanhasta [196]atsunista 500:-":print"[205]aksatko??":gosub51000
  160. 361 ifa$="e"thenprint"[205]yyj[ sanoo: '[206]o sitten k[velet.'":goto365
  161. 362 ifa$<>"k"then360
  162. 363 goto370
  163. 365 print"[211]iisp[ k[velet.":gosub50000
  164. 366 forct=1to20:print"[147][203][velet.":gosub50000:next
  165. 367 print"[147]...[203][velet, kunnes kuukahdat. [208]aha juttusinulle."
  166. 368 gosub50000:goto1000
  167. 370 print"[147][193]jat r[m[ll[ autollasi [204]indokseen toi-  selle puolelle saarta."
  168. 371 gosub50000
  169. 372 print"[210][m[ll[ [196]atsunillasi matka kest[[.":gosub50000
  170. 373 forct=1to8:print"[147]":force=1toct:print"":next:poke646,ct+1
  171. 374 print"...ja kest[[...":gosub50000:next
  172. 375 print"[147]...[203]unnes ollaan [204]indoksella.":yl=32+8*14:al=255
  173. 376 vi$="[185][182][177][163] [174][176][176][175][184][170][184][163] [182][162][170][172][185][161][174][177][170] [161][184][161][161][184][182][185][162][182][182][177]..."
  174. 377 vi$=vi$+" [175][176][162][170][176] [181][185][163][176][162][170]...":pi$="?pic ? rho*":gosub20000
  175. 378 sys879:gosub51000
  176. 379 goto690
  177. 600 rem(NULL)
  178. 660 print"[147] [207]tat aurinkoa. [205]atka on kest[nyt jo 3   [208][219][201][214][219][219] salakuljet";
  179. 661 print"tajien v[ltelless[":print"viranomaisia.":gosub50000
  180. 681 print"[147]...[203]unnes tullaan [210]hodoksen saaren l[-  helle. [211]en havaitset";
  181. 682 print" lokkiparvista":print"taivaalla.":gosub50000
  182. 683 print"[147][211]aavutte [210]hodoksen satamaan.":yl=32:al=120
  183. 684 vi$="[170][166][177][163] [174][176][163][176][167][176][174][174][176] [174][176][163][185][181][176] [163][184][178][162][174][163][177][181][176], [161][183][167][167][177][170][162][166] [163][184][178][161][161][162][182][176][162][174][162][176], [181][176] [175][176][178][162] "
  184. 685 vi$=vi$+"[161][178][177][162][161][161][176][182][176][162][174][163][176]...":pi$="?pic ? rho*":gosub43000:gosub20000
  185. 686 forl=0to7:poke53287+l,0:next:sys879:gosub45000
  186. 687 forl=1to14000:next:vi$="[208]aina jotain...":v=1:gosub20000:gosub51000:goto210
  187. 690 print"[159][210]oistot seuraavat sinua!!"
  188. 691 print"[212]oivoisit p[[sev[si pakoon??? [212]unnetko olevasi aivan"
  189. 692 print"pulassa????  [207]nko n[in??????":print"[206][ihin kysymyksiin vastasit";
  190. 693 print" varmasti    [163][162][177][163][183][174][163][162]!!!!":gosub50000
  191. 694 poke52336,0
  192. 695 print"[147][152][211]aatkin nyt k[rsien odottaa [198]loppis     4/88:aa! [201]lpo jatkuu ensi";
  193. 696 print" numerossa!!":print"[212]apaamisiin.":gosub50000:goto1004
  194. 999 rem(NULL)
  195. 1000 poke52336,0
  196. 1001 print"[147][163][166][167][166][170][160][174][177][162][161][161][176][162][182][184][170][160][182][166][175][162][161][166][183][167][162][170][177][170]"
  197. 1002 print"[177][172][177][182][182][183][163][163][166][166][160][178][162][174][161][162][177][170][160][185][163][163][176][167][162][174][163][176]."
  198. 1003 print"[174][162][170][166][160][185][163][162][163][160][181][176][160][167][177][170][177][163][162][163][160][175][177][182][162][170]..."
  199. 1004 print"[185][170][170][177][161][174][162][160][174][162][170][184][182][182][176][160][185][170][160][167][176][180][172][185][182][182][162]- "
  200. 1005 print"[174][184][184][174][160][175][177][182][176][163][176][160][175][177][182][162][160][184][184][172][177][182][182][177][177][170][160][160][160]"
  201. 1006 print"[180][176][182][184][163][161][185].. [190][176][174][163][176][176][160][161][183][182][182][166][160][163][176][162][160][177][162]"
  202. 1007 gosub51000:ifa$<>"e"anda$<>"k"then1007
  203. 1008 ifa$="k"thenrun6
  204. 1009 print"[147][162][182][175][185][170][160][163][177][161][162][190][166][163]:[160][160][160][160][160][160][160][160]"
  205. 1010 print"[163][185][170][162][160][182][184][185][172][177][160]([185][180][181][177][182][167][176] & [163][176][162][172][177])"
  206. 1011 print"[174][176][167][175][174][176][160][174][176][167][162][182][176][160][160][160]([174][175][182][162][163]-[175][178][165].)":gosub45000:gosub50000
  207. 1012 gosub51000:sys64738
  208. 2000 sys824:forl=1to255:poke53280,l:next
  209. 2001 sys1008:poke52336,0
  210. 2002 print"[147][212]ornissa r[j[ht[[ pommi, joka tappaa    kaikki siell[ olijat."
  211. 2003 print"[211]e oli menoa se...":gosub50000:goto1000
  212. 5000 goto50000
  213. 20000 rem * kuvanlataus *
  214. 20001 poke52336,0:vi=1:ifvi$=""thenvi=0:goto20004
  215. 20002 vi$=vi$+"@"
  216. 20003 forl=1tolen(vi$):poke679+l,asc(mid$(vi$,l,1)):next:sys896
  217. 20004 poke52337,yl:poke52338,al
  218. 20005 ifv=1thenv=0:goto20008
  219. 20006 forl=1tolen(pi$):poke50151+l,asc(mid$(pi$,l,1)):next
  220. 20007 poke50167,15:poke648,4:sys52224:sys58784:sys65412
  221. 20008 sys51176:gosub302:sys52352:poke52336,1:poke52339,vi:return
  222. 21000 rem rivien poisto
  223. 21001 ar=636:lr=641
  224. 21009 ar=ar-1
  225. 21010 ifar=lrthenend
  226. 21011 ar=ar+1:print"[147]"ar"ar="ar":lr="lr":goto21010";
  227. 21012 poke631,13:poke632,13:poke198,2:end
  228. 30000 c$=chr$(34):print"s0:ilpo iii":open15,8,15,"s0:ilpo iii":gosub30010
  229. 30001 print"r0:ilpo iii":print#15,"r0:ilpo iii=ilpo2/88":gosub30010
  230. 30002 print"save":save"ilpo2/88",8,1:gosub30010:print"v[197]":verify"ilpo2/88",8,1
  231. 30003 gosub30010
  232. 30004 print"[211]y\t[ [198][205]3!!":gosub50000:gosub30010:print"s0:ilpo2/88"
  233. 30005 print#15,"s0:ilpo2/88":gosub30010:print"save":save"ilpo2/88",8,1
  234. 30006 gosub30010:print"verify":verify"ilpo2/88",8,1
  235. 30007 gosub30010:close15:end
  236. 30010 input#15,a,b$,c,d:printa;b$;c;d:return
  237. 40000 rem * moly 1. *
  238. 40001 forl=54272to54296:pokel,0:next
  239. 40002 s=54272:pokes+14,5:pokes+18,16:pokes+3,1:pokes+24,143:pokes+6,240
  240. 40003 pokes+4,85:fr=1225
  241. 40004 fort=1to400:fq=fr+peek(s+27)+3.5:hf=int(fq/256):lf=fq-hf*256
  242. 40005 pokes,lf:pokes+1,hf:next
  243. 40006 poke54296,0:return
  244. 41000 rem * moly 2. *
  245. 41001 forl=54272to54296:pokel,0:next
  246. 41002 s=54272:pokes+14,5:pokes+18,16:pokes+3,1:pokes+24,143:pokes+6,240
  247. 41003 pokes+4,85
  248. 41005 pokes,10:pokes+1,200
  249. 41006 return
  250. 42000 rem * molyt pois *
  251. 42001 forl=54272to54296:pokel,0:next:poke54296,0:return
  252. 43000 rem * moly 3. *
  253. 43001 forl=54272to54296:pokel,0:next
  254. 43002 s=54272:pokes+14,5:pokes+18,16:pokes+3,1:pokes+24,143:pokes+6,240
  255. 43003 pokes+4,85
  256. 43005 pokes,81:pokes+1,03
  257. 43006 return
  258. 44000 rem * moly 4. *
  259. 44001 forl=54272to54296:pokel,0:next
  260. 44002 s=54272:pokes+1,100:pokes+5,219:pokes+15,28:pokes+24,15:pokes+4,85
  261. 44003 fort=1to5000:next:pokes+4,18
  262. 44004 remfort=1to1000:next
  263. 44006 return
  264. 45000 rem * moly 5. *
  265. 45001 forl=54272to54296:pokel,0:next
  266. 45002 s=54272:pokes+1,130:pokes+5,9:pokes+15,30:pokes+24,15
  267. 45003 fort=1to12:pokes+4,21
  268. 45004 fort=1to1000:next:pokes+4,20
  269. 45005 fort=1to1000:next
  270. 45006 return
  271. 50000 rem * get *
  272. 50001 v=peek(646):print"[159][223][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][223]"
  273. 50002 print"[221][156][192][192][192][192][192][158] [175][176][162][170][176] [181][185][163][176][162][170] [170][166][175][175][166][162][170][163][166].. [156][192][192][192][192][192][159][221]"
  274. 50003 print"[223][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][223]":poke646,v
  275. 50004 poke198,0:wait198,1:poke198,0:return
  276. 51000 rem * get+answer *
  277. 51001 a$="":poke198,0:wait198,1:geta$:return
  278.