Listing of file='BOMS070A' on disk='vmedia/701-2656B.wvd.zip'
# Sector 195, program filename = 'BOMS070A' 0010 REM BOMS070A, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 DIM A6$2,A7$1,L,K2$15,C6$80,B7$(W4)15,K3$17,B7$24,K4$4,A9$1,B7(W4) : DIM D6$(W4)16,D7$(W4)8,D8$(W4)2 : GOTO 4000 4000 SELECT @PARTS0$ : K2$=ALL(7F) : C6$,Q$=" " : A6$="N" : STR(B7$(),13,3)="001" : B7$()=B7$()&STR(B7$()) : K8,L9,P1=0 : K9=6 : L=L0 4110 L9,K8=0 : GOSUB '34(HEX(08)) : IF Q6$="END"THEN GOSUB '31 : B7$(1)=STR(Q6$,,12)&"001" : GOSUB '232(1,0,B7$(1)) : GOSUB '91 : ON J0+1GOTO 4190,,,4110,,,,4110 : GOTO 4890 4185 Q6$=" " : CONVERT W4-1TO STR(Q6$,22,2),(##) : STR(Q6$,,21)="ENTER LEVEL LIMIT (1-" : STR(Q6$,24,1)=")" 4190 Q9=W4-1 : GOSUB '100("1",STR(Q6$,22,2),2,0,Q6$,0) : IF Q6$=HEX(1F)THEN GOSUB '31 : L6=Q9 : GOSUB '160(4) : GOSUB '100("1","9999",2,0,"ENTER NUMBER OF FINISHED GOODS TO ASSEMBLE (1- 9999)",1) : B7(1)=Q9 : DBACKSPACE #2,BEG : DSKIP #2,VAL(W3$,2)S : GOSUB '52(2) : B7$=F2$ : E=E+B7(1) : DBACKSPACE #2,1S : GOSUB '42(2) 4350 PRINT AT(6,10,);"ASSEMBLING ";B7(1);F1$;" ";F2$;AT(8,10);"UPDATING 'ON HA ND' AMOUNT FOR PRODUCT - ";HEX(06); 4370 L9=L9+1 4390 D6$(L9)=T2$() : D7$(L9)=T$ : D8$(L9)=T4$ 4420 K8=K8+1 : IF K8>WTHEN 4670 4440 IF W$(K8)=" "THEN 4420 : IF W2$(K8)="E"AND W1(K8)>Q1THEN 4420 : ELSE IF W2$(K8)="T"AND W1(K8)<=Q1THEN 4420 : B7$(L9+1)=STR(W$(K8),,12)&"001" : B7(L9+1)=B7(L9)*W(K8) : DBACKSPACE #2,BEG : DSKIP #2,VAL(W0$(K8),2)S : GOSUB '52(2) : IF F1$=HEX(FF)THEN 4420 : IF H4$<>"1"OR L9>=L6THEN 4610 4520 IF J0=7THEN GOSUB '92 : GOSUB '232(1,0,B7$(L9+1)) : J$(3)=" " : GOSUB '91 : IF J0=7THEN 4520 : IF J0>1THEN 4890 : GOSUB '160(4) : K8=0 : GOTO 4370 4610 PRINT AT(8,50);B7$(L9+1) : E=E-B7(L9+1) : DBACKSPACE #2,1S : GOSUB '42(2) : IF K8<WTHEN 4420 4670 T2$()=D6$(L9) : T$=D7$(L9) : GOSUB '237(1,0) : IF Q$="E"OR STR(T7$,,12)<>STR(B7$(L9),,12)THEN 4750 : GOSUB '160(4) : B7$(L9)=T7$ : K8=0 : GOTO 4390 4750 IF L9=1THEN 4110 : IF Q$="E"THEN GOSUB '235(1,0) : L9=L9-1 : DBACKSPACE #4,BEG : DSKIP #4,VAL(D8$(L9),2)S : GOSUB '160(4) : MAT SEARCHW$(),=STR(B7$(L9+1),,12)TO Q6$STEP 12 : K8=INT((VAL(Q6$,2)+11)/12)+1 : IF K8<=WTHEN 4440 : GOTO 4670 4890 GOSUB '91 : GOSUB '254 : GOSUB '31 6020 DEFFN'31 : LOAD TM$ 6050 DEFFN'34(Q7$) : PRINT AT(1,0,80);"ENTER ";Q7$;" ASSEMBLY PRODUCT ID (OR END)" : GOSUB '100(" ",HEX(7F),Q0,0," ",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q6$="end"THEN Q6$="END" : IF Q6$="END"THEN RETURN : GOSUB '96(2) : Q7$=Q6$ : RETURN 9180 DEFFN'29"Q$=";HEX(22);"BOMS070A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D ) 9190 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22); "GBS/MVP - BUILD FROM COMPONENTS.";HEX(22);":SELECT#15<I0$>:$OPEN#15:SELE CTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOSE#15:SELECTLIST 005(80)";HEX(0D)