image of READY prompt

Wang2200.org

Listing of file='ACPA110D' on disk='vmedia/701-2652C.wvd.zip'

# Sector 400, program filename = 'ACPA110D'
0010 REM ACPA110D, 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 DIM K0$8,K$1,K3$45,K4$5,Q5
   : GOTO 4000
4000 SELECT @PARTS0$
4030 %##,###,###.##-
4036 K$=K1$
   : PRINT HEX(03);TAB(24);"DISTRIBUTION REPORT"
   : GOSUB '66(9,0,1)
   : L=60
   : GOSUB '90
   : SELECT PRINT 005(80)
4570 J=MOD(J,50)+1
   : IF J=1THEN DATA LOAD DC #4,K6$()
   : IF END THEN K6$()=ALL(FF)
   : SELECT PRINT 005(80)
   : H0$=HEX(FF)
   : H1$="AP"
   : IF STR(K6$(J),1,1)=HEX(FF)THEN 4720
   : Q7$="Error in Journal Entries File"
   : DATA LOAD DA T#1,(STR(K6$(J),,2))M$()
   : ERRORGOTO 5150
4690 I=VAL(STR(K6$(J),4))
   : IF STR(M$(I),,1)<>HEX(FF)THEN $UNPACK(F=L3$)M$(I)TO H2,H0$,H1$,H,H3$,H4$,
     H5$,H1
   : ERRORGOTO 5150
4720 IF K0$=" "THEN GOSUB 7230
   : IF H1$<>"AP"THEN 4570
   : IF K$="S"THEN 4850
   : IF K4$=H4$AND K0$=H0$THEN 4850
   : GOSUB '90
   : PRINT TAB(82);"VENDOR TOTAL";TAB(97);
   : PRINTUSING 4030,K0;
   : PRINT "*"
   : PRINT HEX(0A)
   : K0=0
   : L=L+2
4850 IF K0$=H0$THEN 4970
   : GOSUB '90
   : IF K$="S"THEN PRINT K3$;TAB(43);
   : ELSE PRINT TAB(81);"ACCOUNT TOTAL";TAB(97);
   : PRINTUSING 4030,K4;
   : IF K$="D"THEN PRINT "**"
   : ELSE PRINT
   : L=L+2
   : IF K$="S"THEN L=L-1
   : ELSE PRINT HEX(0A)
   : K4=0
   : IF H0$=HEX(FF)THEN GOSUB '31
   : GOSUB 7230
4970 IF K$="S"THEN 5080
   : GOSUB '90
   : GOSUB '123(H)
   : IF Q6$="E"THEN U9$="INVALID"
   : PRINT K3$;TAB(41);H4$;TAB(51);H3$;TAB(75);H5$;TAB(86);U9$;TAB(97);
   : K3$=" "
   : PRINTUSING 4030,H1;
   : PRINT TAB(120);
   : PRINTUSING "#####";H2
   : L=L+1
5080 K0=K0+H1
   : K4=K4+H1
   : IF H1<0THEN K5=K5+H1
   : ELSE K6=K6+H1
   : K4$=H4$
   : GOTO 4570
5150 GOSUB '91
   : PRINT AT(1,0,80);Q7$;HEX(07)
   : PRINT AT(3,16,64);Q6$
   : GOSUB '254
5200 DEFFN'31
   : IF H0$<>HEX(FF)THEN 5315
   : SELECT PRINT <I0$>(132)
   : PRINT HEX(0A)
   : IF K$="D"THEN Q9=54
   : ELSE Q9=0
   : PRINT TAB(14+Q9);"TOTAL CREDITS DISTRIBUTED";TAB(43+Q9);
   : PRINTUSING 4030,K5
   : PRINT TAB(15+Q9);"TOTAL DEBITS DISTRIBUTED";TAB(43+Q9);
   : PRINTUSING 4030,K6
   : PRINT HEX(0C)
   : $OPEN #9
   : GOSUB '66(9,0,1)
   : F5$(3)="1"
   : GOSUB '66(9,0,0)
   : $CLOSE#9
5315 GOSUB '219(S$(4),4,S2," ",0)
   : GOSUB '219(S$(1),1,S2," ",0)
   : GOSUB '219(S$(9),9,S2," ",0)
   : GOSUB '239(1)
   : COM CLEAR I
   : LOAD TM$
7040 DEFFN'90
   : SELECT PRINT <I0$>(132)
   : Q6$=" "
   : KEYIN Q6$,7080,7080
7080 IF Q6$="P"THEN GOSUB '254
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : IF L<L0THEN RETURN
   : P1=P1+1
   : PRINT HEX(0C0A0D0E);TAB(3);N2$
   : PRINT TAB(48);"A/P DISTRIBUTION REPORT - ";K1$;TAB(109);D9$;TAB(121);"PAG
     E ";P1
   : PRINT HEX(0A)
   : PRINT "ACCOUNT";
   : IF K$="D"THEN PRINT TAB(42);"VENDOR";TAB(76);"INVOICE";TAB(87);"INVOICE";
     TAB(120);"TRANS"
   : ELSE PRINT
   : PRINT TAB(5);"NO.";TAB(10);"NAME";
7170 IF K$="D"THEN PRINT TAB(45);"NO";TAB(51);"NAME";TAB(79);"NO";TAB(89);"DAT
     E";TAB(101);"AMOUNT";TAB(123);"NO"
   : ELSE PRINT TAB(50);"AMOUNT"
   : PRINT HEX(0A)
   : L=7
   : RETURN
7230 GOSUB '232(1,0,H0$)
   : O5$="Not in chart of accounts file"
   : IF Q$=" "THEN GOSUB '75(8)
   : IF Q$="B"THEN O5$="Chart of accounts record busy"
   : K3$=H0$&"  "&O5$
   : K0$=H0$
   : K4$=H4$
   : RETURN
9999 DEFFN'29"Q$=";HEX(22);"ACPA110D";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)