Casio FP-200 - Page 13

------------------------BUSINESSJ
----- -- --- --- ------------ --- -- --------------------------------,
[b][]J~rrl
100 '
BASIC 2835 Bytes
CETL 917 Bytes
110 CLEAR 1024:0PTION BASE 1:I~12:J=13:K~5
120 DIM CN'fi(f'.:l ,F(3,K) ,FI<2,K) ,J<t>(I) ,~JS(I,K> ,MAX(J
> ,S$<J> .ss<J,K>
130 GOSUB 1.040
140 '
150 CLS: PRINT T!f;: PRINT " Indic:dtors Ci.\n be read
fn.1m or written to CETL.":PRINT" hit any key";
160 IF INf(EYt,:::"" THEN l.60
1 70 • ·---·-······-·······-····- Specify c:.:har· t
180 CLG: PR I I\IT T•f: PR HH "Up to five charts ec.u1 be
plotted. Specify number of charts,chart name,and- in
put method."
190 INPUT "Number of char·t : ",Ct-I: IF CH< 1 OR CH>5
THEN 190
212!0 FOR I=l TO CH:PRINT:F'RINT"Chart No.";I
210 INPUT "Chart na.me:",CN$(!)
220 PRINT "Performance figures =J":PRINT "Indicat
or":F'RINT_"=S"
230 INPUT" Select (J or S):",Z't.:IF Z$="J" THEN F
<1,I)=l ELSE IF Z$="S" THEN F(l,I)=0 ELSE 23Ql
240 IF F(l,I)=l THEN INPUT" Store to CETL ?:",Z$
:IF Z$=="Y" THEN F<2,I)::.:1 ELSE IF Z$="N" THEN F<2,I)
==12! ELSE 2412!
2512! IF F ( 1, I> =0 THEN PRINT "Input data": 11\IPUT "CE
TL=C or ~(EY=K :",Z$:IF Z$=
11
C" THEN FC2,I):::LELSE IF
Z$="f(" THEN F(2,I)=0 ELSE 250
260 IF F ( 2 ; I ) == 1 THEN I NF'UT
II
CETL f i 1 e No. (Z)"'9: " , Z 1
:INPUT" Item No.2"'6:",Z2:IF Z1<12l OR Z1>9 OR Z2<
2 OR Z2>6 THEN 260 ELSE FI<l,I>=Z1:FI<2,I)=Z2
270 NEXT I
280 '========== Input performance,indicator
290 FOR I=1 TO CH:CLS:PRINT CN$(l)
300 IF FC1,I)=0 THEN Z=13 ELSE Z=12
310 FOR J==1 TO Z
320 IF F(1,I)=1 THEN PRINT J$(J): INPUT
11
-->
11
,JS(J
,!):GOTO 340
330 PR I NT us I NG U 1 $; S$ ( J) ; : PR I NT " -- >
11
; : IF F ( 2, I )
= 1 THEN SS ( J , I ) =Fl_ (FI ( 1 , I ) , J , FI ( 2, I ) ) : PR I NT SS ( J , I )
ELSE INPUT
" " , SS ( J , I ) .
17