5  REM CHEM1, HP 36878A, 6/74
10  REM
20  FILES REC1
30  DIM R$[72],B$[72]
40  READ #1,1
50  IF TYP(1)=3 THEN 260
60  F=0
70  READ #1;R$,D,B$,D1,Z0,Z1,Z2,T,S3,A0,A1,A2
80  IF TYP(1)#1 THEN 110
90  F=1
100  READ #1;T2,S4
110  PRINT "NAME:          ";R$
120  PRINT "START TIME:    ";Z0;":";Z1;":";Z2
130  PRINT "END TIME:      ";A0;":";A1;":";A2
140  PRINT "TOPIC:         ";D
150  PRINT "ORDER:         ";B$
160  PRINT "LEVEL:         ";D1
170  PRINT "MAIN DRILL"
180  PRINT "# OF Q'S:      ";T
190  PRINT "% SCORE        ";S3
200  IF F=0 THEN 50
210  PRINT "RETEST"
220  PRINT "# OF Q'S:      ";T2
230  PRINT "% SCORE        ";S4
240  PRINT '10'10'10
250  GOTO 50
260  PRINT '10'10'10'10"SCORING IS FINISHED."
270  END 
