;"A(U*U*UPROG2CONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading YESNOP 42pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPYESNOP42U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS          xANDFBOUNDPU:UjUSPECIALQUERY-IOxBOUNDPSTANDARD-OUTPUT  xGETQUERIOLOADU:]*uLISPFASL xSI:YESNOP-FORMATTERxFUNCTION?FORMATxY-OR-N-PU@C]SI:DO-A-YESNOPLSUBR-0 $ "$pYES-OR-NO-P:U-0 $ "$FORMAT+INTERNAL-TRY-AUTOLOADPU*U*ULISTIFYSFAPFILEPTYOTYIFILEMODETTYMEMQStreaU*Unum doesn't have TTY option !p!!x! xERRORU*U*UOUTTTYCONSINLEXPR-FUNCALLREADLINEFEATURESTRINGU*U.w\RUBOUT\BS\TABTO-STRINGSTRING-TRIMNo)p**x* xU;]*USTRING-EQUALYes+p++x+ x*:TRUTHEXPLODEN*DELETESUBRbC,8,8 "5B " `-,1 ,8,8,8,8,8 4n Z( ( Bg~ Hg1n+Z( & Bg~ Fg0N+ "+ .``/g},< "p/ Bg7@g+A17@g~+ g~1B +5B g~D5B g~-,  Bg~ Jg~ g~-,0 ,8,84B$(B{ an+&   Hg J` `-, $-,0c-, $-,[,8!D  "5B/ ,/,8,8,8g{",<"  ` ""5B6 g-, $-,0c-, $#-, Bg `!Dd "#5B< g-, $-, 0-, $#-, Bg/" g|0B+P,< ,C,8,8,8g,8g| ,8g|",<$ `j ,F,8,8g", < Np1N'+I0N7+J `j+N@  1N,+L0N<+? `j " +O " /+,8 ,T,8,8,8g~`,8g{,8g{",<$ gj ,X,8,8g~ 1,8",<% B`%&zq: H4Be ,`,8@0,8 ,^,8,8g~",<(,8",<) ( B` $**5B $+ `*4Be ,@`C++P `, $ "&- B`4B [ 81N'+l0N7+rZ D`4Dq [ 81N'+p0N7+qZ4F+ [` 81N,+u0N<+Z` D`[ 81N"+y0N2+Z[ 8 F`@ 1N)+}0N9+Z5H " ++P   "//,x! (Y or N) (No) (Yes) (Yes or N~o) $&''(xl Ax-;