? ? DĎb@?  8!!C? <@@@@,$LD|cL@ 00!!$$bbHHO <FEDpp C!!! ఘ333? `` x>~  eg DD((DDDD   | !! '%  K  Ƈ0xyx? ~~33 ``  Ƈ0xyx? @|>|>><||? |x???????? ????????8,$$, qIIqQ$$D0$y? !!!ఘ``` ?>< qa'$$$'  ? ``??????8xx"6*"""HIHHH1""   >> ?~ >  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr ??? !! ?aaa```aa`8????????0IIx Xq ???????xxxxxxxχ? ??{3? ```8``|8a`????????8I#qXHHςpHHp!! ????? " "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8 ~ ? IIIIIy$$$ NcefQSWX ? H PHE8@8??HI ?????xxx  << CD41-9 >>= ==================================a COMMODARES PROBLEM #37-4 :z PHRASE REVERSER SOLUTION BY PAUL PARKER ================================== --- NOVICE SOLUTION ---" "PHRASE";S$  << CD41-10 >>> ==================================b COMMODARES PROBLEM #37-4 :{ PHRASE REVERSER SOLUTION BY WALLACE LEEKER ================================== "PHRASE";S$:S$S$" ":L(S$) BX1  << RR41-2A >>7----------------------------S HELPKEY BASIC LOADERn RUPERT REPORT #41 C-128---------------------------- " LOADING 'HELPKEY' ROUTINE..."M("1300") B$( B$"XX" 1002B( PRESS CMDR-\ TO END"5" (PRESS SHIFT-\ TO ABORT)"E ("1300")Ki A9,8D,8D,80,03,A9,01,8D 81,03,A9,FF,8D,82,03,A9 4C,8D,83,03,A9,1F,8D,84 03,A9,13,8D,85,03,60 E6,3D,D0,02,E6,3E,20,86 03,C9,A8,F0,03,4C,86,K: A(N)1E  I1 M: PPP: PA(P): : P;: A(PP)A(P): PPP 20P U1:AA(V)AA(V1): V:PP1 : U,FC,A9,0F,85,FD,A9( T FB,A2,0A,AC,95,13,20,65F ^ FF,68,AA,68,A8,68,90,0Bd h 20,7D,FF,07,0D,41,42,4F r 52,54,00,4C,86,03,00,00  XXD,83,03,A9,1F,8D,84 03,A9,13,8D,85,03,60 E6,3D,D0,02,E6,3E,20,86 03,C9,A8,F0,03,4C,86,  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 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) |   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,,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, :A(S$)11:R$R$(S$,A,1)::R$R "TYPE - RUN 110 - FOR EXPERT SOLUTION" : p d --- EXPERT SOLUTION --- n"WORD(S) TO REVERSE";S$ xA1(S$):R$(S$,A,1):R$" " 140 SR$SR$R$ : A B(SR$)11:(SR$,B,1);::" ";:SR$""D:X(S$," ",B)(AX1B1:(S$,A,1);>(A:XL" ";:20 B$)<CKCKB : CHECKSUM$F M,B.PMM17Z 30[d CK17546 "DATA ERROR" :n" 'HELPKEY' ROUTINE IS LOADED"x : "ASSIGN KEYSTROKES TO HELP KEY :"" PRESS CMDR-\ TO BEGIN"" TYPE DESIRED KEYSTROKES"" 03 A5,7F,D0,5F,48,98,48,8A8 48,A9,00,8D,95,13,8D,00V FF,20,7D,FF,A4,9D,00,20t E4,FF,F0,FB,C9,A8,F0,1B" C9,A9,38,F0,2C,AC,95,13, 99,96,13,C8,8C,95,13,206 7D,FF,20,9D,00,20,D2,FF@ 4C,40,13,A9,96,85,FB,A9 J 13,85 \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 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  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 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 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa A(S$)  ==================================a COMMODARES PROBLEM #37-4 :z PHRASE REVERSER SOLUTION BY PAUL PARKER ================================== --- NOVICE SOLUTION ---" "PHRASE";S$ 6646,1:53280,0:53281,0:10)"PLEASE WAIT..."_ ================================== COMMODARES PROBLEM #37-1 : MAGIC SQUARE SOLUTION BY THOMSON FUNG ================================== M(3,3) : M 6646,1:53280,0:53281,0:10)"PLEASE WAIT..."_ ================================== COMMODARES PROBLEM #37-1 : MAGIC SQUARE SOLUTION BY TERRENCE STENDER ==================================; D7:K(0) : T(D)K : DD1 : D0 20fFD1: K(0)K(1)K(2)12 K(3)K(4)K(5)12 K(6)K(7)K(8)12 30P K(6)K(7)K(8)12 K(0)K(3)K(6)12 K(1)K(4)K(7)12 30Z K(2)K(4)K(6)12 30d I0 2 : J0 2 : (K(I3J)1)5; EY TO CONTINUE"@E R$: R$"" 1595@J AO1655:15,"B-P";8;2:#8,Q$:U(Q$)WATU128U133"ERROR - NOT NEWLY FORMATTED DISK": "ENTRY 1 USED": 5:oAY:"PROTECT":1655A^X2:V131:1660:X3:V1:1660:X4:V0:1660AcX30:V1:1660:X  << CD41-3 >>= ==================================a COMMODARES PROBLEM #37-1 :w MAGIC SQUARE SOLUTION BY JIM SPEERS (C-128) ================================== "LENGTH OF SIDE (ODD-3 TO 9)";N 0:X259:X321:X458:X525: 315> X3,16,X4,18,1?"NO RETURN FROM THIS FUNCTION"1? "CONTINUE (Y/N)";: YN$C?EC$"START":\?GP$"":T1$"":TP$""?  T1$: T1$(13) T1$(20) 1545? T1$;:GP$T1$? TP$(13)?: TP$::YA(Y1):KK1: KNSNS1 80&F 50ZP I1 NS: J1 NS: "####";M(J,I);:J::IZ I1 NS:TLTLM(I,I):I:"ROW/COLUMN/DIAGONAL TOTAL=";TL (C-128) ================================== "LENGTH OF SIDE (ODD-3 TO 9)";N O COPY TO?";< 1540<<F2$GP$ = "COPY ";:F1$;: " TO ";:F2$-= 8)"OK TO CONTINUE (Y/N)?";8= YN$]= YN$ "Y" EC$"START": 310s= ""F1$ ""F2$=KSDS:KS$DS$: DS0 EC$"E0"= 315= X3,16,X4,18,1=  << CD41-4 >>= ==================================a COMMODARES PROBLEM #37-2 :x OUTCAST ORDER SOLUTION BY DAVID HOFFNER ================================== "PEOPLE";N:"OUTCAST #";M: A(N)/ YY1  << CD41-5 >>= ==================================a COMMODARES PROBLEM #37-2 :x"OUTCAST ORDER" SOLUTION BY KEITH KUSHNER ================================== "N,M";N,M: AA(N): T1 N: AA(T)T : T (1,1)20 M(2,2)25 : M(3,3)303 X5 15 5F Y5 45 5s X20Y30 M(1,2)X : M(2,3)Y : 40}# : ( - FILL IN BLANKS --M(1,3)7520M(1,2)2M(3,1)7525M(1,3)7M(3,2)7530M(3,1)<M(2,1)7520M(3,1)A 3:K(8)5:T56:B1:K010:B(K)B:C(K)2047B:BBB:T(K)10:cK(D)1: D4 K(D)4 : D3 : 20K(D)K(D)1:KK(D): D4 K(D)4 : D5 : 30( K8 TT C(T(D)) : T(D)10 : DD1 : 302 T B(K) 30<TT C(T(D)) : TT B(K): J:: I6:B1:K010:B(K)B:C(K)2047B:BBB:T(K)10:cK(D)1: D4 K(D)4 : D3 : 20K(D)K(D)1:KK(D): D4 K(D)4 : D5 : 30( K8 TT C(T(D)) : T(D)10 : DD1 : 302 T B(K) 30<TT C(T(D)) : TT B(K)31:V0:1660Ah15,"U2:8 0 18 1"Am"DONE":: "CLEANING UP..."Br:CBw15,8,15,"I0":DSDS$:1650:՟8,8,8,"#":15,"U1:8 0 18 1":`B|15,"B-P";8;X:8,(V);:"S0"q@6@; " PRESS ANY KEY TO CONTINUE"@@ " PRESS ANY K S: NS2(NS2) NS3 10V M(NS,NS),N(NSNS):"STARTING NUMBER";S:"INTERVAL";DN(1)S: I2 NSNS:N(I)N(I1)D:( A(X)XNS(X1)NS(XNS):KK1:X(NS2)1:YNS2 M(X,Y)0 XA(X1):YA(Y2): 50<M(X,Y)N(K):XA(X1)  TP$;?: TP$(20)(GP$)0 GP$(GP$,(GP$)1): GP$GP$TP$@" (GP$)0 1540@'0@,GP$(GP$,(GP$)1)k@1 (GP$)16 9)"FILE NAME TOO LONG": 3:EC$"S0"q@6@; " PRESS ANY KEY TO CONTINUE"@@ " PRESS ANY K  << CD41-6 >>= ==================================a COMMODARES PROBLEM #37-2 :x"OUTCAST ORDER" SOLUTION BY MIKE STRAWN ================================== "N,M";N,M : A(N) : I0 N1: A(I)I1 :  (147)= "THIS PROCESS SAVES THE STARTUP"> "PROG IN BANK1 SO OTHER BASIC PROGRAMS"C> " CAN BE RUN. F1 KEY WILL RESTORE";L> 6^> 1,"SYS3147"i> 3072>(215)01505:Չ1515>X10:X239:X31:X438:X55:X633>315>X12>N(YN): A(Y) 20:XX1: XM Y:A(Y)1:X08  20 MAGIC SQUARE 128s?  UN11:P(((PM)U((PM)U))U.5):PPU(P0): AA(P)m  VP U1:AA(V)AA(V1): V:PP1 : UP : " MAGIC SQUARE:"F I1 3,K J1 3>P M(I,J); : HU : ================ COMMODARES PROBLEM #37-1 : MAGIC SQUARE SOLUTION BY THOMSON FUNG ================================== M(3,3) : M 0 CF$(CF$,(CF$)1): CF$CF$CA$0M (CF$)0 8050R90W ""CF$: DS 1 EC$"E"\0\((DS$,21,2)) "00" EC$"E1"f0a 3150f X5,4,X6,24,1::DK$DS$:DKDS: DS0 EC$"E0": 8650k X1,0,X2,24:::1)0p 8050u X3,16, ,"IJ":DK$DS$:DKDS:DS EC$"E0":710:՟8,8,8,"#":15,"U1:8 0 1 0":>.15,"B-P";8;X:8,(V);:R.:1,1,39,24,1X..KSDS:KS$DS$: KS0 EC$"E0": 780.4)"PRESS ANY KEY TO CONTINUE". XX$. 315.: 5). "ENTER NAME ";PG$8(PG$)16"FILE NAME TOO LONG!": 2:124059"ENTER THE PROGRAM TYPE: BASIC OR ML":1540_9BM$GP$:BM$"ML"T$"BOOT":T$"RUN"9 BM$"BASIC"BM$"ML""INCORRECT ENTRY, REENTER.": 2:12509C(PG$)2831:DC255:EC2 7 "NOT AUTOBOOT, NORMAL COLLECT":715:, "AUTOBOOT DISK - DISABLE THEN COLLECT": 2z,X0:V0:750:15,"U2:8 0 1 0"::DK$DS$:DKDS: DK0 725,EC$"E0",:320,: "CLEANING UP DISK...": DS EC$"E3", 710,: "CLEANING  YN$6 YN$ "Y" EC$"START": 310 7 ""F1$ ""F2$/7KSDS:KS$DS$: DS0 EC$"E0"97 315N7 X3,16,X4,18,1q7 "SAVING 128 STARTUP PROGRAM"7 "@128 STARTUP"7DKDS:DK$DS$: DS0 EC$"E0"7 3157 X3,16,X4,18 ,A9,1,85,2D,A9,1C,85,2E,60,E6,2E,4C,1E,C,EA,EA,EA,EA8*g A9,0,8D,0,FF,A0,0,A2,1,A9Y*l 2D,20,74,FF,91,2D,C8,C4,2Fl*q F0,7,C0,0,F0*v 1C,4C,52,C,A5,30,C5,2E,D0,E5,A9,1,85,2D,A9,1C,85,2E,A5,2F,A6,30,8D,10,12,8E,11,12,60,E6,2E,4C,52,C,0*{ (14 ";: CF$;: ",";: ID$4 10)"CONTINUE (Y/N)"; 5 YN$,5 YN$"Y" EC$"START": 310<5IQ$","ID$M5 ""CF$IQ$r5$DKDS:DK$DS$: DK0 EC$"E0"|5) 3105.(27)"M";53 X1 114:" ";: X585= X3,16,X4,18,15B ( 0314096:D$:T,(D$): (! 600,(& X30723205:ML$:X,(ML$):2(+V(0 5F,FF,FF,FF,FF,FF,FF,FF,FF,FFz(5 FF,FF,FF,3F,FF,FF,3F,FF,FF,FF(: FF,FF,FF,FF,FF,FF,83,FF,FF,1(? FF,FF,1,FF,FF,1,FF,FF,1,FF(D FF,83,9F,FF,FF,9F,FF,EF,FF,FF)I  CF$(CF$,(CF$)1): CF$CF$CA$ 3 (CF$)0 9453'3CF$(CF$,(CF$)1)_3 (CF$)16 9)"DISK NAME TOO LONG": 3: 9303: "ENTER 2 CHARACTERS FOR DISK ID?";3ID$"": ID$: ID$(20) ID$(13) 1000: ID$;4AD$"": PROTECTS THE BOOT BLOCK" ;# "BY CREATING A USR FILE CALLED PROTECT"8;( "AND ALLOCATING THE BOOT SECTOR TO IT";A;- 9q;2 "IT SHOULD ONLY BE USED AFTER HAVING";7 "FORMATTED A NEW DISK AND MADE IT";< "BOOTABLE, BEFORE ADDING AN X4,18,10z 10701"": (150):13)"FORMAT DISK": 1D1"WARNING!! DISK WILL BE TOTALLY ERASED";m1 "DO YOU WISH TO CONTINUE (Y/N) ?";w1 YN$1 YN$"" "WARNING!!WARNING!!": 9101 YN$"Y" EC$"START":(27)"L": 3 OF FILE TO SCRATCH"/ 3): "$ FOR DIRECTORY -> RETURN TO EXIT"*/  "?"; CA$(13)/C: CA$: CA$;/H: CA$(20) (CF$) 56915,"B-P 8 0":8,"CBM";(0);(0);(0);(0);PG$;(0);(0);(:8,(162);(D);(160);(E);U:8,(76);(165);(175);T$;(34);PG$;(0)m: 15,"U2:8 0 1 0"::KSDS:KS$DS$:KS0EC$"E0":315: X3,16,X4,18,1: "THIS PROCESS UP DISK...": DS EC$"E3": 320Z-745:15,"B-P";8;0:#8,Q$:U(Q$): U 0 "SEQUENCE ERROR - REDO COLLECT": 4:710- "AUTOBOOT DISK - REENABLING AUTOBOOT": 3-X0:V67:750:15,"U2:8 0 1 0":DK$DS$:DKDS: DK0 710 705!.15,8,15 ,17"THIS PROCESS CREATES AN AUTOBOOT"8"FOR ML AND BASIC PROGRAMS. ALL DATA"M8"ON TRACK 1 SECTOR 0 WILL BE LOST!";: 7n8"CONTINUE? Y/N":A$8A$"Y"315815,8,15,"I0":8,8,8,"#"8"ENTER NAME OF THE PROGRAM: ";:" 7):* 1520 + (YN$,1)"Y" 320"+ X1,0,X2,24,1:=+DS0 EC$"E5":320H+ 1520b+ (YN$,1)"Y" 320m+65357+ X3,16,X4,18,1+ "INSERT DISK TO BE COLLECTED"+ 1595,745:15,"B-P";8;0:#8,Q$:U(Q$): U 6 147)5G "ENTER FILE TO RENAME?";5L 15406Q EC$"S0" 10906VF1$GP$(6[ (147)J6` "ENTER NEW NAME FOR FILE?";U6e 1540j6j EC$"S0" 1115v6oF2$GP$|6t6y "RENAME ";:F1$;: " TO ";:F2$6~ 8)"OK TO CONTINUE (Y/N)?";6  C7,FF,FF,C7,FF,FF,C7,FF,FF,EF%)N FF,FF,FF,FF,81,7,6,A,7,6/)S 4,5)X A9,F,8D,0,FF,AD,10,12,AE,11,12,85,2F,86,30,85,31,86,32,85,33,86,34,A9,2D,8D,B9)] 2,A0,0,B1,2D,A2,1,20,77,FF,C8,CC,10,12,F0,7,C0,0,F0,13,4C,1E,C,A5,2E,CD,11*b 12,D0,E5  AD$: AD$(20) AD$;: 1005: ID$ID$AD$: AD$;?4 AD$(13) AD$" ":ID$(ID$,1):ID$ID$AD$: 1030s4 RT$: RT$(20) RT$;:ID$(ID$,1): 10104 RT$(13) : 10)"2 CHARACTERS ONLY": 3: 10004(147): "FORMATTING DISK: Y FILES";;A 10RETURNTO ABORT"(2 "?";:2CA$"":CF$""W2 CH$: CH$(20) 950{2 CH$(13) EC$"START": 3102CF$CH$: CH$;2 CA$(13)2: CA$: CA$;2: CA$(20) (CF$)0  i(i8dJJJ`)  ȩW;t<;i(; HIT SPACE TO START" 1,9,14,MD$:1,11,15,X,0:"1%: : (142):&("60,1:0,1:4,1:5,7.";j"@ X1,0,X2,24,1:10)"S T A R T U P 128""E" ENTER SELECTION""J"""O" " < PP(P(@A@UU<(((@UTUP???0<0<<  P((PU@U<<< 0(((P@U@T DISK M> QUIT STARTUP "@$r"G> RENAME A FILE "p$w" "$|""$" "%" 8,A:ì–A0  àA:UCCESSFUL"2&:EC$"E1"3)"FILE TO BE SCRATCHED NOT FOUND";: 450g&:EC$"E3"3)"COLLECT FAILED TRY AGAIN";: 450&:EC$"E5"3)"THIS IS NOT AN AUTOBOOT DISK": 450&:DS04)DK$:450&:4)DS$&&X1,0,X2,24&EC$"OK":9;:<  ܠOƙz ݭ) ݩލЩt`ТBBЌ!Э )L1L    @߿  h`  h`  h` ~ŝlŽr})r`)ŝxŭ)ŝ~Źŝ` fřнlřЭ=Ũr)ŨحdōЭcō`) Ԣԩ Q^Š î`Š ì^^`82ti:02t`2tBt LLà2tBt02t`t8c4JJJ  ":(20)"  "p-20)"̯ "220)""728)"HIT 'SPACE' TO START".<NAM$"DESIGNED BY MIKE DAVILA, MIKE3:PX90: n1,1 s1,40,40,284,1605x1,45,45,279,155K}1,140,92,172,105e1,70,80250,80:1,13 B$(7):C$"STARTUP":I17:B$(I)(C$,I,1):B17,2,2,B$(B)A$,11,10,34,31A$,BB,375,100B,1,B,0,1,1,0 MK$ !1,13,16,PM$ !1,2:1,9,18,BEG$9! 8,125,250:8,1,1O! 8,360#3:51598]!: PX2137n!: PX2S8!: S8(8,1)! : !8,90#3: 1:8,90#0!K$!X17!X,,((0)151)!"X!'K$(32)275!,X18:#T"A> BOOT THE DISK H> SAVE STARTUP "P#Y"B> GO 64 I> MAKE AUTOBOOT "#^"C> COLLECT DISK J> PROTECT BOOT "#c"D> DIRECTORY K> COPY A FILE "#h"E> SCRATCH A FILE L> STASH STARTUP "$m"F> FORMA)UT <<<000P (P(@@UU< (P(PPU@U< ((@PUPU@< (P(PPU@U "0%" "g%"":51598|% X3,16,X4,18,1%EC$"START" 455%(EC$,1)"E"6)"LAST OPERATION SUCCESSFUL": %:4)"LAST OPERATION UNSì–AP (P(@@UU< (P(PPU@U< ((@PUPU@< (P(PPU@U DK0:DK$""&C$'C$"A"640'C$"B"660.'C$"C"675>'C$"D"755N'C$"E"785^'C$"F"885o'C$"G"1085'C$"H"1180'C$"I"1205'C$"J"1305'C$"K"1370' C$"L"1460'C$"M"600' 465' T4 h  h   h` h` h` h` LIVES SCORE TIMER HIGH LEVEL  3 00000 000 00000 PRESS FIRE BUTTON ~~~~~~~~t"" 38,20,23,1,1 SPRITE MOVEMENT DATA? 169,255,45,0,198,240,16,169,0,141,0,198,162,21,189,0} 197,157,0,198,202,208,247,162,1,169,1,141,80,197,173,80 197,45,0,197,240,3,76,243,198,232,232,14,80,197,208,238,76,49,234 169,0,29,0,18( A0 A1:"WALL CRAWLER.ML",8,14 49152 ,56,193,145,9252 104,145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232z< 32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162F 193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193P 133,91,24,105,212,133 4,192,0,0,4,8,0,0,05,170,128,215,27" 0,255,0,0,40,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,195,0,3,255,192m" 0,60,0,192,255,3,255,255,255,192,255,3,0,60,0,0" 0,0,0,0,0,0,0,0,0,0,124,0,0,254,0,1,255,0,3,207,128,7,156,192" 15,60,224,14,127,2145,90,236,117,193,208,160,96,172,116L 193,200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136 169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240 16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240  ,255,0,128,215,2,170,215,170,128,215,27" 0,255,0,0,40,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,195,0,3,255,192m" 0,60,0,192,255,3,255,255,255,192,255,3,0,60,0,0" 0,0,0,0,0,0,0,0,0,0,124,0,0,254,0,1,255,0,3,207,128,7,156,192" 15,60,224,14,127,2" "f) SCROLL DATAn 174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10 169,32,72,173,33,208,72,76,50,192,177,90,76,0,0,168,0" ^ 2,170,0,10,154,128,2,170,0,0,168,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,06 h 0,0,0,0,0,0,0| r 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,20,0,0,170,0,2,170,128,9,150,96 | 170,170,170,10,85,160,2,170,128,0,170,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ONDOG MOONDOG MOONDOG MOONDOG M"KT"O SCORE";SC;17)"MOONDOG SHIPS";SH;38)"O"vV"O"38)"O":"N"38)"N":"D"38)"D"X"O"38)"O":"G"38)"G":" "38)" "Z"M"38)"M":"O"38)"O":"O"38)"O"\"N"38)"N":"D"38)",134,199,222,0! 198,208,9,254,255,207,189,0,197,157,0,198,202,76,233,198` 169,255,221,255,207,240,3,76,43,199,173,80,197,76,17,199 120,169,192,141,20,3,169,198,141,21,3,88,96" JOYSTICK DATA, 173,0,220,41,31,73,31,133,3,173,1,97,208,3,76,97,199,169,128,613 0,197,240,48,254,0,198,208,40,222,255,207,76,144,199,80q 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76 43,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0 198,76,97,199,222,0,198,208,40,25  ĩ҅9ƅ:;p< 9;@e99:i:e;; 54292,D:54286,30:54287,60:54276,33:54283,23b 54290,23:F140801:54273,F1 F260315:54280,F2:F2:F1 54276,32:54283,32:54290,32:T01000: X5427254295:X,0::54296,15 54284,160:54285,252:54280,80:9,169,38,141,2,3,173,1578CJ48,193,240,23,165,161,201,212,176,4,165,160,1748vT240,13,238,32,208,160,0,32,225,255,208,6,1617^32,33,193,76,38,192,232,208,242,200,208,239,1893h32,68,229,169,0,168,174,49,193,32,186,255,1555r173,50,193,131,13:632,13 I d 173,17,208,41,239,9,32,141,17,208,173,22,208,41,223,9 e 16,141,22,208,173,24,208,41,240,9,8,141,24,208,76,43 f 192,173,17,208,41,239,141,17,208,162,127,160,64,134,252,132 g 251,162,4,160,0,134,254,132,253,162,131,160,208,96,142,1,192E l 140,0,192,160,0,177,251,145,253,165,252,205,1,192,208,8 m 165,251,205,0,192,208,1,96,230,251,208,2,230,252,230,253 n 208,227,230,254,76,135,192162,127,160,64,134,252,132 g 251,162,4,160,0,134,254,132,253,162,131,1604,193 "(J):ST0386 #(3)450443,255:50688,32U $(3)850443,1:50688,32y %FB(((56320)16)0):FB1100 &W1(V30):W132200 ((V9)UP50442,1:50688,16 *(V9)DO50442,255:50688,16 ,(V8)EA50441,255:50688,1""8);SC:300:W2(V31):50432,63:389 MOONDOG HITp 50432,0:X024:SX,0::S24,15:S5,8:S6,255 S4,85:F1100:F2230:Q180:S,F1:2045,198:S15,F2 2045,196:F2F22:F1F1.99::S6,15 SHSH1:""34);SH:SH040044,192:LP0: 8V,30:V1,30:V2,80V :V3,30:V4,170:V5,30:V6,160:V7,30:V10,160 ;V11,198:50443,0:50688,32:50432,63 <  GAME OVER 50432,15:""11)"G A M E O V E R":SCHSHSSC :11)"SCORE ";SC:: 2000:11)"PLAY AGAIN--Y OR N",JK$:JK$""418CP$:P$""C:420SP$"Y"426Yy50432,0:SC0:SH4:850:18X024:SX,0::S24,15:S12,160:S13,252S8,80:S7,40:S11,129 X4915249528:A:X,A: "">/A$" "t0V53248:S54272:LP0:HS0:SC0:SH4:C49152:J8282X20402043:X,197::2044,192:2045,196:2046,19542047,195:X3942:VX,15:6V43,8:V44,14:V45,8:V46,8:V28,240:V29,240:8V37,7:V38,0:V,40:V1,30:V2,80:V16,128q:V3,30:V4,140:V5,30:V6,160:V7,30:V8,140<V9,120:V10,160:V11,198:V12,30:V13,198>V14,24:V15,198@Q PLAYING SCREENR"M MO Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/f.LOADER "SCAVENGERHUNT.ML" PRG  "CAVENGER UNT" PRG  "RAPHIC EDGE" PRG  "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,8 (147)"LOADING AND CHECKING THE DATA...":J49152UB011:A:A0A25540tJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(64)256(63):2X0:JJ12:J4945620<198,0:49456,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)4 CKUP"::"FILENAME";F$:F$N$(F$,14):L(F$)X 49458,L:J1L:49458J,((F$,J,1)):J: "SAVING DEVICE ** "D$:"STARTING WITH ** "F$ :"IS THIS CORRECT (Y/N)";B$:B$"Y"60 770,131:771,164:49152: 169,79,32,210,255,162,38,160,4 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,0,2,240,5,169,1215; 79,141,2,3,76,162,164,169,0,133,2,133,1064r 251,133,252,133,254,24,101,20,69,254,230,254,1975 24,101,21,69,254,170,230,254,164,252,185,0,1724 2,133,253,201,34,208,6,165,2,73,255,133,1465 2,201,32,208,4,165,2,240,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 F"DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90V P"NO AUTOMATIC SAVES...":150 Z49456,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE" d49457,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";N nN$((N),2):N10N$(48)(N48)) xF$"BA192,204,3,3,1507@ 208,10,162,131,160,164,169,70,32,210,255,44,1615o 169,78,32,210,255,142,2,3,140,3,3,76,1113 36,193,32,96,165,134,122,132,123,32,115,0,1180 170,240,243,162,255,134,58,144,3,76,150,164,1799 32,107,169,32,121,165,173ATR l AHOY! MAY 1987872ABOOTER64 UG EP128 BUG REP 64 UG EP ɠ 128 BUG REP 2 LANKSPEED OONDOGMOONDOGMOONTITLE(ALL RAWLER WALL CRAWLER.ML 128 STARTUP'SCAVENGERHUNT.MLCAVENGER UNTRAPHIC EDGE  LLUSION ASTER AGIC QUARE AGIC QUARE 2 MAGIC SQUARE 128 UTCAST RDER UTCAST RDER 2 UTCAST RDER 3OWER RODUCTOWER RODUCT 2 HRASE EVERSER PHRASE REV 128 128 HELPKEY LOADER DDLOGO%DIR 1( 6 (147)"LOADING AND CHECKING THE DATA...":J4864SB011:A:A0A25540rJB,A:XXA:B:A:AX50(:"ERROR IN DATA LINE:"(66)256(65):2X0:JJ12:J521320<208,0:5213,0:A$"Y":B$A$:C$"D":D$"DISK":D8:(147)0 F" :"FILENAME";F$:F$N$(F$,14):L(F$)P 5215,L:J1L:5215J,((F$,J,1)):J: "SAVING DEVICE ** "D$:"STARTING WITH ** "F$ :"IS THIS CORRECT (Y/N)";B$:B$"Y"60 770,198:771,77:4864: 32,58,20,169,41,162,19,236,3,3,208,4,95 169,0,166,235,164,236,133,253,133,254,142,47,1932] 20,140,48,20,24,101,22,69,254,230,254,24,1206 101,23,69,254,170,230,254,164,252,185,0,2,1704 133,251,201,34,208,6,165,253,73,255,133,253,1965 201,32,208,4,165,253,240,8,138,24,101,251 ,93,12982J20,240,27,165,161,201,212,176,4,165,160,240,1771dT17,32,65,20,238,32,208,238,1,214,32,225,1322^255,208,6,32,49,20,76,198,77,232,208,242,1603h200,208,239,32,66,193,173,95,20,162,96,160,1644r20,32,189,255,169,0,170,32,104,28,206,1222,1,214,169,0,170,168,76,219,255,32,79,20,1403_169,26,141,0,214,173,0,214,16,251,96,162,14620,142,0,255,96,19,18,32,32,32,32,146,8040,1,0,0,65,72,79,89,33,0,0,0,33920,162,96,160,1644r20,32,189,255,169,0,170,32,104,2d53280,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:ADA1 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);:"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 ARE5:A$"/"A$":"T(A)(A$)48:$T(A)16:7 ADRESS CHECKFADEN385YBSRBEN390B256(B40960B49152)B53247395 ADDRESS TO HEXACAD:A4096:520A256:520A16:520A1:520T(ACDO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90R P"NO AUTOMATIC SAVES...":150 Z5213,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE" d5214,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";N nN$((N),2):N10N$(48)(N48)# xF$"BACKUP":5+ 169,198,162,77,141,2,3,142,3,3,224,19,1143\ 208,7,32,125,255,79,78,0,96,32,125,255,1292 79,70,70,0,96,162,0,134,251,189,0,2,1053 240,19,201,48,144,9,201,58,176,5,133,251,1485 232,208,238,134,252,165,251,208,3,76,198,77,2042* ,16253 69,254,170,44,198,254,230,252,164,251,208,213,2307e "138,41,240,74,74,74,74,24,105,65,141,88,1138 ,20,138,41,15,24,105,65,141,89,20,32,79,769 620,189,85,20,240,6,32,210,255,232,208,245,1742 @174,47,20,172,48,20,24,32,240,255,17355,169,0,13953|174,94,20,168,32,186,255,169,45,174,16,18,1351f172,17,18,32,216,255,162,1,189,96,20,168,1346200,152,201,58,144,2,169,48,157,96,20,201,144848,208,3,202,16,234,32,49,20,141,0,2,95576,183,77,58,59,32,65,20,206,32,20A):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$N54272,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)560220 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|: 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 `@P @?????????_WUUUUUUUUUUU UU=====UUUMMOOOOOUUUSSSSSSSTTT???UUU55PPPSSSSSTTTUUU55PPPPP *fojkj뿺m@PT k潯ڿ_?????PPPPPPPP= UUUUUUUU= UUUOC@UUUSSP5UUUSSPTTT5UUUPPPPPPPP: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:B0635UUUUUUUUPPPPPPPP*ڛ홯kڽfoom?*ۼ@**PPPPPUUUTAUUUTAUUUWAUW_UUUUUU@*UUW_   ****(U **@TP@ W__UUUUUUUUUUUUUUUUUUUUUUUUUUU????????????PPPPPP **wUݿ@P????????UUUUQPPPUUUU]}UUUUUU????????PPPPPPPPUUUUUUUU========MMMMMM}}OOOOOOOOSSSSSS__SSSSSSSS55555555SSSSSSSS55555555PPPPPPPP *****fk֩m۾۩۾[oooPU||UUUUUU: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$NUUUUUUUUUUUUUUP**** offoj[jfiڛjnmof) * iokkߗ@P@TUUU@PUUUUUUUUUUUUUUUUTUUUUUUTPTUTCUUUUUUUW_W_UUUUU@ @******* PTTTTUUUUWW__UUUUPPBBB? UUUPCCCCCUUUVZjW@**/ * *ՕP@UUUPUPUUUUUUUUUUUUUW_TTT|UT@@?@_=_ UUWU]wVnzݪ~yꞞꪟꪪVjꪪꪪ^VUUUUUUUUUUW_UW_ U_Vhh@UUUUUUUUUUUUUUTTTTP@@WYe__Wujժ→U￿_eijZfꪪzꪪj٪ !UUUUTPTTP@UUUUUUUUUUUUUUUUUUTTP@@@wUUvUmuzUWUvjZYfjjj몖iT@@DDDDToe}WeZViz~ꪪg몪_ߩ~Wjjnjڪf뛛艉98iiii)))hhhhh蘘KKP@F@K@`@@[KP+@FK 0PUUUUUUUUUUUUUPUUUUUPUUUPUPTTUUUUUUUWUUUUVjVZjP +YUnuUjZ_~f*+UUUUUUUUUUUUUUUUUUUUUUUUW_UW_ @@UUUTTP@@@WY_{YkyV_]嫪ޯz窧{ߪ뿻z_ןj~V꺪z(* ꪪUU ( @ @AUUUUUUUUUUUUUUUUUUUUUUUUUUTTP@P@@jVzw~W_g~g[uթꩪ_z^饪ޞ}iꪮjgfUTUUUUTTTP@Yeޭ^^eWjjj꿪fijꦩjjijjjjijDDDE@@@@@@@DT@@@@TDTDDDDDDDDDDTTjVfYZUej뛛ɋ뛛뛛뛛뛛蛛 hhh(hhh(xhhk((((膆kh蘘(((kk((hh( _f6ff֖@ՕU @VP&k@E ƦF榶6@EEE{@ ++ EE; @k@keUE [ + C# K@#K @% KCfP @KOFIBGg7G#ۀvFF G0SYF@GCFF[KFF@KP K@  L?`LoLALL L/LS``L LLLLL$L)L`L L* B`(`#LLLLL LL`L L L(L#LOLELOLELO LELOLL]­ L]* LL L L4L L Lx˭x ԍO?Od>NάNέOΙdͭN>ԩ͍` s ĢΝL s ĢΝΝ ɅL    `cCLOk G+ [ CPCcX h 0Kۧ'GccXP gG' G7FKC#֦ K@cfK@ːk WGWbfFF `@PkːFI@[@[+ FvFF`CcX h 0Kۧ'GccXP gG' G7FKC#֦ K@cfK@ːk WGW* B`` ` B`4` ` B`y˭y P` `~L}L{LkwLoLLLL LLLLL$L)LLL L*iGiVi(iiGi`iiiGi6i(iiGi`L1íí4îý3čԍԽčԍԽ#ōԽōԩ!ԍ ԍLé@ԩ ԩ       GaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGaGa                      3Ɲ1X`ǝ.ǝ8ÍÍÍɍύύ͍͍;΍dˍeˍO΍ɍɍɍWʍʩ©© xˍyˍ¢~ɝN΢?d?`\p  (**0UGi(ݢ˝C#˝nNC؝nة#ڝN٢˝J˝*Jة*zˍnɽˍqiԍoiԍrɠؙ ` ɝ~ɠ i ΌLɮɽzˍɽˍɢ˝ i ŢɮɭЮ`ʹˍ2˹ˍ3˩cɠ oˍ&fm%ː&˩ B    Lʠ~c d`c e`$Mv< 3[;c    &'()*+,-:;<=%               ͢G ɭ `0`>Xq&'()*+,-:;<=%&'()*+,-:;<=%&'()*+,-:;<=%&'()*+,-:;<=%&'()*+,-:;< PΠͽ<΍ͽE΍;dͽ%ͮ͝%iͭ8ͭ   !    ! 1            BLACKMER Ȣ ϝϝF؝FLxÍX`x1X`ԍԩ Ȣ,ϝqq M B fϭϭ 9) A0 A1:"SCAVENGERHUNT.ML",8,15 491529΢ 7 7΢G 7 7``&Ox>ԍO?Od>NάNέOΙdͭN>ԩ͍` s ĢΝL s ĢΝΝ ɅL   Q"A000B197C169D251E133F208G160H032I253J192K165L144M201N252O008P141Q076R145""S173T002U024V096W177X007Y210Z162[194\200]254^255_232:001;056<176=233>230""?003@009 181!198#207$006%095&172'217(074)193*195+221-224.105/010"9 "C92,E;CQE115, 83,F$H213,196,Q JM79,F$H50,BQ JM73,"p "F?H17,J&161,B174,ZBQ115,AQ121,AFY#199,Y)205,G['GY#[BY212,G[M216,['AH178," "WK100,P164,BK101,P163,BH155,183,142,166,BQ241,*CAEDCVENGAC248,EIC%E]C" "A153,248,%WDU/RDL5,C:153,248,%\JOF=WDU/RDL$WI@:RI\F23945,KDU.OEDLT>NKIU.OEILT>]KNM128,FYZAC126,E]CXEIGA189,175,BRIKIU.O" "EILT>]_-40,L235,VC127,ENC;EDC127,E]C49,EIZAGXWD157,175,B136,WD\RD136," "JAF245,KD;=OEDN_-4,L242,CVENGAZACARD\JAF249,_>"5"N-,BU109,&BP&BCVU109,&BP&BS163,B41,XPSBCX;237,S"k"BPSBC:ZA236,SB240,5,/_Q136,196,P174,BS&BE34,S171,BE33,GAS215,B240,31,""W33,13,174,BR33,VFY#199,Y)205,G['GY#[BY212,G[M216,['S174,B73,^P174,B""W33,45,174,BR33,VH106,*Q228,196,147,14,O211,)2149!"_XCOZOG^H186,^S_XZ=GXH189,^HL*CAZ^G^H213,^VFY#199,Y)205,G['GY#[BY212,"""G[M216,[':^100,A12,100,12,4,A15,100,111,?OAAAAAAAAAAAAAAAAAAAAAAAAAA"#"AAAAAAAAAAAAAA:M44,F16,H122,190,36,61,48,28,K85,MOL22,PJT&)T185,61,@"$""B(96):201A$"/"C$C$A$: JA$""370TBB((A$))2hCCB:1,(B);::300brC 215247 "CHECK FOR TYPING ERROR":390z|N$" SAVED TO DISK"1:15:AAAAAAAAAAAA:M44,F16,H122,190,36,61,48,28,K85,MOL22,PJT&)T185,61,@"$""B(96):201  "":53281,1"::::b"           ""            ""             "*#"   dLέeLLϰ<΍8νE΍9έ(;8m;΍8ΐ9΢ 7 7΢G 7 7``&Ox>ԍO?Od>NάNέOΙdͭN>ԩ͍` s ĢΝL s ĢΝΝ ɅL           "h("          "o-"2"        "7"           "<"     CHE116,CJE117,VZA189,)J240,XHY^_Q19,JVH234,*H121,AM92,240," "?Q190,JH234,*H121,A140,161,B142,ZBM85,F$H148,)Q JM68,F$H22,[Q JM82,F$" "H153,[Q JMQF$H239,JQ JM67,F$H *Q JM72,F$HL*Q JM84,F?Q106,*M80,F11,C:P" "215,BH'JQ JM69,F11,CAP215,BH'JQ JM,>N>]KNM127,LXK"V "DM64,L:VWDU/RDL$WI@:RI\J64,L237,KDU.;EDLT>NGA185,248,%17,DRD\JOF244," "GAKDU.OEDLT>NKNE]KD;=OEIN_-40,L+GAWDRI\WD136,RD\\J": "OF2AZA189,175,BRDKD;=OED122,FT>123,VS164,B(S163,B106,((PKBS166,B(((P167,BS166,B41,""XP168,B174,167,BCAPCBP170,B-A240,21,SCBU.64,PCBL?238,170,B238,170,B202,""Q26,196,142,171,B142,&BSKBU///L?238,&BU109,168,BP171,BL?238,&BSCBU109,""171,BP171,BL?238,&BS170,BGAZA134,!189,219,196,"R"240,XHY^_Q_196,GAH#^153,=X\J16,<4,M13,F241,JT<:V140,_XCOZOG^H186,^S_""XZ=GXH189,^CAE34,C92,E35,C34,ZAG128,H216,^VH106,*Q65,B147,14,O204,#)" "196,GAZA134,!189,;B240,XHY^_Q69,BGAH#^153,=X\J16,<4,M13,F241,JT<:V140,":D$:I1(D$)4:DE$(D$,I,4):D1$(DE$,1)-D1$""280VD2$(DE$,3):B((D1$))(D2$)::201N$"GWML":15,8,15,"S:"N$:1,8,1,"0:"N$",P,W""1,(000)(192);,B$:A1(B$):A$(B$,A,1):A$","B(C$):C$"":360@A$":"     "QA"          "F"          "K:::::P" PRESS ANY KEY"UX4915249163ZA:X,A_X d136,140,32,208,173,197,0,20  Ӡ٠٠""D$:D$""205+"53272,21G""":53281,1:53280,2k""  """  ILLUSION MASTER """  """ 1 - CAUSE A DISK DIRECTORY TO VANISH#" 2 - CAU 53281,0:"".$""INSERT YOUR DISK (ENSURE WRITE-PROTECT"\$'"NOTCH IS UNCOVERED) AND PRESS ANY KEY."o$,D$:D$""300$1"WORKING..."$615,8,15:2,8,2,"#"$;15,"U1:"2;0;18;0$@855$E15,"B-P:"2;147$J#2,X$,Y$,Z$:X$Y$Z$"" DY INVISABLE" &15:2:840'&53280,2:53281,0:""U&"INSERT YOUR DISK (ENSURE WRITE-PROTECT"p&"NOTCH IS UNCOVERED)"&"WHAT'S THE FILE NAME ";F$&T18:S1:15,8,15:2,8,2,"#"&755&P256505&15,"B-P:"2,P&#2,T$& NSERT YOUR DISK (ENSURE WRITE-PROTECT"<("NOTCH IS UNCOVERED) AND PRESS ANY KEY."O(D$:D$""540d(!"WORKING..."|(&15,8,15:2,8,2,"#"(+15,"U1:"2;0;18;0(0855(515,"B-P:"2;147(:#2,X$,Y$,Z$:X$Y$Z$""615(?15,"B-P:"2;177"INSERT YOUR DISK (ENSURE WRITE-PROTECT")*"NOTCH IS UNCOVERED)"J*"WHAT'S THE FILE NAME ";F$k*T18:S1:15,8,15:2,8,2,"#"t*755*P256730*15,"B-P:"2,P*#2,T$*T$""740*15,"B-P:"2,P22*#2,T$*15,"B-P:"2,P(A$(0)):B(B$(0)), X522932,N$""$,15,"B-P:"2;X3,Y1(F$)>, #2,A$K,%N$N$A$R,*Ye,/F$N$PX3:l,4X},9A0P256:,>TA:SB:755,C"DONE.",H"PRESS ANY KEY",MD$:D$""845,R215,W15,EN,E << CD41-7 >>= ==================================a COMMODARES PROBLEM #37-3 :x"POWER PRODUCT" SOLUTION BY J. ALAN KEHR ================================== E1000 : F100 : G10  A09 : B09 : << CD41-8 >>= ==================================a COMMODARES PROBLEM #37-3 :x"POWER PRODUCT" SOLUTION BY SCOTT DUNCAN ================================== T0TI P(99): X10 90 10:P(X)1:A(1,64,240,245,96i49152nD$Bs53281,0:53280,2:"":53272,23rx"Π ALLOWS YOU TO MAKE DISK"}"DIRECTORIES AND DISK FILES VANISH AND""REAPPEAR AT WILL.":" DISK WITH AN INVISIBLE DIRECTORY CAN" "HAVE FILECURITY SINCE YOU MUST KNOW"A!"THE FILE NAME TO CAUSE IT TO REAPPEAR.":q!": IRECTORY READING PROGRAMS SUCH AS"!"THE WEDGE '>$' COMMAND WILL DISPLAY"!"INVISIBLE DIRECTORIES BUT NOT INVISIBLE"!"FILES."::: "" SE A FILE TO VANISH0#" 3 - RESTORE AN INVISIBLE DIRECTORYV#" 4 - RESTORE AN INVISIBLE FILEw#" 5 - EXIT ILLUSION MASTER#"CHOICE ?"# I$:I$""265#I$"1"I$"5"265#I(I$)#I285,420,525,635,750$53280,2:410%O15,"B-P:"2;144%TB$""%YX17%%^#2,A$2%cB$B$A$9%hXM%m15,"B-P:"2;177W%r2,B$s%wA$""(0)(0)(0)%|15,"B-P:"2;144%2,A$%15,"U2:"2;0;18;0%855%15,"U;"%15:2:835%"THE DIRECTORY IS ALREAT$""515 '15,"B-P:"2,P22'2,T$;+'15,"U2:"2;0;T;S4'855D'15,"S:"F$M'855]'15:2:835'""F$" IS NOT ON THIS DISK"'15:2:840'""F$" IS ALREADY INVISABLE"'15:2:840' 53280,2:53281,0:""("I(D2,B$)I15,"B-P:"2;144)N2,B$;%)S15,"U2:"2;0;18;0.)X855;)]15,"U;"K)b15:2:835x)g"THE DIRECTORY ON THIS DISK HAS NOT")l" BEEN MADE INVISIBLE WITH ILLUSION")q" MASTER.")v15:2:840){53280,2:53281,0:""**2,T$;+15,"U2:"2;0;T;S +855+15,"V" +8550+15:2:835R+""F$" IS NOT ON THIS DISK"b+15:2:840+""F$" IS NOT INVISIBLE"+15:2:840+64760+15,"U1:"2;0;T;S+855+15,"B-P:"2;0+#2,A$,B$+A\M$,ET,ES,\EN0,aEN1&-f"DISK I/O ERROR: "EN;EM$;ET;ES6-k15:2:840 IS NOT ON THIS DISK"b+15:2:840+""F$" IS NOT INVISIBLE"+15:2:840+64760+15,"U1:"2;0;T;S+855+15,"B-P:"2;0+#2,A$,B$+A\ C09: D09# HEAFBGCD4 (I(ABCD)D 2 HI IV < : : : V1): V:PP1 : UX10))  Y1 9:P(XY)P(X(Y1))A::J  L1 99: P(L)9999 100X ( M0 Ly 2QP(L)P(M) : Q9999 100 <JL100M : KM100L F QJ AL:CM: 120 P QK AM:CL: 120 Z M d L n "TOTAL " T : (TIT0)60 "SEC S D TO IT AND ED FROM"- "IT AS NORMAL.":[ "NVISIBLE FILES REMAIN ON THE DISK BUT" "WILL BE OVERWRITTEN BY SUBSEQUENT S" "TO THE DISK. NVISIBLE FILES WILL NOT" " HOWEVER, SO THIS CAN BE USED AS A"!"FORM OF SE  <: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$( "RUN": ""0  631,13: 632,13: 198,2:m "":(L$,2)2)"" *(L$,3)2)" " 4I116:2)" ݞ ": >(L$,20)2)"  "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)"" (587PO55507>X2X0HAN$(13)2140#R20807\X0882:4100EaX22160pbH3H5H8H14H21H22882:1550oX1882:230p882:225I116:POI,5:: P$(1)"LANKSPEED" P$(2)"64 UG EP" P$(3)"128 UG QUARE 2"< P$(14)"MAGIC SQUARE 128"+F P$(15)"UTCAST RDER"HP P$(16)"UTCAST RDER 2"eZ P$(17)"UTCAST RDER 3"d P$(18)"OWER RODUCT"n P$(19)"OWER RODUCT 2" P$(20)"HRASE EVERSER" P$(21)"PHRASE REV 128" P$(22)"128":PT$"=>": 828F(L$,8)1)""I914:(L$,I)1)" ""(L$,15)1)" [/=ANCEL * PC=UN ROGRAM] ",(L$,16)1)"oONDS": , xA$(A1000) : C$(C1000) : TT1g Q"= "(A$,4,1) "^" (A$,5)" * "(C$,4,1)"^"(C$,5):R PRODUCT" SOLUTION BY SCOTT DUNCAN ================================== T0TI P(99): X10 90 10:P(X)1:A(4160I828935:A:I,A:: 160,0,185,0,4,153,0,192A 185,0,216,153,240,195,185,250e 4,153,250,192,185,250,216,153 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,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"  "V C(L$,21)2)"" H(L$,22)1)"" R(L$,23)1)" RSR=ELECT PC=ORE /қ=XECUTE " \(L$,24)1)" ":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)"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 EP."  P$(4)"64 UG EP "$ P$(5)"128 BUG REP 2"8 P$(6)"OONDOG"Q P$(7)"ALL RAWLER"i P$(8)"128 STARTUP" P$(9)"CAVENGER UNT" P$(10)"RAPHIC EDGE"( P$(11)"LLUSION ASTER"2 P$(12)"AGIC QUARE"7 P$(13)"AGIC HELPKEY" P$(23)""  P$(24)"" B CL819:(L$,CL)14)" ":[ (L$,P)10)" ":657,128: DISABLE SHIFT/COM KEY POKE775,200:REM DISABLE LISTING POKE808,234:REM DISABLE STOP/RESTOREL$" "@1(L$,23)3)" ":1000g6I15:(L$,8I)3)""IN$(H,I):}@AN$:AN$""4160JAN$(13)882:204TH3H5H8H14H21H22882:1550^AN$(32)882:230h 198,200,208,205,96,160,0 185,0,192,153,0,4,185,240: 195,153,0,216,185,250,192,153^ 250,4,185,234,196,153,250,216 185,244,193,153,244,5,185,228 197,153,244,217,185,238,194,153  238,6,185,222,198,153,238,218 200,208,2 READERS WHO LIKE TO TYPE IN THE"s "PROGRAMS FROM OUR MAGAZINE."(t " "9y PROGRAM #2dz "HOY!'S CHECKSUM PROGRAM, FOR MIS-"{ "TAKEPROOF TYPING OF -64 "| "PROGRAMS PRINTED IN HOY! (OR "} "PROGRAMS PUBLISHED BEFORE  RWISE USE 128 UG EP )" PROGRAM #4, "HOY!'S CHECKSUM PROGRAM, FOR MIS-"W "TAKEPROOF TYPING OF -64 " "PROGRAMS PRINTED IN HOY!. (OR " "PROGRAMS PUBLISHED FROM AY 1987 " "ONLY! THERWISE USE 64 UG