Listing of file='BOMS100A' on disk='vmedia/701-2656B.wvd.zip'
# Sector 125, program filename = 'BOMS100A'
0010 REM BOMS100A, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODU
CT OF WANG LABORTORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITE
D.
0141 COM A6$Q0,A7$3,A8$2,A6$(W)Q0,A7$(W)2,A6(W),A8(W),A8$(W)1,A9(W),K6$W3,K7$4
,K8$Q0,C9$Q0,I8,I9,L1,P6$3
: COM B6$Q0,B7$3,B8$2,B6$(W)Q0,B7$(W)2,B6(W),B8(W),B8$(W)1,B9(W)
: COM K$8,K1$8
: COM D9$(4)3,R9$(16),W,W3
0199 GOTO 4000
4000 Q=3
: LOAD T"KFAMOPEN"199,2999BEG 4020
4020 LOAD T"COMCLEAR"10,200BEG 4030
4030 SELECT @PARTS0$
: D9$()=STR(M$(),10)
: Q0=VAL(Q0$(2))
: Q6$="N"
: PRINT AT(3,0,80);"If you plan to re-org. the Inventory File, you should d
o that first."
: GOSUB '100("Y,N","YyNn",1,1,"DO YOU REALLY WANT TO REORGANIZE ? (Y/N)",3
)
: IF Q6$=HEX(1F)OR Q6$="N"THEN GOSUB '31
4120 GOSUB '217(S$(3),3,S2,0,4," ",STR(M$(1),1,3),0)
: Q9=3
: IF Q$<>" "THEN 4260
: GOSUB '230(1,1,2,1,S$(2),4," ",STR(M$(1),1,3),STR(M$(1),4,3))
: Q9=2
: IF Q$<>" "THEN 4260
: GOSUB '230(2,4,5,1,S$(5),4," ",D9$(1),D9$(2))
: Q9=5
: IF Q$<>" "THEN 4260
: GOSUB '230(3,6,7,1,S$(7),4," ",D9$(3),D9$(4))
: Q9=7
: STR(M5$,8)="B"
4240 IF Q$=" "THEN LOAD TM5$4000,9999
4260 GOSUB '91
: PRINT AT(3,LEN(J$(J0))+3);"- FILE ";S$(Q9)
: PRINT AT(1,0,80);"PROGRAM WILL BE TERMINATED"
: GOSUB '254
4310 DEFFN'31
: PRINT AT(4,0,);"*** END OF PROCESSING ***"
: GOSUB '239(1)
: GOSUB '239(2)
: GOSUB '239(3)
: GOSUB '219(S$(3),3,S2," ",0)
: COM CLEAR I
: LOAD TM$
9998 DEFFN'29"Q$=";HEX(22);"BOMS100A";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)