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)