Listing of file='BOMS060A' on disk='vmedia/701-2656B.wvd.zip'
# Sector 5, program filename = 'BOMS060A'
0010 REM BOMS060A, RELEASE 2-0, (04/05/79) THIS PROGRAM IS A COPYRIGHT PRODUC
T OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITE
D
0171 DIM A6$1,C6$1
: DIM I9$1,P9$17,K6$15,K7$Q0,K8$Q0,K9$Q0
: GOTO 4000
4000 SELECT @PARTS0$
4100 K8$=ALL(7F)
: A6$="N"
: K,P1=0
: L=L0
: Q6$="Y"
: GOSUB '100("N,Y","NnYyY ",1,1,"PRINT REPORT (Y OR N)",3)
: IF Q6$=HEX(1F)THEN GOSUB '31
: A6$=Q6$
: IF Q6$="N"THEN 4280
: GOSUB '93(" ")
: IF I0$=" "THEN A6$="N"
4280 GOSUB '100("A,R,I","AaIiRr",1,1,"ENTER INQUIRY TYPE (A=ALL, R=RANGE, I=I
NDIVIDUAL)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: I9$=Q6$
: Q6$="ALL RANGE INDIVIDUAL"
: P9$=STR(Q6$,Q9*10-9,10)
: P9$=P9$&" OPTION"
: ON Q9GOTO ,4830,4600
: GOSUB '235(2,0)
: IF Q$<>" "THEN 5270
: K6$=T7$
: GOSUB '160(5)
4500 GOSUB 5440
4520 K=K+1
: GOSUB 5496
: GOSUB 5950
: IF Q$="E"THEN 5160
: IF I8<>1THEN 4520
: IF A6$<>"Y"THEN GOSUB 5820
: GOTO 4500
4600 SELECT PRINT 005(80)
: GOSUB '34(HEX(08))
: IF Q6$="END"THEN 5210
: K7$,K8$=Q6$
: STR(K6$,1,Q0)=K7$
: STR(K6$,Q0+1,3)="001"
: GOSUB 5860
: IF Q$<>"N"THEN 4690
: PRINT AT(3,0);HEX(07);"ASSEMBLY PRODUCT ID. NOT ON FILE"
: GOTO 4600
4690 GOSUB 5440
4750 GOSUB 5496
: GOSUB 5950
: IF I8=1THEN 4600
: GOTO 4750
4820 PRINT AT(3,0,80);"Starting ID must be lower than Ending ID";HEX(07)
4830 GOSUB '34("STARTING")
: IF Q6$="END"THEN 5210
: K7$=Q6$
: GOSUB '34("ENDING")
: IF Q6$="END"THEN Q6$=HEX(7F)
: K8$=Q6$
: IF K7$>K8$THEN 4820
: STR(K6$,1,Q0)=K7$
: STR(K6$,Q0+1,3)="001"
: GOSUB 5860
: IF Q$="N"THEN 5010
4960 GOSUB 5440
: K=K+1
: GOTO 5090
5000 IF K7$>=K8$THEN 5160
5010 GOSUB 5950
: IF K=0THEN 4960
: IF I8<>1THEN 5090
: IF Q$="E"THEN 5160
: IF A6$<>"Y"THEN GOSUB 5820
: GOSUB 5440
: K7$=K6$
5090 GOSUB 5496
: GOTO 5000
5160 IF A6$<>"Y"THEN GOSUB 5820
: SELECT PRINT 005
5210 PRINT AT(1,0,)
: GOSUB '100("M,R","MmRr",1,1,"KEY R TO RESTART, M FOR MENU",2)
: IF Q6$=HEX(1F)OR Q6$="M"THEN GOSUB '31
: ELSE GOTO 4100
5270 GOSUB '91
: GOSUB '254
5296 DEFFN'126
5300 DEFFN'31
: SELECT PRINT 005(80)
: PRINT AT(4,0,);"*** END OF PROCESSING ***"
: LOAD TM$
5440 DBACKSPACE #2,BEG
: DSKIP #2,VAL(W3$,2)S
: GOSUB '52(2)
: IF A6$="Y"THEN GOSUB 6080
: ELSE GOSUB 6210
: RETURN
5496 FOR I6=1TO W
: IF W$(I6)=HEX(20)THEN 5524
: IF W2$(I6)="E"AND W1(I6)>Q1THEN 5524
: IF W2$(I6)="T"AND W1(I6)<Q1THEN 5524
: DBACKSPACE #2,BEG
: DSKIP #2,VAL(STR(W0$(I6),1,2),2)S
: GOSUB '52(2)
: IF A6$="Y"THEN GOSUB 6140
: ELSE GOSUB 6290
5524 NEXT I6
: RETURN
5550 DEFFN'90
: Q6$=" "
: KEYIN Q6$,5580,5580
: IF Q6$="P"THEN GOSUB '254
5580 IF Q6$=HEX(1F)THEN 5160
: SELECT PRINT <I0$>(132)
: IF L<L0-6THEN RETURN
: P1=P1+1
: PRINT HEX(0C0D0A0E);N2$
: PRINT P9$;TAB(37);"BILL OF MATERIAL SINGLE LEVEL EXPLOSION";TAB(80);Q1$;T
AB(94);"PAGE ";P1
: PRINT HEX(0A)
: PRINT TAB(12);"* * * * ASSEMBLY * * * *";TAB(59);"* * * * SINGLE LEVEL CO
MPONENTS * * * *"
5660 PRINT TAB(6);"PRODUCT ID. DESCRIPTION";TAB(45);"PRODUCT ID.
DESCRIPTION";TAB(91);"QTY"
: PRINT HEX(0A)
: L=7
: RETURN
5710 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)
: RETURN
5820 PRINT AT(22,28);
: LINPUT "KEY RETURN TO RESUME",?C6$
: RETURN
5855 GOSUB '91
: GOSUB '92
5860 GOSUB '232(2,0,K6$)
: IF Q$="B"THEN 5855
: IF Q$="N"THEN RETURN
: IF Q$<>" "THEN 5270
: GOSUB '160(5)
: RETURN
5945 GOSUB '91
: GOSUB '92
5950 I8=0
: K9$=STR(K6$,1,Q0)
: GOSUB '237(2,0)
: IF Q$="B"THEN 5945
: IF Q$="E"THEN 6040
: IF Q$<>" "THEN 5270
: K6$=T7$
: GOSUB '160(5)
: IF K9$=STR(T7$,1,Q0)THEN RETURN
6040 I8=1
: RETURN
6080 GOSUB '90
: L=L+4
: PRINT HEX(0A0A);TAB(6);F1$;TAB(25);F2$;HEX(0A)
: RETURN
6140 GOSUB '90
: L=L+1
: PRINT TAB(45);
: PRINTUSING "############ ######################## ####.##",F1$,F2$,W(
I6)
: RETURN
6210 L=0
: IF K>0THEN 6250
: PRINT AT(0,0,20);P9$
: PRINT AT(2,9);"ASSEMBLY";TAB(42);"SINGLE LEVEL COMPONENTS"
: PRINT AT(3,0);"PRODUCT ID. DESCRIPTION PRODUCT ID DESCRIPTION
QTY"
6250 PRINT AT(5,0,);F1$;TAB(14);F2$;HEX(0A)
: RETURN
6290 L=L+1
: IF L<15THEN 6320
: L=0
: GOSUB 5820
: PRINT AT(7,0,);
6320 PRINT TAB(28);
: PRINTUSING "############ ######################## ####.##",F1$,F2$,W(I6)
: RETURN
9998 DEFFN'29"Q$=";HEX(22);"BOMS060A";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 - Display/Print Product Structure File.";HEX(22);":SELECT#15<I0$
>:$OPEN#15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOS
E#15:SELECTLIST005(80)";HEX(0D)