1 REMARK: LUODESOFT CREATIONS PRESENTS: 2 REMARK: ** ILPON SEIKKAILUT 1/1988 **(null)
2 A=A+1:IFA=1THENLOAD"ILPOCONTROL",8,1
4 IFA=2THENLOAD"ILPODISPLAY",8,1
6 CLR:GOSUB42000
100 SYS51176:POKE53265,27:POKE53270,8:PRINT"[147]";:GOSUB302
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]"
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]"
112 PRINT"[185][174][176] 3.":GOSUB50000
120 PRINT"[147][212]ERVETULOA [201]LPON SEIKKAILUIHIN!"
121 PRINT"[200]ALUATKO, ETT[ KERRON, MIT[ ON TAPAHTU- NUT T[T[ ENNEN??? (K/E):?"
122 GOSUB51000:IFA$="E"THEN200
130 PRINT"[147][193]LKUJAKSOSSA [201]LPO SAI TEHT[V[KSEEN OT-  TAA SELV[[, KUINKA JA MIKSI"
131 PRINT"3 GEOLOGIA SAI SURMANSA."
132 PRINT"[217]KSI GEOLOGEISTA OLI SUOMALAINEN, YKSI  TAAS NORJALAINEN JA YKSI OLI"
133 PRINT"AMERIKKALAINEN.":GOSUB50000
134 PRINT"[147][211]UOMALAINEN TY\SKENTELI [207]UTOKUMMUN PAL- VELUKSESSA."
135 PRINT"[193]MERIKKALAINEN OLI [163][166][180][163][162][177][170] [174][185][163][176]-HANKKEENASIANTUNTIJA JA NORJALAINEN
136 [153]"OLI TAAS ER[[N NORJALAISEN KAIVOSYHTI\N PALVELUKSESSA."
137 [153]"(null)IRJEPOMMIMURHIEN SYY SELVISI TAVATESSA-SI VANHAN YLIOPISTOHEILASI"
138 [153]"(null)EW (null)ORKISSA HOTELLISSA: ^GETOR+*NEWFRETHEN OLI   KOKO MURHAKETJUN TAKANA!"
139 [153]"(null)KANDIUM - TUO KULTAAKIN ARVOKKAAMPI SO-TAVARUSTELUUN K[YTETT[V["
140 [153]"ALKUAINE OLI MURHAAJIEN T[HT[IMESS[!":[141]50000
141 [153]"LOAD(null)APASIT SAMASSA HOTELLISSA..."
142 [153]"...VALI MUTTA KATSO ITSE ASC(null)(null)(null)(null)RIGHT$(null) 5/87!"
143 [153]"MID$OS SINULLA EI SIT[ OLE, NIIN TILAA:"
144 [153]"ASCLOPPIKSEN IRTONUMERON HINTAHAN ON 39:-"
145 [153]"JA TILAUSOSOITE L\YTYY VAIKKAPA TOIMI-"
146 [153]"TUKSEN SIVUN ALALAIDASTA. MID$A NYT JATKE- TAAN!":[141]50000
147 [153]"LOAD (null)IIME JAKSOSSA RIGHT$LPO KIDNAPATTIIN POSTAB(TAB(POS   =NOT^>ABSNEW+ TOIMESTA (null)VAL(null)";
148 [153]" (null)(null)(null)(null)ISTA RIGHT$STAN-":[153]"BULIIN.":[153]" RIGHT$LPO KUITENKIN KARKASI (null)\SELIN PA-"
149 [153]"LATSISTA NEWABS^THENOR+NEW+, (null)URKIN SALAISEN POLIISINMIEHEN, AVUSTUKSELLA."
150 [141]50000:[153]"LOAD (null)Y\HEMMIN RIGHT$LPO TAPASI POMONSA VALNSION"
151 [153]"(null)UOMEN SUURL[HETYST\SS[. (null)OVITTIIN, ETT[L[HDET KOHTI (null)OHJOIS-(null)ORJAA,"
152 [153]"JOSSA (null)\SEL ON KEHITELLYT UUTTA SUPER-  ASETTA, JOKA MAHDOLLISTAA";
153 [153]" H[NEN MAAIL-":[153]"MANVALLOITUSSUUNNITELMANSA.":[141]50000
154 [153]"LOAD (null)[HDET VIIPYM[TT[ ENSIMM[ISELL[ LAIVAL-LA PEEKOSPORINSALMEN Y";
155 [153]"LI. ...(null)AI ET":[153]"SITTENK[[N. (null)ALITSEMASI LAIVA SATTUI"
156 [153]"OLEMAAN TURKKILAISTEN SALAKUJETTAJIEN   VENE, JOKA JOUTUIKIN K[[NT[-"
157 [153]"M[[N KOKKANSA KOHTI (null)HODOKSEN SAARTA,   KOSKA POLIISIT TUNSIVAT ALU";
158 [153]"KSEN KESKEN":[153]"PEEKOSPORINSALMEN YLITT[MISEN."
159 [153]"(null)EN TAKIA SAIT MUITAKIN ONGELMIA KUIN   (null)TTO (null)\SELIN... (null)NNEA SEIK";
160 [153]"KAILUUN.":[141]50000
200 :
208 [137]660
209 [153]"";:[142]
210 [141]302:[141]209:[153]"(null)AAVUTTE (null)HODOKSEN SATAMAAN.":[141]50000
211 [141]209:[153]"(null)ALAKULJETTAJAT TULEVAT PUHEILLESI JA"
212 [153]"KERTOVAT YST[V[LLISESTI, ETT[ PIDEMM[ST[MATKASTA ISOMPI TAKSA...!ONON"
213 [141]50000
219 [141]209:[153]"VALT OIKEIN PID[ AJATUKSESTA JA SANOT, "
220 [153]"ETTET MAKSA ENEMP[[ KUIN PEEKOSPORINSALMEN YLITT[MISEST[.           ONON"
221 [141]50000:[141]209:[153]"ATNLUKSEN KAPTEENI OTTAA ASEEN TASKUS-"
222 [153]"TAAN JA LUPAA, ETTET POISTU LAIVASTA    ELOSSA, ELLET MAKSA...!  ONON"
223 [141]50000
224 [141]209:[153]"(null)IT[ TEET?  1) (null)TAT ASEEN TASKUSTASI"
225 [153]"            2) (null)DOTAT                              3) LEFT$UUDAT APUAONON"
226 [141]51000:[139]A$[179]"1"[176]A$[177]"3"[167]226
227 [151]52336,0:[139]A$[178]"2"[167]231
228 [139]A$[178]"3"[167]235
229 [139]A$[178]"1"[167]240
230 [137]226
231 CO[178]CO[170]1:[139]CO[177]2[167][153]"LOAD(null)OISTOT EIV[T ODOTTANEET EN[[!":[141]50000:[137]1000
232 [153]"LOAD(null)DOTAT.":[139]CO[178]1[167][153]"(null)IT[[N EI TAPAHDU. (null)OISTOT L[HESTYV[T."
233 [139]CO[178]2[167][153]"(null)OLIISIAUTO SIREENEINEEN ULISEE KADULLA.(null)OISTOT K[[NTYV[T."
234 [141]50000:[137]224
235 [153]"LOADLEFT$UUDAT APUA, KUNNES LUOTI RUUMIISSASI   HILJENT[[ SINUT.":[141]50000
236 [137]1000
240 [139]CO[179][177]2[167][153]"LOAD2 LAUKAUSTA. (null)UOLET SIIHEN PAIKKAAN.":[141]50000:[137]1000
241 [153]"LOAD(null)OISTOJEN KATSOESSA POLIISIAUTOA OTAT   UPOUUDEN ASEESI ESIIN."
242 [153]"(null)OISTOT HUOMAAVAT SEN K[[NTYESS[[N      TAKAISIN.":[141]50000
250 [153]"LOAD(null)IT[ TEET???":[153]"   1) ATNMMUT VAROITUSLAUKAUKSEN ILMAAN."
251 [153]"     2) ATNMMUT KAPUN.":[153]"   3) (null)SOITAT KAPTEENIA ASEELLASI."
252 [141]51000:[139]A$[179]"1"[176]A$[177]"3"[167]252
253 [139]A$[178]"3"[167]260
254 [153]"LOAD(null)RIT[T AMPUA, MUTTA HUOMAATKIN UUDEN    ASEESI OLEVAN TAB(USRSGNINTSPC(!"
255 [153]"MID$(null)(null)ATN >#%(%@SQR!! (null)VAL(null)(null)ATN, KUN ON T[LLAINEN  TILANNE, JOKIN MENEE PIELEEN!!
256 PRINT"[211]ALAKULJETTAJAT OTTAVAT SINUT MAALITAU- LUKSI JA NIINP[ OLETKIN"
257 PRINT"V[H[N HUONOSSA KUNNOSSA K[SITTELYN J[L- KEEN...":GOSUB50000:GOTO1000
260 PRINT"[147][207]SOITAT ASEELLA KAPUA. [203]UINKA OLLAKAAN  ASEESI TUNTUU HIUKAN [204][201][201][193][206]"
261 PRINT"[203][197][214][217][197][204][212][219].":GOSUB50000
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]!!!!!!!!"
263 GOSUB50000
264 PRINT"[147][205]IT[ TEET???"
265 PRINT"     1) [200]YPP[[T MEREEN JA PAKENET."
266 PRINT"     2) [200]YPP[[T MAIHIN JA PAKENET."
267 PRINT"     3) [200]YPP[[T KAPTEENIN SYLIIN."
268 PRINT"     4) [200]EIT[T ASEESI KAPULLE."
269 PRINT"     5) [213]HKAAT AMPUVASI KAPUN, JOLLEI           MIEHIST\ ANTAUDU."
270 PRINT"     6) [211]Y\KSYT MEREEN JA SUKELLAT."
271 PRINT"     7) [200]UUDAT: '[205]INULLA ON SUKUPUOLI-          TAUTI!'"
272 GOSUB51000:IFA$<"6"ORA$>"7"THEN275
273 IFA$="6"THEN280
274 IFA$="7"THEN278
275 PRINT"[147][217]LL[TYS, YLL[TYS!!! [211]AITKIN NIPUN TAR-  VITSEMIASI LUOTEJA!!!!!"
276 PRINT"...[201]K[V[ VAAN, ETT[ NE EIV[T OLLEET     ASETTASI VARTEN, VAAN SINUA.."
277 PRINT"[206]O, [L[ MASENNU...":GOSUB50000:GOTO1000
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\"
279 PRINT"SINUA YHT[AIKAA! [202]UONET EIV[T TOIMI TOIVOTUSTI...":GOSUB50000:GOTO1000
280 PRINT"[147][200]YP[TESS[SI HEIT[T ASEELLA KAPTEENIA,   JOKA TAAS AMPUUKIN";
281 PRINT" OMAN MIEHEN.":PRINT"[211]UKELLAT ALUKSEN K\LIN ALITSE, JOTTEIV[T"
282 PRINT"HE P[[SISI HETI SINUN PER[[SI.":GOSUB50000
283 FORFG=1TO10
284 PRINT"[147][206]OUSET YL\S, HENGIT[T, JA SUKELLAT TAAS.[202]ATKAT MATKAASI ETEENP[IN."
285 GOSUB50000:NEXT
290 PRINT"[147][214]IHDOIN P[[SET TURVALLISEN V[LIMATKAN   P[[H[N ALUKSESTA."
291 PRINT"[206]OUSET MAIHIN.":GOSUB50000
292 PRINT"[147][214]OIT ARVATA, ETT[ IHMISET OVAT IHMEIS-  S[[N NOUSTESSASI T[P\T[Y";
293 PRINT"DELLE":PRINT"UIMARANNALLE MEREST[ M[RK[ KOKOPUKU     P[[LL[.":GOSUB50000
294 PRINT"[147][197]T KUITENKAAN V[LIT[ SIIT[, SILL[ ER[S  ROISTOISTA N[KEE SINUT"
295 PRINT"V[KIJOUKON KESKELT[.":GOSUB50000
296 PRINT"[147][205]IT[ TEET??":PRINT" 1) [202][[T PAIKALLESI"
297 PRINT" 2) [202]UOKSET SATAMAKORTTELEIHIN":GOSUB51000:IFA$<"1"ORA$>"2"THEN296
298 IFA$="1"THENPRINT"[147][210]OISTO AMPUI SINUT.":GOSUB50000:GOTO1000
299 REM(null)
300 GOSUB302:GOTO310
302 POKE53280,0:POKE53281,0:POKE52340,0
303 FORL=0TO7:POKE53287+L,11:NEXT
304 POKE646,11:RETURN
307 GOSUB51000:IFA$<>"P"ANDA$<>"I"ANDA$<>"E"ANDA$<>"L"THEN316
308 A$=CHR$(ASC(A$)+64):RETURN
309 PRINT"[210]OISTOT L\YSIV[T SINUT. [208][193][205]!!":PRINT"[208]AINA JOTAIN.":GOSUB51000:RETURN
310 GOSUB50000:PRINT"[147][202]UOKSET SATAMAKORTTELEIHIN."
311 YL=32:AL=32+8*20+2
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]."
313 VI$=VI$+" [175][176][162][170][176] [181][185][163][176][162][170]...":PI$="?PIC ? BAS*":GOSUB20000
314 SYS879:GOSUB51000
315 GOTO320
316 GOTO307
317 GOSUB319:PRINT"[207]LET KORTTELISSA. [205]IHIN SUUNTAAN MENET?":PRINT"[211]UUNNAT: ";
318 RETURN
319 PRINT"";:POKE646,RND(1)*14+2:RETURN
320 GOSUB317:PRINT"[208] [201] [197] [204].":GOSUB316
321 IFA$="[208]"ORA$="[197]"ORA$="[201]"THENGOSUB309:GOTO1000
322 GOSUB317:PRINT"[208] [201] [197] [204].":GOSUB316
323 IFA$="[208]"ORA$="[197]"ORA$="[201]"THENGOSUB309:GOTO1000
324 GOSUB317:PRINT"[208] [201] [197] [204].":GOSUB316
325 IFA$="[208]"ORA$="[197]"ORA$="[201]"THENGOSUB309:GOTO1000
326 GOSUB317:PRINT"[208] [201] [197] [204].":GOSUB316
327 IFA$="[208]"ORA$="[197]"ORA$="[201]"THENGOSUB309:GOTO1000
328 GOSUB317:PRINT"[208] [201].    ":GOSUB316
329 IFA$="[201]"THENGOSUB309:GOTO1000
330 GOSUB317:PRINT"[208] [197].    ":GOSUB316
331 IFA$="[197]"THENGOSUB309:GOTO1000
332 GOSUB317:PRINT"[208] [197].    ":GOSUB316
333 IFA$="[197]"THENGOSUB309:GOTO1000
334 GOSUB317:PRINT"[208] [201] [197].  ":GOSUB316
335 IFA$="[197]"THENGOSUB309:GOTO1000
336 GOSUB317:PRINT"[201] [204].    ":GOSUB316
337 IFA$="[204]"THENGOSUB309:GOTO1000
338 GOSUB317:PRINT"[208] [201] [197] [204].":GOSUB316
339 IFA$="[204]"THENGOSUB309:GOTO1000
350 POKE52336,0
351 PRINT"[147][211]AAVUT SUURELLE AUKIOLLE."
352 PRINT"[208][[T[T OTTAA AUTON JA AJAA TURVALLISEM- PAAN PAIKKAAN.":GOSUB50000
353 FORCT=1TO8:PRINT"[147][197]TSIT AUTOA. [197]I OIKEIN MEINAA L\YTY[."
354 GOSUB50000:NEXT
355 PRINT"[147][204]OPULTAKIN L\YD[T ER[[N HIUKAN H[M[R[H- K\N TYYPIN, JOKA MYY";
356 PRINT" AUTOJA.":PRINT"[211]INULLA ON DOLLAREITA MUKANASI.":GOSUB50000
360 PRINT"[147][205]YYJ[ PYYT[[ VANHASTA [196]ATSUNISTA 500:-":PRINT"[205]AKSATKO??":GOSUB51000
361 IFA$="E"THENPRINT"[205]YYJ[ SANOO: '[206]O SITTEN K[VELET.'":GOTO365
362 IFA$<>"K"THEN360
363 GOTO370
365 PRINT"[211]IISP[ K[VELET.":GOSUB50000
366 FORCT=1TO20:PRINT"[147][203][VELET.":GOSUB50000:NEXT
367 PRINT"[147]...[203][VELET, KUNNES KUUKAHDAT. [208]AHA JUTTUSINULLE."
368 GOSUB50000:GOTO1000
370 PRINT"[147][193]JAT R[M[LL[ AUTOLLASI [204]INDOKSEEN TOI-  SELLE PUOLELLE SAARTA."
371 GOSUB50000
372 PRINT"[210][M[LL[ [196]ATSUNILLASI MATKA KEST[[.":GOSUB50000
373 FORCT=1TO8:PRINT"[147]":FORCE=1TOCT:PRINT"":NEXT:POKE646,CT+1
374 PRINT"...JA KEST[[...":GOSUB50000:NEXT
375 PRINT"[147]...[203]UNNES OLLAAN [204]INDOKSELLA.":YL=32+8*14:AL=255
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]..."
377 VI$=VI$+" [175][176][162][170][176] [181][185][163][176][162][170]...":PI$="?PIC ? RHO*":GOSUB20000
378 SYS879:GOSUB51000
379 GOTO690
600 REM(null)
660 PRINT"[147] [207]TAT AURINKOA. [205]ATKA ON KEST[NYT JO 3   [208][219][201][214][219][219] SALAKULJET";
661 PRINT"TAJIEN V[LTELLESS[":PRINT"VIRANOMAISIA.":GOSUB50000
681 PRINT"[147]...[203]UNNES TULLAAN [210]HODOKSEN SAAREN L[-  HELLE. [211]EN HAVAITSET";
682 PRINT" LOKKIPARVISTA":PRINT"TAIVAALLA.":GOSUB50000
683 PRINT"[147][211]AAVUTTE [210]HODOKSEN SATAMAAN.":YL=32:AL=120
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] "
685 VI$=VI$+"[161][178][177][162][161][161][176][182][176][162][174][163][176]...":PI$="?PIC ? RHO*":GOSUB43000:GOSUB20000
686 FORL=0TO7:POKE53287+L,0:NEXT:SYS879:GOSUB45000
687 FORL=1TO14000:NEXT:VI$="[208]AINA JOTAIN...":V=1:GOSUB20000:GOSUB51000:GOTO210
690 PRINT"[159][210]OISTOT SEURAAVAT SINUA!!"
691 PRINT"[212]OIVOISIT P[[SEV[SI PAKOON??? [212]UNNETKO OLEVASI AIVAN"
692 PRINT"PULASSA????  [207]NKO N[IN??????":PRINT"[206][IHIN KYSYMYKSIIN VASTASIT";
693 PRINT" VARMASTI    [163][162][177][163][183][174][163][162]!!!!":GOSUB50000
694 POKE52336,0
695 PRINT"[147][152][211]AATKIN NYT K[RSIEN ODOTTAA [198]LOPPIS     4/88:AA! [201]LPO JATKUU ENSI";
696 PRINT" NUMEROSSA!!":PRINT"[212]APAAMISIIN.":GOSUB50000:GOTO1004
999 REM(null)
1000 POKE52336,0
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]"
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]."
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]..."
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]- "
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]"
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]"
1007 GOSUB51000:IFA$<>"E"ANDA$<>"K"THEN1007
1008 IFA$="K"THENRUN6
1009 PRINT"[147][162][182][175][185][170][160][163][177][161][162][190][166][163]:[160][160][160][160][160][160][160][160]"
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])"
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
1012 GOSUB51000:SYS64738
2000 SYS824:FORL=1TO255:POKE53280,L:NEXT
2001 SYS1008:POKE52336,0
2002 PRINT"[147][212]ORNISSA R[J[HT[[ POMMI, JOKA TAPPAA    KAIKKI SIELL[ OLIJAT."
2003 PRINT"[211]E OLI MENOA SE...":GOSUB50000:GOTO1000
5000 GOTO50000
20000 REM * KUVANLATAUS *
20001 POKE52336,0:VI=1:IFVI$=""THENVI=0:GOTO20004
20002 VI$=VI$+"@"
20003 FORL=1TOLEN(VI$):POKE679+L,ASC(MID$(VI$,L,1)):NEXT:SYS896
20004 POKE52337,YL:POKE52338,AL
20005 IFV=1THENV=0:GOTO20008
20006 FORL=1TOLEN(PI$):POKE50151+L,ASC(MID$(PI$,L,1)):NEXT
20007 POKE50167,15:POKE648,4:SYS52224:SYS58784:SYS65412
20008 SYS51176:GOSUB302:SYS52352:POKE52336,1:POKE52339,VI:RETURN
21000 REM RIVIEN POISTO
21001 AR=636:LR=641
21009 AR=AR-1
21010 IFAR=LRTHENEND
21011 AR=AR+1:PRINT"[147]"AR"AR="AR":LR="LR":GOTO21010";
21012 POKE631,13:POKE632,13:POKE198,2:END
30000 C$=CHR$(34):PRINT"S0:ILPO III":OPEN15,8,15,"S0:ILPO III":GOSUB30010
30001 PRINT"R0:ILPO III":PRINT#15,"R0:ILPO III=ILPO2/88":GOSUB30010
30002 PRINT"SAVE":SAVE"ILPO2/88",8,1:GOSUB30010:PRINT"V[197]":VERIFY"ILPO2/88",8,1
30003 GOSUB30010
30004 PRINT"[211]Y\T[ [198][205]3!!":GOSUB50000:GOSUB30010:PRINT"S0:ILPO2/88"
30005 PRINT#15,"S0:ILPO2/88":GOSUB30010:PRINT"SAVE":SAVE"ILPO2/88",8,1
30006 GOSUB30010:PRINT"VERIFY":VERIFY"ILPO2/88",8,1
30007 GOSUB30010:CLOSE15:END
30010 INPUT#15,A,B$,C,D:PRINTA;B$;C;D:RETURN
40000 REM * MOLY 1. *
40001 FORL=54272TO54296:POKEL,0:NEXT
40002 S=54272:POKES+14,5:POKES+18,16:POKES+3,1:POKES+24,143:POKES+6,240
40003 POKES+4,85:FR=1225
40004 FORT=1TO400:FQ=FR+PEEK(S+27)+3.5:HF=INT(FQ/256):LF=FQ-HF*256
40005 POKES,LF:POKES+1,HF:NEXT
40006 POKE54296,0:RETURN
41000 REM * MOLY 2. *
41001 FORL=54272TO54296:POKEL,0:NEXT
41002 S=54272:POKES+14,5:POKES+18,16:POKES+3,1:POKES+24,143:POKES+6,240
41003 POKES+4,85
41005 POKES,10:POKES+1,200
41006 RETURN
42000 REM * MOLYT POIS *
42001 FORL=54272TO54296:POKEL,0:NEXT:POKE54296,0:RETURN
43000 REM * MOLY 3. *
43001 FORL=54272TO54296:POKEL,0:NEXT
43002 S=54272:POKES+14,5:POKES+18,16:POKES+3,1:POKES+24,143:POKES+6,240
43003 POKES+4,85
43005 POKES,81:POKES+1,03
43006 RETURN
44000 REM * MOLY 4. *
44001 FORL=54272TO54296:POKEL,0:NEXT
44002 S=54272:POKES+1,100:POKES+5,219:POKES+15,28:POKES+24,15:POKES+4,85
44003 FORT=1TO5000:NEXT:POKES+4,18
44004 REMFORT=1TO1000:NEXT
44006 RETURN
45000 REM * MOLY 5. *
45001 FORL=54272TO54296:POKEL,0:NEXT
45002 S=54272:POKES+1,130:POKES+5,9:POKES+15,30:POKES+24,15
45003 FORT=1TO12:POKES+4,21
45004 FORT=1TO1000:NEXT:POKES+4,20
45005 FORT=1TO1000:NEXT
45006 RETURN
50000 REM * GET *
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]"
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]"
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
50004 POKE198,0:WAIT198,1:POKE198,0:RETURN
51000 REM * GET+ANSWER *
51001 A$="":POKE198,0:WAIT198,1:GETA$:RETURN