image of READY prompt

Wang2200.org

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)