Listing of file='ACCT080A' on disk='vmedia/701-2607C.wvd.zip'
# Sector 470, program filename = 'ACCT080A' 0010 REM ACCT080A, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 DIM K4$(5)33 : GOTO 4000 4000 SELECT @PARTS0$ : GOSUB '93(" ") : IF I0$=" "THEN 4840 : K4$(1)="ALL CUSTOMERS" : K4$(2)="CUSTOMERS WITH CREDIT LIMIT" : K4$(3)="CUSTOMERS IN EXCESS OF LIMIT" : K4$(4)="CUSTOMERS WITHIN $XXXXXX OF LIMIT" : K4$(5)="CUSTOMERS WITHIN XX% OF LIMIT" 4100 L=L0 : PRINT AT(4,0,);AT(5,0);,0;"= RETURN TO MENU" : FOR I=1TO 5 : PRINT ,I;"= ";K4$(I) : NEXT I : GOSUB '100("0","5",1,0,"ENTER REPORT TYPE",1) : IF Q6$=HEX(1F)THEN GOSUB '31 : K4=Q9 : IF Q9=0THEN 4840 : ON K4GOTO ,,,4220,4300 : GOTO 4350 4220 GOSUB '100("0","999999",6,0,"ENTER DOLLAR AMOUNT",1) : IF Q6$=HEX(1F)THEN GOSUB '31 : K=Q9 : CONVERT Q9TO Q6$,(#######) : STR(Q6$,,POS(Q6$>"0")-1)=" " : STR(K4$(K4),19,6)=STR(Q6$,2) : GOTO 4350 4300 GOSUB '100("0","99",2,0,"ENTER PERCENT",1) : IF Q6$=HEX(1F)THEN GOSUB '31 : K1=Q9 : CONVERT Q9TO STR(K4$(K4),18,2),(##) 4350 PRINT AT(1,0,);AT(4,0,);"Processing customer ID ";HEX(06) : P1=0 : GOSUB '90 : GOSUB '235(1,0) : GOSUB '91 : IF J0=7THEN 4100 : IF J0>0THEN 4810 : IF STR(T7$,6,1)=" "THEN 4510 4440 IF J0=7THEN GOSUB '92 : GOSUB '237(1,0) : IF Q$="E"THEN 4750 : GOSUB '91 : IF J0=7THEN 4440 : IF J0>0THEN 4810 : IF STR(T7$,6,1)<>" "THEN 4440 4510 GOSUB '50(2," ") : PRINT AT(4,24);STR(C$,,Q0) : ON K4GOTO 4620,,4570,4590,4610 : IF B0=0THEN 4440 : GOTO 4620 4570 IF B+C0<=B0THEN 4440 : GOTO 4620 4590 IF B+K+C0<B0THEN 4440 : GOTO 4620 4610 IF K1*B0/100+B+C0<B0THEN 4440 4620 GOSUB '123(P4) : GOSUB '90 : PRINT STR(C$,,Q0);TAB(3+Q0);STR(A1$,,MIN(27-Q0,LEN(A1$)));TAB(31);P$;TAB( 45);U9$;TAB(55); : PRINTUSING "###,###",B0; : PRINT TAB(64); : PRINTUSING "###,###.##-",B; : PRINT TAB(77); : PRINTUSING "###,###.##-",C0; : PRINT TAB(90); : PRINTUSING "###,###.##-",B0-B-C0 : L=L+1 : GOTO 4440 4750 GOSUB '90 : PRINT HEX(0A) : PRINT "END OF REPORT" : SELECT PRINT 005(80) : GOTO 4100 4810 PRINT AT(1,0,80) : GOSUB '254 4840 DEFFN'31 : LOAD TM$ 6020 DEFFN'90 : SELECT PRINT 005(80) : Q6$=" " : KEYIN Q6$,6060,6060 6060 IF Q6$="P"THEN GOSUB '254 : IF Q6$=HEX(1F)THEN GOSUB '31 : SELECT PRINT <I0$>(132) : IF L<L0THEN RETURN : P1=P1+1 : PRINT HEX(0C0A0E);TAB(3);N2$ : Q6$="CREDIT REPORT - "&K4$(K4) : PRINT TAB(66-LEN(Q6$)/2);Q6$;TAB(107);Q1$;TAB(117);"PAGE";TAB(122);P1 : PRINT HEX(0A) : PRINT "CUST";TAB(45);"DATE LAST CREDIT CURRENT" 6160 PRINT TAB(1);"ID";TAB(3+Q0);"CUSTOMER NAME";TAB(31);"TELEPHONE NO";TAB(46 );"PAYMENT";TAB(57);"LIMIT";TAB(67);"BALANCE";TAB(80);"ORDER $";TAB(90);" DIFFERENCE" : PRINT HEX(0A) : L=7 : RETURN 9998 DEFFN'29"Q$=";HEX(22);"ACCT080A";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 - Print credit report.";HEX(22);":SELECT#15<I0$>:$OPEN#15:SELECT LIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOSE#15:SELECTLIST00 5(80)";HEX(0D)