KKKKKKKKKKKKKKK gggKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK  ~~33 ``  Ƈ0 ????????8,$$, qIIqQ$$D0$y? !!!ఘ```  00!!$$bbHHO <FEDpp C!!!K DĎb@? ఘ333? `` ```8``|8a`????????8I#qXHHςpHHp!! ? | !! '%  K eg DD((DDDD K  Ƈ0 !! ?aaa```aa`8????????0IIx Xq x~ 8!!C? <@@@@,$LD|cL@K ?K H PHE8@8??HI NUMBER";A:""A$P CR$(148):B1:C(A$)1:X1:YC:Z1: B(A)BA1 : 40 CR$(20):BC2CA:XC:Y0:Z1: B(A)BA1 : 40 : 20 ( JX Y Z : K1 A : ""B)CR$ : 2BB(A) : : CD40-10 \''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''AAAAaaaAaaaAAAAAAAAAAaaAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ?>< PcefRSWX @|>|>><||? ??? IIIIIy$$$ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ?????   >> ?~ > ???????xxxxxxxχ? ? qa'$$$'  ? ``??????8xx"6*"""HIHHH1"" aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa |x???????? ~ ? ?????xxx  " "000qb  $44,,DDGDyAAqA??_ 0ఘఘ`aa`aaa̘```8 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaarrr'''''''''''''''''''''rrrr'''''''''''''''''''''rr ??{3? 0M DY0 ANANP2N!N -- FIND MIN/MAX VALUES --3N XXN XNXEN XXX XXXWN YYN YNYiN YYX YXYoNN  -CONVERT X,Y TO SCREEN COORDS -N*XPAXBN4YP200CYDN> XPVR XPVRNH XPVL XPVLNR UBSEGLXLXR : YLYR : NEXT SEG LEFT PTL:: SGQL" LEVELML "PRESS ANY KEY FOR -NEXT LEVEL-"L, LEVELML "PRESS ANY KEY FOR ACTUAL SCREEN SIZES"L6 K$L@: LEVELLJLp ======= DISPLAY MIN/MAX =======Lz 0,1M "#" VS K$ : K$"" 7300*Jd -- STEP THRU EACH SUBSEGMENT -->Jn::: SB1 N1PJxVXLLDX(SB)bJWYLLDY(SB)JV0VX0 : W0WY0 : TRANSLATEJXV0CSW0SNX0 : ACTUAL ...JYV0SNW0CSY0 : ...COORDSJ 7200 : GET SCREE K$"" 5060>H 2 : "#" VS ": LEVEL =" LEVEL "OF" ML "; # PTS. =" FS1dHXLX(0) : YLY(0) : LEFT ENDPT.tHXXL : YYLH 7200 : CONVERTH 1,XP,YP : INITIAL PT.H -- STEP THRU EACH SEGMENT --H :: SGSR NP SR TOR ENDPOINTS --FX(0)0 : Y(0)0.FX(NP)1 : Y(NP)0NF -- GENERATOR MIDPOINTS --eF JSS NP1 SSoF X,YFX(J)XR : Y(J)YRF JF -- CALCULATE DELTAS --F J1 NFDX(J)X(JSS)X((J1)SS)FDY(J)Y(JSS)Y((J1)WX3 LNE7 0 1X3A$A$((MLNE)) Y3 LNE : ROWY3 DUP1 28Y"3222,E$"K"(N1)(N2)A$;YY'3222,(141); : DUP : 222kY,3A$"" : COLY63222 : 222 : 191W4+ 0W>+ "TO DISPLAY IMAGE, TYPE 'GOTO 12000' "WH+W. == D V* - FRACTAL 9V* 5,3V* 0,3,-.5,2W* 1,0, 1,1, 2,1, 2,0W*=W* == SAVE IMAGE TO DISK ==fW+"SAVE IMAGE WITH WHAT FILENAME";FL$nW + 1W + (FL$),P8192 P16191W4+ 0W>+ "TO DISPLAY IMAGE, TYPE 'GOTO 12000' "WH+W. == D 2,0, 1,1, 2,1, 3,1, 2,0, 3,0T( U( - FRACTAL 4U( 7,3'U( 0,3,-1.4,1.4KU( 1,0, 2,1, 2,0, 1,0, 1,-1, 2,0QU(cU) - FRACTAL 5mU) 7,3U,) -3,3.5,-1.5,4.9U@) 0,2, 2,2, 2,1, 1,1, 1,0, 2,0UT)Uh) - FRACTAL 6U|) 7,5U) -.5,5  -DO NOT CHANGE LINE NUMBERS-R'8S$' N,R [# GENERATOR SEGMENTS, # HORIZONTAL DIVISIONS]rS8' XMIN, XMAX, YMIN, YMAX [IMAGE SIZE: XN, XX, YN, YX]SL' X1,Y1, X2,Y2, ... [N-1 GENER- ATOR MIDPTS. OMIT 0,0 AND R,0 ENDPTS.]S`'St' - FRACTAL 1  MENU ==================Q2# 0,1Q<#"1. TWIDDLES"%QF#"2. ZIG-ZAG"8QP#"3. PYRAMIDS"LQZ#"4. KITE TAIL"`Qd#"5. BLUEPRINT"xQn#"6. ORTHOGONALITY"Qx#"7. DIADEM"Q#"8. RORSCHACH"Q#"9. LACE"Q#NUMSEL9 : # OF SELECTIONSQ#R# " YPVT YPVTO\ YPVB YPVB Of(O --- STOP OR CONTINUE ---FO "ONTINUE OR ENU?"_O K$ : K$"M" O "#" VS ": LEVEL =" LEVEL "OF" ML "; # PTS. =" FS1OO@ ------- DEFINE ALL VARIABLES --PJX0:Y0:XL0:YL0:XR0: ": XMIN,XMAX,YMIN,YMAX :",MFM$"###.## ###.## ###.## ###.##"LM FM$;XNR,XXR,YNR,YXRRMpMX ----- SUBROUTINES -----Mb -- FIND SEGMENT ANGLE --Ml DX0 ANP0(DY0)PI : 7060MvAN(DYDX)M DX0 ANANPI : 706 N PTSJ XP,YPK 7100 : SAVE MIN/MAXEKNDXNDXSS : INCR. WRITE INDEXkKX(NDX)X : Y(NDX)Y : SAVE PTKXLV : YLW : NEXT LEFT PTK::: SBKXXR : YYRK 7200 : CONVERTK XP,YP : LAST S IXRX(SG) : YRY(SG) : RT. ENDPT7IDXXRXL : DYYRYL : DELTAS[I(L(DXDX DYDY) : SEG LNTH.}I2 7010 : GET ANGLEI<CS(P2AN) : SN(P2AN)IFNDXSGSR : WRITE INDEXIPX0XL : Y0YL : SEG. ORIGINJZ SS)F" JG,*G ======= DRAW ALL LEVELS =======>G: LEVEL1 MLhGISR(N(LEVEL1)) : INIT # SEGSGFSR(NLEVEL) : FINAL # SEGSGSRNPIS : READ INCREMENTGSSNPFS : WRITE INCREMENTGK$"" : K$ : 53280,0:53281,0:646,1G ==================================k COMMODARES PROBLEM #36-2 : ANIMATED EXPANSION SOLUTION BY ANDRE LESSARD ================================== "ENTER A WORD";A$:"ENTER A ISPLAY IMAGE FROM DISK ==X. "DISPLAY WHAT FILE";FL$X. 1,1X. (FL$)&X/ 0,X/OX2 === HI-RES DUMP TO EPSON ===sX2E$(27) : N1200 : N20 :A$""X2 222,4 :222,E$"A"(8)X2 COL0 39X2 ROW24 0 1X2M81928COL320RO ,-.8,3U) 1,1, 2,2, 3,2, 4,2, 2,0, 4,0V)V) - FRACTAL 7V) 9,52V) 0,5,-1.5,1.5aV* 1,0, 2,1, 3,1, 4,0, 1,0, 2,-1, 3,-1, 4,0gV*yV0* - FRACTAL 8VD* 10,5VX* 0,5,-1.4,1.4Vl* 1,0, 1,1, 2,1, 2,0, 2.5,-1, 3,0, 3,1, 4,1, 4,0V* S' 8,4S' 0,4.2,-1.4,1'T' 1.2,0, 1.2,.8, 1.8,.8, 1.8,0, 1,0, 2,-1, 3,-1-T'?T' - FRACTAL 2JT' 10,6_T( -.2,6.2,-3,2.2T( 1,1, 2,2, 3,1, 4,0, 3,-1, 2,0, 2,-1, 2,-2, 5,-1T((T<( - FRACTAL 3TP( 8,4Td( 0,4, -.5,1.5Tx( 1,0, SELECT AN ITEM # OR PRESS TO QUIT" R# SS$ : SS$"Q" .R#VS(SS$)LR# VS1 VSNUMSEL 9130pR#DL10000VS100 : DATA LINE #R# DL : SET READ PTR.R#R& ==========================R& --- DATA STRUCTURE ---R' YR0:L0:V0:W0:V00:W00:CS0:SN0:N0HPTX00:Y00:XP0:YP0:NDX0:SS0:SB0:XN0:XX0:YN0:YX0:A0P^B0:C0:D0:VR0:VL0:VT0:VB0:DX0:DY0:SG0:AN0:PI0:VS0PhWL0:WR0:WT0:WB0:J0:IS0:FS0:SR0:K$"":LEVEL0:FM$""PrP(# ======= P 15:SUM0:I61446466:J:I,J:SUMSUMJ::SUM32280"ERROR IN DATA":Z6144y 160,5,185,36,25,153,12,3 136,16,247,169,0,141,67,25 96,133,2,160,42,169,25,32 226,67,144,7,105,166,162,0  24,144,3,56,165,2,76,33(#"":53280,0:53281,0:646,1L ==================================p COMMODARES PROBLEM #36-1 : FANCY FACTORIALSZ----SOLUTION BY MATT SHAPIRO------dH100000:E.0000001:I0:J0:K1:C0:P0:N0:F(3000):F(1)1:"N"; (LN).5) : 3600 TLGLN(10) : CH(LG) :MNLGCHo ^ (((MN(10)))"0000000000",12((CH)));"E"((CH),2)u h ------STIRLING'S FORMULA---------  "SPECIFY N LESS THAN 34";N NF(2N)(N(1))N  N "! >" NF  N "! <"  @@ << RR40-1 >>=@ ==================================C@a@ FRACTAL MAKER{@ C-128@@ RUPERT REPORT #40@@ ==================================@ 1,1 : FIX BASIC BUGA 8000 : DEF3000 : WINDOW SET-UP/B 4000 : GET GENERATORNB 5000 : DRAW ALL LEVELSqBX 6000 : SHOW MIN/MAX VALUESB"PRESS ANY KEY FOR MENU"B K$B  : BACK TO MENUB :C ======= INITIALIZATIO,DY(N) : DELTASD7D ======= SET UP WINDOW =========VD 2,1,23 : SPLIT SCREENsD : VIEWPORT COORDINATESD VL0 : VR320 : LEFT,RIGHTD VB0 : VT200 : BOTTOM,TOPD : WORLD COORDINATESD WL,WR,WB,WT : WORLD MIN,Y:TTY::TT6277:ARKS ARE HIGHLIGHTED!!!G CHECK ML CODE FOR ERRORZ T : :}"? CHECKSUM ERROR IN DATA ";"LINES 140-210":: HANDLE PROGRAM RELOCATION"L(774):D,L:S14,L,H(775):D1,H:S16,H6MS24:N: n I1 N: J1 K:PIF(J)C:C(PHE):F(J)PHC:Y x C KK1 : F(K)C : C0| : ((N),2)"!="((F(K)),2); K1JK111:("0000"((F(J)),2),5);: ----SOLUTION BY ROB SCHULTZ------ "N";N : M1 J1 N !  104,76,121,239,17,24,41,244!( 83,24,69,88,84,79,70,198S!0 69,88,84,79,206,69,88,84s!8 67,79,204,69,88,212,0,129!@ 0,1,1280,68 25,104,201,0,240,14,201,58 240,10,201,44,208,36,32,128 3,76,171,24,32,134,3,96  32,1,240,84,160,0' 140,68,25,172,68,25,192,4H 176,72,32,244,135,72,169,0j 141,0,255,202,48,60,138,172 68,25,153,33,208,200,140,68 25,104,201,0,240,14,201,58 240,10,201,44,208,36,32,128 3,76,171,24,32,134,3,96  32,1 67,201,43,144,4,56,76,05<0 81,56,233,39,170,160,255,202\8 48,8,200,185,42,5,16,250|@ 48,245,200,185,42,25,48,6H 32,12,86,76,66,24,41,127P 76,46,81,201,43,176,16,201X 39,240,44,201,40,240,12,201` 41,240,62,201,42,240,12NF(11(12N1)) 10 :EE1: 2208 : M "E+" E> e "---SOLUTION BY CHARLES KLUEPFEL-- , "N";N : N"! = "; 6LN(N)(N.5)N(2)21(12N)1(360NNN) @LNLN1(1260NNNNN)1(1680NNNNNNN) J N12 (#"":53280,0:53281,0:646,1L ==================================p COMMODARES PROBLEM #36-2 : ANIMATED EXPANSION SOLUTION BY CLIFFORD DEDMORE ==================================" W$,N:""W$"";:TINE ALL VARIABLES5AMEM(1) : FREE VARIABLE MEMORYXABP10 : BYTES PER POINT~A(PI3.14159265 : P22PI : P0PI2A2 R(X)(X.5) : ROUND OFFAZ =================================Ad 9000 : MENUA 2000 : INITIALIZEB, N ========>C N,R : # LINE SEGMENTS, # HORIZONTAL DIVISIONSeCMLR((MEMBP)(N)) : MAX LEVELCNPR(NML) : # POINTSCSSNPN : SAVE INCR.C NP6000 MLML1 : 2030C X(NP),Y(NP) : POINTS D  DX(N) ,MAXE WLWLR : WRWRR&E WBWBR : WTWTR e "---SOLUTION BY CHARLES KLUEPFEL-- , "N";N : N"! = "; 6LN(N)(N.5)N(2)21(12N)1(360NNN) @LNLN1(1260NNNNN)1(1680NNNNNNN) J N12 ()1(W$):K1N:(148)" ";::"";:T DUEL 128 LIST FORMAT 128INFOFLOW 128$EXT-BACK 128FRACTAL MAKER128FANCY FACTORIALS ANIMATED EXPAN 128,3,240,21,201,49,144.  17,201,53,176,13,41,3,168O  185,63,25,141,67,25,32,128p  3,96,76,108,121,201,32,144  32,201,128,144,4,201,160,144  24,72,173,67,25,240,17,16  11,169,128,133,243,173,67,25  41,1,240,4,104,9,128,72 1,56$h 76,169,75,169,255,133,216,169Dp 0,141,0,255,169,91,141,17fx 208,169,253,141,38,3,169,24 141,39,3,32,128,3,96,169 0,133,216,141,0,255,169,27 141,17,208,169,121,141,38,3 169,239,141,39,3,32,128,3 96,32,128,318)" "23)"LAP 3"" AVERAGE"18)" AVERAGE"015)" WINNER "TV37,1:V38,2:V43,2:V44,52040,195:2041,196:2042,197:2043,198:2044,1942045,192:V28,15:V29,127:V23,15V,104:V1,114:V2,56:V3,1380,21,0,0,252,0,0,240,0,0,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0$ 0,0,0,0\$ 0,0,0,0,0,3,0,0,15,0,0,21,0,0,85,0,1,84,0,15,240,0,63,192,0,255,0$ 3,252,0,5,80,0,21,64,0,85,64,0,85,0,0,84,0,0,0,0,0,0,0,0,0,0,0,0,0,0$ 0,0,0,0,0,0,0% 0,0,5,92,104# 145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104i 76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116 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,1 1,H1:S,N1:S8,H2:S7,N2H150T0200:&T0100::;X024:SX,0:AT CAR SOUNDiX024:SX,0:S,251:S1,05:S5,129:S6,65:S24,15:S4,129: INITIALIZE PLAYING SCREEN MP50:V53248:S54272:TM 4,8,48,88,128,168,208,248!& 32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5G!0 5,6,6,6,6,6,6,6,7,7,7,7,7,2,0,29,0,21,1,1\!: SPRITE DATA!D 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,84,0,0,124,0,0,16,0,0,186,0!N 0,255,0,0,146,0,0,0,0,0,0,0,0,0,019,32,192,0,4,0,32,0,1'f 4,192,0,0,4,8,0,0,0(p JOYSTICK DATAO(z 173,0,220,41,31,73,31,133,3,173,1,220,73,255,133,2,5,3,133,144,96U(( 32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,2550,0,0,0,0,0,0&4 0,0,0,0,0,3,0,0,4 V4,200:V5,114:V6,248:V7,138+V8,164:V9,146:V10,140:V11,114U2046,192:V45,7:V12,157:V13,110mV21,127:D(V30)sX05:H1,N1,H2,N2:X4915249528:A:X,A:X1228812926:A:X,A:X828848:A: 0,192,0,0,16,0,0,12,0,0,15,0,0,1,64,0,0,80,0,0,60,0,0,15,0K% 0,1,64,0,1,80,0,0,84,0,0,63,0,0,15,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0[% 0,0,0,0,0%0,0,0,192,0,0,240,0,0,84,0,0,85,0,0,21,64,0,15,240,0,3,252,0,0,255,0% 0,63,192,0,5,80,0,1,84,053,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 236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72 177,92,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208  234,230:X1164:LP0:E0:Z1:C$A$:Y1114"":53280,0:53281,0D4)"MPH"MP;21)"RACER "A$:p(7)" "19)" ":7)" "19)" "31)" "22)"      "<2)"          ,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0!X 0,0A"b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,186,0,0,255,0,0,146,0"l 0,56,0,0,124,0,3,108,128,3,41,128,3,255,128,3,57,128,3,17,128"v 0,0,0,0,0,0,0,0,0,0,0,0,0" 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,(d LIST FORMATTER --SHAWN K. SMITHOnS5555: RELOCATABLE PROGRAM - 'S'lx:"LIST FORMATTER "; LIST FORMATTER ML CODE 64-BYTES 173,007,003,201,028,144,006,169 203,162,021,208,004,169,081,162 081,141,006,003,142,007,X,A:X850865:A:X,A:"L(8) ,6 FANFARE DATAf@ 25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162,42,62,31,165yJ 50,60,37,162T SCROLL DATA^ 174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174h 1,1,85,0,0,85,0,0,21,0,0,0,0,0,0,0,0,0,0,0,0&  0,0,0,0,0,0,0K& 0,0,0,192,0,0,16,0,0,12,0,0,12,0,0,1,64,0,0,192,0,0,192,0,0,192,0&  1,64,0,5,64,0,21,0,0,252,0,0,240,0,0,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0&* 0,0,0,0,0,0,0&4 0,0,0,0,0,3,0,0,46,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172N 116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92 104,145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232 32,30,193,173,120,193,201,0,240,20,172,115,193,136  "F" "OP" "qZ3)""A$;18)" "23)""B$d18)" ":3)"LAP 1"18)" "23)"LAP 1"n3)"LAP 2"18)" "23)"LAP 2"x3)"LAP 3"0,0,0,6,24,96,6,126,96,7,255,224)# 6,126,96,6,24,96,0,60,0,248,126,31,248,231,31,248,195,31r# 255,195,255,255,195,255,248,255,31,248,126,31,248,24,31,248,0,31,0# 0,0,0,0,0,3,0,0,4,0,0,48,0,0,240,0,1,64,0,5,0,0,60,0,0,240,0,1,64,0$ 5,64,003,096+ 008,201,058,208,026,036,017,048Q 022,169,013,032,012,086,162,000w 189,000,001,240,008,169,032,032 012,086,232,208,243,169,058,201 143,208,002,133,243,040,234,076 POKE ML STARTING AT ADDR. 'S'(DSS63:Y:D18,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10Ur 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204| 116,193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200 204,116,193,208,238,240,18,136,177,90,72,177,92,200,14,0,0,48,0,0,48,0,0,64,0,3,0,0,3,0,0,3,0,0,1,646'> 0,1,80,0,0,84,0,0,63,0,0,15,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0D'H 0,0,0,0'R 0,0,0,76,1,0,00,128,4,32,4,32,0,48,0,8,0,0,0,32,48,80,0,130,3,12,0'\ 0,0,4,32,0,128,0,36,0,0,0,192,201,0,4,0,0,0,,200,185,162"  193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193d  133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152  24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80  120,160,200,240,24,64,104,144,184,22: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|:  LAPS BY JC HILTYD53280,0:53281,0:""18)"LAPS"r4)"PLEASE WAIT........READING DATA"|(15202"PLEASE ENTER THE NAME OF PLAYER 1...."<"....UP TO 10 LETTERS"FA$:(A$)1050 P"PLEASE ENTER THE NAME OF 850,1,9:" ":850,1,8:""MP< "V37,2:V38,1:TMTM(600MP)T ,LPLP1:LP100390y 6MP2502045,194:V11,142:340 @MP1502045,193:V11,122:340 J2045,192:V11,114:340 TY1Y11:Y11302046,194 ^Y1150Y1110:2046,192:1222046,193.V8,X1:850,1,9:" ":850,1,8:""MP[&V37,2:V38,1:TMTM(600MP):V13,Y1y049152:LPLP1:LP60590:(V30)161070D430N49522,1:49523,0:49524,38:49525,3:49526,7:2040,195XLP0:2042,200 bV37,4Y1Y11:Y11302046,1941Y1150Y1110:2046,192:720NY1130Y11222046,193zV8,X1:850,1,9:" ":850,1,8:""MPV37,2:V38,1:TMTM(600MP):V13,Y149152:LPLP1:LP60E1:220(V30)1610706101RD(V30):130\850,18,9:""L(Z):7909f850,18,29:""L(Z):790Up850,19,9:""L(Z):790rz850,19,29:""L(Z):790850,20,9:""L(Z):790850,20,29:""L(Z)L(7)((L(1)L(3)L(5))3):850,21,9:""L(7) L(8)((L(2)R N"JK$:JK$""1030R$:R$""1040&R$"Y"50,$b.X024:SX,0::S24,15:S5,8:S6,255:S4,858F1100:F2230:X180:S,F1:2044,201:S15,F2:2044,194BF2F22:F1F1.99::S6,15LY1114:V13,Y1:X1164:V8,X1:20PLAYER 2...."' Z"....UP TO 10 LETTERS"< dB$:(B$)1080F n1290T xD(V30)^ 1150 850,23,8:"PRESS FIRE TO START...." 49522,1:49523,8:49524,30:49525,23:49526,23 49152 828:ST0T088::160 ((3)16)0200 :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 ARE370 hY1130Y11222046,1937 rV13,Y1:(V30)161070@ |230M E0410V 770 49522,2:49523,0:49524,38:49525,3:49526,7:2040,199 LP0 V37,1:V38,2:828:ST0480 (3)1MPMP5:MP300MP300 (3)2MPMP5:1:V38,2:828:ST0660-l(3)1MPMP5:MP300MP300Nv(3)2MPMP5:MP50MP50b(3)4X1X16v(3)8X1X16MP2502045,194:V11,138:X1X110:690MP1502045,193:V11,122:X1X17:6902045,192:V11,114:X1X1 T050::1606 850,23,8:" "@ 1260] 2040,195:2042,197:LP0 V37,1:V38,2:828:ST0290 (3)1MPMP5:MP300MP300 (3)2MPMP5:MP50MP50 (3)4X1X16 (3)8X1X16 V8,X1:L(Z)TM10:S4,128  Z860,870,880,890,900,910>LP0:E0:ZZ1:MP50:TM0b 850,1,9:" ":850,1,8:""MPx*C$A$C$B$:8304C$A$>850,1,27:" ":850,1,27:C$HX1164:V8,X1:2045,192:V11,114:2046,192:Y1114:V13,Y L(4)L(6))3):850,21,29:""L(8)%L(7)L(8)W$B$:970?L(8)L(7)W$A$:970WL(7)L(8)W$"TIE"m850,23,16:""W$T06000::V21,0""A$" "L(7):B$" "L(8):"THE WINNER WAS "W$::"PLAY AGAIN Y O45,192:2046,192:V11,1143VTMTM20:MP50:850,1,9:" ":850,1,8:""MPA`D(V30)Mj1260:ft INITIAL FANFARE{~X024:SX,0:S5,85:S6,85:S12,85:S13,85:S24,15:S4,33S11,17X05H1,N1,H2,N2:SMP50MP50 (3)4X1X16* (3)8X1X16X MP2502045,194:V11,138:X1X110:510 MP1502045,193:V11,122:X1X17:510 2045,192:V11,114:X1X14 Y1Y11:Y11302046,194 Y1150Y1110:2046,192:540Y1130Y1 Ѝ!  < ة XL7N`|䧆N3LH1fGJP3W>/f.LOADER872A "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  l xAHOY! APRIL872ABOOT64 UG EP128 BUG REP LANKSPEED IEMANPIEMAN.ML CRAMBLERSCRAMBLER.ML KKAPS!PLANET DUEL 128 LIST FORMAT 128INFOFLOW 128$EXT-BACK 128FRACTAL MAKER128ANCY ACTORIALS NIMATED XPAN 1KK NIMATED XPAN 2NIMATED XPAN 3NIMATED XPAN 4IFE IMES 1IFE IMES 2ROSSED ADDERSLIFE TIMES 128LOADERKK DDLOGO%DIR 1(KKKKKKKK2" A0 A1:"PIEMAN.ML",8,1. 49152SGIZARD AGSGWIZARD ML SGCOMPRESSOR.OSGDECOMPRESSOR.OSGICMASHER SGECOMP EMO  =o- K = T TTLUL) ʝ>>ܭo L)ʝ`iŢ` : L@<`<=> ? ԍ /`Ȱ`8``8ЩLc­`8ЩLc­L©I . Wĩ`I ЭЍiЩ`,`AЭ3Щ­   ЩkЩLn`9Э3 ЭI``*ЭI`I ` ԍԩԩ!ԩQԍԥiŢ `VĭVVD9`09`09`0`l9l`0lk9k`0kj9j`0j`)ܥ)Н0ѝ1 W}}WWWW_W}} ( "( J(( ) !($   *`<( (ɝɝ8ɝ@ɝɝɝyɝٝ٩ٝ8٩xڝک۝@۩ڝh۩>؝Gˢ0j (؍Oآɝm- 4\-۝&莖莠莡莽8,%---     ٝ٩ٝ8٩xڝک۝@۩ڝh۩>؝Gˢ0j (؍Oآɝm- 4\-۝&莖莠莡莽5% A0 A1:"SCRAMBLER.ML",8,11 49152SGIZARD AGSGWIZARD ML SGCOMPRESSOR.OSGDECOMPRESSOR.OSGICMASHER SGECOMP EMOӠ  ĩ 9ʅ:;?<?9;:$ƽ?ƍE%ƐXzƍ0ƹ|ƍ7ƠT Ȍ >m0ƨEm70 U`>ƍEƘ) @`8#'JJJi(ix8$%XJfFFE" )8 ƅ e"Ơ@Ȍ` 8ƙЭ=\ƨ?)cƨ`))`(ƹ(`)Ƣ@Թ ԹƍȌ(`) Ԡ8i:0` LLà0`ԩ/Ԡ !ԩԌԢ inީԩԍ `;;4;<+<ɝP(;(:Oɝm`<BɝP(:(;Oɝm`Э`ЭЍ  ­ЩLr   Щ­>  Щk Щ Щ©©`܍J) íJ) íJ) íJ) ĭJ) %ĩJ`Ip`԰ЩɴxЭI`n`ҰЩɸ|ЭI``, ܢŝ1hƝ0%Ɲ1 EƝ1MƝ1UƝ00]Ɲ8]ǝ9@ǝ/<;IÍVĩD`<<*&&*3333 00 3**&&%UXUPU@U@U@U@A@A@A@A@qp<i(%UX%UX)Uh U`U@U@A@A@A@A@A@o?BLsC-&ƥ)#}Pƍ#Ơ~)J Lũ&ƭ) JJX )Lŭ$)JJXƍ$}Pƨ%}T" LA$ƍ%ƭ#ƍЭ$ƍЭ) %ƍL1SCORE 000000 LIVES 3  $iŢ)J ) ­ԭƩԭ" " LH s + r Nå) ԍ ?? Ơ) #0 ƈ Ƭ:LЍƭ" " Lԅ:99&:?9?T Ȍ Ԡ??Ţi )?Ԉ)L U`0< P   P@  @@ 4,1,0:3072,0F@0,7:4,13:1,6:2,1: 3,11:"0":F$"###.##"@ V(3),D(4),J(3),C(3),M(3),L(3),A(3),H(3),P,A$(16):P52330@(J(1)1:J(3)2:D(1)19:D(2)90:D(3)19:D(4)270@2X112:A$(X)::OF$"":HI$""A<"      b"3Bx" ’"37)""dB" ÒD U E Ló"zB" ’"37)""B" ž BY CLEVELAND M. BLAKEMORE "B" jccccccccccccccccccccccccccccccccck"C""5)"A TWO-PLAYER CONFLI ,A,B::3,8:3,30,30,15:3,35,35:3072,1CDH(1)100:H(3)100:Z132:X8\DP,,14,.,.:(27)"@"DA$"CHOOSE WEAPONS":A1:B4:C12:660:L(Z)I5:XXIDP,,14,.,.:(27)"@"DA$"PICK DEFENSIVE ARMOR":A5:B8:660:A(Z)I:XXI:X0C(Z)1:32,0,2,,,,.:M(1)1:V(1)90:"";:P,,24,33,.:F$;H(1);F^3,250,170:3,1,16,,,,.:4,0,2,,,,.:M(3)3:V(3)270:"";:P,,24,12,.:F$;H(3);FhJ(1):J(1):J(2):J(2)Fr MAIN LOOPF|Z1: GA(J(Z)):A15V(Z)((A15)1)45:M(Z)1(V1,0,50,3:X.5::5,.:H(1)L(1)21kHHA(3)H(3)H(3)(HA(3)):"";:P,,24,33,.:F$;H(3);:H(3).J1:I3:520tH350{HHJ9:5,(1,.),(1,1):1,.#.:5,1,2,,,,1:2,5000,30,1,0,500,3:X.50::5,.:H%1)L(3)25IHA(1O WINS!!";: 8::580EJ&J1P,,24,.,.:(27)"Q";8)"STARPILOT ONE WINS!!";: 8::580J0P,,24,.,.:(27)"Q";" MID-AIR COLLISION ENDS IN STALEMATE!;";:X.150:0,(X15)1:A150:A,X::580J:J^(147):0:208,.:5324821,.:20JN WEAPO,.:20(A$)2);A$::7LC)"PLAYER #";(Z2.6);" (<>)":C)"$"X100:I1^LP,,20,C,.:;HI$;A$(AI1)(27)"Q"lLJ190:LJ(Z2.6):J1271,2000,10::ՋJ3J7700LJ3II1:AI1BI1LJ7II1:I1660L680M000 HIGH 000000PRESS ANY KEY2R߿ @>^~    P>   GGGGGG0G%H<0    ?< % <0 w P @ @(7@>?3  ?< % <0 "'AF" ’"37)""`AP" ’  ߢ ߹ߒ   "AZ" ’      á  "Ad" b         b"Bn" b   CT IN SPACE")C""10)"PREPARE FOR COMBAT!!"UC""5)"PLEASE STAND BY FOR PLANETFALL"pCX35843903:A:X,A:C(3072)1240CA170:X03203:I((1)40)5: 2,X,A X3,170I:A170I::2,0,160 D1,15:X.99:A(0)320:B(1)130:120E"P,,14,.,.:(27)"@"bE,A$"DECIDE ON SPACECRAFT ENGINE":A9:BA1X(X3)(X4):660:C(Z)I1:XXIxE6XH(Z)H(Z)X10~E@EJX024:D150::4,0,X::P,,24,.,.:"SHIP#1 ERGS: SHIP#2 ERGS: ";+FT1,100,100:1,1,12,,,,.:(Z)180)2:8183Z,M(Z)55kGA127Z1,1:Z1,(Z,.)D(M(Z)),(Z,1):Z1,D(M(Z)1)#L(Z):Z,10000,33,1,300,300,3}GZ,V(Z)#C(Z)GZ4Z:J(1):J6J9J5:((2)5)5380HJ6:5,(3,.),(3,1):3,.#.:5,1,2,,,,1:2,5000,30,)H(1)H(1)(HA(1)):"";:P,,24,12,.:F$;H(1);:H(1).J3:I1:520>I380EIQIJ0:I1I5,A$:2,5000,500,1,20,500,3:X18:XJA$,X:X,(I,.),(I,1):X,1,2,,,,1:X,(X1)45#1IJJ3P,,24,.,.:(27)"Q";8)"STARPILOT TWNS1KX LASER TORPEDOES,PHOTON CHARGES,PLASMA TRACERS,NUCLEAR MISSILES=Kb ARMOR~Kl CHROMIUM PLATING,DEFLECTOR WEB,KIRLIAN FIELD,SHRELL SPHEREKv ENGINESK ATOMICS,ION PROPULSION,TACHYON DRIVE,HALYCON OVERTHRUSTERK MENUK52330,,14,.,000,000,000,000,000,000,000'M000,064,000,000,096,000,000,112LM000,000,120,000,000,124,000,000qM127,192,000,060,063,255,255,255M 255,255,255,254,063,252,124,063M255,128,056,000,000,048,000,000M 032,000,000,000,000,000,000,000N* ~~<<~~P P@@P ` <0T 000,000,028Q000,000,000,000,000,000,000,0003Q000,000,000,000,000,000,000,000XQ000,000,000,000,000,000,000,000}Q000,000,000,000,000,000,000,000Q$048,000,003,003,016,192,000,000Q.000,049,003,076,000,032,000,004Q8002,016,048,136 @ @ 1690/@ *****************************S@ * INFOFLOW *w@( * BY CLEVE BLAKEMORE *@2 * DATABASE FOR THE C128 *@< *****************************@F%:4,13:X35844096:A:X,A:AP0,1:4,12:5,7:1,15: NFOLOW * ",1TB1,2,6,(14)"AVE EW ELETE IEW-DD"B1,2,7,(14)"OAD ILE ECORD ECORD"B1,2,16,(14)"ORT EARCH ARDCOPY URRENT":1,32,17,(14)"ECORD#"$C1,12:1,0,20,(14)"  X07:BO(X)2X::TL.:EF.:CR.:X.:Y.:A.:B.:G.:C.:O.:I.:J.:N.:RL%.:FT$"":CR$(13):A$"":B$"":M.:K.:L.:F.D1,15000,20,0,5000,5000,1:(2)200DG(1):::A(2):A.:BA15:I(B1)45:1,6(B0);I:A(2):AB:(A128)147)::F(2)(2)128:1,7:1,16,24," QUIT ",1:O.:G.:C.:210AFgFC290,570,680,910,1040,1180,1230pF200F" SAVE/LOAD FILEF,1520:0:"":1,2,39,24,1:"*":1,1,39,1,1:"ӒAVE OR ̒OAD?";F6208,.::A$:A$"S"A$"N;CR$;FT$:X1N:1,N$(X);CR$;L%(X)::H|J1EF1:I1N:1,R$(J,I):I,JCH#1LH550`H LOAD NEW FILEHEF" ILE IN EMORY!";: 5:1500:H0,1,39,1,1:" ILENAME ";:A10:1560:A$IN$:(155)H #1,"["A$",R"IDS20""DSIALIZE NEW FILEJD1520:EF"";MC$: 5:1500:RJNRL%.:TL.:" ILENAME ";:A10:1560:FT$IN$JX"UMBER OF FIELDS ";:A2:1560:N(IN$):N1N20(145)(27)"J"(27)"Q";:600: N$(N),L%(N)JbX1N:"AME IELD #";X;" ";:A39:1560:N$(X)DS.":"CCEPT OR ҒEJECT?"%LA$:A$"A"A$"R"660oLA$"R"1:EF.:1500:180:ՙ"MPTY ILE REATED.":CR1: 5:1500:L DELETE RECORD(S)L1520:EF.M$: 5:1500::ՙ"ÒURRENT ECORD,ӒCAN ILE,OR LL?"LA$:A$"C"A000,000,000,000,000,000,000,000*N4000,000,000,000,000,000,000,000ON>000,000,000,000,000,000,000,000tNH000,000,000,000,000,000,000,00NR000,000,000,000,000,000,000,028N\000,000,000,000,00,000,000,000Nf000,000,000,000,000,000,000,0052,001 P255,252,000,000,028,000,000,0120P000,000,004,000,000,000,000,000UP000,000,000,000,000,000,000,000zP000,000,000,000,000,000,000,000P000,000,000,000,000,000,000,000P000,000,000,000,000,000,000,000P000,000,000,000,000,,003,002,034,000RB016,000,132,000,136,003,194,0006RL000,000,000,132,004,136,000,000[RV000,140,192,072,000,004,000,019R`000,193,000,048,000,000,000,012Rj048,012,192,003,000,000,000,000,000,000,000,000,000,000P000,000,000,000,000,(14)(11): 2,1,25XAZ2630:I.63:A:A$A$(A):I:I(.):1,B$:A$,1:1,A$:B$,1Ad1,1,16,,,,.:1,160,150:A$,270,100An2720:X28:X,1,7,,,,.::X28:A,I:X,A,I:1,A29,I55,A5,I25::1,0,78320,78Bx1,0,0,(14)" *  * Y LEVELAND . LAKEMORE ",1C1,0,22,(14)" ŠΠ٠ ECORDS ! ":1,7:1,16,24," QUIT ",1:&C1690:1,1650:V53248:M$" O ILE IN EMORY!":MC$" ILE URRENTLY IN EMORY!":1,23,22," ":BO(7)uD:_E1,15000,20,0,5000,5000,1:X(1,0):Y(1,1):X270X320Y130Y2001370:C.:O.:G(1):200EY234:1,25000,50,0,2000,2000,0:1,15:1,16,24," QUIT? ",1::(2).E:(2)1270:V21,.:0,12:5,14:4,14:(12)(142)(19)(19)(L"G@A$"L"420$GJ SAVE CURRENT FILE TO DISKRGTEF." O ILE IN EMORY!";: 5:1500:G^0,1,39,1,1:" ";FT$;(155);:A$FT$Gh"["A$: #1,"["A$",W":DS20""DS$;: 5:1500:#1:HrJEF1:1,RL%;CR$;TL;CR$;J;CR$;$;: 5:1500:#1:I1,RL%,TL,EF,N,FT$2IR$(TL,N),N$(N),L%(N)OII1N:1,N$(I):1,L%(I)UIaIJ1EFlII1NI#1,A$:A$CR$R$(J,I)R$(J,I)A$:520II,J:EFEF1:CR1I#1I&0,1,39,1,1:""DS$;I0 5:1500:I: INITIN$aKlA$"":"ENGTH IELD #";X;" ";:A3:1560:A$IN$:(A$).(A$)256L%(X)((A$)):ՙ"EFAULT (160) !":L%(X)160uKvRL%RL%L%(X):KRL%RL%3(N1)5:TL((1)RL%):EF2:R$(TL,N)L"HIS FILE WILL PERMIT AT LEAST":"";((1)RL%);"ECOR$"S"A$"A"700M1,25000,25,0,2000,3000,1MA$"A":"Š̠!Šՠ?(/)"::A$:A$"Y"A$"N":A$"Y"EF.:1:1490:180:900MMA$"C"M"....":1,25000,15,0,3000,8000,1-NI1N:R$(CR,I)" 0Op000,000,000,000,000,000,000,000-Oz000,000,000,000,000,000,000,000RO000,000,000,000,000,000,000,000wO000,000,000,002,000,000,006,000O000,014,000,000,030,000,000,062O000,003,254,255,252,060,255,255O255,127,255,255,062,063,2 EFCR1:EFTLEFTLP Q(147);:940Q SORT RECORDSAQ ("HELL ETZNER LGORITHM")aQ$1520:EF.M$: 5:1500:Q.:"ORT USING IELD?(1 ><";N;")";:A$:A$""X1::X(A$):X.XN:MEF1::"TAND BY-ORTING ILE!"Q8 3 SEARCH RECORDS,FIND STRINGS1520:EF.M$: 5:1500:MS1,1,39,1,1:"EARCH TRING:";:A23:1560:A$IN$S"EARCHING...";:1,2,39,24,1:J1EF1:I1N:(R$(J,I),A$)CRJ:940:CRJSI,J:"EARCH COMPLETED.";: 3:1500:S  ":" ";FT$:0U4,4,7:4 U:&U(JFL:CRJ:1540::0U24,""9U<4,4PUF" .": 3\UP1500:yUZ GET RECORD NUMBER IN IUdEF.Un(2)1390Ux1480U(2)3CRCR1U(2)5CRCR10U(2)7 (((1)RL%)):1,22,22,A$:: W SWITCH TO TEXT>W(19)(19)(147): 1,1,39,24,1:2,0,1:V21,0:VW CHROUT ONE RECORDW" Ġ#";CR;"IN Š";FT$:X1N:"";N$(X);": ";"";R$(CR,X)::W TAMPERPROOF INPUTW(27);"Q";:IN$TERRUPT PROCESSINGXrG(1)254:GO Y|X17:BO(X)GCX:OG:G(1)::Ղ&Y;Y ERROR TRAPPINGQY1,1650:ER30YER5EL1290" . Ơ!": 3:1500:YER5" !";: 3:1500:8,16,0,4,8Z&0,2,4,0,1,2Z00,0,129,0,0,65 [:0,0,34,0,0,20[D0,0,8,0,0,04[N0,7,255,240,7,227M[X240,7,221,224,7,221f[b240,7,221,240,7,227[l240,7,255,240,7,247[v240,7,247,240,7,247[240,7,255,240,0,0[0,255,255,255,198,0\255,241,0,128,17,0\ 128,17,0,143,18,0 ]128,20,0,255,248,0] 0,0,0,0,0,01]*0,60,0,0,66,0G]43,255,192,4,0,32]]>3,255,192,2,0,64r]H2,82,64,2,82,64]R2,82,64,2,82,64]\2,82,64,2,82,64]f2,82,64,2,82,64]p2,82,64,2,0,6^255,20,16,3,34,32^ 5,62,64,9,34,255_ 241,34,128,17,0,143!_ 17,60,128,17,34,255;_$ 241,34,128,17,60,143T_. 17,34,128,17,34,128m_8 17,60,255,241,0,128_B 17,28,128,17,34,143_L 18,32,128,20,32,255_V 248,34,0,0,28,255_` 0,0,"::X1EF1:R$(X,1)""I1N:R$(X,I)R$(X1,I):R$(X1,I)"":I:X:ՂXFNEF1EFCREFEF1|N " Ġ#";CR;"DELETED.": 3:A$"":Չ900NN A$"S"N*(19)(19)(147);:"- TO XIT,- TO RECORD"N41,2O(2).950O(2)127P(2)3CRCR1:CREFCREF>P(2)7CRCR1:CR1CR1P(2)1:1,18000,10,1,2000,5000,2:(19)(17);:X1N:"";N$(X);"";PAL%(X1):IN$" ":1570:IN$" "R$(CR,X)(IN$,2)P:CREFR$(CR,1)"":%QBM(M2):M.1170 RLK(EF1)M:J1RVIJ>R`4,(J15)1:LIM:R$(I,X)R$(L,X)1150qRjR1N:A$R$(I,R):R$(I,R)R$(L,R):R$(L,R)A$:RtIIM:I11120R~JJ1:JK1090R1110R4,12:&:" Ԡ.": 5:1500:RHARDCOPY.T1520:EF.M$: 5:1500::ՙ" *** INE ANGE FOR ARDCOPY *** "fT1,3,39,3,1:A$"":"ROM:";A$:A$""F1:F(A$)yTF1FEF1250T1,4,39,4,1:A$"":"O:";A$:A$""LEF1:L(A$)TL1LEF1270:ՋLF1250T "CRCR1U(2)1CRCR10 VCR1CR1:ՋCREFCREF)V(2)1271,160,150:3V1400mV1,16:1,32,18," ":EFA$(CR):1,32,18,A$::ՎV SWITCH BACK TO COMMAND SCREENV2,0,25:1,160,150:V21,255:1,23,22," ":1480:EFA$""W"208,.:244,1)X,Z$:Z(Z$):Z.(Z95Z193)Z218244,.:" ";:244,1:1580BX6ZL(IN$):ZLA1610kX@Z31IN$IN$Z$:Z$;(27)"Q";:1580XJZ13ZL204,1:" ":XTZ20ZLIN$(IN$,ZL1):244,.:" ";:244,1X^1580Xh INYER9(19)(19);DS$;:ZER24" Š.";: 5:1500:?Z(ER);" ERROR IN ";EL:&:1500:QZ SPRITE DATAbZ0,0,0,0,0,0wZ0,0,0,3,255,128Z2,1,0,2,2,0Z2,4,0,2,2,0Z2,1,0,2,0,128Z2,96,64,2,144,32Z3,[3,197,255,227,197,64[35,197,255,227,192,0\3,255,255,255,0,0'\0,0,128,0,0,64=\0,0,36,15,255,20S\16,3,12,32,5,124i\64,9,0,255,241,0\128,17,0,143,17,0\128,17,0,255,241,0\128,17,0,143,17,0\128,17,0,128,17,04]z3,255,192,0,0,0]0,0,0,0,0,0]0,0,0,0,0,0^0,0,0,0,0,255#^0,3,0,192,4,60:^32,8,66,16,16,153Q^8,32,189,4,16,153e^8,8,66,16,4,60{^32,3,0,192,0,255^0,0,0,0,0,0^0,0,0,0,0,0^0,0,0,0,0,0^0,255,0,0,8,150,0,0,0_j 15,128,0,1,131,255_t 2,130,1,4,130,1 `~ 8,0,1,16,63,225 ` 32,32,63,64,32,327` 128,0,32,7,252,32J` 4,7,224,4,4,0_` 0,4,0,255,132,0x` 128,252,0,128,128,0` 128,128,0,128,128,0` 255,128,0,255,0,0` 0,0,127,255,0,64 ,39,24,1N>:(147);:1540OHA$:(2).A$""840:OR(2)3CRCR1:CREFCREFYO\(2)7CRCR1:CR1CR1jOfA$""750wOpA$""~OzO1500:O VIEW RECORD(S)O1520:EF.M$: 5:1500:O940:1500:O1540: 1646,1:53281,0:53280,0G ==================================k COMMODARES PROBLEM #36-2 : ANIMATED EXPANSION SOLUTION BY BING PERRY ================================== "ENTER NUMBER OF SPACES";S 646,1:53280,0:53281,0G ==================================k COMMODARES PROBLEM #36-2 : ANIMATED EXPANSION SOLUTION BY JIM SPEERS ==================================d I1 40:B$B$" ": I n" #"":646,1:53280,0:53281,0L ==================================p COMMODARES PROBLEM #36-3 : LIFE TIMES SOLUTION BY RICK NEEDHAM ================================== "AGE";A: X1 100: Y1987A #"":646,1:53280,0:53281,0L ==================================p COMMODARES PROBLEM #36-3 : LIFE TIMES SOLUTION BY CLIFFORD DEDMORE ================================== T$(1)"BC":Y,A:K1100:YY#"":646,1:53280,0:53281,0L ==================================p COMMODARES PROBLEM #36-4 : CROSSED LADDERS SOLUTION BY ANDY YOUNG ================================== LL30 : LS20 : HT6 : K2 * ==================================N COMMODARES PROBLEM #36-3 :b LIFE TIMESw SOLUTION BY LON OLSON ==================================! "AGE=";A:Y1987::II1:YYA:I100:ՋY0:ՙI") "Y::Y1(Y "ENTER WORD";A$ : L(A$);  ""A$ : 100 : K1 L1x ( J1 S : A$(A$,(K1)(S1)J)"."(A$,LK):""A$ 2 100 : : < KL1 1 1 F JS 1 1 : A$(A$,(K1)(S1)J)(A$,LK) P""A$" ": 100 : : Z d ENTER TEXT";W$( x"# OF SPACES";N:""g N=3 : W$=" QB JO LD TURFUVTAO HIOOMEHZG ECWXPREYS KN S" N=1 : W$=" MENU" N=7 : W$="1 4 52+5=73 6 9" N=7 : W$=" M O H NDO TAU HYR " K1 : 210 I1 N: 220` 1,0,94,1,0,64` 1,0,95,253,0,64` 1,16,95,253,8,64a 1,252,95,253,8,64)a 1,16,95,253,0,64>a 1,0,95,253,0,64Sa 1,0,95,253,0,64ga 1,0,64,1,0,127za( 255,0,0,0,0,0a2 0,255,7,6,10,7a< HIRES SHAPE DATAaF 192,000,000,191,0h020,000,255,248,000b ICON LOCATIONS c 45,70,120,70,205,70,290,70,45,150c 120,150,215,1500,64>a 1,0,95,253,0,64Sa 1,0,95,253,0,64ga 1,0,64,1,0,127za( 255,0,0,0,0,0a2 0,255,7,6,10,7a< HIRES SHAPE DATAaF 192,000,000,191,08X : Y0 YY11 : A$"BC"1  X,Y;A$: : TNIMATED XPAN 4IFE IMESCD40-7 CD40-8 CD40-9 CD40-10!A:K,(Y)(Y1);T$((Y1)):NIMATED XPAN 3NIMATED XPAN 4IFE IMESIFE IME 2 CD40-8 CD40-9 CD40-10 T1 20 : : C53280,0G ==================================k COMMODARES PROBLEM #36-2 : ANIMATED EXPANSION SOLUTION BY BING PERRY ================================== "ENTER NUMBER OF SPACES";S  : P1$(B$,I)P2$:J11:J:IQ W$P1$(B$,N)P2$:K(P1$)N1:210: P2$"" [ 180 P1$(W$,K):P2$(W$,K1,255): DS$"" 780,0: 781,1: 782,0 : 65520 : 65520,0,1,0 : ========d I1 40:B$B$" ": I n"X01 : INITIAL VALUE'  "X0, GX, HX"< d II0 1 1R nHS(LSLSX0X0)h xHL(LLLLX0X0)} HXHSHL(HSHL) FXHTHX GXX0FXK X0,GX,HX X0GX II((FXGX) 1E8) II CD40-10():I100:I") "Y"BC":YYA:II1:ATED XPAN 3NIMATED XPAN 4IFE IMES 1IFE IMES 2ROSSED ADDERSLIFE TIMES 128 CD40-10 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 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 00,000,129,015aP 255,129,016,003,129,032,005,255bZ 064,009,000,255,241,000,128,0819bd 033,000,145,115,255,049,170,001^bn 081,034,057,145,035,255,017,032bx 128,017,032,128,017,032,255,241b 032,128,017,000,128,017,000,143b 018,000,128, <: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$(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(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)" 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) | "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)" 587PO55507>X2X0HAN$(13)2140#R20807\X0882:4100EaX22160tbH3H7H8H9H10H11H20882:1550oX1882:230p882:225I116:POI,5:: P$(1)"LANKSPEED" P$(2)"64 UG EP" P$(3)"128 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" ,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,"/|(L$,23)3)" ":1000EAN$:AN$""1670S882:225t ************************** **** WINDOW ROUTINE **** **************************828(L$,5)11)"" ( 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 ":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 UG EP." P$(4)"IEMAN" P$(5)"CRAMBLER". P$(6)"APS"J P$(7)"PLANET DUEL 128"f P$(8)"LIST FORMAT 128" P$(9)"INFOFLOW 128" P$(10)"EXT-BACK 128"( P$(11)"FRACTAL MAKER128"2 P$(12)"ANCY ACTORIALS"7 P$(13)"NIMAT "RUN": ""0  631,13: 632,13: 198,2:m "":(L$,2)2)"" *(L$,3)2)" " 4I116:2)" ݞ ": >(L$,20)2)"  P$(24)"" ) CL819:(L$,CL)14)" ":B (L$,P)10)" ":g657,128: DISABLE SHIFT/COM KEY POKE775,200:REM DISABLE LISTING POKE808,234:REM DISABLE STOP/RESTOREL$"":PT$"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  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,)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 ED XPAN 1"< P$(14)"NIMATED XPAN 2"/F P$(15)"NIMATED XPAN 3"MP P$(16)"NIMATED XPAN 4"gZ P$(17)"IFE IMES 1"d P$(18)"IFE IMES 2"n P$(19)"ROSSED ADDERS" P$(20)"LIFE TIMES 128" P$(21)"" P$(22)"" P$(23)"" "V C(L$,21)2)"" H(L$,22)1)"" R(L$,23)1)" RSR=ELECT PC=ORE /қ=XECUTE " \(L$,24)1)"=>":828-(L$,8)1)""nI914:(L$,I)1)" "t"(L$,15)1)" [/=ANCEL * PC=UN ROGRAM] ",(L$,16)1)"0,0 185,0,192,153,0,4,185,240% 195,153,0,216,185,250,192,153I 250,4,185,234,196,153,250,216m 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 --------- " PROGRAM #3" "HIS IS HOY!'S CHECKSUM PROGRAM"J "FOR THE -128 COMPUTER. SE IT "s "FOR MISTAKE-PROOF MAGAZINE ASIC" "PROGRAM ENTRY. " " " PROGRAM #4 "N EQUIRES YOU TO BEAT " "YOUR OPPONENT'S TIME TO QUALIFY "= "FOR THE ON NTERNATIONAL 500. "d "OYSTICK IN ORT 2. "u PROGRAM #7 "LANET UEL, FOR TWO PLAYERS ON THE" "128, LETS YOU DESIGN YOUR OWN " USE OR JOYSTICK"" "(IN ORT 2.) "" PROGRAM #10@" "XTENDE^ ACKGROUND ODE ALLOWS "i" "-128 USERS TO UTILIZE COMMANADS"""NOT NORMALLY AVAILABLE THROUGH """ 7.0 TO PUT DIFFERENT COLORS"""BEHIN^ I NIMATED XPANSION, A OMMODARE "%"FROM ECEMBER '86, SHOWS AN INPUT ">%"WORD BEING EXPANDED ONSCREEN BY "h%"INSERTING A SPECIFIED NUMBER OF "%"SPACES BETWEEN ITS LETTERS. "% PROGRAM #14%" SECOND APPROACH (SEE NIMATED "'1(L$,23)3)" ":1000N6I15:(L$,8I)3)""IN$(H,I):d@AN$:AN$""4160}JAN$(13)882:204TH3H7H8H9H10H11H20882:1550^AN$(32)882:230h4160I828935: ------------------ * MAX OF 33 CHRS IN LENGTH **5 ---------------------------X I124:X15:IN$(I,X:::io PROGRAM #1p "HIS IS HOY!'S ACHINE ANGUAGE "q "ENTRY PROGRAM FOR OUR ADVENTUROUS"r "READERS WHO LIKE TO T THE BEST UCY ICARDO TRADITION"" ", IEMAN REQUIRES YOU TO KEEP PACE"N "WITH THE ASSEMBLY LINE AT THE HOY!"x "IE MPORIUM. OYSTICK IN ORT 2." " " PROGRAM #5 "CRAMBLER REQUIRES SPLIT-SE "COMBAT FIGHTER FROM ARMAMENT, "  "SHIELDING, AND ENGINE MENUS. WO"E  "JOYSTICKS REQUIRED. "V  PROGRAM #8  "IST ORMATTER FOR THE -128 "  "IMPROVES THE READABILITY AND "  "STRUCTURE OF YOUR 7.0 NDIVIDUAL CHARACTERS. "" PROGRAM #11#"RACTAL AKER, A GENERAL PURPOSE "J#"TOOL FOR DRAWING RECURSIVE PATTERNS"s#"ON THE -128, IS PROVIDED IN "#"SUPPORT OF THIS MONTH'S UPERT "#"EPORT. " "%"XPANSION 1). "&" "D&" "d&" "v& PROGRAM #15&" THIRD APPROACH (SEE NIMATED "&"XPANSION 1). A:I,A:: 160,0,185,0,4,153,0,192, 185,0,216,153,240,195,185,250P 4,153,250,192,185,250,216,153t 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,16YPE IN THE" s "PROGRAMS FROM OUR MAGAZINE."t " "$y PROGRAM #2Nz "HIS IS HOY!'S CHECKSUM PROGRAM."v{ "SE IT FOR MISTAKE-PROOF TYPING"| "OF HOY! MAGAZINE ASIC PROGRAMS."} " "~ " COND " "TIMING TO RUN, JUMP AND CLIMB, "2 "ELUDE ROBOT SENTRIES, AND COLLECT "\ "BAGS OF GOLD. OYSTICK IN ORT 2." " " PROGRAM #6 "APS, A TWO-PLAYER 3- RACING " "SIMULATION, R "  "PROGRAMS. "&! " "7! PROGRAM #9a! "NFOFLOW, AN ICON-DRIVEN DATABASE"! "FOR THE -128, OFFERS EASE OF USE"! ", A RANGE OF COMMANDS, AND "! "OPERATION VIA MO# PROGRAM #12$"ANCY ACTORIALS, A OMMODARE FROM "/$"ECEMBER '86, DETERMINES THE 2568 "Z$"DIGITS OF 1000 FACTORIAL (1000). "$" "$" "$ PROGRAM #13$" "&" "'" "G'" "Y' PROGRAM #16'" FOURTH APPROACH (SEE NIMATED "'"XPANSION 1). "'" KK ".N" "*.O" "Q.P" "c.U PROGRAM #24.V"OT SED..... ".W"