1 REMARK: LUODESOFT CREATIONS PRESENTS: 2 REMARK: ** ILPON SEIKKAILUT 3/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]";:GOSUB602
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] 4.":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)AKKOSJAKSOSSA 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 PO-  LIISIN MIEHEN, 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)AKENET NYT PITKIN (null)HODOSTA ROISTOT PE- R[SS[SI."
160 [153]"(null)EN TAKIA SAIT MUITAKIN ONGELMIA KUIN   (null)TTO (null)\SELIN... (null)NNEA SEIK";
161 [153]"KAILUUN.":[141]50000
200 :
370 [153]"LOAD(null)LET AJANUT VUOKRAAMALLASI AUTOLLA (null)INDOKSEEN."
371 [153]"(null)[[SIT JUURI JA JUURI PERILLE.":[141]50000
372 [153]"ATNJAT STR$ATSUNILLA (null)INDOKSEN KUKKULALLE.":[141]50000
373 [129]CT[178]1[164]8:[153]"LOAD":[129]CE[178]1[164]CT:[153]"":[130]:[151]646,CT[170]1
374 [153]"...HITAASTI...":[141]50000:[130]
375 [153]"LOAD...(null)UNNES OLLAAN KUKKULALLA.":YL[178]32[170]8[172]14:AL[178]255
376 VI$[178]"POSABS>TAB( ^ORORANDFRE+FRETAB( ABSNEW+*POSGET^>+ GETFREGETGETFREABSPOSNEWABSABS>..."
377 VI$[178]VI$[170]" ANDORNEW+OR INTPOSTAB(ORNEW+...":PI$[178]"?PIC ? RHO*":[141]20000
378 [158]879:[141]51000
380 [153]"(null)ARKKEERAAT AUTOSI. (null)OUSET ULOS JA      KATSELET YMP[RILLESI."
381 [141]50000
382 [153]"(null)ENET PIENEN VANHUKSEN YLL[PIT[M[N      KIOSKIN LUOKSE.       "
383 [141]50000
384 [153]"(null)TAT PARI DOLLARIA TASKUSTA. (null)AMALLA    TIPAHTAA SINUN (null)(null)(null)(null)-TUNNUS."
385 [141]50000
386 [153]"(null)TAT SEN [KKI[ TASKUUN, ETTEI KUKAAN    TURISTEISTA N[KISI SIT[.   "
387 [153]"(null)UTTA MY\H[IST[! KIOSKINPIT[J[UKKO"
388 [153]"N[KI SEN! (null)AMASSA H[N OTTAA TISKIN ALTA"
389 [153]"ASEEN ESIIN JA OSOITTAA SINUA SILL[."
390 [153]"(null)IT[ TEET?  1) (null)OSTAT K[DET YL\S"
391 [153]"      2) LEFT$UUDAT APUA":[153]"       3) (null)TAT ASEESTA KIINNI."
392 [141]51000
400 [151]52336,0:[139]A$[178]"1"[167]410
401 [139]A$[178]"2"[167]5
403 [153]"LOAD(null)YNTYY KAMPPAILU. ATNSE LAUKEAA.":[141]50000
404 [153]"LOAD(null)ANHUS P[[ST[[ OTTEENSA, HOIPERTELEE, JAKAATUU MAAHAN.":[141]50000
405 [153]"LOAD(null)OI VOI! VALI SAISI VANHOJA IHMISI[ TUOLLALAILLA S[IK[YTELL[!!!"
406 [141]50000:[153]"LOAD(null)UNNET OLOSI HUONOKSI. (null)INUA ALKAA HUI- MAAMAAN."
407 [141]50000:[153]"LOAD(null)ATSOT VATSAASI. (null)AKISSASI ON VIIDEN    MILLIN REIK[."
408 [153]"(null)EI[N YMP[RYS ON AIVAN PUNAINEN - VERES-T[!!!!":[153]"(null)UOLET SIIHEN."
409 [141]50000:[137]1000
410 [153]"LOAD(null)OSTAT K[DET YL\S. (null)ANHUS NAURAHTAA JA  SANOO '(null)LL[TINP[S!!!'"
411 [141]50000:[153]"LOAD(null)LET AIVAN ULALLA. (null)UKA TUO MIES ON?":[141]50000
412 [153]"LOAD'RIGHT$LPO! VALTK\ NYT MINUA TUNNISTA?!' -SANOOVANHUS.":[141]50000
413 [153]"LOAD(null)ANHUS ALKAA REPIM[[N PARTAANSA POIS.":[153]"(null)EN J[LKEEN H[N OTTAA"
414 [153]"ESIIN KOSTEAN PYYHKEEN, JOLLA H[N PYYH- KII KASVONSA.":[141]50000
415 [153]"LOAD(null)ATSOT IHMEISS[SI. (null)AIKKI ARVET, RYPYT, N[PPYL[T JA MUUT OVAT"
416 [153]"POISSA! (null)ILALLA ONKIN FNFRE++OR=!":[141]50000
417 [153]"LOAD(null)(null)RIGHT$ VALRIGHT$!!! (null)IIAN JULMAA OLLAKSEEN TOTTA!":[141]50000
418 [153]"'(null)LETKO SIN[KIN SALAISESSA TEHT[V[SS[    T[[LL[?' -KYSYY CHR$UNNAR."
419 [153]"'(null)LEN. (null)ARVITSEN UUDEN ASEEN, PANOKSIA,  RUOKAA JA JOITAKIN MUITA..."
420 [153]"'(null)EH[N J[RJESTYY. (null)ULE TAKAHUONEESEEN.'  -SANOO CHR$UNNAR.":[141]50000
421 [153]"LOAD(null)ANHA AGENTTIYST[V[SI CHR$UNNAR LEFT$OLGERSSON-MID$[RVEL[ N[YTT[[ SINULLE"
422 [153]"VARASTONSA. (null)TAT SIELT[ KAIKENLAISTA    PIENT[ MUKAASI.":[141]50000
423 [153]"LOAD(null)ULETTE TAAS KIOSKIN PUOLELLE. (null)UULET   MAASTOAUTON [[NEN."
424 [141]50000:[153]"LOAD^ORABSORGETFREABSINT>TAB(TAB(ORINTORTAB( !!! LEFT$E OVAT TULOSSA!!!":[141]50000
430 [153]"LOAD(null)IT[S NYT TEET???":[153]"1) MID$UOKSET KARKUUN":[153]"2) ATNNTAUDUT"
431 [153]"3) (null)TAT PISTOOLISI ESIIN":[153]"4) (null)YYD[T CHR$UNNARILTA APUA."
432 [141]51000:[139]A$[178]"1"[176]A$[178]"2"[167]436
433 [139]A$[178]"3"[167][153]"LOADVALT EHDI AMPUA. LEFT$E AMPUIVAT SINUT!":[141]50000:[137]1000
434 [139]A$[178]"4"[167]440
435 [137]432
436 [153]"LOAD(null)UULUU =ORTAB(TAB(ORTAB(TAB(ORTAB(TAB(ORTAB(TAB(=ORTAB(TAB(OROR JA OLEN MONTAKILOA PAINAVAMPI KUIN ENNEN.
437 PRINT"[202]OPA NIIN PAINAVA, ETT[ TIPAHDAT MAAHAN.":GOSUB50000:GOTO1000
440 PRINT"[147][199]UNNAR HAKEE VARASTOSTA PANSSARINYRKIN  JA [213]ZI-KONEPISTOOLIN."
441 GOSUB50000:PRINT"[147][203]UMMAN OTAT?? 1 - [213]ZIN, 2 - [208]-NYRKIN.":GOSUB51000
442 PRINT"[211]ALAKULJETTAJAT ILMESTYV[T JEEPIN       KANSSA.":GOSUB50000
443 PRINT"[147][205]IETIT HETKEN JA P[[T[T OTTAA PANSSARI- NYRKIN. [212][HT[[T JEEPPI[."
444 GOSUB50000:FORGH=1TO50:POKE53280,INT(RND(1)*16)+1:NEXT:POKE53280,0
445 PRINT"[147][212][YSOSUMA!! [202]EEPPI SY\KSYY L[PI REUNA-  AIDAN JA TIPAHTAA MEREEN."
446 PRINT"[211]AMANTIEN TULEE POLIISEJA PAIKALLE"
447 PRINT"RAJUSTI ASEISTAUTUNEINA. [200]E OSOITTAVAT  PIIPUILLANSA SINUA."
448 GOSUB50000:PRINT"[147][205]IT[S NYT ETEEN?"
449 PRINT"1) [200]YPP[[T KALLIOLTA ALAS":PRINT"2) [202]UOKSET [199]UNNARIN VARASTOON"
450 PRINT"3) [206]OSTAT K[DET YL\S":PRINT"4) [202]UOKSET KARKUUN."
451 GOSUB51000:IFA$="1"THEN460
452 IFA$="2"THEN457
453 IFA$="3"THEN456
454 IFA$<>"4"THENGOSUB51000
455 PRINT"[147][208]OLIISIT AMPUIVAT SINUT.":GOSUB50000:GOTO1000
456 PRINT"[147][208]OLIISIT AMPUIVAT SINUT 'VARMUUDEN VUOKSI'":GOSUB50000:GOTO1000
457 PRINT"[147][208]OLIISIT HEITT[V[T SINNE K[SIKRANAATIN, JA - NO, ARVAAT KAI..."
458 GOSUB50000:GOTO1000
460 PRINT"[147][200]YPP[[T TYHJYYTEEN...":YL=30:AL=88
461 VI$="[163][162][175][176][180][172][176][163] [161][185][178][161][177][176][182][163][176] [161][176][182][182][162][185][182][163][176] [161][185][180][163][162] [174][162][170]"
462 VI$=VI$+"[162][174][163][166] [167][177][178][163][176]......":PI$="?PIC ? VEN*":GOSUB20000
463 SYS879:GOSUB44000
464 PRINT"[212]IPAHDAT KALLIOLTA MERTA KOHTI.":GOSUB40000
465 PRINT"[206][ET VIERESS[SI VAIN HARMAATA KALLIOTA.":GOSUB41000
466 FORJI=1TO3000:NEXT
467 PRINT"[207]NKO T[M[ [201]LPON LOPPU?":GOSUB43000:FORJI=1TO3000:NEXT
468 PRINT"[214]AI ONKO TOIVOA YH[??":GOSUB40000
469 PRINT"[214]ASTAUS: ON TOIVOA.":GOSUB45000
470 PRINT"[201]LPO TEKEE SEN! [200][N AVAA LASKUVARJON!!!"
471 GOSUB45000
473 PRINT"[147][212]IPAHDAT HUVIPURRELLE.":YL=32+8*12:AL=255
474 VI$="[163][162][175][176][180][172][176][163] [180][184][190][162][175][184][178][178][177][182][182][177], [181][185][161][176] [185][170] [161][184][161][161][184][182][176]"
475 VI$=VI$+"[170] [176][182][182][176]...[175][176][162][170][176]..":PI$="?PIC ? VEN*":GOSUB20000
476 SYS862:POKE52340,6:POKE52341,3:GOSUB45000:GOSUB51000
477 PRINT"[144][212][YSOSUMA KESKELLE PEHME[T[ KATOSTA!":PRINT"[193]IVAN KUTEN [202]AMES [194]OND!"
478 GOSUB50000:PRINT"[200]YPP[[T KATOKSELTA ALAS. [206][ET UPEAN ":PRINT"TUMMATUK";
479 PRINT"KAISEN KREIKATTAREN.":GOSUB50000
480 SYS862:PRINT"[205]IT[ TEET?":PRINT"1) [212]EET NIIN KUIN [202]AMES [194]OND."
481 PRINT"2) [212]EET NIIN KUIN [201]LPO."
482 PRINT"3) [212]EET NIIN KUIN [203]ARPO."
483 GOSUB51000:IFA$<"1"ORA$>"3"THEN483
484 IFA$="1"THEN488
485 IFA$="2"THEN490
486 SYS862:PRINT"[193]LAT HAASTATELLA NEITI[.":GOSUB50000:SYS862
487 PRINT"[200][N SUUTTUU JA HEITT[[ SINUA KONJAKKI-PULLOLLA.":GOSUB50000:GOTO1000
488 SYS862:PRINT"[207]TAT PUHELIMEN K[TEESI JA SOITAT MR     [205]:LLE.":GOSUB50000
489 SYS862:PRINT"[212]AIDAT OLLA V[[R[SS[ OHJELMASSA...":GOSUB50000:GOTO1000
490 SYS862:PRINT"[207]TAT LASKUVARJON IRTI, HEIT[T SEN MEREENJA L[HESTYT [200][219][206][212][219]."
491 GOSUB50000:SYS862:PRINT"[200][219][206] AVAA TAKKISI JA HEITT[[ SEN SIVUUN."
492 GOSUB50000:SYS862:PRINT"[207]TAT TAKKISI POIS P[[LT[. [203]ATSOTTE"
493 PRINT"[[NETT[ TOISIANNE SILMIIN.":GOSUB45000:PRINT"[200][N AVAA HOUSUSI..."
494 GOSUB45000:PRINT"[211]IN[ OTAT PAIDAN POIS P[[LT[SI.":GOSUB45000
495 PRINT"[203]ATSELET H[NEN PULLOTTAVIA JA MEHEVI["
496 PRINT"APPELSIINEJAAN JA ALAT KUORIA NIIDEN      P[[LT[ YLIM[[R[ISET";
497 PRINT" HARSOT POIS...":GOSUB45000:GOSUB45000:GOSUB45000
498 SYS862:PRINT"...JA LOPUN PID[MME MIELIKUVITUKSEN     K[TK\ISS[."
499 GOSUB50000
500 SYS862:POKE52340,0:POKE53241,6:PRINT"...[214]IET[TTE MUKAVAN Y\N..."
501 VI$="   ...[176][176][180][180][180][180]...   [185][185][185][185][180][180][180]...   [180][180][180][180]... [185][180][180][180][180][180]...."
510 FORL=1TOLEN(VI$):POKE679+L,ASC(MID$(VI$,L,1)):NEXT:SYS896
511 REMSYS51176:GOSUB602:SYS52352:POKE52336,1:POKE52339,1
512 POKE52339,1
513 PRINT"...":PRINT"..."
514 PRINT"."
515 PRINT".."
516 FORJI=1TO10000:NEXT
517 FORJI=1TO5:GOSUB45000:NEXT
518 POKE52336,0:PRINT"[147][152]...[203]OSKA SEURAAVA P[IV[ JA Y\ KULUU"
519 PRINT"YH[ INTIIMEISS[ ASIOISSA, J[T[MME SEN   AJAN V[LIIN...":GOSUB50000
520 PRINT"[147][207]LET [193]TEENAN LENTOKENT[LL[ "
521 PRINT"PASSINTARKASTUSJONOSSA."
522 GOSUB50000
523 PRINT"[147][206][ET ARABIMIEHEN J[TT[V[N LAUKKUNSA     YKSIN INFORMAATIOPISTEEN";
524 PRINT" ETEEN.":GOSUB50000
525 PRINT"[147][201]NFORMAATIOPISTEEN EDESS[ ON AINAKIN 2  KILOMETRI[ PALLO HUKASSA"
526 PRINT"OLEVIA TURISTEJA.":GOSUB50000
527 PRINT"[147][205]IT[ TEET?":PRINT"1) [197]T MIT[[N.":PRINT"2) [205]ENET INFORMAATIOON."
528 PRINT"3) [211]ANOT TULLIMIEHELLE EP[ILLYTT[V[ST[     LAUKUSTA."
529 PRINT"4) [205]ENET ITSE TUTKIMAAN LAUKKUA.":PRINT"5) [207]DOTAT."
530 GOSUB51000:GOTO690:IFA$<"1"ORA$>"5"THEN530
531 IFA$="1"THENPRINT"[147][207]LET YH[ PASSINTARKASTUSJONOSSA.":GOTO537
532 IFA$="2"THEN536
533 IFA$="3"THEN540
534 IFA$="4"THEN550
535 IFA$="5"THENPRINT"[147][207]DOTAT.":GOSUB50000:GOTO560
536 PRINT"[147][202][[T JONON H[NNILLE, KOSKA VIHAISET MUM-MOT EIV[T P[[ST[ SINUA OHI."
537 GOSUB50000:PRINT"[147][207]DOTAT JONOSSA 3 MINUUTTIA, JONKA J[L-  KEEN..."
538 FORJI=1TO4000:NEXT:FORJI=1TO50:POKE53280,RND(1)*16:NEXT
539 POKE53280,0:GOSUB50000:GOTO1000
540 PRINT"[147][193]VAAT LAUKUN VAROVAISESTI.":PRINT"[206][ET MUO-VIPOMMIN KIINNITETTYN["
541 PRINT"SYTYTTIMEEN.":GOSUB50000:PRINT"[208]IENI DIGITAALIKELLO SYKKII SEKUNTEJA"
542 PRINT"TAKAISINP[IN."
543 GOSUB50000:PRINT"[211]INULLA ON 2 MINUUTTIA AIKAA P[[TT[[,"
544 PRINT"MIK[ NELJ[ST[ JOHDOSTA ON SE, JOKA JOH- TAA AJASTIMESTA POMMIIN."
545 TI$="000000":PRINT"[214]ALITSE: 1) PUNAINEN JOHTO"
546 PRINT"2) SININEN JOHTO":PRINT" 3) KELTAINEN JOHTO"
547 PRINT"VAI 4) MUSTA JOHTO":PRINT"[193]IKA: ";TI$
600 REM(null)
602 POKE53280,0:POKE53281,0:POKE52340,0
603 FORL=0TO7:POKE53287+L,0:NEXT
604 POKE646,11:RETURN
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"[147][159][207]NKO LAUKUSSA POMMI?!!!"
691 PRINT"[212]OIVOISIT HOITAVASI HOMMAN??? [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     1/89: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:GOSUB602:SYS52352:POKE52336,1:POKE52339,VI:RETURN
21000 REM RIVIEN POISTO
21001 INPUT"ALKU-, LOPPURIVI ?";AR,LR
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