Directory of image this file is from
This file as a plain text file
@J RECORD A$@@@O DIM N(6) @@@T RECORD X(128)@@@^ PRINT "IS SCRATCH TAPE MOUNTED ON D4"; @@@( LINPUT A$@@@2 IF A$<>"YES" THEN 30 @@@< OPEN 4 @@@? M4=1\M8=0@@AA PRINT "ENTER NAME OF INPUT FILE";@@AF LINPUT F$@@AP OPEN 8,F$@@AU PRINT "ENTER TOTAL NO. OF ITEMS ON SHEET"; @@AZ INPUT N1 @@A PRINT "ENTER NO. OF ITEMS SKIPPED AT TOP OF SHEET";@@A$ INPUT N2 @@A) PRINT "ENTER NO. OF ITEMS SKIPPED AT BOTTOM OF SHEET"; @@A. INPUT N3 @@A3 PRINT "IS DATA IN FORM 'A' OR FORM 'B'"; @@A8 LINPUT Z$@@A= IF Z$="A" THEN 140 @@BB IF Z$="B" THEN 140 @@BG GO TO 115@@BL C=7@@BQ K=N1+1 @@BV X1=N1-N2-N3@@B[ X2=X1/2@@B GO SUB 500 @@B IF E=1 THEN 250@@B% IF N(C)=9 THEN 220 @@B* K=K-1@@B/ IF K>N1-N3 THEN 160@@B4 IF K<=N2 THEN 160@@B9 IF INT(K/2)=K/2 THEN 205 @@B> X(X2)=N(C) @@CC X2=X2-1@@CH GO TO 215@@CM X(X1)=N(C) @@CR X1=X1-1@@CW GO TO 160@@C\ PUT 4,20,M4@@C PRINT "RECORD";M4-1@@C! GO TO 145@@C: X(1)=N1-N2-N3@@C? X(2)=M4-1@@DD M4=0 @@DI PUT 4,20,M4@@DN STOP @@G4 IF C<6 THEN 690@@G9 GET 8,10,M8@@G> IF A$="EOF" THEN 700 @@HC CHANGE A$TO N@@HF C=1@@HH IF Z$="B" THEN 610 @@HM FOR I=1 TO 6 @@HR IF N(I)=64 THEN 565@@HW IF N(I)=65 THEN 570@@H\ IF N(I)=67 THEN 575@@H! IF N(I)= 71 THEN 580 @@H& IF N(I)=79 THEN 585@@H+ IF N(I)=0 THEN 590 @@H. IF N(I)=76 THEN 593@@H0 N(I)=0\GO TO 600 @@H5 N(I)=5\GO TO 600 @@H: N(I)=4\GO TO 600 @@H? N(I)=3\GO TO 600 @@ID N(I)=2\GO TO 600 @@II N(I)=1\GO TO 600 @@IN N(I)=0\GO TO 600 @@IQ N(I)=9 @@IX NEXT I @@I] RETURN @@I" FOR I=1 TO 6 @@I' IF N(I)=64 THEN 650@@I, IF N(I)=65 THEN 655@@I1 IF N(I)=67 THEN 660@@I6 IF N(I)= 71 THEN 665 @@I; IF N(I)= 79 THEN 670 @@J@ IF N(I)=0 THEN 675 @@JC IF N(I)=76 THEN 678@@JE N(I)=0\GO TO 680 @@JJ N(I)=0\GOTO 680@@JO N(I)=5\GO TO 680 @@JT N(I)=4\GO TO 680 @@JY N(I)=3\GO TO 680 @@J^ N(I)=2\GO TO 680 @@J N(I)=1\GO TO 680 @@J& N(I)=9 @@J( NEXT I @@J- RETURN @@J2 C=C+1@@J7 RETURN @@J< E=1@@KA RETURN @@L END@@ ?@@ C=C+1@@J7 RETURN @@J< E=1@@KA RETURN @@L END@@ ?@@@ @@)F?+?$@@IX9F9F9FXN% IXHNYX'3!>IX@&YX/ &K7YN+>@M8A8AH YN%!%!S / %8?>%)IE%5@X%6: I[=H*SY[%9%/%98!I@>(-<$E@^@O@@;@Z1% IN