Listing of file='GBS1220A' on disk='vmedia/701-2661A.wvd.zip'
# Sector 471, program filename = 'GBS1220A'
0010 REM GBS1220A, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM A6$8,A7$1,A8$(15)3,A8$6
: COM K3$1,K4$14,K5$21
4000 Q=1
: LOAD T"KFAMOPEN"199,199BEG 4015
4015 LOAD T"KFAMCODE"199,199BEG 4020
4020 A8$()=M$()
: SELECT @PARTS0$
4040 INIT(20)A6$,A7$,K4$,K5$
: PRINT AT(5,0);,"A = Customer Master File"
: PRINT ,"B = Salesman Master File"
: PRINT ,"C = Inventory Master File"
: PRINT ,"D = GBS Control File"
: PRINT ,"E = Return to menu"
: GOSUB '100("A,B,C,D,E","AaBbCcDdEe",1,1,"ENTER LETTER FOR SELECTED FILE",
2)
: IF Q6$=HEX(1F)THEN GOSUB '31
4130 K3$=Q6$
: ON Q9GOTO 4160,4200,4240,5100,5950
4160 A6$=S$(8)
: A8$=A8$(7)&A8$(8)
: K4$="CUSTOMER FILE"
: GOTO 4280
4200 A6$=S$(10)
: A8$=A8$(9)&A8$(10)
: K4$="SALESMAN FILE"
: GOTO 4280
4240 A6$=S$(1)
: K4$="INVENTORY FILE"
: A8$=A8$(2)&A8$(1)
4280 PRINT AT(5,0,);,"FILE = ";K4$
4300 GOSUB '100("Y,N","YyNn",1,1,"CLEAR YEAR-TO-DATE (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: A7$=Q6$
: K5$="MONTHLY"
: IF Q6$="N"THEN 4430
: K5$="MONTHLY & Y-T-D"
: IF K3$<>"C"THEN 4430
: GOSUB '100("Y,N","YyNn",1,1,"HAVE THIS MONTH'S FIGURES BEEN CLEARED (Y/N
)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="Y"THEN 4430
4410 PRINT AT(3,0);"Current Period Figures must be Cleared before Y-T-D Figure
s"
: GOTO 4300
4430 PRINT AT(6,16);"CLEAR ";K5$;" FIGURES"
: Q6$="Y"
: GOSUB '100("Y,N","YyNn",1,1,"IS ENTRY OK (Y OR N)",3)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="N"THEN 4040
: IF K3$<>"C"OR A7$<>"N"THEN 4560
: PRINT AT(7,16);"LOADING SORT SET-UP"
: M$()=A8$()
: STR(M$(),241)=M$
: STR(M$(),100,8)=STR(M5$,,7)&"B"
: COM CLEAR M5$
: LOAD TSTR(M$(),100,8)
4560 PRINT AT(7,16);"EXECUTING PROGRAM"
: SELECT #1<STR(A8$,4,3)>
: SELECT #14<STR(A8$,,3)>
: GOSUB '230(1,14,2,1,A6$,2," ",STR(A8$,4,3),STR(A8$,,3))
: GOSUB 6010
: GOSUB '235(1,0)
: GOSUB 6010
: ON VAL(K3$)-64GOTO 4670,4770,4860
: GOTO 5060
4670 IF STR(T7$,VAL(Q0$(1)),1)>" "THEN 4960
: GOSUB '50(2," ")
: P3=P3+P2
: M1=M1+M
: P2,M=0
: IF A7$="Y"THEN P3,M1=0
: DBACKSPACE #2,1S
: GOSUB '40(2," ")
: GOTO 4960
4770 GOSUB '53(2)
: G1=G1+G
: G3=G3+G2
: G,G2=0
: IF A7$="Y"THEN G1,G3=0
: DBACKSPACE #2,1S
: GOSUB '43(2)
: GOTO 4960
4860 GOSUB '52(2)
: H2=H2+H
: H4=H4+H1
: H3=H3+F3
: D3(2)=D3(2)+D3(1)
: H,H1,F3,D3(1)=0
: IF A7$="Y"THEN H2,H4,H3,D3(2)=0
: DBACKSPACE #2,1S
: GOSUB '42(2)
4960 GOSUB '237(1,0)
: IF Q$="E"THEN 5020
: GOSUB 6010
: PRINT AT(7,16,64);"Processing record ID ";T7$
: ON VAL(K3$)-64GOTO 4670,4770,4860
: GOTO 5060
5020 PRINT AT(5,0,240)
: GOSUB '239(1)
: GOSUB 6010
5060 GOSUB '100("R,M","RrMm",1,1,"KEY R TO RESTART, M FOR MENU",2)
: IF Q6$=HEX(1F)OR Q6$="M"THEN GOSUB '31
: GOTO 4040
5100 SELECT #1<A8$(11)>
: GOSUB '217(S$(11),1,S2,0,3," ",A8$(7),0)
: GOSUB 6010
: GOSUB '46(1,0,1)
: PRINT AT(5,0,);,"FILE = CONTROL"
5170 GOSUB '100("Y,N","YyY Nn",1,1,"CLEAR/RESET INVOICE NO. (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="N"THEN 5310
: PRINT AT(6,0,80);,"RESET INVOICE NO."
: Q9=M(2)
: GOSUB '100("0","9999999",7,0,"ENTER RESET VALUE FOR INVOICE NO.",0)
: IF Q6$=HEX(1F)THEN GOSUB '31
: K=Q9
: PRINT AT(6,34);"TO";K
5260 GOSUB '100("Y,N","YyY Nn",1,1,"IS ENTRY OK (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="N"THEN 5170
: GOSUB '36(2,K)
5310 GOSUB '100("Y,N","YyY Nn",1,1,"CLEAR/RESET NON-REGULAR INVOICE NO. (Y OR
N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="N"THEN 5460
: PRINT AT(6,0,80);,"RESET NON-REGULAR INVOICE NO."
: Q9=M(5)
: GOSUB '100("0","9999999",7,0,"ENTER RESET VALUE FOR NON-REGULAR INVOICE N
O.",0)
: IF Q6$=HEX(1F)THEN GOSUB '31
: K=Q9
5400 PRINT AT(6,46);"TO";K
: GOSUB '100("Y,N","YyY Nn",1,1,"IS ENTRY OK (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="N"THEN 5310
: GOSUB '36(5,K)
5460 GOSUB '100("Y,N","YyY Nn",1,1,"CLEAR/RESET ORDER NO. (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="N"THEN 5690
: PRINT AT(6,0,80);,"RESET ORDER NO."
: Q9=M(4)
: GOSUB '100("0","99999",5,0,"ENTER RESET VALUE FOR ORDER NO.",0)
: IF Q6$=HEX(1F)THEN GOSUB '31
: K=Q9
: IF M(9)<0AND M(10)<0THEN 5600
: PRINT AT(7,0,160)
5570 PRINT "Before order number can be changed, order register and shipping pa
pers must be"
: PRINT "printed while no other terminal is performing order entry.";HEX(07
)
: K=M(4)
5600 PRINT AT(6,32);"TO";K
: GOSUB '100("Y,N","YyY Nn",1,1,"IS ENTRY OK (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="N"THEN 5460
: GOSUB '36(4,K)
: GOSUB '36(9,K)
: GOSUB '36(10,K)
: PRINT AT(6,0,)
5690 GOSUB '100("Y,N","YyNn",1,1,"CLEAR CONTROL TOTALS (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="N"THEN 5870
: PRINT AT(6,0,80);,"CLEAR CONTROL TOTALS"
: GOSUB '100("Y,N","YyNn",1,1,"IS ENTRY OK (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="N"THEN 5870
: PRINT AT(7,0);,"CLEARING SECTOR ";HEX(0D06)
: $OPEN #1
: FOR I=1TO 366
5810 GOSUB '46(1,I,1)
: MAT M=ZER
: PRINT AT(7,32);I
: GOSUB '46(1,I,0)
: NEXT I
: $CLOSE#1
5870 GOSUB '219(S$(11),1,S2," ",0)
: GOTO 4040
5910 DEFFN'31
: SELECT #1<A8$(7)>
: GOSUB '219(S$(11),1,S2," ",0)
5950 COM CLEAR I
: LOAD TM$
6010 GOSUB '91
: IF J0=0THEN RETURN
: PRINT AT(1,0,80)
: GOSUB '254
: GOSUB '239(1)
: GOTO 5950
6090 DEFFN'36(Q3,Q4)
: $OPEN #1
: GOSUB '46(1,0,1)
: M(Q3)=Q4
: GOSUB '46(1,0,0)
: $CLOSE#1
: RETURN
9998 DEFFN'29"Q$=";HEX(22);"GBS1220A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)