image of READY prompt

Wang2200.org

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
     )