Directory of image this file is from
This file as a plain text file
@J RECORD A1$(42) @@@K Z1=42@@@O DIM N(6),T(6,1)@@@T RECORD X(128)@@@? M4=1\M8=0@@AA PRINT "ENTER NAME OF INPUT FILE";@@AF LINPUT F$@@AG PRINT "ENTER NAME OF OUTPUT DATA FILE";@@AH LINPUT F4$ @@AI OPEN 9,F4$ @@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'"; @@A5 RESTORE@@A6 FOR I=0 TO 6\READ T(I,0)\NEXT I@@A8 LINPUT Z$@@A= FOR I=0 TO 6\READ T(I,1)\NEXT I@@A? IF Z$="A" THEN 140 @@BA IF Z$<>"B" THEN 115@@BB FOR I=0 TO 6\READ T(I,1)\NEXT I@@BG GO TO 115@@BL T1=TIM(6)\T2=TIM(0)@@BN 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 GOTO 160 @@CM X(X1)=N(C) @@CR X1=X1-1@@CW GO TO 160@@C\ PUT 9,20,M4@@C PRINT "RECORD";M4-1;"CPU=";TIM(0)-T2;"SEC."@@C! GO TO 145@@C: X(1)=N1-N2-N3@@C? X(2)=M4-1@@DD M4=0 @@DI PUT 9,20,M4@@DJ PRINT "CPU TIME USED";TIM(0)-T2;"SECONDS"@@DK PRINT"ELAPSED TIME";TIM(6)-T1;"MINUTES"@@DN STOP @@G4 IF C<6 THEN 690@@G9 GOSUB 800@@G> IF A$="EOF" THEN 700 @@HC CHANGE A$ TO N @@HF C=1@@HH FOR I=1 TO 6 @@HR FOR J=0 TO 6 @@H\ IF N(I)=T(J,0) THEN 580@@H& NEXT J @@H0 N(I)=0 @@H: GOTO 590 @@ID N(I)=T(J,1)@@IN NEXT I @@IX RETURN @@J2 C=C+1@@J7 RETURN @@J< E=1@@KA RETURN @@L IF Z1=42 GO TO 850 @@L* Z1=Z1+1@@L4 A$=A1$(Z1) @@L> RETURN @@MR GET 8,10,M8@@M\ Z1=0 @@M& GO TO 820@@M+ DATA 0,64,65,67,71,79,76,0,5,4,3,2,1,9,1,0,5,4,3,2,9 @@M0 END@@ ?@@ ?@@@@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@@ ?@@L4 A$=A1$(Z1) @@L> RETURN @@MR GET 8,10,M8