`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$J STEM.LIBRARYOk, blE CLASS.FILE LARGE.FONTSYSTEM.LIBRARY MENU.CODErQLARGE.FONTѯAl SYSTEM.PASCALNl SYSTEM.APPLENSYSTEM.MISCINFOSYSTEM.CHARSETN枏SYSTEM.STARTUP POKE.CODE԰˪ START.CODE! STEP.FONT@L˪ STEPS.CODE MANAGER.CODWENG12 RULER.FILE=vgL" ROAD.FILEr=vgL"# SCORE1.FILEN#) TITLE.CODE), MOVE.CODE@N,0 ROUTER.CODEN06 MUSIC.FONT@Nd67 INFO.FILE@Ndѯ7A NAME.FILE@N&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`& @ @@ @@ @@ @@ @@ @@ >@ @@ @@ @@ @@ @@ @@ @@ @@ @ ""@ @@  @ @  @ @@@ @  @ @>@@ @@@@ @@@@ @@@@ @@@@ @@ @@ @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@@@ @@  @@@@ @@@@ @@@@ @@@@ @? ? ? ? ? >? ? x? ? |? ? >? ? DDDDDDD @ D@ DDDDDDDDDDD @D @D@DDDDDDDDDDDDDDDDDDDDDDDDDDDD צ U not allowedxR D @D@ D@ DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@D@DDDDDDDDD@D@D D DDDDDDDDDDD@D@D D D@D@DD"GDDHD| HD DHD D D@(HD"G@D@"@@D@* D*@ D6@@D"@DDD@ D@ DDDD8"D "@  D@  D@ @D@ @D@ D@ D@ D@ DDDDD@D@D~?~DDDDDDDDDDDDDDDDDDDDDDDDDDDD<צAuthors:2צFrank Bradshaw(צ Virgil Hicksצ$Press for Manager Information. צPress to continue.ƥťĥƓơ/l*V2 צ8 ǪצWenger CorporationǠצpresentspPPF צ (C) 1985 The University of Akroñʃȡ*lǴצThe Music Class SeriesǠצ FUNDAMENTALSxצ CAT STEPSP Version: 2.10צ Record keeping is  Sound system is צPress to continue.& vتPnj,,T&Ɓ.Lj %CLASS.FILEצ(This disk contains an instructor managerצ!which includes record keeping for&125 students. See manual for details.Current instructor manager settings:ȡٛ`ġ ٛٛ ! 4*צ[OFF]צ[ON] "*2צ[APPLE SPEAKER]&צ[ALF SYNTHESIZER] 12:$ צ VERSION 2.10צ ------------ ǭ. 8x NE:BOOLEAN); "Procedure Fontype(m:integer); "Procedure Wfchar(ch:char); $ 3 $   IMPLEMENTATION E \CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾Cثǭ @[Ʉ AZA     DتP-.-.ȡ---V 4٪Pnj--ء-T: %LARGE.fontp|$TITLEPAGLARGE Set paddle at:)Ǡצ(Then press Button)dFǴ)  éd Ǡǿ  ǿ cJ ;á<عLצ Very Good ! 9I Way to go ! 96צdDDDDDDDser restart, I(nitialize, H(alt, S(DDDDDDDD P One moment *צ %INFO.FILE**צBLANKצ%Start צ One moment *%צ%ManagerYNAMEׯצ%Start=*צ%RouterT!FMUSICצ%MENU*"RZ ơ/l*V2 צ8  צWrong Password Try AgainOr Press  T  צ Welcome, }}R W*V2 %Menu*Press Z  Type Your Password Then P]}  A]8  One Moment %Managererard L. Knieter, DeanDEPARTMENT OF MUSIC Then YOUR NAME ==> xPBLANK׷)}--ȡ}ثI do not know anyone named ȡ& ȡ.# >& Press 2FZ ,  UNIVERSITY OF AKRONCENTER OF FINE AND APPLIED ARTSGȡٛ`ġ ٛٛ ! 4تP++(+T.Ɓ0*צ %Info.File]*%P* %Name.File}́CʁCȡ}ۨ0@HROUTER ILE}ȡB} Insert new disk into Drive #2.press to continue צor to cancel. Í   Another Y/N?  Remove disk from Drive #2צThen press  mo)Loading names from this disk  #4:NAME.FILE}ȡB} Insert new disk into Drive #2.press to continue צor to cancel. Í   A Copying names to new disk.צ #5:NAME.FILE}ȡꥁB}צDone, One Moment U/ Loading names from this disk  #4:NAME.FMOVENAME P One moment *צ %INFO.FILE**צBLANKצ%Start צ One moment *%צ%ManagerYNAMEׯצ%Start=*צ%RouternP :zB    Type Your Password Then P]}  A]8  One Moment %Managerp  8    MUSIC123NK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKB1THE MUSIC CLASS# # Begin "Ma PP ZZH bʷxXȪcELPPA[EXr Ed.       ˡ    ˡ  $$   d d @@          gg  gg$   d d    ?@@@@@@B%B'NURR?@@p@@p@@@ $   `     ? 3# 0`         ??  LANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKNK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLABLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKNKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLABLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKot aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK nBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANK aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK notBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aMUSIC123NK not aMUSIC123NK not a0 ńȄ!~Í`~W ˡ!  ,ȫ$* "ë넡,~ *Í2~ š š K6"á61 ɚ V %ɡšɡš  PꟚšw#ńE z @šQȡ2 š:X f Ą ɡ 낫š ꓡ1š땫Ě@6"á1ꓡ삫Ú ȡ*ńȄ4šáRתPńȄ ,ń.áš蕿1á5   Q lȡ>š 쾿  / Zá " *0ˡ oɡa   áá0š  %4á-ë0zY 000á'5á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń vJ& "ˡ  J    00áQP 0á0 é000+-Í ë  q7 "ˡ,8 )á á áWˡ á Dš 4áÄ (צPress CONTROL-RESETGb Íáɡ 럚肚X  ššƁƂ6&06ˡ6áƁ8:9" &8(2ȡ3'*3 ?3 2-bi ö A(7ȡ &ǀǏȡ &6!0ACOPYRIGHT 1979,1980,1983 APPLE COMPUTER, INC. ALL RIGHTS RESERVED4 8(TB &" PASCALSYUSERPROGFIOPRIMSPRINTERRINITIALIGETCMD FILEPROC ˄ `1 b (   d˯7 H ġ  *@#@,A$BBBZCC"DrDDEFtFGdGGG.InIIIfJJ0JKzxM2:l :.hzpL d | :\0T1 IBADFORM\0h1ISTRGOVFJ0\0|1CMDSTATE4x71\2HALTINIT<1DEBUGCALL311UPROGNOU1x411UPROGUOK311SYSPROG NL211COMPONLY6212COMPANDGJ2EHצE#  9 *,.02468:E&*E$ á"ˡ"& E ##&Eá 9'89:߂ɡ F b6} š.ö}Ä-D76!~?\FצPut in :P?FP'then press RETURN *o# ~8W8Eˡ.$  š t@4,á/š ġ 4,+á"š ġ Z |5?š?ˡ?ء "ˡ6ߕނˡ   d쓡  1צS# أ , P# أ צ, I# أ \2צ Exec err #   á, J3 l/E8:Eá *0  šˡ 퓄 Ä퓡w š   ɍL  "ˡ./~6\-}ˡ2Error reading exec file-, } .}ˡ2Error writing exec file-}ë 쓡ת!!9 D*驁&F+}迶Ŷ} / š/áá-`,3# , , ,/)~áë  ÄÄȄĄMȄtiȡF ōɍ ō ȍ  dč "쓡45ˡ+&ȡ 4& t&$&F'Type to continue) & ,Í ˫T \(&:0:azȄaA:FOTO /T! ȡ   צ0H"4$$$&ˡ 4 46%ˡ 4Jˡ 4w4]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.23aĩ3zȄ 23aA22š*á?%áצ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á~ éÍ~  , Ą쓡"á  :"ë á 쓡ת$Pצצ22ȡ5233 ȡ 11"2COMPDEBU2162LINKANDGr21J2LINKDEBU31^2 ASSOCPRO~K21r2 SYSFILE xD23ASSMBLER@G2COMPILER22EDITOR LN22FILER B4^422LINKER *=<22DATEREC 43MONTH r3N3D3N3Eá.0::8SWAPFIB OJ8NL7SYVID 3?DKVID $Z3zL;THEDATE 3CDEBUGINF[LD STATE 1EPL :FIPOT Mo$M  FILLER DM8FNo user programתP8F0ERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P> ޢʁޢʁʁޢʁޢʁޢʁޢ88ʁ  תʁޢʁʁޢ́Ɓ߲Ɓ߲ Ɓߪʁޢˡdتٞ&ʀ=ʀ* ʀ́ʁݢGʁݢHʁݢIʁݢ%O tƀ&́ʁݢʁʁݢʁݢ%́޲8ʁޢʁޢʁޢʁޢʁޢ ʁޢʁޢ ʁޢ ʁޢ ʁޣ  ʁޢʁݢ́ʁޢʁ٢ š٢ ٢٢ 4$88ؗ(/88ؗ(tDoo odoo'z*SYSTEM.MISCINFOתPƀƀnown ProFile errorת-/(hT?+sKצ IO error: -צUnimplemented instruction-צFloating point error-String overflowת-yProgrammed HALTת-aProgrammed break-pointת-BצCodespace overflow-' oZ>s]@;-.Le not open-צbad input format-disk write protectedת-צillegal block #-צillegal buffer address-w!must read a multiple of 512 bytesת-Munknown ProFile errorת-/(hT?+sKצ IO error: -צUnimplemented instruction-צFloating point error-String overflowת-yProgrammed HALTת-aProgrammed break-pointת-BצCodespace overfloת-file not foundת-צ dup dir entry-צfile already open-צ file not open-צbad input format-disk write protectedת-צillegal block #-צillegal buffer address-w!must read a multiple of 512 bytesת-MunkצSystem IO error-צ unknown cause- parity (CRC)ת-צillegal unit #-illegal IO requestת-צdata-com timeout-vol went off-lineת-file lost in dirת-צ bad file name-צno room on vol- vol not foundצUnknown run-time error-צValue range error-צNo proc in seg-table-Exit from uncalled procת-Stack overflowת-צInteger overflow-Divide by zeroת-צNIL pointer reference-צProgram interrupted by user-r D ́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń1 áނ š   šš$ !۞ۂۂەߓh  ! "ˡ ɡ!  ! "ˡ ߡ š  ńá4 á,á"  ܢۚ>ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń1 áނ š   šš$    ġނš  šš!۞ۂۂەߓ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.CODE"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILERת צ:SYSTEM.LINKERƁ&<́b́cʁcȡ~ؤ́dʁdתʁdس0ʁdʁd؞&"á*ʁd ضá0?ʁd*SYSTEM.STARTUPת(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%;??ٟá'C 0ڡ;ƀ ˡ.  is not version 1.2ړ22H"áצIllegal file nameNo file  ́ṕqʁq́rʁrˡ  צ not codeʁq2ʁr"ˡצ Bad block #ݢ`ڤá Zx ȡ2ݤˡ"ޢ`ݤۼ: T ڪƁ Ɓ "á9̂.ʁ ʁ"ˡ  Ɓ Ɓ Vj  ߪPˍ? P ˡآڤ á Cá>آآ*Í k vޢ ȡSڤ ˡ@۳-ܢ0ۤ ڳ@@YyÍ, 4ۢڤ ɡš2ڪP-19:!1ׯ)Illegal filenamenTȡۤˡ áڢڢ-C ;;ȡצPascal system size is 64K;;ȡצ'Copyright Apple Computer 1979,1980,1983Copyright U.C. Regents 1979%צSystem re-initializedV 59 v"pv">   F  tWelcome ?, to Apple II Pascal 1.2Based on UCSD Pascal II.1צCurrent date is C -C-C ;;ȡצPascal system size is 64K;;ȡצ'Copyright Apple Computer 1979,1980,1983Copyright U.C. Regents 1979%צSystem re-initializedPPLE7:::% š tWelcome ?, to Apple II Pascal 1.2Based on UCSD Pascal II.1צCurrent date is C -C'Version 1.2 of SYSTEM.PASCAL cannot runצ)with a non-1.2 version of the interpreter@9988(The 64K version of SYSTEM.PASCAL cannot )run with the 128K version of SYSTEM.AMayתצJunJulתצAug Sepת צOct Novת צDec ???תצ??????ת6!צ  HצTתP%%@99ˡ  7 :9CONSOLE:ת(:9צSYSTERM:(8:98 6øצ???JanתצFebMarתצApr1٦׷)צ: ܢܢH d    0&תת.ת??? *SYSTEM.WRK.TEXTײ& צ*SYSTEM.WRK.CODE ,CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUT{B77::9988:9  6 ۪ink firstƁ2ƀ¼:.Conflict between intrinsic and user segment(s)ƀ¼*SYSTEM.LIBRARY , Can't load required intrinsic(s)Yƀ¼/#Required intrinsic(s) not available2  Ɓ]&/ , ۤ  áۤ  !~!!f!צ*V! ""!"צ:" "ۤ  ۤ    áۤ  ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  ϶ U not allowedup-Há6OK7AX0NP3 "gC(,. C ^(Pv 2 Z *')%?áSFצ=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execP')% 6!,j3쓡 צ Linking...ˡ& Restarting...á(צ*SYSTEM.STARTUP %áá 6   HˡFצCCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]P')%?áSFצ=Command: U(ser restart,צ , change it?)צNew terminator:} ȡ/,-Z N:98:9á/)*SYSTEM.ATTACH   áning, programs using GET or PUT to disk will be very slow New exec name:(šR.%+(]ˡ([8]+("á%צ Terminator=lose and disk get and put procedures swappedצOld swapping level is  צ%New swapping level (ESCAPE to exit): ض,0Í1Í2Íسs2ø1öRצ)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>`ȅbSϭb߅83Ibߐib ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴LјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxbhx Nb`8Ύa߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮaߝꪽԦ ө  Ͱ()I يJJJ(jǩF؅G(  ֈ k( F G  Wjee0 Ю $Ӱb4 xbdfbH dߩ`Ǚx kh k@(LYҭH͍h (ͥpi)ͥˤ˹HH(x h(`~Ȍ``,hhh )hJ¥jJJhhihhhJi֍hhhh b\8ſƅhx Щ&'H(f'ꮭ'eƍ8ƅб ĘHH`fߠ d߮24<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅ!!P!x!P %',@@JBGD> Z`X\X áޢá ~תޢޢޢ024<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!ݓۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ0ˡ) ! 767䚹 :V\28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Ä˄~ݤ ת   ١  n ١ á9 ٓ/! !!١á ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ lܟ)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 ɢ 㥚8ƛƄL` 8` ^\_]`hh LLhh LLҠX Yl ?LLhhh~hhh07ȱр0ȱ,Ls ȱLsHHLHHLHH~ȥ~LLhhhhhihhhhLLhthuhettheuui ʾ] "\8]`L8\] >8ƛ 58Ƈ8\񆅖ȥ]񆅗8񆅖Ɨ8 ƗLPQ L楆8Ƈ8񆅔ȥ񆅕8Ƈ iiL奖 㥘 㥔 㭭ххƇƎ`3[[`3[[`\Z][ 8\Z][`Lх~ e~ HHH> ]>HBC\8倅\]偅]  " ]H\HHHAH@H > BGڇښڢکڬh~hhhhhqq a{8 ȱ{a0:A[_ ؕԈqȱi`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ۥtuLhLtLLhhhhhehehhhhhhehiehIihIiiŒ.Ln祔'ņŇ0 L]祆8ƇL]祆8厪HHLLhhhhTL֥T8~U~8~Xȥ~YT VLdҥRSLȱȱLѥ8Ɓ8 ри~ȱ~LdҠ ULLҥXiXYLh~hhh~ȑ~LLҥrehrseistehtueiuisu ʱrtLhLrtLLhhhi0QhthuhettheuuhrhsherrhessXЋiʱrt GG~ȑ~~i~e~ȱe~ȱ~ȱ~~i~iи<\R=]S [ >\v]w]|\ v\w] RPRRSQRR @RȭAR)[ [Zqʊ qŐ`8H<8H\Ni iIHHAH@H GH#FF) l GGԬهП8ƋȱHHHH`HHHHHH  < @>~?aƁ)ɠG#B/C0@A "!歪筫䭬)aVV#$6 </\z FLLIEHJh**F`F$Lө ޽޾ HHHH`HHHHHH  < `) ,1P `*0 򭋅І 51-l l Ɗgƈд** 6`V QRTWHHlRHHlT Эhh a0+&00 1ح  ` `޽`HHlHHl>޽ Insert boot disk with SYSTEM.PASCAL on it, then press RETURN# SYSTEM.PASCAL is not version 1.2#lhLhx hmDŽ ) W 9LK " W T%LXiXYX h&i` hi`RlSml~ȱlm~l``Z罅[潩`޽~@<8潍罅Z\]b[      ཀྵlN{`j5ۓ{Wv*ܞמ]َPqҜـٯU]l7{ӳBVݿӧݙy1ڇ 8R-zLDүH@P 8^L^һһһһһһһһһһһһһһһһ****************|yyyyyyy ҹHH`=`LLLLL)LHL&L)LLKLLLXLLXLLL$.1!!! !!!6**""! ! .1!!? ? <5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   !6>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:>.ת&תת(%Ɓ.񄓡9&   P ? ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEX0~E~~~Ղ0LސLh)~hh)h~Lީ vhhh~hE0Ł~ŀ/1'0+!h~hh~hHHL^hHHL^ҩ%vHHL^hhh h膀e ň8内e~l8吨Lߤ 0 vXLLyL+L<   UFifhL8ޠ Uhhh~hXYhLdޱ~р~iLްLLވhhuޅvޅh~h~wޅ~xޅ~р ȱ~р~р %v HHLLҩHHLLҢh~E内凅Lݥ) fj~) fj8~݅݅HHHH9݅9݅HH~ HHHiHL^ҩHHL^ҩHHL?? hh&ŎLL0eeƎLLҥ8包Ŏ 8吪8吪ƌLLhh&eȹȹp)1)fjjj)?~Ōe~9 pHHL^ҦpHHL^ @hhHHHHhhhhLݥ)L8ȥL^hhh heȄ Ȅ~l ۦ8e h9 0 ʚL^ ۦņ hI9ʚL^ ņ0 hʚL^҅~Ƃ~eʥƂFHHL^ҠX hh &heheHHHHeHHL?hhhhhhȱ80 iff =݅=HHL^h~hhhhh ݅%~~݅%80~~i ~&&hhȱI%~I%YHXHXXYeXXYLdhrhshthuXs&trȑtLLҠrrtLUٱrtLLLѺ~~LL^Ҡ UhehheiHHLLҠ UhehheiHHLLhh Uѥi h&L٥hi 0ץheheHHLLҠXXƁ/צ #5:Info.File"ál  Remove Music Disk From Drive #2.Press &P C צ One moment צ%TITLEJIM .d.Ą5 ...Ą U3-, ácX ȡ خٓ á, :  צ" S E T N E W S T A &٢  .Dخخ*-,-آ #V-,ȡ ٕ% H *.٪P.--,/,/ġ,0.. .,,&ZFتPRعr CAT STEPSצMinimum score EXCELLENT 1-100% .צMinimum score GOOD 1-100%  y,*\^`b    áE""AAName AצPassword A Remove this person Y/N?  Type 'DELETE' to zap all namesor press PP צDELETE}ȡ lArd  "Z&(*,.02468:<>@DFHJLNPRTVXZC>ape without zapצ Choice=> &áE""AAName AצPassword A Remove this person Y/N?  WAצBLANKA צBLANK AAn  ecord number   Zap ll records (1-125) Zapצ to exit צName -------------------------  A AצPassword  ----- APassword צ ---------- A   šA A   šA  A AAomp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾C    AAAצBLANK_צThis record is BLANKUse dd Press for no changeצName ------------------------- 0 >z: MANAGER CHANGENAADDNAME ZAPNAME SETPROF SOUNDSYSPRINTOUTPRINTSCO V\ Ҷضڶʷ޶&ʷ&~~~ʷ~ʷ MLIT:*ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾CN D A R D SPress Return for no change.Press Up-Arrow or ^ to move up.  צPress   XlBh -,ȡ ٕ% H *.ض * SPEAKERתALF ת 12'צSound is SPEAKER only    ȡ خٓ á, :  צ" S E T N E W S T A (& 8 ǹ DZ ǭ ǥ ǹǹ ǸǸǹDZǭǥ ǥǥ ǦǦDzצfilledǥempty nj(nj ǐ ǚULj ~DxǴMANAGER UTILITY ȡ     <     |Azt8B /5.-"HF(*.02c68:<>@xDHJLNPRTVoun^mbhjnpr צPress **P *%**&Be sure you remember the new password!Press ~NP  {2d(צ --------** !Enter the new password once more.צNew password=>צ-------------------------*nצ(Passwords were not the same, start over.rent manager password *%צ Change Y/N? @@ צ&Enter new password then press צOld password=>*%צNew password=>צ----------------- Change Y/N? @@&***      צ One moment**Cur צConsole:ONE MOMENT, GETTING SCORES   PRESS    *צOFFצON צRecord keeping is (E=EXCELLENT G=GOOD N=NEEDS IMPROVEMENT+},+,ȡ +++   >|(gOVlr   "$&(*,.02468:<>@BDFHJLNPTVXZ\^`bdfhjlnprtvxz~    Enter heading for Printoutצthen press צ=> P# begin printing ape   +},+,ȡ +++   +},+,ȡ%+++++x  "$&(*,.02468r*    +},+,ȡ+++ #Move the cursor to desired location! marks a record for printing omplete printout------- CAT STEPSצ SCORE  *٢צ3---------------------------------------------------  ٕ% H *.ġEġGɡN6AA STUDENT # A(E=EXCELLENT G=GOOD N=NEEDS IMPROVEMENT(---------------------------------N D A R D SPress Return for no change.Press Up-Arrow or ^ to move up.  צPress   XlBh -,ȡ ٕ% H *.( Record No.# צ ONE MOMENT }ȡ .bAצ %NAME.FILE* %INFO.FILEצ %Score1.File}ȡ4AAצBLANK   H A***4 Printer:" áf No Printer is on-lineצPress &ؿ T\  'Insert New Disk and press R ġEġGɡN6 צ STUDENT #   Fnj 1. Cat StepsFǂ 2. Sign OffFnצ S. See ScoresFdC. Change Disk2צ'Type your selection then press (Your Choice: _Press to exit.á 2 سǶ(تPnj,,T&0d0 0( Táצ%ROUTER %Title.FǪ FUNDAMENTALSFǧצ ____________0MENU T J: l rR@T*Fd Two disk drives are required andBoth disks MUST be Version 2.צDo you want to continue Y/N?   צ%Move   One moment  צ%TITLEA*6^FhhhhhhHH`&dent namesצfrom one Akron disk to another. Two disk drives are required andBoth disks MUST be Version 2.צDo you want to continue Y/N? 4 AAd(A 8J(צ (򥂵Am*V2@á This option moves stu  ; (  B&J( jrګ٫ؕ': ق}š} ɡ}( &    u < "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvx|~Z6ȡ#ȡ + B  ǿ ٶٶٶٶRr(ȡھ`ġھ  - * SPEAKER ALF  12'xxצanager passwordxn ook scoreswxd

