@B@H$(1)" ENU= LOCK= INE= AVE= ":Z$(1)"BSLM"@H$(2)" ENU= IE= INE= AVE= ":Z$(2)"SLMP"@(H$(3)" ENU= IE= LOCK= AVE= ":Z$(3)"BSMP"@2L1$"".A<L2$" "aAFL3$""APL4$" "AZX(22),A(22),B(22),C(22),F(22):SU8:DU8:Q$(34):F$"CHART MAKER C128"5Bd4050:1021,(4):1022,(0):1023,(5):C12:1,C1:996,6:997,1:6,"G440"(13)wBn"";Bx L1$L2$" CHART MAKER C128 ";B" MODIFIED BY BOB WOLFF AND ";C" PAUL S. HIGHLAND FOR THE C128 ";OC" FROM A PROGRAM BY SVEN ANGERER "L2$L1$C""C8,344,150:8,270#5C"THIS IS A C128WEST DISK OF THE MONTHD"PROGRAM FOR FEBRUARY 19870D"TO START"TDC0:O1:N2:CL$""qDZ17:RT$"PRESS RETURN"D"THIS PROGRAM IS IN THE PUBLIC DOMAIND""Z1)RT$DZO)""(RT$,O,1)DZN);"";(RT$,N,1)EON:NN1:N(RT$)N2>EO2CC1:(CL$,C,1);:C(CL$)C0UE"Z$:Z$(13)250uE,8,0,8,1,1,1,0:8,344,150E6 MODIFIED BY--BOB W--(BOB WOLFF)E@ FURTHER MODIFIED BY (PAUL H!) PAUL S. HIGHLAND$FJ WHO CARES ABOUT VERSION 2.0----- THIS ONE IS SO MUCH BETTER!AFT15:4,(996):0,(997)F^""L3$L4$">>> CHART MAKER V1.1 <<< "L4$L4$Fh" PROGRAM FOR NUMBER REPRESENTATION "Fr"USING GRAPHICS " G|"BY SVEN ANGERER "L4$L4$TG"MODIFIED BY BOB WOLFF FOR THE C128 "G"QLINK ID.: BOB W "L4$G"FURTHER IMPROVEMENTS BY "G"PAUL S. HIGHLAND ")H"GENIE ID.: PAULBUNYAN "L4$L3$: 49H""L3$L4$oH" PROGRAM CONTROL MENU "L4$L3$H""L3$L4$L4$H" 1. GO TO GRAPHIC MENU "L4$H" 2. ADJUST SCREEN COLORS "L4$I" 3. COPY THIS PROGRAM TO A NEW DISK "L4$MI" 4. GO TO SCREEN FILE MENU "L4$I" 5. EXIT THIS PROGRAM TO BASIC "L4$L4$L3$:I530: I 3060,3180,3280,2570,4050,520ID(235):,4,D,"PLEASE CHOOSE ONE >>> "I E$:I("123456",E$)J&,27,D,E$: 1: I0540: 9J0G%1:I360MC: PIE GRAPHgJ:1,1:4,(996):0,(997):1,160,110,80,40JD1,160,130,80,40,90,270JN1,80,110 80,130JX1,240,110 240,130JbS0:W10Jl D1A:F(D)((X(D)).5):Kv D1A:SSF(D):W1((SI)180)#KW3(((F(D)2)I)180)VK1,160,110,80,40,SI,SI1: 1,1,1 160,110sK(SI)270(SI)90910KJ115:K67KA10J120KX(D)0740KMC(X(D))75740KD$((X(D)),2,4)L1,(140((W1W3)(2))(J2))82,(115((W1W3)(2))K)8,D$L2LW10:W20:W30:S0ILW10:W20:W30:S0^L  D1A:SSF(D)L*W2((SI)180):W3(((F(D)2)I)180)L4X(D)MAXX(D)X(D1)850L>X(D)MAX1,160((W2W3)2)20,110((W2W3)2)20LH:940LR880"M\"";:208,0: Z$:I(Z$(G%),Z$)1HMf I 860,1080,2880,1980,3060,860gMp1,0,0,T$:1,1,24,H$(G%),1Mz(M$,1)"Y"1,0,2,"VERAGE ="(MW):1,0,3,"OTAL ="(MB)MMD116080(W12):D211040(W12):D3D220M1,D1,D2 D1,D3NNI360MC:S0:XL160:YL110[N D1 A:SSF(D): X(D)MA X(D)X(D1) DA1:1070nN X(D)MA N(SI90 (SF(D))I90)(SI265(SF(D))I265)1060NW2SI180:W3IF(D)360:W4I(SF(D))180-O SI270(SF(D))I90 XL16080((W2W3)2):YL11540((W2W3)2)qO SI93(SF(D))I90 XL16180(W22):YL11540(W22)O SI270(SF(D))I265 XL15980(W42):YL11540(W42) P SI270(SF(D))I90 XL16080((W2W3)2):YL11540((W2W3)2)P1,XL,YLP$&P.:GP8G%2:Y0:Z0:C0: BAR GRAPHaPB I1 A:A(I)X(I):PL I1 A: (A(I))Y Y(A(I))PVP`GH(Y)100PjMCMB A10 C50:GH2GHPt I1A:A(I)A(I)GH:P~1,1:4,(996):0,(997)Q A10 1580(Q1,40,160C 26A50,160CLQ1,26A45,158C 26A50,160CpQ1,26A45,162C 26A50,160CQ1,40,160 40,50Q1,42,55 40,50Q1,38,55 40,50QQ0QF140(4C5)60(.2C20)Q1,38,F 41,F:QQ20R1,0,(F6)8,(Q)R:1,1,1558,(37)6RD1 A:H140D26VR  A(D)0V110: V110A(D)lRMCMBV160A(D)R1,H118,V,H11814,V(A(D))R(1,H118,V H112,V6R21,H14,160A(D)C H12,154A(D)CR<1,H14,160C H12,154C SF1,H12,V6 H112,V61SP1,H12,154A(D)C H12,154CHSZX(D)0 1,H1,108aSdX(D)0 1,H13,V1gSnSxT1::TT2:B(T)(X(T).5)SB(T1)(X(T1).5)SX(T)01440SP105A(T)(A(T))(A(T))10SX(T1)01460 TQ105A(T1)(A(T1))(A(T1))10#TMBMCP165:Q174)T::TX(T)01500iT1,((40T26)23)81,P81,((B(T)),2,4)xT TA TX(T1)01530T1,((40(T1)26)23)81,Q81,((B(T1)),2,4)T T1A T:880T IF A>10 THEN1580U"";:208,0: Z$:I(Z$(G%),Z$)1=U" I 1560,2880,1980,3060,560gU,1,40,150 40,40:1,315,150 315,40U61,40,150 315,150:1,38,45 40,40:1,42,45 40,40U@1,313,45 315,40:1,317,45 315,40:Q0VJF1305020:1,38,F 41,F:1,314,F 317,F VTQQ203V^1,0,(F6)8,(Q):1,1,1458,(37)9VhVVr D1 A:A(D)(A(D)):V| (A2)A2 B((A2))1: B(A2)V DB1A:H250(DB)25V1,H216,156A(D),H21612,156V0,H215,150 H25,150W1,H216,156A(D) H210,150A(D)&W1,H24,156A(D) H22,150A(D)AW1,H24,156 H22,150aW1,H22,150 H22,150A(D)W1,H210,150A(D) H22,150A(D)W0,H23,150 H21,150WA(D)01850W(YA(D))751850WX(D)01850W1,H215,157A(D)X1,H29,155A(D)X1,H23,1546X1,(H220)8,5,((X(D)),2,4)GX&A(D)01910]X0(YA(D))751910cX:{XD D1 B:H350D25XN1,H326,178A(D),H32612,178XX1,H326,178A(D) H320,172A(D)Xb1,H314,178A(D) H38,172A(D)Yl1,H314,178 H38,172'Yv1,H38,172 H38,172A(D)MY1,H320,172A(D) H38,172A(D)sY1,(H335)8,1818,((X(D)),2,4)yYY880:"";:208,0: Z$:I(Z$(G%),Z$)1Y I 1950,2880,1980,3060,560Y LINE GRAPHYG%3:Y0 Z I1 A: (X(I))Y Y(X(I))Z:GHY907Z1,1:4,(996):0,(997)PZMBMCC55:GHGH2kZ D1A:C(D)X(D)GH:Z1,50,150 50,50Z I142548:1,49,I 51,I:Z 1,48,55 50,50:1,52,55 50,50Z I6024010:1,I,149C I,151C:[ 1,50,150C 250,150CE[*1,245,148C 250,150C:1,245,152C 250,150Cc[4I2010020:MBMC2140k[>Z0[HI1355520:ZZ20:1,1,I8,(Z)::1,3,1508,"%"[R2160[\Z120[f I140459:ZZ20:1,1,I8,(Z)::1,3,1558,"%"[pD1A16\z 1,(50D10)10,150C(D)C (50D10),150C(D1)C<\Y\D1:MCMBLL2::LL3p\:DD2: DA \1,(27D10)8,20,((X(D)),2,4)\X(D)0 2250\1,(27(D1)10)8,1728,((X(D1)),2,4)\ D1A \:880]"";:208,0: Z$:I(Z$(G%),Z$)1;] I 2260,1080,2880,3060,560o]" GRAPHIC INFORMATION MENU "]" TITLE FOR THIS TABLE";T$:T$(T$,13): T$""2290]MW0:MB0:TMA1038:" AVERAGE AND TOTAL (Y/N)? ";^ M$:D("NY",M$): D0 2310: M$""F^ " NUMBER OF VALUES [2-20] ";A$:A(A$)v^ A2A20" MAXIMUM 20 VALUES":2320^$ D1A:X(D)100X(D):X(D)(X(D)):X(D)X(D)100^. "VALUE ##";D;^8 X(D):_B " VALUE TABLE "_L " "T$""I_V D1A2:X(D)100X(D):X(D)(X(D)):X(D)X(D)100_` X(D1)100X(D1):X(D1)(X(D1)):X(D1)X(D1)100_j " VALUE ##";D;:"="((X(D)),7)21);_t "VALUE ##";D1;:"="((X(D1)),7)_~ ` " ARE THESE VALUES ALL CORRECT? ";B` W$:D("NY",W$): D0 2450: W$: D1 2340a` D1A: X(D)MA MAX(D)w` : M$"Y" 2480` 4:` MB0:MC0` D1A:MBMBX(D):MCMC(X(D)):` MWMBA:MW(MW1000)1000` MB(MB1000)1000a MC(MC1000)1000!a " AVERAGE ="MW@a " TOTAL ="MBaa " MAXIMUM VALUE ="MA:a ""L3$L4$" SCREEN FILE MENU "L4$L3$a ""L3$L4$" 1. DISK DIRECTORY "L4$b " 2. LOAD A SCREEN "L4$Bb( " 3. SCRATCH A SCREEN "L4$ub2 " 4. RENAME A SCREEN "L4$b< " 5. GRAPHIC MENU "L4$bF " 6. PROGRAM CONTROL MENU "L4$L3$: cP 530: I 2650,2690,2760,2810,3060,440IcZ ""L3$L4$" DISK DIRECTORY "L4$cd " WILL SHOW SCREEN FILES ONLY "L4$L3$:cn 2960:2930cx DS$:"PRESS ANY KEY";: Z$:2570d 2750:""L3$L4$" LOAD A GRAPHIC SCREEN "L4$L3$d :2960:29308d 0:2940: GT$: G%4 2570qd T$"":"NAME OF FILE TO LOAD (OMIT "Q$"+"GT$" "Q$")"d T$:T$(T$,13): T$"" 2570d 1:"+"GT$" "T$,U(SU),B0,P7168:,12,24," =ENU =AVE ",1e "";:208,0: Z$:I("MS",Z$)1: I 2740,2710,2880Ze 2750:""L3$L4$" SCRATCH A SCREEN FILE "L4$L3$e :2960:2930:2940: GT$: I4 2570e T$"":"NAME OF FILE TO SCRATCH (OMIT "Q$"+"GT$" "Q$")"e T$:T$(T$,13): T$"" 2570f "+"GT$" "T$,U(SU):2680Jf 2750:""L3$L4$" RENAME A SCREEN FILE "L4$L3$uf :2960:2930:2940: GT$: I4 2570f T1$"":"OLD FILE NAME (OMIT "Q$"+"GT$" "Q$")"f T1$:T1$(T1$,13): T1$"" 2570g" T$"":"NEW FILE NAME (OMIT "Q$"+"GT$" "Q$")"$g, T$:T$(T$,13): T$"" 2570Zg6 "+"GT$" "T1$,U(SU)"+"GT$" "T$,U(SU):2680g@ 2750:1,1,24," SAVE SCREEN ON DEVICE 8 OR 9? "gJ "";: Z$:DU((Z$)): DU8 DU9 2890gT 1,1,24," "3h^ "+"("PBL",G%,1)" 1+T$,U(DU),B0,P7168 TO P16383Rhh 4050: G% 850,1550,1950ghr "+? *",U(SU):h| "PIE, BLOCK, LINE OR QUIT? ";h GT$:G%("PBLQ",GT$): G%0 2950: h " SOURCE DEVICE [8/9]? "; i Z$:SU((Z$)): SU8 SU9 2970i SU::i "DESTINATION DEVICE [8/9]? ";di Z$:DU((Z$)): DU8 DU9 3000oi DU:vi 1i Z$:I("BCLMP",Z$)1: IE1 3030i MC0 440i I 3030,1080,3030,1980,3060,560i 0:4,(996):0,(997):""L3$3j " GRAPHIC REPRESENTATION MENU "L3$L4$fj " 1. PIE GRAPH "L4$j " 2. BLOCK (BAR) GRAPH "L4$j " 3. LINE GRAPH "L4$j& " 4. SHOW LAST GRAPH "L4$2k0 " 5. SCREEN FILE MENU "L4$mk: " 6. PROGRAM CONTROL MENU "L4$L4$L3$:kD 530: I0 I4 2280kN G%I: G% 560,1080,1980,3020,2570,440kX X1:0,X:4,Xkl ""L3$L3$L4$lv " C128WEST DISK OF THE MONTH CLUB "L4$Gl " SCREEN COLOR CONTROL "L4$L3$L3$sl "PRESS 9 FOR BORDER COLOR"l "PRESS 0 FOR SCREEN COLOR"l "PRESS RETURN WHEN FINISHED":X(996):Y(997) m : X$: X$"9" X(X15)1:996,X:4,X.m X$"0" Y(Y15)1:997,Y:0,YSm Y(5) Y(Y15)1:997,Y:0,Yim X$(13):440m ""L3$L4$" PROGRAM COPY SECTION "L4$L3$""m 2990m "FORMAT A DISK IN DEVICE"DU"[Y/N]? ";m FM$:I("NY",FM$)1n I 3310,3390,3330\n FM$:"INSERT DISK TO BE FORMATTED":"IN DISK DRIVE"DU"- THEN"n "PRESS RETURN WHEN READY"n FF$n "*** FORMATTING DISK ***"n* (F$),ICM,U(DU)n4 "":3420n> "USE A FORMATTED DISK"oH "PLEASE PRESS RETURN WHEN READY""oR FF$Co\ "SAVING CHART MAKER C128"Sof (F$),U(DU)op "MAKE AUTO-BOOT DISK IN DEVICE"DU"[Y/N]? ";oz FM$:I("NY",FM$)1o I 3450,3470,3480o o " *** AUTO BOOT CREATOR ***"p BY FRED BOWEN & TERRY RYAN2p 15,DU,15,"IJ": NU$(0)ep : DS "*** DISK ERROR: ";DS$: E1: 3920up 8,DU,8,"#"p 15,"U1:8 0 18 0":15,"B-P";8;5p : #8,BA$p 15,"U1:8 0 1 0"p : I024: #8,A$: BL$BL$((A$)): q ((BA$)1)0 q : (BL$,3)"CBM" Fq: "*** ALREADY A BOOT DISK: ";Vq: I8:qq: A$(BL$,I,1)q$: A$;:II1q.: A$NU$q8: qB: : qL: "*** BOOT SECTOR USED BY ANOTHER PROGRAM ***"rV: .r`: " CONTINUE (Y/N) N";A$Lrj: A$"Y" E0: 3920Zrt: BA 1ar~prT$"BASIC"r T$"BASIC" RM$"RUN": RM$"BOOT"r" REMOVE THE WRITE PROTECT r" TAB FROM THE DISK AND PUT "s" YOUR DISK INTO DRIVE 0 OF ")s" UNIT 8. BE VERY CAREFUL! "Ms" THIS PROGRAM WILL DESTROY "qs" DATA IN TRACK 1 SECTOR 0. "s" PRESS RETURN TO CONTINUE "sA$: (A$)13 E1:3920sAA(F$)("B00")15sALAA 255:AHAA256s15,"B-P 8 0"$t 8,"CBM";NU$;NU$;NU$;NU$;F$;NU$;NU$;Ft8,(162);(AL);(160);(AH);jt8,(76);(("A5"));(("AF"));t(8,RM$;(34);F$;NU$t215,"U2:8 0 1 0"t< BA0 15,"B-A 0 1 0"tFA$DS$tP8:15tZ E "*** ABORTED ***": ud4,(1021):0,(1022),un "*** DONE ***"aux""u" THIS COPY WILL LOAD AND RUN ON RESET "u""u"LOAD AND RUN":GG0$v""3vT1100:jv"LOAD AND RUN":GGGG1vT1200::GG15"":"":v4000v"";:4,(1021):0,(1022):5,(1023):