10 RECORD A$
15 DIM N(6) 
20 RECORD X(128)
30 PRINT "IS SCRATCH TAPE MOUNTED ON D4"; 
40 LINPUT A$
50 IF A$<>"YES" THEN 30 
60 OPEN 4 
63 M4=1\M8=0
65 PRINT "ENTER NAME OF INPUT FILE";
70 LINPUT F$
80 OPEN 8,F$
85 PRINT "ENTER TOTAL NO. OF ITEMS ON SHEET"; 
90 INPUT N1 
95 PRINT "ENTER NO. OF ITEMS SKIPPED AT TOP OF SHEET";
100 INPUT N2 
105 PRINT "ENTER NO. OF ITEMS SKIPPED AT BOTTOM OF SHEET"; 
110 INPUT N3 
115 PRINT "IS DATA IN FORM 'A' OR FORM 'B'"; 
120 LINPUT Z$
125 IF Z$="A" THEN 140 
130 IF Z$="B" THEN 140 
135 GO TO 115
140 C=7
145 K=N1+1 
150 X1=N1-N2-N3
155 X2=X1/2
160 GO SUB 500 
163 IF E=1 THEN 250
165 IF N(C)=9 THEN 220 
170 K=K-1
175 IF K>N1-N3 THEN 160
180 IF K<=N2 THEN 160
185 IF INT(K/2)=K/2 THEN 205   
190 X(X2)=N(C) 
195 X2=X2-1
200 GO TO 215
205 X(X1)=N(C) 
210 X1=X1-1
215 GO TO 160
220 PUT 4,20,M4
223 PRINT "RECORD";M4-1
225 GO TO 145
250 X(1)=N1-N2-N3
255 X(2)=M4-1
260 M4=0 
265 PUT 4,20,M4
270 STOP 
500 IF C<6 THEN 690
505 GET 8,10,M8
510 IF A$="EOF" THEN 700 
515 CHANGE A$TO N
518 C=1
520 IF Z$="B" THEN 610 
525 FOR I=1 TO 6 
530 IF N(I)=64 THEN 565
535 IF N(I)=65 THEN 570
540 IF N(I)=67 THEN 575
545 IF N(I)= 71 THEN 580 
550 IF N(I)=79 THEN 585
555 IF N(I)=0 THEN 590 
558 IF N(I)=76 THEN 593
560 N(I)=0\GO TO 600 
565 N(I)=5\GO TO 600 
570 N(I)=4\GO TO 600 
575 N(I)=3\GO TO 600 
580 N(I)=2\GO TO 600 
585 N(I)=1\GO TO 600 
590 N(I)=0\GO TO 600 
593 N(I)=9 
600 NEXT I 
605 RETURN 
610 FOR I=1 TO 6 
615 IF N(I)=64 THEN 650
620 IF N(I)=65 THEN 655
625 IF N(I)=67 THEN 660
630 IF N(I)= 71 THEN 665 
635 IF N(I)= 79 THEN 670 
640 IF N(I)=0 THEN 675 
643 IF N(I)=76 THEN 678
645 N(I)=0\GO TO 680 
650 N(I)=0\GOTO 680
655 N(I)=5\GO TO 680 
660 N(I)=4\GO TO 680 
665 N(I)=3\GO TO 680 
670 N(I)=2\GO TO 680 
675 N(I)=1\GO TO 680 
678 N(I)=9 
680 NEXT I 
685 RETURN 
690 C=C+1
695 RETURN 
700 E=1
705 RETURN 
800 END