Al64AKADEMIN 09 BB 0,31,160,112#23,233,64,5,245,0,1,84,0,0,80,0,0,0,0,0G PRINT PRG.-NAME, COPYRIGHT...z"ALARMCLOCK 64.""PROGRAMMED BY:""PER-IVAR SVENSSON.""COPYRIGHT (C) M 5,120,21,229,120,29,247,120,29,86,120,30,92,120,30,80Y>120,30,0,120,30,0,120,30,0,120,30,0,120,30,0,120H30,0,120,30,0,120,28,0,112,16,0,64,0,0,0,0R C\0,0,0,0,10,0,0,62,128,0,95,160,1,87,232,5f133,248,7,1,112,22,0,64,30,0,0,30,0,0, V5,50DX3941:VX,7:XNY0191#XA2b12288Y,A9lYcvV32,0:V33,0:V21,255:W1500:WsX500.5V1,X:V3,X:V5,XXX250601V1,X:V3,X10:V5,XTT.65:UU.65V0,U:V4,TX A$"WATCH OUT FOR MCS.":430P A$"PRESS RETURN!":430c A$:A$""420 J1(A$):(A$,J,1);:K150::::   SPRITE-ROUTINES ""6)"JUST A FEW SECONDS, PLEASE.." Y0191:12288Y,0:Y:,15:L5,0:L6,249:L4,35:S112:NSS10F L15,S:L1,N:N,S:L4,0e "L5427254296:L,0::210n ,"" 653280,0:53281,0 @"ALARMCLOCK 64." J"BY MCS." TA$"THIS PROGRAMME IS, AS MANY OTH/ P""` Z"" d"IF YOU WANT TO ADJUST THE ALARM-TIMES," n"PRESS '_'." x230 (147):13)"ALARMCLOCK 64" "TIME";TI$ "" (   ******************************TILL VIC-64/20? *****N ***** *****s ***** SKRIV TILL: ***** ***** ***** ***** MAGNUS ENARSSON ***** ***** STR[DET 28 ****** VILL DU BYTA SPEL *****) ***** TILL VIC-64/20? *****N ***** *****s ***** SKRIV TILL: ***** ***** ***** ***** MAGNUS ENARSSON ***** ***** STR[DET 28 ***** -SILLYDATA SPEAKd SYNTHJ MUSIC DRIVER INMUSIC DRIVER P1 MUSIC DRIVER P2 MUSIC DRIVER P3MUSIC DRIVER P4 MUSIC MACHINEFOUR EASY PIECESFOUR PIECES.CODE2 SOUND HELPER.C 64-PIANOkCS 1986."Z0ZZ1X115:Y039#CY,X-Y:X<Z21010H$V21,0N.S0,0,0,0,10,0,0,62,128,0,95,160,1,87,232,55,248,22,129,112,31,160,64,23,234,0,5,254,128,1,95160,0,87,232,0,5,248,2,1,120,14,128,1230,0#p0,30,0,0,30,0,0,30,128,8,31,128,56,23,160,112Oz7,233,64,5,245,0,1,84,0,0,80,0,0,0,0,0W S0,0,0,0,10,0,0,62,128,0,95,160,1,87,232,55,248,22,129,112,31,160,64,23,234,0,5,254,128,1,95160,0,87,232,0,5,248,2,1,120,14,128,12" PRESENTS "*ZZ16X015bV37,X:V38,X:V39,X:V40,X:V41,XiXwZ4730 V37,11:V38,12:Y3941:VY,15:Y950  M*0,0,0,2,0,8,14,128,56,31,128,120,23,161,120,23#422(147)C55736:V53248:Z0:T107:U207)V21,0=V23,7:V29,7s2040,192:2041,193:2042,194:2043,195:2044,1962045,197:2046,198:2047,199V28,255V37,13:V38,14&V4,107:V1,500V2,157:V3,50:V0,207:ER":4305 ^A$"PROGRAMMES, PROGRAMMED IN A SPECIAL":430m hA$"DIALECT: (REAGAN'S GOOFY BASIC).":430 rA$"THIS PROGRAMME MAY BE COPIED ALL OVER":430 |A$"THE COUNTRY WITHOUT OUR PERMISSION.":430 A$"AT LAST.":430$ "ALARM-1";A$+ "ALARM-2";B$E "ALARM-3";C$m (147)""12)A$22)B$32)C$:} A$TI$260 B$TI$260 C$TI$260 ""TI$ (197)5730 200 L5427254296:L,0:' L54272:54296 460: PRINT LOGO.300: GOTO INTRO.J130: ADJUST THE CLOCK`(53280,0:53281,02""13)"ALARMCLOCK 64.":10)""<"TIME"13)"AL-1."23)"AL-2."33)"AL-3."F"" ***** 29152 KRISTIANSTAD *****, ***** *****Q ***** RINKABY 860302 *****v ***** ***** ***** (SKICKA LISTA) ***** ****************************** ******************************VOICE 3 MUSIC ENTERTAINERSKRIV TILL64AKADEMIN KRUTHORNSV. 1319153 SOLLENTUNA  MUSICMASTER MUSIC LESSON+AINT RUSHSILLYDATA SPEAK " 90011)""&11)" "911)" Ѷ"L11)" "_11)" Ѷ"r 11)" "11)""""! 70&22)""+22)" "022)" Ѷ"522)" ":2 11)" Ѷ" E11)" "+ J11)""; T""D Y 70W ^22)""j c22)" "} h22)" " m22)" " r22)" Ѷ" w22)" " |22)""  900 11)"" 11)"  " 22)" "# 22)" "6 22)" "I 22)" "\ 22)" "o 22)""y 900 11)"" 11)" " 11)" " 11)" " 11)" Ѷ" 11)" " 11)" ! L54272 54296: L,0: L: 53280,6 : 53281,7F""" DATORT[RNING """# VB5427254296:VB,0: VB$54296,15:54277,25:54278,250(ITI2A((I)61) <AN$" "570 DAN$"S"1# NAN$" "570; X"": FORBILDSKARMc l" " v" " " " " " " :E: W,0:A,0 W1300:W3 53280,6:53281,7< ""w 3)"       " 3)"        " !3)"     "( "3)" T TRANGA DEJ"0" SA LANGT NER I JORDEN DU KAN "X" MEN SE UPP FOR MINORNA."~" (PD) TOMMY GRANDEFORS"" STYR MED 'Q' OCH 'P'"" F7 = START"T$:T$""790 T$""790*5,6,5,4,3,2,3,4,5,6,7,8,9,10,11,12,13,13,12_ 212,11,10,9,8,7,6,5,4,5,6,7,7,6,5,4,3,3,3,2,1,100{ dT) " " nT)" " xA$" " 10 F$ XX(F$"Q")(F$"P") (1224X)81500 (1224XENTUNA, SWEDEN *TEL 08-964072/ *TEL INT (+46) 8 964072D "g SKRIV/RING FOR LISTA!______mRANDEFORS"" STYR MED 'Q' OCH 'P'"" F7 = START"T$:T$""790 T$""790* 950<" "R""[ 50j 54296,15 54277,25: 54278,250 Q: W  Q1W1  54273,Q: 54272,W 54276,65$T150: T. 54276,162)" Ѷ"?22)" "#D22)""-N 900@X11)""S]11)" "fb11)" Ѷ"yg11)" Ѷ"l11)" Ѷ"q11)" "v11)"""" 7022)""22)"  " 11)" Ѷ" 11)" "2 11)" Ѷ"E 11)" "X 11)""h ""q  70 22)"" 22)" " 22)" Ѷ" 22)" " 22)" Ѷ" 22)" " 22)"" "" 70* 22)""= 22)" "P 22)" "c 22)" "v 22)" Ѷ" 22)" " 22)"" " 900 ,11)"" 111)" " 611)" " ;11)" " @ A 100,200,300,400,500,600+ FB((I)61)L P B 150,250,350,450,550,650_ d11)""r i11)" " n11)" " s11)" " x11)" " }11)" " 11)"" "" 70 22)" ":0" "V" "" "" "" "" FORSOK MED DIN MASK AT        "e #3)"        " $" TYVARR,DU CRASHADE MED ORMEN !!!!! " &"DINA POANG BLEV :";TI$ 0"TRYCK S FOR ETT NYTT SPEL" :AN$:/4 SKRIVET AV> "0H TOMMY GRANDEFORSQM "vR BYGATAN 22 A2, 290 71 MORRUM\ "f MINDRE ANDRINGAR 1991-01-11 AVp *SCANDINAVIEN PD *BOX 525 *S-191 05 SOLL)86500 1224X,87" 55496X,6( ^ 1224X1,77:1224X,66:1224X1,78:1264X1,67 1264X1,67:1304X1,78:1304X,66:1304X1,77 V54296:W54276:A54277:H54273:L54272 X1501:V,X:W,129:A,15:H,40:L,200 E110#  SKRIV LIST810-600(X10>53280,2:53281,5G""aA$" "rTI$"000000"y TT100:10T);A$200(1).97T(1)7)"֐"BB1:B60010010) (1,2,3,4,5,4,3,2,2,1,1,2,3,4,8/L 17,37,19,63,21,154,22,227,25,177,28,214,32,94,34,175,123KV 190,140,200,150,-1,-1p` ******************************j ******************************o ******************************t ***** *****~ **** "22)" Ѷ"22)" Ѷ"*22)" Ѷ"=22)" "P22)""Z 900`jUU1{"" U8 U0 : 930 1010 50"TRYCK SPACE!!!"; A$: A$"" |<<<|~??7?~???< ?<#<??? 0<  "-" **********************N" * *o" * AV *" * NDREAS UNNARSSON *" * OGDARP 115 *" * 260 91 *" * 0431-505 14 * "  :"AGENS DATUM:";D$::4 "ILKET [R PERSONNUMRET?"O "KRIV -()"a 3000:::E0z (N$,8,3)"000"E1 A$(N$,3,2):A$"01"A$"12"EE2:190 (N$,5,2)MD$(((N$,3,2)))(N$,5,2)"01"EE4 A((N$,2)):(N$,3,4) -":6000 J:::"ERSONNUMMER: ";N$< T:"\DD:":A$N$:6000:k WA((N$,8,3)):A929"P] OK[ND ORT":350 ["I ";O$(A);" L[N" ^:"\N: ";:A((N$,10,1))2 hA(A)"KVINNA":370 m"MAN" r5000   *** CENTRERA *** ):F C$((1000C),1)* 5 *** INPUT NUMMER ***; L N$"":F16h A$:A$"0"A$"9"3010} N$N$A$:A$;:F A$:A$"-"A$"+"N$N$A$:3040 3030 A$;:F13 A$:A$"0"A$"9"3050 N$N$A$:A$;:FET DATUM [R DET IDAG?":"(X: 851014)":)"D$"":F16E,A$:A$"0"A$"9"4140^6D$D$A$:A$;:F::@"ATUM: ";D$:"ORREKT? (J/N)"JA$:A$"N"A$""4120TA$"J"A$""4170hM%(12):F112:M%(F):FrMD$(12):F112:M(A$,7,1)"+"(A$,6)D$AA2:C1:6030"C0KB((A$,2)):BB4(B4)B1:6040SB0B$(A$,3,2):(B$"01"B$"02")BAA1D$(A7(A7));"DAGEN DEN";((A$,5,2));":";(A$,6,1)"2"(A$,5,1)"1""A ";:6080TE VARA 000!"JE2"EL M]NADSNUMMER!"*TE4"EL DATUM!"4^5000:%#P&# *** F\RTEXT ***V'#s(#53280,7:53281,7:""2#"ETTA PROGRAM [R GJORT AV"<#"NDREAS UNNARSSON"F#"OGDARP 115"P#"260 91 "Z#"ENDS8'269,J\NK\PINGSB'289,KRONOBERGSL'319,KALMAR1V'329,GOTLANDSC`'349,BLEKINGEZj'389,KRISTIANSTADSlt'459,MALM\HUS~~'479,HALLANDS'549,G\TEBORGS OCH BOHUS'589,[LVSBORGS'619,SKARABORGS'659,V[RMLANDS'689,\REvR,DECEMBER (L\R,S\N,M]N,TIS,ONS,TORS,FRE)((1,4,4,0,2,5,0,3,6,1,4,6R2(31,29,31,30,31,30,31,31,30,31,30,31Slt'459,MALM\HUS~~'479,HALLANDS'549,G\TEBORGS OCH BOHUS'589,[LVSBORGS'619,SKARABORGS'659,V[RMLANDS'689,\RE(((()h)h ` `@@@@@ @@@@@ ` `)h)h((((#UUU.UTUTUT, @)P T' T)P@ ( TZhTP'PTh********************** % ""/ 40008 (""\ 2X3:A$"****************":1000j <X5:1000 FX4:A$"* *":1000 PF13 ZA$" ":1000 dN170:N nA$"ERSONNUMMER":1000 xN1100:N:F ::"0229"(A4(A4)A0)EE4$ E8000. 2000@ (N$)10300T C$(N$,1)310y "ONTROLLSIFFRAN ST[MMER INTE!" 5000 ,N$N$C$ 6"":X2:A$"ERSONNUMMER!":1000 ;X3:A$"-------------":1000 @::"AGENS DATUM:":A$D$" Y20(A$)2:7000:A$: ?  *** BER[KNA KONTROLLSIFFRA ***E ^ A$"":F152:2020l F8102 A$A$(((N$,F,1))2) F:F72010 F262 A$A$(N$,F,1):F A$A$(N$,9,1) C0:F1(A$):CC((A$,F,1) A$:A$(13)3100 A$"0"A$"9"3070/ N$N$A$:A$;5 ;T *** INITIERING ***Zd9000uO$(999):F1O,O$:O04100FFO:O$(F)O$:F4010M$(12):F112:M$(F):FD$(6):F06:D$(F):F"ILKD$(F):F$ *** VARMSTART *** D::"LER PERSONNUMMER? (J/N)"^A$:A$"J"A$""40xA$"N"A$""5010"";:mn *** SKRIV UT DATUM ***opA(((A$,2))1.25)zAAM%(((A$,3,2)))((A$,5,2))"E "; M$(((A$,3,2)));C" 18";:6100*" 19";:(A$,2);:@UZV *** PLOT (=CUR) ***`WX783,0:782,Y:781,X:780,0:65520:=> *** VISA ERROR ***?@E1"E TRE F\RSTA SIFFRORNA EFTER STRECKET KAN INL: 0431-505 14"d#"M DU F]R PROBLEM MED DETTA PROGRAM,"On#"ELLER VILL BYTA PROGRAM MED MEJ, KAN"ox#"DU V[L KONTAKTA MEJ!!!!"u#{ '' *** DATA ***''139,STOCKHOLMS'159,UPPSALA$'189,S\DERMANLANDS.'239,\STERG\TLA BRO'709,V[STERMANLANDS'749,KOPPARBERGS&'779,G[VLEBORGS?'819,V[STERNORRLANDSR'849,J[MTLANDSi'889,V[STERBOTTENS~'929,NORRBOTTENS(0,SLUT (JANUARI,FEBRUARI,MARS,APRIL,MAJ,JUNI(JULI,AUGUSTI,SEPTEMBER,OKTOBER,NOVEMBE SKRIV LIST810-600(X10>53280,2:53281,5G""aA$" "rTI$"000000"y TT100:10T);A$200(1).97T(1)7)"֐"BB1:B60010010) (1,2,3,4,5,4,3,2,2,1,1,2,3,4,ZT  +  * 3 *++ /*/+ ZhTP'PThZT  +<#<??? 0<  LJz74$/Cȑȑȑi%΢C驤ȑȩȩ l`Hɔ#ɜɘCCLzCCh)8( ƫLzȑi'ȩ l`25C C))C)iC C`op (`Ln I I VImЭi2i4ii   I ,I, V#m,I,mLg3 I V` :TREPXE ,ETAIDEMRETNI ,ECIVON  -TCELES OT NOTTU kk  i" #Lik"0 #kL2k#0 mkkLT  mkkk  iL1LrL x ЩЩ#Щ%Щ&Щ'Щ;@ЩХ) $m$L 8$$LLl @2e"f0,g#h0,ieBf.gh.ie.f}"fg"gh}#hi#iоjU-$8j-.*8ɥiLEiU8鬍LE0 U0 8鬐ɥiT0L ,%0 ,$ ,$,,0 , ,,8J)L"88 L mm8$M$8%M%0> <--JJJJJ LPLAY AGAIN? Y N ԩ `8Ѝ``@ԩA`0``L x X`-܍ " #L )B )L " 0,  НЭНЊJBXLZ  )"$#% ?  Щ'Ѝ(ЩxdЩdЩЩЩ'Щ-ЍЩ o JTЭ,0 8,0ȹʈL i1-)-)#)XD z 륡  T!  T T J TL Ѝ) G T LK ) ! )L- L-8$j8ɠJJJJJHJ"#н8)i  `PP@KIAApIHp ϒ@RةЍЍЍЍЍЍЍ(Ѝ-Щ)Щ@G'Ѝ*Ѝ+Ѝ,ؙٙڙ`PP@KIAApIHp ϒ@RةЍЍЍЍЍЍЍ(Ѝ-Щ)Щ@G'Ѝ*Ѝ+Ѝ,fC/)?ԍC`CP)?i"Э)ЩC`C >CɀCEԩZL{C:ԩUG Щԩ`  ` `G`C)`RkMo]g@@OB DNA KCITSYOJ ESU  5891 !ETUPMO , 2 1 :SREYALP FO REBMUN  NIGEB OT ERIF SSERP `-)Ţ-)`-)`-)ܠ`??><<<>???>><<80 <<||ܙ0ݙ1 2 3؅`` )@8@,!ީ(X``B@``CA` ++((((PLAYER1: SHIPS: PLAYER2:pjmfmgАj,gj,jjiXЩjX j8XЭj V-ЍLYU ЍmhmiLn,C0CDT0T$ %Lk$0 kLk%0 mkkL  mk8M%0 L ,,I,II$0,%.m$$ۭ8%%Lm%m%%0,%.m%%ۭm% .   m"  "Ζ ۭ )8 # #LL m #m # # 0,  % .   m#  #Θ ۭ ) m "m "L8 " "LL8А$8j8А$U"XL J -Ѝ8`J `qr H  Ѝ-ЍhiЩЩ%,0(Щ ЍЭ`HH:0hh`HHi: HHx1X0 . @8@  ؈Ȍ -J@B ? `qr`T ? $%TЩ( T `"#Щ'Щ Ѝ ? ) ! ` I-ЍЩ`CB``BC- ` ЍЭI-)  ЍL -ЍЭ""## 2061L!Щ Рӈԩԩԩԩ= ԩԍԩ ԩԩԩԩԩ  l0021 2 LK BC o T" J  T L" B xܭЩЩRG.Щ Щ!РؙPPؙ ۙ(؍؍&؍%ؠ H۩p۩ &ӈԩ ԩ6 ԩ ԩԩԍԍԍԩ`  @``  0F18uIPI0@[okIEpoIpP߷uHĶ24  @`Р  F0ڝ0ڹXFXFXڝXڹFFڝڹFFڝڹFFڝڹFFڝ`CD@CعC(DAC(عCPDBCPعCxDCCxعCDDCعCDECعCDFCعCEGCٹC@EHC@ٹ ChEIChٹ CEJCٹ CEKCٹ CELCٹ CFMCڹC0FNC0ڹC C)`G`C)`I@[kkIAp){CCC)ߍCC` zLx@. )CL$y)ߍCL$y)Csé lL.y)CCL$y)CsdCF|C?C@C`C`UCɀLu Cɘɔ `L/uC`C C-rII@CCL6sLrCLhLsCCCLsCLtBBBC =C>C?CAC@C`i r\C@CACC`C L<ihBi C>C?C@CC~L2sL2sgB`Cpi rCLpLp` LpLpLpLpLp#ɠ ɐZLptLpgLpLpMLp LpLpLpC)C8АLp8а C `{IC`LrLqLqLSq CLCqCLCqCC ? @?GC-dGnGCЍ Э)Э BЩC`iGoG CXЍ Э BЭ BЩC`)@)ЩC` ЍЭ)@@ )Ln Э Ѝ8АC`C`C ?8АCԍCC``Lo`C ?CͫCd`CC΢CΣC`I H@C1CGH #pLcxC GICL2bL2b=mCC CiC`{IC)C`b NCCG`CCG`'CLPmCLPmCɐCC`Cɀ LnjCB C`C`  ?`C ? Э Đ )ЩCL>x!ТةЎhhhX@x!Т:LjLjLxCLjCɀ-CC0CCLVkCɀLkCCC`CCC3CLfkCɀLvkC CИ`CLdhC @CLdhCɀC 8 CLhC i C @CC)C) mCCΧCmCC`LdhmCCLdhCCLiC(C0BBCLdhCCC`LdhC0CLiCɀLhCLdhCɀCLdhꭠCɀCLdhCXFOCXڹCFPCڹCFQCڹCFRCڹCFSC`DC؝@C(DC(؝ACPDCP؝BCxDCx؝CCDC؝DCDC؝ECDC؝FCECٝGC@EC@ٝHChE ChٝICE CٝJCE CٝKCE CٝLCF CڝMC0FC0ڝNCXFCXڝOCFyLxCL$y ЍнЍЭ9C)Lqy ЩC`9CوCLy!CШ@AШBmC'LyCȱΣCȥi(Ly`ɠɀLzg dCCC`Ɛа l`)" (L#zPL#z `C8Cƫ) HG` CJJJJi]HGC)i]șHG`I_)`C)!CC)F CCCdCL&xC)CC)= CC lL&xC)CL xC)CL xC) 0CC)D" CCC) lCI-Ѝ Ky`w`G` XLhu9CИ Њ8 2iLju`_C)jCJ)" Lu?LuLuLuLu?LuLuLLLLLLLL`LKKKLKKKC-CCC  C`AC`7CB?C@CACCL}sBB>C=C` AC`LsL}sCɀ CCLhC7쭼C CCLhCȐCɀLsi t ( @?GC` 8А'#)@@ ɨ CeGL`qCL(qC @?C >`CC ?dGLqCC >iG 8а  ` `C >)@@%Cɀ ɸC`G @ЩC` ɘLC`CCC ? @?`LnC >LoC >LIoCC > @?`'CC-CCCCɀDD`%D&D`CC`CDCDD%D&DL?n{IC`C >CL"pC @?`C >C)ɀA@  LqpLpCG`CCHGCCC` 8nCCG`CCG`'CLmC0LmCpCCG`CC@G|CCC`H1CLoLo  LnLioLoLAoLXo LoLwoLlo)C)mCi5Ѝ Э8 CLkC i CLLkC8)CC8CL)kCi)CCiCL)k 1Y94I9)ɇC|@ɄJJJJI)mCC))C d`)CC8CC )C CLiC(C0CCC`LdhBBCLdhC0CLiꭠCɀLiCC/ Z2CLdh.CLdhCC/ 1XCLdh,CLdhꭼCCLdh@C?C-C8Xx)iCCɀCCBiCLdhBCCɀ@LVjC CڝPCFCڝQCFCڝRCFCڝSC`CڝQCFCڝRCFCڝSC` 1Y94IC]L>j\)LJiL;iL+iLiɀLjhɤLjh)ͳCLrhʹCLhCɀCLXhC)i  8 X0p8``K8;{[@@   L=bC;CGH -pLc"xC ԩ GIC`HhL`bICLc LbLb` bC)Lc bC)Lc f e' &e'' eC CC rC` B @ٙ0@?CACaCC|CCCC k lC󩪍ЩЩCCCCCCCCL)aCCCꭠCL"bC)`ܭLTcLNcԩܭ b bL`<ܭ ` A  `<>  `< `0 `0 @`<>?|ÀN UXU 0ހ?<0 ``' p??8888 < ?8   ?800 @<<S?  EUb @ BB"6  @@ 2<>:@` '?p0e `@А԰)iȝBiC?C@C`Cɀ2CɤɨC0`Cɤ ɨC)1`IܭHhL`bICLc LbLb` bC)L< bC)L<  330000 U??????????@ ????????U  xtv  ???0?<?"3w<031~y6? 1x~<<f<@0999???????????????????hijklmnopqr\\\\\\\\\\stuvwxyz{|}\\\\\\\\\\\\\\\\\\\]]]]]]]]]]]]\\    -   @߿ |B HHHHHHHHppppppppDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFF ? Э Đ )ߍЩC`U CJJJJ8CL>IiLg>ImCLg>Kg 8C9CЩC`I_C`C  ?` >` НЭ9CЭНЩS @ENTER YOUR NAME HIGHEST SCORES pd08uIPMoP@KioIIpoCHOOSE SKILL LEVEL 1-5 000   ?000000   ?000000U@xlffflx~``x```ffffff<``````~|ff|xlf>||??࠼C@nRSTmdY????????~g*{|0=  FFFFFFFFFFFFFFFFFFFFFFFFFFFFGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGHHHHH GTGGGH @%L? CɀL? CC` ((((((((PPPPPPPPxxxxxxxx@@@@@@@@hhhhhhhh00000000XXXXXXXX ϒHRM CJJJJHmCC8Cа9CوC 9C`C 9CЩC``I8CIiL>}НА CнZ*9CوCC9CЩC`Z`C `P )`RPQ ?? 11ЭQ5 Ȍ`H)hP)h`iH)߭ ԩԩԩ)Щ(Э8 Э а)Т)  #<)eiԩԩ #<ҩ ) Y@ U;Щx ݭ ݩЩ!Т=CC _ CCCC׭CC U;i ɠL:L:厢CCʈL Y@ ==  12 4 LK8LK8LK8LK88C8C8C8C8C8CCCC`C|  |<'<9<Z(x@ @ &2066 KBR H߹0$8$L7QZ[0iYʽXʽ`ʽ_8Y[  9e``%_$eX8Zʅ"#$"$%"##Y"X_` h lIH-)xhL`78 ~ p WIp WI * Q( <) < `C ))(+ i( C(`)y ȱ L;I8u``` 0000`  ԩ #<H)Т ԩ #< i BhUԍ`@/Q(?#Ozɢ) )Lq:fffff `B 8а0iА)B jjjЦBjj8Ųi ŲBL!:2 11)Р 0 #< ?Ъ) ʎ` M)ޯL8L8M)L8 ; %; )) ;e)JJj *Ц)&) ;)ЪЪʊL8) ;) Ъ3Ъ)JHjH)L4L7G)   ЭGH)Ih)@ h)@ Х)G)H h G 37L8L7 < a Y4` Y4O Э ЩЩ~Э>-` 7PЍЭ Э ``0Ck`C ` 7^ Щ ЩЩ( 04,<< @poGp 0 04,<< s4L4 s4O5)  ʎЮХ) zʎL4jjj4<2?`ԩԩ ԩԩ`M)M)(I*****`)ЭFL7M) F?S #< ԩԩ #<`j;2=`POMO018POMO029"POMO038POMO048 \PPPPP ?:8>8>8>:>8>???U=U|=}:  =( ΅C) 0JJJJ 0L:0ȑ i )થiPi΢CЬ 9` ؙٙڙ`*ɖCɀIJJJJ)CCmGCЭ) C ԍY@U4~JJJJi]HG~)i]HG`odl@D`&f@*@ xXYXZ[ZZX_[`X`o@dl@HDD&f@*@@`0 ??  0`??**LLBO)L;? Q 11B   #8>8>:>8>???U=U|=}|=|=U|=U|=|=| @poGp 0 04,<< @poGp 0 TL*- &@>E  L*@HL]#*TL#02:.T8:L*:0Lf$ɔ ? L*ɃL$p) RɲL@)zɒ)HPH (hL@ %L@ %LЭH)]H  ) q )F ЩčЩЍЩ)ЩЍТ G88 8" #( #o * #U * # *P #Щ!Щ  ) * &| *P #  ) )} ;U<L(ЭD'6+6X6t6u666 !   )H莌莳莴ڍڍڍکEڢ # ) ! 8" #ɘ  # # * 8" #8 ! 8" #ɲ ! 8" #p # %@   ) ЭЍ Щ *@hh + HH氩 ;` | I@eI+cCʈНcCʈ)cCM)}cCcC`cCʈcCʈcCH))h)MHe`@n)LX)j)ʈ `JRЩ ; Щ ;)Ю<< &@L)` BЭ)Щ(Э Э)Э) Щ wO ;L&)Щ  ;L'@ ; ; Э Щ ;< < &  ! ЮJ 8" ;L')L9((ȱH @0@ & & ?) L*IQ ; QL*@ YЩ!Щ ԩԎԎԌ ԩЩ ɍЭ Щ(Щ%Щ&ЩР XJbz8(XJF)Эi'ԍ Э (LL) # {`ʊ) #i(x{` %=# ADiبA` 8` ,:;<=>?H <   h> # L*ʈHi0H Єiԅ0 j]@f@`C!!)!)pJJJJ@!)H LBH B)' hiBޤCТ`!)0@ @0A!)eA!Х@ %L ԍF6@)ИDi  ?2`!!!"  'l'(ؙٙڙڈ` ''ؙ؈`u,u` ;hh + HH`??`ԩ ԩԩ !ԥ@  ԥ ԩ ;Lh` )I8u`*RQP(` 0000 (hE@@ LL8)A=@30:)! @)@Щ )%N (@FЩ ЍЩ& LH)@%% -ЍЩЭɒ (@LS SNM)HH 1)@ //  ;Ll (644l5r5r5u556L/L0P`)Р  'Ѝ(ЭD?==PS) )ЭDQ)ЍЭiЍЭiА ТQIR 0R Lj0Q?`ԩԩ&ԍԩԩ #<ԩ #<ԩԩ #< ЍТ # 8" ;1 ) 8"Т # /ɂ / ɖؠ  #Р !Т # 8" ! 8" #  8"k ; #2> * #Щ ; + 8"C ; #,N * !@ #!Щ    {{ y z` Ʌɉ8}ƍhhL%=PFЍ!!   ) #ЍЩЍЍЩ&Щ %ЩЩР ! # &  ) *f * 8" #x ! 8" # #  1 7 )hh + HH氩 ;` y z ȄCh C豲ȱȱȱТȱ(Щ&Щ %`(-(I(e(e(e(((     'ԍ Щ ;L%ԩ ;ԩԩڍԩ2ԩԩ ;`ԩԩٍԩԩ@Ԣ!ԩ ; ԩ ;0 !ԩ ;L6& ԩ`ԩ!ԩ ; `ԩԩԢ#ԩ!ԩ ; `( 8" ;L& Щ h l&)h8*LYVU< ).= H)  hjj)i@U)i #VU ; %UТ< )L& L*JL*CKkLFSxR 8(SB  BЩ5 VP**PPPVPPP PZ* *B?2)?2 ԩ Ԣ?2)ԩԩ! ԩ ԭD !!?2Ii D) !20-1ʈB`)  0000 (=  < 5  ->EF PQ? TUL^  +++++++++++++++++++++!)'Т(ם`)i1`<= >EBF`<tlh`'80%$};~v ԥ@  ȱȱ!ȱ"ȱ#ȱ$ȱȱ? ?ȱ ȱ ȱ ȱ ȱȄ?JJJ)  ? é( 汱 汱H汄?h ?L` TO CONTINUE";:198,0NA$:A$""2 MORE,N"MISSLES YOU WILL ENCOUNTER.qN"YOU WILL RECIEVE 100 POINTS FOR EVERY ":"PILOT YOU RESCUE ";N"AND LOSE 100 POINTS FOR";:"EACH ONE THAT IS CAPTURED."N"YOU CONTROL THE HELICOPTER WI < )ޡ >>EEF?<L@Lb0  ) + ;L,M)? ) K! +H) /hTDLJJ JJLD !LC)W82)"C)x "LUTC) "И)  0i ` `( ԩԍԍ ԠϢ< Щ=  J  K  L =L=ЩUТȠcC L,DDDDHNHЩBЩ-D !@    ;L <>p{ p?=>|~{8>8>:>8>???U=U|=}|=|=U|=U|  >&T.$ Z<@VRDnj,V($ 'vr"???? ^:;'<(=>T(((  ?.B> jLnF> 2:(|JJ $6 $> $FPT&@,> b     'vr"???? .P' t.(^,*(Z $@bf  ' ,//    8 rFBNHBD>8*$ p. *. <&( ~rT8 4h F2d"(.* &2R,((NV$z(> $&  kr& :B > J   ?L@W!"#$%& ' Ù>000?333333333?   15680:> >AcUIAA> (4 >  &%$$2R&%%$NIHHN%%ÙÙAAAAY&&UYj88< ʎ 8"82)ҩTC "LU) ) "LUTC) "И) L<Ў 8")TC " Le/# (@I@i؅ !ЩTL.V>E3 LEE> @C h@ s)i؅ 0B0B0B0BULS!Ѝԍԍ ԩԍ ԩԩԩpԩ!ԍ ԩ   ЍЍЍЍЩЩЩЍ%Щ &Щ(ЩYeeiiXBEjmȩ Щ ;.Њ)$0pԌԍԍĩԍ Ԣ <<VfV*jj<<m @poGp 0 04,<< #2 BL`j} ʐ ?=?????**p``  \PPPPP  =|=|???????B`z0zr88 <   ?? ް1B8 C 44˃2 N' ,X62@62 VD26D264"r   >  >& " F  >& " .#' - . . . .2 STA $D025HH@ @ h1 @  (() * +(((P'      J8NlJN+* (,2J uz > $"D B VR"????<(=;'<(=<(=v  m5// π2 UJ? 3L:*04P6  NPBBT>  *&F,J,""L  B,z _ 2.n V"????   '(0$ j<2+7+/&@6<(& N*<.J,2 *.@< &(J60R $> > 0rv "???? ?00000033??3333?6633?33333333?{3303cccc30#0000000000`0000000  00````0000``00  ~c 8dF 00000<OSPP@?O@@88888||"""""" P<<<f<8<< ?~pZZ<<>~~~<<UUUUDD DER ::I0191* ::A: GET SPRITE DATAV ::I12288,A : PLACE DATA AT 12288 ON_ ::I "DO YOU WANT INSTRUCTIONS? YES OR NO":198,0 A$:A$"Y"A$"N"248 A$"Y"20000 2040,192 : POINT SPRITE 0 DATA POINTER THE zN"LONGER YOU REMAIN IN THE AREA, THE MORE,N"MISSLES YOU WILL ENCOUNTER.qN"YOU WILL RECIEVE 100 POINTS FOR EVERY ":"PILOT YOU RESCUE ";N"AND LOSE 100 POINTS FOR";:"EACH ONE THAT IS CAPTURED."N"YOU CONTROL THE HELICOPTER WI  ";'" HOWARD CAMPBELL ";'"";"'9 N////////////////P!N/ INSTRUCTIONS /g"N////////////////m#N:)N"YOU ARE THE PILOT OF A RESCUE HELICOPTER";*N"ON THE FRONT LINES OF THE WAR ZONE.4N"YO  ";V'"  °î   ";Y`'"  CHOPPER RESCUE   ";j'"  ­ý   ";t'"  ý   ";~'"  000,000,000,000,000^#000,000,000,000,000,000,000,255/'//////////////D'/ TITLE PAGE /Y'//////////////_':'" ";'"  ";$'" 0,000,002P#000,000,002,128,242,170,164,2349Q#128,165,000,170,165,000,042,165^R#000,010,170,000,002,170,000,001S#000,000,001,001,001,085,085,000T#000,000,000,000,000,000,000,000U#000,000,000,000,000,000,000,000V#000,000,000,000,0 69,* 0,141,0,208,76,49,234,173,16,208,9,1,141,16,208,76,49,234Z4120,169,60,141,20,3,169,3,141,21,3,88,96p(#///////////////2#/ SPRITE DATA /<#///////////////F#:G#003,255,255,000,002,000,192,002H#000,192,002,128,234,170,164 ::V1,I!::(V31)12040,83264 :2040,192*::I0 R///////////////////////////t/ ML JOYSTICK READER DATA ////////////////////////////: 173,0,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,42,173$ 0,208 :CTCTIC-:(V31)UN 700 : : COLLISION DETECTIONF<(V1)245700 : BCH0V2,(.)20055:V3,(.)15055:CH1:V30,0C(V30).V3,0:SCSC100:CH0:MOB COLLISION DETECTIOND 550N:X://////////////////// 8 : S6,128 : S24,15 %"";:500= &S1,8 : S6,128 : S24,15S 'S24,0 : V21,0f ,"SCORE"SC 6"WOULD YOU LIKE TO PLAY AGAIN?" @" Y";A$ JA$"Y"250 T"";:  : : //////////////// / MAIN ROU TO 12288 SC0:CH0:CT09 V39,6 : SET SPRITE 0 COLORW V37,1 : MULTI-COLOR 1u V38,7 : MULTI-COLOR 2 53276,3 : SET MOBS TO MULTI-COLOR V1,55 : V,155 : V16,0 V2,120 : V3,0 2041,194 : POINT SPRITE 1 DA TH A JOYSTICK PLUGGED IN PORT 2.""N" GOOD LUCK!!!";lN""7)"PRESS TO CONTINUE";:198,0NA$:A$""20140N GOOD LUCK!!!";lN""7)"PRESS UR MISSON IS TO RESCUE THE PILOTS OF*>N"DOWNED PLANES AS THEY PARACHUTE TO THE\HN"GROUND. IF THE PILOTS LAND THEY WILL BE";yRN"IMMEDIATELY CAPTURED.\NfN"YOU WILL BE FIRED UPON BY THE GROUNDpN"FORCES WITH GROUND-TO-AIR MISSLES.  ý   ";='"    ";t'"  WRITTEN BY:  ";'"  ";'"   ";8.'"   ";q8'"    ";B'"  î   ";L'"  î  00,000,000,003W#000,085,000,001,085,064,005,085<X#080,021,085,084,032,000,008,011aY#020,224,002,215,128,000,190,000Z#000,040,000,000,060,000,000,060[#000,000,195,000,000,195,000,000\#195,000,002,130,128,000,000,000]#000,000,000, ,234I#128,165,192,170,165,000,042,1656J#000,010,170,000,002,170,000,001[K#000,000,001,001,001,085,085,000L#000,000,000,000,000,000,000,000M#000,000,000,000,000,000,000,000N#000,000,000,000,000,000,000,003O#000,003,000,000,002,00 ,208,31,173,16,208,41,1,208,16,173,16,208,9,1,141,16,208f  169,80,141,0,208,76,49,234,173,16,208,41,254,141,16,208,2060,208,76,49,234,74,176,32,238,0,208,240,30,169,80,205,0,208  208,20,173,16,208,41,1,240,13,173,16,208,41,254,141,16,208,1 /// COLLISION RESPONSE /,//////////////////////2:N2040,83264 :2040,192qS5,8:S1,2:S6,64:S4,129::I(V1)2555::(.).5""((.)38));:DN$::SR$:"SCORE"SC::V3,(V3)21((V3)250) TINE /////////////////::Q!GT129:S1192:S2193:OF128:IC.001:UN1:LL229f&2040,S1:S4,GT5(.)CT.9""((.)38));:DN$7V3,(V3)21((V3)255):(V3)LLCH0:SCSC1008SR$:"SCORE"SC:2040,S2:S4,OF TA POINTER& V40,9 : SET SPRITE 1 COLORY A(V31) : CLEAR SPR/CHR COLLISION REGISTER A(V30) : CLEAR SPR/SPR COLLISION REGISTER "";:V21,3 : TURN ON SPRITES TI$"000000": 937 "ISS24:I,0: : CLEAR SID $S1, &d******************************Kn* CHOPPER RESCUE *ps* *v* COPYRIGHTED BY H. CAMPBELL *x* ** NOT FOR COMMERCIAL SALE * ************************  @DA@@U`AD@4A10D@"    S    P; ? =??? ? _ ? X  =????  ? P  =? ?  ?   =??  ?  (T(T***V VTT =?? _ =P  " d dffdddfF<< pppppppppp| ****** : :& 53281,0:53280,02 10000\ V53248 : V=VICII STARTING ADDRESS S54272 : S=SID STARTING ADDRESS DN$"^":SR$"" ::I828949:A:I,A:I : POKE ML JOYSTICK REA|  "J  "  (        P  ;??? _ ? P  ???? _ ? P  ????? _ ? P  ????? _?   ???? _ ?X |D@8  DD"|    "|DD  8D@(((T)U U UUU(T(T**V*V VT((TUU) ݀UUU w7{|?7w>@@@@@@@@'=90x8@h<7|7< f<fffff<ccckwcff<`<|bf 0fF   Q    1          FGH...70 500...FGH IJK IJK @AB...50 200...@AB CDE CDE @AB...20 100...@AB CDE CDE @AB...20  Ѝ`P AɠЭL 3ԩԩԩԩԩԩL  P ԍ P L. f<f<00`0~~p  pDJPV\bhmsy~(Px@h0X Hp(<(<$$//   &,28>DJPV\bhmsy~(Px@h0X Hp(<(<$$// Y@9Da)d@$$@d)aD9@YɄAI٤q@乐iD!ĩydQ@1$   !!"#$$%&''()*++,-./01123456789:;<=>?@ABCDEFGHIJKLMNOQRSTUVWYZ[\]_`abdef~ 8  1983 `??` `  `  ` `  `8lff|ff4 8 j8 j x iL,L,L,L,L )*` )* ` )*`   8L| x } W L|  ) 88@ɀL{ ) 8 I w iH I h L 2 LV`0L u ] "!< ɬ)L(; L.<ɬ 8**Ec*EcJJI)cchc`x iХi ,-L$ ЍЩ8X` @߿$ ,-Ѝ``i`,,,, ,(ٽԹԹԦٹ"H)$ύԅh ЍԅйL=,ԅϹɹ)`  S)" ]]Ʃ] H] iRhL`eиfд {yZ  l xe );eI0 W I0  L$ ж LnbӅץԅة`a`` `aIab׈` HHR^eQхӽwiiԅhh` `J`ܭ -GALAXIONS8- PUBLIC DOMAIN SOFTWARE H(8):2304//q-&&99=5A91[(0"7"7                    -  "!`bac()  (2< gijklnoprstvwyz{}~ <<<<?? $1@Qdy!Di@qIAY@9Da)d@$$@d)aD9@YɄAI٤q@乐iD!ĩydQ@1$  $1@Qdy!Di@qIA|888 8`X LR Q   01`ffflllll>X<|0fppz 0 000 0 0T88T~~0`~~| ||8<| 8|| ,L |0`|~ ||||u`8`ee`&&ee` u ] w ɐ`i@H)@>  h 8`` ` `  ` ``` ) *`,L,L,L,L 9A`9A`9A`9A`,`&&`,6*ʈ` 8`   `F 8  e, L LLu ɳ7$;LɸM L7$)!|8 L0& LsiI <$Z lQR *  * \L YA@ A,Ѝԅ`HHH ̙Ѝhhh@y L 2 I }  w $%$  I  L  0L2I0Lʆ u ] I0L| ` w  Sܭ= S=SSS`߿TV`,U TTUTLJTTS SS)V VS S S`٢ ٝ؝ٝڝ`ڢ)ѥڑ`Q hihi RHH`H c&d T" 6";:& 6 LEFT^&"66 ";:i0 7 UP:"  ";D"7";:N 7 DOWN T TTT TTC JTTXTTTVTTTYTTP QTTXTTTVTTTYTTI BTT RuDzGKHR34 z؍؍ڍک\[]2U^ٍ٢LF TTTTTTTTTTTTTTTTTTTLMTTTTTTTTTTTTTTTTTT `QHRHHQR 5]'#ʆ  se٪Q hhQhR`يH ѥّh`I0L S[ r      . v  )'[S) Y[LS)I[ LLڥ\ RQSR ٠ڑi$ оL|H ] h L 4 S)٦'LPS)٦SJ LpS)  S)L"9";:!H 9 DOWN!R" 9";88 ";: !* 9 UPU!4"  ";v!>"9";:!H 9 DOWN!R" 9"; 7";: 7 LEFT("7 7";:3 8 UPr"  ";"8";: 8 DOWN" 8 'd 53272,23:53280,1:53281,1:150lnPHAROAH'S NEEDLES BY R WAGNER 64 MODS 33082 BY WIMxFROM 'PUBLIC DOMAIN',MSE,SVP K1 5D(K)0 K P(1)1470 ";r<|" 5 ";BP 5 RIGHT" 55";: 5 LEFT"5 5";: 6 UP 3";: 4 UP>"  4";:K 4 DOWN" 4 ";:" 4 ";: 4 RIGHT "" P" 2 ";:AZ" 2 ";:Od 2 RIGHT}n" 2";:x 2 LEFT"22 ";: 3 UP"  "4";:D(1)D(1)400000;"3";:D(1)D(1)3000000b"2";:D(1)D(1)2107"1":D(1)D(1)1108: 590 1 UP"  1";: 1 DOWN" D(NF)(D(NF)DN)MNMN1'$ (D(3)) (D(4)) 1100S."";MNl8"";C$;"";vB 600L"";C$;"";V ND;" DISKS MOVED IN ONLY ";MN;"MOVES !"`R$: R$""1120jt DRAW  DD)H DM 1250,1340,1430,1520,1610,1730,1850,1970,21001R KC\LR(TNNF)13Vf LR0 920ep K1 LRz DM 1300,1390,1480,1570,1690,1810,1930,2050,2180 K 960LR(LR) K1 LR DM 1320,1410,1500,1590,1VE FROM NEEDLE ? "; b NF$: NF$"" 610.lNF(NF$)Hv NF1 NF3 610^ D(NF)0 610z NF;" TO NEEDLE ? "; TN$: TN$"" 660TN(TN$) TN0 1080 TN1 TN3 660 TNNF 1080 D(T33)"Σ" " "32)" "T " ";ND;" DISKS "; " - ϣ - ϣ" 10)"YOUR MOVE NUMBER";MN "";  K1 ND1 6)""19)""32)""  K" ΠӠŠŠ#"; ,"ϠȠՠԠŠˠϠ."j 6" ̠ ŠŠР Ҡ" @"Š ." J" ϠҠǠԠŠҠ# 0" T"נ٠ ̠ՠ (1-9)?"; ^ ND$: ND$":P(2)1483:P(3)1496C C$" PUBLIC DOMAIN "j " ' " " ŠƠ ӠΠ." " Ԡ Š Ƞ" "Ҡ "% "  6";$1 6 DOWNw" 6 ";}" 6 "; 6 RIGH 4";:, 4 LEFTF6"44 ";:Q@ 5 UPJ"  5";T^ 5 DOWNh" 53";: 3 DOWNB" 3 ";:~" 3 ";: 3 RIGHT" 33";: 3 LEFT"3 1 ";:2" 1 ";:@  1 RIGHTh" 11";:u 1 LEFT("1 1";:2 2 UP<"  2";:F 2 DOWNINITAL DISK PILE*~"9";:D(1)D(1)9Y"8";:D(1)D(1)80"7";:D(1)D(1)700"6";:D(1)D(1)6000"5";:D(1)D(1)50000710,1830,1950,2080,2210  KPP(TN)O DM 1280,1370,1460,1550,1660,1780,1900,2020,2150k (P40)102 1020 DM 1270,1360,1450,1540,1640,1760,1880,2000,2130PP40 980DN(DM10(9DM))D(TN)(D(TN)DN)N)0 750 D(NF)D(TN) 660. K1 2: K8 TN;DPP(NF)MDD1h ""; NF1 "";  NF2 "";* (P)102 PP40:"";:DDDD1: 8104DM(P)176> K1  ";S&" 1 2 3 ";0" ";:"";D ND 1230,1220,1210,1200,1190,1180,1170,1160,1150ND(4)D(1)X"MO" 350 hND(ND$)% r ND1 ND9 350: | ND:MO(2ND)1T  ND6 ",";z ND;" Ӡ̠"MO;"!" "ҠԠ."  K1 3000: K "";:53272,21 " PHARAOH'S NEEDLES" " Σ" "Š#1. ՠŠĠϠŠ"T "ӠŠԠŠϠŠĠ" "ՠ̠ԠŠĠϠԠ" "ˠΠҠ.ϠŠŠ" "ԠӠŠŠ# ͠Ƞ" ""ˠ̠,AlSCANDINAVIEN PD022APHARAOS'S NEEDLEBILLIARDS" GALAXIONS> CHOPPERBIO-PLOTER.C BIO-COMPAT.C BIO-PRINTER.CBIORHYTHMN 1.5 ESP TEST  ELIZA DECISION MAKER!ASTRO-BIOPRINTER COPS & ROBBERS8HARRIER JETKHEAT SEEKERPERSONNUMMER"WET PAINTBILLIGA PD-PRGC64/128 AMIGASCANDINAVIEN PDBOX 52519105 SOLLENTUNATEL 08-964072 CRASH-WORMS TARNINGALARMCLOCK C64 SYNTHJMUSIC DRIVER INMUSIC DRIVER P1 MUSIC DRIVER P2 MUSIC DRIVER P3MUSIC DRIVER P4 VOICE 3 MUSIC SHORT-WAVE CLOCK s\(L( s- LyHH 6 H5 HLsETCGHMXP D  z n { p | , { , | z { | n p ,x 00q L8 JJJJo JJJJ!Њ) L 8nw ɤ yɤ9 cc L @HH, Ȱ chh u čv `Hr )i,x  )iJhjHt )jhH8r Hs f hIiHfbehadhr s IiȨt Iict ff8akblu ív @ji=P#ðĭ ` iÐĭw 0Mq My ={ QÑ8decdeekO$f0&8@åi@å 2PbRC    Ѝ!ЩA ` ( PP P        $ɑL L  L^)  L^ IL^   m , 0ɠ      k 8  L  P  ) Ȫ 6  e , %8 Ȫ 68  e   ` Lh ,0 b)GGLES HORIZONTAL SYMMETRY V TOGGLES VERTICAL SYMMETRY F1 CHANGES COLOR #1 F3 CHANGES COLOR #2 F5 CHANGES COLOR #3 F7 TOGGLES RANDOM COLORS 0-9 CHANGES LENGTH OF TAIL STOP TERMINATES PROGRAM SPACE PLAYS THE NEXT SONG L{1122 㐭)@L1122 㐩@L~H1 2 d 03 }-ʚ̚˚᚝ Țɚ5~/iI-h`0Ț8ƚȚɚǚɚ*Lƚ3)ƚȚɚȚɚȚȚɚLyZ0}ߚߚ}*LLy)ߚߚߚLy0ߚ8ߚ*LV3)ߚߚߚL/,/i펀L/L8}iL~/Z쀛UȚɚȚў:ɚў2-ìLLȱȱ aL5LȚȱɚȱSVERIGEMBINED AND ODIFIED BY: ARL . EAHL R. [74765,276] SYS3560L L L L L L L L Lt L +U 5 COPYRIGHT 1985 BY GLEN BREDON    ` l H)Э)ߍЭ)ЩLc`LH  q `8nx 0 p Т ĩèĠín  Э  + ),x ؅Ġâo  `8nw s r Iiȍt JJJI mr )ýb ms Ġ,w q Iw y t )r ),x Ns nr Jw 0Mq My ={ QÑåiĠw 0Mq My ={ QÑådeadeebPlЭÍu čv `,x A { `@ 0 @@@@@@ !"#%&'(*+,-/01245679:;<>0 U e*d*c*b8&e&d&c&beeededcecbebcecbeba pfL׸L    L^E I RI J ?H jM L[V jM L[   S LI0 i ( k 8 Pm , 0Ȑ   P P m , 0Ȑ     m , 0ɠ    `) L b- m ` b- 8 8 ` LV ,0L_ Lb SWINTH HIT SPACE BAR TO START I CHANGES MAX INCREMENT 32>16>8>4 E TOGGLES MIN INCREMENT 1<->2 H TOMUSIC FROM SYNTH SAMPLE-8`.=څ-8@.=`xH)LL0hX`hL1/LLa) q1ȭq2ȩ 㐊i߭J)]8JJJ8屍 㐭᚝ʚ̚˚/|iL~.Li~~/i~L ޠLLn ޢLLJLޢ )LJLX0}ȚȚ}ɚɚ*LC޵L)ȚɚɚݴȚݳȚɚLߚᚽ˚LʚL̚l4N0 mKKLOR)OKKL LK̚LP0K8PKLQ)QKMK MK̚ʚȚɚȚ} Խɚ} Խ ߚԽԽ̚KԽ˚ J |L3}3Lf ȱ3L*LȱL LL疩Țȱɚȱȱȱȱȱƚȱǚȱȱ3ݴ'Țɚ#H̚Ӛښh̚MLLLKԽ&H˚Қٚ MX(0):3560:"  RITTEN BY: LEN . REDON [72245,636]y" OMPU-ERVE -310-6 2--85" P-LOADED BY: IM ININGS [70636,535]" OMPU-ERVE -962-2 24--84B " O L/i L 4ȱ5L1ʚݚȱޚȱۚȱܚۚʚ Lu8틛팛80 Lȱݝݜ iLc/L!8mȱmLԩԝԝȚɚ ȱ/ȚȚɚɚ8ȚɚIiIi45)....mm̭  ʚ ʚ kL Ii Ii ` *7F , M 1  ! |F c$%CLC),,TE.-0-2-+5< *`1~1!i1!c8<2*>*?1>*%TT*`1Y*}TTydiiTC~**yd*p*Tp*yd*}TTydT}TTT~?}T yd ~*iyd?}T*C~CEK}T*CTp*yd*}TT}TYyd*}TT~*ydTT*T*p~! k   < . x u f c  Q N  Z $0 0N 000 0000   0000N I F  @ = : 7 4 1 . + ( % "      L  ) @ )w r % t  @ )      & F < q n k h e b       0         x  &(`    d--< 0 0 ``X``h˚ELtDJ |Խʚ ʚ(ߚԽLߚԽԽȚԽɚԽ ԩ aLJLLn̚Ӛښ| JȱȱMKȱLȱN)OȱP)QN PLMLMKL̚ Lؘ˚ҚٚEJ |ȱDȱF)GȱH)IF HDEDEJD˚ȱL D}ȱ}e柽 LcH } RSh L )ԠL N ) H } RShLLc/5"/8yii`               ƚǚLƚǚLb2F0 mJJLGR)GJJD DJ˚LH0J8HJLI)IJEJ EJ˚L kܚ0ۚ} ܚ} L/ۚ<)ۚ  0*ޚ% ݚݚ ޚ 8ʚ4-6-8-г+FFREQUENCY OF A-4?,,Uг @ ,,<  eR [ p U j   a0 a 9  (   #  G R 0Ga _˞   x<*p~TydTYiydpY}T*C?}TY*ydip*?ydp*~}T}T*EKCY}Tpyd~Tp*p~*p***TT~*yd*}Tyd~**yd*}Tyd*~yd}T*~yd}Tyd ~ ? 0000 @ 0 ( (  RO l FI I(    ,# ,, # , # ##  # '! '' ! ' ! !!  ! < ~ { O L  F  @d G C ; C ; C  G ;   w a w  a w w     w w   w   w    $      xN N N N N N 0 l  P``X``P&!00`0`0`000` @< 5 2 / @ Q : _ i s }  0 aa  ȱLL ߚȱȱȱȱȱȱȱL'ߚȱLQ800iў}ȱ}L0L G 0  ##0G00  # S #0$#   0  G#  #$   0  #00 0  0  ##0G00  #q @ < U>*$ >*l [<2 c8 K? C EK }Tc8<2 c8 <2$c8K? C K? <2c8xK? C EK C K? <2Hyd0EKC K? <2  = <     1  # >*d  @   % >*1d1%>*%dk/ >* % # % >* k/P1#k/%Pk/ >* % # %>*%P%Pc8 K? c8 95 c8 >*#>*% # #( _@<P  g, Y R K  Dh =h 6 YydN!V"!&$!|<2COydOC<2C<2YC95,95,<2<N\% |CEK}TYydNN*|CEKOY.OEKCK?CEKydYEK;COYyd*OYydsjYCydEKK?C<2O"<2C"95Y"K?ydOC;rC @2 <an 0 3 3 3 h 3 an n 3 N 3 3 h 3 3 3 n a3 h 3 3!N `%1 ``0   ``,<2c8;c8<2,'%',<2c8;c8<2c8;c8<2c8;c8<2c8 p(;x c8x<2Z,<2xR >  uC;c8<2c8;c8<2,'%',; : +1F $1F F %F1% !%F1, %,%(1 , % ,1F F %F 1F %<2% ;<2EK; ydEK|wydEK;%F%c8 <2c8c8 <2 c8 <2 %c8 <2c8F %F  >;  N N  ` . `  N N   0 0 N    h h 0 aa @ < ? < 9 6 ? H 9 N W ` i r {    % b ! W1 P I 1 >! 7% 0 ! % 1   1  ++ @<$$/A@]  0$0   1 1!% !1 1!% ! &  1011011000`0``0``00000000d/   1111p 1 111111@  #%>*k/95c8K?c8 @ n<d1  1#%>*1c8<c8 95 c8>*%#x1#>*(#2% #  / (h !h    (< (@A _i@A /i_  N< \% <N*!,! % :%_!(1)V[(`&|CEKOp~ZZN%_!(1)|<2;EKydEK;<2;<2O;<2;O;EK;<2;EKyd|wydO;PN(`&|;Oyd|wydO;O;ydO; 3 3 0 3 n N 3 w3 3 0 3 3 3 n 3 3 a3 3 3 -Oan a3 a 0@d <  ```! !!`!N  `ED         >< ZC;c8<2c8;c8<2<2c8;c8<2,<2c8;c8<2,<2c8;c8<2,<2c8 >; ; ;Jc83 ><2 <2 <2J,3 >' ' ', , ,<2 <2, J'< (;x c8x<2Z,<2x;xc8x;; Jc8< ><2 <2<2 J,< >' ' ' , , , <2 <2 , J'3  >< >YOEKCEKOEKCEKOEKC;c8<2c8;c8EKOEKCEKOEKCEK @ 0 @ 0 R   R a w% "h G"`   @ < 1 1!% !1 1!% !  1  { 1 p! i F 91(% F F 1%( F F1% !%F1c8 <2c8%( 1 %<2% ;<2EK;<2%< 1  1 1  1 11(12 1  1 1 1  1  1%%1#1%1#11%%1#1%11               111 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3  @d2 <k/3 >*3 %3 #3 3 13 k/<2c8 k/<2c81#%>*k/<2k/ %>*k/ k/<2c8K?c8<2c8k/<2c8<2 K?c8<2 k/>*k/>*%>*k/<2c8K?<2 1 #%1#%c8 <2 k/& k/ k/ <2 k/ >* %3 c8%3 #3 % < R M>* c ?=>*  ] : S    ,O -.. [. =, % , >* , % @<2 P,` ` 1   0  0 [0    0    0  [    h h [ 0  N       ,O  N      [       N L  v"0 a [.      h h [ 0  N       ,O  N      [       N OEKCEKEKEK (<2x ,x'Z%'x@ >  YYOEKCEKOEKC;c8<2c8;CEKOEKCEKOEKCEKOEKCEKOEKCEKOc8< ><2 <2 <2 c8 c8 c8 ; ; c8 J<23 <2ydydYydydOydydEKydydCydyd 0d Y <## W   ## i   ##  | #Y 1 1  1 <  11  1 1, %1, % , % 1, %   ## @0  @ <1%1#11%%1#           1                1     1 1   1111 @ @<3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 #3 %k/c8<2k/%k/>*%%c8<2K?c8<2k/ # %   1    % #  1  1           1       % >*k/<2c8k/& k/ k/ <2 k/ >* %& % % >* % # 3 %3 % !  ! 1& 1 %c8 c8 K? c8 <2 k/& k/ k/ <2 k/ >* % !  ! 1& 1 %#& # %& c8 c8 K? !  1 `` 1  !  1  `  1  `  1`    `      `     `  `   `  ,O  N     h h [        @&.O N0     h h [ 0  0 h   0    < a  a   a   < at  MUSIC DRIVER[ A SET OF PROGRAMS TO USE C64 SOUND VIA THE INTERRUPT VECTORoX0407:X0X02 FOR PUBLIC DOMAIN USE ONLY 1983 BY VINCE SORENSENA$:A$"THE END"X0)A$::A$"@" A$"*""":5 A$"@"1 O >EK EK EKJC3 >; ; ;Jc83 ><2 <2 <2c8 c8 c8; ;c8 J<2< (<2x ,x'Z%'x<2x,x<2 (( Y yd   >EK EKEK JC< >; ;; J ( ,"THESE PROGRAMS WILL ALLOW YOU TON ,"PLAY MUSIC WHILE ANYTHING ELSEt ,"IS GOING ON. 'MUSIC DRIVER P1' ,"IS THE MAIN MACHINE LANGUAGE ,"PROGRAM, WITH A SONG INCLUDED. ","(THE SONG INCLUDED IS FROM THE GAME ,"'PANIC E 256|,"IS 4 X 4 X 4 X 4 (4^4).@K,"'MUSIC DRIVER P3' IS A SHORT PROGRAMw,"TO REMIND THE USER OF EXACTLY HOW TO,"LOAD 'P4'. 'MUSIC DRIVER P4' IS THE,"SAME AS 'P1', EXCEPT A DIFFERENT,"SONG IS PLAYED. ,"FINALLY, ,"TO TURN IT OFF, HIT RUN STOP/RESTOREF," OR TYPE SYS2130. "r&,"WHEN USED IN A PROGRAM, THE FOLLWING0,"SHOULD BE NOTED::,"SYS2130 IS THE ONLY PRACTICAL WAY TOD,"TURN OFF THE SOUND. WHEN THE MUSIC N,"WHEN A GRAM DOES NOT!,"DISTURB THE MUSIC DRIVER'S WORK.(@U,,"THIS IS WILL IN ANY WAY AFFECT YOUR","PROGRAM RUN, EXCEPT THAT SOUND CAN,"ONLY BE TURNED ON WHEN YOU WANT,"THE SCREEN CLEARED."",,"MUSIC DRIVER P2""GRAM"(I.E.: 'P1', 'P3', OR '3VOICE').?"RUN IT (SYS2400), AND THEN LOAD 'P2'.k"AFTER CHANGING THE NOTES, TYPE 'NEW'."IN ORDER TO SAVE YOUR NEW SONG, YOU "JUST HAVE TO CHANGE THE START OF BASIC "BACK TO IT'S USUAL SPOT. (WHE $0800-$0815 BASIC: 'SYS2400' "6>," $0815-$08FF ML FOR SET-UP OF DRIVER"cH," $0900-$09FF MAIN DRIVING ML "R," $0B00-$0BFF HIGH BYTES FOR NOTES "\," $0C00-$0FFF NOT USED IN 'P1', 'P3',"f" USED FOR DATA AND: 5025 S. RANGELINE ROAD"`: WEST MILN, OHIO, USA 45535(j:Lt: R PET USERS GROUP INC.j~: BOX 100, STATI "S": R, TARIO: CANADA M5M 4L6:: COMMERCIAL SYSTEMS: 730 EASTVIEW AVENUE(: CANADA S4S 0S62:<:F:-P::::::::: OF ADDRESSES::::::::::3:9:?:XMUSIC DRIVERqA SERIES OF PROGRAMSUG ERRUPTS  SOUND THE C64.: (C) 1983 VINCE SENSEN*:4THIS PROGRAM IS >000:5 K40(A$) K2)A$7 53280,11:53281,0N I1(50K)2::5u d *,"MUSIC DRIVER"," n ,"A SET OF PROGRAMS","USING THE INTERRUPT VECTOR x"IN ORDER TO PLAY MUSIC ON THE C64. ,,"FOR PUBLIC DOMAIN USE ONLY."L6 " @= "3) COMMERCIAL DATA SYSTEMS, 730 EASTVIEW"l " AVE., REGINA, SASK., CANADA S4S 0A2 "4) TELEGAMES, BOX 152, HAMPTON, ONTARIO," "CANADA LOB 1J0 " "",,"GENERAL DESCRIPTION " CITY', SEE #3 AND 4 ABOVE) 6@? @,"'MUSIC DRIVER P2' ALLOWS YOU TOd J,"CHANGE THE NOTES IN THE SONG. T,"THERE MUST BE EXACTLY 256 NOTES ^,"IN THE SONG, NO MORE, NO LESS. h,"THIS IS PERFECT, HOWEVER FOR r,"SONGS IN 4/4 TIME, SINC '3VOICE MUSIC' IS A THIRD6,"PROGRAM LIKE 'P1', EXCEPT THAT ALL`,"THREE VOICES ARE USED TO PROVIDE A,"BEAT AND INSTRUMENT DEMONSTRATION.@,"MUSIC DRIVER P1""","TO TURN ON THE SOUND, TYPE SYS2400.N SYS2400 IS DONE, THE SCREEN6X@,,"CLEARS, A START-UP/STATUS MESSAGEcb,"IS DISPLAYED, AND THE START OF BASICl,"IS MOVED TO $1000, 4096 DECIMAL,v,"WHICH IS THE START OF BASIC IN THE,"UNEXPANDED VIC.,"THIS IS SO THAT YOUR PRO"!,"WHEN RUN, YOU WILL BE ASKED FOR 256N,"NOTES. THE NOTES SHOULD BE GIVEN LIKEo,"THE FOLLOWING EXAMPLES...,"A1 C#2 B3 G#1 E2 F2 D#1",@,,,,"IN ORDER TO USE THIS PROGRAM, YOU MUST""FIRST LOAD A MAIN DRIVER PRON YOU "TYPE 'NEW', END OF BASIC IS RESET TOA "TO $1000, SO NO NEED TO CHANGE THIS)f "TYPE POKE44,8:CLR [RETURN]""THEN SAVE. AFTERWARDS, SYS2400 TO"START OF BASIC BACK TO $1000.",@ ,"MEMORY USE"*"" 4," ML IN"p" '3VOICE MUSIC' PROGRAM."!"",,,':d"HIT ANY KEY TO CONTINUE..."yR$:R$""1010R$:R$""1020"":THE END$THE ADDRESSES:L: PUBLIC DOMAIN INC.V: REGINA, SASKATCHEWAN: CANADA S4S 0A2:/: TELEGAMESA: BOX 152Z: HAMPN, TARIOs: CANADA L0B 1J0y: : FANTASY UNIVERSAL SOFTWARE: 3615 MCCALLUM AVENUE: REGINA, SASKATCHEWANIPUBLIC DOMAIN USE LY.H:R:\:f.......................TELEGAMESA: BOX 152Z: HAMPN, TARIOs: CANADA L0B 1J0y: : FANTASY UNIVERSAL SOFTWARE: 3615 MCCALLUM AVENUE: REGINA, SASKATCHEWAN  ,,1983 BY VINCE SORENSENT ,,,"I CAN BE REACHED THROUGH THE FOLLOWING","PEOPLE:" "1) PUBLIC DOMAIN INC., 5025 S. RANGELINE" "RD., W. MILTON, OHIO, USA 45535 " "2) TPUG, BOX 100, STATION 'S', TORONTO, " "ONTARIO, CANADA M5M 4                                  MUSIC DRIVER P24 1983 BY VINCE SORENSENQ ----------------------n THIS PROGRAM, LIKE THE OTHER TWO IN THIS SET, ARE EXCLUSIVELY FOR PUBLIC DOMAIN DISTRIBUTION. ---------------------- C1,4,48 37+ 4"TELEGAMES OF HAMPTON, ONT., CANADA. 9 7 G1,6,71I < G#1,6,167W A A1,7,12g F A#1,7,119v P B1,7,233 n C2,8, 97 x C#2,8,225 D2,9, 104 D#2,9,247 E2,10,143 F2,11,48 F#2,11,218 G2,12,143 0; "NOTE POSSIBILITIES (Z=REST, L=GO BACK TOLAST, S=SKIP NOTE):L  G#3,26,156]  A3, 28, 49n " A#3,29,223 #A$,B,C:A$" ";:A$"Z"291 ' B3, 31,165 )Z,0,0 *:"NOTE#"17)"OLD NOTE" +53281,12:53280,15:" ,X0:SH11256 ":"";:XX1:310hPA$"S"" ":"";:XX1:310nT{^ B$,H,LiB$A$390jH0350r"";:310" "SHX,H:SLX,L HAMPTON, ONTARIO CANADA L0B 1J0!:& THIS PROGRAM IS INS0 THE PUBLIC DOMAIN.Y:D OTHERS I CAN BE CONTACTED THRU:N PUBLIC DOMAIN INC.,X W. MILTON, OHIO, U.S.A.b TPUG INC.,l TORONTO, ONTARIO, CANADA  2400Lx  P X ,+ (`x1X`,`MUSIC DRIVER: 1983 BY VINCE SORENSEN: MUSICGGGhhGGGhhG aҏG000Gh0hGh0haa GGGGhhh aڏڏa hhh GGG ha GGGa a GGGG GG ah0 aGG ah0 G G GG GGwawGGGGGGGhhhGGGhhhGG h0````0h Gԩԩ ԍ ԍ ԩD ԩA ԩ`ԩԩ ԍ ԍ ԩD ԩA ԩ`"MUSIC DRIVER P2: ALTER NOTES-  C#1,4,112\ "MUSIC DRIVER IS WRITTEN BY V. SORENSEN,k  D1,4,180 "WHO CAN BE CONTACTED THROUGH # D#1,4,251 ( E1,5,71 )"FANTASY UNIVERSAL OF REGINA, SASK., CAN.OR - F1,5,152 2 F#1,5,2 G#2,13,78 A2,14,24% A#2,14,2395 B2,15,210F C3, 16,195 "DEFAULT INPUT: WHAT'S THERE(1) OR LASTNOTE GIVEN(2)";O C#3,17,195 D3, 18,209 D#3,19,239 E3, 21, 31 F3,22,96  F#3,23,181  G3, 25, 3:SL10256 -???,0,0! 6M$""::M$,B,C- 7M$,B,C? 8M$"???"320\ 9B(SHX)C(SLX)320e :311 @""X4)SHX10)SLX18)M$24)""; AX0X256:" ":"";:X0:310 EO1A$M$ JA$&OA$"L""X5)H10)L15)A$19)"___NOTE#,FREQ.,NAME$XX13X256310F"FINISHED..."P"Vw FANTASY UNIVERSAL SOFTWARE 3615 MCCALLUM AVENUE REGINA, SASKATCHEWAN CANADA S4S 0S6 TELEGAMES SOFTWARE BOX 152Jv COMMERCIAL DATA SYSTEMS. REGINA, SASKATCHEWAN, CANADA4INISHED..."P"Vw FANTASY UNIVERSAL SOFTWARE 3615 MCCALLUM AVENUE REGINA, SASKATCHEWAN CANADA S4S 0S6 TELEGAMES SOFTWARE BOX 152 D)L1ԩ%ԩԽ Խ ԩAԩ@ԩԩL1  @``L ԩԽ Խ ԩAԩ@ԩԩԩп` pԩԽۍԽ iԩAԩ@ԩԩԩн`  2400Lx  P X ,+ (`x1X`,`MUSIC DRIVER: 1983 BY VINCE SORENSEN: MUSIC  2400Lx  P X ,+ (`x1X`,`MUSIC DRIVER: 1983 BY VINCE SORENSEN: MUSIC                               Gh0hGh0haGh0h hh ahhaGh0hGh0hGahaG GGG GG GGG h hhh GGwGG GGwGGwa Ga a a GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGwG) ԩ% ԩԽ Խ ԩ! ԩ ԩ ԩ )ԩ%ԩԽ Խ ԩԩԩԩL1    ֠ Й@` a GG @ԩԩ ԍ ԍ ԩD ԩA ԩ`0`@  -"NOTES: LOAD MUSIC DRIVER P4 LIKE SO:Y"LOAD"(34)"MUSIC DRIVER P4"(34)",1,1y"OR FOR DISK... ,8,8"...ITS A DIFFERENT SONG!P0P1:(2400)76(2401)322400:1ԩԩ ԍ ԍ ԩD ԩA ԩ` D~)L1ԩ%ԩԽ Խ ԩAԩ@ԩԩL1  @``L ԩԽ Խ ԩAԩ@ԩԩԩп` pԩԽۍԽ iԩAԩ@ԩԩԩн` D異)L1ԩ%ԩԽ Խ ԩAԩ@ԩԩL  @``L ԩԽ Խ ԩAԩ@ԩԩԩп` pԩԽۍԽ iԩAԩ@ԩԩԩн`ܭ)I   ) % '  )`   Б(    ֠ Й@`w            ) ԩ% ԩԽ Խ ԩ! ԩ ԩ ԩ )ԩ%ԩԽ Խ ԩԩԩԩL1    ֠ Й@` a GG pP  ) ԩ% ԩԽ Խ ԩ! ԩ ԩ ԩ )ԩ%ԩԽ Խ ԩԩԩԩL1    ֠ Й@` a GG  ˳ 5" _"_ ϣ¥ "HON. ' " ϣ ' "- - - - - - - -- - -- - - - --"  Al64AKADEMIN 09 BB CITY$"COLUMBUS ")$DOWN76.ACROSS7L853280,9:53281,6wB"PLEASE ENTER DATE"L1,3V DM(15):CC$""`:" MONTH DAY YEARj" ݠ t  MUSICMASTER MUSIC LESSON+AINT RUSHSILLYDATA SPEAK::" HOURS MINUTES SECONDSI " ݠj " " " " 12): LT$ 3090 2950  B$: B$"" 1310 ( B$"E"VOICE 3 MUSIC ENTERTAINERSKRIV TILL64AKADEMIN KRUTHORNSV. 1319153 SOLLENTUNA$):DD(DD$):YY(YY$) MM11510) I1125  DM(I)< IW  Y4(Y4) DM(2)29f  I1MM1v JDJDDM(I)} I JDJDDD  31,28,31,30,31,30,31,31,30,31,30,31 MM6Q11  (MM7)(MM5)Q12  (MM8)(MM4)Q13 Σ&" ͤ";""N&" GMT0"L.A.D.C.LONDONTOKYO:"  CAPE TOWNN.ZEALANDD""(r" = SUN Σ";Y|" ";" " Σ " ݤ "  A" Σ ͺ k" " ͤ " " MUSIC MACHINEFOUR EASY PIECESFOUR PIECES.CODE2 SOUND HELPER.C 64-PIANO" ; ~" V " ^ "i 12):r DT$ "PLEASE ENTER TIME" :" USE 24 HOUR FORMAT :" HOURS:MIDNIGHT=00 NOON=12 11PM=23'  -SILLYDATA SPEAKd SYNTHJ MUSIC DRIVER INMUSIC DRIVER P1 MUSIC DRIVER P2 MUSIC DRIVER P3MUSIC DRIVER P4  B50000 2 B$"C" B60000/ < B$"M" B70000E F B$"P" B80000Y PB$"O" 3010 ZT(LT$)BDS10000:T240000TT240000 dBXB10000 nT$"000000"((T),2) xTI$(T$,6) MM$(DT$,2):DD$(DT$,3,2):YY$(DT$,2) MM(MMSVERIGE  (MM9)(MM3)Q14( " (MM10)(MM2)Q15B , (MM11)(MM1)Q16U 6 (MM12)Q17[ @c J" T" "; ^" ͵ SHORT-WAVE CLOCK  "; h"  CAIRO4N"JERUSALEM\X"ASUNCIONb"NOMEl"MOSCOWDACCAv" ! .* *E 8* JUNE-ISH 1980 *i B* * L****************************** V"" `AA$" BIORHYTHM PLOTTER" jAB$"ON ENTRY OF BIRTH DATE AND A STARTING" tAC$"DAT HANOI5H0$(TI$,2):H0(H0$):HAH019:HA0HAHA23eHAH016DS:HA23HAHA24: SAN FRANCISCOHHH014:HH23HHHH24: HILOHXH0BXDS:HX0HXHX24: LOCALHVH02:HV23HVHV24: CAIROH2H019DS: ;""2 2850< BB(H00)(H03)F B(H00)(H03)(P "";TZ (H020)(B) "(OVER PACIFIC)":2670ld " "n (H020)(BB) " "x Y2(H03) Y0 YY1 Y >HPH014:HP23HPHP24: TAHITI*HHTH07:HT23HTHT24: NAMQRHUH013DS:HU23HUHU24: NOME\H4H02:H423H4H424: JERUSALEM OR CAPETOWNfH5H02:H523H5H524: CAPE TOWNpH10H03:H1023H10H1024: MOSCOWzHBH0Z150:ZZ ""; X1X2 HHH0 1990#" (CC$,DOWN1)ACROSS)"*"K, "*";CITY$v6 "";HX$;":";MM$;":";SS$;"";" (";B$;@ DS "DT)";:2900J "ST)";T ""^ h Nr BN10000|  "((H4),2)HH$((HH),2)HX$((HX),2)@H5$((H5),2):H6$((H6),2):H7$((H7),2)SHV$((HV),2)hH10$((H10),2){HB$((HB),2)HC$((HC),2) HD$((HD),2) HE$((HE),2) H8$((H8),2)$ HF$((HF),2).OUTSIDE CONT. U.S. ! :"ENTER NUMBER OF HOUR YOU MUST ADD8! :"TO LOCAL TIME TO EQUAL GREENWICH TIME^! :"COUNT WEST FROM ENGLAND (I.E.|! :"GREENLAND=3 JAPAN=15)! N! BN10000! ! DAYLIGHT SAVINGS! ""!& "DAYLIGHT SAV "";9);H3$;":";MM$;) "";H5$;":";MM$;L "";H7$;":";MM$;""s "";HF$;":";MM$;"" "";HJ$;":";MM$;"" "_";HP$":";MM$;"" "%******************************I* *m* THIS ADAPTATION FOR PET ** ** BY ** *$* D. S. PENNER *SIDNEY<" OSLOO"S.LAKEp"CHILE"ILL." QUITO"TAHITI");HE$;":";MM$;"" "";22);H4$;":";MM$;T "";HU$;":";MM$;"" "";H8$;":";MM$;""( "";HV$;":";MM$H223H2H224: NEW YORK"H3H020:H323H3H324: RIOE HCH01:HC23HCHC24: OSLOqHDH017DS:HD23HDHD24: SALT LAKE HEH019:HE23HEHE24: CHILE*HFH018DS:HF23HFHF24: ILL.4HJH019:HJ23HJHJ24: QUITO12 YY2 Y32 YY3 Y37 Y38 X239Y+ (HHH0)(X239)1990[ (HHH0) (X20)(CC$,Q1)""TK$:1990k X1X22790 X10(CC$,Q1)X1)TK$:""; (CC$,Q1)X2);:#1,TK$:"" (CC$,Q1)X2)""; Z10:HB23HBHB24: SIDNEY!H6H09:H623H6H624: TOKYOGH7H012:H723H7H724: N.ZEALkH8H06:H823H8H824: DACCAH9H0:H923H9H924: LONDONHA$(HA):HA$(HA$,2):HO$((H0),2)H2$((H2),2):H3$((H3),2):H4$ENTER TIME ZONE" :"TYPE E IF IN EASTERN U.S. TIME ZONEE :"TYPE C IF IN CENTRAL U.S. TIME ZONEj :"TYPE M IF IN MOUNTAIN TIME :"TYPE P IF IN PACIFIC TIME :"IF NOT IN CONT. U.S., TYPE O FOR OTHER": "IF  HJ$((HJ),2)8 HP$((HP),2)B HT$((HT),2)&L HU$((HU),2)9V H9$((H9),2)Y` MM$(TI$,3,2):SS$(TI$,2)j "";HA$;":";MM$;"";H2$;":";MM$t 18);"";H9$;":";MM$~ 35);"";H6$;":";MM$; "";HH$;":";MM$PINGS TIME (Y/N)"!0 DS$: DS$"" 3120!: DS0"D DS$"Y" DS1"N "TYPE C IF IN CENTRAL U.S. TIME ZONEj :"TYPE M IF IN MOUNTAIN TIME :"TYPE P IF IN PACIFIC TIME :"IF NOT IN CONT. U.S., TYPE O FOR OTHER": "IF  ";HT$;":";MM$;""A "";27);H10$;":";MM$;""s "";33);HB$;":";MM$;"" "";24);HC$;":";MM$;"" "";HD$;":";MM$;"" "";4 "" OO O18&X((K(O28(O28)))15)24.EX;E);"E"C OZ Z$: Z$"" 2310k Z$"Z"  Z$"S" 1330$ OO20:QFQF20: 1600. D21:M2M21:8 YYYI((M14)12):MM1312F((M14)12)B JDDI((3 TO GET ALONG." 5606"COMPATABILITY IS: "X5"% ........"_"YEW COULD BE PRETTY GOOD FRIENDS"h560&"SUPER TERRIFIK...COMPATABILITY OF: "X5"%"0"HERE ARE THE COMPATABILITY BREAKDOWNS:"D" "1250  I(X)(X)((X))-  F(X)XI(X)E  F(12),J(2),O$(51)O K2a I112:F(I)i  I (31,28,31,30,31,30,31,31,30,31,30,31 2"" <"BIRTH DATE: MM,DD,YYYY ";M1,D1,Y1 FMM1:DD1:YY1: 2360 PQ1JD ZM2M1:D2D1: $P*****************************GQ* *jR* BIO COMPATABILITY PGM *S* *T* ORIGINAL CONCEPT BY *U* JOE CANNATA *V* * W* J2639723 P28 N1Y2.1W OJ2J1(N14)(Y14)(N1100)(Y1100)(N1400)(Y1400)f M121570u XY1:2020 OOX "M23 1600 ,XY2: 2020 6OOX @ PRINT HEADER J"" T7);"DOWN";20);"CRITICAL";38);"UP"^RSION 2.1 *1 _* *T `*****************************Z a ` b f c n A(24),B(29),C(34),M(12) o x100,92.3,81.6,73.9,65.2,56.5,47.8,39.1,30.4 21.7,13,4.3,4.3,13,21.7,30.4,39.1 47.8,56.5,65.2,73.7 P21D2D21 D2F(M2) 23500 M213 1810AM21:Y2Y21RXY2:F(2)28] 2020m&F(2)F(2)Xu0 O: 2100D FINDA DE DAZE OF DE WEEKNN1M212(.61M2)XN2Y2(.61M2)bN3(13(N11)5)lN4(5N2,31,31,30,31,30,31 + Z1 24 : A(Z) : F Z1 29 : B(Z) : a Z1 34 : C(Z) : | Z1 12 : M(Z) : "BIORHTYHM COMPATABILITY TEST" "ENTER YOUR BIRTHDATE: MM,DD,YY" " P, Q, R ,630 6 S0 290X4(X4)02080  X1 X0*%4OY0>""@H OO O19bRX((K(O23(O23)))15)24j\PXwfP);"P"p OzOY"" OO O19X((K(O33(033)))15)24IXI);"I" OOYIN$TR$X5(X2X3X4)3:X5(X5)* X525 470< X550 500N X575 530X 550"WITH A COMPATABILITY OF ONLY:"X5"% ....""THERE AIN'T MUCH HOPE."560"COMPATABILITY IS: "X5"% ....""YEW OTTA BE ABLEE, PLOTS A SHORT CHART [ 20 DAYS ]."O ~AD$"TO CONTINUE ON; PRESS THE SPACE BAR."l AE$"TO END; PRESS Z ." AF$"TO START WITH A NEW DATE; PRESS S ." AA$ "" AB$ "";AC$ "";AD$ "";AE$ "";AF$ Z$:Z$"/67MM5)12)I(365.25(YY4712))2.5L %4OY0>""@H OO O19bRX((K(O23(O23)))15)24j\PXwfP);"P"p OzOY"" OO O19X((K(O33(033)))15)24IXI);"I" OOYY2Y1 d 1860 nPIP2 xC "STARTING DATE: MM,DD,YYYY ";M2,D2,Y2] MM2:DD2:YY2: 2360p Q2JD:QFQ2Q1{  1860  CALCULATES OFFSET XM1:1960 JIJ2D1Y1365  J1639723 PI8 XM2: 1960 J2J2D2Y2365  GREATLY IMPROVED BY *< X* (THAT AMAZIN') *_ Y* * Z* MERGATROID MAHOONEY * [* * \* JUNE 21, 1981 * ]* * ^* VEH$"----------------!----------------"'h 7);H$Gr SET F(2) TO 29 FOR LP YRSP|XY2`F(2)F(2)Xt MAKA DE CHART}YQF"" OO O19M2;"/";D2;23);"!" INCRUMENT THE DATE P28 1770P2P21 P29,81.6,92.3,1003 100,93,86,79,71,64,57,50,43,36,29,21\ 14,7,0,7,14,21,29,36,43,50,57,64,71n 79,86,93,100 100,94,88,82,76,70,64,58,52,46,39,33 27,21,15,9,3,3,9,15,21,27,33,39,46 52,58,64,70,76,82,88,94,100 31,28,31,30,31,304)vN5(N2100)N6(N2400)-N7N3N4N5N6D21CP2N77(N77)1Ic DAZE IN PAST MONTHSlJ20| I1 X1J2J2F(I) I CHECK FOR LEAP YR X400(X400)02060 X100(X100)02080 @S1S+ J"ENTER THE OTHER BIRTHDATE: MM,DD,YY"9 T P, Q, RB ^630R h S0 330[ rS2Sk |D9(S1S2) X2A(D9((D923)23)1):TRX2:900:PH$TR$ X3B(D9((D928)28)1):TRX3:900:EM$TR$ X4C(D9((D933)33)1):TRX4:900: j4,"THE PURPOSE OF BIORHYTHM IS TO PREDICT"Ht4,"A PHYSICAL, EMOTIONAL AND INTELLECTUAL"ty4,"PATTERN THAT INDICATES YOUR UP AND"~4,"DOWN DAYS FOR ANY PERIOD OF TIME."4," BIORHYTHM CAN SHOW WHICH DAYS WERE"4,"GOOD OR BAD FOR  0 T$" ANALYSIS FOR "N$" ") T2$S$:1060D 4," "v T$" BORN "DAY$(RB)", "M$(MB)(DB)", 19" T$T$(((YB10)),1)((YB),1)" " T2$"":1060 RTS1((TS1)7)7 660 T$" STARTING DATE "DAY$(R)" NED"4,"THROUGH THESE STUDIES THAT A PHYSICAL"A4,"CYCLE OCCURS EVERY 23 DAYS, AN"p4,"EMOTIONAL CYCLE OCCURS EVERY 28 DAYS,"4,"AND AN INTELLECTUAL CYCLE OCCURS EVERY"4,"33 DAYS."4," THE CRITICAL DAYS OCCUR DURING THE" (R)R 860SR365SS((R1)4)/ P1 P12 860B (P)P 860P I1 P_ SSM(I)evL((R4)4) P3 770SS1 Q1 860  Q (Q) 860QM(P) 810  840* L0 8604 P2 33(X33(X33))))" DAYS INTO THE INTELLECTUAL CYCLE"<lT2$"":1060ivT$"P = THE PHYSICAL CYCLE":T2$"":1060T$"E = THE EMOTIONAL CYCLE":T2$"":1060T$"I = THE INTELLECTUAL CYCLE":T2$"":106044,13)"DOWN UP)R 860SR365SS((R1)4)/ P1 P12 860B (P)P 860P I1 P_ SSM(I)evL((R4)4) P3 770SS1 Q1 860  Q (Q) 860QM(P) 810  840* L0 8604 P2 I)CNF(I)CNF(I)0:F$(I)"":F$(J)"C":F1:850O*F(I)F(J)F(I)0:F$(I)"":F$(J)"X":850c4QF(I):Q$F$(I)}>F(I)F(J):F$(I)F$(J)HF(J)Q:F$(J)Q$RJ,I\F1T$T$(AR$,CN1(T$))fI03pW(T$)zF(I)W910T$T$(13):8 I1CO:SP$SP$" ":AS$AS$" ":AR$AR$"--":M I112:A%(I):c I06:DAY$(I):x I112:M$(I): DD$ "INPUT YOUR NAME";N$ Z0 "INPUT BIRTH DATE MM,DD,YY";MB,DB,YB MS(MS):DS(DS):YS(YS) ""INPUTY$(R),3)" "(DD$,2DS1,2)" ":ZZ1:7203MS13MS1:ZZ1:700BZZ1:700R1300:1320dSS13:4,:m250|$CT(CO2).T2$""CTCO8T1((CT(T$))2)BT114,T$:1120LT2$T2$(AS$,T1)T$V4,T2$:4`r"HOW MANY DAYS TO RUN";SPC |"WOULD YOU LIKE THE BIORHYTHM THEORY"h "EXPLAINED ON YOUR PRINTOUT";P$t SPSP1 RBTB1((TB1)7)7 ""; 4,"";S$"********** B I O R H Y T H M **********" 4,(CR$,2) (P$,1)"Y" 113YOU BEGINNING WITH",4,"YOUR BIRTH. IT CAN ALSO SHOW YOU WHICH"Y4,"FUTURE DAYS WILL BE GOOD OR BAD FOR"g4,"YOU."4," THESE PREDICTIONS ARE BASED ON"4,"SCIENTIFIC STUDIES TO DETERMINE WHY"4,"ACCIDENTS OCCUR. IT WAS LEAR"&N"COMPATABILITY OF: "PH$22)"% PHYSICALLY"VX"COMPATABILITY OF: "EM$22)"% EMOTIONALLY"b"COMPATABILITY OF: "IN$22)"% INTELLECTUALLY"l""::270m n v ***CALCULATE ELAPSED DAYS*** R1 860 R99 860,"M$(MS)(DS)", 19"6 &T$T$(((YS10)),1)((YS),1)" "G 0T2$"":1060 :T$((23(X23(X23))))" DAYS INTO THE PHYSICAL CYCLE" DT2$"":1060 NT$((28(X28(X28))))" DAYS INTO THE EMOTIONAL CYCLE" XT2$"":1060+bT$(( 860> Q29 860 HSSQR9\"INVALID DATE (DUMMY) * RE-ENTER"AfS0Gpg *** FORMATTIN' SUBRT. ***ADD0: TR100 ADD1 TR10 ADD2TR$(TR)ADD0 TR$(TR$,3):ADD1 ADD2 TR$" "TR$ :"13001320 AT$(DAY$(R),3)" "(DD$,2DS1,2)" "M$(MS)WF(0)CN:F$(0)"*"sF(1)CNI(X):F$(1)"I"F(2)CNE(X):F$(2)"E"F(3)CNP(X):F$(3)"P"F0I02 JI13F(I)F(J)850! F(I)F(J)F(d BIOPRINTER 6.0)nA%(12),M$(12)Mx""9)" B I O P R I N T E R "{"INPUT DEVICE #, SCREEN=3 PRINTER=4";DVDV3DV41304,DVCO39*FOR80 COL:IFDV=4THENCO=79S$(1):CL((CO10)2):CNCL10 I110:CR$CR$(SP$,F(I)W)F$(I)44,T$:XX.5:(X)XT$" ":720CZSP1030VRR1:R7R0DSDS1:MS4MS6MS9MS11L30:990MS2YS4(YS4)L29:990MS2L28:990L31DSLDSDSL:MSMS1:1010T$(DA START DATE MM,DD,YY";MS,DS,YS9 ,MB(MB):DB(DB):YB(YB)Y 6I(X)(CL(2X33).5)y @E(X)(CL(2X28).5) JP(X)(CL(2X23).5) TTS(DS365.25YSA%(MS).01MS.03) ^TB(DB365.25YBA%(MB).01MB.03) hXTSTB  I038 P88((PSI)PI23).5A ""(R$,I1);(D$,P2);""G S I138p E88((ESI)PI28).5 ""(R$,I1);(D$,E2);""  I138 IT88((ISI)PI33).5 ""(R$,I1);(D$,IT2);"*"  &A$:A$"" "SUGGEST A MINIMUM OF 25 FOR STATISTICAL SIGNIFICANCE.;  N1q "OK. ENTER YOUR SELECTION (D,P,C,T,OR S)": 690 "ENTER YOUR NEXT SELECTION (D,P,T,C,OR S)  G$: G$"D" G1: 1000  G$"P" G2: 1000  G$"C" G3: 1000  " C ""N I18} " "  "" MDMS:D1DS:YDYS I038 I2(I2)"";:790    L16)" - V15)" F `15)"ߒ ] j16)"ߒ r t17)"ߒ  ~18)"ߩ 19)"ߩ "": F1 1520  1600 ""15)" 15)"""I1CO:4,"-";::4(I1CO:4,"-";::42L<0,31,59,90,120,151,181,212,243,273,304,334FMONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY,SUNDAYPJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUSTZSEPTEMBER,OCTOBER,NOVEMBEMD1:MD12MD1:YDYD1RM\"":"PHYSICAL= EMOTIONAL= INTELLECTUAL=*";jfC$"UP CRIT DWN"wp"";zI1(C$)(C$,I,1)"";31,28,31,30,31,30,31,31,30,31,30,31"JAN","FEB","MAR","APR","MA6 CONVERTED FROM PET TO COMMODORE 64BY RICK BEAMLc53281,0:53280,0ad BIORHYTHMN 1.5ln"";xH100.01:F.001M%(12),M$(12)I112:M%(I):I112:M$(I):D$"" R$"&53272,21:53280,1:53281,1:""E""11)"*** ESP TEST ***o"THIS PROGRAM TESTS ONE VARIETY OF"EXTRA-SENSORY PERCEPTION: THE ABILITY TOPREDICT FUTURE EVENTS."I WILL SELECT ONE OF FIVE SYMBOLS "RANDOMLY BUT WILL NOT DISCMM,DD,YY ";MS,DS,YS ,TS0$ 6T1YS42 @MS2370@ JI1MS1P TTSTSM%(I)V ^v h(T1(T1))(MS2)TSTS1 rTSTS365YS(T1)DS |TTTSTB PS23(TT23(TT23)) ES28(TT28(TT28)) IS33(TT33(TT33)) 580 S IN ORDER. ]HC0:CC0B b"DO YOU WISH TO SEE THE SYMBOLS BEFOREq l"STARTING? PRESS 'Y' FOR YES, 'N' FOR NO. v Y$: Y$"Y" F1:1500  Y$"N" 650 " WRONG KEY: TRY AGAIN.": 630 "HOW MANY TRIALS DO YOU WISH TO MAKE? I2 550G 0" "P :290Z D"";~ N"BIORHYTHMN FOR "N$" BORN "; XM$(MB);DB;",19";((YBHF),3,2) b"" lI18 v"  G$"T" G4:1000&  G$"S" G5: 1000J "WRONG KEY: TRY AGAIN.": 690\ D((5)5)1m  D1 1070~  D2 1170  D3 1200  D4 1290 $ D5 1400 ): : TEMP .""19)" 818)" B17)"4,"TRANSITION FROM POSITIVE TO NEGATIVE"?4,"STATES. DURING THE CRITICAL DAYS YOU"o4,"ARE MORE PRONE TO ERRORS, ACCIDENT AND"4,"PHYSICAL SETBACKS."4," THIS BIORHYTHM PLOT FLAGS THE"4,"CRITICAL DAYS."4:4 A$(D1)(A$)3B$(A$,1):760<B$(A$,2,1)""(A$,1)""EB$;XC$"" (D11)(D12)""M$(MD)" 19"((YDHF),3,2);C$;D1D11 D1M%(MD)850*MD28404YD4(YD4)840>D130850 HD11:MDTR,DECEMBER0d" 1 2 3 4 5 6 7 8 910111213141516171819202122232425262728293031"AYS YOU"o4,"ARE MORE PRONE TO ERRORS, ACCIDENT AND"4,"PHYSICAL SETBACKS."4," THIS BIORHYTHM PLOT FLAGS THE"4,"CRITICAL DAYS."4:4 0Y","JUN","JUL","AUG","SEP","OCT","NOV","DEC"(A$,2,1)""(A$,1)""EB$;XC$"" (D11)(D12)""M$(MD)" 19"((YDHF),3,2);C$;D1D11 D1M%(MD)850*MD28404YD4(YD4)840>D130850 HD11:MD" PI27 "INPUT NAME PLEASE";N$b "INPUT BIRTHDAY MM,DD,YY ";MB,DB,YBk TB0w T1YB4 MB2280 I1MB1 TBTBM%(I)  (T1(T1))(MB2)TBTB1 TBTB365YB(T1)DB ""INPUT START DATE  LOSE IT UNTIL4 &"YOU HAVE RECORDED YOUR PREDICTION.e 0"THE FIVE SYMBOLS ARE DIAMOND, PARALLELS," :"CROSS, TRIANGLE, AND SQUARE. D"SKETCH THEM ON A PIECE OF PAPER OR N"REMEMBER THE WORD 'DEPICTS', WHICH HAS X"THE INITIAL CONSONANT YOU*" "DO YOU WISH TO BE ABLE TO*"3 "DOES THAT TROUBLE YOU?"\ "TELL ME MORE ABOUT SUCH FELLINGS."v "DO YOU OFTEN FEEL*" "DO YOU ENJOY FEELING*" "DO YOU REALLY BELIEVE I DON'T*" "PERHAPS IN GOOD TIME I WILL*" "DO YOU W (R$)) R$ 5405C$(C$,L1) S$ (C$,(C$)L(R$)1)DLL (S$)L LT& X+ (C$,2,1) " " C$(C$,(C$)1): ONLY 1 SPACE: - USE KEYWORD(K) TO GET REPLY-N: X 1 N1N2: Z$: XXX 1 R(K): F$: X: READ RIGHT RRUN OF 25 OR MORE."$"ANOTHER RUN? ('Y' OR 'N')";- Y$@ Y$"Y" 605U Y$ "N" 1810y"WRONG KEY: TRY AGAIN": 1775"OK. IT'S BEEN A PLEASURE TO COMPUTE FOR""YOU. TRY ME AGAIN SOON!"710685"YOUR PREDI YOU TRIED?","PERHAPS YOU CAN NOW*"=6"DID YOU COME TO ME BECAUSE YOU ARE*"\@"HOW LONG HAVE YOU BEEN*"J"DO YOU BELIEVE IT IS NORMAL TO BE*"T"DO YOU ENJOY BEING*"^"WE WERE DISCUSSING YOU - NOT ME."h"OH I*" r"YOU'RE NOT ANT","I AM","IM"B . "YOU ","I WANT","WHAT","HOW","WHO","WHERE","WHEN","WHY"} 8 "NAME","CAUSE","SORRY","DREAM","HELLO","HI ","MAYBD" B "NO","YOUR","ALWAYS","THINK","ALIJE","YES","FRIEND" L "COMPUTER","NOKEYFOUND"  - STR DATA FOR CONJUGATION-  I$#I$ " " I$ " "7S RIDS US OF 'K L 1 (I$) (I$,L,1) "'" I$(I$,L1)(I$,(I$)L): 230 L4 (I$) (I$,L,4)"SHUT" "SHUT UP!": L I$P$ "STOP REPEATING YOURSELF!": 170  (16)" )215)" C<14)" [F14)"qP"": F1 1520{Q1600x""16)" W16:16)"  " W16)""": F1 1520RHAPS YOU DON'T WANT TO*"+ U"DO YOU WANT TO BE ABLE TO*"M Z"WHAT MAKES YOU THINK I AM*"x d"DOES IT PLEASE YOU TO BELIEVE I AM*" n"PERHAPS YOU WOULD LIKE TO BE*" x"DO YOU SOMETIMES WISH YOU WERE*" "DON'T YOU REALLY*" "WHY DON'T SC$ " "(I$,(I$)(F$)L1). X 1 N22: S$,R$L L 1 (C$)h L(S$) (C$) 510 (C$,L,(S$)) S$ 510C$(C$,L1)R$ (C$,(C$)L(S$)1)L L(R$) 540 L (R$) (C$) 540  (C$,L,CTIONS WERE"HCCC100"% CORRECT.;"CHANCE RESULTS WOULD GIVE 20% CORRECT.l"YOUR PREDICTIONS HAD A CRITICAL RATIO OF";(5HCN1)(2(N1))"STANDARD DEVIATIONS.""A FIGURE GREATER THAN +2.7 S.D. WOULD BE";"SIGNIFICANTLY HIGH FOR A ANT ME TO*"""DO YOU THINK YOU SHOULD BE ABLE TO*"8"WHY CAN'T YOU*"j"ARE YOU INTERESTED IN WHETHER OR NOT I AM*""WOULD YOU PREFER IF I WERE NOT*""PERHAPS IN YOUR FANTASIES I AM*""HOW DO YOU KNOW THAT YOU CAN'T*"""HAVEEPLY% bR(K) R(K)1: R(K) N(K) R(K)S(K)M l (F$,1) "*" F$:P$I$: 170d v (F$,(F$)1);C$t P$I$: 170  - KEYWORDS -  "CAN YOU","CAN I","YOU ARE","YOURE","I DONT","I FEEL" $ "WHY DONT YOU","WHY CANT I","ARE YOU","I C ** ELIZA **$Z -- INIT --<d S(36),R(36),N(36)UnN136: N212: N3112rx X1 N1N2N3: Z$:X X 1 N1 S(X),L: R(X) S(X): N(X) S(X)L1 X "HI THERE! I'M ELIZA. WHATS YOUR PROBLEM" -USER INPUT SEC: F1 1520  1600&""19)" "419)" "B19)" "Y15)" "p15)""~19)" "19)" "19)" """: F1 1520 1600 ""19)"18)"17)"TION -8  " ARE "," AM ","WERE ","WAS "," YOU "," I ","YOUR ","MY "a  " IVE "," YOUVE "," IM "," YOURE "s  - REPLIES - 2"DON'T YOU BELIEVE THAT I CAN*" <"PERHAPS YOU WOULD LIKE TO BE ABLE TO*" F"YOU WANT ME TO BE ABLE TO*" P"PE- FIND KEYWORD IN I$ -" 'S0/, K 1 N186 K$H; S0 360b@ L 1 (I$)(K$)1T (I$,L,(K$)) K$ SK:TL:F$K$^ Lh Km S0 KS: LT: 390rK36: 570: X 1 N1: Z$: X: SKIP OVER KEYWORD  1600 K1 5 DKTTI: 10204 TIT120 1520=TTIE KTF0: 650`@CCCC1J GD HCHC1: "RIGHT!";: 1630T"WRONG. ";^HC"CORRECT OUT OF"CC"TRIALS."h CCN1 1710685"YOUR PREDI :" TYPE A FOR ANALYSIS OR S FOR"1 "SELECTION.";: Z$M Z$"S" 740`  Z$"A" 240~ " ANALYSIS" :" ENTER UP TO TEN ALTERNATIVES." "" DON'T USE PUNCTUATION." ," TYPE * TO END THE LIST." 6:" WHAT DE KING ABOUT ME IN PARTICULAR?" "ARE YOU FRIGHTNED BY MACHINES?"> "WHY DO YOU MENTION COMPUTERS?"$ "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEMS?". "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?"8 "WHAT IS IT ABOUT MACHINES TH HAT PERSONS APPEAR IN YOUR DREAMS?","ARE YOU DISTURBED BY YOUR DREAMS?"]"HOW DO YOU DO..PLEASE STATE YOUR PROBLEM.""YOU DON'T SEEM QUITE CERTAIN.""WHY THE UNCERTAIN TONE?""CAN'T YOU BE MORE POSITIVE?""YOU ARE'NT SURE?"! ::: "1 ";A$(I)# :"0 ";A$(J),  B$>  B$"1" 520P  B$"0" 540Z  480j T(I)T(I)1t  550 T(J)T(J)1 & J 0 I :"";D$:::: D I1 N NB(I) (100T(I)((N2N)2)) X I b I1 N l JIS QUITE INTERESTING.!" # 1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3[ 28,4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,9 49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,4 80,3,83,7,90,3,93,6,99,7,106,6 IT ABOUT MACHINES TH FIC EXAMPLE?" "WHEN?"*"WHAT ARE YOU THINKING OF?".4"REALLY, ALWAYS?"M>"DO YOU REALLY THINK SO?"nH"BUT YOU ARE NOT SURE YOU*"R"DO YOU DOUBT YOU*"\"IN WHAT WAY?"f"WHAT RESEMBLENCE DO YOU SEE?"p"WHAT DOES THE SIMILA "WHAT ANSWER WOULD PLEASE YOU THE MOST?"."WHAT DO YOU THINK?"\"ARE SUCH QUESTIONS ON YOUR MIND OFTEN?""WHAT IS IT THAT YOU REALLY WANT TO KNOW?""HAVE YOU ASKED ANYONE ELSE?""HAVE YOU ASKED SUCH QUESTIONS BEFORE?""W ", " SELECTION CHOOSES AMOUNG MULTIPLE"N "ALTERNATIVES AND CRITERIA."{ :" EXAMPLE: TO DECIDE ON A VACATION," "USE ANALYSIS ON THE CRITERIA:" "ADVENTURE, TIME, AND COST. THEN USE" "SELECTION ON: ASPEN, HAWAII, NEPAL." NDS?""DO YOUR FRIENDS WORRY YOU?"#"DO YOUR FRIENDS PICK ON YOU?"M"ARE YOU SURE YOU HAVE ANY FRIENDS?"s"DO YOU IMPOSE ON YOUR FRIENDS?""PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU.""DO COMPUTERS WORRY YOU?" "ARE YOU TAL AT OTHER REASONS MIGHT THERE BE?""D"PLEASE DON'T APOLOGIZE!"FN"APOLOGIES ARE NOT NECESSARY."rX"WHAT DO YOU FEEL WHEN YOU APOLOGIZE?"b"DON'T BE SO DEFENSIVE!"l"WHAT DOES THAT DREAM SUGGEST TO YOU?"v"DO YOU DREAM OFTEN?""W CISION IS REQUIRED?" @ D$; J:"LIST IMPORTANT CRITERIA:":J T I1 10T ^5);` h A$(I)v r A$(I)"*" 390~ | I NI1  I1 N1  JI1 N "" "SELECT THE MOST IMPORTANT WITH" "RESPECT TO ";D$;":"  AT WORRIES YOU?"B "SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?">L "WHAT DOES THAT SUGGEST TO YOU?"LV "I SEE."x` "I'M NOT SURE I FULLY UNDERSTAND YOU."j "COME, COME, ELUCIDATE YOUR THOUGHTS!"t "CAN YOU ELABORATE ON THAT?"~ "THAT "DON'T YOU KNOW?"!"ARE YOU SAYING NO JUST TO BE NEGATIVE?"F"YOU ARE BEING A BIT NEGATIVE."V"WHY NOT?"k"ARE YOU SURE?"z"WHY NO?""WHY ARE YOU CONCERNED ABOUT MY*" "WHAT ABOUT YOUR OWN*""CAN YOU THINK OF A SPECI REALLY TALKING ABOUT ME,ARE YOU?"6|"WHAT WOULD IT MEAN TO YOU IF YOU GOT*"N"WHY DO YOU WANT*"k"SUPPOSE YOU SOON GOT*""WHAT IF YOU NEVER GOT*""I SOMETIMES ALSO WANT*""WHY DO YOU ASK?""DOES THAT QUESTION INTEREST YOU?" ? 53280,0:53281,0:E31744: C64 MODS BY WIM '83Id""pn" ***DECISION MAKER***":x" DECISION MAKER IS IN TWO PARTS,""ANALYSIS AND SELECTION."" ANALYSIS IS USED TO STUDY""ALTERNATIVES AND CRITERIA. RITY SUGGEST TO YOU?"z"WHAT OTHER CONNECTIONS DO YOU SEE?"H"COULD THERE REALLY BE SOME CONNECTION?"T"HOW?"t"YOU SEEM QUITE POSITIVE.""ARE YOU SURE?""I SEE.""I UNDERSTAND.""WHY DO YOU BRING UP THE TOPIC OF FRIE HAT ELSE COMES TO MIND WHEN YOU ASK THAT?"."NAMES DON'T INTEREST ME."]"I DON'T CARE ABOUT NAMES..PLEASE GO ON."}"IS THAT THE REAL REASON?"&"DON'T ANY OTHER REASONS COME TO MIND?"0"DOES THAT REASON EXPLAIN ANYTHING ELSE?":"WH! $(R)","M$(MS)(DS)", 19"< T$T$(((YS10)),1)((YS),1)" "M T2$"":1040 &T$((23(X23(X23))))" DAYS INTO THE PHYSICAL CYCLE" 0T2$"":1040 :T$((28(X28(X28))))" DAYS INTO THE EMOTIONAL CYCLE" DT2$"":10401NT! d BIOPRINTER 6.0,e53280,0:53281,0zi ASTRO SIGNS ADDED & MODIFIED FOR THE 64 BY PETE LOWAS, HOT SPRINGS, ARKnA%(12),M$(12)x"  B I O P R I N T E R ""INPUT DEVICE #,SCREEN=3 PRINTER=4":DVDV3DV4130! 1 Mj5);D$(J): Jt"":::::/~ J1 M: E$(J)HD(I,J)((E$(J),4))]S(I)S(I)D(I,J)e Jm I{ I1 N J1 MT(J)T(J)C(I)D(I,J)T0 T0 C(I)D(I,J)D(I,J)(10D(I,J)C(I)S(I).5) J" AL"28)"UP"12801300KT$(DAY$(R),3)" "(DD$,2DS1,2)" "M$(MS)aF(0)CN:F$(0)""}F(1)CNI(X):F$(1)"I"F(2)CNE(X):F$(2)"E"F(3)CNP(X):F$(3)"P"F0I02JI13F(I)F(J)830+ F(! Z0. "INPUT START DATE MM,DD,YY":MS,DS,YSM MS(MS):DS(DS):YS(YS)x ""INPUT BIRTH DATE MM,DD,YY":MB,DB,YB ,MB(MB):DB(DB):YB(YB) 11400 6I(X)(CL(2X33).5) @E(X)(CL(2X28).5) JP(X)(CL(2X!xX C(J):Y T2(J)C(J)C(J1):T2(J)T2(J1)4C(J1)X:T2(J1)Y< JD IY"";D1$:"":o J1 M:YT1(J) P1 J:14(P1));""; P4(J1));D$(Y) J P1 J1:14(P1));""; P: I!G MULTIPLE"!"ALTERNATIVES AND CRITERIA."I" THE RANKING USED IS 0 (BAD) TO"o "10 (GOOD). BE SURE TO REMEMBER""THIS WITH NEGATIVE CRITERIA." " TYPE * TO END A LIST."*4:"WHAT DECISION IS REQUIRED"> D1$:HR!1105 T$" ANALYSIS FOR "N$" "/ T2$S$:1040J 4," "| T$" BORN "DAY$(RB)", "M$(MB)(DB)", 19" T$T$(((YB10)),1)((YB),1)" " T2$"":1040 RTS1((TS1)7)7 640 T$" STARTING DATE "DAY"S" 740 1640J)C(J1):T2(J)T2(J1)4C(J1)X:T2(J1)Y< JD IY"";D1$:"":o J1 M:YT1(J) P1 J:14(P1));""; P4(J1));D$(Y) J P1 J1:14(P1));""; P: I!)C(I)((F$(I),4)) I""7: "LIST ALTERNATIVES":F I1 10P5);\ D$(I)s D$(I)"*" 1070{$ I.MI18 I1 NB""L:"RANK 0(BAD) TO 10(GOOD) WITH RESPECT"V"TO: ";C$(I);""::` J!$((33(X33(X33))))" DAYS INTO THE INTELLECTUAL CYCLE"BXT2$"":1040obT$"P = THE PHYSICAL CYCLE":T2$"":1040lT$"E = THE EMOTIONAL CYCLE":T2$"":1040vT$"I = THE INTELLECTUAL CYCLE":T2$"":104044, 6)"DOWN"30)"CRITIC! 4,DV CO39! DV4CO79F S$(1):CL((CO10)2):CNCL10b I110:CR$CR$(13): I1CO:SP$SP$" ":AS$AS$" ":AR$AR$"": I112:A%(I): I06:DAY$(I): I112:M$(I): DD$ "INPUT YOUR NAME":N$! I  J1 M:T1(J)J:J# I1 N:T2(I)I:I1  I1 MA J1 M1Z T(J)T(J1) 1350n(X T(J):YT1(J)2T(J)T(J1):T1(J)T1(J1)<T(J1)X:T1(J1)YF JP IZ I1 Nd J1 M1n C(J)C(J1) 1430!1 N I v B(J)B(J1) 670- BB(J): A$A$(J)K B(J)B(J1):A$(J)A$(J1)c B(J1)B:A$(J1)A$k  Js  I  I1 N  B(I);5);A$(I)  I  220 :"" " SELECTION" :" SELECTION CHOOSES AMOUN!23).5)* TTS(DS365.25YSA%(MS).01MS.03)S ^TB(DB365.25YBA%(MB).01MB.03)_ hXTSTB r"HOW MANY DAYS TO RUN":SP |SPSP1 RBTB1((TB1)7)7 ""; 4,CR$;S$"* * * B I O R H Y T H M * * * " 4,(CR$,3) !1 N:XT2(I)  J1 M:YT1(J)#4(J1));D(X,Y);+ JB"4J2);C$(X): IH,T6 J1Mv@4(J1));(100T(J)T0.5);~J JT4(M));"TOTAL":^"TYPE A FOR ANALYSIS,S FOR SELECTION."h Z$r Z$"A" 270| Z$! :"LIST CRITERIA FOR DECISION:"\-f I1 10:5);9p C$(I)Nz C$(I)"*" 910V I`NI1""::"RANK 0(BAD) TO 10(GOOD) WITH RESPECT""TO ";D1$;"": I1 N:5);C$(I) I"":::: I1 N: F$(I" TCH FOR MY OTHER COMMER-7  CIALLY AVAILABLE PROGRAMS.= J P""` Z53280,0:53281,0} d11)" n11)" x11)" 11)" 11)"  11)"" 59,90,120,151,181,212,243,273,304,334A2MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY,SUNDAYx<JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUSTFSEPTEMBER,OCTOBER,NOVEMBER,DECEMBERP" 1 2 3 4 5 6 7 8 91011121314151617181920212223242526" ELLECTUAL PATTERN THAT INDICATES YOUR ";Ej4,"UP AND DOWN DAYS FOR ANY PERIOD OF TIME."t4,"BIORHYTHMS SHOW DAYS THAT ARE GOOD OR BAD FOR YOU STARTING ";~4,"WITH YOUR BIRTH. IT CAN ALSO SHOW YOU WHICH FUTURE DAYS WILL";4," BE GO" WET PAINT" ? \ y  THIS SOFTWARE IS P.D.  LET'S HEAR IT FOR FREE SOFTWARE! LET'S ALSO HEAR IT FOR MAKING A  BUCK. WA"3 HS$"'CANCER' (JUN 21-JUL22)"E MB7 DB22 MB8 DB23 HS$"'LEO' (JUL 23-AUG22)" MB8 DB22 MB9 DB23 HS$"'VIRGO' (AUG 23-SEP22)" MB9 DB22 MB10 DB23 HS$"'LIBRA' (SEP 23-OCT22)" "EVERY 23 DAYS; AN EMOTIONAL CYCLE OCCURS EVERY 28 DAYS,";e4,"AND AN INTELLECTUAL CYCLE OCCURS EVERY 33 DAYS.THE CRITICAL ";4,"DAYS OCCUR DURING THE TRANSITION FROM POSITIVE (HIGH) TO ";4," NEGATIVE (LOW) STATES."4,"DURING THE CRI" pT$T$(SP$,F(I)W)F$(I)z>4,T$:XX.5:(X)XT$" ":700MZSP1010`RR1:R7R0DSDS1:MS4MS6MS9MS11L30:970MS2YS4(YS4)L29:970MS2L28:970L31DSLDSDSL:MSMS1:990!dS' (JAN 20-FEB18)"0 MB2 DB18 MB3 DB21 HS$"'PISCES' (FEB 19-MAR20)"6-AUG22)" MB8 DB22 MB9 DB23 HS$"'VIRGO' (AUG 23-SEP22)" MB9 DB22 MB10 DB23 HS$"'LIBRA' (SEP 23-OCT22)" "-EMOTIONAL (LOVE/HAPPINESS) AND I-INTELLECT ";Y4," (MENTAL/CAREER) BIORHYTHMS FOR THE TIME (MIDNITE/NOON) INDICATED"4:"DEPRESS SHIFT KEY TO CONTINUE":653,1I1CO:4,"";::4 I1CO:4,"";::4(0,31," YOUR ZODIAC SIGN IS ";HS$:"" B"":4,T2$:4&LgQ4,"BIORHYTHM COMES FROM TWO GREEK WORDS; BIO(LIFE) AND ";S4,"RHYTHMOS MEANING REGULATED BEATS"V4,"THE PURPOSE OF BIORHYTHM IS TO PREDICT A PHYSICAL,";`4,"EMOTIONAL AND INT# * 7)" N 7)" p 7)" ݭ 7)" ݰ 7)" 7)" " FREEWARE "2728293031"-xMB3 DB20 MB4 DB20 HS$"'ARIES' (MAR 21-APR19)"s MB4 DB19 MB5 DB21 HS$"'TAURUS' (APR 20-MAY20)" MB5 DB20 MB6 DB21 HS$"'GEMINI' (MAY 21-JUN20)" MB6 DB20 MB7 DB2"OD OR BAD FOR YOU. THESE PRED-ICTIONS ARE BASED ON ";a4,"SCIENTIFIC STUDIES TO DETERMINE WHY MANY ACCIDENTS OCCUR.":"DEPRESS SHIFT KEY TO CONTINUE":653,14,"IT WAS LEARNED THRU THESE STUDIES THAT A PHYSICAL CYCLE ";4,"OCCURS "I)F(J)F(I)CNF(I)CNF(I)0:F$(I)"":F$(J)"C":F1:830YF(I)F(J)F(I)0:F$(I)"":F$(J)"X":830m QF(I):Q$F$(I)*F(I)F(J):F$(I)F$(J)4F(J)Q:F$(J)Q$>J,IHF1T$T$(AR$,CN1(T$))RI03\W(T$)fF(I)W890"MB10 DB22 MB11 DB22 HS$"'SCORPIO' (OCT 23-NOV21)"^ MB11 DB21 MB12 DB22 HS$"'SAGGITARIUS'(NOV 22-DEC21)" MB12 DB21 MB1 DB20 HS$"'CAPRICORN' (DEC 22-JAN19)" MB1 DB19 MB2 DB19 HS$"'AQUARIU"TICAL DAYS YOU ARE MORE PRONE TO ERRORS,ALONG ";^4,"WITH ACCIDENTS AND PHYSICAL SETBACKS. THIS BIORHYTHM PLOT ";4,"FLAGS THE CRITICAL DAYS."4,"THE CYCLES GRAPHED BELOW SHOW P-PHYSICAL(ENERGY/SEXUAL)PATTERNS";4," ALONG WITH E" T$(DAY$(R),3)" "(DD$,2DS1,2)" ":ZZ1:700<MS13MS1:ZZ1:680KZZ1:680[1280:1300k"":4,CR$t250CT(CO2)T2$""CTCO$T1((CT(T$))2).T11T$:11008T2$T2$(AS$,T1)T$ =4, " %0000kkkg@@gkkkf@j@# *.(*.(*.(+}O'(i(+ &8&` &m&`'8'((`'m'(i(`  S    ^ !)Lԩ:ԩ ԩԩԮ. .Ɋ`  t# i(iв` ʈ ӱ`ɺ` `(4/  㩮ɰ ɰ (,# BUD& "INSTRUCTIONS (Y/N) ?F ,C4:K55302:CV55329:KRK1k 6KK1:KCVCC1:KKR:C15C1 @L8052040:CLKL,C: JA$:1(A$"N")2(A$"Y")310,2000,1000 "CONGRATULATIONS, BUDDY! "GLAD TO HAVE YOU ON THE TEA#0 0003< 000 3? ? w3U |3}2?<2 00 3?00{0sp 7300@@;;#h  ׮` i i ` @ D!H"@@DDHH#$%ЩЩЍЩЍ ЩЩ\ # PAINTING AROUND IT BLUE..= 8"YEAH, I LIKE THINGS ABSTRACT, OKAY?!?i B"NOW, SMART GUY, I'LL PAY YOU A PENNY L"FOR EVERY INCH YOU PAINT. BUT, IF YOU V"OR ANY OF THESE OTHER GUYS PAINT OVER `"ANY WET PAINT, I'LL BLOW YOU UP!!!!!"8j#0000000d00000000000000d0000000j@f@000#  L#`8 &Э'Э n(jЭ)) JJJJJ}G#a8Hh  & Э'Ю I-Ѝ*( *Э)) JJJJJHh}GЏ))ԩ4ԩ܍ԩԩ`+'(&+ }K&# ) V 8. .,LOL ] T # $%LLܢJ ɠ8  "  `.` Щ!Щ؅HH' hh HHhh(ӥi(i#@DH)2++GAME OVERPRESS FIRE BUTTON TO PLAY AGAIN0 0 ? #-Ѝ`HH i hh`mmi`..L-#LHhH  " h?H . .h L8 h<   L_` ?H#M AS THE NEW/ "ASSISTANT PAINTER. NOW I'M THE BOSS[ "AND YOU'LL DO AS YOU'RE TOLD. I WANT "YOU TO PAINT AS MUCH OF THIS WHITE WALL "GREEN AS YOU CAN. MY OTHER ASSISTANTS $"ARE PAINTING IT OTHER COLORS AND I'VE ."JUST FINISHED#kkkg@@gkkkf@j@#Ѝ Ѝ ЩЩҍ Щ%Щ &Щ.Щ-Щ,Щ+Щ0ЍЍЩЩЩЩ'Ѝ(Ѝ)Щԩԩԩ-ԍԩԩԭ ԍ"\P#, $$%`8    ! ө Ѯ8# "NOW USE THE JOYSTICK IN PORT #1 AND":"GET BUSY!!!":""e"(PRESS THE FIRE BUTTON TO START)"((56321)16)011703724  - ,-. 8- ТJ># V