.ENABLE SUBSTITUTION
.IFNINS ...LBR INS [11,1]LBR
.ASKS LIB ENTER UIC AND LIBRARY NAME
.ASK I WILL YOU INSERT OR REPLACE MODULES
.IFT I .ASKS MOD ENTER MODULE LOCATION(S) AND NAME(S)
.IFT I .SETS FUNC "/RP="
.IFT I .GOTO 100
.ASK D WILL YOU DELETE MODULES
.IFT D .ASKS MOD ENTER MODULE NAME(S)
.IFT D .SETS FUNC "/DE:"
.IFT D .GOTO 100
.ASK L DO YOU WANT A LISTING
.IFF L .GOTO 010
.ASK L HARD COPY
.IFT L .SETS OUTPUT "LP"
.IFF L .SETS OUTPUT "TI"
.ASKS TYPE ENTER LI (LIST), LE (LIST ENTRY POINTS), OR FU
LBR 'LIB','OUTPUT':/'TYPE'
.GOTO 200
.010:
.ASK X DO YOU WANT TO EXTRACT A MODULE
.IFF X .GOTO 200
.IFT X ;   MODULE WILL BE A .OBJ FILE
.IFT X .ASKS MOD ENTER MODULE NAME
.IFT X LBR 'MOD'='LIB'/EX:'MOD'
.GOTO 200
.100:
LBR 'LIB''FUNC''MOD'
.200:
REM ...LBR