; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading QUERIO 51   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPQUERIO51U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xSFAPWHICH-OPERATIONSU*T FRESH-LINEACURSORPOSSI:FRESH-LINIFYSUBR & @ ! ` .;pD[ Z0JD`+ & $ ` .;pD` @,8,8g",<,x#]( (LENGTHSI:SPREAD-CURSORPOS,<' Np *p,8 (+ ,,8,8K<+=N 3,8`,8",<@+ ,,8`Zg~[,8A@`]K<,x@ANDU*].WFEATURECOMPLRSPECIALSI:QUERY-IO-EXTRA-OPTIONS)+-xBOUNDP--xSI:QUERY-IO-NEW-LISP)+/xW;]*U2090 p11x1 x// 1xSFA-GETU*U*UUNTYISFA-STORETYITYOPRINTREADREADLINETYIPEEKU*U*UOPENCLOSERUBOUTCHARPOSLINELPAGELPAGENUMFILEPOSU*U*UCLEAR-OUTPUTFORCE-OUTPUTLEXPR-FUNCALLLISTENCLEAR-INPUTTTYTTYSCANTTYINTTTYTYPEU*U*UTTYSIZEOSPEEDLINMODQUERY-IO-HANDLERSSTATUS+INTERNAL-LOSSAGE*APPENDFILEMODEOUTU*TIN+INTERNAL-TTYSCAN-SUBRSFA-UNCLAIMED-MESSAGE,8 $@@a3 $a3 5 g~a3$ g~0B+0/+. `-, & 5a7` g B`0B+</`q7@``q[`Z `0 & 5 H`a7-,@ ` w,8,8g~,8g~",<`09AAAA+B1B+B1B+B0;+A0B+D g3Eg~`0B` =@ a3Z[ Z0J+G31AA!` "`0B`/`7@``[`` ,T,8,8g~,8g~EK<`0B +\ ,83311",< ,8,8g3",< `01AA` g`A`A`0B!`A =a3Z[ Z0J!`1A ,h,8,8g~3",<!` "`1AA0B+l`%`0C+s1B"+s P( 0E+s1B#+s0G+s1B$+sI1+w ,83,8g}K<%`1K+/`7@`` `'+| . ,83KK.p-,0(`0B&`/+7@`  + & 5a7 g&`0MAAAA`1B'`0O`1B(`0Q` P(01B)`1B`S+8,8,82O+$asA D`[Z 2,8,85[(-,1 $H-,-,1 * B` Jg  0d`nb+ -,1 $-,  *  Jg7@g+# `-,`a0B`M Jg~`[ P(0M`[1B'`[0S`[3`Y" 0 $*U+ Jg~-, B`-, g~-,1 $ ``1aW g}-,7 B`3`mgU+7(g/`0B,+C3`w P Y`{ =a3`0B-` [DC a3` & $* ",+`0B.1A+GA[as g.`!`@43+K ]a7 ]a3 H`@9; AKC"E#M'(QO)S$I&,!z -aW & ]a7 ]Da3` $//.]jU,x? AQUERY-IO)+_x__ xEQSFAin..7u:UnW 1p+INTERNAL-TEMP-MARKERc 2xout..8 e3pg 2xT..9 4pu*U*Ui 2xTTYCONSAPPENDCDRDELQSFA-CREATEXCONSTTYIFAw@)0_ a_cgig5c-k6,gmGk6,ci7*o_7ic7ig7i=,g7i[,c)/7i8ii qq x;