;"M@(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading TEACH 159pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071TEACH159VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xLOADGETU*]*UCARMACRO0AUTOLOADxFEATURETOPS-20PUTPROPPSU:U*uKMP.TEACHPPN xANDCOMPLRSPECIAL*NOVICE-FLAG*xBOUNDPu*]*WxBASEIBASExNOTTIMELIBLSP xW+U*UGPRINT xPRINENDLINExNFORMAT-CTL-ONE-ARGDEFUNOBJARGSU*U.UAPPLYCOLON-FLAGGPRINTCGPRINT1LIST*STANDARD-OUTPUT   !!xGC-OVERFLOW-HANDLERSUBR .].W " ,x "APROPOS#  #xDATABASE#  #xERRHEL$  $xW+UjuERRHAN$  $xEXLIST%  %xCOMPLAIN%  %xIO&  &xLESSNu:].U&  &xMORE'  'xRECORD'  'xTREEPR(  (xIs this yoU*U.wur first time using Maclisp?())**++,p,,x, xU"QUERYNOVICEP7B+ ,,8,8",<- @%5B@b+ "+ ",x,X"W:]jw*SECOND-TIME-AROUND*.x..x***.x...x**/x///xW:]jw+++/x///x++0x000x*DISPLAY-TERMINAL*0x00xW:]jw*TERMINAL-HORIZONTAL-SIZE*1x11x*TERMINAL-VERTICAL-SIZE*1x11x*LESSONS-KNOWN*2x22xU*U*UFILEMTYOCURSORPOSMEMQTTYSIZE MIN2FIND-TERMINAL-CHARACTERISTICS)A!23z Lq3 $ "345B 7 " B0)@@!4zji4rZ D1,87F0+ ,,8!![,8,8",<5 B1+ "6 B1*U/,x5h"~2&Welcome to the woU*U*Underful world of TEACH-LISP. Just type forms U*U*Uat me and  I'll pretend I'm a real sp and deaU*U*Ul with them, except I'm nicer and occasionalU*U*Uly I can offer some assistance when Maclisp wU*U*Uould just snarl at you.  To get a list of tU*U*Uhe lessons I have available along with a shorU*U*Ut description of each, type  (LESSON) ToU*U*U start a particular lesson, type  (LESSON U*U*U) If you need further instructions, orU*U*U if this is your first time using this progrU*U*Uam, t INFO) To leave this program, ty (QUU;]*!IT)~2%778899::;;<<==>>??@@+AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ[[\\]]^^__``aabbccddeefVWWfgghhii[jjk7pkkxk xOUTPUTWELCOME-MESSAGE "k"l]*U*U H"Sorry, these feature has not yet been imU+]jPplemented.~%mmnnooppqqrprrxr xRECORDED-OUTPUTHELP ,@`KU,8,8",<s,xr8"FRESH-LINECLEAR-SCREENU*U*U~&Hold on a sec while I set everything up forU;]*U you...~%uuvvwwxxyyzpzzxz xINIT-USERSET-UP-PROT-FILELOAD-PROPS~&TheU*]nUre we are. Now then.|}}~~zpx xBREAKLOOPTEACH-LISP-TOP-LEVEL@b47B.+ ,t+$t "zl6M4{{| "ll * J. "k]*U""*RECURSIVE?*xx+*-*CAN-FLUSH-MORE*U*U*RECORDED-READPRETURNCOMPLAINT-HANDLER*COMPLAINT-HANDLER**EVALRECORDED-PRINT-,D"  0 /  /,8.-,D"p.//0 -, "  ,t , B7D+A2B  +4,+S(B{6 +A[ Ha0B+AZ(F{6 +AZZ  @15FA " $@-. * -,  Z[,+ ,  @1+T " $N-. * -, HD"  / J.  H/ B " $M "-. & -,  , t,+ ,+ D ,,8  J,80 g H0,X/`0/+- ",/+5jU*Ux"%DSKTSXLISPSAVED-OBARRAYOBARRAYINITFLUSHU*UnuSSTATUSGCSUSPEND:KILL   p  x xDUMPP0LSUBR-0,8 4nY Z( A1+Y zy2}-,8 $ "5B\ -,1 $ " 5B`  zWsCM9,2Lj1 zMw{4r  zFjJ4Be , @ +h ,h,8,8j,8g",< /0u.W,x P U  x*DATABASE-NEW-FILENAME*xu;UnWx*DATABASE-OLD-FILENAME*xx*DATABASE-TEMP-FILE*xx*DATABASE-TEMP-FILENAME*xuxALPHA-NUMERIC?,8 1.+o1n+ng P  " +o "5Bv1. +s1n-+r7 @  " 5Bv1.0+v1n=+v7 " /0.@1,x"jTEACH;TEACH 159_1. `4Bz `-,0*P/,x wEXPLODENIMPLODEALPHA-USERID,8@c] $,/"0"{ITSU*U*UUSERIDHSNAMETDBFILESYSDEC20Unknown file syW;U*Ustempx xBUG_TEACHMERGEFTPROT*PROTOCOL-FILENAME*)E&z~Z 4BzkYW4R+zkYW4RLe,8zjYYP3,8-,z <5v@,8 g %-,,X-, Bzo 94,8 @ P0B+ g-,z <5v@,8 g~-,0BA,X-,+0B+ g-,2@`z <5v?,8 g~-,,X-, + "/ B g-, F  $-,  B,X-,(@z <8zSu*`-,,X-, B,x_@0"~;