FTN4,L,T PROGRAM ACOPY DIMENSION IB(256),PARAM(5) INTEGER PARAM,RDR,PUNCH CALL RMPAR(PARAM) IF(PARAM(1).EQ.0)20,10 10 RDR=PARAM(1) 50 IF(PARAM(2).EQ.0)40,30 30 PUNCH=PARAM(2) 80 CONTINUE IF(PARAM(3).EQ.0)60,70 60 IFLAG=0 C GENERATE LEADER CALL EXEC(3,1000B+PUNCH) C READ A RECORD 100 DO 105 K=1,10 CALL EXEC(1,100B+RDR,IB,1) IF(IB(1).EQ.0)105,110 105 CONTINUE LOG=0 GOTO 130 110 LOG=(IB(1)/256)+3 IF(LOG)120,130,130 120 LOG=LOG+256 130 CONTINUE C SWITCH ACCORDING TO FLAG GOTO(200,300,200,300)IFLAG+1 200 IF(LOG.EQ.0)100,210 210 IFLAG=IFLAG+1 GOTO 310 300 IF(LOG.EQ.0)700,310 310 CALL EXEC(1,100B+RDR,IB(2),LOG-1) ISUM=0 L=LOG-1 DO 400 J=2,L 400 ISUM=IB(J)+ISUM IF(IB(L+1)-ISUM)900,500,900 500 IF(IFLAG.EQ.3)100,600 600 CALL EXEC(2,PUNCH+100B,IB,LOG) GOTO 100 20 RDR=5 GOTO 50 40 PUNCH=4 GOTO 80 70 IFLAG=2 GOTO 100 700 IF(IFLAG.EQ.1)710,800 710 IFLAG=2 CALL EXEC(3,1000B+PUNCH) WRITE(1,720) 720 FORMAT("PREPARE FOR VERIFY"/"ENTER (:GO) TO CONTINUE"//) PAUSE GOTO 100 800 WRITE(1,810) 810 FORMAT("VERIFY COMPLETE"//) STOP 900 WRITE(1,910) 910 FORMAT("CHECKSUM ERROR"//) STOP END END$