Listing of file='ACCT020A' on disk='vmedia/701-2607C.wvd.zip'
# Sector 59, program filename = 'ACCT020A' 0010 REM ACCT020A RELEASE 2.1, (06/23/80) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 DIM I8$9,I9$1,J6$Q0,J7$(7)15,J7$15,J8$2,J8$(7)2,J9$30 : GOTO 4000 4000 SELECT @PARTS0$ : E9=7 4030 Q6$=Q1$ : GOSUB '100(" ","^",8,0,"ENTER DEFAULT TRANSACTION DATE (MM/DD/YY)",3) : IF Q6$=HEX(1F)THEN GOSUB '31 : GOSUB '121(Q6$) : IF Q6$<>"E"THEN 4100 : PRINT AT(3,0,80);"Invalid date, re-enter.";HEX(07) : GOTO 4030 4100 I8=U9 : I8$=U9$ : GOSUB '100("A,C,D","AaCcDdA ",1,1,"ENTER MAINTENANCE TYPE (A,C, OR D)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : I9$=Q6$ : Q7$="ADD CHANGEDELETE" : Q6$=STR(Q7$,Q9*6-5,6) : PRINT AT(0,56,24);"- ";Q6$;" ";I8$ 4200 GOSUB '100(" ",HEX(7F),Q0,0,"ENTER CUSTOMER ID (OR END)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q6$="END"OR Q6$="end"THEN 5870 : GOSUB '96(1) : J6$=Q6$ : GOSUB '232(1,1,J6$) : GOSUB '91 : ON J0GOTO ,,4200,,,,4200 : IF J0>0THEN 5990 : GOSUB '50(2," ") 4310 PRINT AT(E9,0,);"Customer ID ";J6$;" ";A1$;TAB(50);"A/R balance = "; : PRINTUSING "###,###.##-",B 4340 GOSUB '100("0",HEX(7F),8,0,"ENTER INVOICE NO. (OR END)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q6$="END"OR Q6$="end"THEN 4200 : CONVERT Q6$TO J7 : ERRORPRINT AT(3,0,80);"Invoice no. must be numeric.";HEX(07) : GOTO 4340 4380 PRINT AT(E9+1,0,80);"Invoice";TAB(11);J7 : J7$()="Invoice Payment Debit memo Credit memo Credit invoice Balance forwardService charge" : J8$()=" PDMCMCIBFSC" : PRINT AT(E9+2,0,);HEX(0D0A0D0A);TAB(12);"RETURN = ";J7$(1) : FOR I=2TO 7 : PRINT ,J8$(I);" = ";J7$(I) : NEXT I 4450 GOSUB '100(" ,P ,DM,CM,CI,BF,SC","BbCcDdFfIiMmPpSs",2,1,"ENTER TRANSACTI ON TYPE ( RETURN = INV , OR P, CI, DM, CM, BF, SC)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : J7$=J7$(Q9) : J8$=Q6$ : J8=Q9 : IF J8<6OR J7=0THEN 4550 4520 PRINT AT(3,0,80);HEX(07);"Invoice no. must be zero for BF and SC transact ions." : GOTO 4340 4550 IF P3$="1"OR J8<>6THEN 4580 : PRINT AT(3,0,80);HEX(07);"Open item customer can not have 'BF' transactio ns." : GOTO 4340 4580 PRINT AT(E9+2,0,);"Transaction type ";J7$ : Q6$="0123409" : $PACK(F=L2$)J9$FROMJ6$,J7,STR(Q6$,J8,1),"00" : J3,J5=0 : GOSUB '232(2,1,J9$) : IF Q$="N"THEN 4720 : GOSUB '91 : IF J0=7THEN 4340 : IF J0>0THEN 5990 : IF I9$="A"THEN 4750 : GOSUB '51(3,Q) : DBACKSPACE #3,1S : GOTO 4780 4720 IF I9$="A"THEN 5160 : PRINT AT(3,0,80);HEX(07);"A/R Record not found." : GOTO 4340 4750 PRINT AT(3,0,80);"Record already on file. You cannot add it.";HEX(07) : GOTO 4340 4780 IF J8$="BF"OR J8$="SC"THEN 4900 : GOSUB '123(D1(Q)) : PRINT AT(E9+3,0) : PRINTUSING 6010,U9$ : IF J8$="P"THEN 4860 : IF J8$<>" "THEN 4830 : J5=A(Q)-A1(Q)-A2(Q) : PRINTUSING 6030,J5 : GOTO 4970 4830 PRINTUSING 6030,A(Q) : J5=A(Q) : GOTO 4970 4860 PRINTUSING 6030,A2(Q) : J5=A2(Q) : PRINTUSING 6020,C1(Q) : GOTO 4970 4900 PRINT AT(E9+3,0) : PRINTUSING 6040,C1(Q) : PRINTUSING 6050,A(Q) : PRINTUSING 6060,A1(Q) : PRINTUSING 6070,A2(Q) : J5=C1(Q)+A(Q)+A1(Q)+A2(Q) 4970 IF I9$<>"D"THEN 5160 : GOSUB '100("Y,N","YyNn",1,1,"OK TO DELETE (Y OR N)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q6$="N"THEN 5120 : GOSUB '231(2,0,J9$) : IF Q$>" "THEN 5990 : STR(C1$(Q),,1)=HEX(FF) : GOSUB '41(3,Q) 5070 IF J8=2OR J8=4OR J8=5THEN Q9=J5-J3 : ELSE Q9=J3-J5 : B=B+Q9 : B9=B9+Q9 : DBACKSPACE #2,1S : GOSUB '40(2," ") 5120 PRINT AT(E9-3,0,80);"Last transaction ==> Customer ID ";J6$;", Invoice no . ";J7;", type ";J7$ : GOSUB '238(2) : GOTO 4310 5160 J0,J,J1,J2=0 : IF J8$="BF"OR J8$="SC"THEN 5410 : Q6$=I8$ : GOSUB '100(" ","^",8,0,"ENTER TRANSACTION DATE (MM/DD/YY)",3) : IF Q6$=HEX(1F)THEN GOSUB '31 : GOSUB '121(Q6$) : IF Q6$<>"E"THEN 5260 : PRINT AT(3,0,80);"Invalid date, re-enter.";HEX(07) : GOTO 5160 5260 J9=U9 : PRINT AT(E9+3,0,80) : PRINTUSING 6010,U9$ : GOSUB '100("0","999999.99",6,2,"ENTER AMOUNT",1) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF J8$="P"THEN J2,J3=Q9 : ELSE J,J3=Q9 : PRINT AT(E9+4,0,80) : PRINTUSING 6030,Q9 : IF J8$<>"P"THEN 5640 : GOSUB '100("0","9999999",7,0,"ENTER CHECK NO.",1) : IF Q6$=HEX(1F)THEN GOSUB '31 : J0=Q9 : PRINT AT(E9+5,0,80) : PRINTUSING 6020,Q9 : GOTO 5640 5410 GOSUB '100("-99999.99","999999.99",6,2,"ENTER CURRENT AMOUNT",1) : IF Q6$=HEX(1F)THEN GOSUB '31 : J0=Q9 : PRINT AT(E9+3,0,80) : PRINTUSING 6040,Q9 : GOSUB '100("-99999.99","999999.99",6,2,"ENTER 31-60 AMOUNT",1) : IF Q6$=HEX(1F)THEN GOSUB '31 : J=Q9 : PRINT AT(E9+4,0,80) : PRINTUSING 6050,Q9 5510 GOSUB '100("-99999.99","999999.99",6,2,"ENTER 61-90 AMOUNT",1) : IF Q6$=HEX(1F)THEN GOSUB '31 : J1=Q9 : PRINT AT(E9+5,0,80) : PRINTUSING 6060,Q9 : GOSUB '100("-99999.99","999999.99",6,2,"ENTER OVER 90 AMOUNT",1) : IF Q6$=HEX(1F)THEN GOSUB '31 : J2=Q9 : PRINT AT(E9+6,0,80) : PRINTUSING 6070,Q9 : J9=I8 : J3=J0+J+J1+J2 5640 GOSUB '100("Y,N","YyY Nn",1,1,"ALL DATA OK (Y OR N)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q6$="N"THEN 5120 : IF I9$<>"A"THEN 5710 : GOSUB '233(2,1,J9$,0) : IF Q$<>" "THEN 5990 5710 C$(Q)=" " : D(Q)=0 : A$(Q)="0" : C1(Q)=J0 : A(Q)=J : A1(Q)=J1 : A2(Q)=J2 : D1(Q)=J9 : C1$(Q)=J6$ : C(Q)=J7 : F$(Q)=STR(J9$,Q0+5,1) : H$(Q)="00" : GOSUB '41(3,Q) : GOTO 5070 5870 PRINT AT(1,0,) : GOSUB '100("M,R","MmRr",1,1,"ENTER R TO RESTART, M FOR MENU",2) : IF Q6$="R"THEN 4000 5910 DEFFN'31 : $OPEN #4 : GOSUB '46(4,0,1) : M(3)=M(3)+B9 : GOSUB '46(4,0,0) : $CLOSE#4 : LOAD TM$ 5990 GOSUB '254 : GOSUB '31 6010 %Transaction date ######## 6020 %Check no. ####### 6030 %Amount ###,###.##- 6040 %Current ###,###.##- 6050 %31-60 ###,###.##- 6060 %61-90 ###,###.##- 6070 %Over 90 ###,###.##- 9998 DEFFN'29"Q$=";HEX(22);"ACCT020A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D ) 9999 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22); "GBS/MVP - initialize A/R open item file.";HEX(22);":SELECT#15<I0$>:$OPEN #15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOSE#15:SE LECTLIST005(80)";HEX(0D)