Advertisement
rx-R
CONTROL C H A R T - - - - - - - - - - - - - - - - - - - - - -
850 GOSUB 1700:LPRINT CHR$(28);CHR$(46>:LPRINT CH
R$ (27); "S0"
855 LPRINT L1$:LPRINT"
I
Group
I
I
I
I"
860
LPRINT "!number"; :FOR I=l TO N:LPRINT
"I
x";
I;"
"; :NEXT I:LPRINT
II
I
mean }:
I
R
I"
870 FOR I=1 TO K:LPRINT L2$:LPRINT USING
II
1######
";I;:FOR J=1 TO N:LPRINT USING FOM$;X<I,J>;:NEXT
J:
LPRINT USING FOM1$; XM<I> ;R<I>; :LPRINT "l":NEXT I
880 LPRINT L3$:LPRINT "l";TAB(N*9+2); "Total"; :LPR
INT USING FOM1$;XSUM;RSUM;:LPRINT
II
l":LPRINT L4$:LP
RINT CHR$ (27); "S1"
890 FOR I=1 TO 4:LPRINT:NEXT I
900 '
910 CLS:PRINT TIS
920 PRINT "Save data on tape
?";
930 Z$=INKEY$:IF Z$="Y" OR Z$:::"y" THEN GOSUB
1200
:END
940 IF Z$="N" OR Z$="n" THEN PRINT Z$:END ELSE
93
0
1000 '
1010 CLS:PRINT CHR$(14);TI$
1020 INPUT "Group size(2"'6):",N:IF N<2 OR N>6 THEN
1020
1030 PRINT"Number of group":INPUT"
(2"'40)
: ", K:
IF N<2 OR N)6 THEN H'J.30
1040 FOR I=l TO K:F'RINT:PRINT USING "Group number
: #"; I
1050 FOR J=l TO N:PRINT USING "Measred value##:";J
; : INPUT
II "
I
X ( I
I
J ) :
NEXT
J
1060 NEXT !:PRINT CHR$(14)
1070 RETURN
1100
1110 CLS:PRINT TI$
1120 PRINT "Input <x-RDATA> from tape. Connect the
cassette tape r·ecor·der· and pr·ess the CR key."
1130 IF INKEYS<>CHRS(l3) THEN 1130
1140
OPEN "CASCZl:
}:-RDATA"
FDR
INPUT AS
ttl
1150 INPUT #1,N,•<:PRINT "Group size : ";N:PRINT "Nu
mber
of
_group :";K
1160
FOR I=l TO K:FOR J=l TO N:INPUT #1,X<I,J):NEX
T JI I
11 70
1180
1200
CLOSE
#1
RETURN
Advertisement
