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)