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)