image of READY prompt

Wang2200.org

Listing of file='BOMS080A' on disk='vmedia/701-2656B.wvd.zip'

# Sector 210, program filename = 'BOMS080A'
0010 REM BOMS080A, RELEASE 2-0, (02/23/79)  THIS PROGRAM IS A COPYRIGHT PRODUC
     T OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITE
     D
0170 DIM B7$(W4)W3,K3$17,B7$1,K4$4,B8$1,B9$2,A9$1
   : DIM D6$(W4)16,D7$(W4)8,D8$(W4)2
   : GOTO 4000
4000 SELECT @PARTS0$
   : E6=0
   : L6=W4-1
   : GOSUB '93(" ")
   : IF I0$=" "THEN GOSUB '31
   : SELECT PRINT 005(80)
   : PRINT AT(10,20);"INITIALIZING ALL LOW LEVEL CODES TO ZERO"
   : LIMITS T#2,S$(2),Q9,Q9,K8
   : DBACKSPACE #2,BEG
   : FOR I=1TO K8-2
   : GOSUB '52(2)
   : AND (H4$,E0)
   : DBACKSPACE #2,1S
   : GOSUB '42(2)
   : NEXT I
   : K8=0
4170 GOSUB '235(2,0)
   : B7$(1)=T7$
   : IF Q$=" "THEN 4250
   : IF Q$<>"B"THEN 5200
   : GOSUB '91
   : GOTO 4170
4250 K8,L9=0
   : A9$="I"
   : B8$=HEX(00)
   : GOSUB '160(4)
4300 L9=L9+1
   : ADD(B8$,01)
   : IF L9<=L6THEN 4340
   : GOSUB '36(2)
   : GOTO 5020
4340 D6$(L9)=T2$()
   : D7$(L9)=T$
   : D8$(L9)=T4$
4370 K8=K8+1
   : IF A9$=" "THEN 4590
   : A9$=" "
   : K4$=STR(W3$,,2)&HEX(0000)
   : GOSUB '232(3,1,K4$)
   : IF Q$=" "OR Q$="B"THEN 4490
   : IF Q$<>"N"THEN 5200
   : GOSUB '237(3,1)
   : IF Q$="X"THEN 5200
   : IF Q$="E"OR STR(T7$,,2)<>STR(K4$,,2)THEN 4540
4490 B7$(1)=STR(B7$(1),,Q0)&HEX(FFFFFF)
   : GOSUB '232(2,0,B7$(1))
   : GOSUB '237(2,0)
   : GOTO 5160
4540 GOSUB '235(2,0)
   : SELECT PRINT 005(80)
   : PRINT AT(10,20,60);"EXPLODING PRODUCT ";W0$
4590 IF K8>WTHEN 4940
4600 IF W$(K8)=" "THEN 4370
   : IF W2$(K8)="X"THEN 4370
   : IF W2$(K8)="E"AND W1(K8)>Q1THEN 4370
   : IF W2$(K8)="T"AND W1(K8)<=Q1THEN 4370
   : B7$(L9+1)=STR(W$(K8),,Q0)&"001"
   : DBACKSPACE #2,BEG
   : DSKIP #2,VAL(W0$(K8),2)S
   : GOSUB '52(2)
   : IF F1$=HEX(FF)THEN 4370
   : B7$=H4$
   : AND (B7$,0F)
   : IF B7$>=B8$THEN 4780
   : AND (H4$,E0)
   : OR (H4$,B8$)
   : DBACKSPACE #2,1S
   : GOSUB '42(2)
4780 IF L9=1THEN 4800
   : MAT SEARCHB7$()<1,L9*W3>,=STR(W$(K8),,Q0)TO B9$STEP W3
   : IF B9$=HEX(0000)THEN 4800
   : GOSUB '36(1)
   : GOTO 4920
4800 B7$=H4$
   : AND (B7$,80)
   : IF B7$<>HEX(80)THEN 4920
