;"M@(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading LESSN 129pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071LESSN129VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xFEATURETOPS-20U*U.UPUTPROPSTUDNTPSKMP.TEACHPPNTEACHxBASEW*U.WIBASExANDCOMPLRSPECIAL*DISALLOW-INTERRUPTS*xBOUNDPxW:]jw*LESSON-FILE*xx*LESSON-NAME*xx*LESSON-EXIT-HANDLER*xxW:U*U*LESSON-INFORMATION*xxCLEAR-INPUTUser typed ~@:C (~S).~%w:U*Upx xABORT-LESSON-HANDLERPROGRAM-RECORDNOINTERRUPTCOMPLAINT-HANDLER*COMPLAINT-HANDLER**CAN-FLUSH-MORE*U*U*UABORT-LESSON**PRINT*TERPRICOMPLAIN*IN-MORE-BREAK*~2&Don't type ~U*]nU@:C when I'm busy~2%#$$%%&&p''x' xRECORDED-OUTPUTSUBRD,8 ,,8,8,8g,8",<P $6B+ * -,  " "b $-. ( -, " $ #-. & -,  ,@d+ ,+ "!!"@b@07B+ ,"+ ",+P"7D#+ "+ ,,8,8,8g",D]<'/,x'X(READ-LESSON-SECTION-HANDLERP READ-LESSON-SECTION,8 ,",8,89,8g,8:",b!<6B+3 * -,  " AH " $.-. ( -, " b $--. & -, ),0 !+ ,+ "!!"7B+2 ,"+2 ", +87D#+5 "+8 ,8,8,8:,8gA@D%",<'/,x('(UbREAD-PREVIOUS-LESSON-SECTION-HANDLERREAD-PREVIOUS-LESSON-SECTION,8 ,?,8,8W,8g,8WH(",<6B+Q * -,  " @1 " $K-. ( -, AH " $J-. & -, *@`2,+ ,+ "!H 1 !"7B+O ,"+P ",0H(+V7D#+S "+V ,V,8,8X ",8g",<'/,x)']((;REPEAT-LESSON-SECTION-HANDLERREPEAT-LESSON-SECTION,8 ,],8,8t,8g B@1,8u",<6B+n * -, !P d " " $i-. ( -, @1 " $h-. & -,  +,+ ,+ !LB "!!"7B+m ,"+m "BA,+s7D#+p "+s ,s,8``",8u,8g",<'/,x*%j]*u'((XFLUSH-MACROMEMOSCATCH-LESSON-EXIT+,+xCATCH-LESSON-EXIT MACROMACRO,,-xMACROFETCHU*@1LETLESSON-EXIT-HANDLER*CATCHMACROMEMO,8-5BZ`,8`AH Dg zN9:3-, $.-,-,(d.z @[#-, $/-, &, $,X$ //,xH(vEXIT-LESSON $. "+5kUjU (LESSON-FUNCTION+0+xLESSON-FUNCTION MACRO01-xLENGTHWrong number args for macroERRORP 0GET,8-5B `11N+ ,@(,8,8,8g",<2Z`[0z )>Cb-,2H $3-, &0 $ `//0uju,x2(DEFINE-LESSON-FUNCTION+3+xDEFINE-LESSON-FUNCTION MACRO34-xDEFUND,8-5B `10.+ ,,8`,8!,8g",<2Z`[Z[Z @ ,80z wS}3,X-, $(,8 "-,0H ,X-, $4-, &3 $A@KU `//,x2@(READ-OPTIONAL-LABELFILEPOSP`ADD-LESSON-INFORMATION,8 5,8 ,&,8,8",@<5,8-, g-, g-,1DZ-,XC/,x`(!Uw*MEMQTEACH;LESSN 129_1.*$6p(+ASSGET-LESSON-INFORMATION &*!l "7&7(,,8,8,8 "-,,87@`+7[`[ gEg~4B6[`(+8Z` B`+1 "/,xx( .Q@:GET-OPTIONAL-LABEL8Z[,x(9GET-NAMEZ[h U,x(;GET-POSITION-, ,x(<TYIPEEKU*@`MEMBERREADTYI-,~,8 ,A,8,8,8",<: Nw *w,8 `T1N+Q:;z g$f `;5BI ,I,8,8gD ",<<+Q ,L,8,8g",<< ,O0,8,8,8g~",<: Np "p B` @+C "/,8 ,U,8,8 ,8g~",<: Nw~ *w~,8 `0N+[ ,[,8,8g~",<<+c ,^,8,8g~D`",<< ,a,8,8,8g~",<: ` Nw "w B`+W/,X/u*U/,xP(=ITS*ITS-LIST-OF-LIST-OF-LESSONS-FILENAMES*CADDR*LESSONS-KNOWN*MAPALLFILESU*U*U*TOPS-20-LIST-OF-LESSONS-FILENAME*PROBEFINASCIIDSKFILEPSFASFAPCLOSEU*U%+INTERNAL-WITHOUT-INTERRUPTSOPEN*APPLYSYSREADSORTGET-LIST-OF-LESSONS=z~Z 4BiL$1( = >>z Wc|?+ ?@4B@AAz" R2-,1@`0 ?-,-,,8,8-.+u g|B5BsBzFU4BtD g|C4Bt g|C,x * -,C DZgy,8gy Dgy[` "DE/ , Bgy ,},8,8",<E-.0$B/+ B> $ >F B>jU 2,xh(e*DEFAULT-LESSON-FILENAME*MERGEFDEFAULTFFULL-LESSON-NAME-, $!d;U-, GG H$G (unknoU*U*Uwn lesson command requested in ~   findU*U*w-special-function-in-file: ~S~%IJJKKLLMMNNOOPPQQpRRxu*@R xQUIET-BUGREADLINEFIND-SPECIAL-FUNCTION-IN-FILE,8,8 , ,8,8@ `0",<5,8,8>,<,<-.0@"+7@g|+ ,,8,8g{,8g{",P0<5+ ",x ,,8,8,8gw ,8?",<: Nw *w,8 `8N; `D0N+ ,,8,8gw",<<+50N@1+0 ,,8,8gw",<< ,",8,8gw@C",<E,82Bgw+- $03,84B) ,(,8,8gv",<5/+; ,,@,8,8?,8gu",<R/+; ,/`a,8,8gw",<S/+5 ,3,8 ,8gw",<S,85B5/+;/0@  ,9,8,8,8gw,8@",<:( Np "p B`+ "/@@gy-.0 "//,x IR%jU*UI 8(DOCUMENTLESSON-DESCRIPTIONOops... thought i had a lU*U*Uesson here. Please report this by sending mU*]nQail to BUG-XTEACH.UUVVWWXXYYZZ[[\\]] p^^x^ xSET-UP-LESSON-DESCRIPTIONS,8>@ 7@`+d[`,8H,8@4B`@AAz" R2 -, `-,-,,8 1),8-.+O g|B5BNBzFU 0 4BO g|C4BO g|C,x * -,1 DZgy,8gy Dgy[` "DE/0C, Bgy $ "TS4B\ ,Zh,8,8gx",<S &T $ gx+^ ``0 &T gx "-./+b"`` &T $^ g/Z` B`+A $ "/,x h(@DESCRIBE-LESSON $T$3 p(eU*U*W~&You're not in the middle of a lesson._``aabbcpw(Bccxc xIN-LESSON?6B+j ,j,8,8k",P :u<"+k ",xc @(fLESSON+d+xLESSON MACROubde-x*LESSON,8-5B~ `11n+r0 ,r,8,8,8g",<2Z`,8P,84Bv * [ Jg,87@g+{-,2@d $-,-, $e-, @+| ,e/ &d $ `/*U/,x2 P(lYou're already in leU*U*U~A.~   ~%Shall I startnew one for youU;]*U anyway?ffggJhhiijjakkllmpmmxm xQUERYKILL-LESSONWant to goU*]nU on with l ~A now?ooppWqqprrxr xFRESH-LINEU*U.wa menu of available lessons?osttuuvpvvxv xU*U*U~&Ok, lesson ~A's still around waiting for yoW;U.wu.~%wwxxyyzz{{p||x| xOUTPUTOPEN-LESSONwwxxyyzz{{p}}x} xP0LSUBR-0,8 4n Z( @+ ",8,84n * Jg * B-, 7D+7@g+ , ,8 b1,8C,8",<n4Bn ,,8,8gDB ",<e+A7B+5 ,,8,8C,8E ",<n4B " $-. * -,1  ,,8,8D",<s),0"+ +4 ,,8,8D",<n  @14B1 " $0-. * -,  ,8E-.+*7@g|+) ,(,8,8E (,8",<|+) ",x ,}@@gyB-./ ,/,8,8F",<s ),+ +4 ,4,8,8F A,8",<| "!+A " $A-. @ * -, 7@gy+< ,;,8,8gyD",<}+= ,} ,?,8,8G",A@d<s),+ "!,D"/,xmrrv |"u.Ur}r X~ARGS~er x~2&I'm sorU*U*wry, I can find no leby the name ~A.Jpxu*Unu xCLEAR-SCREENStarting l ~A.Wpx xSTART-LESSON@b,8H,8@5BM ,M,8,8Y,8g~LB1",<"7B+On ,R,8,8g @b,8Y",<D B-, B g-,1 B ,X,8,8Z,8g~",</0 :U,x@p(GMenu of availabU;]*Ule lessons  p  x xACTIVE-MENU~&NIL is not a U*U*Uvalidon! If you want a menu of ns, type "U;\(LESSON)"~    w  MiuQ px x-0,8  04n^ Z(+^ ,8,8 4na * Jg6@g+j ,f,8,8>,8o@`,8o,8p",< ,85Bh ,"+i " "/+n5Bm ,m,8,8p",L "<"+n/,x_ %zU P~Z~}r xTAGTRYTRIMMED-LESSON-INFORMATION,8 $zQIn :U8,X6Z,x8(qSET-LESSON-SECTION-TOe at the bU*Unqeginning of this sessonfpx xd@ 0 Z,8 $zQIn8,84Bz@ 00+} ,},8,8~",<"/,x%jU*U0(uThere isn't a section before this oW;F#nepx xdZ,8L1 $zQIn8,84B+ ,,8 X,8",<"/,x (~,8` , ,8,89,8",<5 ,XD;P6[-, B )@(TEACH;LESSN 129_2.+5jU.wP( a leat the moment.~_``JQpx xU+]jURestart le~A?  J!p!!x! x a new lesson?w;]j""#p##x# x  p$$x$ xWANT-LESSON? ,,8 B,8"",<'7B+ ,,8,8",8D ",<n4B ,,8,8",<e+! ,,8,8#",<n4B! ,!,8,8>D",8#,8$,8$",< ,x!#"u*we$H(Killing le~A.%%J&p&&xq $1& x B5B( C4B) C@2 ,,,8,8-,8",<@b,x&]*U.w h(%~&Lesson ~A aborted.~%''(()p))x) xD dn ,1,8,82,8",<|,x%jU*U)(-Would you care to have le~A reed?w:F **++,J,j-p--x- xEND-OF-LESSON-FILEn ,6,8,89,8D ",<n4B9 ,9,8,8",<e,x%k]*U-`(2*MUZZLED*.x..xwarpoon command encoU+]jwuntered: ~S~%/w/00112p22x2 x~&~A~3Qp33xpD3 x-,.6B+I " $H-.2DA * -,  " $G-. H2 ( -, ". $F-. & ``0-,$,+ ,0  + ,+ + " b $ -. * -, " $  !-. ( -, ,Q,8,8@ a",<5,8,8-.+Y7@g|+X1 ,W,8,8,8g{",<5+X ",x A@`2 ". $ -. ,<,< *  -,  ,`,8,8,8,8@",<: Nw *w,8 `9Nd.+  `0N+h ,h,8,8",<<+D0N+x ,l,8,8",<< ,n,8 0,8",<E,8 $03,84Br@@ +w ,u,8,8,8g~",<R ,w,8 ,8",<S/+ ,{,8,8@& ",<S,85B}./+6D.@ + ,,8,8,8",<|/D ,,8,8,8,8",<: Np`0 "p B`+b "//,0`0+ @@gy-./,0 + ,+ +" :W I23I(:IFIF LESSON-FUNCTION440xP@@3*EVAL ,,8,8",<<56@g!u. " B.,xH(END-IFEND-IF LESSON-FUNCTION560x@b.,x]+B`(EVALEVAL LESSON-FUNCTION670x ,,8,8",<<{]nu"5p(3Qp77x7 x3Qp88x8 xREAD-VERBOSELY@0,8 ,,8,8",<5,8 , ,8 ,8g",<<,8 ,#,8,8g~",<S ,%,8,8g~",<5,8 ,),8,8g~ 0,8g~",<5 ,,,8,8g~,8","<S,87@`+1 ,0,8,8g}",<5 3/g+77@`+6 ,5,8,8@,8gE",<|+6 "+> ,:,8,8@,8gD",<| ,=,8,8g},8",<SA@ B`+,/ g/,x7%j\#8(EVAL-PRINTEVAL-PRINT LESSON-FUNCTION990x 8"5(AU8G:uPPPP LESSON-FUNCTION::0x "8((BTRY LESSON-FUNCTION;0x~2&YoU*U*wu try now. To continue, type ^N.~%;<<==>>?p??xr ? x "6 ,G,8,8G",<' 0%j]*U?0(CPAUSEPAUSE LESSON-FUNCTION@@0x~2&To continue, typeW;H1 ^N.~AABBCQpCCxC x "@6 ,K,8,8LM.!",<' 0C(HTAG LESSON-FUNCTIOND0x "6 .Ua ",x@(LCOMMENTCOMMENT LESSON-FUNCTIONDE0x ,Q,8,8P.",<S ",xP(NDOCUMENT LESSON-FUNCTIONTE0x ,T,8 :W,8",<S ",xX(REOFEOF LESSON-FUNCTIONFF0xQu.ULESSON-HAS-BEEN-SEEN "Gh(UNEXTNEXT LESSON-FUNCTIONGH0xLesson ~A U*U*Wis finished. Would you care to proceed?HIIJJKKLLMpw*U.wMMxM xGET-APROPRIATE-NEXT-LESSONto retry l ~A?**+NOWOpPPxP xD G ,Z,8,8",<E,8n@1 ,^,8,8g,8",<n4B` `N@$+f ,c,8,8g,8",<n4Bf ,f`c",8,8",<e/ 0MP]*U*U(V~&I've no~@[~* further~] suggestions forW;U*U you.PQQRRSSTT)pUUxU xGET-A-NEW-LESSONSEEN-LESSON?The next recommU*U*Uendedon is ~A. Do you ~   wish to try thW;T0at?VWWXwXYYZZi[[\\p]]x] xGET-NEXT-NEXT-LESSON,8-,,80",86@`+o ,n,8,8|,8g~",D<|U+{ `V5Bx ,s,8,8} ",8g",<n4Bw ,v,8,8g",<e D4+wU+{ g `] * B` JgKU+j/,xU]`(h~2&The nexU*U*Ut recommended l~@[~* after that~] is ~S, ~%U*U*Ubut you've already seen it...~  ~%Hold onU*U*U while I try to think of some other suggestiU;\on...~2%^^__`W`aabbMccddeeffgghhiijjkkllmpmmxm x,8,8 ,,8,8,8,8",<| gH,8@ A@4B@AAz" R2-, `-,-, ,8,8-.+ g|B5B )DBzFU4B g|C4B g|C,x @ * -, DZgy,8gy Dgy[` "D !E/, Bgy $ "GS@14B ,,8,8gx",<E+-. ]/+/,xmX(}TEACH;LESSN 129_3..U*U+`(~2&Here is a list ofons to choU;]npose from:~noopwpqqrQprrxr x  pssxs x , @b,8,8$",<| ,$,8,8>,8%,8% D%,8&",< ,xrnesX(U:U*UREQUIREDREQUIRED LESSON-FUNCTIONst0xBefore you start lesS you realU*U*Uly should know ~ ~%about what is in L ~S.w:U*Wtuuv'vwwxxyyzz{W{ p||x| xShould I start it fo?|}}~l~pw*U*Ux xis gonna be reasonable and do the pU+]jUrereq firstpx xuser is a turkeU*U.wy and is ignoring the prereq. p  x xU*U*w but don't say i didn't warn you...w       mp  xp@@0 x ,),8,8",<<,8V5B<@ ,.,8,8>,8,8g~",<' ,0,8 &,8>",<n4B7n ,4,8,8?",@1< ,6,8,8g",<e+< ,9,8 ,8?",< ,<,8,8@",<|+= D" "/,x|  _@@(&;