Advertisement
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
Advertisement
