Advertisement
rFREQUENCY DISTRIBUTION T A B L E - - - - - - - - - - - - - - - - - - -
7. Terminating the program
The program now asks whether or not the same input data is to be processed using
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 inpu
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).
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~
Advertisement