rint scores`xZצew standardsHxPצ<@>Transfer Names.xFצuit UF3%oZD, ' ٪Pء (R0 ǭ?تPRٹxǠiewǪǠצhangexǖddǪǖapxnjecord keeping* צ ON  צ OFFxǂצ ound צ(E=EXCELLENT G=GOOD N=NEEDS IMPROVEMENTצ(----------------------------------------צ CAT STEPS Score  *٢ 3--------------------------------------------------- Ɓ- צ One moment צ %Score1.File  צPRESS  Z *V2       s this correct Y/N? ٳ qBD$ y/2 צ %INFO.FILE&  One Moment %Title. URN>צ------------------------------ńaPaaDisk name entered as:צIs this correct Y/N? ٳ qBD$ y/2 צ %INFO.FILE&  One Moment %Title.press צ------------------------------ńaPaaDisk name entered as:צIצ"Enter your school or personal nameצ!as you wish it to be displayed on this disk.<30> characters maximumצ&<3> characters minimum (alphabet only)צThen ȡ#ٛ`ġ ٛٛ ٛٛ+ > (Pצ š ɡ..ȡۛ!^X p  START * %Info.file*šZ &%Steps 1s-!  "$;(*,.02468:<>@BD_HJLNPReVXZ\^`bd{hjlnprtvxz|~  One moment *dh&E^"z<j  Z *V2* %Info.file*šZ &%Steps 1s-!  "$;(*,.02468:<>@BD_HJLNPReVXZ\^`bd{hjlnprtvxz <<<<@@@x @ 0HL ,@ 0`@` x0A GȡGGġ צ!Distance can be measured in milesצfor automobiles.(ȡGGצ Off we go.9 צIn school we me Ҷضڶʷ޶&ʷ&~~~ʷ~ʷ MLIT:*ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾CتP+ƁW++́iǹ́jʁiʁjȡ"++$ʁi ʁíi++;n.CODE[*]hng MLIT:SYSTEM.SWAPDISK ER); Procedure Loadfont;  Procedure Fontype(m:integer);   Procedure Wfchar(ch:char);  $ $Implementation E WORK:*ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾C %Step.Font ث/  ~   /  6Jv^ array[32..126] of NEWarray; $NEWCHAR:NEWARRAY;  Mode:Integer;   PROCEDURE AT(X,Y:INTEG ,v6  STEPPINGCATTEXT PICREAD DEFINITIEXAMPLE EXERCISEDRILL TEST TITLE             ˡ  ˡ  ˡ ˡ}             @ , ,@        ?? E@ ` 06@  x0p ` 00&     $r((2hsasure distanceצ with inches. %RULER.FILEצ#We use the ruler to measure inches.צThis pencil is 6 inches long.צ&Another unit of measurement is used intravel. %ROAD.FILEWatch !צ צ#In Music, distance is measured withצ INTERVALS.An INTERVAL is the distanceצbetween two notes.7}<7}<002}צsmall interval Ǜ<55Ǜ}צlarge intervalצצWe count intervals by steps.צ<<צ"Press the number of this interval. Answer => &ٲ ٲFá;;D<; צNow some questions on whatyou have learned.ȡ U GU =U 3U )U U 28C;3+ %á X Now you will see two notes.צ&Press the number that is the interval.7}<502 7}<553 7}<555 7}<054 7}<007 7}<508 $D 0 .+Still wrong, too small,צ try again.צ$Tap the Space-Bar to mark the steps.ع<U GU =U 3U )U U 28C;3+ %á X Now you will see two notes.צ&Press the number that is the interval.7}<502 7}<55áQš&צThat is TOO BIG, try again.&צTHAT IS too small, try again.áš+צStill wrong, TOO BIG,צ try again.+Still wrong, too small,צ try again.צ$Tap the Space-Bar to mark the steps.ع<essed!צ-That is the way.צ dP+  عThat's better!צYou got it nowקeYES!צUThe computer likes that answer!צ*צ Good for you!צ w_Q( צ"Press the number of this Interval. Answer => & F>ع Good Job!צYou know your stuff!jצ Very Good!TצThis computer is impr0Tap the 5 timesצto make the Interval of a 5th.U צ You got it!צǛ<50צTap this Interval.ǹ צGood!צThis is called a 6th. s called a 9th.#Let's lea 7}<00Tap the space bar 3 timesצto count the 3rd.U Good going.צ Try another.Ǜ<05Tap the space bar 4 timesצto count the 4th.ǹ That's the way!צ 7}<0 Watch the cat step on the notes.U צThese notes are 3 steps apart.This INTERVAL is called a 3rd.צWatch the steps for theצnext interval. ǹ These notes are 9 steps apart.צThis INTERVAL is called a 9th.#Let's lea 7}<7}<05Two steps makes the intervalצ called a 2nd.U Ǜ<55Five paws makes the intervalצ of a 5th.ǹ צNow you can practice countingצ intervals. צ Watch the cat step on the notes.U צThese notes are 3 steps apart.This INTERVAL is called a 3rd.צWatch the steps for theצnext interval. ǹ These notes are 9 steps apart.צThis INTERVAL is called a 9th.#Let's learn how to count intervals.צ<B stanceצbetween two notes.7}<7}<002}צsmall interval Ǜ<55Ǜ}צlarge intervalצצWe count intervals by steps.צ Watch the cat step on the notes.U צThese notes are 3 steps apart.This INTERVAL is called a 3rd.צWatch the steps for theצnext interval. ǹ These notes are 9 steps apart.צThis INTERVAL is called a 9th.#Let's leaٹ7}<5027}<5537}<5557}<0547}<0077}<5087}<5067}<5027}<0037}<0547}<555}7}<506_7}<557A7}<058#sW;w[?3&V\      AAAצBLANK_צThis record is BLANKUse dd Press for no changeצName ------------------------- 0 z< MANAGER CHANGENAADDNAME ZAPNAME SETPROF SOUNDSYSPRINTOUTPRINTSCO .Ǡȡ!  ( Bצ š,V/      vtI4j2(D`~"JIMK0 -N c#(ȡ .C(#ġ .Ǡȡ!  ( Bצ š,V/      vtZ  JIMK0 -N c#(ȡ .C(#ġ  5  2۹ n |  Steps: 22ȡ P 1 )0 5  3۹ ٪P  ǿ - 2צ vȡ-    Rȡg)0 %SCORE1.FILEؚ%menu\ P ȡ,0ؚ5 5@ R NL R-ڪPƁ. ;  c Intervalsn(צby Virgil Hicksnצpictures by Sally Mooreǿ ǴT  F7}<0077}<5087}<5067}<502 JOQPMK8ȡ. 5FǴT Pdצ CAT STEPSPPMeasure MUSIC stepsF  P<a program of Musiٹ7}<5027}<5537}<5557}<0547}<0077}<5087}<5067}<502 APassword צ ---------- A   šA A   šA  A AAomp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾C    }á צPress to exit צName -------------------------  A AצPassword  -----r*    +},+,ȡ+++ #Move the cursor to desired location! marks a record for printing omplete printout------- CAT STEPSצ SCORE  *٢צ3--------------------------------------------------- ȡ ٕ% H *ġEġGɡN6AA STUDENT # A(E=EXCELLENT G=GOOD N=NEEDS IMPROVEMENT(---------------------------------T A N D A R D SPress for no change.!Press or ^ to move up.  צPress to continue.    h|V| ȡ ٕ% H * * SPEAKERתALF ת 12'צSound is SPEAKER only    ȡ خٓ á, :  צ" S E T N E W S T A N D A R D SPress for no change.!Press or ^ to move up.  צPress to continue.    h|V| ȡ ٕ% H *.M .d.Ą5 ...Ą U3-, ácX ȡ خٓ á, :  צ" S E T N E W S ع&٢  .Dخخ*-,-آ #V-,ȡ ٕ% H *٪P.--,/,/ġ,0.. .,,&ZFتPRعv CAT STEPSצ!Minimum score EXCELLENT (1-100%):0צMinimum score GOOD (1-100%): }.*Z\^`b    áE""AAName AצPassword A Remove this person (Y/N)?  Type 'DELETE' to zap all namesor press PP צDELETE}ȡ lArd  "\&(*,.02468:<>@DFHJLNPRTVXC>ape without zapצ Choice=> &áE""AAName AצPassword A Remove this person (Y/N)?  WAצBLANKA צBLANK AAn  ecord number   Zap ll records (1-125) Zapצ begin printing ape   +},+,ȡ +++   +},+,ȡ%+++++x  "$&(*,.02468:<>@BDFHJLNPTVXZ\^`bdfhjlnprtvxz~   צEnter heading for Printoutthen press => ؕ': ق}š} ɡ}( &    u < "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvx|~Z6ȡ#ȡ + B  ǿ ٶٶٶٶRr(ȡھ`ġھ S>ound - * SPEAKER ALF  12'xxצanager passwordxn ook scoreswxd

rint scores`xZצew standardsHxPצ<@>Transfer Names.xFצuit UF3%oZD, ' ٪Pء (R0 ǭ?تPRٹxǠiewǪǠצhangexǖddǪǖapxnjecord keeping* צ ON  צ OFFxǂצ <  H A***4 Printer:" áf No Printer is on-lineצPress &( Record No.# צ One moment }ȡ .bAצ %NAME.FILE* %INFO.FILEצ %Score1.File}ȡ4AAצBLANK (& 8 ǹ DZ ǭ ǥ ǹǹ ǸǸǹDZǭǥ ǥǥ ǦǦDzצfilledǥempty nj(nj ǐ ǚULj ~DxǴMANAGER UTILITY ȡ    <     |Azt8B /5.-"HF(*.02c68:<>@xDHJLNPRTVoun^mbhjnpr צPress **P *%**&Be sure you remember the new password!Press ~NP  {2d(צ --------------** !Enter the new password once more.צNew password=>צ-------------------------*nצ(Passwords were not the same, start over.Current manager password *%צChange (Y/N)? @@ צ&Enter new password then press צOld password=>*%צNew password=>צ-----------Change (Y/N)? @@&***      צ One moment** צConsole:צ One moment   צPress to continue.   *צOFFצON צRecord keeping is Pצ(E=EXCELLENT G=GOOD N=NEEDS IMPROVEMENT+},+,ȡ +++   =6+tWVtz  "$&(*,.02468:<>  ; (  B&J( jrګ٫4 AAd(A 8J(צ (򥂵Am*V2@á 'This option tra n1 p& -/LONGINTIPASCALIOCHAINSTUAPPLESTUTURTLEGRTURTLEGRWENGER WENGER SOUNDSTUSETUP SETUP STRINGST 0%+.(Aap|( 00(@pp`p(p@p`ppp(p p03(@px`(Aaq)!11Ω(@p0`x(@aq)!11Ω(@pH`(Acs+#33(@pc+A`ppp( 13(@pp`p(p@p`ppp( 13(@pa)@`8pp( 11p~`(Aaq)!11(@pg+A`~p~( 13(@p`(@`p( 00(@pg/Gg'ww/'77(@pc+Ccs+#33(@px`(Aaq)!10x(@p`(@~`p)!10~(@pp<`~(@`p( 0~0<(@pa)Aaq~( 0~0>(@p~`(@p`(@`p( 0~0<(@p?`(@`p?(w w0?0(@p`(@`p( 00(@p?`(@`p( 00?(@p`(@`p( 00(@p`(@`q) 01(@pa)Aaq( 00(@pa)Aaq)!11Ω(@p8`8(8@8`8p8(8 80808(@0p00 p0 (80~x8 .. D@SDEVRTEv p0 p8 p0 pp ~p0 p0 p0 p0 p0  pp 0p  ?ppp|TE<<TR ?       x Gx Fxx>p6 pEppV px8|8>8v888@S8DE8b8r pFBOBO 6?ǁx6 ?<Ȫ|>t  צ%TITLEA*^hhhhhhHH`&H~   (Hv` |b|dd#source and target MUSIC CLASS disksצmust be version 2.0 or greater.Do you want to continue (Y/N)?   צ%Move   One momennsfers the student namesצ"and passwords from one MUSIC CLASSצdisk to another.צTwo disk drives are required touse this option and both the#source and targ $ "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 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:Ihhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆLL,tq1+%ZTNlb3 `\[TOG@;:3(  T[Fc>8 ND Z1> HHHHHL,} ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,Lwhhh8倅偪ʈƅ})H揥>ʈƅ ~擥  抦|ɥ8包~ƅLII懩&&u`hh&~ʈƅFyʈƅ}ʈƍƎƋƊЌإL2d|e~28ʈƅyʈƅƉ` LŁ|}ƅLE||怦}ʚH恺~8ʈƅ  ILL, LLL,E0LL1 L ILL,ELL1 LEe8刅刪ʈʈ|} ŀ}|ƀL~HHL,~HH~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL ~8刅剅<8ȱ` 5l 5 l 5lhzh{hƁhhhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,LwIL,h hrsʈ .ł( ŁZ   :    ( tV8z <|hvhwhhxylxNj+Nvwlv")@ LY-09Ȅ0ݡߑ ع      z  &  * عteVG8  )   uh[NA4'á +-ÍNTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION X E EDURE DECOPS; "EXTERNAL; " "PROCEDURE FWRITEDEC(*VAR F: FIB; D: DECMAX; RLEN12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:INTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: 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 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 @d@ˡצ)Version 1.2 of the Chainstuff unit cannot+run with a non-1.2 version of SYSTEM.PASCAL تPšH++H0تPRšT+R+PTPC/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   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áޢݣޢÄá ޣ Ą.1 ޣ Ąݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡRݣ ˄ݢ!ۂ"ˡ+ݢݢݢˡݢݢ ۚݢ    ݂܂F      ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏  ݢPROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR0TRšزTRPزTPR, *BZC.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE $ $TYPE &RStatType = (RStatBusy, RStatReady, RStatOffline); " RSChannel = (RSOutput, RSInput); " $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTIǯ?Ǭ?ǰ?Ǯ?ǩ?áǫ?Ǭ?0 ٢ؚڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ; $PROCEDURE CHARTYPE(MODE: INTEGER); " "IMPLEMENTATION $endc}  " SETC SHORT := FALSE}  hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh X E CHAR); $PROCEDURE WSTRING(S: STRING); $PROCEDURE CHARTYPE(MODE: INTEGER); " "IMPLEMENTATION $endc}  " SETC SHORT := FALSE}  URTLEY: 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) 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 T $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); $PROCEDUREn(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$hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2hhhhhhhhH)HHH`)J) D* کHH  ),`#d`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !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 l    ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@'  4تP+,+,ȡ+++V 0 Z Z^ Z ><0 Z 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` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif áSYSTEM.CHARSET  @! @4` - G`` 8`*UH)JJh & & f)4#i J  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>  ZHHL<  y B  ""##8&$iT8&UU !  U"# UT`+%$Y)!p h hhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhhhhhhhhhhHH h )# " `' & 8 ! 0%ee8` !  e e8"#088$ % 0%ee8`$ %  e e8&'08789:;<=>?@ABCDEFGȍHIՍJKLMNOPQRS(TU8VWHXYXZ[h\]x^_`aHH`! # % ')+-/26:>B !F"#J$%N&'R()V*+Z,-^./d01l23t45|6_]`aHH`|yvspmjgda^[XUROLIFC@=:741.+(%"  bhh,-./01k23T45@67.89:; <=>?@ABC֍DEʍFGHIJKLMNOPQRSTUVWwXYpZ[j\]c^ hh2 o  /  [+ҍ~Z !?"#$%&'()Ǎ*+ Ҷضڶʷ޶&ʷ&~~~ʷ~ʷ APPLE2:ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾C  Procedure Initsynth; 'Procedure SetVolume(v,channel:Integer); 'Procedure SetPitch(P,channel:Integer); ' 'Procedure InitSpeaker; 'Procedure Speaker(Pitch,Duration:Integer); " "IMPLEMENTATION E ce=> س سسh:0d0 0(צ One moment $Bp C2á You may choose Computer Keyboard or Paddles.צ Keyboardצ

Paddles or Joystick Choision; +Function Stud_Number:Integer; +Procedure Get_Name; +Procedure Message; + %IMPLEMENTATION E ~ʷ MLIT:*ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾C +Uses Chainstuff; + + +Var Pdlversion, Alf:Boolean; 0Stud_Name:String[25]; 0Chain_String:String[80]; {1-2-3 = student record number} K{4: T = true record keeping } K{5: 1 = speaker 2 = alf } K +Procedure Soundversion; +Procedure DeviceverSETPORT @=P l=7MAKEPORT|=P 7 ==L1TURTLEGR)RTCHEA=GA440 BS|== 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       |yvspmjgda^[XUROLIFC@=:741.+(%"  bhhhhhh ȹFf F F  $0 ޥ(0 ШHH`yu[R7.hh6vmjtdэ^~YxT O A K G CH?;a875:2h +Uses Chainstuff; + + +Var Pdlversion, Alf:Boolean; 0Stud_Name:String[25]; 0Chain_String:String[80]; {1-2-3 = student record number} K{4: T = true record keeping } K{5: 1 = speaker 2 = alf } K +Procedure Soundversion; +Procedure Devicever $$:STRSTUFF.TEXT,$1 SYSTEM.FILER Ҷضڶʷ޶&ʷ&~~~ʷ~ʷ M:**ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾C&ئתP   ܳH, áܳ á 8ܳH ܿPQP ááX  $$:STRSTUFF.TEXT,$1 SYSTEM.FILER Ҷضڶʷ޶&ʷ&~~~ʷ~ʷ M:**ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾C  #PROCEDURE GETSTRING(VAR OK,MOVEUP,MOVEDOWN:BOOLEAN;VAR S:STRING);    IMPLEMENTATION E pr*SYSTEM.WRK.CODE[*]vDecM:SYSTEM.SWAPDISKeTextInfoDataGrafFoto:STRSTUFF.TEXTSYSTEM.FILER #5:STRSTUFF.TEXT { 1-2-3 = student record number } F{ 4: T = true record keeping } F{ 5: 1 = speaker 2 = alf } ,Info:File of Record 7First,Rkeeping,Passwords:Boolean; 7Version:Char; 7School:String[30]; 7Disk_Number:Integer; 7Standards:Profiency; 7M_Password:Str* áצ00 á0ȡۛۛ |تPiP:Pain_String:String[80]; { 1-2-3 = student record number } F{ 4: T = true record keeping } F{ 5: 1 = speaker 2 = alf } ,Info:File of Record 7First,Rkeeping,Passwords:Boolean; 7Version:Char; 7School:String[30]; 7Disk_Number:Integer; 7Standards:Profiency; 7M_Password:String[25]; 5end;  " Procedure Set_Number(N:Integer);  Procedure Set_Sound; -Procedure Set_Name(Name:Small_String); " "IMPLEMENTATION L E .4] of Real); 8End; , ,Small_String=String[25]; ' 'Var Chain_String:String[80]; { 1-2-3 = student record number } F{ 4: T = true record keeping } F{ 5: 1 = speaker 2 = alf } ,Info:File of Record 7First,Rkeeping,Passwords:Boolean; 7Version:Char; 7School:String[30]; 7Disk_Number:Integer; 7Standards:Profiency; 7M_Password:Str ' 'Type Profiency=Record 8Case Boolean of :True :(I_Excellent_Standard,I_Good_Standard:Array[1..4] of Integer); :False:(R_Excellent_Standard,R_Good_Standard:Array[1..4] of Real); 8End; , ,Small_String=String[25]; ' 'Var Chain_String:String[80];bhhhhhhHH` hhhhhhLȹLHH`2F Bh any refsצ bad formatáōצ bad privateǠōɍ Nō bP QR ShT UVWaXYZ[w\] ^_`aHH`~{xurolifc`]ZWTQNKHEB?<9630-*'$!  /,< *!ݍ"'#$%%&#'(!)*+ݍ,-0./012345`6789:;Ѝ<=>?Í@AҍBCDEFGNH IJ KڍL M0N Osion; +Function Stud_Number:Integer; +Procedure Get_Name; +Procedure Message; + %IMPLEMENTATION E ~ʷ MLIT:*ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾C2áSelect the way you will respondצto the questions. eyboard of the computerצ

addles or Joystick* %Info.file*šZ &%Steps 1s-!  "$;(*,.02468:<>@BD_HJLNPReVXZ\^`bd{hjlnprtvxz|~  One moment *dh&Ej.(Lz  Z *V2* %Info.file*šZ &%Steps 1s-!  "$;(*,.02468:<>@BD_HJLNPReVXZ\^`bd{hj-------------------------------------- Ɓ- צ One moment צ %Score1.File  צPress to continue. Z *V2 צ(E=EXCELLENT G=GOOD N=NEEDS IMPROVEMENTצ(----------------------------------------צ CAT STEPS Score  *٢ 3-------------(ؿ S`  'Insert New Disk and press R ġEġGɡN6 צ STUDENT #   Fnj 1. Cat StepsFǂ 2. Sign OffFnצ S. See ScoresFdC. Change Disk2צ'Type your selection then press (Your Choice: _Press to exit.- á 2 سǶتPnj,,T&0d0 0( Táצ%ROUTER %Title.FǪ FUNDAMENTALSFǧצ ____________0MENU צ Your Choice: س سسhN0d0 0(צ One moment $Bp Select the way you will respondצto the questions. eyboard of the computerצ

addles or Joystickצ Your Choice: س سسhN0d0 0(צ One moment $