wwwwwwwwwwwwww x?xxxx?xxఘ333? `` x?xxxxxx?xx?xx?xx?xx?xxp`x  eg DD((DDDD  K  Ƈ0xxxxxxx|?xx?xx? ~~33 ``  Ƈ0xxxxxxx|?xx?xx? ? ? DĎb@? ??{3? ????? " "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8 ~ ? IIIIIy$$$ ```8``|8a`????????8I#qXHHςpHHp!! ? H PHE8@8??HI ?????xxx | !! '%   @|>|>><||? |x???????? ????????8,$$, qIIqQ$$D0$y? !!!ఘ``` ?>< qa'$$$'  ? ``??????8xx"6*"""HIHHH1"" !! ?aaa```aa`8????????0IIx Xq  00!!$$bbHHO <FEDpp C!!! ???  8!!C? <@@@@,$LD|cL@ ???????xxxxxxxχ? +"LOADING DATA...": 52,48:56,48:[ 56334,(56334)254:1,(1)251:I0 2040(12288I),(53248I)::1,(1)4:56334,(56334)153272,((53272)240)12G07: A: 13080G,A:53281,0:53280,0#"29 POSSIBLE COLORS % (147):V53248:V32,0:V33,0cX0373:1024X,6432:1024X1,12832:1024X2,192321984X,19232:1984X1,12832:1984X2,6432(2X0223<1024X40,19232:1024(X1)40,12832:1024(X2)40,6432-F1063X40,64  NUMBER ROUNDERE" HALF WAVE DIPOLE DESIGNER"e" FREQUENCY IN MHZ ";FRr(A468FR2 ROUND TO TENTHS<B(A10.5)10F ROUND TO HUNDREDTHSPC(A100.5)100Z ROUND TO THOUSANDTHSdD(A1000.5)100N) RESET TO C64 BY SHAWN K. SMITHJ1:65528,77:65529,255:64AYUICKSORT SINE DRAW C-128 OLORFUL 64 HASER ARQUEE UMBER OUNDING 9 (147)"LOADING DATA";:J700753:A:A0A25530`J,A:XXA:".";:J:::X595840z"ERROR IN DATA...":("THE DATA IS LOADED,":2"SYS 700 TO ACTIVATE AND DEACTIVATE...":<169,208,162,2,236,1,3,208,4,169,139,162 F227,1  USE "=" TO CENTER STRING? USE ">" TO RIGHT JUSTIFYK(147)c(X139:F$F$"#":|2A$"CENTERED STRING"<F$"=";A$FA$"RIGHT JUSTIFIED"PF$">";A$ZA$"LEFT JUSTIFIED"d"";A$ (d* BRANCH CALC ---- SHAWN K. SMITH4i(142)Zn "CALCULATED GOTOS AND GOSUBS"xB40960:K57344:D08191:BD,(BD):KD,(KD):1,53:64982,53S48981:DSS6:Y:D,Y:H(S256):43170,H43169,SH256:D21:LOOP180  15,8,15:160LSS$(160):CD$(172):N8$(56):SA$(186):N1$(49)dBA$SS$CD$N8$SA$(ML$SS$CD$N8$CD$N1$2"BASIC OR MACHINE LANGUAGE< KY$: KY$"" 60F KY$"B" 100P KY$"M" 130Z d"NAME OR BA \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa "2("  "g-"   "2"  "7"    "<"  "A" 32:1063(X1)40,12832:1063(X2)40,19232@P:2023,12832mZV17,(V17)64:V34,1:V35,2:V36,2d214,7::12)(31)"YOUR TITLE HERE"nA(V34):B(V35):C(V36)xV34,C:V35,A:V36,BA$:A$""X175::1100' n" DIPOLE LENGTH IS "A" FEET"Q x" ROUNDED TO TENTHS "B" FEET"z " ROUNDED TO HENDREDTHS "C" FEET" " ROUNDED TO THOUSANDTHS "D" FEET"B(V35):C(V36)xV34,C:V35,A:V36,BA$:A$""X175::110 PcefRSWX41,0,3,142,1,3,96,173,0,2,201G P95,240,3,76,139,227,206,0,2,164,52,165u Z51,56,229,49,176,1,136,170,152,56,229,50 d32,205,189,76,116,164   >> ?~ >C 032,138,173,076,247,183,234= DD1:"OK!":D LOOPC-128 JUSTIFYSIC PROGRAM";BP$1 n15,"R0:"BP$BA$"="BP$:1609 x50W "NAME OF ML PROGRAM";MP$z 15,"R0:"MP$ML$"="MP$:160 50 15,E,E$,T,S E0 E,E$ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rr'''''''''''''''''''''rr "%F"  "5K" "IP""uU"8 GRAYS 7 REDS 6 BLUES 2 PURPLES"Z"4 GREENS 2 YELLOWS"_ 85,170,85,170,85,170,85,1707: A: 13080G,A:53281,0:53280,0#"29 POSSIBLE COLORS @@ << SCRNSWAP.BAS >>A@d=================================^@n SCRNSWAP LOADER|@x RUPERT REPORT #44@ FOR C128 ONLY@=================================@"LOADING ..."@M5376 : $1500 INITIAL ADDRESS <<A  646,0:53280,12:53281,12I ==================================m COMMODARES PROBLEM #40-1 : SMALL STRAIGHT SOLUTION BY HARRY STODDART ================================== "THE #'S:": X1 5:R =V$================================! #40-1 :   ARK REAULT$======= 0.14 =============  000000<G(UT:2 1<< _dfaF &"":53280,12:53281,12:646,0O ==================================s COMMODARES PROBLEM #40-2 : SHORT SORT ================================== I1 6 : A(I)((0)1000)500: A(I);:QQ(I)A(I): I:  JJ1 TEPHANE EDWARDSON**************************************** Y15:ZY6:AA(Y):BA(Z):A(Y)A(AB)B(BA):A(Z)ABA(Y):Z,Y:N16:A(N);: , * SOLUTION BY RON GOW *************************************************) 6X16:B0:Y16CHTNIG **************** C-128 ONLY ***************x Y16:F999999999:A(Z)F:X16:FA(X)FA(X):ZX:X:F;:Y:ՂX:F;:Y~ 6:A(N);: , * SOLUTION BY RON GOW *************************************************) 6X16:B0:Y16 &"":53280,12:53281,12:646,0O ==================================s COMMODARES PROBLEM #40-2 : SHORT SORT SOLUTION BY WALTER DEUCHLER JR. ================================== MX99 : A(MX) : 1Q5,152,5,237,5,237Q6,71,6,167,6,167Q7,112,7,112,7,119Q4,251,5,237,4,180R7,112,5,152,5,237R7,119,25,30,21,316R18,209,25,30,21,31NR"18,209,25,30,21,31fR,18,209,25,30,21,31~R618,209,25,30,28,49R@29,223,28,49,2  15, 20, 64, 15.C@ 78, A9, 52, 8D, 14, 03, A9, 15SCH 8D, 15, 03, 58, 60, 80, 65, FAxCP 03, 40, A5, D7, 29, 80, CD, 4DCX 15, 8D, 4D, 15, F0, 03, 20, 64C` 15, 6C, 4E, 15, A5, 00, 09, 10Ch 85, 00, A5, 01, 29, EF, 85, 01 Dp A9, 01, 85  646,0:53280,12:53281,12I ==================================j COMMODARES PROBLEM #40-3 : POLYGON PLAY SOLUTION BY JOE STEININGER ================================== "HOW MANY SIDES" N: N3 20  B$A B$"XX" 240"AB(B$);ACKCKB : CHECKSUMEA M,BOAMM1YA 170A CK12298 "DATA ERROR" : : <<<<<<<A"PROGRAM IS LOADED"A 5376 : $1500 START ADDRESS <<AB AD, 4E, 15, D0, 27, ((TI)5.5)1:A(R)A(R)1: R;:V  Y1 3: XY Y3:S(Y)S(Y)(A(X)): X: Y: "THE SMALL STRAIGHTS ARE"1234(S(1)4);2345(S(2)4);3456(S(3)4) (P`P"h11116j_ MALL RAIGHTe`a}DIRIND THENPRINTTENTHE SMALL STRAIGHTS ARE"1234(S(1)4);2345(S(2)4);3456(S(3)4) (P  5 : JJ 110,210,310,410,510J  I1 6 : A(I)QQ(I) : I : : JJP c d * SOLUTION BY JIM SPEERS *********************************************** nI16:K1:J16:KK(A(J)A(K))(JK)::A(K);:A(K)9E9: x5 * SOLUTION BY S :BB(A(Y)A(X))::C(B)A(X)::N16:C(N);:/ @~  * SOLUTION BY D.BRUCE POWELL ****************************************** I15:JI16:TA(J):DTA(I):KD0:A(J)TKD:A(I)T(1K)D:J:A(I);:I:A(I); +  * SOLUTION BY JEFF AyAREA IS ";Y;"SQUARE METERS":B "INSCRIBED RADIUS IS ";R;"METERS":q "CIRCUMSCRIBED RADIUS IS ";D;"METERS"::GON PLAY SOLUTION BY JOE STEININGER ================================== "HOW MANY SIDES" N: N3 20 MAX. INTEGER- NM10 : # TERMS`  J1 NM : X ((0)100) : A(X)A(X)1 : ( J0 MX : TA(J) : T K1 T : J; : K 2 J>2,96RJ28,49,18,209,25,30RT21,31,18,209,25,30,25,3018,209,16,195,16,195Q18,209,16,195,16,195Q28,29,28,49,25,305Q23,181,23,181,19,239OQ18,209,18,209,16,195gQ25,30,25,30,18,209~Q7,112,7,119,7,119Q4,180,4,251,4,25, C0, 2C, 4D, 15, 301Dx 14, A5, 01, 09, 20, 85, 01, ADVD 11, D0, 09, 10, 8D, 11, D0, A2{D 00, 8E, 30, D0, 60, A5, 01, 29D DF, 85, 01, 60D XX 15, 8D, 01, 0A, 20, 36, 15, 60B0 20, 36, 15, 6C, 50, 15, A5, D7 C8 29, 80, 8D, 4D, # "LENGTH OF EACH SIDE, IN METERS"+ ( L? 2A((N2)N)180I <SAN` FR(L2)(1(N))w PD(L2)(1(N)) ZYN(L2)4(1(N)) d"INTERIOR ANGLES ARE ";A;"DEGREES EACH": n"SUM OF INTERIOR ANGLES IS ";S;"DEGREES": x"THE AD, 4F, 15+B D0, 22, AD, 14, 03, 8D, 4E, 15PB AD, 15, 03, 8D, 4F, 15, AD, 00uB 0A, 8D, 50, 15, AD, 01, 0A, 8DB  51, 15, A9, 30, 8D, 00, 0A, A9B( 15, 8D, 01, 0A, 20, 36, 15, 60B0 20, 36, 15, 6C, 50, 15, A5, D7 C8 29, 80, 8D, 4D, ,.D 24,,,24,,,24,.D 0,126,,1,255,128,,.D 0,,,,,,,.D 0,,,,,,,. E 0,,,,,73,,. E 0,,1,,64,,28,.6E 1,62,64,,28,,,42IE 0,,65,,,65,,.[E 65,,,62,,,,.jE 0,,,,,,,.yE 0,,,,,,,.E" 0,,,,,,,.E, 0,,,,,,,15E6 255,240,16,,72 0,,,,,,,.B 0,,,,,,,.B 0,,,,,,,.B 0,,,,,,,.B 0,,,,,,1,. C 0,2,,,4,,,8C 0,,16,,,32,,..C 64,,,,,,,.=C 0,,,,,,,.LC 0,,,,,,,.[C 0,,,,,,,.jC 0,,,,,,,.yC 0,,,,,,,.C 0,,,,,,1,255C 192,,,,,,,.C 0,,,,,,,.C  208,141,21,208,206,244MV17,48,3,76,1,13M`32,196,13,238,46,208Mj76,101,250,1,2,4Nt8,16,32,64,128,162(N~24,169,0,157,0,212DN202,16,250,169,240,141^N20,212,169,65,141,18yN212,169,15,141,24,212N169,0,141,246,17,169N5 224,255,189,153,255,254,159,255@248,159,255,240,191,255,224,255A255,192,65,255,128,,255,192:A0,127,194,,127,195,,63SA227,,7,255,,3,254,.pA3,255,,7,255,128,13,240A64,,245,64,,240,64,64A 240,64,160,120,142,144,125,153A 7K 208,20,189,214,17,56K 205,238,17,176,11,172K 238,17,200,152,157,214 L 17,76,117,13,138,74&L 168,185,149,13,45,230@L 17,240,32,189,214,17ZL 56,205,239,17,144,23vL 172,239,17,136,152,157L 214,17,173,244,17,201L 1,208,82,128,7,255>128,1,255,,,,,.>0,,,,,,,.> 0,16,,,80,,,80?0,8,88,,26,116,,465? 82,60,74,89,255,154,95,255V?*234,91,125,218,91,17,250,25t?4255,154,8,127,18,8,99,18?>8,34,16,,20,16,,.?H0,,,,,,,.?R0,,,,,,,.?\0,,,8,,,14,17,208,11,169I 1,77,230,17,141,230I 17,222,214,17,232,222J 214,17,76,252,12,201J 6,208,23,222,214,173J 208,11,169,1,77,230NJ 17,141,230,17,222,214hJ 17,232,254,214,17,76J 252,12,201,9,208,23J 254,214,17,208,11,169J* 0,28,,,28,,,18<&127,,1,255,192,1,255,192 =03,190,224,3,156,224,3,255*=:224,3,255,224,3,190,224,1H=D193,192,1,255,192,,127,.W=N0,,,,,,,.f=X0,,,,,,,.u=b0,,,,,,,.=l0,,60,,,90,,.=v189,,,153,,,129,.=0,129,,,66,,,36=0,51,208G 27,173,248,17,133,251G 165,252,24,109,243,17G 174,249,17,157,249,7H& 202,208,250,169,1,563H0 229,252,133,252,173,0LH: 220,162,0,41,15,133gHD 253,169,15,56,229,253HN 201,4,208,19,222,214HX 17,208,11,169,1,77Hb 230,17,,141O14,212,200,140,246,17O173,245,17,24,105,150O(141,17,212,141,10,212P296,80,44,48,20,100P<144,14,14,14,19,2398PF18,209,19,239,18,209RPP18,209,19,239,18,209lPZ18,209,29,223,29,223Pd28,49,25,30,25,30Pn22,96,19,239,,36,146,136E@ 32,,136,36,66,152,32,160EJ 168,63,31,200,33,240,136,33FT 176,136,33,240,144,32,,160,F^ 63,255,192,,,,,.;Fh 0,,,,,,,.TFr 0,144,128,,73,,,144gF| 128,,73,,,,,.F 127,,1,255,192,1,255,192F 3,156,224,3,190,224,3,255F 0,,,,,,,.C( 0,,,,,,,.C2 0,,,,,,,.C< 0,,,,,,,.CF 0,,,,,,64,. DP 0,32,,,16,,,8DZ 0,,4,,,2,,.+Dd 1,,,,,,,.:Dn 0,,,,,,,.IDx 0,,,,,,,.XD 0,,,,,,,.gD 0,,,,,,,3D 255,192,1,255,128,,231,.D 0,129,,,189,,,189D 0,,126,,,60, 0,141,17,212,141,16N212,96,206,245,17,208N53,169,12,141,245,17N173,246,17,174,247,17O56,221,11,14,144,5/O169,0,141,246,17,174IO247,17,189,14,14,133dO254,189,17,14,133,255O172,246,17,177,254,141O 15,212,200,177,254152,255,185,159,255,249,191,255A 253,127,255,254,63,255,248,31B$ 255,192,1,255,128,,255,1923B. 0,127,192,,127,196,,63MB8 198,,15,254,,3,252,.\BB 0,,,,,,,.kBL 0,,,,,,,.|BV 0,,,8,,,8,.B` 0,8,,,8,,,8Bj 0,,8,,,8,,.Bt 8,,,8,,,,.B~,169,253,45L 21,208,141,21,208,232L 189,214,17,56,205,240L17,176,11,172,240,17M200,152,157,214,17,76.M117,13,189,214,17,56IM$205,241,17,144,23,172eM.241,17,136,152,157,214~M817,173,244,17,201,1MB208,8,169,253,45,21ML0,16?f0,10,88,,26,116,,46?p82,60,74,89,255,154,87,255@z250,91,190,218,95,136,218,898@255,152,72,126,16,72,195,16O@8,129,16,8,66,,,.^@0,,,,,,,.{@3,255,,7,255,128,13,240@64,,245,64,,240,70,.@240,73,,120,137,,125,153@1,77,230,17,141,230J4 17,254,214,17,232,222J> 214,17,76,252,12,201KH 10,208,21,254,214,17KR 208,12,138,169,1,778K\ 230,17,141,230,17,254SKf 214,17,232,254,214,17mKp 162,5,142,244,17,173Kz 244,17,10,170,74,168K 185,149,13,45,230,14,18,,2,9,,3=4,128,7,2,64,14,1,32>15,129,32,7,193,32,1,255>32,,126,64,,63,128,.)>0,,,,,,,.<>0,,30,,,45,,.X>94,128,,76,128,,64,128o>0,64,128,,33,,,18>0,64,9,,128,4,128,112>4,128,24,4,128,12,4,128>28,4,128,15,1141,230,17,222Hl 214,17,76,252,12,201Hv 8,208,19,254,214,17I 208,11,169,1,77,230I 17,141,230,17,254,2143I 17,76,252,12,201,1MI 208,7,232,222,214,17fI 76,252,12,201,2,208I 7,232,254,214,17,76I 252,12,201,5,208,23I 222,21 19,239Px18,209,16,195,16,195P18,209,16,195,16,195P18,209,16,195,16,195Q18,209,16,195,16,195Q28,29,28,49,25,305Q23,181,23,181,19,239OQ18,209,18,209,16,195gQ25,30,25,30,18,209~Q7,112,7,119,7,119Q4,180,4,251,4,25224,3,255,224,3,193,224,1F 190,192,1,255,192,,127,.F 0,,,,,,,.F 0,,,,,,,.G INTERRUPT DATA-G 120,169,25,141,20,3FG 169,12,141,21,3,173`G 248,17,133,251,169,1zG 133,252,32,157,13,88G 96,173,242,17,240,3G 76,252,12,198,2 :F$;SC:T,PT,50,V,B,B,T:N,(N)JD:SC$SC$(SC(.)):.,16,24,""SC$:J. ERASE OLD CHARACTER POSITIONSj.J.T:.,X(J),Y(J)," "::. DUNGEON CREATOR.53265,11:%:A$"":830:L770,780,790,800,770,780,790,800,790,810:.,T,5,S$:((TR 8d193,192,1,255,192,,127,.8n0,,,,,,,.9x0,,,,,,,.90,,,,,,,. 90,,,,,,,.>9127,,1,255,192,1,255,192]93,190,228,3,156,230,3,255|9255,3,255,230,3,190,228,19193,192,1,255,192,,127,.90,,,,,,,.90,,,,,,,.90,,,,, ,H,lW(.),M(.)#S:SSI:J(V):C(J):C(J)660,630,600_,vRNHH600:ՁAHXT:B(J)T,.:T,PX,75,.,PT,P,T:700e,~,J(V):J(V):600,JB(7)V710:650:ՋJB(7)650,JB(6)VBM(RN)(N)::N,.:A$"":750:300:ՋJB(6) 102,6,,,243,24,,,063 7155,255,128,191,128,159,128,143,128*7157,255,1,253,1,249,1,241,1S7168,135,128,131,128,129,128,128,255w7169,225,1,193,1,129,1,1,255,-17 SPRITE DATA70,8,,,28,,,6270,,8,,,8,,.7127,,1,255,192,1,255,:UT:W180:Z90:I.:S5:JH4:J,,10,V,V,.:2039J,214::J56:J,,10,V,.,V:2039J,216::4595,214T*560*&4601,T:ET:G5:UT:W180:Z.:I.:S5:JH4:J,,13,V,V,.:2039J,214::J56:J,,13,V,.,V:2039J,216::4595,214 +0A.10:J(V)0304 169,,133,250,133,252,169,2085 133,251,169,32,133,253,169,252:5$ 141,185,2,169,16,141,54,11[5. 160,,169,250,162,14,32,116}58 255,162,,32,119,255,200,2085B 241,206,54,11,240,7,230,2515L 230,253,76,26,11,965V CHARACTER DA160,214:J170:A200:k(7,.,V,.,V,V,.:V,.,6,.,.,.,.:V,.#.:V,J,A:2040,192:RV:T,.,8:2041,206:X,.,V,.,.,.:X,173,140(JH6:J,.#.:J,.,RNV,.,.,.,.:J,IX(J),IY(J):(RN6RN6520,530,550((RNH)HA((RNH)T)200:A200 6:2 ARROW POINTERS3 206,207,208,209,206,207,208,209%3 LEVEL COLORSS3 "","","","","","","","","",""x3 JOYSTICK X&Y ADJUSTMENT DELTAS3 0,-1,1,-1,1,,1,1,,1,-1,1,-1,,-1,-13 INITIAL SPRITE POSITIONS3 ERROR HAN.79:A$;:S1H"SCORE:000000 [ ] MEN ";:JVK:"# ";::.,12,24,"":L:.,16,24,""SC$:.,6,24,"":F$;SC:1R PRINT ROOM W/DOOR AT CURRENT LOCATION1\ D=DOOR#,RN=ROOM#,C$(L)=COLOR1fTV4:A$(T)""::T2:A$(D)(18)(144)(4156,224,3,255:J224,3,255,224,3,190,224,1 ;T193,192,1,255,192,,127,.;^0,8,,,8,,,620;h0,,28,,,8,,.?;r0,,,,,,,.N;|0,,,,,,,.l;127,,1,255,192,1,255,192;3,190,224,3,156,224,3,255;224,3,255,224,3,190,224,1;193,192,1,255,19$,L,V))(SC$).,H,5," "/53265,27:&:I/DH:RN4:JVH:DDV(D4)4:RNRNV:.,J10,J4T:870:J:/ D.:RN.:JVH:AVT:DDV(D4)4:RNRNV:.,J10T,A6T:870:A,J:/DT:RN7:JVT:AVT:DDV(D4)4:RNRNV(RN9)9:.,J12 ,,.90,,,,,,,.9127,,1,255,192,1,255,192:3,190,224,3,156,224,3,2552:224,3,255,224,3,190,224,1Q:193,192,1,255,192,,127,36d:0,,28,,,28,,.t:60,,,,,,,.:"0,,,,,,,.:,0,,,,,,,.:6127,,1,255,192,1,255,192:@3,190,224,3,650[-4594,V:V,.#.:KKV:.,32KT,24," ":T,5000,150,T,,100,V:P,213:D13:J116:V,V,J:A.20:A,J,D:BM(RN)(N)p-N,.:K420:Պ60-SCSCL100:.,6,24,"":F$;SC:HV5:TV16:A,V,T:::T2:H3:A,.:&.SCSCL1000:.,6,24,""19273,190,224,3,156,224,3,255 8 224,3,255,224,3,190,224,1'8193,192,1,255,192,,127,.680,,,,,,,.E8(0,,,,,,,.T820,,,,,,,.h8<60,,,28,,,28,.8F127,36,1,255,192,1,255,1928P3,190,224,3,156,224,3,2558Z224,3,255,224,3,190,224,1::5324821,BM(RN):RV:4594,.:4599,T3+:(RNH)H2047,210(RNH):՗2047,210D+D&:53265,27T+N MAIN LOOPy+X:J(T):AA(.):ARA:P,S(.)+bAAJT,.:T,.#.:T,X(.),Y(.):T,20;D(.):T,D(.)#X:PV,P(R):T,V:V,PX,SP,V,PH,BHTA5`35,60,126,219,255,255,219,102,606j36,126,102,90,126,60,24,24,12656t37,,56,16,56,68,68,56,.X6~38,,63,67,253,133,253,182,252}6167,36,129,60,126,213,126,60,24642,60,90,36,126,153,189,165,102691,,249,249,249,249,,191,1916X)4600,4:4601,4:UX:W45:Z.:E4:GH:I.005:S(LH)T(LHL5)H(L5)4:J.4:2041J,A::4595,A:560)4601,T:ET:GH:I.:S.:JH4:J,,12,,V,.:2039J,215::J56:J,,12,,.,V:2039J,216::4595,215:4600,80:560K*4601,T:ET:GHDLING3&:53265,27:(ER);" IN LINE ";EL:$4 162,112,162,164,142,127,206,127?4 REDEFINED CHARACTERS415:SUM0:I28162869:J:SUMSUMJ:I,J::SUM7491"ERROR!"::՞2816:2604,(2604)24084A:A1:ՁI.7:B:8192A8I,B::18RN)(146)o2pC$(L);""A$(1);C$(L);"";B$;""T$;C$(L);"";B$;A$(2);T$;C$(L);A$(3);C$(L);B$;""T$;C$(L);"";B$;""A$(4);C$(L);"":RD(RN)D:}2z VICTORY21,25000,300,1,300,3000,2:""4)"YOU HAVE CONQUERED THE DUNGEON!!!":2,18,127,.;28,,,28,,,30,.;0,,,,,,,.;0,,,,,,,. <0,,,,,,,.)<127,,1,255,192,1,255,192L<19,190,224,51,156,224,127,255m<224,51,255,224,19,190,224,1<193,192,1,255,192,,127,.<0,,,,,,,.<0,,,,,,,.<0,,,,,,30,.<,A6T:870:A,J:/0 DV:RN4:JV4:DDV(D4)4:RNRNV:.,40J10,J4T:870:J:|0*D.:RN.:J.2:A.2:DDV(D4)4:RNRNV:.,J107,A74:870:A,J:04 PRINT BORDER WITH A$0>(147);C$(L);:J.79:A$;::J.19:A$A$38)A$A$;::J8( A0 A1:"STEEPLECHASE.ML",8,14 49152UUT&i@j&@1QFV@y z*V@jjPj@  @ PhU= ^P*^jjfjR  H@3# A0 A1:"SCANNER.ML",8,1/ 4915252UUT&i@j&@1QFV@y z*V@jjPj@  @ PhU= ^P*^jjfjR  H@ 婎  Щ!Щ؅ ~ ~ő à4ő ֩zōōōũ ݩ ݩݎݩݩݎݩQݥ 9Lf WL L LHHH ? 4¥8 Ȋ) `)JJJJ 0:89iȊ) 0:89i` ` @8@LI© `Źؙux©׍{~¢@ۙux{~řř`Źۙ©ۍ¢(ۙ(ۈ(ۍ(L ( č  č  č  čŢ (ŝؽŝ `w 0G:A ٍ80Lč87` mŪ mŨ 9 3``SCANNER JO; :990:.,1:4,1:1,1:.:.,12,10,"PLEASE STAND BY!"l1040:1020:.,10,12,"PATIENCE IS A VIRTUE."1250:A12288:B1228822641:CAB:D:C,D::.,3,14,"'GOOD THINGS COME TO HE WHO WAITS...'"C(3020:A3072:B3775:CAB:D:C,D::4590:X.24:A$::4599,.:54290,17:X(1)MP""9)"AHOY! MAGAZINE PRESENTS"~Z""8)" Ϸ Ϸ Ϸ Ϸ"d7)" ̯ ̯ ̯ ̯"n6)"η ̯ ̯ "x5)""6)"FOR THE C128"8)"" 127: INITIALIZE VARIABLES : J,A,B,R,P,S,E,U,W,Z,G,I,V,T,H,X,P(8),B(7),N,L,K,SC,X(2),Y(2),OX,OY,AX,AY,DX(8),DY(8),JD,SP,SF,SM,UR,C$(10),BM(9),RD(9),IX(6),IY(6) L.:SC.:P2040:K3:V1:T2:H3:X8:N53269:B191:JD127:SP32:SM1024:UR40:#,160,0,0,65,72,79,89,33,0,0,50093,240,23,165,161,201,212,176,4,165,160,1748u"T240,13,238,32,208,160,0,32,225,255,208,6,1617"^32,33,193,76,38,192,232,208,242,200,208,239,1893"h32,68,229,169,0,168,174,49,193,32,186,255,1555#r173,50,193,16(J)(AV)45:W(J)((V)E)G"M(J)((V)U)WZ:C(J)(JH):X(J)(V,.):Y(J)(V,V):B(J)(B(AV)J):P(J)(SMX(J)Y(J)UR)#PD(J)(SMX(.)DX(A)(DY(A)Y(.))UR):K(J)(P(J)SPP(J)SF):CP(J)(X(.)X(R)Y(.)Y(R)):SC(J)146)S$"JVT::X(J)((V)30)X:Y(J)((V)21)T:P(J)SP:.,X(J),Y(J),"*"::X(.)T:Y(.)T$,.,X(.),Y(.),"#":.,X(V),Y(V),"*":.,X(T),Y(T),"*":4599,V:54290,65$6 DUNGEON OVERVIEW LOOPA%@RV::OXX(.):OYY(.):J(T):AA(.):AX(.)XR).,AX,AY," "&hCP(.):RHR &rPD(.)JD&|CP(.)A.X:JVX:T,PX,V:5,J:.,X(.),Y(.),"*":J,A:KKV:.,32KT,24," ":K730:290:ՋK.60&PD(.)167SMX(.)DX(A)(DY(A)Y(.))UR,SP:SCSCL50:V,PXT,H,.,B,PX,.:.,6,24,""iiŭЩz8LQ ` ` ˆ  ` 9 L L L L L D ? 4 3 ` 9 R ? 4 h 3 `)JJJJJJJ Ȋ)@JJJJJJ Ȋ) JJJJJ Ȋ)JJJJ Ȋ)JJJ Ȋ)JJ Ȋ)J ڍ(L (ٍ(L í(؍(؈Мřř`8`ii `8z` `Mő `i(i`ő `Ž؝ (؍؍؍ ؍!آfŝ(HN KRUTCH 1987 ddddddddddddddddddddddd ga ~䠠 (؍؍؍ ؍!آfŝ(,35:4591,50:4592,63:4593,210:4594,1:4599,.:4600,5:4601,4:30722A(21464)36:B214643623:CAB:C,255:C64,255::A216641:B217641:CAB3:C,255:C64,255:<53265,11:(27)"M"(11)(142)(147);:X.39:A$A$(160):#F5,76)"ߒ "K6)" "5)""3)"BY CLEVE BLAKEMORE"5)"":7)"PRESS FIRE BUTTON TO BEGIN":53265,27X1:J.::8192896X,96:8192896J,.:XX1(X7)8:JJ1(J7)8:(2) SF35b!800:J.7:B(J)2J::J18:P(J)::J110:C$(J)::J18:DX(J),DY(J)::J36:IX(J),IY(J):!B$"":F$"######":"0"!T$" ":S$"æ[]()":TR$"3644364449""A(X)J15:S(J)BA:D:F$;SC:320'PD(.)155PD(.)157270A'RNPD(.)176:A$"":53265,11:%:830b'RD(RN)430,440,450,460:470'2046,214:7,160,38:J170:A73:'2046,216:7,8,124:J45:A132:'2046,216:7,312,124:J295:A132:'2046,214:7, 36((2047)210)%# ENTRY POINT FOR NEW DUNGEON#LLV:L11900:60:ՁAV9:BM(A)253::SC$"":L5KKV:.,.,24,C$(L):840:V,30000,UR,.,5000,5000,T: 3#750:J.X::X(.)((V)30)X:Y(.)((V)21)T:P(.)SP:.,X(.),Y(.),"'"::( (.)DX(A):Y(.)Y(.)DY(A):P(.)SP.,X(.),Y(.),"#":.,OX,OY," ":X(.)OX:Y(.)OY%JAXX(R):X(R)X(R)(X(R)X(.))V(X(R)X(.))V:K(R)X(R)AX%TAYY(R):Y(R)Y(R)(Y(R)Y(.))V(Y(R)Y(.))V:K(R)Y(R)AY%^.,X(R),Y(R),"*":AXX(R)AYY( Ѝ!  < ة XL7N`L|䧆LN3LH1fGJP3W>/f.LOADER d53280,12:53281,11Mi" FLANKSPEED ";~n" MISTAKEPROOF ML ENTRY PROGRAM "s" CREATED BY G. F. WHEAT "x" COPR. 1987, ION INTERNATIONAL INC. "}A5427254296:A,0:/ 2)T(1)16/B$"ENDING ADDRESS IN HEX":430:ENBA470:B0150h254,T(2)T(1)16:BT(4)1T(3)16B255BB255:254,(254)1253,B: GET HEX LINE495:": ";:A08B01:250BA%(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:8$ ADDRESS CHECKG$ADEN385Z$BSRBEN390$B256(B40960B49152)B53247395$$ ADDRESS TO HEX$ACAD:A4096:520$A256:520$A16:520$A1:520$%T(AN:A$"":"FILENAME";A$&SA$""590,&X:"TAPE OR DISK?":R&]B$:T1:B$"D"T8:A$"@0:"A$:c&bB$"T"605i&g&lB$"CONTINUE FROM ADDRESS":430:ADB&q475:B0620&v:195&{B$"BEGIN SCAN AT ADDRESS":430:ADB&475:B06357 (147)"LOADING AND CHECKING THE DATA...":J49152TB011:A:A0A25540sJB,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)3FKUP"::"FILENAME";F$:F$N$(F$,14):L(F$)W49458,L:J1L:49458J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,131:771,164:49152: 169,79,32,210,255,162,38,160,10,2,240,5,169,1215: 79,141,2,3,76,162,164,169,0,133,2,133,1064q 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,169,38,141,2,3,173,1578B"J48,193,240,23,165,161,201,212,176,4,165,160,1748u"T240,13,238,32,208,160,0,32,225,255,208,6,1617"^32,33,193,76,38,192,232,208,242,200,208,239,1893"h32,68,229,169,0,168,174,49,193,32,186,255,1555#r173,50,193,1654272,4:54273,48:54277,0:54278,249:54296,15HA680699:B:A,B:s169,251,166,253,164,254,32,216,255,96169,0,166,251,164,252,32,213,255,96B$"STARTING ADDRESS IN HEX":430:ADB:SRB480:B0150251,T(4)T(3)16:252,T(EN340 " ";-A:TAD((AD256)256):" "QA07:TTA%(A):T255TT255WoA%(8)T375:195A07:ADA,A%(A)::ADAD8:195 GET HEX INPUTA$:A$""250A$(20)305A$(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:0#15,8,15:15,A,A$:15:A$:I# GET FOUR DIGIT HEXX#:B$;:T$p#(T$)4380:430#A14: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$)5CA):T9A$(T55):530% A$(T48)+%A$;:ACACAT:B%A$"**SAVE**":585X%1,T,1,A$:680:1d%!ST0w%&400:T8420%+535%0A$"**LOAD**":585%51,T,0,A$:690:1%:ST64195%?405:T8420%D560%I" ":14)A$&&:670)'B07:AC(ADB):505:ADBENADSR:410:1956'" ";:BD':ADAD8['B$:B$(136)195p'495:": ";:650%+535%0A$"**LOAD**":585%51,T,0,A$:690:1%:ST64195%?405:T8420%D560%I" ":14)A$&"DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90UP"NO AUTOMATIC SAVES...":150Z49456,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d49457,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((N),2):N10N$(48)(N48)(xF$"BAC 92,204,3,3,1507?208,10,162,131,160,164,169,70,32,210,255,44,1615n169,78,32,210,255,142,2,3,140,3,3,76,111336,193,32,96,165,134,122,132,123,32,115,0,1180170,240,243,162,255,134,58,144,3,76,150,164,1799 32,107,169,32,121,165,173, ,8,138,24,101,1125@!253,69,254,170,44,198,254,230,252,164,253,208,2349t!"213,138,41,240,74,74,74,74,24,105,129,141,1327!,44,193,138,41,15,24,105,129,141,45,193,162,1230!60,189,43,193,240,12,157,0,4,173,134,2,1147 "@157,0,216,232,208,2392,51,160,193,32,189,255,169,43,1670I#|166,45,164,46,32,216,255,162,1,189,51,193,1520~#168,200,152,201,58,144,2,169,48,157,51,193,1543#201,48,208,3,202,16,234,32,33,193,76,116,1362#164,206,32,208,169,0,170,168,76,219,255,160,1827$1,1A TS l@AHOY! AUGUST 87 872ABOOTERLANKSPEED 64 UG EP ɠ 128 BUG REP II STEEPLECHASE.ML TEEPLECHASECANNERSCANNER.MLARCHER8OUTE 64 BANNER PRINTAHOY!.BNR TITLE.BNR SCREENSWAP MALL TRAIGHT SMALL STR. COMAL HORT ORT 1 HORT ORT 2 OLYGON LAYUICKSORT SINE DRAW C-128 OLORFUL 64 HASER ARQUEE UMBER OUNDING RESET TO C-64 REE ' ASY C-128 JUSTIFY RANCH ALC IRECT OADS DDLOGO%LOADERDIR 1)STEEP B  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)0F" :"FILENAME";F$:F$N$(F$,14):L(F$)P5215,L:J1L:5215J,((F$,J,1)):J:"SAVING DEVICE ** "D$:"STARTING WITH ** "F$:"IS THIS CORRECT (Y/N)";B$:B$"Y"60770,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,12982"J20,240,27,165,161,201,212,176,4,165,160,240,1771d"T17,32,65,20,238,32,208,238,1,214,32,225,1322"^255,208,6,32,49,20,76,198,77,232,208,242,1603"h200,208,239,32,66,193,173,95,20,162,96,160,1644"r20,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,1462$0,142,0,255,96,19,18,32,32,32,32,146,804$0,1,0,0,65,72,79,89,33,0,0,0,33920,162,96,160,1644"r20,32,189,255,169,0,170,32,104,2  ~9Dž:;<< 9;@e99:i:e;;0Э`)F Űũ`  ) JJyŭ ٩ ĭ)Ʃ'ō)` )' Ԣ ԩ ݠ  LPLP FLPeŢ`x ܩЍЩЩčX`Р^   DISTANCE 0.00 SPEED TIME 00:00:0 COURSE  BEST   ɰîîɲ îɲ ɲî   & Phթ>R ]j^@jjfiV@ @ H& Phթ ~Rj]j@je)V  &@1QFV@y z*V@jjPj@  @ PhU= ^P*^jjfjR  H@DO YOU WANT AUTOMATIC SAVES (Y/N)";A$::A$"Y"90RP"NO AUTOMATIC SAVES...":150Z5213,1:"DISK OR TAPE (D/T)";C$:C$"D"D1:D$"TAPE"d5214,D:D$D$" DRIVE"::"FILE NUMBER (0-99)";NnN$((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,129279,70,70,0,96,162,0,134,251,189,0,2,1053240,19,201,48,144,9,201,58,176,5,133,251,1485232,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,1351f#172,17,18,32,216,255,162,1,189,96,20,168,1346#200,152,201,58,144,2,169,48,157,96,20,201,1448#48,208,3,202,16,234,32,49,20,141,0,2,955#76,183,77,58,59,32,65,20,206,32,20P&0P@Th} ]jfjjf V@@"&@P@@P h*|jjRj^  @B@@$&: h ;j` l&i lU$&U@vUFř ԙ?}.ũݍ/Ţŝ8ŝ;ŭ)@ŝC ©$ō%ōТ6Ŏ7Ŋ)JJ Թԩԩ ĊH hdɩ Ԣ ©$ ) "ŝ$ L) JJyfŅyj/ťŽ  LB82ŝ 2.Ž) X¦)vŨ`$8ŝ.ŘJ "i"Ž$i$`Ţi @íŢI;1,0,17,BL$:1,0,17,"SPECIAL PRINTER CODE (0=DONE):":N1:MX3:X31:1000dMHZ0940:CD(CT)Z:CTCT1:CT21830:940MR1,0,17,"UPPER OR LOWER SET (U/L) :":MX1:N0:X27:Y17: 1000:Z$"U"P$(142):ՋZ$"L"P$(14)M\940Nf1,0,17,"FI ,0:9471,0:940:940HOA$"EXIT TO BASIC:":920:R0130:0,1:0,C0:4,C4:5,C5:1,0:2,0:3,0:OR0:1,0,17,A$" ARE YOU SURE? (Y/N) :":MX1:N0:X24(A$):Y17:1000:1,0,17,BL$:Z$"Y"R1OO1,0,17,BL$:130O1,13:1,X81,Y82 1,13:1,1,144,319,198:I011:A$B$(I):XX(I):YY(I):CC(I):950::DQZ$"":NC0:1,X,Y,(BL$,40X)aQA$:A$""1,XNC,Y,"_"QA$(13)1,XNC,Y," ":Z(Z$):QA$(20)NC0Z$(Z$,(Z$)1):1,XNC,Y," ":NCNC1:1010Q(A$" "(N(A$ I95Z8,I95::SSj%:C0(0):C4(4):C5(5):20: S$(23),B$(11),C(11),X(11),Y(11),TX(11),TY(11),BX(11),BY(11),CD(20)St4,1:0,1:1,13:1,1:I35843775:J:I,J:S~1,1,16:1,180,200:CX180:CY200:2,0TI011:B$(I),C(I),X(I),Y(I):TX(I)J127JJ128:310VBCY180CY81CXCXXX(J):CYCYYY(J):CXCXXX(J)5:CYCYYY(J)4wBCX24CX24:ՋCX332CX332BCY50CY50:ՋCY248CY248BDR3:CY196CY196:ՋCX26CX26:ՋCX262CX262BB1,CX,CY:DR13,CX,CYCՋA$"O"720:ՋA$"C"850;D"A$"G"870:ՋA$"S"890:ՋA$"Q"910DD,160]D6DR3490:ՋDR2460rD@CY180CY8150DJI011:CXTX(I)CXBX(I)CYTY(I)CYBY(I)350DT: 160D^I1360,370,380,390,410,430,530,720,850,870,890,910Dh970::1000:Z$""940'FZ8Z24410:HZ:1060:940cFDR2:1,2:1,2,17,"SELECT AREA TO MAGNIFY & PRESS FIRE"}FI1824:1,0,I,BL$:F1,0:CX24:CY81:3,24,81:3,1,6,,1:130G%:1,0,17,BL$:1,3,17,"PRESS SPACE BAR TO RETURN":DR3:XCX24:4144,A54,B43144,,1:C1#HC,OXA,OYB:150R$1,2:I417:1,0,I,BL$:RR.L41ZL:Z40rR8I1H:1,0,I31Z8,I31:RBL41:ՋL81ZL:Z80RLZL40:I1H:1,0,I63Z8,I63:RVL81R`ZL80:I1H:1,0,X(I)820:TY(I)Y(I)847:BX(I)TX(I)(B$(I))89:BY(I)TY(I)14:aTI17:G0$G0$(128):G1$G1$(255):XX(I),YY(I)::XX(I),YY(I)TMW80:PW1:PH1:FP0:EX1:GR0:CH$"O":CT0:L40:H8TBL$" ":Q$(34)130GCA$""CYCY8:ՋA$""CYCY8:ՋA$""CXCX8:ՋA$""CXCX8`CA$(13)J128:140uCA$" "DR3520C(A$"C"A$"W")DR1160CA$"D"360:ՋA$"T"370:ՋA$"E"380CA$"L"390:ՋA$"H"410:ՋA$"M"430DA$"P"530:130Er980:1307E|A$"ERASE BANNER:":920:R1060:130:130E1,16:1,0,17,"ENTER BANNER LENGTH (1-120) :":N1:MX3:X31:Y17:1000:Z$""940EZ1Z120390:LZ:1060:940F1,16:1,0,17,"ENTER BANNER HEIGHT (8-24) :":N1:MX2:X28:Y17YCY50:OXX:OYY:JYY13:IXX47PGI,J:A(IX)5:B(JY)4144:(2)1,A,B,A4,B3,,1}G::3,0:&:1,1:CY196:1,CX,CY:130GX(CX24):Y(CY50) HX,Y:A(X5):B((Y144)4):(2)10,A5,B4144,A54,B43144,,1:C0:1,A5,B:CT0I1CT:3,(CD(I));:IDGR13,(8);[INFS0:I4012040:Y(I40)4032:LIX40:X40(IL)mIXILL40670IbC1X8:J1PW:RH11IlA$:A$""690IvC1,R31Y:A$" ":GRA$G0$I(2)0A$CH$:GRA$G1$JK1PH 1:MW70:760;K1,0,17,"ENTER CHARACTER TO DRAW TEXT:":MX1:X29: 1000:CH$Z$K1,0,17,BL$: 1,0,17,"USE FINE LINE SPACING (Y/N):":N0:MX1:X29:Y17:1000:FP0:Z$"Y"FP1K1,0,17,BL$:1,0,17,"EXPAND TO FIT FULL WIDTH OF PAGE(Y/N):":N0:MX1 $88||??`pa<|? ?????  UI02:1,0,I,BL$,1::0,5,2,314,21:1,14,1,"BANNER PRINT",1=U990:970:1060:P$(142):&:130YU 255,0,0,254,0,0,252,0uU 0,254,0,0,223,0,0,135U 128,0,3,192,0,1,224,0U 0,192,0,0,0,0,0,0U 0,0,0,0,0,0,0,0U 0,0,0,0,0,0,0,5,128,0,1,128,0Vn 1,128,0,1,128,0,1,128Wx 0,1,128,0,1,128,0,13W 128,0,1,128,0,1,128,0OW 1,128,0,1,128,0,1,255iW 255,255,0,0,0,0,0,0W 0,0,0,0,0,0,0,0W 0,0,0,0,0,0,0,0W " DRAW ",3,1,19," TEXT ",3,1,21, " ERASE ",3,1,23$({oǧo޿_ gGȄp3'ۑd޾oG;w߿ߎoG#ggp````px>a``ppys3'??0U 0,0,0,0,0,0,0,0V  0,0,0,0,0,0,0,0V 255,0,0,129,0,0,129,09V 0,129,0,0,129,0,0,129SV( 0,0,129,0,0,255,0,0iV2 0,0,0,0,0,0,0,0V< 0,0,0,0,0,0,0,0VF 0,0,0,0,0,0,0,0VP 0,0,0,0,0,0,0,0VZ 0,0,0,0,0,0,0,0Vd 255,255,25X " LENGTH ",6,10,19," HEIGHT ",6,10,21," MAGNIFY ",6,10,23SX " PRINT ",7,21,19," OPTIONS ",7,21,21," CHR SET ",7,21,23X " LOAD ",8,33,19," SAVE ",8,33,21," QUIT ",8,33,23X 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1,0Vd 255,255,25 ðx?g{x7g|_? Ϗ'33ϋǙ σϏ373 Ǚ0qq0LJÙϟÙÙ   646,0:53280,12:53281,12I ==================================p DEMONSTRATION OF QUICKSORT BY IVAN RUDYK ================================== Q180 : N(Q),M(Q) "GENERATING NUMBERS...": X1 Q:N(X)(100070* n CF AA1 : M(A)C : AA1 : M(A)F? xCE : CB 60O A0 50m X1 Q : N(X); : X TIT0"JIFFIES" : ================================ CONVENTIONAL BUBBLE SORT (ADD LINE 35 GOTO 240) = 0,1 : 4,1 : 5,12= 0,1 : C0 : Z0 : B0 : U0W "HORIZONTAL AXIS";Ho "VERTICAL AXIS";V "VIEWING ANGLE 0 TO 360";PRA57.2957NT90NF95OT120 TS127"E8$ I1 90 : &PP RA( 1,1ecwə Ǚ   * V H MV , H V MH2.ZZH (EM)D0BBV (EM)_2X(((ZRAP)OT)TS)4Y(((BRA)NT)NF): U0 X,Y : U16CC18 C 4 64: X,Y<A$ : A$" " 68> 46@ X,YB 46D 0,1F 16(0))1: X" "SORTING..." : T0TI< (M(1)1 : M(2)Q : A2f 2BM(A) : AA1 : CM(A) : AA1 : EC} <FB : DN((CB)2) F N(E)D EE1 : 70 P N(F)D FF1 : 80 Z EF ZN(E) : N(E)N(F) : N(F)Z : EE1 : FF1 d EF ===============================` J1 Q1 : KJ1 Q : N(J)N(K) TN(J) :N(J)N(K) :N(K)T K,J : X1 Q : N(X); : X : TIT0"JIFFIES" : D FF1 : 80 Z EF ZN(E) : N(E)N(F) : N(F)Z : EE1 : FF1 d EF   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,'********************************M * MENU PROGRAM *s"* DESIGNED BY *$* DOUBLE L SOFTWARE *&* (C) 1987 ALL RIGHTS RESERVED *(********************************253265,(53265)239"206 AN$(17)1250* AN$(145)1300> AN$(13)2000^ 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);(3  2062,_`Z[XʅY L  ~9Dž:;<< 9;@e99:i:e;;|(L$,23)3)" ":1000TAN$:AN$""1670b882:225 ************************** **** WINDOW ROUTINE **** **************************828(L$,5)11)" <:4000& P P$(25),IN$(25,5):5000O d53280,0:53281,0:(14):2500:5900k x800:53265,(53265)16 H1:G0:L8:LC55590:P8 I819:GG1:(L$,I)14)""P$(G): F(P$(H)):I0F:LCI,7::1000 (L$,P)10)PT$ AN$:AN$"4);",8" "RUN": ""?  631,13: 632,13: 198,2:| "":(L$,2)2)"" *(L$,3)2)" " 4I116:2)" ݞ ":, >"(L$,6)11)"EE NSTRUCTIONS"A(L$,7)11)"UN ROGRAM "g(L$,8)11)"ANCEL INDOW " (L$,9)11)""PO55507:X0 I116:POI,1::1000*AN$:AN$""20904AN$(17)2200:POP"C f(L$,4)10)""d p10)" " z10)""  S54272:S23,0:S24,15 S6,0:S5,12:S1,70:S3,40 S4,0:S4,65:D1100::S4,0: 828+(L$,13)4)""_"(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 LOA  P$(23)"RANCH ALC" P$(24)"IRECT OADS" M CL819:(L$,CL)14)" ":f (L$,P)10)" ": DISABLE SHIFT/COM KEY775,200: DISABLE LISTING808,234: DISABLE STOP/RESTOREL$" "41(L$,23)3)" ":1000[6I15:(L$,8I)3)""IN$(H,I):q@AN$:AN$""4160JAN$(13)882:204TH3H8H9H10H15H16H22882:1550^AN$(32)882:230h4160 00,208,205,96,160,0 185,0,192,153,0,4,185,2403 195,153,0,216,185,250,192,153W 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,205,96 RS WHO LIKE TO TYPE IN THE"s "PROGRAMS FROM OUR MAGAZINE."!t " "2y PROGRAM #2]z "HOY!'S CHECKSUM PROGRAM, FOR MIS-"{ "TAKEPROOF TYPING OF -64 "| "PROGRAMS PRINTED IN HOY!. (OR "} "PROGRAMS PUBLISHED FROM AE USE 128 UG EPELLENT.)" PROGRAM #4' "TEEPLECHASE IS A HORSE RACING "P "GAME THAT INVOLVES JUMPING OVER "| "OBSTACLES SUCH AS WALLS AND HEDGES." "OU CAN RACE AGAINST THE CLOCK OR" "ANOTHER PLAYER. OYSTICK IN ORT 2."R IS A GRAPHIC-ORIENTED "  "MACHINE LANGUAGE MONITOR FOR THE"=  "64 DESIGNED TO LET BEGINNERS "g  "OBSERVE THE CONTENTS OF MEMORY IN"  "BINARY, EX, ANAD . "  PROGRAM #7  "OUTE 64 ALLOWS YOU TO ELIMINATE "T "! "BANNERS, WITH A VARIETY OF EDITING ")" "OPTIONS. OYSTICK IN ORT 2. EE "S" "SAMPLE A BANNER UNDER HOY!.BNR. "d" PROGRAM #9" "AMPLE BANNER FOR USE WITH "" "ANNER RINT. "" " O40:XX1:PO55587PO55507>X2X0(HAN$(13)21402R2080F\X0882:4100TaX22160bH3H8H9H10H15H16H22882:1550oX1882:230p882:225I116:POI,5:: P$(1)"LANKSPEED" P$(2)"64 UG (13)"OLYGON LAY"< P$(14)"UICKSORT"$F P$(15)"ARCHER"AP P$(16)"SINE DRAW C-128"ZZ P$(17)"OLORFUL 64"vd P$(18)"HASER ARQUEE"n P$(19)"UMBER OUNDING" P$(20)"RESET TO C-64" P$(21)"REE ' ASY" P$(22)"C-128 JUSTIFY" "#"EPORT. " $" "2$ PROGRAM #11]$"-64 SOLUTION TO THE PRIL '87 "$"OMMODARE REQUIRING THE SIMULATION "$"OF A FIVE-DICE TOSS AS IN THE GAME"$"AHTZEE. ":PT$"=>":828:(L$,8)1)""{I914:(L$,I)1)" ""(L$,15)1)" [/=ANCEL * PC=UN ROGRAM] ",(L$,16)1)"I828935:A:I,A:: 160,0,185,0,4,153,0,192: 185,0,216,153,240,195,185,250^ 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,198,2 ---------------------------! ** MAX OF 33 CHRS IN LENGTH **C ---------------------------f I124:X15:IN$(I,X):::wo PROGRAM #1p "HIS IS HOY!'S ACHINE ANGUAGE "q "ENTRY PROGRAM FOR OUR ADVENTUROUS"r "READEY 1987 "~ "ONLY! THERWISE USE 64 UG EP.) PROGRAM #3C "HOY!'S CHECKSUM PROGRAM, FOR MIS- "l "TAKEPROOF TYPING OF -128 " "PROGRAMS PRINTED IN HOY! (OR PRO-" "GRAMS PUBLISHED FROM AY 1987 ONLY!" "THERWIS PROGRAM #5 "ATTER P! IS A ONE-PLAYER BASEBALL": "SIMULATION FOR THE 64 THAT WILL "e "SHARPEN YOUR BATTING EYE AGAINST " "A COMPUTERIZED PITCHER. OYSTICK " "IN ORT 2. " PROGRAM #6 "CANNE  "REFERENCES TO LINE NUMBERS AND "!! "REPLACE THEM WITH LABELS, FOR "H! "EASIER LINE REFERENCING. "l! " "}! PROGRAM #8! "ANNER RINT FOR THE -128 MAKES IT"! "POSSIBLE TO DESIGN AND PRIN "# " ":# " "L# PROGRAM #10w# "ROGRAM FOR CONTROLLING THE SCREEN"# "SHUTTLING HARDWARE FOR THE -128 "#"DESCRIBED THIS MONTH'S UPERT EP "  P$(3)"128 UG EP II"" P$(4)"TEEPLECHASE"9 P$(5)"ATTER P!"M P$(6)"CANNER"b P$(7)"OUTE 64"{ P$(8)"BANNER PRINT" P$(9)"AHOY!.BNR" P$(10)"SCREENSWAP"( P$(11)"MALL TRAIGHT"2 P$(12)"HORT ORT 1"7 P$ "%" "% PROGRAM #12@%"OLUTION TO THE PRIL '87 OMMODARE"j%"REQUIRING A ONE-LINE SORTING "%"ROUTINE TO ARRANGE SIX INPUT "%"VALUES IN NUMERICAL ORDER. "% "& PROGRAM #14'" OMMODARES DEMONSTRATION OF THE "/'"UICKSORT ROUTINE, PRESENTED IN "X'"CONJUNCTION WITH OTHER SOLUTIONS "'"TO HORT ORT. "'" "' PROGRAM #15'" EN ALLOW-"("ING THE IMPLEMENTATION OF THE SINE")"FUNCTION WITH HI-RES GRAPHICS ON "E) "THE -128. "n) " ") PROGRAM #17)"ROM IPS HOY!: A ROUTINE MAKING ")"IT POS