10 DIM CH1%(1000),CH2%(1000),F$(20)
20 PRINT:PRINT:PRINT
30 INPUT "TODAYS DATA (IE. 7/11/81) :";D$
40 INPUT "NAME OF SUBJECT :";N$
50 INPUT "ENTER FLIGHT LIMITS IN VOLTS :";FLT
60 FLT=FLT*204.7
70 WIDTH LPRINT 150
80 FCNT=FCNT+1
90 INPUT "NAME OF INPUT FILE :";I$
100 F$(FCNT)=I$
110 INPUT "ANOTHER FILE Y/N :";Y$
120 IF Y$="Y" THEN 80
130 CLOSE 1
140 FCNT1=FCNT1+1
150 IF FCNT1>FCNT THEN STOP
160 I$=F$(FCNT1)
170 PRINT I$
180 OPEN "I",#1,I$
190 LPRINT CHR$(12)
200 LPRINT:LPRINT:LPRINT:LPRINT
210 LPRINT " ","FILENAME";TAB(30);I$
220 LPRINT " ","SUBJECTS NAME";TAB(30);N$
230 LPRINT " ","DATE";TAB(30);D$
240 LPRINT:LPRINT:LPRINT:LPRINT
250 INPUT #1,C
260 LPRINT ,"NUMBER OF MSET LETTERS PRESENTED =";C
270 LPRINT
280 MN=0:N=0:TOTAL=0
290 FOR I=1 TO C
300 INPUT #1,TP,ISI,RT
310 NEXT I
320 PRINT
330 X%=0:Y=0
340 INPUT #1,C
350 X%=X%+1
360 INPUT #1,CH1%:GOSUB 780:IF ABS(CH1%)>2048 GOTO 360 
370 INPUT #1,CH2%:GOSUB 780:IF ABS(CH2%)>2048 GOTO 370
380 INPUT #1,CH3%:GOSUB 780:IF ABS(CH3%)>2048 GOTO 380
390 INPUT #1,CH4%:GOSUB 780:IF ABS(CH4%)>2048 GOTO 390
400 IF ABS(CH1%)>800 THEN CH1%=0
410 IF ABS(CH2%)>800 THEN CH2%=0
420 CH1%(X%)=CH1%:CH2%(X%)=CH2%
430 GOTO 350
440 LPRINT "  VOLTAGE RANGE","PERCENT WITHIN RANGE","PERCENT WITHIN RANGE"
450 LPRINT " ",,"  FOR FLIGHT ERROR","  FOR ALTITUDE ERROR"
460 LPRINT 
470 FLAG=1
480 COUNT=X%:RANGE=0:TIME=0
490 FLTERR=0:DELTA=0
500 RANGE=RANGE+25.588
510 VOLT=RANGE
520 FOR I%=1 TO COUNT
530 IF FLAG=1 THEN  RANGE =FLT:VOLT=FLT
540 IF ABS(CH2%(I%))< RANGE THEN DELTA=DELTA+1
550 IF ABS(CH1%(I%)) < RANGE THEN FLTERR=FLTERR+1
560 GOSUB 800
570 NEXT I%
580 LPRINT "+/- VOLTAGE RANGE=";(RANGE/25.588)/8,(FLTERR/COUNT)*100;" %",,
590 LPRINT (DELTA/COUNT)*100;" %"
600 LPRINT "0.25 SEC=";S1," 0.50 SEC=";S2," 0.75 SEC=";S3," 1.00 SEC=";S4
610 LPRINT "1.25 SEC=";S5," 1.50 SEC=";S6," 1.75 SEC=";S7," 2.00 SEC=";S8
620 LPRINT "2.25 SEC=";S9," 2.50 SEC=";S10," 2.75 SEC=";S11," 3.00 SEC=";S12
630 LPRINT "3.25 SEC=";S13," 3.50 SEC=";S14," 3.75 SEC=";S15," 4.00 SEC=";S16
640 LPRINT "TIMES > 4.00 SEC=";S17,"  TOTAL EXCERSIONS=";S1+S2+S3+S4+S5+S6+S7+S8+S9+S10+S11+S12+S13+S14+S15+S16+S17
650 LPRINT
660 S1=0:S2=0:S3=0:S4=0:S5=0:S6=0:S7=0:S8=0:S9=0
670 S10=0:S11=0:S12=0:S13=0:S14=0:S15=0:S16=0:S17=0
680 IF FLAG=1 THEN FLAG=0:GOTO 480
690 IF (FLTERR/COUNT)*100<98 THEN 490
700 PRINT:PRINT
710 CLOSE 1
720 GOTO 140
730 LPRINT CHR$(12)
740 LPRINT "SAMPLE","FLT ERROR","DELTA Z","LONG STICK","LAT STICK",
750 LPRINT "AIRCFT PITCH","ALTITUDE","AIR SPEED","FLT PATH ERROR"
760 LPRINT
770 RETURN
780 IF EOF(1) GOTO 440
790 RETURN
800 IF ABS(CH1%(I%))>VOLT THEN GOTO 1000
810 IF TIME=1 THEN S1=S1+1
820 IF TIME=2 THEN S2=S2+1
830 IF TIME=3 THEN S3=S3+1
840 IF TIME=4 THEN S4=S4+1
850 IF TIME=5 THEN S5=S5+1
860 IF TIME=6 THEN S6=S6+1
870 IF TIME=7 THEN S7=S7+1
880 IF TIME=8 THEN S8=S8+1
890 IF TIME=9 THEN S9=S9+1
900 IF TIME=10 THEN S10=S10+1
910 IF TIME=11 THEN S11=S11+1
920 IF TIME=12 THEN S12=S12+1
930 IF TIME=13 THEN S13=S13+1
940 IF TIME=14 THEN S14=S14+1
950 IF TIME=15 THEN S15=S15+1
960 IF TIME=16 THEN S16=S16+1
970 IF TIME>16 THEN S17=S17+1
980 TIME=0
990 GOTO 1010
1000 TIME=TIME+1
1010 RETURN
S15+1
960 IF TIME=16 THEN S16=S16+1
970 IF TIME>16 THEN S17=S17+1
980 TIME=0
990