Listing of file='GBS3010A' on disk='vmedia/701-2652C.wvd.zip'
# Sector 282, program filename = 'GBS3010A' 0010 REM GBS3010A, RELEASE 2.2, (09/15/80) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 DIM A6$1,B6$1,C6$1,D6$8,D7$5 : DIM K$1,K1$3,K2$3,K3$17 : DIM M6(17),M7(17) : GOTO 4000 4000 SELECT @PARTS0$ : A6$="N" : B6$="Y" : K2=366 : K,K1,P1=0 : L=60 : GOSUB '100("Y,N","NnYyY ",1,1,"PRINT REPORT (Y OR N)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : A6$=Q6$ : IF A6$="Y"THEN 4140 : $CLOSE#15 : GOTO 4220 4140 GOSUB '93(" ") : IF I0$=" "THEN A6$="N" : GOSUB '100("Y,N","NnYyY ",1,1,"SCREEN DISPLAY (Y OR N)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : B6$=Q6$ : IF B6$="N"AND A6$="N"THEN 4970 4220 PRINT AT(5,0,) : GOSUB '100("A,R,I","AaIiRr",1,1,"ENTER INQUIRY TYPE (A=ALL, R=RANGE, I=I NDIVIDUAL)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : K$=Q6$ : Q6$="ALL RANGE INDIVIDUAL" : K3$=STR(Q6$,Q9*10-9,10) : K3$=K3$&" OPTION" : ON Q9GOTO 4460,4370,4310 4310 GOSUB '34(HEX(08),"(000,") : IF Q6$="END"THEN 4850 : K,K1,K2=Q9 : GOTO 4460 4360 PRINT AT(3,0,80);"Starting date must be earlier than ending date.";HEX(07 ) 4370 MAT M6=ZER : L=60 : GOSUB '34("STARTING","(000,") : IF Q6$="END"THEN 4970 : K,K1=Q9 : K2=366 : GOSUB '34("ENDING","(") : IF Q6$<>"END"THEN K2=Q9 : IF K2=0THEN 4360 : IF K2<K1THEN 4360 4460 GOSUB '66(1,K,1) : IF B6$="N"THEN PRINT AT(1,0,80);"PROCESSING DATE SECTOR ";K : K=K+1 : C6$="Y" : IF MAX(M())=0AND MIN(M())=0THEN C6$="N" : IF C6$="N"AND B6$="N"THEN 4660 : IF K=1THEN 4600 : GOSUB '123(INT(Q1/1E3)*1E3+K-1) : MAT M6=M6+M : MAT M7=M7+M : M6(16),M7(16)=0 4600 PRINT AT(4,0,) : IF B6$="Y"THEN GOSUB 6320 : IF A6$="Y"THEN GOSUB '90 : L=L+1 : IF A6$="Y"AND C6$="Y"THEN GOSUB 6320 : ELSE L=L-1 : SELECT PRINT 005(80) 4660 IF K$="I"THEN 4310 : IF K-1>=K2THEN 4730 : IF B6$="Y"THEN GOSUB '254 : IF Q6$=HEX(1F)THEN GOSUB '31 : GOTO 4460 4730 IF A6$="N"AND K$="R"THEN 4370 : IF A6$="N"OR K$<>"R"THEN 4850 : GOSUB '90 : PRINT HEX(0A) : U9$="RANGE" : MAT M=M6 : U9=0 : GOSUB 6320 : PRINT HEX(0A) : SELECT PRINT 005(80) : GOTO 4370 4850 IF A6$="N"THEN 4970 : L=60 : GOSUB '90 : PRINT HEX(0A) : U9$="FINAL" : MAT M=M7 : K=2 : U9=0 : GOSUB 6320 : MAT M7=ZER : PRINT HEX(0C) 4970 SELECT PRINT 005(80) : PRINT AT(1,0,) : GOSUB '100("M,R","MmRr",1,1,"KEY R TO RESTART, M FOR MENU",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q6$="R"THEN 4000 5030 DEFFN'31 : LOAD TM$ 6020 DEFFN'90 : Q6$=" " : KEYIN Q6$,6050,6050 6050 IF Q6$="P"THEN GOSUB '254 : IF Q6$=HEX(1F)THEN GOSUB '31 : SELECT PRINT <I0$>(132) : IF L<=4THEN RETURN : P1=P1+1 : PRINT HEX(0C0A0E);TAB(3);N2$ : PRINT K3$;TAB(50);"CONTROL FILE";TAB(110);Q1$;TAB(122);"PAGE ";P1 : PRINT HEX(0A) : L=0 : RETURN 6160 DEFFN'34(D6$,D7$) : Q9=0 : PRINT AT(1,0,80);"ENTER ";D6$;" DATE ";D7$;"MM/DD/YY, END)" : GOSUB '100(" ",HEX(7F),8,0," ",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q6$="end"THEN Q6$="END" : IF Q6$="END"OR Q6$="000"THEN RETURN : GOSUB '121(Q6$) : Q9=MOD(U9,1E3) : IF Q6$<>"E"THEN RETURN : PRINT AT(3,0,80);HEX(07);"Invalid date, re-enter." : GOTO 6160 6280 %###,###,###.##- 6290 %##### 6300 %######## 6320 Q5=24 : Q6=52 : Q7=22 : Q8=40 : Q9=64 : IF K>1THEN 6800 : PRINT "CONTROL RECORD" : PRINT HEX(0A) : PRINT "DATE OF LAST UPDATE";TAB(Q5); : PRINTUSING 6290,M(1); : PRINT TAB(Q8);"FISCAL MO 1 = CAL M0";TAB(Q9-1); : PRINTUSING "##",M(14) : PRINT "OPEN ITEM PRINT DATE";TAB(Q5); : PRINTUSING 6290,M(3); : PRINT TAB(Q8);"CURRENT FISCAL MONTH";TAB(Q9-1); : PRINTUSING "##",M(9) 6490 PRINT "SORT FLAG";TAB(Q5);M3$;TAB(Q8+2);"**YEAR-TO-DATE TOTALS**" : PRINT "G/L UPDATE FLAG";TAB(Q5);F5$(1); : PRINT TAB(Q8);"ASSETS";TAB(Q6); : PRINTUSING 6280,M(10) : PRINT "PAYMENT SELECT FLAG";TAB(Q5);F5$(2); : PRINT TAB(Q8);"LIABILITIES";TAB(Q6); : PRINTUSING 6280,M(11) : PRINT "DISTRIBUTION REP FLAG";TAB(Q5);F5$(3); 6570 PRINT TAB(Q8);"INCOME";TAB(Q6); : PRINTUSING 6280,M(12) : PRINT "G/L BASE ACCOUNT NO.";TAB(Q5);G2$; : PRINT TAB(Q8);"EXPENSE";TAB(Q6); : PRINTUSING 6280,M(13) : PRINT "A/P TRADE ACCOUNT NO.";TAB(Q5);M4$; : PRINT TAB(Q8);"A/P BALANCE";TAB(Q6); : PRINTUSING 6280,M(2) : PRINT HEX(0A) : PRINT TAB(Q5+3);"**RETAINED EARNINGS**" : PRINT TAB(Q5+8);"ACCOUNT";TAB(Q8+7);"%" : FOR I=1TO 5 6690 PRINT TAB(Q5+3); : PRINTUSING "(#) ";I; : PRINTUSING 6300,G$(I); : PRINT TAB(Q8+2); : PRINTUSING "###.##",M(3+I) : NEXT I : PRINT HEX(0A) : RETURN 6770 PRINT HEX(0A0A) : RETURN 6800 PRINT TAB(6);"DATE";TAB(Q7-7);U9$;TAB(Q8); : IF U9>0THEN PRINT "JULIAN DATE";TAB(Q9+1);U9; : PRINT : PRINT HEX(0A) : PRINT "CREDIT MEMO TOTAL";TAB(Q7); : IF M(6)<>0THEN PRINTUSING 6280,M(6); : PRINT TAB(Q8);"NO. OF CHECKS PRINTED";TAB(Q9); : IF M(1)<>0THEN PRINTUSING 6300,M(1) : ELSE PRINT 6890 PRINT "INVOICE TOTAL";TAB(Q7); : IF M(7)<>0THEN PRINTUSING 6280,M(7); : PRINT TAB(Q8);"LAST CHECK NO. PRINTED";TAB(Q9); : IF M(2)<>0THEN PRINTUSING 6300,M(2) : ELSE PRINT 6940 PRINT "PRINTED CHECKS TOTAL";TAB(Q7); : IF M(3)<>0THEN PRINTUSING 6280,M(3); : PRINT TAB(Q8);"CURRENT ASSETS";TAB(Q9); : IF M(10)<>0THEN PRINTUSING 6280,M(10) : ELSE PRINT 6990 PRINT "CASH DISCOUNTS TAKEN";TAB(Q7); : IF M(8)<>0THEN PRINTUSING 6280,M(8); : PRINT TAB(Q8);"CURRENT LIABILITIES";TAB(Q9); : IF M(11)<>0THEN PRINTUSING 6280,M(11) : ELSE PRINT 7040 PRINT "'E' PAYMENTS TOTAL";TAB(Q7); : IF M(4)<>0THEN PRINTUSING 6280,M(4); : PRINT TAB(Q8);"CURRENT INCOME";TAB(Q9); : IF M(12)<>0THEN PRINTUSING 6280,M(12) : ELSE PRINT 7090 PRINT "'X' PAYMENTS TOTAL";TAB(Q7); : IF M(5)<>0THEN PRINTUSING 6280,M(5); : PRINT TAB(Q8);"CURRENT EXPENSE";TAB(Q9); : IF M(13)<>0THEN PRINTUSING 6280,M(13) : ELSE PRINT 7140 PRINT HEX(0A) : PRINT TAB(Q8);"A/P BALANCE";TAB(Q9); : IF M(9)<>0THEN PRINTUSING 6280,M(9) : ELSE PRINT : RETURN 9998 DEFFN'29"Q$=";HEX(22);"GBS3010A";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/display A/P Control file.";HEX(22);":SELECT#15<I0$>:$OPE N#15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOSE#15:S ELECTLIST005(80)";HEX(0D)