KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK  "-N" " .O" "4.P" "F.U PROGRAM #24n.V"OT SED ".W" ".X" PROGRAM ILLUSTRATES"'"THE USE OF DEFAULT NAMES IN PROMPTS."+'" "=' PROGRAM #16h'"IGIT ECOMP: OLUTION TO CTOBER "'"86'S OMMODARE TO WRITE A ROUTINE TO"'"DISPLAY EACH DIGIT OF A NUMBER SEP-"K *- PROGRAM #20*."IME ONVERTER2: NOTHER VERSION OF" +/"IME ONVERTER. "J+0" "r+1" "+2" "+7 PROGRAM #21+8"AD KKc ".Y" "/Z" " OR TAPE OPERATIONS."Q-F" "c-K PROGRAM #23-L"OT SED "-M" ' "ARATED BY A LUS SIGN, WITH THE SUM"( "OF DIGITS DISPLAYED AFTER ."%( PROGRAM #17O("OUND BOUT: OLUTION TO OVEMBER "z("1986'S OMMODARE TO WRITE A ROUTINE"("TO SCROLL A MESSAGE AROUND THE "("PERIMETER OF THE SK UCK: OLUTION TO OVEMBER ",9"1986'S OMMODARE TO WRITE A ROUTINE"*,:"THAT CALCULATES THE NEXT OCCURENCE"T,;"OF RIDAY THE 13TH. "x,<" ",A PROGRAM #22,B"TOW WAY: 'AVES' -64 PROGRAMS ",KKK CREEN IN MARQUEE "("FASHION. " ) PROGRAM #184)"ERIES EQUENCE: OLUTION TO "^)"OVEMBER 1986'S OMMODARE TO WRITE")"A ROUTINE TO LIST ALL POSSIBLE ")"WON AND LOST COMBINATIONS FOR A ")"BESTK C"INTO AN AREA OC , TO ALLOW THE"-D"USER ACCESS TO OTHER PROGRAMS "--E"WITHOUT DISK OR TAPE OPERATIONS."Q-F" "c-K PROGRAM #23-L"OT SED "-M" KKK  OF SEVEN ORLD ERIES. ")# PROGRAM #19*$"IME ONVERTER: OLUTION TO "<*%"OVEMBER 1986'S OMMODARE TO WRITE"f*&"A ROUTINE THAT CONVERTS A NUMBER "*'"OF HOURS ENTERED IN DECIMAL FORMAT"*("INTO HOURS:MINUTES:SECONDS FORMAT."K 587PO55507>X2X0HAN$(13)2140#R20807\X0882:4100EaX22160^bH3H13882:1550qoX1882:230p882:225I116:POI,5:: P$(1)"LANKSPEED" P$(2)"64 UG EP" P$(3)"128 UG EP." P$(4)"  " "SPACECRAFT THROUGH AN OTHERWORDLY"0 "GROTTO, DODGING EVER-EXPANDING "Z "COLUMNS AND ALIENS. (OYSTICK IN " "PORT 1 FOR ONE PLAYER.) " PROGRAM #5 "IGHTS UT: ID A HOUSE OF THE FIVE" "SPECTERS HAUN 828'(L$,8)1)""hI914:(L$,I)1)" "n"(L$,15)1)" [/=ANCEL * PC=UN ROGRAM] ",(L$,16)1)" DED BY ICMASHER. "! " "! PROGRAM #9C! "DECOMPRESSOR.O: HE PORTION OF "m! "-64 OMPRESSOR WHICH UNCRUNCHES "! "AREAS OF COMPRESSED BY "! "COMPRESSOR.O. HIS PROGRAM IS "! "LOADE MAX OF 33 CHRS IN LENGTH ** ---------------------------< I124:X15:IN$(I,X):::Mo PROGRAM #1wp "HIS IS HOY!'S ACHINE ANGUAGE "q "ENTRY PROGRAM FOR OUR ADVENTUROUS"r "READERS WHO LIKE TO TYPE IN THE"s "PROGRAMS OR: HE PORTION OF -64 "$"OMPRESSOR THAT RELOCATES COMPRESSOR"<$".O AND DECOMPRESSOR.O TO ANY AREA "e$"OF FREE , SAVES THE RELOCATED "$"FILE, AND NOTES NEW LOCATIONS."$ PROGRAM #13$"RESCUE 128: UTILITY THAT ALL EEHONK AVERNS" P$(5)"IGHTS UT", P$(6)"INBALL RCADE"C P$(7)"IZARD AG"\ P$(8)"COMPRESSOR.O"w P$(9)"DECOMPRESSOR.O" P$(10)"ICMASHER"( P$(11)"ECOMP EMO"2 P$(12)"ELOCATOR"7 P$(13)"RESCUE 128"< P$(14)"URBO TING IT BY RACING " "TO TURN ON ALL THE LIGHTS AS THE "> "SPEEDY SPOOKS TURN THEM OFF. "c " "t PROGRAM #6 "INBALL RCADE: AVE YOUR QUARTERS" "BY TURNING YOUR 64 INTO A PINBALL " "!1(L$,23)3)" ":1000H6I15:(L$,8I)3)""IN$(H,I):^@AN$:AN$""4160wJAN$(13)882:204TH3H13882:1550^AN$(32)882:230h4160I828935:A:I,A:: 160,0,185,0 D BY ECOMP EMO. "! PROGRAM #10#" "ICMASHER: HE PORTION OF -64 "J" "OMPRESSOR THAT WILL CONVERT "s""MULTICOLOR HI-RES PICTURES INTO A"""COMPRESSED FORMAT. """ "" PR FROM OUR MAGAZINE."t " "y PROGRAM #22z "HIS IS HOY!'S CHECKSUM PROGRAM."Z{ "SE IT FOR MISTAKE-PROOF TYPING"| "OF HOY! MAGAZINE ASIC PROGRAMS."} " "~ " " PROGR OWS "$"128 USERS TO RESTORE ACCIDENTALLY " %"ED PROGRAMS. "J%" "n%" "% PROGRAM #14%"URBOPOKE: MACHINE LANGUAGE "%"UTILITY THAT MOVES POKE" F P$(15)"EFAULT ROMPT"$P P$(16)"IGIT ECOMP."=Z P$(17)"OUND BOUT"Zd P$(18)"ERIES EQUENCE"vn P$(19)"IME ONVERTER" P$(20)"IME ONVERTER2" P$(21)"AD UCK" P$(22)"TOW WAY" P$(23)"OT SED" P$(24)"OT "MACHINE WITH FIVE TARGETS AND " "ADJUSTABLE FLIPPERS. (OYSTICK IN"F "ORT 2.) "W PROGRAM #7 "IZARD AG: RAVERSE A CASTLE IN " "SEARCH OF THE KEYS THAT WILL MAKE" "THE WIZARD APPEAR, WHILE AV ,4,153,0,192 185,0,216,153,240,195,185,2504 4,153,250,192,185,250,216,153X 234,196,185,244,5,153,244,193~ 185,244,217,153,228,197,185,238 6,153,238,194,185,238,218,153 222,198,200,208,205,96,160,0 185,0,192,153,0,4, OGRAM #11""ECOMP EMO: HE PORTION OF -64 "(#"OMPRESSOR THAT UNCRUNCHES FILES "S#"COMPRESSED BY ICMASHER. "}#" "#" "# PROGRAM #12#"ELOCAT AM #3 "HIS IS HOY!'S CHECKSUM PROGRAM". "FOR THE -128 COMPUTER. SE IT "W "FOR MISTAKE-PROOF MAGAZINE ASIC"{ "PROGRAM ENTRY. " " " PROGRAM #4 "AVERNS OF EEHONK: ILOT A DATA TO MEMORY"%"AT A BLAZING 11,000 BYTES PER "&&"SECOND. "F&" "X& PROGRAM #15&"EFAULT ROMPT: CCOMPANYING THIS"&"MONTH'S UPERT EPORT ON ASIC "&"STHETICS, THIS  SED" # CL819:(L$,CL)14)" ":< (L$,P)10)" ":a657,128: DISABLE SHIFT/COM KEY POKE775,200:REM DISABLE LISTING POKE808,234:REM DISABLE STOP/RESTOREL$"":PT$"=>": OIDING"  "DEADLY MONSTER VINES. "'  " "8  PROGRAM #8c  "COMPRESSOR.O: HE PORTION OF -64 "  "OMPRESSOR WHICH CAN BE USED TO "  "COMPRESS ANY AREA OF . HIS "  "PROGRAM IS LOA 185,240  195,153,0,216,185,250,192,153- 250,4,185,234,196,153,250,216Q 185,244,193,153,244,5,185,228w 197,153,244,217,185,238,194,153  238,6,185,222,198,153,238,218 200,208,205,96 --------------------------- ** ;"":53280,0:53281,0:646,1:12)"SERIES SEQUENCE"[ COMMODARES PROBLEM #35-2:u SERIES SEQUENCE SOLUTION BY KEITH KUSHNER Y7:X(Y2)1:Z2Y1:T0Z:B$"":W0:CT:V1Y:BC:BB2:C(B)& C$(BC):B$ $"":53280,0:53281,0:646,1D COMMODARES PROBLEM #35-3:] TIME CONVERTERo SOLUTION BY HOWARD G. REISER "NUMBER OF HOURS IN DECIMAL FORM";HXH$((HX))S3600(HX(HX)).5 (M(S)60:M$" :"( $"":53280,0:53281,0:646,1D COMMODARES PROBLEM #35-3:^ TIME CONVERTERp SOLUTION BY LEO BRENNEMAN "TIME IN DECIMAL HOURS";HH%H : MHH% :MM60 : M%M : SMM% : SS60 : S%S : S.5 S%S1 $"":53280,0:53281,0:646,1D COMMODARES PROBLEM #35-4:X BAD LUCKj SOLUTION BY KAREN MIDDAUGH P(12) : J1 12 : P(J):"YEAR: 19";Y: "MONTH (1-12): ";M: "DAY: ";D: D12 70+ L((Y3)4):D  <:4000*P P$(25),IN$(25,5):5000Sd53280,2:53281,0:(14):2500:5900\x800yH1:G0:L8:LC55590:P8I819:GG1:(L$,I)14)""P$(G):F(P$(H)):I0F:LCI,7::1000(L$,P)10)PT$AN$:AN$""206 AN$( "V C(L$,21)2)"" H(L$,22)1)"" R(L$,23)1)" RSR=ELECT PC=ORE /қ=XECUTE " \(L$,24)1)"l166,251,164,252,232;208,1,200,232,208,1,200,142,16,18,140,17b18,96,0,0,77,76,82,69,83,67,85,69"D"D8:120dA$"T"90nD1xA$:::"SAVING MLRESCUE...":156,8:7,64:8,27:654696,0:7,0:653846,15:7,D: ::"DO YOU WANT TO SAVE MLRESCUE":\P"TO "(18)"D"(146)"ISK OR "(18)"T"(146)"APE? ";uZA$:A$"D"D8:120dA$"T"90nD1xA$:::"SAVING MLRESCUE...":156,8:7,64:8,27:654696,0:7,0:653846,15:7,D:m(C$,1)B$:WW(BC):V:(WX)30:T:g W0:U1Y:Q((B$,U,1)):((WX)(7611Q));:WWQ:U::IGIT ECOMP.OUND BOUT ERIES EQUENCEG(M))# 2S$" :"(((M(M))60.5))A < HX;" HOURS = ";H$;M$;S$BOPOKE.BOOTRR39-1IGIT ECOMP.OUND BOUT ERIES EQUENCE IME ONVERTER` S%60 M%M%1 : S%0> ( M%60 H%H%1 : M%0 : S%0Y 2 H% (58) M% (58) S% A6YLP(M)13: (Y4)Y4 M2 DADA1I (DA((DA7(DA7))7.5) 2 DA5 "THE NEXT FRIDAY THE 13TH IS"M"/13/"Y : <D13 FMM1: M12 M1:YY1 P 30 Z 0,3,3,6,1,4,6,2,5,7,3,5 IME ONVERTER 17)1250 AN$(145)1300/ AN$(13)2000O AN$(32)G243000:140{ AN$(32)3000:H13:LC55590:P8:150 204 "";:53280,0:53281,6 "OADING...";(34);P$(H)(34);"" "LOAD";(34);P$(H);(34);",8" "4 f(L$,4)10)""U p10)" "v z10)""|  S54272:S23,0:S24,15 S6,0:S5,12:S1,70:S3,40 S4,0:S4,65:D1100::S4,0: (L$,P)10)" )4)""P"(L$,14)4)" HIS IS A 128 ROGRAM.T MAY ",(L$,15)4)" NOT BE LOADED IN THE 64 MODE."6(L$,16)4)" OU MUST SWITCH TO THE 128 "@(L$,17)4)" MODE IN ORDER TO LOAD THIS " J "/|(L$,23)3)" ":1000EAN$:AN$""1670S882:225t ************************** **** WINDOW ROUTINE **** **************************828(L$,5)11)"" ( L$,6)11)"EE NSTRUCTIONS"2(L$,7)11)"UN ROGRAM "X(L$,8)11)"ANCEL INDOW "~ (L$,9)11)""PO55507:X0 I116:POI,1::1000*AN$:AN$""20904AN$(17)2200:POPO40:XX1:PO55 8,255:65466"251,0:252,27:6,251H7,63:8,27:65496::"DONE...":x165,45,133,251,165,46,133,252,160,1,145,45160,3,200,177,45,208,251,200,200,152,160,0145,45,160,0,177,251,240,11,170,200,177,251 133,252,134,251,184,80,239,  "RUN": ""0  631,13: 632,13: 198,2:m "":(L$,2)2)"" *(L$,3)2)" " 4I116:2)" ݞ ": >(L$,20)2)"  ":I0F:LCI,14:" HH1:HGHH126 PP1:P19P8V LCLC40:LC56030LC55590_ 204 (L$,P)10)" ":I0F:LCI,14: HH1:HG11HH12 PP1:P8P19 #LCLC40:LC55590LC56030 (204 828(L$,13 (L$,18)4)" PROGRAM SUCCESSFULLY. SE THE"TT(L$,19)4)" PRESCRIBED METHOD WHICH IS..."^(L$,20)4)" OAD ''ROGNAME'' "h(L$,21)4)" [RESS ANY EY] "r(L$,22)4)" , *** STOW AWAY *** BUCK CHILDRESS ***Y *** P.O. BOX 13575 SALEM, OR 97309 ***(147)"LOADING AND CHECKING DATA LINE:":J52000:L100((19)31)L::B011:A:A0A255602JB,A:XXA:B:A:AX70<"ERROR IN DATA LINE:"L: ,141,165,206,96,1810<r104,104,160,55,120,32,70,204,88,169,128,160,1394s|206,32,30,171,173,167,206,174,166,206,32,205,1768189,169,153,160,206,32,30,171,76,116,164,104,1570104,160,55,120,32,70,204,88,169,66,160,206,143476,129,204, 829,29,18,32,83,84,79,87,32,65,87,65,690G89,32,13,17,17,49,41,32,42,32,83,84,531t79,87,32,65,32,80,82,79,71,82,65,77,83132,42,13,17,50,41,32,42,32,83,65,76,525&86,65,71,69,32,65,32,80,82,79,71,82,814065,77,32,42,13,17,51,4 3982,69,65,68,89,32,72,65,86,69,32,65,794A32,80,82,79,71,82,65,77,32,0,83,84,767m79,87,69,68,46,13,0,73,78,32,77,69,69177,79,82,89,46,13,0,17,65,82,69,32,65189,79,85,32,83,85,82,69,63,32,40,89,82847,78,41,32,210,157,0,17 142,164,206,181,43,157,1703H 168,206,202,16,248,32,53,204,32,77,204,161,1603 251,129,253,32,151,204,76,196,203,201,50,208,1954 76,173,164,206,208,10,32,241,204,169,200,160,1843 205,76,126,203,160,1,177,43,240,10,32,248,1521# 204,16 69,83,46,13,0,17,83,84,79,713+ 87,73,78,71,46,46,46,13,0,17,83,65,625W*76,86,65,71,73,78,71,46,46,46,13,0,671417,68,79,78,69,46,46,46,13,17,84,72,635>69,32,76,69,78,71,84,72,32,73,83,32,771H0,32,66,89,84,69,83,46,13,0,66,67,615R  FX0:JJ12:LL10:L85140C P"THE DATA IS OK AND LOADED...":e Z"SYS 52000 TO ACTIVATE...": d173,2,3,174,3,3,201,67,208,5,224,203,1266 n208,1,96,141,162,206,142,163,206,169,27,160,1681 x206,32,30,171,169,67,162,203,76,186,204,32,1 238,166,206,208,3,238,167,206,230,2071M251,208,4,230,252,240,224,230,253,208,14,230,2344254,240,216,165,254,201,192,208,4,169,224,133,2260254,96,120,141,2,3,142,3,3,88,96,169,11170,141,166,206,141,167,206,96,32,30,171,169,1525A"BYTES":13)" HIT ANY KEY ",198,15:T$O1""S$" ANOTHER FILE (Y/N)":198,15:T$z6T$"Y"Z0:15,8,15:15,"I0:":15:2554)CP,L2,RA,1000RA(253)256(254)CP,L3,RA,8000 RA(253)256(254)L324576F$ 2:SVCP324L129960L140960PA50009L229960L240960PA5000XL329960L340960PA5000kCP,L1,PA,1000RA(253)256(254)CP,L2,RA,1000RA(253)256(254)CP,L3,RA,8000 RA(253)256(254)L324576F$ 9,247,160,205,32,204,204,169,113,160,206,2073Y 32,30,171,32,195,204,141,165,206,162,14,189,1541 "168,206,149,43,202,16,248,32,53,204,160,53,1534 ,120,32,70,204,32,77,204,161,253,129,251,32,1565 6151,204,76,20,204,201,51,240,95,173,162,206 1,32,42,32,82,526(:69,84,85,82,78,32,84,79,32,66,65,83,839UD73,67,32,42,13,17,52,41,32,42,32,68,511N69,65,67,84,73,86,65,84,69,32,83,84,861X79,87,32,65,87,65,89,32,42,13,17,87,695b72,65,84,32,87,79,85,76,68,32,89,79,848 l85,32, 5381 96,165,173,0,2,201,65,144,55,201,91,176,1369c 51,173,1,2,208,46,169,255,160,204,32,30,1331 171,32,228,255,201,49,144,249,201,53,176,245,2004 72,32,233,204,104,201,49,208,96,160,1,177,1537 43,208,16,32,241,204,169,188,160,205,3 3,160,206,32,30,171,32,228,255,201,89,240,1647S12,201,78,208,245,32,233,204,104,104,76,116,1613164,32,210,255,169,13,76,210,255,169,161,160,1874205,76,30,171,169,209,160,205,76,30,171,147,164929,29,29,29,29,29,29,29,29,29,29,29,34 ,83,84,79,87,915!32,65,87,65,89,32,73,83,32,79,78,46,761M13,0,17,83,84,79,87,32,65,87,65,89,701y32,73,83,32,79,70,70,46,13,0,17,84,59972,69,32,76,69,78,71,84,72,32,69,88,812 67,69,69,68,83,32,49,54,51,56,52,32,68266,89,84,$0,0,80,67,10,0,0,0,0,0,0,0,1579,32,73,83,32,79,78,46,761M13,0,17,83,84,79,87,32,65,87,65,89,701y32,73,83,32,79,70,70,46,13,0,17,84,59972,69,32,76,69,78,71,84,72,32,69,88,812 67,69,69,68,83,32,49,54,51,56,52,32,68266,89,84, ,17830@174,163,206,32,186,204,169,46,160,206,76,129,1751fJ204,165,43,166,44,133,251,134,252,162,0,160,1714T160,134,253,132,254,96,169,47,133,0,132,1,1511^96,165,251,197,45,208,249,165,252,197,46,208,2079h243,173,165,206,240,6,169,0 76,73,75,69,32,84,79,32,68,79,7847v63,32,210,157,0,17,89,79,85,32,68,79,911d78,39,84,32,72,65,86,69,32,65,32,80,73482,79,71,82,65,77,32,0,73,78,32,77,74869,77,79,82,89,46,13,0,83,84,79,87,78869,68,46,13,0,17,89,79,85,32,65,76,6  *** RESCUE 128 ***[ *** BUCK CHILDRESS *** P.O. BOX 13575, SALEM, OR 97309 ***(147)::"LOADING AND CHECKING THE DATA...":(J69126983:A:J,A:XXA:J:X9567602"ERROR IN DATA...":<"THE DATA IS OK AND LOADED..."$F (F$,(F$)2)42,8,2,F$(160)N$",P,W":SV,PA,RA,F:2,(BG)(BO)h2:65484:6)"OLD FILE LENGTH = 10000 BYTES"6)"NEW FILE LENGTH =";:RARAPA:RA"BYTES":SA10000RA"6)""'6)"MEMORY SAVED ="S 2,30,1528: 171,76,116,164,76,134,164,173,164,206,240,10,1694r 32,248,204,169,238,160,205,32,204,204,169,100,1965 160,206,32,30,171,32,53,204,140,165,206,32,1431 77,204,173,165,206,240,6,32,151,204,76,163,1697 203,32,195,204,162,14,թw؍؍.ڍڢ˝R̝] ) R`  頠i 頠 i 頠 i 頠 i ɹ``  w$w'%$%U%57w{   z zLʭY ПG'gG؝؝ٝ'ڝڝgi(xϩéÍ ÍzɍYÍPÍ5éÍ{ é ­ЅЅ2Í4Í33 L@w$w'%$%U%57w{   z zLʭY BB$$$$$$$$$$$$BBBBBB$$$<<<   U U`PUPUP Up1iL3U0 0 < aҏaÏah 0a aaa G aҏaÏah 0 aaa G  /"x   a ?3*****.DDA@@0P(***(,30P@@PDD ?3Щ5éЍPíyˍ`8P)9P0:P7ЍVi Uí(Ѝ'LĭЍVi Uí)Ѝ'LĭЍVi Uí*Ѝ'Щ ) UðLЭVðLY`!cé íÍy˩ ZWíW 8d 8d 8dА x)L1) S { L< X`{.B   LS  {   `  L{     6   \dȄLh dȱdȱd` αe`а )Lx)  X`{( L`ii`ii`ȱ{L   ) *********************************Q ***** PICMASHER *****y ***** BY SCOTT MILLER PETTY ***** ***** 407 B. SMITH AVENUE ***** ***** CHAPEL HILL, N.C. ***** ***** 27514 *****  ***** KO$""(193)"PIC ":MI$"PIC."^ (""S$""12)"KOALA":12)"MICROILLUSTRATOR"t -12)"OTHER" 2198,15:T$:BG0:BO0 7T$"K"P$KO$:P1:L132576:L233576:L324576:BG34576:BO0 <T$"M"P$MI$:P1:L16384:L27384:L38 OF PIC ";F:N$((F),((F))1)G d""27)""N$"":F1(F256):F2F256F1R iP165 n"FILE LOADS IN 1 2 3 PARTS ?":198,15:T$:D(T$) s""15)" "T$" " xI1D:"FILENAME OF PART"I:"";F$(I) }#L3$((L3),((L3))1):""30)""L3$""GI12641743:I,32::""K$" ":""K$""K$" INSERT PICTURE DISK AND HIT  RETURN  ":198,15:T$P195Z0Z1:F$(1),8,1 L* Z Lʩ'Ţ'ŭ'`TíS SíSÍ`SLˀ{Zz˝˝ Acé@é Z ʭ)~˝ cÍéL    *̝I8̝F̝T̝yI؝؝ڝyբ1̝q?̝M̝)[̝ q؝؝)ڝ              ؝؝ٝ`fEW.+Ým>V~.Ý&fPPPD30TDDDL0TDDD *BBBBBBBBB$$$$$$BBBBBBBBBBBB$$$$$$BBBwwUUU$$$$$$$$$BBBBЭyˍécÍÍPÍ  θ{ɩɭ e` ԭԍԩ ʩ (ŭ(Yé(`ŭ1dYé1` |ɢƝ0ǝ1ȝ2#Ýнŝŝ@ ؝؝@ٝٝڝ ۝ L9LSii`ii`8`` αe` 8d 8d 8d 8 ii8`------------COMPRESSOR.SCOMPRESSOR.OLSCOTT M. PETTY407B SMITH AVECHAPEL HILL NC27514(919)-967-8522--------------COMPRESSOR.SCOMPRESSOR.O(919)-967-8522 *****A  *********************************O Z0175p A0A1:"COMPRESSOR.O",8,1 A1A2:56,19:55,135::A2:F$(3) 53281,15:53280,12:646,6 S$" PICMASHER ":PA30960 # 384:BG6364:BO6365- AT$"O"T$"M"T$"K"50D FT$"O"""S$:95v K""S$:"FILENAME OF PICTURE ";F$:P$P$F$ P""23)""P$"":(P$,1)(18)95 UL(P$):L17P$P$(32):85 ZP$(P$,14):P$(129)P$ _"NEW LOAD ADDRESS ""22)F$(I)""::P$F$(1):F$P$A "ADDRESS OF VIDEO MATRIX IS ";L1q L1$((L1),((L1))1):""30)""L1$"" "ADDRESS OF COLOR MEMORY IS ";L2 L2$((L2),((L2))1):""30)""L2$"" "ADDRESS OF YOUR BIT MAP IS ";L3 D1Z1Z2:F$(2),8,1)D2Z2Z3:F$(3),8,1>Z0Z1:P$,8,1dL324576P$(P$,14):P$""P$""P$" IS NOW LOADED"""K$""K$:BG(BG):BO(BO)"INSERT DESTINATION DISK AND HIT  RETURN ":198,15:T$CP4915  :Ġř67~7@<77~777|řԈ5ř-Щ'Щ>Щ&Щ%Щ@ЩЍ Zé3? -éHčЩ Ѝ ©Щĭ)} iƍi Т 1ĭ)ϢT ԩĩĭJJI) hh  @  H Щ```)ܥ)Ѕ<8:;9;9<:  ܭ) Р?ř:` SCORE 000000 TURNS 3 HIGH 000000 PRESS RETURN  YYjUUUꪫ}U}%X U U%X}U}ꪫUUUZYVeZeUeZUUUꪫ}U}%X U U%X}U}ꪫUUUVVZVeVVeVVeZUUUꪫ}U}%X U>LgwL&{Lm}L~L+`TíTJ``TíQ QíQÍL0QL^TíTJ``TíR RíRÍLwRLTíT ˥<`]L }LɝL ɽLݰL `;`GLЍP`LLL`(2Э2L?Э2íȐ(3Э3LnЭ3íȐ(4Э4LЭ4`= РKÙ ™ ``P85L! 8 kRESS BUTTON ­npJ) ½J)L2 ­J)K) ­J)K) `p`VmWX)JJJJ)ե) eJL=̍` ( R)JJJJi0 R)i0  S)JJJJi0 S)i0  b` c`ЍtЍs``p` iȮpnVT`)JJJJF`xTmUVmWX)JJJJ)ե) eJL=̍` ( R)JJJJi0 R)i0  S)JJJJi0 S)i0   1 F $`RANGER SOFTWARE'S JOHN FEDOR F1: F3: LEVEL F5: LIVES F7: BEGINONE PLAYER 2 PLAYER, A2 PLAYER, Sllmmnn _i nʠj   mi0   k  D `fV(eTdRRdTeVffW(eUdSSdUeWf` )t) ˢqs)t) ˢr  `Ўʎ興ޢS)JJJJi08S)i08興ޢd)JJJJi0d)i0ߠ*b *c` ``ؙٙڙL`   !  Ģ 1ĭ i΍ 8pߍĭ i)?LR)Ĭĥ9 ¬ĥ9 {iiČĢ 1ĭ$ЭčЭ) čЭ L$~i(Ţ??0L  Š  1 Lۈ80i:00h2 ?:?Ԏ`0H LOLOà0H00` Ѝ!Щ P9;:؅<ƅF9;9i9;:i:iԅL~`;`GL˰`װL`Ƀ`ɏL`=``6í6!6í77L7í7Í`:Pâ8P$GPPɁLA 8@L`ȝ`:zk@sm@} #%)CEI!A=]}tz#í)ԩ ԩ í î` Íéí`ԩ ԽȍԍԽɍԍԩmÍ LWíÍy˩ ZWíW#5  d)JJJJi0 d)i0 ` PLAYER 1 PLAYER 2 HIGH SCORE ~ H 1L9ͩ L̦%E` ¢` Gέni͢ LPRESS BUTTON, PLAYER 1 PRESS BUTTON, PLAYER 2 BOTH PLAYERS Pli0 Ʌ Ɇɇ%Ɉ`nnLʮmmLʭlIlL 3 k ŭnpIЩLP  s K ̭)XYpIpn bІnc` ȠЌЌТЎЭn OТ`ЎЎЎʎЩ'Щ (Щ)Ѝ*Ѝ+Ѝ,Ѝ-Ѝ.Щ%Т,mL| @Rlbcgopqr<=FGHIL`<6` Ѝ!ЍЩ    O F  ! O F   B  F  }`JOHNFEDOR ¢n LpGgȘg;g,qȘq#q I-Ѝʘ ĦИii  ijj ojkk  ĩ0 <řʈ`(`yĨĭ `#%8 Ĺ(ōĭ)Lp ¬Ĺ ōĥ)?`yĪyĬ ĥ` ¬Ĺ ō`80JJJi(i8JfFF`(Э2H0:670(B07:AC(ADB):505:ADBENADSR:410:1955" ";:BC:ADAD8ZB$:B$(136)195o495:": ";:650+5350A$"**LOAD**":58551,T,0,A$:690:1:ST64195?405:T8420D560I" ":14)A$N A):T9A$(T55):530 A$(T48)*A$;:ACACAT:AA$"**SAVE**":585W1,T,1,A$:680:1c!ST0v&400:T8420+5350A$"**LOAD**":58551,T,0,A$:690:1:ST64195?405:T8420D560I" ":14)A$N A":54276,17:54276,16:015,8,15:15,A,A$:15:A$:I GET FOUR DIGIT HEXX:B$;:T$p(T$)4380:430A14:A$(T$,A,1):450:T(A)16380:430:B(T(1)4096)(T(2)256)(T(3)16)T(4):A$"@"A$"G"T(A)(A$)5 220 O LAST LINE' T" ":TAD((AD256)256)M YB0A1:TTA%(B):T255TT255S ^k cA%(A)T375:195 hB0A1:ADB,A%(B): m:"YOU ARE FINISHED!":535 r BELL AND ERROR MESSAGES w:"LINE ENTERED INCORRECTLY"::415|: 53280,0:53281,0&A100,110N""8)"RANGER SOFTWARE PRESENTS"n(""13)"C A V E R N S"~218)"O F"<13)"G E E H O N K"F""8)"PROGRAMMED BY JOHN FEDOR"K"PRESS RUN/STOP TO PAUSE DURING GAME PLAY" P6);<8<< ,0 0 ,0 4/0 @< <8 @<3p0 0  003 ̠   ( ((((( 2Π2jj2 ((((((   33*  *   ( ((((( jj ((((((   *  *؅(*<iȮ<<=<i(i8ԅмж==<` b)*ɠi(i``AA`A>? @ 8( i(i 8ЍЭТ ` @GG`Gн s 'ЭIحIHIIIH`I-ЍйLIL`)IJ)IK`A>?)Í@)8JJJ@4) ,8ԢԢ<`))))==iLHą)))))) 8&`RBTCVDJ$ ЅЅ Ħ ХЦXDXEZ>:A$"":"FILENAME";A$SA$""590+X:"TAPE OR DISK?":Q]B$:T1:B$"D"T8:A$"@0:"A$:bbB$"T"605hglB$"CONTINUE FROM ADDRESS":430:ADBq475:B0620v:195{B$"BEGIN SCAN AT ADDRESS":430:ADB475:B06355:A$"/"A$":"T(A)(A$)48:$T(A)16:7 ADRESS CHECKFADEN385YBSRBEN390B256(B40960B49152)B53247395 ADDRESS TO HEXACAD:A4096:520A256:520A16:520A1:520T(AC"INPUT A 4 DIGIT HEX VALUE!":415F:"ENDING IS LESS THAN STARTING!":B0:415|:"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:415:"NOT ZERO PAGE OR ROM!":B0:415"?ERROR IN SAVE":415"?ERROR IN LOAD":415::"END OF ML ARE]"PLEASE WAIT WHILE LOADING..."5 ZA1: "COG.SP",8,1L dA2: "COG.ML",8,1W n52531ML.80ML.81TEST.5 TEST.1TEST.6(((<(((($ (< (($ (<( @<@3 3   ( ((((( 2j2jΠ2 ((((((   ̠3*  * 3 3   ( ((((( 2j2jΠ2 ((((((   ̠3*  *  iiݱ@ɠi(iL0iԅ*>?`E>?@A`ԦxBiBCiCDiDX8( LWma}BCL)` cGװF= ХcнI- JJJ>>i(>?i?`LнLIL`oo`o` Ў!Щ؝ٝڝCl|{~(i(i`ԢIԢY Ԣ) \?^@`A EX>Z?\@^A`LcŦJ)LcŽ ЅЅ ~Š>?LxŦBRCTDV` L ũE P`xōX`x1X`&L1PLAYER 1PLAYER 2HIGHCAVERNSOFGEEHONKR)JJJJi0R)i03# A0 A1:"PINBALL ML",8,1/ 49152 "d X 49152 49488:Y:SSY:n Y0 Y255 130Kx X,Y::140"**ERROR**":"PLEASE CHECK LINE"(64)256(63): S44677 "**ERROR**":"PLEASE CHECK DATA LINES 170-500":"":53280,0:53281,6:646,1 " C-6 ,230,251,208,2,2308 252,177,251,32,205,189,169,58,32,210a 255,169,0,133,253,230,254,32,37,193 234,165,253,160,0,76,13,193,133,253 177,251,208,237,165,253,41,240,74,74 74,74,24,105,65,32,210,255,165,253  41,15,24,105,65,32,210, 80,208,245,230,254,32,210,255,169,4E h166,254,160,255,32,186,255,169,0,133l r63,133,64,133,2,32,189,255,32,192 |255,166,254,32,201,255,76,73,193,96 32,210,255,173,141,2,41,1,208,249 96,32,205,189,169,13,32,210,255,32 204,255,169,h255,133,2,165,2,208,218,177,251,201?32,208,212,198,254,76,29,193,0,169X13,76,210,255,0,0,089,255,32,192 |255,166,254,32,201,255,76,73,193,96 32,210,255,173,141,2,41,1,208,249 96,32,205,189,169,13,32,210,255,32 204,255,169,4d%: X 3072 3520: Y: X,Y:SSY:110::&}n&: S49057 "**ERROR**":"PLEASE CHECK DATA LINES 140-390":x" C-128 BUG REPELLENT INSTALLED"" TYPE SYS 3072 TO ACTIVATE"  32,161,12,165,45,133,251,165,46,133,252,160,4,165,253,160,0,76,13P 13,133,253,177,251,208,237,165,253,41,240,74,74,74,74,24 105,65,32,98,13,165,253,41,15,24,105,65,32,98,13,169,13,32 220,12,230,65,208,2,230,66,230,251,208,2,230,252,76,11,12 169,153,160,12,32,80,13,166,65,165,76,73,13,96,32,98,13,165,211X  234,41,1,208,249,96,32,89,13,169,13,32,98,13,32,152,13,169,4  76,161,13,147,83,67,82,69,69,78,32,79,82,32,80,82,73,78,84,69 " 82,32,63,32,0,76,44,13,234,177,251,201,32,240,6,138,113,251,69%!, 254,170,138,7670,13,32,210,255,76,180,13,32,170,13,32,228,255,76,180,13,32g"^ 170,13,32,186,255,76,180,13,32,170,13,32,189,255"h 76,180,13,32,170,13,32,192,255,76,180,13,32,170,13"r 32,201,255,76,180,13,32,170,13,32,204,255,76,180,13,32,170 #| 13,32,195,d53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1984, ION INTERNATIONAL INC. "}A5427254296:A,0:/ 2)T(1)16/ B$"ENDING ADDRESS IN HEX":430:ENBA 470:B0150h 254,T(2)T(1)16:BT(4)1T(3)16 B255BB255:254,(254)1 253,B: GET HEX LINE 495:": ";:A08 B01:250 B A%(A)T(1)T(0)16:ADA14 BUG REPELLENT INSTALLED "H 32,161,192,165,43,133,251,165,44,133q 252,160,0,132,254,32,37,193,234,177 251,208,3,76,138,192,230,251,208,2 230,252,76,43,192,76,73,78,69,32 35,32,0,169,35,160,192,32,30,171 160,0,177,251,170255,169,13, "32,220,192,230,63,208,2,230,64,230U ,251,208,2,230,252,76,11,192,169,153} 6160,192,32,30,171,166,63,165,64,76 @231,192,96,76,73,78,69,83,58,32 J0,169,247,160,192,32,30,171,169,3 T133,254,32,228,255,201,83,240,6,201 ^4,76,195,255,147,83,67/ 82,69,69,78,32,79,82,32,80,82R  73,78,84,69,82,32,63,32,0,76{ 44,193,234,177,251,201,32,240,6,138 113,251,69,254,170,138,76,88,192,0 0,0,0,230,251,208,2,230,252,96 170,177,251,201,34,208,6,165,2,73 A$(135)" ":620) A$(136)" ":635O A$"@"A$"G"T(B)(A$)55:295u A$"/"A$":"T(B)(A$)48:295 "415:250 'A$""; ,205 1A0320 6A1:B1330 ;220 @B0(20);(20);:AA1 EAA1 J(20);:0,132,254,32,37N 13,234,177,251,208,3,76,138,12,230,251,208,2,230,252,76,43 12,76,73,78,69,32,35,32,0,169,35,160,12,32,80,13,160,0,177 251,170,230,251,208,2,230,252,177,251,32,89,13,169,58,32,98 13,169,0,133,253,230,254,32,37,13,23,66,76,231,12,96,76,73,78T 69,83,58,32,0,169,247,160,12,32,80,13,169,3,133,254,32,107 13,201,83,240,6,201,80,208,245,230,254,32,98,13,169,4,166 254,160,255,32,116,13,169,0,133,65,133,66,133,250,32,125,13  32,134,13,166,254,32,143,13,88,12,0,0,0,0,230,251,208,2,230,252,96,170,177g!6 251,201,34,208,6,165,250,73,255,133,250,165,250,208,218,177!@ 251,201,32,208,212,198,254,76,29,13,0,169,13,76,98,13,0,0,32!J 170,13,32,226,85,76,180,13,32,170,13,32,50,142,76,180,13,320"T 1_255,76,180,13,133,67,169,0,141,0,255,165,67,96M# 133,67,169,0,141,1,255,165,67,96,0,0,0165,250,208,218,177!@ 251,201,32,208,212,198,254,76,29,13,0,169,13,76,98,13,0,0,32!J 170,13,32,226,85,76,180,13,32,170,13,32,50,142,76,180,13,320"T 1 54272,4:54273,48:54277,0:54278,249:54296,15H A680699:B:A,B:s 169,251,166,253,164,254,32,216,255,96 169,0,166,251,164,252,32,213,255,96 B$"STARTING ADDRESS IN HEX":430:ADB:SRB 480:B0150 251,T(4)T(3)16:252,T(EN340 " ";- A:TAD((AD256)256):" "Q A07:TTA%(A):T255TT255W o A%(8)T375:195 A07:ADA,A%(A)::ADAD8:195 GET HEX INPUT A$:A$""250 A$(20)305 A$(133)535 A$(134)560A 4]l ,HOY! ARCH872ABOOTSG64 UG EPSG128 BUG REPSG LANKSPEED SGEEHONK AVERNSSGCOG.SPSGCOG.MLSG IGHTS UTKKINBALL RCADESGPINBALL MLSGIZARD AGSGWIZARD ML SGCOMPRESSOR.OSGDECOMPRESSOR.OSGICMASHER SGECOMP EMOKK ELOCATORSG TOW WAYSG RESCUE 128SGURBOPOKESGEFAULT ROMPTSGIGIT ECOMP.SGOUND BOUTSG ERIES EQUENCEKK IME ONVERTERSG IME ONVERTER2SG AD UCKLOADERDDLOGO% DIR 1(KKKKKKKK2" A0 A1:"WIZARD ML",8,1. 49152 Ѝ!  < ة XL7N` |䧆 N3LH1fGJP3W>/f.LOADER872A Z198,0'dI0I1:"DDLOGO",8,14i53280,2Gn55,0:56,92:Ux53265,59d53272,120|56576,(56576)25425055,0:56,16053265,2753272,2156576,(56576)1"";:53280,6:53281,0:(14); "OADING  54279,LO(X)45:54280,HI(X))  N1 DU(X)G 54286,L3(B):54287,H3(B)Q BB1c  L1 145:k  Ns  X| 350 S54272:I024:SI,0::155  16,195,21,31,25,30  28,49,21,31,28,49  33,135,37,162,25,30  33,135,71,12,143( 6,71,12,143,6,71,12,143,6,71,12,143R 6,71,12,143,6,71,12,143,6,71,12,143| 6,71,12,143,6,71,12,143,6,71,12,143,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97, \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr ~ ?AIN ENU...."< "LOAD";(34);"DIR 1";(34);",8,1"T "RUN":""q 631,13:632,13:198,2: HI(25),LO(25),DU(25),H3(64),L3(64)  54291,134: 54277,136:54284,136  54292,136: 54278,134:54285,134  54290,17: 54  28,49,33,135,28,49(  25,30,28,49,31,165B  33,135,37,162,28,49]  37,165,33,135,31,165v & 25,30,22,96,18,209 0 4,2,2,3,1,4,4,2,2,8 : 4,2,2,2,2,2,2,2,2,2,2,2,2,2,2 D 8,97,16,195,8,97,16,195,8,97,16,195 N 8,97,16,195,8,97,?????aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaNcefRSWX ?><276,17:54283,17& " 54272,00: 54273,33> ,54279,59:54280,33_ 6 X1 25: HI(X),LO(X): Xz @ X1 25: DU(X): X J X1 64: H3(X),L3(X): X T 54296,15 ^B1: X1 25 hAN$:AN$(13)460 r 54272,LO(X): 54273,HI(X) |16,195,8,97,16,1952 X 8,97,16,195,8,97,16,195,8,97,16,195\ b 8,97,16,195,8,97,16,195,8,97,16,195 l 8,97,16,195,8,97,16,195,8,97,16,195 v 8,97,16,195  5,152,11,48,5,152,11,48,5,152,11,48  5,152,11,48  6,71,12,143,6,71,12,143,6|x????????aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  >> ?~ >?????xxx| !! '%  ??{3? ????????8,$$, qIIqQ$$D0$y? !!!ఘ``` IIIIIy$$$ H PHE8@8??HI  ??? 8!!C? <@@@@,$LD|cL@@|>|>><||?("O" LIGHTS OUT! v" BY WALTER E. MEYERS " 403 CARRIAGE LANE " CARY, N.C. 27511  " 600  19qa'$$$'  ? ``??????8xx"6*"""HIHHH1""```8``|8a`????????8I#qXHHςpHHp!!?00!!$$bbHHO <FEDpp C!!!???????xxxxxxxχ?" "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8!! ?aaa```aa`8????????0IIx Xq 8,0: 198,1:II(631): 198,0:I  S5,136: S6,240: S1,20: S4,33:~ ( SC,11: BO,11:"";: I022:" " M$(I):: 2 781,L(R): 782,C(R): 783,0: 65520: LI$(L):LI(R)L < LCR,L: F CLS S24: CL,0:: S24,15:$ P S6,24 : I07: A: 52216I,A:G I3946: A: VI,A:: I416: A: VI,A: I4925649275: A: I,A:: V23,1: V27,2: V29,0 GS15:GM1: V21,4: 500:TMTI K1:GR(0)0:GC1:PR0:G0 N((1)91):GR(K)N: I0K1: GR(K)GR(I)  RPR3: 260> JOY7 PR7PR4PR1 PRPR1: 52216,3: 260i FIRE0 PR0 RPR:L1: 50: 80 WIN(0): WIN1 V21,5: 400  300: T140:: V,HO(PR): V1,VE(PR): V16,VS(PR)  200 +: ,GCGC1: GCGS  TITM)60:P2(P160):P3(P1(P260)):LN21:CO5: 90j 52216,5:"YOUR TIME:" P2 "MIN.," P3 "SEC.": P1P0 P0P1B2(P060):B3(P0(B260)):LN22:CO5: 90:"BEST TIME:"; B2 "MIN.," B3 "SEC.":LN23:CO2: 90:"HIT Q TO QUIT, ";$4,2:F120: S24,2: J16: S24,VO:F220X S1,F1: I14: S15,F2:F2F21.02::F1F11.2:VOVO2: 50: V21,6: V2,HO(R): V3,VE(R)14:RR1: S24,15& J18:F220: S1,F1: I13: S15,F2:F2F21.2: :F1F11.5::VO15: R0EN READY.": 20/lJ56334: I4915249184: A: I,A:: J,(J) 254av 1,(1) 251: 49152: 1,(1) 4: J,(J) 1v A: A1 660 I07: B: 61440A8I,B:: 640 I0319: A: 49344I,A::  M$(23),IN$(4):M$(0)"[][][] Ǟ".M$(7)"Ǟ  Ǟ Ǟ"cM$(8)"":M$(9)M$(3) M$(10)"ǞǞǞ"M$(11)"ǞǞ  Ǟ" M$(12)"ǞǞǞǞ  ˒ "a\M$(18)M$(17):M$(19)"ǞǞǞ ˒ "fM$(20)M$(8)"":M$(21)""pM$(22)""" "*55,255,255 27,255,128,128,128,128,128,128,128, 29,255,1,1,1,1,1,1,1U 60,128,128,128,128,128,128,128,128n 62,1,1,1,1,1,1,1,1 128,0,0,0,0,0,0,0,0 155,0,127,127,127,127,127,127,127 157,0,254,254,254,254,254,254,25407,158,56,0  197,240,15,224,127,63,0,254,0. 198,0,255,112,15,227,249,124,0X 199,140,206,134,150,146,154,152,156| 200,49,115,97,105,73,89,25,57 201,0,127,0,255,255,255,255,255 202,0,255,0,255,255,255,255,255 203,0,2540: S1,40: S4,17: T13:: S4,16:L Z 781,LN: 782,CO: 783,0: 65520:R c: dSC53281:BO53280:BN56576:LC49244:V53248: V21,0:S54272: 70 nP0300:I09: C(I),L(I),HO(I),VE(I),VS(I):LI(I)0:: 785,104 x786,192:I15: GH(I):170 :KK1: K10 170N V,HO(PR): V1,VE(PR): V16,VS(PR): LC,1: V21,5T :y JOY(56320)15:FIRE(56320)16 JOY11 PR3PR6PR9 PRPR1: 52216,4: 260 JOY14 PR7 PRPR3: 260 JOY13 PR3 P6GC1:GG1: G10 G1F@ V2,HO(GR(G)): V3,VE(GR(G))14: V21,7:RGR(G)ZJL0: 50: 30:`:yGMGM1: GM5 430GSGS2: V40,GH(GM): SC,GH(GM): BO,GH(GM): I110: SC,11: BO,11:L0: R19: 50:: 160:(P1("ANY OTHER KEY TO PLAY.": 20: V21,0: II81 490. 150e 648,4: 53272,21: BN,199: SC,6: BO,14:"":k:"": BN,(BN) 252: 648,200: 40: V24,44 T12000::R9:L0: S5,6: S6,255: S4,23:VO15K15:F120: S250:V2,HO(R):V3,VE(R)14:RR1@D: S6,15: 70: V21,254: K130: J6142zN VJ,((1)(25540)40): VJ1,((1)(20050)50)S:: V21,4: 52216,4:X 53281,15:" INSERT A JOYSTICK IN PORT TWO. HIT ANY "b12)"KEY WH[][][][][][][][][][][][]":M$(2)M$(0):M$(1)"][][][][][][][][][][][][][][]["dM$(3)""M$(4)"Ǟ Ǟ Ǟ"M$(5)"Ǟ @ Ǟ  Ǟ"M$(6)"Ǟ @ Ǟ Ǟ  Ǟ "3*M$(13)"ǞǞ Ǟ"f4M$(14)"[][][][]">M$(15)"][][][]["HM$(16)"ǞǞǞ֒ "RM$(17)"zL$"[][]<><>[][]<><>":LI$(0)""L$:LI$(1)""L$:1000:w 169,0,133,251,133,253,169,208,133,252,169,240,133,254,162,16,160 0,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96: 0,255,255,255,255,255,2  158,255,231,195,129,231,231,231,103, 188,127,127,127,127,127,127,127,127V 190,254,254,254,254,254,254,254,254z 193,0,255,14,240,199,159,62,0 194,15,240,7,254,252,0,127,0 195,128,60,249,3,243,121,28,0 196,1,60,159,192,2 ,0,255,255,255,255,255 208,0,63,159,192,255,255,255,255; 209,0,255,255,0,255,255,255,255a 210,0,252,249,3,255,255,255,255 211,255,255,255,60,60,24,60,60 212,126,126,126,60,60,24,60,255 213,255,135,156,176,224,240,240,224 255,192,15,255,224,15,255,240R 15,255,240,7,255,240,3,255,224,0U:6V 0,0,0,0,0,0,0,0,0NW 0,0,0,0,0,0,0,0,0fX 0,0,0,0,0,0,0,0,0Y 0,0,0,3,255,128,7,255,192Z 15,255,192,3,255,128,0,127,128[ 3,255,224,7,255,240,15,255,240 ,255,240,15,255,240,7,255,224,0i: j 0,126,0,1,255,128,7,255,224; k 15,255,240,28,24,56,30,24,120a l 31,153,248,25,255,152,28,126,56 m 30,0,120,31,0,248,15,129,240 n 15,231,240,7,255,224,7,255,224 o 3,255,192,3,255,192,1,255,128 ,1,255,128,0,0,0!z 0,0,0,0,0,0,0,0,0,0!:B" 30,16,16,169,5, 23,16,213,169,4, 14,16,140,169,4, 5,16,67,169,4" 23,10,213,121,4, 14,10,140,121,4, 5,10,67,121,4, 23,4,213,73,4" 14,4,140,73,4, 5,4,67,73,4":" 3,10,13,14,1,6,6,7,6,"FONT LOADER OK":CC0# A:CCCCA: A1 5050$ 50308$ CC37856 "ERROR IN LINES 1000-1031":c$"CHARACTER DATA OK": I04:CC(I)0:$CS(0)5083:CS(1)4895:CS(2)7035:CS(3)6822:CS(4)10317$ J04: I063$ A:CC(J)CC() *********************************Q ***** DECOMPRESSOR DEMO *****y ***** BY SCOTT MILLER PETTY ***** ***** 407 B. SMITH AVENUE ***** ***** CHAPEL HILL, N.C. ***** ***** 27514 *****  ***** 6:"FILENAME OF PICTURE ";F$= #"LOAD ADDRESS OF PIC ";LAn ("  HIT + KEY TO CHANGE BORDER COLOR." -"  HIT - KEY TO CHANGE BACKGROUND COLOR." 2"  HIT ANY OTHER KEY TO EXIT HIRES. ":I01000: 7"  HIT RUN/STOPBO0 UT$"-"BGBG1:BG15BG0G ZT$"+"T$"-"53281,BG:53280,BO:80e _115:198,15:T$:100:80 d ******* CHANGE BANKS ********* i53272,56:53265,(53265)32:53270,(53270)16 n56578,(56578)3:56576,((56576)252)0: s *) *********************************Q ***** RELOCATOR *****y ***** BY SCOTT MILLER PETTY ***** ***** 407 B. SMITH AVENUE ***** ***** CHAPEL HILL, N.C. ***** ***** 27514 *****  ***** COMPRESSOR.O":L4175 2T$"D"F$"DECOMPRESSOR.O":L255M <T$"C"T$"D"40v F"INSERT DISK CONTAINING "F$" " P" AND HIT RETURN ";:L255" " Z198,15:T$:T$(13)90 dA0A1:F$,8,1 n"":"NEW  214,254,128,0,0,0,0,0,0 215,127,1,0,0,0,0,0,02 216,255,225,57,13,7,15,15,7; -1AK:YL 0,0,0,0,0,0,0,0,0qM 0,0,0,0,0,0,0,0,0N 0,0,0,0,0,0,0,0,0O 0,0,0,1,255,192,3,255,224P 3,255,240,1,255,192,1,254,0Q 7,\ 15,255,240,15,255,224,7,255,192,0_:` 0,0,0,0,0,0,0,0,00a 0,0,0,0,0,0,0,254,0Rb 1,255,0,15,165,240,62,0,124xc 120,0,30,248,255,31,249,255,159d 253,255,191,124,255,62,62,126,124e 63,255,252,31,255,248,15,255,240f 15 p 0,255,0,0,126,0,0,24,0,0 s:!t 1,255,128,7,255,224,31,255,248@!u 63,255,252,127,255,254,127,255,254j!v 255,255,255,255,255,255,255,255,255!w 255,255,255,255,255,255,127,255,254!x 127,255,254,63,255,252,31,255,248!y 7,255,2246,6,6,6,0,3,15,8,10,14,13,7":# 60,65,12,65,60,60,140,121,140,121,140,121,4##:j# 160,0,185,93,192,240,12,200,192,9,208,246,160,1,169,0,108,5,0,96p#:#CC0: I4915249184: A:CCCCA:# CC5966 "ERROR IN LINES 900-901":#J)A:$: I04% CC(I)CS(I) "ERROR IN LINES"1100I10"TO"1106I10:.%"SPRITE"I1"OK"9% :CC0G% I1104W% A:CCCCA%(: CC6382 "ERROR IN LINES 1200-1230":%2"ALL DATA OK"5966 "ERROR IN LINES 900-901":#(919)-967-8522 *****A  *********************************M A025| 53280,12:53281,15:"":56,126:55,244: A0A1:"":"DECOMPRESSOR.O",8,1 T$" DECOMPRESSOR DEMO ":T$ A1A2:53265,(53265)1 TO END "7 <115:100:53265,(53265)16:D149152:D2D126b AD1,F$,LA,52224:R1(249)256(250)6 FD2,R1,55296:R2(249)256(250)6:D2,R2,57344 KR3(249)256(250)6:53281,(R31):53280,(R32) P198,15:T$:T$"+"BOBO1:BO15***** NORMAL SCREEN ********H x53272,21:53265,(53265)223:53270,(53270)239x }56578,(56578)3:56576,((56576)252)3:56(250)6:D2,R2,57344 KR3(249)256(250)6:53281,(R31):53280,(R32) P198,15:T$:T$"+"BOBO1:BO15 (919)-967-8522 *****A  *********************************N A0110m 53281,15:53280,12:646,6 S$" RELOCATOR " S$"RELOCATE COMPRESSOR OR DECOMPRESSOR ?" (198,15:T$:T$"C"F$" LOCATION ";N x"NEW FILENAME ";F$S A(N256):BN256A:""12)"...WORKING..."z 2,8,2,F$",P,W":2,(B);:2,(A); I49152IL P(I):P76P108P322,(P);:300 Z(I2):Z192Z1942,(P);:300 X49152N:Y(I1):   AD828( I0169: A:ADI,A:P"":"TURBOPOKE IS NOW LOADED..."s("SYS AD TO START TURBOPOKE.",32,203,3,141,123,3,140,124,3,321203,3,133,20,132,21,32,19,1666176,22,96,200,177,95,208,6,200 ;177,95,240,245,136,152,240" c201,32,240,243,41,15,133,97,177E h95,240,202,200,201,44,240,197j m201,32,240,243,41,15,24,125,227 r3,166,97,125,217,3,176,145,144 w210,169,0,240,180,138,16,177,48 |175,32,253,174,32,158,173,32 155,188,165,101,164,100,96,0,10  << RR39-1 >>> ----------------------------------^" DEFAULT PROMPTER "~" RUPERT REPORT #39 " ---------------------------------- INITIAL ALPHANUMERIC KEY ERASES DEFAULT VALUE.  PRESS [DEL] TO BACGET FIRST KEY% Z K$BS$ K$CR$ 120E d 500 : FIRST CHARACTERh n 200 : GET NEXT KEYSTROKE x K$BS$ 300 : 110 : HANDLE DELETE KEY K$CR$ 400 : DONE IF RETURN KEY : HANDLE OTHER KEYS FL$FL$K$ : LFL$; @LFLF1 : LF0 LF0( JFL$(FL$,LF). TR : --- HANDLE RETURN KEY ---\  " "w "FILENAME IS "FL$ : }  : --- HANDLE FIRST KEY --- : ERASE DEFAULT VALUE  N1 LF : BS$; : FL$K$ : LF1  K$ A""10)"DIGITAL DECOMPOSITION":53280,0:53281,0:646,1a COMMODARES PROBLEM #34-3:~ DIGIT DECOMPOSITION SOLUTION BY NECAH BUYUKDURA CT208 : BF842 : C-128 KBD BUFFER  DS$"" CT198 : BF631 : C-$"":53280,0:53281,0:646,1D"COMMODARES PROBLEM #35-1"Y" ROUND ABOUT"k SOLUTION BY FRED SIMON *** FOR C-64 *** === FOR CCW MOTION: *REMOVE REM FROM LINES 150 AND 220  *ADD REM TO STACC "ERROR IN DATA STATEMENTS" : \ Z 49284,(W$): I1 (W$): 49311I,((W$,I,1)): d 792,0: 793,192: 56589,127: 56589,130: 56580,26 n 56581,20: 56590,17: 56582,SP: 56583,0 x (14)(147): 56591,81:. 72,138,72,152,72,176,9,133J 214,169,39,133,211,76,110,192,233,24,201,40,176,15,133,250,169,40 229,250,133,211,169,24,133,214,76,110,192,233,39,201,24,144,7,230 252,230,252,76,32,192,133,250,169,25,229,250,133,214,169,0,133,211" 32,108,229,174,158,1AYZ256X:Z(A256):YA256ZB 2,(P);:2,(Y);:2,(Z);:II2:300Q L255220x 2:"NEW VALUE FOR 'CP' = "N: 2:"NEW VALUE FOR 'DC' = "N: ,I49152L200 6:T$:T$(13)90 dA0A1:F$,8,1 n"":"NEW ,101$ @95,133,95,144,2,230,96,160,4H E177,95,240,228,200,201,131,208l J247,240,17,24,165,97,125,217,3 O141,0,16,238,123,3,208,3,238 T124,3,177,95,240,201,200,201,32 Y240,247,201,44,240,48,41,15,170 ^177,95,240,45,200,201,44,240,464 KBD BUFFER  CT,0 : CT,1= (D(BF)48 : D; : SSDQ 2 CT,0 : CT,1p < (BF)13 "+";: 40| F "=" S IGIT ECOMP.KSPACE.&  PRESS [RETURN] WHEN DONE., J PROMPT$"WHAT FILENAME? "^ DFLT$"FILE#01"x FL$DFLT$ : LF(FL$) (CSR$(175)(157) 2BS$(20) : CR$(13) < ================================= F PROMPT$;DFLT$;CSR$; P 200 : F1 K$;CSR$; 110= ================================a : --- GET KEYSTROKE ---z K$ : K$"" 210 K$CR$ K$BS$ 240 (K$)32 (K$)127 210 ,: --- HANDLE DELETE KEY --- 6 LF0 BS$;CSR;CSR$; &R$; 110= ================================a : --- GET KEYSTROKE ---z K$ : K$"" 210 K$CR$ K$BS$ 240 (K$)32 (K$)127 210 ,: --- HANDLE DELETE KEY --- 6 LF0 BS$;CSRRT OF LINES 140  AND 210?  *CHANGE CC=22481 IN LINE 40S # TO CC=22587` (CC22481 2"ENTER STRING:";W$:W$(32)W$(32) <SP20 : # OF 1/60TH SECOND DELAYS BETWEEN INTERRUPTS F AD49152 49311: X: AD,X :CKCKX:# P CK ,160,0,185,0,0,153,0,193,200,208,247,132,251,173,159o 192,201,126,144,5,169,0,141,159,192,133,252,165,252,41,127 DATA 192,234,234,16,5,169,125,141,159,192,133,252,165,252,41,127 201,40,176,9,133,211,169,0,133,214,76,110,192,233,39,201,2592,164,251,185,160,192,168,32,24,234,230,252e 230,251,165,251,201,13,176,3,76,32,192,238,159,192,160,0,185 DATA 230,251,165,251,201,13,176,3,76,32,192,206,159,192,160,0,185 0,193,153,0,0,200,208,247,172,13,221,76,94,254,1,03,39,201,25DĎb@?KK ?ఘ333? ``K ? eg DD((DDDD 2 20,30,40,50,60,70,80,90,0,100& 200 5,240,228,200,201,131,208l J247,240,17,24,165,97,125,217,3 O141,0,16,238,123,3,208,3,238 T124,3,177,95,240,201,200,201,32 Y240,247,201,44,240,48,41,15,170 ^177,95,240,45,200,201,44,240,4KK  Ƈ0<<<???Kx<<???????KKKK~~33 ``  Ƈ0<<<???KKKKKKKKKKKKKKKKKKKKK