;; ; 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 = 0 .GOTO 100 .ASK DEBUG DEBUG .IFF DEBUG .GOTO F4P .ASKS SW ENTER JUNK TO APPEND AFTER 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