Listing of file='GBS1040A' on disk='vmedia/701-2653B.wvd.zip'
# Sector 318, program filename = 'GBS1040A' 0010 REM GBS1040A, 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$60 : GOTO 4000 4000 SELECT @PARTS0$ : B6=36 : B7=10 : GOSUB '66(3,0,1) : GOSUB '37 : GOSUB '33 : GOSUB '66(3,0,0) : GOSUB '31 4850 DEFFN'31 : LOAD TM$ 6060 DEFFN'37 : FOR I=1TO 9 : ON IGOSUB 6830,6866,6878,6892 : IF I>4THEN GOSUB 6951 : NEXT I : RETURN 6150 DEFFN'33 : GOSUB '100("0","9",1,0,"ENTER ITEM NO. (0=END)",1) : IF Q6$=HEX(1F)THEN GOSUB '31 : I=Q9 : IF I=0THEN 6280 : GOSUB '35 : GOTO 6150 6280 Q9=0 : FOR I=1TO 5 : IF G$(I)<>" "THEN Q9=Q9+M(3+I) : NEXT I : IF Q9=100THEN RETURN : IF Q9<100THEN 6400 : PRINT AT(3,0,80);HEX(07);"R/E percentages total over 100 percent, re-ente r." : GOTO 6150 6400 PRINT AT(3,0,80);HEX(07);"R/E percentages total less than 100%." : GOSUB '100("Y,N","YyY Nn",1,1,"DO YOU WISH TO ACCEPT ENTRIES (Y OR N)",2 ) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q9=2THEN 6150 : RETURN 6730 DEFFN'35 : ON IGOSUB 6800,6840,6871,6884 : IF I>4THEN GOSUB 6904 : RETURN 6795 PRINT AT(3,0,80);HEX(07);"Invalid A/P TRADE ACCOUNT NO. Re-enter." 6800 Q6$=M4$ : IF Q6$=" "THEN Q5=2 : ELSE Q5=3 : GOSUB '100(" ",HEX(7F),VAL(Q0$(5)),0,"ENTER A/P TRADE ACCT NO.",Q5) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF STR(Q6$,,1)<>"2"THEN 6795 : GOSUB 7498 : IF Q$="N"THEN 6795 : M4$=G6$ 6830 PRINT AT(5,0,80);TAB(B7);"1 A/P TRADE ACCT NO.";TAB(B6);M4$ : RETURN 6838 PRINT AT(3,0,80);HEX(07);"Invalid G/L BASE ACCOUNT NO. Re-enter." 6840 Q6$=G2$ : IF Q6$=" "THEN Q5=2 : ELSE Q5=3 : GOSUB '100(" ",HEX(7F),VAL(Q0$(5)),0,"ENTER G/L BASE ACCT NO.",Q5) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q6$<"3"THEN 6838 : GOSUB 7498 : IF Q$="N"THEN 6838 : G2$=G6$ 6866 PRINT AT(6,0,80);TAB(B7);"2 G/L BASE ACCT NO.";TAB(B6);G2$ : RETURN 6871 Q9=M(14) : GOSUB '100("1","12",2,0,"ENTER FISCAL MONTH 1",0) : IF Q6$=HEX(1F)THEN GOSUB '31 : M(14)=Q9 6878 PRINT AT(7,0,80);TAB(B7);"3 FISCAL MONTH 1";TAB(B6);M(14) : RETURN 6884 Q9=M(9) : GOSUB '100("1","12",2,0,"ENTER CURRENT FISCAL MONTH",0) : IF Q6$=HEX(1F)THEN GOSUB '31 : M(9)=Q9 6892 PRINT AT(8,0,80);TAB(B7);"4 CURRENT FISCAL MONTH";TAB(B6);M(9) : RETURN 6902 PRINT AT(3,0,80);HEX(07);"Illegal account no., re-enter" 6904 K=I-4 : Q6$=G$(K) : IF Q6$=" "THEN Q5=2 : ELSE Q5=3 : Q7$="First SecondThird FourthFifth" : G6$=STR(Q7$,K*6-5,6) : PRINT AT(1,0,80);"ENTER ";G6$;" RETAINED EARNINGS ACCOUNT NO." : GOSUB '100(" ",HEX(7F),VAL(Q0$(5)),0," ",Q5) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q6$=" "THEN 6962 : GOSUB 7498 : IF Q$="N"THEN 6902 : IF Q$=" "THEN 6928 6924 PRINT AT(3,0,80);HEX(07);"Record ";G6$;" is busy" : GOTO 6904 6928 GOSUB '75(2) : IF O1$<>"2"OR O3$="M"THEN 6902 : G$(K)=G6$ : Q9=M(K+3) : IF Q9=0THEN Q5=1 : ELSE Q5=0 : Q7$="First SecondThird FourthFifth" : G6$=STR(Q7$,K*6-5,6) : PRINT AT(1,0,80);"ENTER ";G6$;" ACCOUNT NO. DIST. PERCENTAGE" : GOSUB '100("0","100",3,2," ",Q5) : IF Q6$=HEX(1F)THEN GOSUB '31 : M(K+3)=Q9 6951 K=I-4 : CONVERT ITO Q6$,(#) : PRINT AT(K+8,0,80);TAB(B7);Q6$;" R/E ACCT NO.";K : IF G$(K)=" "THEN RETURN : PRINT AT(K+8,B6);G$(K);TAB(B6+12); : PRINTUSING "###.## % DIST",M(K+3) : RETURN 6962 G$(K)=" " : M(K+3)=0 : GOTO 6951 7498 GOSUB '96(5) : G6$=Q6$ : GOSUB '232(1,0,G6$) : IF POS(" NB"=Q$)>0THEN RETURN : GOSUB '91 : PRINT AT(1,0,80);"PROGRAM WILL BE TERMINATED" : GOSUB '254 : GOSUB '31 9998 DEFFN'29"Q$=";HEX(22);"GBS1040A";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 - A/P CONTROL FILE MAINTAINENCE.";HEX(22);":SELECT#15<I0$>:$OPEN #15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':LISTZ$THEX(7 A):$CLOSE#15:SELECTLIST005(80)";HEX(0D)