Casio FP-200 - Page 102

rPLOTTER-PRINTER GRAPHIC TOOL
1610 SUM=O:FOR I=XS TO XE:IF RI=l THEN K=FL<FO,RS,
I) ELSE K=FLCFO,I,IS>
1620 SUM=SUM+K:NEXT I
1630 FOR I=XS TO XE:IF RI=l THEN K=FL(FO,RS,IJ ELS
E l<==FL ( FO, I , IS)
1640 H(IJ=K/SUM*lOO:NEXT I
1650 RETURN
1700 '======== Initialize PRINTER
1 71 <) LF'F: I NT CHR$ ( 28 > ; CHR$ < 37) : LF'R I NT "YO" : LF'R I NT "
Z2,6":LF'RINT "QO":LF'RINT "82":u=·r-nNT "LO"
1720 LF'RINT "S2"·: LPRINT "JO": LF'RINT "P"; T$: LF'RINT
'
1
S l 11
1 73(> RETUF:N
1800 -------- Frames for bar.jaggied
181.0 LPRINT "fJO, -·10": LF'F:INT "Dl.O, O, 10, -·80, 90, -80"
1820 MAX=-1E99:MIN=1E99
1830 FOR I=XS TO XE:IF RI=l. THEN K=FLCFO,RS,I> ELS
E l<=r-·L_ CFO, I , E=»
1840 IF MAX<K THEN MAX=K
1850 IF MIN>K THEN MIN=K
1860 NEXT l:IF MIN>O THEN MIN=O
1870 S=80/(MAX-MIN):Z$=STR$CMAXJ:IF LEN(ZS)>4 THEN
LF'RINT "SO": SC=l. 2 ELSE SC==2. ,l
1880 FOR I=MAX TO MIN STEP -(MAX-MIN)/10:ZS=STRS(I
>:X=9-SC*LENCZS):IF X<O THEN X=O:ZS=LEFT$(Z$,10/SC>
1890 Y=S*(I-MIN)-80:GOSUB 1950
1900 LF'RINT "M";X;",";Y:LF'RINT "P":Z$:IF I==MIN THE
-N 1910 ELSE LF'F:INT "Ll":LF'RINT "DlO.";Y;",90,";Y:LF'
RINT "LO"
1910 NEXT I:LPF.:INT "Sl"
1 920 RETUF?t,/
1950
1960 IF ABS(Y)<0.1 THEN Y=O
l. 970 RETUF:N
2000 '========== Setting valiables
2010 MLS="":FOfi I=l TO 40:ML$=M1_$+"-":NEXT I:Ml$="
** graph **":SE$(1)=="Fie qrc:,ph"
2020 RESTORE 2030:FOR 1=2 TO 4:READ SE$CI):NEXT I:
RETURN ·
2030 DATA Band graph,Bar graph,Jagged graph
: 0Ef3UGJ
The plotter-printer is put into graphic mode by LPRlNT CHR$(28); CHR${37)
in line 1710. It remains in that mode thereafter.
106