2 ! MOVES MONTHLY G.L. DETAIL TO G.L. YEARLY SUMMARY DISK (GLYSUM)! 5 ! PROGRAM NAME: "MGLYSM" - BY JAC. 10 INPUT "*BE SURE*":PRINT "TO MOUNT THE MONTHLY G.L. DISK ON DRIVE 1 ":PRINT "AND THE YEARLY G.L. DISK (GLYSUM) ON DRIVE 2":INPUT "ARE THEY READY? - Y OR N?";A$:STOP IF A$<>"Y":W%=1%:X%=2% 15 INPUT "DO YOU WANT OBLIGATIONS MOVED TO THE YEARLY DISK? - Y OR N";A1$: GOTO 15 IF A1$<>"Y" AND A1$<>"N" 20 ON ERROR GOTO 1000:OPEN "DK1:GLFILE.BBF" FOR INPUT AS FILE W%: GET #W%:FIELD #W%,X% AS B$:V%=CVT$%(B$):OPEN "DK2:GLFILE.BBF" AS FILE X%:FIELD #X%,X% AS B$:LSET B$=CVT%$(V%):B%=W%:GOSUB 500 50 OPEN "DK1:ACCPAY.VBK[2,2]" AS FILE W%:B%=876%:GET #W%,RECORD B%: FIELD #W%,128% AS E$,X% AS V$:V%=SWAP%(CVT$%(V$)): OPEN "DK2:ACCPAY.VBK" AS FILE X%:FIELD #X%,X% AS V$: LSET V$=CVT%$(V%):B2%=W% 60 FOR K%=W% TO V%:B1%=K%/4%+W%:IF B1%<>B% THEN GET #W%,RECORD B1%: B%=B1% 70 O%=(K%-(B%-W%)*4%)*128%:FIELD #W%,O% AS E$,29% AS V$: B3%=K%/16%+W%:IF B3%<>B2% THEN PUT #X%:B2%=B3% 80 O2%=(K%-(B2%-W%)*16%)*32%:FIELD #X%,O2% AS E$,32% AS C$:LSET C$=V$: NEXT K%:PUT #X%:CLOSE W%,X% 90 OPEN "DK1:GLFILE.FND" AS FILE W%:OPEN "DK2:GLFILE.FND" AS FILE X%: FIELD #W%,512% AS D$:FIELD #X%,512% AS C$ 100 GET #W%:LSET C$=D$:PUT #X%:GOTO 100 110 CLOSE W%,X%:OPEN "DK1:GLFILE.BDT" AS FILE W%:OPEN "DK2:GLFILE.BDT" AS FILE X%:FIELD #W%,512% AS D$:FIELD #X%,512% AS C$ 120 GET #W%:LSET C$=D$:PUT #X%:GOTO 120 130 CLOSE W%,X%:OPEN "DK1:GLFILE.EXP" AS FILE W%:B%=501%:GET #W%,RECORD B%: FIELD #W%,64% AS E$,X% AS B$:V%=SWAP%(CVT$%(B$)):OPEN "DK2:GLFILE.EXP" AS FILE X%:IF A1$="Y" THEN FIELD #X%,X% AS B$:LSET B$=CVT%$(V%): GOSUB 500:GOTO 180 140 B2%=W%:N%=0%:FOR K%=W% TO V%:B1%=K%/8%+W%:IF B1%<>B% THEN GET #W%,RECORD B1% :B%=B1% 150 O%=(K%-(B%-W%)*8%)*64%:FIELD #W%,O%+53% AS E$,W% AS F$:GOTO 170 IF F$="P":FIELD #W%,O% AS E$,64% AS D$:N%=N%+W%:B3%=N%/8%+W%: IF B3%<>B2% THEN PUT #X%:B2%=B3% 160 O2%=(N%-(B2%-W%)*8%)*64%:FIELD #X%,O2% AS E$,64% AS C$:LSET C$=D$ 170 NEXT K%:PUT #X%:GET #X%,RECORD W%:FIELD #X%,X% AS B$:LSET B$=CVT%$(N%): PUT #X%,RECORD W%:CLOSE W%,X% 180 PRINT "TRANSFER COMPLETE":STOP 500 FOR K%=W% TO V%:B1%=K%/8%+W%:IF B1%<>B% THEN PUT #X%:GET #W%,RECORD B1%: B%=B1% 510 O%=(K%-(B%-W%)*8%)*64%:FIELD #W%,O% AS E$,64% AS D$:FIELD #X%,O% AS E$, 64% AS C$:LSET C$=D$:NEXT K%:PUT #X%:CLOSE W%,X%:RETURN 1000 RESUME 50 IF ERR=5%:IF ERR=11% THEN IF ERL=100% THEN RESUME 110 ELSE IF ERL=120% THEN RESUME 130 1010 ON ERROR GOTO 0 2000 END