`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$J4  (  DPASCALSYUSERPROGFIOPRIMSPRINTERRINITIALIGETCMD SYSIO AD.DATAgALPHA.SOUND.LPCALPHA.SOUND.LPCALPHA.SOUND.LPCvgצ SENT.READ.LPCvgצ LESSONIS.LPCvgצ WORD.CK.LPCvgצ REVIEW.LPC=vgצWORD.REV.1.LPCgצLESSONS.P1.CODEWORD.REV.2.LPCgצCOMMON.WR.DATAgWWORD.CHECK.DATA gSENT.REBIGLET.LOW=vgHATgr=vgXSUNgr=vgXHANDgr=vgX QUESTION.KEYvgxWMEDIUMr=vgզBOOKgr=vgSENT.WORDS.LPCgצ COMMON.LPC=vgצHELP.LPCr=MICRO.TV1...D2r=vg$ SYSTEM.PASCALvg$D SYSTEM.APPLEvgDESYSTEM.MISCINFOEEGSYSTEM.CHARSETgGlSYSTEM.LIBRARYglqSYSTEM.STARTUPgq} SELECTOR.CODEvg} MANAGER.CODEvg&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&DACOPYRIGHT 1979,1980,1983 APPLE COMPUTER, INC. ALL RIGHTS RESERVED& ܟˡ,  צSYSTEM FAILURE NUMBER  צ. PLEASE REFER "TO PRODUCT MANUAL FOR EXPLANATION.  ⓡ4%צˡ䓡 &ˡ& öÍ##&á & %UNITCLEA2%&HALT x03'MEMAVAIL2/F/ ( HHHHLҥ~:&8 i  LхSTRTONUM&)倐 &&&&&Ffff & R颊 /Lҥ~  '88eP: 'i򅋩 FfNUMTOSTR\,\P| * > T f z  ' ROUND b%"$ņ%MARK Z/&: % RELEASE %!IORESULT0NL "Lҥ~ / EUNITBUSYD&; %#PWROFTEN[%$UNITWAIT%^ #?š?ˡ?ء "ˡ$ߕނ߂ɡ F b$!  # 0%'%&㓶℡'á.0:'ADzh N   d쓡  !ˡ4$ š F",á1š ġ  ".+á$š ġ  "6%'á *   šˡ 퓄 Ä퓡x š   ɍM   "ˡ.ˡ61 ɚ V %ɡšɡš  V"(&ˡ " ȡ2 š:X f Ą ɡ 낫š ꓡ!š땫Ě@$"á1ꓡ삫Ú š K$"*ńȄ4šáRתPńȄ ,ń.áš蕿@šQ  Q lȡ>š 쾿  / Zá " * ȡ ɡa áá0š  %4á1á# 09ȄX 000á'#á 009Ȅ00 qS\  ɡ'áצ-32768 ^ 逫-ġ>00ń0˹ && "ˡ  J   00áQP 0á0 é000+-Í-ë0 šš që  N "ˡ )á á áWˡ á Dš 4áÄ D  /IF/E .gEH87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P>  ø !צ  תצP@22ˡ'Version 1.2 of SYSTEM.PASCAL cannot runצ)with a non-1.2 version of the interpreter@22 `    p  CONSOLE:ת צSYSTERM: ۶ ضá}۪*SYSTEM.STARTUPתٟá'      צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUT[Bfhjl ʀ  ʀ ̀ƀ ƀ ƀ   ʀˡ L تٞ&"á ٤ ȡؤצۢÍ ȄۢÍ؞&"á  ʀʀ ʀ ʀ ʀ  ʀʀ̀ʀʀʀʀʀʀʀʀʀ̀̀ʀʀȡʀʀ̀   תʀ'*SYSTEM.MISCINFOת; ̀ʀ*ʀ+ʀ,ʀ%2 &̀ʀʀʀʀ%̀̀̀ʀʀȡʀʀ̀ʀʀʀʀʀƁ/@š4SYSTEM.CHARSET+ \٢ š٢ ٢٢ 4$  /   d::87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PR P:NEWC/C.CODE:6REMOUT8PSb.:=b4/#b:a@:%aF:`L!I`R[/`X)`2 4j P:NEWC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE  /IF/E .gEH87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P> r D ́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń! áނ š   šš$ !۞ۂۂەߓh  ! "ˡ ɡ!  ! "ˡ ߡ š  ńá4 á,á"  ܢۚ>ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń! áނ š   šš$    ġނš  šš!۞ۂۂەߓS  ! "ˡ.! "ˡ ߡ á( ::87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PR P:NEWC/C.CODE:6REMOUT8PSb.:=b4/#b:a@:%aF:`L!I`R[/`X)`2 4j P:NEWC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE11(The 64K version of SYSTEM.PASCAL cannot )run with the 128K version of SYSTEM.APPLE d>.Fj TERM: צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡܾaܾzȄ ܾaAš!!Ȅߢ  d˯7 H  ۣȡڤ  ۣ צۣۢ0H ܣġ ۤ ٤ ڨ ܢܣ*@ۢۢۢۢٚÍۢáۢɡ ۟ۢ`ݤW ˡ!  ,ߓ$ ޓ "ߓۄ,ݤ ߓÍߡ2ݤ š˄ڶ a3 d ޓ(ݤ ߢܯ"á  ܡ:" áܡ ܓת$ ڟšx#ńF 09Ȅ ᾂ0 ߓńȄޓޓ!ܲݤߓÍߡFۤ ōɍ ō ȍ  dč ܓܡߢ ܓߦתߢޢ!ޢ!9 L ٤ Íܡ~  , Ąܓ7צ.INFO$.GRAFׯצ.FOTO /T ڤáޢܡ ޢޢޢÍÄޢÄȄĄMȄt߷iȹ22ȡ2š5252á4w4]11á4\1šV42233039Ȅ 3042221421Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯުPצצ22ȡ5233 ȡ 23a3zȄ 23aA22š*áݲ%áݲצ:22ȡáݲ 2á!2ȡ5252š[22š22sƁq ƀƁq O*SYSTEM.LIBRARY  ́sʁsȡ'ƀʁsʁsʁśs2 Ɓ](`   á/)צ*SYSTEM.ATTACH áá(*SYSTEM.STARTUP š >H version 1.2ړ22 Ɓp Ɓp2Ɓ2Ɓṕsʁsȡ%Ɓ2ʁsƀʁsʁśsƁq ƀƁq O*SYSTEM.LIBRARY  ́sʁsȡ'ƀʁsʁsʁśs2 Ɓ](`   á/)צ*SYSTEM.ATTACH ת "ˡ ܡ́tˡ2"ˡڡAƀ ˡ4  is not version 1.2ړ22 Ɓp Ɓp2Ɓ2Ɓṕsʁsȡ%Ɓ2ʁsƀʁsʁsˡ ߢ`ޤ7 VڪƁ Ɓ "áP̂/ʁ ʁ"ˡ3Ƃ. Ƃ.Ƃ. Ƃ. Ɓ Ɓ X  ߪPƁ]Ɓ4 PƁ4ƁaƁeƁmƁn ́oƁaʁo  áCá>آآ*Ík vޢ ȡUڤ ˡBȄ-ܢ0ۤ ݢ`ڤá \zڨ  ȡ0ޤ!!P!x!P %'"6ۢڤ ɡš2ȡۤˡ áڢڢˍ? Pˡآڤۢ؂Xڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ   šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ ϐ8 (ֹH ֥ +ֹP )*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `8Hh` 7HHH*L^F0 ِ9 aLgץ")j> 8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅ͐Sϭ܅83Iܐiΐ ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴LјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύܽ0|ϩHhHh ӈ ө ө ӘVYԦΝYԮܝꪽԦ ө  Ͱ()I يJJJ(jǩF؅G(  ֈ k( F G  WjΓ0 Ю $Ӱ͐4 xΒΔH ܩ`Ǚx kh k@(LYҭH͍h (ͥpi)ͥˤ˹HH(x h(`~Ȍ``,hhh )hJ¥jJJhhihhhJi֍hhhh b\8ſƅhx Щ&'H(f'ꮭ'eƍ8ƅб ĘHH`ܠ ܮۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:! $ ~\",䚹 9U[2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ١ ˡ) ! 䚹 9U[2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ  lܟ˄ݤ צ   ١  n ١ á9 ٓ/! !!! á ݤݚ ˄ܟń ١á  ޤ uš  gá Ä+ޤ  ɡáޤ á ġMáš6 ܂ۻݪ d (   š Í ÄU ǐɄ:ń)L ,10U0I ,109,c$0 A[ $P0Ji)jj%UIЂ )?LI@a Hb c0  hH ׎h$L hhh 靱`hhh(`hhhhhhHH)> `0* x)` EHh`LL٠(MC3 `H ؠ h ~؍,,`lQ`) ũ Ȣ`JJJJ ϱ` $p0*O# =ؤ =آ`H ؠLf ֊H h ɢL 楖 㥘 㥔 㭭хх 㥚8ƛƄL` 8` ^\_]`hh L{hh FL{ҠX lhhhhhihhhhL{hthuhettheuui ʑtuLhLtL{hhhhhehehhhhhhehie`\^]_~ e~@,A'8\B\]C] Q\8]`L8\] m8ƛ 58Ƈ8\񆅖ȥ]񆅗8񆅖Ɨ8 ƗLPQ L3楆8Ƈ8񆅔ȥ񆅕8Ƈ iiȱL*8~ȥ~e~ȱ~e~8ƇƎ`3[[`3[[`\Z][ 8\Z][`Lх~ e~ HHH> ]>HBC\8倅\]偅] = Q G]H\HHHAH@H > BGڇښڢکڬ`H$)A[hIH80(hI`i(8(hI`J) )i i`HH8(iPH D۠'(hH ۩ hhehLDۍ۠'O`J>L80 %,M8$LgLhhhhhhhhץHH` )`,10 )?ILڢY` l܅k܅lм`|H D۠ D۠'È B h`@ ֠ ֭0`+` ڥHH B MڥhhLDۦ ڐ`,10` ` ` ` ۤO`) 2 ֭0` ֹ)` ( `) $ HЄ ֹJ` MȽ`H ؠ H h`@`   ٢` َ` ֭`38 0P`8 0 DۥhIihIiiŒ.L%祔'ņŇ0 L祆8ƇL祆8厪HHL{hhhhTL֥T8~U~8~Xȥ~YT VLҥRSLȱȱLѥ8Ɓ8 ри~ȱ~LҠ UL{ҥXiXYLh~hhh~ȑ~L{ҥrehrseistehtueiuisu ʱrtLShLsrtL{hhhi0QhthuhettheuuhrhsherrhessXЋiʱrtusLhLrtL{hhhhhhhhL{8\潪]L\Z][JHjHL{iи\R]S [ m\v]w]|\ v\w] RPRRSQRR RȭR)[ [Zqʊ qŐ`8H<8H\`1l LCOPYRIGHT 1979,1980,1981,1983 APPLE COMPU) l Ԭ>>П8ƋȱHHHH`HHHHHH  < @~aƁ)ɠ># ~ȑ~~i~e~ȱe~ȱ~ȱ~~i~#$6 </\z FLLIEHJh**F`F$Lө ޽޾ HHHH`HHHHHH  < `) ,1P `*0 dNi iIHHHH #* 6` QRTW]H\HlR_H^HlT Эhh a0+&00 1ح/0 "!`abc)VVInsert boot disk with SYSTEM.PASCAL on it, then press RETURN# SYSTEM.PASCAL is not version 1.2#lghhLhx hmDŽ І 51-l l Ɗgƈд*~ !  LL8 #0ĎL8ƂƃL8~ Ly ƂгƃL8(8 Ƙ L`` ` `޽`HHlHHl>޽ ޽L{hhHHHHHHHHHHHH`L{ҩLHhJJJJ) ޽))hhhhh0LhhhhhhL{h0hhhehehh )  9L "  # ~ȑ~~i~e~ȱe~ȱ~ȱ~~i~THISISIT THISISIT X`0\XE0XLXŖC?8XX&XeYei无8XYLҥXiXYL h~hhh~&Zȥ[Ze~Z[e[8\Z][LL{ h~hZ~ȥ[~L{h~h~Zȱ~[潩L{ҩlLh~XYLҠX~ 8倐~hrhsrHrHL{LѠX~e~e~tu~L`hththhL{h~hhe~~heH~HLhhh~hhe~~he~Lhrhshthu ULh~hhh%H%~HLh~hhhH~HLhhIHIHLҩXXhhQX0Xŗiхniemoni nooHnHLnҠX qѠ Uѥhelniemo hnhnLnҠX Uѽeh~ei~H~HLnҠX Uѽeh~eih~h~LnҠX UѽeheiHHLnh~hȱ~H~HLh~hhh~ȥLҠXȘ ~X)XYXHXHXehnSeio nHnHL{Ҡ UѥRehnSeioni nooHnHL{Ҡ UѥRehnSeio hnhnL{èPHPHLҠ UѥPehnQeio nHnHL{Ҡ UѥPehnQeioni nooHnHL{Ҡ UѥPehnQeio hnhnL{ҠX qѠ Uѥhelniemo nHnHLnҠX qѠ Uѥhelid޽߽ H޽H V  PRȥQRRȱR8Ɓ8R RLҥXiXYXiXY HHXYX lhh)X0 eXXYL{eT~eU~8~X~YLҩHHLҠXHXHLn飨RHRHLҠ UѥResxx\AFkuѯ} LiXiXYX h&i` hi`RlSml~ȱlm~l``Z罅[潩`޽~@<8潍罅Z\]b[       ֊ך՛}2:dժ؆-5טGUԌٽB)ܠٯل)ٌԛfK٪q,$( Ԩ`ڶ 9gՁ\+{swo;gԍ֍YYYYYYYYYYYYYYYYӫԨԨԨԨԨԨԨ ҹHH`=`LLLLL)LHL&L)LLKLLLXLLXLLL"$ <""""""  "" "***6""""""""" <""<: <$,2""""""6**"""" <""">>8  80??<:*""">""""""""""""">>><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>">>( <02&,*  **>> "&*2" > ""  >>" >""8 >"""" <"">> "6>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:> (not saved) No workfileS%  O ?(&Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SY%v HHL{ҩHHL{Ңh~E0~E~~~Ղ0L ߐL h)~hh)h~Lߩ vhhh~hE0Ł~ŀ/1'0+!h~hh~hHHLhHHLҩ%vHHLhhh h膀e ň vXL LLZLk   UFifhLgޠ Uhhh~hXYhLޱ~р~iL߰L L߈hhޅޅh~h~ޅ~ޅ~р ȱ~р~р hHHHHhhhhLݥ)L8内凅Lݥ) fj~) fj8~݅݅HHHH9݅9݅HH~ HHHiHLҩHHLҩHHL??~eʥƂFHHLҠX hh&ŎL{0eeƎL{ҥ8包Ŏ 8吪8吪ƌL{hh&eȹȹp)1)fjjj)?~Ōe~9 pHHLҦpHHL @h ~&&hhȱI%~I%ȥLhhh heȄ Ȅ~l ?ۦ8e h9 0 ʚL ?ۦņ hI9ʚL ?ņ0 hʚL҅~Ƃ񥅕 _ץheheHHL{ҠXXhh &heheHHHHeHHLnhhhhhhȱ80 iff =݅=HHLh~hhhhh ݅%~~݅%80~~i~łLLXYXXYYHXHL>XYYHXHXXYeXXYLhrhshthuXs&trȑtL{ҠrrtLٱrtL{LѺ~~LLҠ UhehheiHHL{Ҡ UhehheiHHL{hh Uѥi h&L ڥhiGB $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:I $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); $ $PROCEDURE INITTURTLE; $PROCEDURE TURN(ANGLE: INTEGER); $PROCEDURE TURNTO(ANGLE: INTEGER); $PROCEDURE MOVE(DIST: INTEGER); $PROCEDURE  z Z   :    ( tV8z <| [NA4'á +-Í-09Ȅ0ݡߑ ع      z Z   :    ( tV8z <|  uh[NA4'á +-Í-09Ȅ0ݡߑ ع     ݕ 0 . ݑ0 ݕݕ ؂ ɡ  |,  &  * عteVG8  ) ͉݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ" Bɍ -   $ $ ݞ$' ݑ$ $݂ō $   "á +-Í-09Ȅؼ 0.á@09Ȅؼ0ݞ$09ȄjeEÍɍEáޢݣޢÄá ޣ Ą.! ޣ Ąݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡRݣ ˄ݢ!ۂ"ˡ+ݢݢݢˡݢݢ ۚݢ    ݂܂F      ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏  ݢPROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "FUNCTION SUPER_MOD(A,B : INTEGER) : INTEGER; "FUNCTION SUPER_DIV(A,B : INTEGER) : INTEGER; "  IMPLEMENTATION L N E @dNTEGER[36]) /END; ' " "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR MOVETO(X,Y: INTEGER); $PROCEDURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION TURTLEANG: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING)  h 2  ɡh h  h . آآآǿآآǿآآD ǻٚ SYSTEM.CHARSET!ٹا ZZا Zا Zا ZZfا ZZا Z:ا Zا ZZb8  ؂  ɡh h QZ|?ٽ RZ}?4 SZ~? TZ~? UZ? VZ?[` WZ?& XZ?ؽ YZ?  ZZ?2  Z Zá.ٹ#ؑi?޽ CZk?7 DZm?[ EZn? FZp? GZr?  HZs?yx IZt?hн JZv?D KZw?F LZx?Re MZy?Pp NZz?g OZ{?K PZ|?aI? 5ZL?Xs 6ZO? 7ZQ? 8ZT?; 9ZV?% :ZY? ;Z[?Lo <Z]?г =Z_? >Zb? ?Zd?  @Zf?] AZh? BZ 'Z!? (Z$? )Z'?| *Z+?+L +Z.?l ,Z1?ս -Z5?D .Z8?& /Z;?: 0Z>?> 1ZA?4 2ZD?v 3ZF?  4Z>? Z>ca Z>*r Z>aq Z>^ Z>9 Z? Z?ٽ Z?ƨ !Z ?vm "Z?F' #Z?ս $Z?y %Z? &Z?1>н ZC>oc ZT> Zf>Y Zw>g Z>탽 Z>K  Z>ȱ Z>z7 Z>ٰ Z>? Z>| Z>}̽ Z>  Z4تP+,+,ȡ+++V 0 Z Z^ Z ><0 Zl    ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@'  ǯ?Ǭ?ǰ?Ǯ?ǩ?áǫ?Ǭ?0 ٢ؚڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ; $PROCEDURE CHARTYPE(MODE: INTEGER); " "IMPLEMENTATION $endc}  " SETC SHORT := FALSE}  X E CHAR); $PROCEDURE WSTRING(S: STRING); $PROCEDURE CHARTYPE(MODE: INTEGER); " "IMPLEMENTATION $endc}  " SETC SHORT := FALSE}  áSYSTEM.CHARSET  @! @4` - G`` 8`*UH)JJh & & f)4#i JL` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif hhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0ON KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATION: INTEGER); $FUNCTION RemStatus (channel : RSChannel) : RStatType; $ "IMPLEMENTATION X E EDURE TTLOUT(* SELECT: INTEGER; DATA: BOOLEAN *); $EXTUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATION: INTEGER); $FUNCTION RemStatus (channel : RSChannel) : RStatType; $ "IMPLEMENTATION N E $ $TYPE &RStatType = (RStatBusy, RStatReady, RStatOffline); " RSChannel = (RSOutput, RSInput); " $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTISETPORT @=P l=7MAKEPORT|=P 7 ==L1TURTLEGR)RTCHEA=SE >< > zjZ QH?\V n x x(,np< $8L. ~  L  DRIVE <<<FNAM =SETSINE1<<SETSINE2SETDEFAU=e*e+)*)fjfjfj+*fjfjfj8 8)eeL )` (J(F ((Lee L  )LT I1LT )QLT       hhhHH h )# " `' & 8 ! 0%ee8` !  e e8"#088$ % 0%ee8`$ %  e e8&'08HHL<  y B  ""##8&$iT8&UU !  U"# UT`+%$Y)!p h hhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhhhhhhh 0&!"   #"  ` ` `SN-(' . hhhhhhHH `  y HH8H8  hhhL .+ rhh hehehehe8`)    L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &   cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%) E J j 8  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2hhhhhhhhH)HHH`)J) D* کHH  ),`#d$LESSON : INTEGER; { Student and lesson numbers } $RESULT : INTEGER; { Holds I/O result for BlockRead } $INER : FILE; { Used for LPC files } $REVIEW : BOOLEAN; { Review lessonGER; { 2.5K buffer } $ $MEDTYPE = PACKED ARRAY[64..127,1..16,1..16] OF BOOLEAN; $BIGTYPE = PACKED ARRAY[1..30,1..30] OF BOOLEAN; $ "VAR " $DIR : STUDIR; { Student directory } $STUDENT, r } 4COUNT : 0..35; 4SLOT : INTEGER; 2END;  $BUFPTRX = ^BUFTYPE; $BUFPTR = PACKED RECORD 4CASE BOOLEAN OF 6TRUE : (PTR : BUFPTRX); 6FALSE : (INT : INTEGER); $ END; $BUFTYPE = PACKED ARRAY[1..1280] OF INTEa slot for the teacher } 4COUNT : 0..35; 4SLOT : INTEGER; 2END;  $STUDIRXX = PACKED RECORD 4STDNT : PACKED ARRAY[1..36] OF RECSXX; 4 { Directory can hold maximum of 35 students Dand there is a slot for the teache$RECSXX = PACKED RECORD 4NAME : NAMETYPE; 4ADVANCE : NEXTFIRST..NEXTLPO; 2END;  $STUDIR = PACKED RECORD 4STDNT : PACKED ARRAY[1..36] OF RECS; 4 { Directory can hold maximum of 35 students Dand there is = STRING[10]; $RECS = PACKED RECORD 4NAME : NAMETYPE; 4ADVANCE : FIRSTLESSON..LASTPLUSONE; 2END; --)vPINTEGER vREAL $|CHAR bell } $ $SMBLOCK = 3; { 3 blocks for 1.5K of LPC buffer } $MDBLOCK = 4; { 4 Blocks for 2K of LPC buffer } $LGBLOCK = 5; { 5 Blocks for 2.5K of LPC buffer } $ "TYPE ' $NAMETYPE NEXTLAST = 16; { CHANGE } $NEXTLPO = 17; { CHANGE } $ $CURDISK = 'V1...D2'; { CHANGE } $NXTDISK = 'V2...D1'; { CHANGE } $ $BELL = 7; { ASCII code of a  "USES TURTLEGRAPHICS, APPLESTUFF; " "CONST " $FIRSTLESSON = 9; { CHANGE } $LASTLESSON = 10; { CHANGE } $LASTPLUSONE = 11; { CHANGE } $ $NEXTFIRST = 11; { CHANGE } $0RšزRPزPR, *BZC.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE@ˡצ)Version 1.2 of the Chainstuff unit cannot+run with a non-1.2 version of SYSTEM.PASCAL تPš++0تPRš+R+PPC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "PROCEDURE SWAPGPON; "  IMPLEMENTATION X E n(j LEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATION: INTEGER); $FUNCTION RemStatus (channel : RSChannel) : RStatType; $ "IMPLEMENTATION X E EDURE TTLOUT(* SELECT: INTEGER; DATA: BOOLEAN *); $EXT flag } $  COMMON, $LARGE, { These two buffers are 2.5K } $SMALL : BUFPTR; { This one is only 2K buffer } $ " SAYSTRING : STRING; " "PROCEDURE FLUSHREAD(VAR KEY : CHAR); "PROCEDURE READSPACE(FLUSH : BOOLEAN); "PROCEDURE SAYIT(ONE , TWO : BUFPTRX ; WORDS : STRING ; SLOT : INTEGER); "PROCEDURE INITSAY(LEN : INTEGER); "PROCEDURE FILLSAY(PLACE , VALUE : INTEGER); "PROCEDURE SAYSPACE(SLOT : INTEGER); "PROCEDURE PAUSE(SECONDS : INTEGER); "PROCesǖ צDisk  ƀƀ Disk ǾǖǾǖ Designed by8LjNorman Owen, PhDMxMhBennie R. LoweryMhצM. David Merrill, PhDMXצALL RIGHTS RESERVED FEB,1984 Hצ Any reproduction of this program >dishts ReservedIRצV1...D2 ǿ ǺǺ LEARNING TO READ:Ǫ Version 1.0ǾǪLetters, Words,Ǡ צVolume  ƀצ.ƀ ǾǠ Sentencr>צLEARNING TO READǧLETTERS, WORDS, SENTENCES4ǜTHE SCIENCE OF LEARNING תP8NJmCצ#Copyright 1984 MICROTEACHER, INC.P /#Published by EDUWARE SERVICES, INC.An MSA Company[צAll Rig  ʉYʉY   ǿ -Ɓ/#4:BOOK3=y  ǵ <<̂̂ ̂!ʂ ʂ!ȡaʂ ʂ̂2ʂ<ʂʂ<ʂʂzʂ2ʂzʂ2ʂ<ʂʂ ̂ ڪPǿ  ǺǺHڪP-ƁY-צ #4:MEDIUMƅY--̉ỶZʉYʉZȡ*ƅYʉY@ʉYʉỶỶYʉYʉYʉYBpENTRY )`Z``\ZXVTRPNLJI:72/.,)     3| (VtPrectory can hold maximum of 35 students Dand there is a slot for the teacheUVYL#UmYVi Y) -YYLOSPTLQSRTSmYTimYimSȱmTȱmSȱmT D)` A , ,L] L]NHMH`Z D)@ D1צ1005060210080103צ091108050204צ0703070205031003V  ǻǻ4 -+hMhNhWhXhUhVhQhRhOhPW p=  צ12011201צ0607 0007050214צ 0803020114 0112010114צ 0309010114 0705010114צ0903010109030101צ1002010210020201צ 100301010406 10030304040ȡق* ڂە ڪP.-/.0/0ȡ- /0-//-#Z@ تP,.,.ȡZ/,/ ++,á"-+/-/ȡM-- ,,  &   ˡ  á( 0.צPȡ&..P QP-VD.ؿ--.rȡ EDURE PATTERN(CHANGE , ANGLE : INTEGER); "FUNCTION RAND(LOW , HIGH : INTEGER) : INTEGER; "PROCEDURE PICTURE; "PROCEDURE PAGE_IT(BACKGROUND , BOARDER : SCREENCOLOR); "FUNCTION NUMVAL(STR : STRING):INTEGER; "  IMPLEMENTATION E OCEDURE READSPACE(kette without the expressed 4צwritten permission of *צMicroTeacher,Inc. M EDU-WARE SERVICES, INC.Mis strictly forbidden. $|Ɓ-צ#4:STUDENT.DIR"ˡRצ #4:MANAGERצ #4:SELECTORP h@. V8`fh6\^nie R. LoweryMhצM. David Merrill, PhDMXצALL RIGHTS RESERVED FEB,1984 Hצ Any reproduction of this program >dis+á\ f #4:STUDENT.DIR"++ˡd#4:STUDENT.DIR-- -$$ *)-%#4:STUDENT.DIR-ض)  $áu  and press [Return]צ&or press [CTRL] [C] to start all over.˶ ö á8  V1...D2׮ #4:SELECTOR6צ#4:צV2...D1 "+ of Volume צV2...D1.צV2...D1.צPlease insert Disk V2...D1 of Volume צV2...D1.צV2...D1צ into Drive 1V1...D2.צV1...D2á Ɓ-#4:STUDENT.DIRاT T  צThis is not Disk V2...D11 and press [Spacebar].#4:V1...D2 "ˡ  This is not Disk צV1...D2צ of Volume V1...D2צ.צLNLw  ȡ<R 'd  تP Please insert Disk ++צ of Volume +צ.+$ into Drive Ɓ-< #4:BIGLET<ب<<ب<<ب<<ب<  ǿ   ?D  Ǿ jɡ šMT  DJ6hצ NjOٳ Ʉ6   ٿNj áhצ   0Pǐ  Dd|  ǿ I,HELLO\\\תP+̄+ʄȡ&ƀ+@,g,,++3<n3<nj3<n3<nj--.+'++++'š+'á-ת -- -á( ń6hצ NjOٳ Ʉ6   ٿNj áhצ   0Pǐ  Dd|  ǿ۪   ȡ! ⚝  $צ MICR0T83UN$NjƁiƂƁ-<Ɓiצ #4:MEDIUMʁiƁiצ #4:BIGLET73<ب<3<ب<ƁiBBBp* & SELECTORHELLO PLAY kette without the expressed 4צwritten permission of *צMicroTeacher,Inc. M EDU-WARE SERVICES, INC.Mis strictly forbidden. $|Ɓ-צ#4:STUDENT.DIR"ˡRצ #4:MANAGERצ #4:SELECTORצThe directory is full.V1...D2׮ #4:SELECTOR-ٶ)Ȅ--   צ is already on the next disk.צV1...D2צ #4:SELECTORK- - ڸ)-O3  Ɓ/á  צ is ready for Lesson  Review |$ | | Lesson | Lesson |ȡGצ$--|----------|----------|----------|צ#[E]rase students [A]dd students%[C]hange echo slot [R]ename teachLNLw  ȡ<R 'd   צ LEARNING MANAGER Teacher : $ $# | Name | Next |Ɓ-< #4:BIGLET<ب<<ب<<ب<<ب<  ǿ   ?D  Ǿ jɡ Bp*:MANAGER  Would you like toצ$ [S]ee a lesson demonstrationצ or# [U]se the learning manager?(( $CCצ #4:MANAGER צThank you for waiting.$ɡ  $UD4:צ-Hello, Teacher.  Would you like toצ$ [S]ee a lesson demonstrationצ or# [U]se the learning manager?((Ƃ+ƃWƁ-צ#4:STUDENT.DIRبƂ+צ#4:LESSONIS.LPCƂ+-Ƃ+Ƃ+. $á צ-Hello, Teacher.  ĝ Ȅ  Thank you for waiting. ȡR . תP 0 0 0 0צ #4:LESSONS.P1 pjj84H0 $ F v  * Your input is not a lesson number.Press any key to continue. ɝ ōצ ** Lesson   is not on this disk. Press any key to continue.would you like to demonstrate ?  $á   -P-ɡF-VVȡ7-پ -پ0 -áצ%** Your input is not ̃+ʃ+ˡ   &Press any key to continue with lesson.צ #4:SELECTOR =` This disk contains lessons   צ -   .Which lesson .[T]ransfer [C]ontinueٳ ٳٳצ #4:SELECTOR  צV2...D1̃,ƃ,#4:ƃ,צV2...D1 ƃ,"erצ([L]ook at class list [T]ransfer studentsצ[G]o to hello page& ȡ#ȡ | |  á)צ * Next Disk * |:  | |8$ | | | |F ڦת  á| árń(  צ(Press [Letter] to make selection ( ٓس*ع#ɡ  yצ)The class is full. Press the [SPACEBAR]. צ* צ**S&%̃R%ʃRȡ%%%% &&&&)))V1...D2V1...D2 )7Ɓ0#4:STUDENT.DIRۨ&))))& )) &**ת )) is transfered.B)( is already on the next disk.&&&̃Q&ʃQȡm&.á  )ƁU  צV2...D1צV2...D1 '&̃Q&ʃQȡ+& á'''&&&&'̃Q&ʃQȡ()(&()Ʉ(()(ƞ$ into Drive 1 and press [Spacebar].تP),,#4:,S,")ˡ  This is not Disk ,,צ of Volume ,צ.,S S$$ PO)S)))צ#4:STUDENT.DIR)#4:STUDENT.DIRتP Please insert Disk ++צ of Volume +צ.+V *צPress the [Spacebar].:ÍńńńńP )#4:STUDENT.DIR")ˡ~)#4:STUDENT.DIR  'Would you like to save this list [Y/N]?س س@@س2צ#4:STUDENT.DIR٧=  צPlease boot the disk again.cho II inserted [1-7] ? ٳ0x Ɓ.á  There is no class list !( To create one please press any key. *ת ʂ,̂,̂,̂.ʂ,ʂ.ȡyʂ,צ**\ʂ,̂-̂/ʂ-ʂ/ȡ"ʂ-ʂ-ʂ-̂- ʂ,̂,ʂ,̂,dCRT^.   צIn which slot is the  EצPlease reboot the disk. צ ̂,̂.ʂ,ʂ.ȡErase ʂ,צ [Y/N] ?س@ YNÍYáʂ,*Yá  ARE YOU REALLY SURE YOU WANT TO & DESTROY THE ENTIRE CLASS LIST [Y/N] ?Yá#4:STUDENT.DIR   The entire class list is erased. '  ׷ #š #š& 6 Ɓ.  Would you like the entire  class list erased [Y/N] ??۳ Ʉ&ۿ   ܡ 'INSERTING : To stop, press [CTRL] [C] $ׯ*$$׷ȡQצ     á    $צ is the present teacher.צWho will be the new teacher?  $$׷ 3/AT(w  "&1Gá١  צWould you like to  save the new list [Y/N] ?س@@ س@@س8צ#1 and press [Spacebar].#4:V1...D2 "ˡ  This is not Disk צV1...D2צ of Volume V1...D2צ.צLNLw  ȡ<R 'd  تP Please insert Disk ++צ of Volume +צ.+$ into Drive Ɓ-< #4:BIGLET<ب<<ب<<ب<<ب<  ǿ   ?D  Ǿ jɡ ̾ášMT  DJ6hצ NjOٳ Ʉ6   ٿNj áhצ   0Pǐ  Dd|  ǿ I,HELLO\\\תP+̄+ʄȡ&ƀ+@,g,,++3<n3<nj3<n3<nj--.+'++++'š+'á-ת -- -( ń6hצ NjOٳ Ʉ6   ٿNj áhצ   0Pǐ  Dd|  ۪   ȡ! ⚝  $צ MICR0T83UN$NjƁiƂƁ-<Ɓiצ #4:MEDIUMʁiƁiצ #4:BIGLET.LOW73<ب<3<ب<ƁiBBBp* * SELECTORHELLO PLAY T4:STUDENT.DIRۧ:7tZ.R  #4:SELECTOR  צThank you for waiting.RAV h f r&Gá١  צWould you like to  save the new list [Y/N] ?س@@ س@@س8צ#4:STUDENT.DIRۧ:7tZ.R  #4:SELECTOR  צThank you for waiting.V1...D2.צV1...D2á Ɓ-#4:STUDENT.DIRاT T  צThis is not Disk V2...D1 of Volume צV2...D1.צV2...D1.צPlease insert Disk V2...D1 of Volume צV2...D1.צV2...D1צ into Drive 1(MANAGER  Would you like toצ$ [S]ee a lesson demonstrationצ or# [U]se the learning manager?(( $CCצ #4:MANAGER צThank you for waiting.$ɡ  $UD4:צ-Hello, Teacher.  Would you like toצ$ [S]ee a lesson demonstrationצ or# [U]se the learning manager?((Ƃ+ƃWƁ-צ#4:STUDENT.DIRبƂ+צ#4:LESSONIS.LPCƂ+-Ƃ+Ƃ+. $á צ-Hello, Teacher.  ĝ Ȅ  Thank you for waiting. ȡR . תP 0 0 0 0צ #4:LESSONS.P1 pjj84H0 $ F v  * Your input is not a lesson number.Press any key to continue. ɝ ōצ ** Lesson   is not on this disk. Press any key to continue.would you like to demonstrate ?  $á   -P-ɡF-VVȡ7-پ -پ0 -áצ%** Your input is not ̃+ʃ+ˡ   &Press any key to continue with lesson.צ #4:SELECTOR =` This disk contains lessons   צ -   .Which lesson .[T]ransfer [C]ontinueٳ ٳٳצ #4:SELECTOR  צV2...D1̃,ƃ,#4:ƃ,צV2...D1 ƃ,"the next disk.צV1...D2צ #4:SELECTORK- - ڸ)-O3  Ɓ/á  צ is ready for Lesson  צThe directory is full.V1...D2׮ #4:SELECTOR-ٶ)Ȅ--   צ is already on +á\ f #4:STUDENT.DIR"++ˡd#4:STUDENT.DIR-- -$$ *)-%#4:STUDENT.DIR-ض)  $áu  and press [Return]צ&or press [CTRL] [C] to start all over.˶ ö á8  V1...D2׮ #4:SELECTOR6צ#4:צV2...D1 "+Bp*Ɓ-< #4:BIGLET<ب<<ب<<ب<<ب<  ǿ   ?D  Ǿ jɡ nto Drive 1 and press [Spacebar].تP),,#4:,S,")ˡ  This is not Disk ,,צ of Volume ,צ.,.)$$ )))))צ#4:STUDENT.DIR)#4:STUDENT.DIRتP Please insert Disk ++צ of Volume +צ.+$ iV *צPress the [Spacebar].:ÍńńńńP )#4:STUDENT.DIR")ˡn)#4:STUDENT.DIR  'Would you like to save this list [Y/N]?س س@@س2צ#4:STUDENT.DIR٧=  צPlease boot the disk again.cho II inserted [1-7] ? ٳ0x Ɓ.á  There is no class list !( To create one please press any key. *ת ʂ,̂,̂,̂.ʂ,ʂ.ȡyʂ,צ**\ʂ,̂-̂/ʂ-ʂ/ȡ"ʂ-ʂ-ʂ-̂- ʂ,̂,ʂ,̂,dCRT^.   צIn which slot is the  EצPlease reboot the disk. צ ̂,̂.ʂ,ʂ.ȡErase ʂ,צ [Y/N] ?س@ YNÍYáʂ,*Yá  ARE YOU REALLY SURE YOU WANT TO & DESTROY THE ENTIRE CLASS LIST [Y/N] ?Yá#4:STUDENT.DIR   The entire class list is erased. '  ׷ #š #š& 6 Ɓ.  Would you like the entire  class list erased [Y/N] ??۳ Ʉ&ۿ   ܡ 'INSERTING : To stop, press [CTRL] [C] $ׯ*$$׷ȡQצ :  | |8$ | | | |F ڦת  á| árń( erצ([L]ook at class list [T]ransfer studentsצ[G]o to hello page& ȡ#ȡ | |  á)צ * Next Disk * | Review |$ | | Lesson | Lesson |ȡGצ$--|----------|----------|----------|צ#[E]rase students [A]dd students%[C]hange echo slot [R]ename teachLNLw  ȡ<R 'd   צ LEARNING MANAGER Teacher : $ $# | Name | Next |á  )ƁU  צV2...D1צV2...D1 '&̂S&ʂSȡ+& á'''&&&&'̂S&ʂSȡ()(&()Ʉ(()(&))))& )) &**ת )) is transfered.B)( is already on the next disk.&&&̂S&ʂSȡm&צ**S&%B  ښF   Ɓ/á  צ is ready for Lesson  .[T]ransfer [C]ontinues full.V1...D2׮ #4:SELECTORٶȄ    is already on the next disk.V1...D2׮ #4:SELECTOR-á\ f #4:STUDENT.DIR"--ˡJ#4:STUDENT.DIR$$ #4:STUDENT.DIRض  $áu  צThe directory i and press [Return]צ&or press [CTRL] [C] to start all over.˶ ö á8  V1...D2׮ #4:SELECTOR6צ#4:צV2...D1 "- of Volume צV2...D1.צV2...D1.צPlease insert Disk V2...D1 of Volume צV2...D1.צV2...D1צ into Drive 1TEACHERJEFF T T T T T C ۧ:7tZ.R  #4:SELECTOR  צThank you for waiting.RAV V T |`&Gá١  צWould you like to  save the new list [Y/N] ?س@@ س@@س8צ#4:STUDENT.DIRۧ:7tZ.R  #4:SELECTOR  צThank you for waiting.RAy  "&1Gá١  צWould you like to  save the new list [Y/N] ?س@@ س@@س8צ#4:STUDENT.DIR    á    $צ is the present teacher.צWho will be the new teacher?  $$׷ 3/AT(ss [Letter] to make selection & ٓس*ع#ɡ  {צ)The class is full. Press the [SPACEBAR]. צ$ ̂T%ʂTȡ%%%% &&&&)))V1...D2V1...D2 )7Ɓ0#4:STUDENT.DIRۨ צ(Preٳ ٳٳצ #4:SELECTOR  צV2...D1̂.Ƃ.#4:Ƃ.צV2...D1 Ƃ."̂-ʂ-ˡ   &Press any key to continue with lesson.צ #4:SELECTOR =d This disk contains lessons   צ -   .Which lesson would you like to demonstrate ? :  | |8$ | | | |F ڦת  á| árń( erצ([L]ook at class list [T]ransfer studentsצ[G]o to hello page& ȡ#ȡ | |  á)צ * Next Disk * | Review |$ | | Lesson | Lesson |ȡGצ$--|----------|----------|----------|צ#[E]rase students [A]dd students%[C]hange echo slot [R]ename teachLNLw  ȡ<R 'd   צ LEARNING MANAGER Teacher : $ $# | Name | Next |Ɓ-< #4:BIGLET<ب<<ب<<ب<<ب<  ǿ   ?D  Ǿ jɡ Bp*(MANAGER  Would you like toצ$ [S]ee a lesson demonstrationצ or# [U]se the learning manager?(( $CCצ #4:MANAGER צThank you for waiting.$ɡ  $UD4:צ-Hello, Teacher.  Would you like toצ$ [S]ee a lesson demonstrationצ or# [U]se the learning manager?((Ƃ+ƃWƁ-צ#4:STUDENT.DIRبƂ+צ#4:LESSONIS.LPCƂ+-Ƃ+Ƃ+. $á צ-Hello, Teacher.  ȡR . תP 0 0 0 0צ #4:LESSONS.P1 pjj84zH B f : .  * Your input is not a lesson number.Press any key to continue. ɝ ōצ ** Lesson   is not on this disk. Press any key to continue. ĝ Ȅ  Thank you for waiting. $á   -P-ɡF-VVȡ7-پ -پ0 -áצ%** Your input is not a lesson number.Press any key to continue.?۳ Ʉ&ۿ   ܡ 'INSERTING : To stop, press [CTRL] [C] $ׯ*$$׷ȡQצ '  ׷ #š #š& 6 Ɓ.  Would you like the entire  class list erased [Y/N] ?y  "&1Gá١  צWould you like to  save the new list [Y/N] ?س@@ س@@س8צ#4:STUDENT.DIR    á    $צ is the present teacher.צWho will be the new teacher?  $$׷ 3/AT(ss [Letter] to make selection & ٓس*ع#ɡ  {צ)The class is full. Press the [SPACEBAR]. צ$ ̂T%ʂTȡ%%%% &&&&)))V1...D2V1...D2 )7Ɓ0#4:STUDENT.DIRۨ צ(Pre)))& )) &**ת )) is transfered.B)( is already on the next disk.&&&̂S&ʂSȡm&צ**S&%á  )ƁU  צV2...D1צV2...D1 '&̂S&ʂSȡ+& á'''&&&&'̂S&ʂSȡ()(&()Ʉ(()(&)nto Drive 1 and press [Spacebar].تP),,#4:,S,")ˡ  This is not Disk ,,צ of Volume ,צ.,.)$$ )))))צ#4:STUDENT.DIR)#4:STUDENT.DIRتP Please insert Disk ++צ of Volume +צ.+$ iV *צPress the [Spacebar].:ÍńńńńP )#4:STUDENT.DIR")ˡn)#4:STUDENT.DIR  'Would you like to save this list [Y/N]?س س@@س2צ#4:STUDENT.DIR٧=  צPlease boot the disk again.cho II inserted [1-7] ? ٳ0x Ɓ.á  There is no class list !( To create one please press any key. *ת ʂ,̂,̂,̂.ʂ,ʂ.ȡyʂ,צ**\ʂ,̂-̂/ʂ-ʂ/ȡ"ʂ-ʂ-ʂ-̂- ʂ,̂,ʂ,̂,dCRT^.   צIn which slot is the  EצPlease reboot the disk. צ ̂,̂.ʂ,ʂ.ȡErase ʂ,צ [Y/N] ?س@ YNÍYáʂ,*Yá  ARE YOU REALLY SURE YOU WANT TO & DESTROY THE ENTIRE CLASS LIST [Y/N] ?Yá#4:STUDENT.DIR   The entire class list is erased. ۧ:7tZ.R  #4:SELECTOR  צThank you for waiting.RAV V T |`&Gá١  צWould you like to  save the new list [Y/N] ?س@@ س@@س8צ#4:STUDENT.DIR00 00````00xxx ``p800008 `p```````````````p`8````````````````````````?`x``````x?p````x>```````````````p`8```>x````x>``<`````|````````````````````````0`0``` ` ````8p````````````````x`````<`88`0`?`?` `````````````````````````````````````````````````>`x`````````````x`>`>`x`````````````x`>````00 00````````<`0```````0`<TYPAM JEFF ۧ:7tZ.R  #4:SELECTOR  צThank you for waiting.RA8888p`88p>|>|co~xp```px~oc8ppppp80 ????`;s<ys>|?~???|?@????><88|>x0``0 0 < <  000`x?@?p8888p80p`00 80008 0p`<<~f90`p00co~xp````````~oc?p``p?0?0088p```p8`````co~xp```px```````as?=````````px>800<==<``8pp0`0```````````````8p```co~xp```px~oc````````p8````??8  ``8p?co~xp```px~oc```????????????????????????     0 0000000       @   L              f66f                      000000000    00 0  0` 0```                             @      L                      ~>f       F   F f 6 6             00                       ??0000 0000`00000 0`0`00`0`0`0`0000000??????????????????????????????????????7'???>~><891# ????~~p???~~|>? 88<<????8?????????????? ??????x?@?@?????????;?<888>00p 0 0 `0 0   ?????8 ??????<<?????????<??  0``0 p??p8@r p;{?9>s@?c<<'yn<9<ϳ???0"mͭNCV=uαַkخi9"(Ku dqWkFaԽ078ͭIլmI Pgla+&ެj3imV&/$81l8`HV)cM80ѧiJ1έRxnFQji3fjm)'Tڨf>*P3c{ s3=;d,mPTYrі-T/ {&aJcنܔ UM:( MیsZzڮ6<5i<еKi̤1l6HT9]qJ؉h4)iڴ`iJZnQv#ӪNWJZY^mrQ1{ Eˢ>U5}VTdUlF5[斝+()+%<4/sM34zIK w+i#r<\WfIYS'e,wyʆHdv9qaB~QFNV06$[J5sRvMNV08A@&UzӔGrQYNJGth0ilm( LUi>֧-£،uͻv[`ߦjL1YVϱ,U* 3 mmMͻxV7jd٘{$F@eTygSqz88y{mzbۓa[nZZFwiYkx}hGVvFSen}kRLuzTfp|$7lC@^D|줺+ᨱ7 g?@?p ``q،=-NZ=O;mv;Qb~ oV¸0cbiLZyS:1Eدcf|DMA*Ȧ4{lK{l g,>=q)et1TjVTTӘcjd"V)'w4ZBU"=4*D5G86in4vNqf&/UU uRsH3ՍLQی:U kz\qJj4!8ڤ1"=FKy5crLsZSM6{L-[6&^XɆK}Ҧ7V;hVP6ib$xʼN?LYDQUS=2\NLuZ;,)ki}.-K>UvZ֧.ܡZ'K5/M>a׭H۶,%a_o2H=Kd2aÈmqПG+3ڭn@0axFv"˪a[T#Xʩ"" k}ZOC[.:a Y٫dTQRdle55 YaH"T z]4tk(w59UwuKζIOrږ6"ujdC\¢C*ifOZ5ĺnK337n bڝ$ՙMeP `&e[_C{Mi}q5 UygC-y m^YSxƪTͰy#RjckB%Ѐ,ҎrӓUO^jGY̽o~\Z|s<+ә;Yjh)ˢ$nJz*At)85(/P^c\Buqc[5qEd+d4jm{SZVMNֻjս鈺foݷ{CS6)P'vp\B;c)U-aXsU}HF(#)F^R7):UVB5Xv,0z Z=FQQZB Lb;C3ڭ)hU֙ݕ$ `,N HD[&Q_ح- ZyҰptӬLϡ y&Wp2,#yS_K]F1teQ[Օ@hl)OƩu|6u>EPڕ.pi[Z#KZ[+/}! `p H%c9V[IlzX>sn~\&WڢjWYqwAfo(WE.ޛߜhtKn99Eryz`I#U$n;F0k6Mht`ee۶Uq`I!jIؼgbr]&c3 Y#ִ:GP/5å}woːinNSZNfR3.mltyUj&SRZ60^XKdLZ{5iҬeyQ殜n{ۆ|t] ͬj^9쨹 Ö,MT63vf.#m#` )  .L5G)wsKMznmO{UV^~r>]y99Xyb(n0C[gCUh7SnaO_]߾j[V&<4ж5'b'ri,RǧH=r|uH^#-^LzU` P`1jzM"2DV-ӺcsvQeV"07 صMX@'?odSm(m rΒ6%5HUɥy֖.-mZCo8+]m&!pt k}ZOC[.:a Y٫dTQRdle55 YaH"T z]4tk(w59UwuKζIOrږ6"ujdC\ff'8bꬼSʜ£,F*#Vdl.Iki譺Y,Ț06/#LͬdUsXt pn{ s38r%jjJaaM1%#*{ s3(pZ ){_ eh)55 EݫUZEI9nl*#JH,$EPڕ.pi[Z#KZ[+/}!\Em(9%ZݨklVHV:C0(-Cg}8 e}vR;1K:MբL99坊Ԏ479N;r~'"*y!6tܓbZUN[hYMVi=mVn 08cPJ+Ԝk u}۝.kK|۟>OMk}4%Xz۬UJֳp.qsF5~{QSOG7A̪.(9S~ ڲTkR]mpi5jME&j 6WI xiS;R `i׵- PPQKlNNCm.dU=m>e\<5Hx'v[]MB=Vjw7ҌeYhiB51Ҫ̬C(1lV6hS (ѥ%PqR)sSB}kG.lY %7Z6N4I4y7cN=/>q Z1޴:=mp @anfэ=Bj0j*iswVZħn)=6M̶V0 Z-M֒gfQz"\]vȻr5զ2M07 )L:sX+f{{Q馣lzTfc+4 { s3ؽ+(]޶ aQ2>L-ݔPSk6)jft !rQr+Fanf(9%*]ڜtKzZ[,jؾ#l0lc 8;` |f2Yreɶ0ƉN+DY:pۼM{IJEkE&V"I=7a*mU0T;E@O:$dtꓐ8ymXftWfDBanf\ZIEE6N֤>oQZ\TJiive*O5 QnV\$Ovմb *S)r O-",I7e1leM;$Vu/ll2=q،=-NZ=O;mv;Qb~ oV¸0cbiLZyS:1Eدcf|DMA*Ȧ4{lK{l g,>=q)et1TjVTTӘcjd"V)'w4ZBU"=4*D5G86in4vNqf&/UU uRsH3ՍLQی:U kzvMM31uαַkخi9"(Ku dqWkFaԽ078ͭIլmI Pgla+&ެj3imV&/$81l8`HV)cM80ѧiJ1έRxnFQji3fjm)'Tڨf>*P3c{ s3=;d,mPTYrі-T/⬪ݪ2 Q ;NUMbҪZNEknjb0B*zP-S&IjiʇAk;*-F]k҈pmY存1ܕT/1so<#"c8 0`vfA9Eh%m3F;|>mm&3ͅ9zlS.n]͐}8vC!&Sܷ6Bk|++ɩJPZ<q谒׬A[^yE.yu";USjZ<ݑqZ똛yrqK~"z۝.,Nvѧ]J/}sIԴ/vYWݕ.!oZ2J<5YH(iNҸD+MEnUPk%ISKIæTO)ɻ9ݢ'Eu f3gE;g?RSWWlS=]dwΚ[.2֚=Z+[- 38?X`3+2VU5,&dHZX0ӣj+6bĜPӮ7cf'iRfYHk-_Ō2 cҢ&6j(ڴt={ǼvDװĻ[tMe$qEڤz8ʢXK+Nȳ0K:!+2ZLLDBGq{fH"i)hX[e7 L|2RҊ{SX+2TLtRSSYNml$UQg0.i,x7vCjL4 }d24gRZ'fK hnM (AQfu$ZnGް>B楢4Oj=S4:tnSM2npq X12-jZOԝ{^q,x'&ĝ㢿0763\ڴrt:pƚ9{#圕 ,KV5G$yʋ {L=˜23s]W\0mm+[tә %ɦWAv]%d刦UuaVUVUFF'rYju8J]ӱmiOcmy$[buwԪ)aȂfGnY2RkK9 *sEVf!qN݂iTizHYm%=<朶L[}ڒ#|mWY/^m)[l֦SK/m認h6 3eaV `I!jIؼgbr]&c3 Y#ִ:GP/5å}woːinNSZNfR3.mltyUjʘz` ]2)-GyMMj˂=UWdwRoM"vJ{1L) L; )a<1L;Q8izPDv3t+[ʗMNj+eLގp8G5{Z zbr(}.Y\R Xah=Ԝ5Z$?e f{.nmyt{Қ1NڔgOk.&O?wg/nkTh 'xLX 9jNao&T5R}"F^IFd#\w(FS˘G^B3)sn ʁPL2Ŵ2m &ue5'b'ri,RǧH=r|uH^#-^LzU` P`1jzq=/#04s 3U'nT瞤V _Cl(m5I=g6>b7R`r5QmF 6T8e>I}M&v5,&}5ґγІԣMvq$C+N*IsH&Ȣ#yʚĨ!mSө8K=5U!(*2%851lzQyeSYf&#R)f玠P̹jN s<M2N] -IPc7 ƞi҃gA$88@pAliLNFxCzL\Vqq.6{vH]5Z}]=pb\?A P) eJЀ<5 ŜRUg&KFٽr,4bYpERivZweTX uձjRAiYKy䥆yԓja^sG2ZqFanft"j5Pe.C>9L=uen1:Q3R,;`Ob8ջ1JGU`S`RW b6 07|38fƢ^yquZ+;LD4!]%ͻ4TrZԕMK0j.%#12/6ZYZmc+/)Bmɗ$J]M wMesnGR%^c\WN p .&SRZ60^XKdLZ{5iҬeyQ殜n{ۆ|t] ͬj^9쨹 Ö,MT63vf.#m#` ) zUjAԛOKЍF<)A3".>/3jwSX"nu%Gi%aLKkBS: UK26iJXmE Sw!giΥ%ܦ422!T$#ܛb wMjsSTtX6(n͖٢˜5K WiDs-%V[Tմ6Yn/Ol ?:C7en*a6X9IՊH<#1Yb$ji#l%_^LL8fjw'.=ncP h1Dퟪ[vʑ\$)F)cy7?U唣[% ښ*jrz>ͻxV7jd٘{$F@eTygSq^z:c.{SUn}J9Gkj(7&)2˺r[T5VZ5!nh\ti1kRMX>nò"MD2#\XPkL҄K!_mMUi>֧-£،uͻv[`ߦjL1YVϱ,U* 3 m'qqVz#zU+kS mSn+eLގp8G5{Z zbr(}.Y\R Xah=Ԝ5Z$8J]ӱmiOcmy$[buwԪ)aȂfGnY2RkK9SgiU%٪hRj 0˫TH;.V%]fh.X⨡$Um[CcjE;]49[TVSn>QQNcUF>QV:aF**Q#l0|sJ)3&SRZ60^XKdLZ{5iҬeyQ殜n{ۆ|t] ͬj^9쨹 Ö,MT63vf.#m#` ) Dv3t+[ʗMNjw\J+- ֵ}"QߙKNUZT=E&d-sfR,Wnc[}2E9Gl#k{Rh[Kkjn=kY Frf)VT<:1MCbBPP%NLԵ1Wc;m(8Ō`rF+$w,aj2rUSu(V[-If}2xYD>>2+\TUrRi7LlIQQPafaEd՘>I}M&v5,&}5ґγІԣMvq$C+N*IsH&Ȣ#yʚĨ!mSө8K=5U!(*2%4쮾 .#)Q707퀝: 0xi$ /=Rڵ%7l횶!pt{b?GQHV̅j#ݓ,5qVUvZ֧.ܡZ'K5/M>a׭H۶,%a_o2H=Kd2aÈmqПG+3ڭn@0axFv"˪fAvj_8`;IErsVˋb*LZ׭L6uۦUĞBd1?v͠ɬ5S0iO,iX_%EanfPmg99C[3\bK*ƁVתPƂTƂTƂTƂT*#4:STUDENT.DIR*** zDSK`b6 6 ^``Pb6 r BBB B B B B BBBBBp*<"  @ BLESSONSPDECODE LESSONISWORDREV HELP WORDCHECWCSUB LRSUB WRSUB SENTREADAPDAPP LCP <ب<<ب< Jس س08 ̀̀ʀʀȡƀ}ǖʀ̀̀̀ʀʀȡ Ǎ DŽ ǁ  Nj,-. ǂ Ǎ,-.ʀá*,,.ʀ̀ ǂDŽ,-.̀̀ʀʀȡ'ʀ<ȡȡȡ^ٛáUa++. ب _b &U8Lj  _ǹB~  Dž,-.ǁ,-.džNJ  NJ,-.Ɓ- #4:MEDIUM̅-̅/̅0ʅ/ʅ0ȡ̅.ʅ/̅1ʅ.ʅ1ȡ]ʅ-̅-ʅ-ʅ/ʅ.ʅ-زʅ/ʅ.@@ʅ.̅.ʅ/̅/#4:ALPHA.SOUND.LPC+* ǠǠá*@@ǂ(2á @@ǂ(* ˍ*!!Í2á @@ǂ(!ˡ !áڂá22(2 dڂڂQ(ۨׯ  צNO PICT :l6XH ȡ Ǣ(ۂ,,.* ǠǠá*@@ǂ(2á @@ǂ(* ˍ*!!Í2á @@ǂ(!ˡ ,,.  ׯ\#<nj #<2nj #<n #<2n ȡ Ǣ(ۂ,,. ʀ-ʀ ˡ,. á/.Xʀʀ-T&Džlj,-.lj,-.,,.Z[\[\ȡ-1[@@[[[7 ڪPš.Xƀƀ -/ƀ-ƀP-*̀-̀d̀ʀʀȡ ʀ̀6ƀ *̀ʀ -.-.ȡ)-@@--3V N1ުPܪP[\[\ȡ&]@@[[[ZZ *  ˡتPƂGƃs+ƁWצNO PICTA ̇sƇsצ#4:ƇsSƇsP+#++ƂGצ #4:MEDIUMʂGƂGצ#4:WORD.CK.LPC,ƂG+6تPAʀʀ̀_}̀̀ʀʀȡ ,,.ʀ++._Ǜl++.J~ǹ4++. zfF2ʀ̀ƀ ʀ ʀ O\<j~> .ʀ̀ ǂDŽ,-.̀̀ʀʀȡ'ʀ<Aʀʀ̀_}̀̀ʀʀȡ ,,.ʀ++._Ǜl++.J~ǹ4++. "( _b &U8Lj  _ǹB~  Dž,-.ǁ,-.džNJ  NJ,-.Ɓ- #4:MEDIUM2بX >&#4:WORD.REV. .LPCת  RFz  \ǼPp  Dž ,-. dž ,-.~̀~ʀȡ& 1ުPܪP[\[\ȡ.[[[[ZZ *8 *  ˡZ [\[\EM $ /ƀPXءZ̀"̀ʀʀȡIצ ̀d̀ʀʀȡ ʀ̀ʀ̀ڦ .--...ڦ /צ / ƀPʀʀءQ̀,̀ʀʀȡ@̀d̀ʀʀȡ ʀ̀ʀ̀.--̀.̀ʀʀȡʀ-ʀʀ̀--.šX/ƀצ /ƀPXءZ̀"̀ʀʀȡIצ ̀d̀ʀʀȡ ʀ̀ʀ̀ڦ .--...ڦ .ǎ ǁ NJ  ǂ   ǍljDŽ,-.lj ,-.#4:SENT.WORDS.LPC-Pצ #4:COMMON.LPC-ƀƀƀP̀̀ءqNJNjǂnjdž  NJ Nj  ǂnj,-.Džlj ,-۪PšZ1/.0Z0ءC/[/[ȡ60.d\.\ȡ..//0Z ZaZA++.0/ܪPPKP9P'P$*ueUE5%  ܦתP19Ȅ03NR XצP,UUV,WVWPVWWPW,ǠWPáPOL ^OOP b #4:REVIEW.LPC,P +OOOOOá P ~PPoP]PKP9P'P$*ueUE5%  ܦתP19Ȅ03NR XצP,UUV,WVWPVWWPW,ǠWPƁ.N#4:WORD.CHECK.DATA٨N TBܦתP !# ~PPoP]Ʋ~~!1~S~PSS }S̀}ʀȡ52S}@@S}X}}&+1++.  ~~ ب$`"&#4:WORD.REV. .LPCת  RFz  \ǼPp  Dž ,-. dž ,-.~̀~ʀȡ& ~~!1~S~PSS }S̀}ʀȡ52S}@@S}X}}&+1++.  ~K[[[1[[[U; \ڪPš.Xƀƀ-/ƀ-ƀP-*̀-̀d̀ʀʀȡ ʀ̀6ƀ *̀ʀ ʀ-ʀ ˡe. áM/ /a /A++./.Xʀʀ-OT`.۪PڪPצ #4:COMMON.LPC-ʭ9J*c,1$r+̬B+;5ciz8a%bɅӬ$ݩ7^W=kf>(*)#;UorӓNpj:mnBhgԭ"iHf!+#H .= ֚ܥEQ񮓆ÍӲpI;fm-}#Pԓ6mvs͛r$$۪ZuwΧj&T-Gu[jԈ}۞zfsOWSxzݽBLS-*1M Z5FiUaؒ!ylӾ}5c.]clj3mJ$ج>b=T]VO[*)w&z:i Nآ~FϚ@"X|0an; F[0dUK0j%>ܖj䨜uaRk֩F.5̬jT7YzQRvƬ0Z#/(D[9#d]4ڪ.$l^v3oբmːL:ES7i[fk"l1gnw6`2<ɀ) \h${,vnvֽ+k;kZ┡f蒃6PS=vH7\Ac$ GTKXͽIjp%')-ꜴLsZ͢Je˨(NVC6IGdW)I0 k;O6 #7\KX"gDZ1ckeg$  H@(&pW8C#]Pͧ*-j6W_|SnN]݄shGoBCW[ZB&^MLܤ4u7;anR]g(IЕ4}[@9} Jz$VH7mZ,=i|2iL*H3ꜢB,5m,$1l/@֒^wvc|fwST{jMIϼYF V{aٌ왩GVp'55*T5TLrټsғaAsWl[_y鴤IVҜR%~NWKT+}P8n 9- #`S6=yTj@1lS%]ڍ;$S- nXcL,U*)nTzq#nZiNz9D[q.i4ۆɈƈj."jWթ57'iCnc͌ꑕr&Rlg;v]rWnf;~X:ibWEISm]N=}fO=L] úDM6&َԃk9$  H@$  H@$  H@ häHkS5SjkO=Dx heLmD* x};8ӼJkL(52$ڵ5N{j驗 Ԝ;Hea8ȝ6Zr8CxÇSfsnu.-|kLO9m9*8d(Tq$s,dū+rPsQs){I ƧjE#cmvwSJv,d5Zg5YNޢwrt=e ;TVSl-6WBFS^}d 5{ג2^:uTKDuS-Y1l>Uٟz2S}s 6PrkMCm&Č-Myc6fq%zzg˩wDad sat in bed. ^ , H(alt, S(wap, M(ake execתP')Sam ran fast. ^ ^ , H(alt, S(wap, M(ake execתP')Man sits in jet. ^, H(alt, S(wap, M(ake execתP')Ben had pets in bed. ^alt, S(wap, M(ake execתP')1)0kid.ATTbugs fi usb'2+0sund.STA1*0funt1,0sit1(0bug 1+0gas1)0kid:sund9á.funt(YsitSTEM.ATTbugs fi usb'2+0sund.STA1*0funt1,0sit1(0bug 1+0gasbadt1"0had2"0fat 2(0pig2+0sun:sund9á.funt(YsitSTEM.ATTbugs fi usb'2+0sund.STA1*0funt1,0sit1(0bug 1+0gas1)0kid:sund9á.funt(YsitSTEM:hand9á.fast(YhatSTEM.ATTmanf hd tmh'2&0hand.STA2!0fast2*0hat1!0man 1&0am2"0fat:hatd9á.badt(YhadSTEM.ATTfatb hd tfh'2*0hatd.STA2#0manhaditdad ,andngamt?bedbugkidfunewgasmisitr:fastfat[badlegbaghandragpigȡratUhat'/5FW6\If2E,Rbiژ%-gf'=zYUvu%qaǕM]S$UXҔtGISMMGtshMeLJ;^"m{2$a5)