; S`QU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading TEACH 159   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071TEACH159VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS      xLOADGETU*]*UCARMACRO0AUTOLOAD!#%xFEATURETOPS-20PUTPROPPSU:U*uKMP.TEACHPPN')+xANDCOMPLRSPECIAL*NOVICE-FLAG*-/xBOUNDPu*]*W//xBASEIBASE13xNOTTIMELIBLSP!55xW+U*UGPRINT!77xPRINENDLINExNFORMAT-CTL-ONE-ARGDEFUNOBJARGSU*U.UAPPLYCOLON-FLAGGPRINTCGPRINT1LIST*STANDARD-OUTPUT!9;9=?  A!C=xGC-OVERFLOW-HANDLERSUBR .].W " ,xEAPROPOS!##xDATABASE!GGxERRHEL!$$xW+UjuERRHAN!IIxEXLIST!%%xCOMPLAIN!KKxIO!&&xLESSNu:].U!MMxMORE!''xRECORD!OOxTREEPR!((xIs this yoU*U.wur first time using Maclisp? Q)S*U+W,pYYxY xQUERYNOVICEP/+ ,8,8K<-!A@K5B/` "` ",xYlEW:]jw*SECOND-TIME-AROUND*-.x..x***-]x]]]x**-/x///xW:]jw+++-_x___x++-0x000x*DISPLAY-TERMINAL*-axaaxW:]jw*TERMINAL-HORIZONTAL-SIZE*-1x11x*TERMINAL-VERTICAL-SIZE*-cxccx*LESSONS-KNOWN*-2x22xU*U*UFILEMTYOCURSORPOSMEMQTTYSIZE MIN2FIND-TERMINAL-CHARACTERISTICS)A!e3zLq3g $g45B 7 " a)@@!izji4rgZca+ ,,8!![,8",ok B1+ "6 B1*U,x5E~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 (QUCIT)~2% 7o8q9s:u;w<y={>}?@WABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefWghijk7px xOUTPUTWELCOME-MESSAGE"l]*U*UdE/Sorry, these feature has not yet been implemented.~% mnopqr px xRECORDED-OUTPUTHELP ,@`KU,87K<s,xE1FRESH-LINECLEAR-SCREENU*U*U~&Hold on a sec while I set everything up forU;]*U you...~% uvwxyz px xINIT-USERSET-UP-PROT-FILELOAD-PROPS~&TheU*]nUre we are. Now then. }~zpx xBREAKLOOPTEACH-LISP-TOP-LEVEL1437B.`= ,t`I`l`mM4{`| "l` * J. "k]*UhE*RECURSIVE?*-xx+*-*CAN-FLUSH-MORE*U*U*RECORDED-READPRETURNCOMPLAINT-HANDLER*COMPLAINT-HANDLER**EVALRECORDED-PRINT-,D"  0_ /]-,D"]/_0 -, "  ,t , B+AP  +4,`6 +A[ Ha0B+AZ6 +AZZ  @15FA $@ * -,  Z[` ,+ ,  @1+T  * -, 2""A ` /] H/  " & -, , t,+ ,+ D ,,8  J,803 H0_`0`[ ",+5jU*UEKDSKTSXLISPSAVED-OBARRAYOBARRAYINITFLUSHU*UnuSSTATUSGCSUSPEND:KILL  px xDUMPP0LSUBR-0 4nY @ A1` zy2}- $a!-,1  " a! zWsCM9,S51 zMw{4r `'zFjJg , @ ` ,8,8j,8g",< /0u.W,xh=x*DATABASE-NEW-FILENAME*-xu;UnWx*DATABASE-OLD-FILENAME*-xx*DATABASE-TEMP-FILE*-xx*DATABASE-TEMP-FILENAME*-!xu!!xALPHA-NUMERIC? 1.+o;9+n P  " ` "+A+s1n-`7 @  " +a`1n=+v7 " 0.@1,xETEACH;TEACH 159_1. `4Bz `-,0*P,xEXPLODENIMPLODEALPHA-USERID@c] #,h%E{ITSU*U*UUSERIDHSNAMETDBFILESYSDEC20Unknown file syW;U*Ustem /1px xBUG_TEACHMERGEFTPROT*PROTOCOL-FILENAME*1S3'z~Z g4BzkYW4Rg`zkYW4RgLe)zjYYP3g-,1z <5v@ g %-,,X-,+zܑig @ P'`-,1z <5v@-,0BA,X-,+0B+-,2@`1-z {?-,,X-, + "`3 B-,1 F  $-, a5!-,1(@z <8zSu*`-,,X-,7,x_@E~;