2 ! BUILDS P/R JOURNAL OBLIGATIONS FROM ASC'S OUTSTANDING BALANCES.
5 ! PROGRAM NAME:"ASCPRO" - BY JAC.
10 OPEN "DK1:PAYROL.ASC" AS FILE 1%:DIM #1%,C$(700%,20%)=64%,C%(0%)
15 OPEN "DK1:PAYROL.PRO" AS FILE 2%:DIM #2%,O$(700%)=64%,O%(0%)
19 N%=C%(0%):S,C,M%=0%
20 DEF FNZ$(A):IF ABS(A)<1E+6 THEN FNZ$=LEFT(NUM$(A)+SPACE$(8%-LEN(NUM$(A))),8%)
	:GOTO 24
21 A1=FIX(A/1E+6):A2=((A/1E+6)-A1)*1E+6:A3$=NUM$(A1):A4$=RIGHT(NUM$(A2),2%)
22 IF LEN(A4$)<7% THEN A4$="0"+A4$:GOTO 22
23 A3$=LEFT(A3$,INSTR(2%,A3$," ")-1%)+A4$:FNZ$=LEFT(A3$+SPACE$(8%-LEN(A3$)),8%)
24 FNEND
25 FOR K%=1% TO N%:N1%=VAL(MID(C$(K%,0%),2%,2%)):E$=MID(C$(K%,0%),44%,6%):
	C=C+VAL(MID(C$(K%,0%),56%,7%))
35 FOR I%=1% TO N1%:C=C+VAL(MID(C$(K%,I%),44%,8%))+VAL(MID(C$(K%,I%),30%,7%)):
	S=S+VAL(MID(C$(K%,I%),37%,7%))+VAL(MID(C$(K%,I%),30%,7%))
45 NEXT I%:C=C-S:GOTO 65 IF C=0%
60 M%=M%+1%:O$(M%)=MID(C$(K%,0%),20%,30%)+FNZ$(C)+MID(C$(K%,0%),50%,6%)+
	MID(C$(K%,0%),4%,16%)+"C   "
65 C,S=0%:NEXT K%:O%(0%)=M%:CLOSE 1%,2%:CHAIN "DT0:ARGPRO.BAS"
75 END