2 ! MOVES INVOICES AND PINK CHECKS TO GLFILE.EXP AFTER MID-MONTH TRANSACTIONS. 3 ! ALSO MOVES PINK CHECKS TO DECTAPE. 5 ! PROGRAM NAME:"MOVBT1" - BY JAC 10 PRINT "MOUNT THE MONTHLY ACCPAY DECTAPE ON DRIVE 0." 15 INPUT "IS IT MOUNTED? - Y OR N";A$:IF A$<>"Y" THEN 10 20 OPEN "DK1:GLFILE.EXP[2,4]" AS FILE 1% 25 DIM #1%,U1$(4000%)=64%,U%(0%) 30 OPEN "DK1:ACCPAY.INV" AS FILE 2% 35 DIM #2%,I1$(600%)=128%,I%(0%) 40 O%=U%(0%):N%=I%(0%):I%(0%)=0% 45 FOR K%=1% TO N% 50 O%=O%+1%:U1$(O%)=MID(I1$(K%),38%,16%)+LEFT(I1$(K%),4%)+MID(I1$(K%),12%,16%)+ MID(I1$(K%),6%,6%)+MID(I1$(K%),54%,5%)+MID(I1$(K%),65%,5%)+"6E"+ MID(I1$(K%),29%,9%)+" ":NEXT K% 70 CLOSE 2%:OPEN "DK1:ACCPAY.PKC" AS FILE 2% 75 DIM #2%,H1$(500%)=64%,H%(0%):N%=H%(0%) 80 H%(0%)=0%:C1$="201020":C2$="201050":C3$="201040":C4$="201060":C5$=" " 85 OPEN "DT0:ACCPAY.PKC" FOR OUTPUT AS FILE 3% 90 IF N%<>0% THEN PRINT #3%,N% "," 95 FOR K%=1% TO N% 100 PRINT #3%,H1$(K%) ",":C$=MID(H1$(K%),48%,6%) 105 IF C$=C1$ OR C$=C2$ OR C$=C3$ OR C$=C4$ OR C$=C5$ THEN 125 110 O%=O%+1%:U1$(O%)=MID(H1$(K%),38%,16%)+LEFT(H1$(K%),4%)+MID(H1$(K%),12%,16%)+ MID(H1$(K%),6%,6%)+" "+MID(H1$(K%),54%,5%)+MID(H1$(K%),63%,1%)+ "E"+MID(H1$(K%),29%,9%)+" " 125 NEXT K% 130 CLOSE 2%,3%:OPEN "DK1:ACCPAY.GJ" AS FILE 2% 135 DIM #2%,G1$(50%)=128%,G%(0%):G%(0%)=0%:U%(0%)=O%:CLOSE 1%,2% 140 END