Listing of file='ACPA030A' on disk='vmedia/701-2652C.wvd.zip'
# Sector 63, program filename = 'ACPA030A' 0010 REM ACPA030A, RELEASE 1-0, (01/31/79) THIS PROGRAM IS A COPYRIGHT PRODU CT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBIT ED 0170 COM D6$1,D8,D9(4),E7,E8 : GOTO 4000 4000 SELECT @PARTS0$ : IF D6$<>" "THEN 4950 : GOSUB '66(9,0,1) : Q6$=" " : Q7$="Error in control file - invalid current fiscal period" : IF M(9)<1OR M(9)>12THEN 5280 : Q7$="Error in control file - invalid first fiscal month" : IF M(14)<1OR M(14)>12THEN 5280 4540 IF J0=7THEN GOSUB '254 : IF Q6$=HEX(1F)THEN GOSUB '31 : GOSUB '232(3,0,M4$) : Q6$=" " : Q7$="Invalid A/P trade account ("&M4$&") in control file" : IF Q$<>" "THEN 5280 : GOSUB '91 : IF J0=7THEN 4540 : GOSUB '75(6) : IF O1$<>"2"OR O3$="M"THEN 5280 : E7=MOD(M(9)+M(14)-2,12)+1 4660 M$()="JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY AUGU ST SEPTEMBEROCTOBER NOVEMBER DECEMBER" : MAT REDIM M$(12)9 : PRINT AT(6,16,64);"1 = ";M$(E7) : PRINT AT(7,16,64);"2 = ";M$(MOD(E7,12)+1) : GOSUB '100("1","2",1,0,"ENTER FISCAL PERIOD",1) : IF Q6$=HEX(1F)THEN GOSUB '31 : E8=Q9+6 4760 PRINT AT(0,60);M$(MOD(E7+Q9-2,12)+1) : MAT REDIM M$(4)62 : Q6$=" " : Q7$="Error in journal entries file - correct and restart" : DSKIP #E8,END : ERRORGOTO 5280 4820 $OPEN #9 : GOSUB '66(9,0,1) : M(3)=0 : F5$(2)=" " : IF E8=7THEN M3$,F5$(1),F5$(3)=" " : GOSUB '66(9,0,0) : $CLOSE#9 : IF E8=7THEN GOSUB '218(S$(11),11," ",0) : PRINT AT(3,0,80);"**LOADING NEXT MODULE**" : Q6=VAL(Q0$(6)) : STR(M5$,8)="B" : LOAD TM5$4000, 4950 PRINT AT(1,0,1200) : $OPEN #9 : GOSUB '66(9,0,1) : H0$=M4$ : M(1)=Q1 : K2,M(2)=M(2)-D9(1)+D9(2)-D9(4) : GOSUB '66(9,0,0) : GOSUB '66(9,Q1,1) : M(4)=M(4)+D9(3) : M(5)=M(5)+D9(4) : M(6)=M(6)+D9(1) : M(7)=M(7)+D9(2) : M(9)=K2 : GOSUB '66(9,Q1,0) : $CLOSE#9 : H=Q1 : H3$="OFFSETTING ENTRY" : H4$,H5$=" " : H1=0-D8 : GOSUB '63(E8) 5172 PRINT AT(4,0);"BATCH TOTAL = "; : PRINTUSING "###,###,###.##++",D8 : D8=0 : IF D6$<>"A"THEN 5330 : MAT D9=ZER : GOSUB '100("Y,N","Y YyNn",1,1,"ANY MORE BATCHES TO PROCESS (Y OR N)",2) : ON Q9GOTO 4660,5330 5280 GOSUB '91 : PRINT AT(1,0,80);Q7$ : PRINT AT(3,16,64);Q6$ : GOSUB '254 5330 DEFFN'31 : LOAD TM$ 9999 DEFFN'29"Q$= ";HEX(22);"ACPA030A";HEX(22);":SCRATCH T Q$:SAVE T$()Q$";HEX (0D)