;"e@UU%QLISTENXSUBR,8FEATURESNEWIOz?v GHSTATUS@!#4B ,,8,8",LISTEN<+ ,)*U,xTDEFPROPSETQQLAMBDAXU*U*WEXPANDVARCARCDRVALSETQQUOTEMACRO  xW*U.URPAQQ   xNLISTPTHINGNOTLISTP    xNEQTHING1U:U.UTHING2EQ      xIPLUSBODY+  xITIMES*u+U.U  xILESSP<  xIGREATERP>  xDISMISSMILLISECONDSU*]*uSLEEP/$FLOAT "_  xFMEMBMEMQ  xMEMBu*]*u  xCHARACTERCHASCII xFRPLACDRPLACD  xNLSETQW*UjWERRSET  xERROR!ERRORASKUSER ERROR   xHELPASKUSER ERROR FOR HELP  xPE# PEEKC-,FILESTRINGP4B QDBAPEEKSTRING+7D+ 0D+ ,TYIPEEK`a,< "p/+ ,,8`j%,8,8",<+PEEKC NOT SUPPORTED FOR FILE XPFQREADC-,4B READSTRING! +7D+0D+ ,,8,8",QD READCH<!+ ,,8,8 ,8",<) 1+READC NOT SUPPORTED FOR FILE"READP-,Hb! 4B$ ++7D+&0D+(1Ng "++ ,+,8,8,,8ATKP",<+READP NOT SUPPORTED FOR FILE#( CLEARBUF-,1 c0B+6,<,< NwP!# p5N2 "+5 ,TYI$ Np"+0/+9 ,9,8,89,8",I:<+CLEARBUF NOT SUPPORTED FOR FILE$8,LISTGET-, ,8,87Bg+>[2D`+?Z[+AZZ Fg+;/,xP:PHPOSITION-,0B+Mzl$jU4BK"[ Z0J+E ,J,8,8P",CHARPOShT 0<&+PLINEL &CHRCT/'-, +P02 ,P,8,8Q,8",<+R.@POSITION NOT DEFINED FOR FILE'XBNCONC1*-,,8NCONSG:U( $,X*NCONC$)QCHCON1CHARGETCHARNW*U.U)***+ xFORMANDTYPEPLIST +,,+ -+ xCONDFASLOADU*U*USTRINGFASLDSKLIBLSPSTATTYORGETLINPUT-UPPERCASEEXPRW)#AUTOLOAD- ..//0.0//011 2 2320//0311  23.//03xREAD-PTR $3,8GET4,85BZ" # &3 $+ g-,PUTPROP4 B` ` 05N\ "+d gSTRINGLENGTH5 `3n+b%c &3 $5 g-,4 "+d(``Z ` gNTHCHAR6/,xpU $3@(@,84,85Bj &3 $+ g-,(4 B` `5Nl "+w g5 `Q3n+r &3 $5 g-,4 " +w.. &3-, $ g-,``]4 ` g6/,xeNCHARSDQ,84B{ `5+| `FLATC7t/,xhxPRINCF-,,8 D *-,*NOPOINT 84D0D+ @04B ,,8 gMAKE-ATOM8,8",PRINCD<9+ , ,8,8g",<9+ , @,8,8,8",<,,X-,0I:+PRINC NOT SUPPORTED FOR FILES9x}READF-,10B+ ,READ:+ ,,8`j%,8,8",<+READ OPTION NOT SUPPORTED FOR FILES; PI#PACK,8 $CONCAT "<*APPLY<8INTERN `Q=,8 " $-. gyEXPLODEN=QL READLIST>(+ [,8*NUMBERP@>4B" ` Jg g/,x8U@aASKUSERLSUBR-0,<,85,8!#,8 g1n+) gNREVERSE@ $+3..,< g/.2/`+/ g.( Z8-,+/ " gCONS@,\ Np *p Bg Jg+&//R .RASKUSER0 "A$<+p?#ASKUSERPRINCA7 xPSZ;ASKUSR 1 $RH;R,X7 $ "B$7 ?6PSZ;ASKUSR 2 $l *,X$70?9-,pOPTIONSLSTpCANSWER E"QDKEYDPROMPTSTRINGEOPTIONSENOECHOFLGFQ@UCONFIRMFLGF,<6Bg~+BYes NR@ o GGHHz~ MP Bg~+B g~-,,8 g}a-,,8 g|-,,<j-,}  ,86D+J * J+L 1B+L C+dASKUSERTTYSETUPI7Bgz+O "" Bgz+d!EC! ""4BR $ "I7 "#P  gy,0B-+]7Dgy+] $[gy71%Zgy Bgy4B[ $ "B7+` $ ? !D@ "J7+`7Dgy+` $ gy7@@gy!E4 ""4Bd $ "I7 "#7Bgy P +m,0B-+h6Dgy+j $ gy7 J!+m $B gy, $? "J7!@ "% Bg gx>4B7Dgx+ gxR(t0 "K*TIMESKFIXL Bgx7Dgx+yP *,0B-+w6Fgx+y gx-,b ( Bgx ""5B gxSUB1L BgxQDMINUSPM5B!.z.z,: "h/0RH0+y $... "M7[gx Bg}+D 6Bgz+ ,,8,8j",CURSORPOS<N HbB4B "5B * JI  @ Bg} 1B+ $+ g}* Nw "w  Bg}1n0+0.=+/.,<@ "p Bg}/@@gxDESCEND "N $P 0-. gs-,,8-,~ [g~ A BgASKUSERSETUPO g~,0B-+ 6Dg~+ `+M $p D6 Bgt3Bgt+E5B&6Dg~)Q+& gt?0BO+'+KFz+E(CASKUSERLOOKUPP bQ5B=KEYLSTPzo3P4B= gt gASKUSER1Q )&4B=,8DKEYSTRINGQz-GkeP $5D/ D,X*0 ( BD6DF+5Qz-GkeP $5D4 D@BC gv( Bgv7BE+9 $7 $ gv` ( BgvPzo3P . Bgp " $N NpH + gt 1BR+E1BB+E F ,1B-7F "4BK[ Z2Jgt+B 0 g Jg7B`+I*(XB( B`+K@*( B` Bg~Zg~ Bg~+ g~ Bgu a "/ $+ 5B7Dg~+RH  Dgy+K6FD+Z p=NZ6Hgx+Z g} P(21BB+X0BR+Z $7  +( g}1BR+c1BR+c1BB+c F ,1B-7F "4Bo[ Z2Jg}+`FQ &p g} gyASKUSER$S Bg}4BAADD1S$0  Np6Bgx+i  Zgy4Bo g} P)$1BR+m0BB+n $ "T7+  g}1BT+X6Hgx+0BO+  BFC%0B+ ,TERPRIU " $one of: !P b "U7 " $|-.  C gx `` gsASKUSEREXPLAINV(+ ,U gQP`ASKUSERINDENTV $C g, p g}1BB+>1BR @+> F,1B-7F $ g}5B> +Zgx Bgx4B[ Dg}+  (#4B "5B * JIZgx BgxF 4B[+  Bg}1BR+!0BB &"+&6DF+%Pzo3P5B$7g} "B $P$47+>1BT+X F,1B-7F "!)4B8[ Z2Jg}+)7BE+5Zz(,34PD! Bg}4B54B5[ Z2Jg}+/ $ E`!"7 $ g( Bg6BF+7 $ "BAJ!7+> g}1BO+< $? "Z7!RH1) "# $ [confirm] "[7+Pzo3PA@ Bg}4BB-, . Bgy Np+Xb$ ERETURN "[5BF C "[ Bg}  d4BRRETRY "\ $O-. " $M-.0F00 Zgp[*EVAL\(+ Bgw"B " $+ 5BQ7Dg}+Q[+W +X7DD+T*;+W ,W,8,8lH R",< D+h6Bgz+` $___ "] `7 "# g|-,@@g .@@DbC Bgy g NpV+ "#@@gz@@D g|-, g| `@@g Bgy Hgx JgyD 0 ,U+d,/l/,x@]ERASE]+? H:FSUBR@0,8,8 E[ B`4BrZH[+u C[g B`4BuZ[`/,x ^m,8,8,8,<hZ,8[,0B-+|[ g~5J}[g~0+~[g~[,86,8,8,80h[g~ Bg,0B-+6Dg+7gh[ BD g~,0B-+ 6Dg~+ +0,<-,8 $p D6 $p,8 g}"6,X1B(++ p2og~+ .@.np+ p/. Nw-, Zg} Bg~  Dg}//+ g3/g}++i&[g|OCOMPLETEON^z(kH`P B`4B4B'[  S Z2Jg}+ ,',8Qz-GkeP5B" D` ,8,8g| g}62Bg}7g} "_,8@B",<W B`6DF+*4B* $7 g @`++ "//,x 0 v0,8,8 $PZZ%,8-,~ [g~ Bg,0B-+56Dg+57g[  B` g~,0B-+96Dg~+:+J ` P(01BW+G1BR+G $+6 B`3Bg~+G 5BI g,0B-+I7Dg+IZ, @ 0B-+IZ4FI g~ gQ4BI g@0 Jg+JZg~ Bg~+1 g/,xXFA -,8,8,0B-+O6Dg+YD$ g-, BD@@E@@E $F C%` BF C "F B`4BXZ[+X!A " BF+mZ,0B-+\Z5FfDB[ FDZ HE@@E $F C% BF  C "F B`4BeZ[+e "@@ BF+m[ HDZ [ ( JEZZLJ2 BEFz'G!P BFFz+E(CP BF 1B DF+s4Bs "4Bs * JF@@E $ "/,x pLPSZ;ASKUSR 4 $,X$7XD x?t-,C,8,85Hz * J-,,8,87B`+)[,8D"-,DFFEEOPzo3J1)P,84BEXPLAINSTRING`zxZwP4B`zxZwPF( $ g~*APPEND`+ ,,8,8g}Tb#6DF+ Qz-GkeP5B D(,87DE (Q+*(+ ",8",APPEND<a  C $ `V+& $_ g~,2LC `zxZwP B`4B $7+#Qz-GkeH! P5B D B`4B#6DF+!1BR+! Pd1BW+! $77BE+# $7 " 00% $5Y5B& ,U,/0 `Z` B`+{/,X/.J:+ `(vTTYaz<9| INITIAL-TTY-STATUS BbERRLISTLH4Q bXz+lP@ Bb "2 "INPUT-ACTIVATEc%d4 "INPUT-ECHO"c +[b( $ X,8 0Zb[( $ X(,XX $a K#XSSTATUSd bXz+lP*DELETEd Bb,xX` 1,8 "% 2/`+@`A+< ? "/,x h<;