Directory of image this file is from
This file as a plain text file

10 RECORD A$
20 DIM N(6),T(128)
25 PRINT "ENTER THE TOTAL NUMBER OF QUESTIONS"; 
26 INPUT Q
27 J=128
28 PRINT "ENTER THE BEGINNING ROW NUMBER";
29 INPUT B
30 M=0
40 OPEN 8,"FI"
50 GET 8,10,M 
51 CHANGE A$ TO N 
55 IF A$="EOF" THEN 200 
60 K=1  
63 IF N(K)=76 THEN 99 
65 T(J)=N(K)
70 J=J-1
75 K=K+1
80 IF K>6 THEN 50 
85 GO TO 63 
99 H=0
100 FOR L=(B+1)*2+1 TO 127 STEP2 
105 GO SUB 400 
106 H=H+1
110 IF X$<>"X" THEN 120
112 PRINT H; 
120 NEXT L 
130 PRINT
135 H=50 
140 FOR L=(B+1)*2+2 TO 128 STEP 2
150 GO SUB 400 
155 H=H+1
160 IF X$<>"X" THEN 170  
162 PRINT H; 
170 NEXT L 
175 PRINT\PRINT"------------"
176 J=128\K=K+1
177 IF K>6 THEN 50 
178 GO TO 63 
180J=Q 
190 GO TO 75 
200 PRINT\PRINT "THATS ALL"
210 STOP 
400 IF T(L)=64 THEN 410
401 IF T(L)=65 THEN 411
402 IF T(L)=67 THEN 412
403 IF T(L)=71 THEN 413
404 IF T(L)=79 THEN 414
405 IF T(L)=0 THEN 415 
406 X$="X"\RETURN
410 X$="5"\RETURN
411 X$="4"\RETURN
412 X$="3"\RETURN
413 X$="2"\RETURN
414 X$="1"\RETURN
415 X$="X"\RETURN
600 END