Casio FP-200 - Page 84

rFREQUENCY DISTRIBUTION TABLE---------------------
7. Terminating the program
The program now asks whether or not the same input data is to be processed using a
different number of classes. If you wish to do so, press the Y key. If not, press the
N key.
After the Y key, has been pressed, the program returns to step 5 (outputting data).
When the N key is pressed, the program is terminated. To process new data, re-execute
the program.
This program does
not contain a routine to display and print input data. Since input
data is stored in the array variable IN, the entire data can be output on a plotter by
executing the LIST 2 program in a separate program area (execute the PROG command).
88
3791 Bytes
LIST 1
100 CLEAR 1024: OF'TION BASE 1: DIM II\J ( 100) .i.DS ( 10)
110 T$="** FREQUENCY DISTRitilJTION *-l("
120 ML$="":FOR I::::1 TO 37:MLf,:..-=ML$+"-":NEXT I:E!f;:::::CH
R$(27)
130
140 CLS:LOCATE 0,2:PRINT T$:FOR 1=0 TO 800:NCXT
145 CLS:PF~INT"Fr·eqw?ncy distribut·--iun t.J.lJle i.s c:r·
eated from input data."
148 F'RINT"Spacify number of clc~~;st:>~,. Dc,ta can b
e saved to cassette tape."
149 PRINT"<< Hit any key>>";
1512l IF INKEY$::-.;:""THEN 1512)
200 ·========== Input data
210 CLS:F'RINT T$:F'RINT"Method of daLI i11put";
220 F'R I¼T" < I:'. >--- kE.•ybOcff"d": r:•R I NT",: T tc.,pP": F'
RINT"select f( or· T ";
230 Z$==lNf:::EY$: IFZ1;=="f::" Of~ Z!f;::::"k" THEI\J 300 EL.SE IF.
Z$=="T" OR l$=="t" THEN 400 ELSE :~30
3(2HZl • ==========:== Input f ram kPyboarc1
310 CLS:F'RINT T$
320 INF'UT"Title :",A$:F'Ril'-lT:C:::cQl
330 Z$=STR$ ( IN (C+ 1 l l: II\IF'UT "No. "+STR<fi (C+l) +"-·-··>",
z1;: IFZ$="E"THEN 500
340 IF Z$==" -" THEN JT C< 1 Tl·ff:N 33(7.) ELSE C
0
=C-- l: GOT
0330
350 C=C+1: INCCl=VALCZ$): IF C<100 THEN 330 ELSE 50
0
400 '============ Input from tap~