%%HP: T(3)A(D)F(.);
@ Author: ?
@ Library Editor
\<< 0 0 0 \-> LN NL K
  \<< CLLCD "Which port {0-2} holds your library?" ":" INPUT ":" + CLLCD
    "Library name:" { \Ga } INPUT + DUP 'LN' STO OBJ\-> RCL -62 SF -63 CF
    \<< CONT
    \>> 91.1 ASN TEXT "Edit library, press ON to continue" PROMPT NEWOB 'NL'
      STO CLLCD { ABORT "" "" CONT } TMENU "<A>bort or <C>ontinue " 0 DISP
    DO -1 WAIT
    UNTIL IP DUP 11 == SWAP DUP SWAP DUP 13 == SWAP 'K' STO OR
    END K
    IF 11 ==
    THEN CLLCD 0 MENU -62 CF "LIBEDT aborted" 0 DISP 440 1 BEEP 880 1 BEEP 1760
      1 BEEP KILL
    END LN OBJ\-> PURGE 'NL' RCL LN OBJ\-> STO -62 CF CLLCD 0 MENU
      "LIBEDT complete" 0 DISP 880 2 BEEP 1 WAIT
  \>>
\>>