4830 GOSUB '232(2,0,B7$(L9+1))
   : J$(3)=" "
   : GOSUB '91
   : IF J0=7THEN GOSUB '92
   : IF J0=7THEN 4830
   : IF J0>1THEN 5200
   : GOSUB '160(4)
   : K8=0
   : GOTO 4300
4920 IF K8<WTHEN 4370
4940 T2$()=D6$(L9)
   : T$=D7$(L9)
   : GOSUB '237(2,0)
   : IF Q$="E"OR STR(T7$,,Q0)<>STR(B7$(L9),,Q0)THEN 5020
   : GOSUB '160(4)
   : B7$(L9)=T7$
   : K8=0
   : GOTO 4340
5020 IF L9=1THEN 5160
   : IF Q$="E"THEN GOSUB '235(2,0)
   : L9=L9-1
   : B8$=DSC HEX(01)
   : DBACKSPACE #4,BEG
   : DSKIP #4,VAL(D8$(L9),2)S
   : GOSUB '160(4)
   : MAT SEARCHW$(),=STR(B7$(L9+1),,Q0)TO Q6$STEP Q0
   : K8=INT((VAL(Q6$,2)+Q0-1)/Q0)+1
   : IF K8<=WTHEN 4600
   : GOTO 4940
5160 B7$(1)=STR(T7$,,Q0)&"001"
   : IF Q$=" "THEN 4250
   : GOSUB '31
5200 GOSUB '91
   : GOSUB '254
5230 DEFFN'31
   : IF E6=0OR I0$<>"005"THEN LOAD TM$
   : SELECT PRINT 005(80)
   : PRINT AT(1,0,80);E6;"BILL OF MATERIAL ERRORS WERE FOUND DURING PROCESSING
     "
   : GOSUB '254
   : LOAD TM$
5330 DEFFN'90
   : Q6$=" "
   : KEYIN Q6$,5370,5370
   : IF Q6$="P"THEN GOSUB '254
5370 IF Q6$=HEX(1F)THEN GOSUB '31
   : SELECT PRINT <I0$>(132)
   : IF L<L0-5THEN RETURN
   : P1=P1+1
   : PRINT HEX(0C0A0E);N2$
   : PRINT TAB(47);"LOW LEVEL CODE CALCULATION ERROR REPORT";TAB(93);Q1$;TAB(1
     15);"PAGE ";P1
   : PRINT HEX(0A)
   : L=2
   : RETURN
5470 DEFFN'36(A7)
   : E6=E6+1
   : GOSUB '90
   : ON A7GOTO 5520,5680
5520 PRINT "** PRODUCT ID - ";F1$;" IS USED IN ITSELF **"
   : L8=INT((VAL(B9$,2)+W3-1)/W3)+1
   : PRINT "  SEQUENCE OF PARENT-COMPONENT RELATIONSHIPS STARTING AT LEVEL ";L
     8-1;" AND GOING TO LEVEL ";L9;":"
   : K9=0
   : FOR I=L8TO L9+1
   : PRINT TAB(K9);STR(B7$(I),,Q0);
   : K9=K9+Q0+2
   : IF K9<128-Q0THEN 5620
   : PRINT
   : K9=0
5620 NEXT I
   : PRINT
   : PRINT HEX(0A)
   : L=L+6
   : RETURN
5680 PRINT "** PRODUCT ID - ";STR(B7$(L9),,Q0);" AT LEVEL ";L9-1;" HAS COMPONE
     NTS AT A LOWER LEVEL **"
   : PRINT HEX(0A)
   : L=L+2
   : RETURN
9998 DEFFN'29"Q$=";HEX(22);"BOMS080A";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 - Indented Costed Parts Explosion.";HEX(22);":SELECT#15<I0$>:$OP
     EN#15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOSE#15:
     SELECTLIST005(80)";HEX(0D)