2 ! MOVES PAYROLL RECAP TO GENERAL LEDGER DISK 5 ! PROGRAM NAME:"MOVRCP" - BY JAC 10 OPEN "DK1:PAYROL. RCP" AS FILE 1%:DIM #1%,R$(1000%)=64%,R%(0%) 20 OPEN "RECAP" AS FILE 2%:DIM #2%,T$(1000%)=64%,T%(0%) 30 T%(0%)=R%(0%):N%=R%(0%) 35 T$(K%)=MID(R$(K%),27%,16%)+LEFT(R$(K%),26%)+RIGHT(R$(K%),43%) FOR K%=1% TO N% 40 CLOSE 1%:PRINT "REPLACE THE PAYROLL DISK ON DRIVE 1 WITH THE GENERAL"; 45 PRINT " LEDGER DISK!":INPUT "IS IT READY? Y OR N";X$:IF X$<>"Y" THEN 45 65 OPEN "DK1:GLFILE.EXP[2,4]" AS FILE 1% :DIM #1%,U1$(4000%)=64%,U%(0%) 75 M%=U%(0%)+1%:N%=N%+M%-1% 80 U1$(K%)=T$(K%-M%+1%) FOR K%=M% TO N% 85 T$(K%)=SPACE$(64%) FOR K%=1% TO N%-M%+1% 90 U%(0%)=N%:CLOSE 1%,2%:KILL "RECAP" 95 PRINT "PAYROLL RECAP HAS BEEN MOVED TO GENERAL LEDGER DISK!" 105 END