C64S tape file Demo tape......' DEMO TAPE  LUKU8  LUKU9 LUKU10 4KLUKU11 ~!LUKU12 $.SOUND DEMO 59PIANO +;KRUUNU/KLAAVA G<REAKTIO ' COPYRIGHT (C) ANDREW COLIN 1981i TAMAN OHJELMAN TARKOITUKSENA ON TULOSTAA 7-KERTOTAULU,MUTTA OHJELMASSA ON JOUKKO VIRHEITA. "7-KERTOTAULU"PR1NTX1("7*";X;"=";7X50 XX1< X13 40FST0P "KONE TEKEE SINULLE":"MUUTAMIA KYSYMYKSIA."[:"KUN HALUAT UUDEN KYSY-";x("MYKSEN, PAINA JOTAIN "2"NAPPAINTA."3:" VASTAUKSESI JALKEEN"4:" PAINA AINA "5:"  RETURN NAPPAINTA"<::" ONNEA!"FJ112:Y$: PNZZ(N)*dJ1N:Z(N)0:3nSC0>xJ1NPZ(J)0 200WJu"VASTASIT 1.KERRALLA""OIKEIN";SC;"KYSYMYKSEEN.":"KYSYMYKSIA OLI";N;".":"OIKEIDEN VASTAUSTEN ""OSUUS";(100SCN0.5);"PROSENTTIA."D1(N(1))& Z(D)12003C2Z(D)=1200HT13[A$:A$""250e1000o1300y1600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D)1:120120""(J021:7680J,160:38400J,C: QJ044022:7723J,160:38443J,C:yJ2101:8164J,160:38884J,C:J440022:7702J,160:38422J,C:W2:(X$)100W1$P1:J2: K2.A$(X$,P,1):PP18A$"#" 1150BA$"%"JJW:K2:1070%GA$"\"A$(34)VL768022JK,(A$) 63:3840022JK,0:KK1`V1070f~l~J112:X$:NJ1DX$:Y$X$X$Y$:Y$ J"";P0:A$""G$:G$""1307R(G$)7R20P0A$(A$,P1):PP1:" ";:1307y!(R64R91)(R47R58)(R32P0)PP1:A$A$G$:G$;:1307#R13P01307%((A$,1))32A$(A$,P1):PP1:1315'2 (Y$,1)"%"1380<P2F(Y$,P,1)"-"PP1:1350:P(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500DZR0:LdP1dn(Y$,P,1)"#"1370lxQP(Y$,Q,1)"%"QQ1:1410(Y$,P,QP)A$1500PQ1:1390:R1:@TS6(1R)(6(1))1^J1S:Z$:h"";Z$#rT2 1750D|"OIKEA VASTAUS ON":"";[ (Y$,1)"%"1710cP1|(Y$,P,1)"%"1750(Y$,P,1);:PP1:1690(Y$,2,(Y$)):1750"PAINA NAPPAINTA":JOIKEIN,AIVAN,NIIN,HYVA,JUURI NIIN,OLET OIKEASSAMTEI,VAARIN,EI AIVAN,MIETIHAN VIELA,NO EI AIVAN,EIT(#72#"KUINKA PAASET ULOS%SILMUKASTA PILAA-%MATTA OHJELMAASI?%%PAINAMALLA%A)RUN/STOP%"7#"B)RESTORE%C)KATKAISEMALLA% VIRRAN%%#",A%#<#"VAHINGOITTAAKO%RESTORE-NAPPAIN%OHJELMAASI?",%%#,EI%E%#bF#"MINKA FUNKTION%KOODI ON%KAANTEINEN E?%%A)CTRL JA WHT%B)CTRL JA GRN%K#"C)SHIFT JA X%#",A%CTRL AND WHT%#P#"VOIDAANKO KOMENTO%TI$=\090000 LIITTAA%OHJELMAAN?",%#U#K%KYLLA%VOIDAAN%#%Z#"MIKA SEURAAVISTA%MUUTTAA KELLON%ASETUKSEN?%%A)RUN/STOP% -NAPPAIN%"{_#"B)RESTORE%C)UUDEN OHJELMAN% LATAUS%D)VIRRAN KATKAISU%E)EI MIKAAN NAISTA%#",D%#d#"KUN KIRJOITAT%RUN/STOP JA RES-%TORE, NAYTTO TYHJE-%NEE.%KUINKA SAAT%OHJELMAN""i#" TAKAISIN%NAYTTOON?%%A)LIST-KOMENNOLLA%B)KIRJOITTAMALLA%C)MUUTEN%#",A%LIST%#sn#"MITA TAPAHTUU TI$:N%ARVOLLE KESKIYOLLA?%%A)SE PYSAHTYY% ARVOON \235959\%"s#"B)UUSI ARVO ON% \240000\%C)UUSI ARVO ON % \000000\%#",C%# "KONE TEKEE SINULLE":"MUUTAMIA KYSYMYKSIA."[:"KUN HALUAT UUDEN KYSY-";x("MYKSEN, PAINA JOTAIN "2"NAPPAINTA."3:" VASTAUKSESI JALKEEN"4:" PAINA AINA "5:"  RETURN -NAPPAINTA"<::" ONNEA!"FJ112:Y$: PNZZ(N)+dJ1N:Z(N)0:4nSC0?xJ1NQZ(J)0 200XJv"VASTASIT 1.KERRALLA""OIKEIN";SC;"KYSYMYKSEEN.":"KYSYMYKSIA OLI";N;".":"OIKEIDEN VASTAUSTEN ""OSUUS";(100SCN0.5);"PROSENTTIA."D1(N(1))' Z(D)12004C2Z(D)>1200IT13\A$:A$""250f1000p1300z1600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D)1:120120"")J021:7680J,160:38400J,C: RJ044022:7723J,160:38443J,C:zJ2101:8164J,160:38884J,C:J440022:7702J,160:38422J,C:W2:(X$)100W1$P1:J2: K2.A$(X$,P,1):PP18A$"#" 1150BA$"%"JJW:K2:1070&GA$"\"A$(34)WL768022JK,(A$) 63:3840022JK,0:KK1aV1070g~mJ112:X$:NJ1DX$:Y$X$X$Y$:Y$ J"";P0:A$""G$:G$""1307 R(G$)8R20P0A$(A$,P1):PP1:" ";:1307z!(R64R91)(R47R58)(R32P0)PP1:A$A$G$:G$;:1307#R13P01307%((A$,1))32A$(A$,P1):PP1:1315'2 (Y$,1)"%"1380<P2F(Y$,P,1)"-"PP1:1350;P(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500EZR0:MdP1en(Y$,P,1)"#"1370mxQP(Y$,Q,1)"%"QQ1:1410(Y$,P,QP)A$1500PQ1:1390:R1:@TS6(1R)(6(1))1^J1S:Z$:h"";Z$$rT2 1750E|"OIKEA VASTAUS ON":"";\ (Y$,1)"%"1710dP1}(Y$,P,1)"%"1750(Y$,P,1);:PP1:1690(Y$,2,(Y$)):1750"PAINA NAPPAINTA":JOIKEIN,AIVAN,NIIN,HYVA,JUURI NIIN,OLET OIKEASSANTEI,VAARIN,EI AIVAN,MIETIHAN VIELA,NO EI AIVAN,EIU(#92#"INPUT-KASKYLLA%VOIDAAN LUKEA%%A)NUMEROITA%B)MERKKEJA%C)NUMEROITA JA% MERKKEJA7#" MUTTEI% SAMANAIKAISESTI%D)NUMEROITA JA% MERKKEJA SAMAN-% AIKAISESTI%#",D%#F<#"INPUT \XXX\;J%%KUINKA MONTA MERK-%KIA VOI JONOSSA%XXX OLLA?",%%#PA#22%#F#"INPUT\RQ\;RS%LUKEE%A)RQ:N%B)RS:N%C)RQ:N JA RS:N%ARVON%D)EI KUMPAAKAAN",%%#,B%#P#"INPUT X,Y%ODOTTAA%%A)1 ARVOA%B)2 ARVOA%C)ENEMMAN KUIN% 2 ARVOA",%#,2%KAHTA%B%#NZ#"'INPUT\IKA\;DD'%%KAYTTAJA VASTAA%\AKU ANKKA\.%MITA TAPAHTUU?%%A)VIC HYVAKSY"_#"Y% VASTAUKSEN%B)VIC TULOSTAA,% 'REDO FROM START'%C)OHJELMA KESKEYTYY%%#",B%#d#"INPUT\NIMI\;DD$%%KAYTTAJA VASTAA% \MIKKI HIIRI\.%MITA TAPAHTUU?%%A)VIC HYVAKS"Gi#"YY% VASTAUKSEN%B)VIC TULOSTAA% 'REDO FROM START'%C)OHJELMA KESKEYTYY%%#"Pm#A%#n#"ONKO 'INPUT 777'%%A)LAITON%B)LAILLINEN%C)LAILLINEN MUTTA% TARPEETON "s#"BASIC-% KOMENTO?%#",A%#x#" 10 INPUT T% 20 T=93%%ONKO OHJELMA%JARKEVA?",%%#,E%EI%$Q#"KUN RUN/STOP-%NAPPAIN EI VAIKUTA,%OHJELMA PYSAHTYY%%A)RESTORE%B)RUN/STOP- JA%"#" RESTORE%C)RESTORE- JA CRTL-% NAPPAIMILLA%#",B%# MYSTEERINEN OHJELMA+"MIKA ON "<"NIMESI";X$B(T2"NO HEI ";X$Z<tF"OLE HYVA JA VASTAA"P"SEURAAVIIN KYSYMYKSIIN"ZSC0dn"MIKA ON RANSKAN"x"PAAKAUPUNKI";A$ A$"PARIISI" 160"VAARIN.SE ON PARIISI"190*: "AIVAN OIKEIN!"; "HYVA,";X$GSCSC1M_"KUKA LOYSI"r"AMERIKAN";A$A$"COLUMBUS"270:"VALITAN ";X$"VASTAUS ON VAARA.""LOYTAJA OLI COLUMBUS"300:"OIKEIN.";X$;" ON""HISTORIAN ASIANTUNTIJA!"!"SCSC1',61 SC2390F6 SC1 350e@"ET SAANUT AINUTTAKAAN"~J"VASTAUSTA OIKEIN."T370^"VASTASIT OIKEIN VAIN"h"YHTEEN KYSYMYKSEEN."r"YRITA UUDELLEEN"|90"ERINOMAISTA,";X$;".""VASTASIT OIKEIN","MOLEMPIIN KYSYMYKSIIN"2 "KONE TEKE SINULLE":"MUUTAMIA KYSYMYKSIA."[:"KUN HALUAT UUDEN KYSY-";x("MYKSEN, PAINA JOTAIN "2"NAPPAINTA."3:" VASTAUKSESI JALKEEN"4:" PAINA AINA"5:"  RETURN -NAPPAINTA"<::" ONNEA!"FJ112:Y$: PNZZ(N)*dJ1N:Z(N)0:3nSC0>xJ1NPZ(J)0 200WJu"VASTASIT 1.KERRALLA""OIKEIN";SC;"KYSYMYKSEEN.":"KYSYMYKSIA OLI";N;".":"OIKEIDEN VASTAUSTEN ""OSUUS";(100SCN0.5);"PROSENTTIA."D1(N(1))& Z(D)12003C2Z(D)=1200HT13[A$:A$""250e1000o1300y1600R1T1Z(D)0 SCSC1" R1 T1 Z(D)1:400, R1 3206T@Z(D)Z(D)1:120120""(J021:7680J,160:38400J,C: QJ044022:7723J,160:38443J,C:yJ2101:8164J,160:38884J,C:J440022:7702J,160:38422J,C:W1:(X$)100W1$P1:J2: K2.A$(X$,P,1):PP18A$"#" 1150BA$"%"JJW:K2:1070%GA$"\"A$(34)VL768022JK,(A$) 63:3840022JK,0:KK1`V1070f~l~J112:X$:NJ1DX$:Y$X$X$Y$:Y$ J"";P0:A$""G$:G$""1307R(G$)7R20P0A$(A$,P1):PP1:" ";:1307y!(R64R91)(R47R58)(R32P0)PP1:A$A$G$:G$;:1307#R13P01307%((A$,1))32A$(A$,P1):PP1:1315'2 (Y$,1)"%"1380<P2F(Y$,P,1)"-"PP1:1350:P(A$)((Y$,2,P1))(A$)((Y$,P1,(Y$))) 1500DZR0:LdP1dn(Y$,P,1)"#"1370lxQP(Y$,Q,1)"%"QQ1:1410(Y$,P,QP)A$1500PQ1:1390:R1:@TS6(1R)(6(1))1^J1S:Z$:h"";Z$#rT2 1750D|"OIKEA VASTAUS ON":"";[ (Y$,1)"%"1710cP1|(Y$,P,1)"%"1750(Y$,P,1);:PP1:1690(Y$,2,(Y$)):1750"PAINA NAPPAINTA":JAIVAN,OIKEIN,NIIN,HYVA,JUURI NIIN,OLET OIKEASSAMTEI,VAARIN,EI AIVAN,MIETIHAN VIELA,NO EI AIVAN,EIT(#92#"VOIKO FOR-KASKYN%KONTROLLIMUUTTUJAL-%LA OLLA NIMI%% G$?",%#,EI%E%#<#"VOIKO KONTROLLI-%MUUTTUJAN LOPPUARVO%FOR-KASKYSSA OLLA%MYOS MUUTTUJA?"A#"%%(KUTEN ESIM. \\)%#",VOI%KYLLA%K%#eF#"MILLOIN VOIT JATTAA%POIS STEP -KOMENNON%FOR-KASKYSTA%%A)EI KOSKAAN%B)KUN"K#" ASKEL ON 1%C)KUN ASKEL EI% OLE NEGATIIVINEN%%#",B%#P#"ONKO OHJELMA%% 10 FOR Q=20 TO 37% 20 PRINT Q*Q/5% 30 NEXT W%%A)OIKEAA VAI%"&U#"B)VIRHEELLISTA% BASICIA%#",B%VIRHEELLISTA%#zZ#"MONTAKO KOMENTOA%VOIT SIJOITTAA%SILMUKAN RUNKOON?%%A)0 TAI USEAMPIA%B)YHDEN "_#" TAI% USEAMPIA%C)TASMALLEEN YHDEN%%#",A%#d#"%VOIKO ALKUARVONA%FOR-KASKYSSA%OLLA MUUTTUJA?%" i#"%%(KUTEN ESIM.\PW\)%#",VOI%K%KYLLA%#Zn#"VOIDAANKO ASKELEEN%(STEP) SUURUUS FOR-%KASKYSSA ILMOITTAA%MUUTTUJALLA?"s#"%%(KUTEN ESIM.\ZW\)%#",K%KYLLA%VOIDAAN%#x#"%10FOR Q=3 TO 15% STEP 4%20 PRINT Q%30 NEXT Q%%MONTAKO KERTAA%SILMUKKA%"}#"SUORITETAAN?%%#",4%NELJA%#F#"% 10 FOR R=4 TO 3% 20 PRINT R% 30 NEXT R%%MONTAKO KERTAA%SILMUKKA%"#"SUORITETAAN?%%A)EI AINUTTAKAAN%B)KERRAN%C)KAKSI KERTAA%#",B%1%KERRAN%#36879,25"";% A368741B36875=C36876I(D36877U2E36878`<SC(8)tFJ18:SC(J):~d"";n"AANIDEMONSTRAATIO-"x" OHJELMA":"KUULET EFEKTIN""PAINAMALLA KIRJAIMEN""VALILTA A-M.":"A:ASTEIKKO (URUT)."B:ASTEIKKO (PIANO)G"C:ASTEIKKO (HUILU)Z"D:LAUKAUKSETk"E:RAJAHDYS"F:LINNUNLAULU"G:VIHELLYS"H:JUOKSUASKELEET"I:UFOHYOKKAYS"J:UFON LASKEUTUMINEN"K:UFON LAHTO"L:PUHALLUSLAMPPU"M:HYTTYNEN"%"A$:A$""2904,G(A$)64F6G1G13290W@GG785622GiJGG,(GG)128}OJ04:AJ,0:TG 1000,2000,3000,4000,5000,6000,9000,9500,10000,10500,11000,11500,12000^GG,(GG)128h290175,183,191,195,201,207,212,215# ORGAN SCALE)?XSC(1):Y2:1200^J27:XSC(J):Y1:1200:tXSC(8):Y2:1200J72 1$XSC(J):Y1:1200:.XSC(1):Y4:12008PLAY A NOTE IN X,(ORGAN)E,15:C,XM1150Y:E,0 SHAPED SCALE-XSC(1):Y2:2200LJ27:XSC(J):Y1:2200:bXSC(8):Y2:2200qJ72 1 XSC(J):Y1:2200:XSC(1):Y4:2200  PLAY SHAPED NOTEZ15B,X:C,XM010 YE,ZZ0ZZ1L0 5:E,06 SHAPED SCALE(LUTE)L XSC(1):Y2:3200k J27:XSC(J):Y1:3200: XSC(8):Y2:3200 J72 1 XSC(J):Y1:3200: XSC(1):Y4:3200  PLAY SHAPED NOTE (LUTE) A,0:B,0:D,0 Z8 C,X M05 Y E,Z- Z0ZZ1; L012:A J E,0P ` EXPLOSIONwJ110(28(1))D,130E,15M15:E,0M0(300(1)): EXPLOSIOND,212L4 10.5E,(LL1)M1150:M,L#D,0:E,0:8p BIRDS CHIRPINGJzE,15:L120gM254240((1)10)1xC,M:M:C,0M0((1)100)60 :M,L:(# WOLF WHISTLE2#E,15<#L2002351F#C,LP#LU#E,0:L0180::E,15Z#L2002351.2 d#C,Ln#L(x# L225150 .51#C,L8#LA#C,0J#E,0P#`% TICK-TOCKr&%E,15:L110}0%B,200:%M110:MD%B,0N%M1300:X%A,200b%M110:Ml%A,0v%M1300:%L%E,0%' UFO SHOOTING 'E,15$$'L015:M200220L2-.'C,M68'M,LDB'E,0:C,0JL'\) UFO LANDING)E,15:L131:M220L160L4:C,M:)M160L220L4")C,M:M,L:E,0:C,0:* VANISHING UFO+E,15:L130240:C,L:E,15((L131)7):M140:M,L: +C,0:E,0:!, WINDS9,E,15:A,170:D,240I-L12000:^ -A,0:D,0:E,0:d.n.X217z.L015.C,X2(1).E,L.M120(1):/L/L1100/C,X2(1)&/M120(1):0/:/L150.25D/C,XN/E,LX/M12 :b/L"v/Z& 216,0,0,214,0,0,206,131,145,157G0,172,181,189,0,200,0,0,0,0d0,0,211,0,0,0,0,162,0,0(0,196,0,0,0,0,0,203,209,1382167,0,177,193,0,151,0,185,0,0<218,0,220 F15,11, 7,6,5,5,4,4,4,3,3,3,2,2,2,2,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0d N(53),D(39)3nJ153:N(J):GxJ139:D(J):RJ14a36873J,0gpT40 T40 36878,D(T):TT1A$:A$ "" 230170A(A$)41A1 A5319036875,N(A):36876,N(A):T1:170  K0L0$"K ON KRUUNU"7("L ON KLAAVA"K2"E ON LOPETUS"e<"SEURAAVA HEITTO";I$wF I$"E" 160P I$"K" 120Z I$"L" 140d"VAARA TIETO"n 60xKK1 60LL1 60"HEITTOJA";KL"KRUUNUJA";K"KLAAVOJA";L' COPYRIGHT (C) ANDREW COLIN 1981B REAKTIOAIKA -OHJELMAK""h"MITTAA REAKTIOAIKASI."("PAINA MITA TAHANSA"2"NAPPAINTA.ODOTA."<"AANIMERKIN KUULTUASI"F"PAINA MITA TAHANSA"P"NAPPAINTA NIIN"Z"NOPEASTI KUIN EHDIT."d"ONNEA!"&n ODOTA NAPPAILYA/x A$? A$""120S ODOTA 1-6 SEKYg"ODOTA!"mQTI(60301(0)) A$A$"" 340 TIQ 160 AANI JA ALOITUSAIKA36876,22536878,15XTI ODOTA NAPPAILYA A$A$""2405 REKISTEROI TULOS>RTIK36876,0X"36878,0m, TULOS NAYTTOON6"REAKTIOAIKASI ON"@(RX)60;"SEKUNTIA"JT"LIIAN NOPEASTI!"^