Listing of file='ACCT030C' on disk='vmedia/701-2607C.wvd.zip'
# Sector 301, program filename = 'ACCT030C' 0010 REM ACCT030C, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 DIM G6$1 : GOTO 4000 4000 SELECT @PARTS0$ : PRINT AT(6,0,);TAB(25);"* * R E V I E W M O D E * *" : PRINT "INVOICE NO.";TAB(19);"BALANCE";TAB(33);"INV. AMOUNT";TAB(51);"DISC /ALLOW";TAB(71);"PAYMENT" : PRINT AT(1,0);"** SCANNING FILE **" 4040 G7,G8,G9,H6=0 4060 IF J0=7THEN GOSUB '92 : T7$=STR(K1$)&ALL(00) : GOSUB '232(2,0,T7$) : IF Q$="N"THEN 4500 : GOSUB '91 : IF J0=7THEN 4060 : K7$=" " : GOTO 4620 4150 C9=C(Q) : IF C$(Q)>" "THEN G6$=C$(Q) : ON VAL(F$(Q))-47GOTO 4280,4360,4400,4450,4480 : H7=G7-G8-G9 : IF ABS(G7)+ABS(G8)+ABS(G9)>0THEN GOSUB 6050 : G7,G8,G9=0 : H7=A(Q)+A1(Q)+A2(Q)+C1(Q) : PRINT AT(8+H6,0,0);"SVC CHG"; : GOSUB 6070 : STR(K7$,Q0+1,4)=ALL(00) : GOTO 4500 4280 IF C(Q)>0THEN 4400 : G7,G8,G9=0 : H7=A(Q)+A1(Q)+A2(Q)+C1(Q) : PRINT AT(8+H6,0,0);"BAL FWD"; : GOSUB 6070 : GOTO 4500 4360 G8=G8+A1(Q) : G9=G9+A2(Q) : GOTO 4500 4400 G7=G7+A(Q) : G8=G8+A1(Q) : G9=G9+A2(Q) : GOTO 4500 4450 G7=G7-A(Q) : GOTO 4500 4480 G7=G7-A(Q) 4500 IF J0=7THEN GOSUB '92 : GOSUB '237(2,0) : J$(1)=" " : GOSUB '91 : IF J0=7THEN 4500 : IF J0<>1THEN 4620 : IF ABS(G7)+ABS(G8)+ABS(G9)=0THEN 4740 : H7=G7-G8-G9 : GOSUB 6050 : GOTO 4740 4620 IF J0>0THEN 4790 : GOSUB '51(3,Q) : IF K7$=" "THEN 4720 : IF STR(K7$,,Q0+4)=STR(O$(Q),,Q0+4)THEN 4150 : H7=0 : IF ABS(G7)+ABS(G8)+ABS(G9)=0THEN 4720 : H7=G7-G8-G9 : GOSUB 6050 : G7,G8,G9,H7=0 : G6$=" " 4720 K7$=STR(O$(Q),,Q0+4) : IF STR(C1$(Q),,Q0)=K1$THEN 4150 4740 J0=0 : PRINT AT(3,0,80);"** No more records for customer **" : GOSUB 6400 : GOTO 4040 4790 A6$="E" : STR(M5$,8)="A" : LOAD TM5$4000, 6020 %###,###.##- 6030 %####.##- 6040 %######.##- 6050 PRINT AT(8+H6,0,0); : PRINTUSING "######## ";C9; 6070 PRINT TAB(10);G6$;TAB(16); : PRINTUSING 6020,H7; : PRINT TAB(34); : PRINTUSING 6020,G7; : PRINT TAB(51); : PRINTUSING 6020,G8; : PRINT TAB(68); : PRINTUSING 6020,G9 : H6=H6+1 : IF H6<L9-1THEN RETURN : GOSUB 6400 : RETURN 6200 PRINT AT(6,0,);TAB(18);"* * E N T R Y M O D E * *" : PRINT "INV. NO.";TAB(12);"OLD BAL";TAB(26);"DISC";TAB(36);"ALLOW";TAB(47) ;"PAYMENT";TAB(60);"NEW BAL";TAB(72);"REMARK" : IF J1=1THEN RETURN : FOR I=1TO J1-1 : PRINT AT(7+I,0,0) : PRINTUSING "######## ";K(1,I); : PRINTUSING 6040,K(2,I); : PRINT TAB(22); : PRINTUSING 6030,K(3,I); : PRINT TAB(33); : PRINTUSING 6030,K(4,I); : PRINT TAB(44); 6330 PRINTUSING 6040,K(5,I); : PRINT TAB(57); : PRINTUSING 6040,K(6,I); : PRINT TAB(72);K$(I) : NEXT I : RETURN 6400 GOSUB '100("E,R","EeR ",1,1,"KEY RETURN TO RESUME (OR E=END REVIEW MODE) ",2) : IF Q6$<>"R"THEN 6470 : PRINT AT(1,0);"** Scanning file **" : PRINT AT(8,0,) : H6=0 : RETURN 6470 DEFFN'31 : GOSUB 6200 : A6$="B" : J1=J1-1 : STR(M5$,8)="B" : LOAD TM5$4000, 9998 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22); "GBS/MVP - Review A/R open items during cash receipts.";HEX(22);":SELECT# 15<I0$>:$OPEN#15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$' :$CLOSE#15:SELECTLIST005(80)";HEX(0D) 9999 DEFFN'29"Q$=";HEX(22);"ACCT030C";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D )