image of READY prompt

Wang2200.org

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)