; S`QU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading LESSN 129   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071LESSN129VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS      xFEATURETOPS-20U*U.UPUTPROPSTUDNTPSKMP.TEACHPPNTEACH!#%'%xBASEW*U.WIBASE))xANDCOMPLRSPECIAL*DISALLOW-INTERRUPTS*+-xBOUNDP/xW:]jw*LESSON-FILE*+-x/x*LESSON-NAME*+-1x/11x*LESSON-EXIT-HANDLER*+-x/xW:U*U*LESSON-INFORMATION*+-3x/33xCLEAR-INPUTUser typed ~@:C (~S).~%w:U*U 579px 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% G$I%K&Mp''x' xRECORDED-OUTPUTSUBR1,8 ,8,8,8g9K<P $6B+ * -,  "`= "@bA ! ( -,? "  # & -, `A,``d3+ ,+ "!`C"1@a?`) ,gE+ ",+P"7D#+ "+ ,,8,8,8g",D]oO,x;'X(READ-LESSON-SECTION-HANDLERP READ-LESSON-SECTION,8 ,",8s,8g,8:K!@bC<6B`g * -,  "`= AH " $. ( -,? " b $- & -, ),C+ ,+ "!`C"?+2 ,gE`e ", `q7D#`k "`q q,8u,8g0`DK",oO,xQ'( ;1READ-PREVIOUS-LESSON-SECTION-HANDLERREAD-PREVIOUS-LESSON-SECTION,8 ,8,8W,8gH(K<6B+Q * -,  " @1`= "  ( -,?d# "  & -, *@`2,+ ,+ "!H 1 `C"?` ,gE+P ",+V7D#+S "+V ,V,8,8X ",8g",oO,xS']((;REPEAT-LESSON-SECTION-HANDLERREPEAT-LESSON-SECTION,8 ,],8,8g B@1,8uK<6B` * -, !P d "`= " $i ( -, @1? " $h & -,  +,+ ,+ !LB "!`C"?+m ,gE` "BA,`7D#` "` ,8``",8g",oO,xU%j]*u'(( FLUSH-MACROMEMOSCATCH-LESSON-EXITW,WxCATCH-LESSON-EXIT MACROMACRO,Y-xMACROFETCHU*@1LETLESSON-EXIT-HANDLER*CATCHMACROMEMO`[Z`,8`AH3 zN9:3-,3 $.-,-,1(d]z @[#-, $/-, &, $$ a_,xH(vEXIT-LESSON ] "`5kUjU (LESSON-FUNCTIONWaWxLESSON-FUNCTION MACROa1-xLENGTHWrong number args for macroERROR0GET`[ `c1N` @(,8,8g",oeZ`[az )>Cb-,2H $3-, a $ `a_0uju,x2(DEFINE-LESSON-FUNCTIONWgWxDEFINE-LESSON-FUNCTION MACROg4-xDEFUND`[5B `c `+ +,8`,8!,8g",oeZ`[Z[Z @ ,8az g-, $( "-,0H ,X-, i-, g $A@KU `a_,x2@(READ-OPTIONAL-LABELFILEPOSP`ADD-LESSON-INFORMATION 5 ,&,8,8K@ok-,13-, g-, b 7A@3-,3,x`(CUw*MEMQTEACH;LESSN 129_1.Aimp(WASSGET-LESSON-INFORMATION &A!l "7io( Y,8 "-,7@``o[`[ gqs4B6[` +8Z` B``c "/,xx(]Q@:GET-OPTIONAL-LABEL8Z[,x(9GET-NAMEZ[h U,x(;GET-POSITION-, ,x(yTYIPEEKU*@` MEMBERREADTYI-,~ ,8,8",<:  `T3 +Qu;z g$f `aw ,I,8,8g11K<<` ,L,8,8gKy ,O0,8,83",<: Np "p B` @+C " ,8,83",<:  ` ` ,[,83Koy+c ,^,831`Ky ,a,8,8,8g~",<: ` Nw "w B`+Wu*U/,xP({ITS*ITS-LIST-OF-LIST-OF-LESSONS-FILENAMES*CADDR*LESSONS-KNOWN*MAPALLFILESU*U*U*TOPS-20-LIST-OF-LESSONS-FILENAME*PROBEFINASCIIDSKFILEPSFASFAPCLOSE1+INTERNAL-WITHOUT-INTERRUPTSOPEN*APPLYSYSREADSORTGET-LIST-OF-LESSONS=z~Z g4BiL$1({>}z Wc|?`@4BAz" R2-,1@`01-,-,1,8a1-.9+u g|BzFUgD g|C g|`,x * -,C DAs3 Dgy[`E , Bgy ,8Ko-.0$B/+} $ }F}jU 2,xh(*DEFAULT-LESSON-FILENAME*MERGEFDEFAULTFFULL-LESSON-NAME-, $!d;U-, Ga Hi (unknoU*U*Uwn lesson command requested in ~   findU*U*w-special-function-in-file: ~S~% JKLMNOPQpRRxu*@R xQUIET-BUGREADLINEFIND-SPECIAL-FUNCTION-IN-FILE,8 , ,8,8@ `0Kok},<,<-.0@"9`#3`! ,,8,8g{,8g{",P0ok+ ",x ,,8,83 ,8?K<:  `8N; `D0N+ 7,83Ky`k0N@1`a ?,83Ky ,",830CKo2Bgw+- a34B) ,(,83Kok/`w ,,,83",o/+; _`a,8,8gwK<S`k ,3,8 3K<S5B5+; ,9,8,8,8gw,8@K<:( Np "p B``- "3-.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. UVWXYZ[\] p^^x^ xSET-UP-LESSON-DESCRIPTIONS}7@`+d[``@4B`Az" R2 -,1 `-,-,1,81S-.9` g|B5BNzFUg 0 4BO g|C4BO g|`,x * -,1 DAs3 Dgy[`EC, Bgy $ "Ta ,Z41,83K<S $ gx`0`a gx "-./+b@0` $^/Z` B`+A ; ",x h(DESCRIBE-LESSON $3 p(U*U*W~&You're not in the middle of a lesson. `abcpw(Bx xIN-LESSON?6B` ,j,8KP :uoE+k ",x @(LESSONWWxLESSON MACRO1e-x*LESSON`[ `c1n`0 ,8,8g",oeZ`,8P4Bv * [7@g+{-,2@d1 $-,-,1 -,@+| ,g $ `a_*U,x2 P(lYou're already in leU*U*U~A.~  ~%Shall I startnew one for youU;]*U anyway? fghijaklmpx xQUERYKILL-LESSONWant to goU*]nU on with l ~A now? opqprrxr xFRESH-LINEU*U.wa menu of available lessons? otuvpx xU*U*U~&Ok, lesson ~A's still around waiting for yoW;U.wu.~% wxyz{p||x| xOUTPUTOPEN-LESSON wxyz{px xP0LSUBR-0  @ @+ ",8 *  * B-, 7D+3+ ,,8 b1,8C1",<n4B` !,83DB Ko`7B+5 ,,81E ",<n4B " 9 * -,1? ,,8,8DK<s),+ +4 ?,8K<n  @14B1 " a * -,?,8E-.9+*3+) Q,8 (1",o`S ",x ,}3`a-. ,/,8,8FK<s),+ +4 ,4,8A1",o "!` " $A @ * -,?7@gy+< w,8,8gyDK<}+= ,} ,8,8GKA@d<s),+ "!,D",xr |"u.U X~ARGSx~2&I'm sorU*U*wry, I can find no leby the name ~A. pxu*Unu xCLEAR-SCREENStarting l ~A.  p  x xSTART-LESSON@b`@5BM ,M,8,8Y3LB1",oE` 7B+O` ,R,83 @b",o B-,13-,11 ,X,8,8Z3",</0 :U,x p(Menu 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)"~   Mi!#px x-0  04n^ @`1,8@!4na * 3+j ,f,8},8o01,8p",o ,gE+i " "+n ,m,8KL "oE+n,x_ P~}xTAGTRYTRIMMED-LESSON-INFORMATION $%zQIn :U8,XamZ,x8(qSET-LESSON-SECTION-TOe at the beginning of this sesson f)+-/px xd00@3`' $%zQIn8@ 00+} ,},8,8~KoE/,x%jU*U0(uThere isn't a section before this oW;F#ne 1357p99x9 xd@3`'`'L1 $%zQIn8 + ,,8 X,8KoE/,x9 (` ,8,8`s",ok3D;Pama@3-,3 )@(TEACH;LESSN 129_2.+5jU.w P( a leat the moment.~ `;= p??x? xU+]jURestart le~A?  A!pCCxC x a new lesson?w;]j "E#pGGxG x  p$$x$ xWANT-LESSON? ,,8 B,8"KoO1`5 ,,8E1 1",<n5 ,,81Ko`C ,,8,8#K<nC C,8}D"G,8$I",o,x?CG"u*w$H(!Killing le~A. %K&pMMx#1#M x B5B( C4B) `@2 ,,,8,8-1",<@b,xM]*U.wh(%~&Lesson ~A aborted.~% 'O(Q)pSSxS xD d` c,8,821",o,x%jU*US([Would you care to have le~A reed?w:F *U+W,Y- p[[x[ xEND-OF-LESSON-FILE` ,6,8s1D ",<n4B9 ,9,81Ko,x%k]*U[`(e*MUZZLED*+-]x/]]xwarpoon command encoU+]jwuntered: ~S~% /_0a1c2peexe x~&~A~ 3pggxpDg x-,]6B+I " 2DA * -,? "  H2 ( -, ]  & ``0-,`I,+ ,0  + ,+ ` " @bA  * -, "  ! ( -,? ,8,80aKok,8-.9+Y3+X1 ,8,8,8g{",ok` ",x A@`2] $ ,<,< * b!-,  ,8,8,801K<:  `9Nd.+ 1 `0N` ,h,8,8Ky+D0N` ,l,8,8Ky ,8 0,8Ko a34Br@@ ` ,u,8,83",o ,8 ,8K<S/+ ,{,8,8@& K<S.`]@ ` ,8",oD  ,8,8,8,8K<: Np`0 "p B`+b "/,0`0+ 3-./,0 + ,+ +" :W IegI(:IFIF LESSON-FUNCTION4iaxP@@3*EVAL ,,8,8K<<5!u. " ],xH(!END-IFEND-IF LESSON-FUNCTIONk6ax],x`(EVALEVAL LESSON-FUNCTIONm7ax 3,8,8K<<{]nu"5p( 3pooxo x 3p88x8 xREAD-VERBOSELY@0 ,,8Kok , ,8,8gK<< ,#,83K<S K,83Kok ,),8,8g~ 0,8g~",ok ,,,8,8g~,8",<S7@``c ,0,83Kok k+77@`+6 k,8,8@,8gE",o`m "+> ,:,8,8g1",o ,=,83,8",<SA@ B``Y/,xo#;8(EVAL-PRINTEVAL-PRINT LESSON-FUNCTION9sax `q"5(AU8G:uPPPP LESSON-FUNCTION:uax hq((TRY LESSON-FUNCTION;ax~2&YoU*U*wu try now. To continue, type ^N.~% w<y={>}?pxC3 x "6 ,G,8KoO 0%j]*U0(PAUSEPAUSE LESSON-FUNCTION@ax~2&To continue, type1 ^N.~ ABCpx x "@6 ,8,8L3KCKoO 0(HTAG LESSON-FUNCTION%Dax%6 .Ua ",x@(COMMENTCOMMENT LESSON-FUNCTIONEax ,Q,8,8P.K<S ",xP(DOCUMENT LESSON-FUNCTIONTax ,8:W,8K<S ",xX(REOFEOF LESSON-FUNCTIONFaxQu.ULESSON-HAS-BEEN-SEEN1"Gh(NEXTNEXT LESSON-FUNCTIONHaxLesson ~A U*U*Wis finished. Would you care to proceed? IJKLMpw*U.wx xGET-APROPRIATE-NEXT-LESSONto retry l ~A? *U+OpPPxP x11G ,Z,8,8Ko` 1 ,^,8,8g1",<n4B` `N+f ,c,81",<n4Bf ,f`c",81Ko 0P]*U*U(~&I've no~@[~* further~] suggestions forW;U*U you. QRST)pUUxU xGET-A-NEW-LESSONSEEN-LESSON?The next recommU*U*Uendedon is ~A. Do you ~   wish to try thW;T0at? WXYZi[\p]]x] xGET-NEXT-NEXT-LESSON-,,80"6@`+o ,n,83",1o`` `V5Bx ,8,8},8g",<n4Bw ,83Ko D4```3 `a * B`KU+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% ^_`abMcdefghijklm!px x,8 ,,89,8Ko`@ A@7Az" R2-,1 `-,-,1`1,8-.9+ g|B)DzFUg g|C g|`,x @ * -, DAs3 Dgy[`CE, Bgy $a@14B 3,83Ko+-. ]/`7,xX( TEACH;LESSN 129_3..U*U+ `(~2&Here is a list ofons to choose from:~ opqrpx x  pssxs x , 1,8IKo ,$,8},8%KDK,8&",o,xnsX(;U:U*UREQUIREDREQUIRED LESSON-FUNCTIONtaxBefore you start lesS you realU*U*Uly should know ~ ~%about what is in L ~S.w:U*W uvOwxyz{ p||x| xShould I start it fo? }~lpw*U*Ux xis gonna be reasonable and do the pU+]jUrereq first 5 p  x xuser is a turkeU*U.wy and is ignoring the prereq.    px xU*U*w but don't say i didn't warn you... w   m px 01 x ,),8,8K<<Vy@ ,.,8,8>13KoO a,8 &}K<n4B7` ,4,8,8?K@1< m,83Ko+< s,81K< ,<,8,8@Ko+= D" ",x| _@@(M;