Casio FP-200 - Page 99

UTILITY.J
100 •
110 CLEAR 1024:0PTION BASE 1:DIM HC40),SE$(4)
120 GOSUB 2000
130
140
CLS:PRINT MIS:PRINT
150 PRINT "Graph is plotted using data in CETL
create data in CETL or hit key";
160 IF INl<EY$="" THEN 160
200 •======== Select data
210 CLS:PRINT MIS
220 INPUT "Title of graph:",T$
230 INPUT "CETL file no. ",FO:IF FO<O OR F0>9 THE
N 220
240 I NF·LJT "Number of record ",RO: IF RO< 1 THEN 240
250 INPUT "Number of item", IO: IF IO<l THEN 250
260 FOR I=l TO IO:INPUT "Item name"+STRS(I)+"==>"
,IMS<I):NEXT I
?oo·•-------- Select graph
310 CLS:PRINT MI$
320 FOR I=l TO 4:PRINT I;"J ";SES(I}:NEXT I
330 PRINT" 5 J data modify"
340 PRINT "select 1"'5==>";
350 SE=VAL(INKEYS>:IF SE=O OR SE>5 THEN 350
360
IF SE=5 THEN 200
400 •======== Select records,item
410 CLS:PRINT" ** ";SESCSE>;" **"
420 PRINT "Select record No. and item No."
430 PRINT "I 1 J !RECORD n-ITEM 2 J lITEM n-RECOR
D":PRINT
440 PRINT "select 1 OR 2==>";
450 RI=VALCINKEYS>:IF RI=O OR RI>2 THEN 450 ELSE
PRINT RI
460 ON RI GOTO 470,490
470 INPUT "Record No.",RS:IF RS<O OR RS>RO THEN 4
70
480 INF'UT "Range of Item n,m ", IS, IE: XS=IS: XE=IE
:IF XS<2 OR XS>IO OR XS>XE THEN 480 ELSE 550
490 INPUT "Item No. ", IS: IF IS<2 OR IS>IO THEN 49
0
s·oo INPUT "Range of recor-d", RS. F:E: XS=RS: XE=RE: IF
XS<O OR XS>RO OR XS>=XE THEN 500
103