5 DIM N(5) 
10 RECORD A$
20 RECORD X(128)
30 OPEN 8,"IGI" 
40 OPEN 9,"IGI2"
50 M8=0\M9=0
55 J=1
60 I=1
70 GET 8,10,M8
80 CHANGE A$ TO N 
90 GOSUB 300
110 J=J+1
120 IF J=129 THEN 150
130 I=I+1
140 IF I<=6 THEN 90
142 IF M8>1560 THEN 200
145 GO TO 60 
150 PUT 9,20,M9
155 PRINT M9-1 
160 J=1
161 I=I+1
162 IF I<=6 THEN 165 
163 GET 8,10,M8
164 I=1
165 I=I+1
166 IF I<=6 THEN 90
167 GO TO 142
170 GO TO 130  
200 CLOSE 8
210 CLOSE 9
220 STOP 
300 IF N(I)=32 THEN 400
301 IF N(I)=64 THEN 401
302 IF N(I)=48 THEN 402
303 IF N(I)=40 THEN 403
304 IF N(I)=36 THEN 404
305 IF N(I)=34 THEN 405
306 IF N(I)=33 THEN 406
307 GO TO 407
400 X(J)=0\RETURN
401 X(J)=1\RETURN
402 X(J)=2\RETURN
403 X(J)=3\RETURN
404 X(J)=4\RETURN
405 X(J)=5\RETURN
406 X(J)=6\RETURN
407 X(J)=7\RETURN
1500 END