;;
;	FAULT TREES EDITLIB FILE.
;	ENTER FILE TO COMPILE, REPLACE IN LIBRARY, AND BUILD.
;
TIM
.ENABLE SUBSTITUTION
.SETS FTREE "FTREE"
.1:
.ASKS FILE WHAT FILE?
.IF <STRLEN> = 0 .GOTO 100
.ASK DEBUG DEBUG
.IFF DEBUG .GOTO F4P
.ASKS SW ENTER JUNK TO APPEND AFTER </CO:99./DE>
F4P 'FILE'='FILE'/CO:99./DE'SW'
; DEBUG OUTPUT GOES TO UNIT 6 WHICH IS DB:, DONT FUCK UP
.GOTO LBR
.F4P:
F4P 'FILE'='FILE'/CO:99.
.LBR:
.IF FTREE = FILE .GOTO 1
.WAIT LBR
LBR [213,10]FTREE/RP='FILE'
PIP 'FILE'.OBJ;*/DE
.GOTO 1
.100:
;;
;			AUTO MODE
;
.XQT PIP [213,10]FTREE.OLB,FTREE.OBJ/PU
FTB @[213,10]TREEFTB
;
PIP [213,10]FTREE.TSK,FTREE.MAP/PU
.XQT LBR [213,10]FTREE/CO=[213,10]FTREE
TIM
