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 )