Casio FP-200 - Page 44

rx-R CONTROL CHART----------------------
48
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