;"M@(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading ERRHEL 37pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071ERRHEL37VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xFEATURETOPS-20U*U.UPUTPROPSTUDNTPSKMP.TEACHPPNTEACHxBASEW*UnuIBASEx*CAN-FLUSH-MORE*~2&~A~2&px xOUTPUTU+]jP~&[~D] ~Apx xPRINT-MENUSUBR,8 `2,8,8 " $-. ,< * -, 7@gy+ , ,8,8,8gx@ ",< gx-,,8,87@`+ ,,8,8,8g~[g~Cgw,8",< g.. Np "pZ` Bg D`+ "@`0//,+ /0 :U,x  Menu~@[ (~A)~] W;U*U...px xPROGRAM-RECORDLENGTH~2&Option (? giU+]jUves help):  !p!!x! xTYIOVER-RUBOUTRECORDED-SYSREADU;]*UCLEAR-INPUT~&$p$$x$ xFORMAT?~2&Type anU*U*U integer (0-~D) to get an entry,~   ~%U*U*U MENU for the menu,~  ~% ? to see thiU*U.ws again~  or NIL to quit.&&''(())**++,,--..//00*+1122p33x3 xU*U*UMENUType NIL to exit or an integer (0-~D) toU*]nU select a menu item.445566778899p::x: xNTHSelecU+]jted ~S = ~S;;<<p==x= xLSUBR-0 ,8,< Z(,8Z(,8@ g1n+ Z(+ ",8 ,$,8`,8\,8",< g ` g gd Np *p,8,8 " $Z-.2D * -,  ,.,8,8]",@B< ,1,8,8",8]",<# Bgy "@"# ,6,8,8^,8^",<%6@gy+8B,-, +Z gy0B"+:+Y D0B%+A ,@,8,8_ gx/.,< *p ,8",</+Y0B3+E gx  gx gw+Y(B{ anb+K@ gy(N{ 8an+K gy4.K3/gy@ +Q ,P,8,8_ gx/.,< *p,8AB",</+Y gw gy:,8 ,W,8,8`,8gx,8",<,X,0 `0-, +[,+ +)  " "//,x!"" :U $3:=8=ARGSut>3>? xCHOICEbx`ACTIVE-MENU-LOOP-0,8 0Z(,8Z(,8Z(,8 g~1n+hZ(+h ",8 ,l,8,8g~,8g~ ,8",<3,87@`+t g `? ,s,8,8g},8g},8g~",<3 B`+m .P "/,x=a>@?@ xACTIVE-MENU-00@,8 Z(,8Z(,8Z( ,8 g~1n+|Z(+} ",8 ,0,8,8g~,8g~,8",<3,84B gjP?/,x=u>A?@ xERROR-DESC-ERROR-HANDLEDPRINT-ERROR-DESC,8 A,84B ,,8,8",</0.U*U,x *ERRORS-HANDLED*SHORT-DESC-ERROR-HANDLEDMenu of error descriU;]!ptionsCDDEEFpFFxF xDESCRIBE-ERROR , ,8,8BD",8,8,8",<@,xCBF]*U*Up LISTIFYLONG-DESC-ERROR-HANDLEDEXPLAIN?LEXPR-FUNCALLEXPLANATION-HAS-BEEN-SEENEXPLAIN got badU;]* arg of ~SJJKKLpLLxL xBUGEXPLAIN-0,8 Z(,8 g1n+ .`a /g,< "pG/+ ",8@ 1 gH,84B gH4B ,,8,8$,8g,8g~",<I gI+# ,#@,8,8%,8g~",<M/,x%j]*UL X=>MNN xGLOBAL-EXPLANATIONQUERYPROPQUERY-EXPLAIN@,8 ,,,8,8 ,*,8,82,83",`A<P,8",<P,80BO+/ gPHb@0+14B1 "#73 "/,x"u*UOO %Would you like help with W;U*U~A?QQRRSSpTTxT xDo you already know aboutW;T ~A?TUUVVWpWWxW xSET-PROP,8 "# ,9@` ,8,8D gC,8",<O4B; " @ 0+C ,?,8,8D gC,8",<O 0 4BB `I $ `Xg "/0*U,xTW 4*RSETEVALFRAMEINTERESTING-STACK-FRAME?PRINLEVELU*U*WPRINLENGTH*EVAL~&In a top-level evaluation, [\\]]^pw*U*U^^x^ xRECORDED-OUTPUT~&While in the function ~S, w:D_``aabpbbxb xFIND-ERROR-CONTEXT X4B\ "Y4B\!@A "Y,86@`+K " +P `YB4BNZ`-, +PZ`[Y B`@1+I/,84B[ *?-, Z  Z0B[+X ,W,8,8\",<_+[00 ,[,8,8],8",<_,/0*u,x^b 0EFLUSH-MACROMEMOSERROR-REPORTERcdcxERROR-REPORTER MACROW*U*MACROddexMACROFETCHWrong number args for macroERRORGETMACROMEMO,8e 5Bi `1N+d ,d,8,8j,8g@  ",<fZ`[dz L<=$-, $g-,2 &d $ `g/,xf]*@` H]SYSTEMFSUBRGETL-, ,8(B{7 0P +n "+{[`,8 $dg5Bz@  `4Ns(N{ 8an+z `-,2@d $-,-, $h-,T 4Bzhez * %( `i4Bzg " /0$!/,x jDECLARE-ERROR-REPORTER &d $ &_+Uju |ifxCERRORijxFERRORijx+INTERNAL-UDF-BREAKikx+INTERNAL-UBV-BREAKu:].Wikx+INTERNAL-WTA-BREAKilx+INTERNAL-UGT-BREAKilx+INTERNAL-WNA-BREAKimx+INTERNAL-FAC-BREAKimxW;^+INTERNAL-IOL-BREAKinxicxiYx;