`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JLј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߮ȡ ؂ LARGE.FONTSYSTEM.LIBRARY TITLE.CODE! GNOME4.SYMBOLSuGNOME4.SYMBOLSuSCORE1.FILERHYTHM2.CODEvgAGNOME2.CODEvgGNOME2.SYMBOLSghTOL.FILEr hiSYSTEM.MISCINFOikSYSTEM.CHARSETk RHYTHM1.CODE MANAGER.CODESYSTEM.STARTUP MENU.CODErᮣ GNOME1.CODE START.CODE! CLASS.FILEWENG11& SYSTEM.APPLE&(GNOME4.SYMBOLSu'(+ MOVE.CODEr+/ ROUTER.CODE/0 INFO.FILErd0: NAME.FILEr:e SYSTEM.PASCALef SCORE1.FILEfg SCORE2.FILE&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`& ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴~X~YiTiUR콥S8\ȥ]\]VWlX ƎRSL~ȱȱŎRRLdҠX LdҠX PQȑLdҠXX XY 0 L_X~~8傅~8~~~78Ƈ8񆅚ȥ񆅛\[HZHl\0 LdN8Ƈ8񆅈񆅉@:8񆅈(8 8Z[ 8Z[LѠP i tiuLht i~i8~8`hh ߦ~ h0 L3 L3lvLRLX/ L 8L ߦ~ hI=+ L ߤ~襈I= ƈ LȄHHLLhh ~LhhV~W\]XiXY~8傅 !THEN TO TYPE UNTIL USES 1UNIT 2VAR WHILE WITH WNTO END ELSE EXTERNAL5FOR FUNCTION FILE .FORWARD "GOTO IF IN )IMPLEMEN4INTERFAC3LABEL MOD 'NOT &OF OR (PROCEDURPACKED +PROGRAM !REPEAT RECORD -SET *SEGMENT ܅܅ȱՈƐ2i ȱȱȩȥȩȑȑH~H`'Pޱ[ޱݱ݄ޏޚޥ޺ޱ"AL߱ݱݱ@#AND 'ARRAY ,BEGIN CASE CONST DO DIV 'DO` ۑȑآL ّ 0 ;ܩJ;* ۠؈ȩؠ#в   :>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ۥHH)> `0* x)` EHh`LL٠(MC3 `H ؠ h ~؍,,`lQ`) ũ Ȣ`JJJJ ϱ` $p0*O# =ؤ =آ`H ؠLf ֊H h ɢ)L ,10U0I ,109,c$0 A[ $P0Ji)jj%UIЂ )?LI@a Hb c0  hH ׎h$L hhh 靱`hhh(`hhhhhhϐ8 (ֹH ֥ +ֹP b)*Ȫ`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>`ȅbSϭb߅83IbߐibŅ QHPH PȱPP꽥QLdҠ RhPhQLH RR8~S~\ȱ~]X i RHLiR~ȱRV~ ~VWRTȱRURXȱRYRRR콆SLdҠ8񚅆񚅇`ȱL8~ȥ~e~ȱ~e~8ƇƎ`3[[`3[[`\Z][ 8\Z][`Lх~ e~ HHH> ]>HBC\8倅\]偅]  " ]H\HHHAH@H > ޽ Insert boot disk with SYSTEM.PASCAL on it, then press RETURN# SYSTEM.PASCAL is not version 1.2#lhLhx hmDŽ ) W 9LK " W 8ƛ 58Ƈ8\񆅖ȥ]񆅗8񆅖Ɨ8 ƗLPQ L楆8Ƈ8񆅔ȥ񆅕8Ƈ iiL奖 㥘 㥔 㭭ххІ 51-l l Ɗgƈд** 6`V QRTWHHlRHHlT Эhh a0+&00 1حB/C0@A "!歪筫䭬)aVV#$6 </\z FLLIEHJh**F`F$Lө ޽޾ HHHH`HHHHHH  < `) ,1P `*0 򭋍8TU 8X再Y凍TVｌLXiXYXiXY HHXYX olhh)X0 eXXYLLeT~eU~8~X~YLdҩHHL^ҠXHXHL?飨RHRHL^Ҡ UѥRehnSeio nHnHLLҠ UѥRehnSeioni n%D[abHT%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\v]w]|\ v\w] RPRRSQRR @RȭAR)[ [Zqʊ qŐ`8H<8H\Ni iIHHAH@H GH#FF) l GGԬهП8ƋȱHHHH`HHHHHH  < @>~?aƁ)ɠG#ooHnHLLҠ UѥRehnSeio hnhnLLèPHPHL^Ҡ UѥPehnQeio nHnHLLҠ UѥPehnQeioni nooHnHLLҠ UѥPehnQeio hnhnLLҠX qѠ Uѥhelniemo nHnHL?ҠX qѠ Uѥhelniemoni nooHnHL?ҠX qѠ Uѥhelniemo hnhnL?ҠX Uѽeh~ei~H~HL?ҠX Uѽeh~eih~h~L?ҠX UѽeheiHHL?h~hȱ~H~HL^h~hhh~ȥL^ҠXȘ ~X)XYXHXHXe~XYLdҠX~ 8倐~hrhsrHrH|@@@@@@<?~X~|@0@@@ @l@x?~|@O~Ï|@ @@@D@$ @(@L@$@ ?~|@@@@@@@@@P@0 P]}  A]8  One Moment %Manager צ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.FMUSIC123NK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBBLANK 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 aBLANKLANK 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 aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANK@š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 BLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aMUSIC123NK not aMUSIC123NK not aBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANK š K6"á61 ɚ V %ɡšɡš  PꟚšw#ńE z 0 ńȄ!~Í`~W ˡ!  ,ȫ$* "ë넡,~ *Í2~ šˡ.$  š 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 r3N3D3N3:l :.hzpL d | :\0T1 IBADFORM\0h1ISTRGOVFJ0\0|1CMDSTATE4x71\2HALTINIT<1DEBUGCALL311UPROGNOU1x411UPROGUOK311SYSPROG NL211COMPONLY6212COMPANDGJ2˄ `1 b (   d˯7 H ġ  *@#@,A$BBBZCC"DrDDEFtFGdGGG.InIIIfJJ0JKzxM2߂ɡ F b6} š.ö}Ä-D76!~?\FצPut in :P?FP'then press RETURN *o# ~8W8EEHצE#  9 *,.02468:E&*E$ á"ˡ"& E ##&Eá 9'89:٢ š٢ ٢٢ 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.CODE8FNo user programתP8F0ERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P> Eá.0::8SWAPFIB OJ8NL7SYVID 3?DKVID $Z3zL;THEDATE 3CDEBUGINF[LD STATE 1EPL :FIPOT Mo$M  FILLER DMʀ=ʀ* ʀ́ʁݢGʁݢHʁݢIʁݢ%O tƀ&́ʁݢʁʁݢʁݢ%́޲8ʁޢʁޢʁޢʁޢʁޢ ʁޢʁޢ ʁޢ ʁޢ ʁޣ  ʁޢʁݢ́ʁޢʁޢʁޢʁʁޢʁޢʁޢʁޢ88ʁ  תʁޢʁʁޢ́Ɓ߲Ɓ߲ Ɓߪʁޢˡdتٞ&ݢ`ڤá 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 ۪*ʁd ضá0?ʁd*SYSTEM.STARTUPת(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%;??ٟá'C "á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILERת צ:SYSTEM.LINKERƁ&<́b́cʁcȡ~ؤ́dʁdתʁdس0ʁdʁd؞&"áƁ]Ɓ4 PƁ4ƁaƁeƁmƁn!́oƁaʁo ת "ˡCܡ>"áצIllegal file nameNo file  ́ṕqʁq́rʁrˡ  צ not codeʁq2ʁr"ˡצ Bad block #0ڡ;ƀ ˡ.  is not version 1.2ړ22H24<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.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ܟġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á .ת&תת(%Ɓ.񄓡9&   P ? ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXȡG Z    ; %ljRHYTHM:< ǘljצCORRECT: V f!CGG@B@ȡ1G@ؚ:GG2Exȡ"ȡ ȡ QE t ȡ?:إGG-GzFȡG2ȡ)?:GG3ȡGGG2ȡ)?Y  ǿ  FȡG2ȡGG3ȡGGG2ȡ ; ɡ_You are NOT finished.צYour score will NOT be saved.צDo you wish to quit (Y/N)? س; ɡצ%Menu ȡ+Procedure Get_Name; + %IMPLEMENTATION E ڶʷ޶&ʷ&~~~ʷ~ʷ WORK:*ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾C2á0d0 0(Bh= true record keeping } K{5: 1 = speaker 2 = alf } K +Procedure Soundversion; +Function Stud_Number:Integer;  p RHYTHMDRRHYTHMSTMAINPROCFINE OPENFILE .#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? <5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   !6>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:>@@NDONE@B@ȡcG@G@@fG@@f@@fCǺACORRECTg<1 62 63 64 6$161262363464E  "$&(B,.02468:<>@BDFHJLNPRuVXZ\^`bdfhjlnprtvxz|~I)nstructionsǑǖצ(Q)uitflj Pצ Would you like instructions Y/N?سX5ٹHf<1.MM 60Ef22.MM 803f(3.MM 100!f4.MM 12014O?/f6Ac.?AA6 Ac?A ABB> Ac?A A?A ABUph?A??Ac?A0ABB>,Ac?AABB>? Ac.A A63Ac?ع1 6!2 63 64 614ٹ6lj6n)YE14=0% 0Z  Pצ INSTRUCTIONS: F"The computer will display rhythms. < Try to TAP each rhythm correctly 2on the computer keyboard. (צAny key may be used. צ(The space-bar works well.) PBefore tapping, Fצ#the METRONOME will beat one measure <to set the TEMPO. (צ&On Apple IIe and IIc, DO NOT hold down تPRE  ^d=hhh6vmjtdэ^~YxT O  צ One moment SAVING YOUR SCORESצ %Score2.FILEʁ. RETURNING TO MENU צ%MENU\  @ T^0Ɓ-<%Gnome4.SYMBOLSب<Kب<ب<ب<[ب<ب<ب<ب<צ %Tol.File  צPress  צ One moment SAVING YOUR SCORESצ %Score2.FILEʁ. RETURNING TO MENU צ%MENU\  @ T^0Ɓ- צYOU GOT <  CORRECTOUT OF A POSSIBLE ; <;d́.FOR A SCORE OF:ʁ. %צPress  ǖצ <;518 4  $ ` &` ,\TT,p,pj@ T^0p8o be saved.PצBYE |x1tplCtd  *>(F":&(*,.02468:<>@`^FHJL\PRTVjZ~hbz8 ǖצPress  ǖצ <;518 4  $ ` &` ,\TT,p,pj@ T^0ur score to be saved.PצBYE |x1tplCtd  *>(F":&(*,.02468:<>@`^FHJL\PRTVjZ~hbz8 ǖצPress צ(T)empo  PTEMPO: F!Allows you to choose a new speed. <צ Tempo is given in METRONOME(MM)  2צspeeds. (&You may change this whenever you wish.ǑǴ(T)empo Pצ You must do 10 rhythmic examples Fצ$in order for yo 2$RIGHT line shows your note duration. ($If the RIGHT line is longer than the LEFT, your note was too long. צ%If the RIGHT line is shorter than the LEFT, your note was too short.ǖ (D)isplayǑǴORRECT: FPlays the rhythm correctly. <צ!If you need help, listen to this.77Ǡצ (C)orrectǖ (D)isplay  PצDISPLAY: Fצ#Lines show the length of each note. < LEFT line is the correct length.Z F%Allows you to repeat the same rhythm.Ǵצ(R)epeatǪצ (P)layback  Pצ PLAYBACK: F"Plays the rhythm as you performed. <%This is good for hearing your errors.Ǫצ (P)laybackǠצ (C)orrect  PCצ$the space-bar when tapping a rhythm. PצTAPPING: FצAfter the metronome beats, <צ$tap the displayed rhythm on any key. (צ(You may prefer to use  !two hands on two different keys.)Ǵצ(R)epeat  PצREPEAT:A K G CH?;a875:2h/,< *!ݍ"'#$%%&#'(!)*+ݍ,-0./012345`6789:;Ѝ<=>?Í@AҍBCDEFGNH IJ KڍL M0N OP QR ShT UVWaXYZ[w\] ^_`aHH`تPRع MR. GNOME IMinimum EXCELLENT (1-100%):Minimum score GOOD (1-100%):hצRHYTHM IMinimum EXCELLENT (1-100%):5Minimum score GOOD (1-100%):d3 **,.02468:<>@DFHJLNPRTVXZ\^`b    áE""AAName AצPassword A Remove this person (Y/N)?  Type 'DELETE' to zap all namesor press PP צDELETE}ȡ lArd  "\&(ll records (1-125) Zapצ ape without zapצ Choice=> &áE""AAName AצPassword A Remove this person (Y/N)? AצBLANKA צBLANK AAȡW   ecord number   Zap -----   A  A AA?4 NT  šA  A AAomp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾C    }áצPress 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 ------------------------- 0zlh< Z X MANAGER CHANGENAADDNAME ZAPNAME SETPROF SETTOLERSOUNDSYSPRINTOUTPRINTSCO @fG@@f@@fCǺACORRECTg<=> 

begin printing ape   +},+,ȡ +++  +},+,ȡ%+++++x  "$&(*,.02468:<>r*     +},+,ȡ+++ #Move the cursor to desired location! marks a record for printing omplete printout3--------------------------------------------------- צMR. METRO GNOME I Written Quiz   of 7צ Performance Quiz  צ of 6 צ SCORE  %*ۢ3---------------------------------------------------צRHYTHM Iצ SCORE  *ۢEDS IMPROVEMENTצ(----------------------------------------צMR. METRO GNOME I Written Quiz   of 7צ Performance Quiz  צġEġGɡN6AAš dצ STUDENT #  Aצ(E=EXCELLENT G=GOOD N=NEצ Choice 1-2 **  v  R ٓ š* 8  צ" S E T N E W S T A N D A R D SPress for no change.!Press or ^ to  * SPEAKERתALF ת 12'צCurrent sound system is Change (Y/N)? @@n צ<1> Speaker <2> Alfd  z 4 ȡ خٓ š* 8  צ" S E T N E W S T A N D A R D SPress for no change.!Press or ^ to d Current tolerance =  %Change (Y/N)? س@@سiצSet tolerance to (1-99%)? dɄ, á.?jXȡ خٓ š* 8  צ" 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.  `@l Ą...Ą\.d.Ą8...ĄX6-, á.?jXȡ خٓ š* 8  צ" S E T N E W S T A N D A R D SPress for no change.!Press or ^ to Pצ(E=EXCELLENT G=GOOD N=NEEDS IMPROVEMENT+},+,ȡ +++   =6+tWVtz "$&(*,.02468:<> צConsole:צ One moment   צPress to continue.   *צOFFצON צRecord keeping is ; (  B&J( jrګ٫4AAd(A 8J(צ  u < "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvx|~ ǿ ٶٶٶٶRr(ȡھ`ġھ ؕ': ق}š} ɡ}( &    % צ JxFצ<@>Transfer Names0x2צuit! yk[&F. ) Z6ȡ#ȡ + B  Z>apxnjecord keeping* צ ON  צ OFFxǂצ ound - * SPEAKER ALF  12'xxצanager passwordxn ook scoresxd

rint scoresxZצew standardsxPצ olerance dצPress & ٪Pء (R0 ǭ?تPRٹxǠiewǪǠצhangexǖddǪǖ<}ȡ4AABLANKׯ   GA***N Printer:" áf No Printer is on-line( Record No.# צ One moment }ȡ .bAצ %NAME.FILE* %INFO.FILEצ %Score1.File %Score2.Fileצ %Tol.File(& 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**(٪P.--,/,/ġ,0.. .,,&ZF<⥅Am*V2 @á 'This option transfers the student namesצ"and passwords from one MUSIC CLASSצdisk to another.צTwo disk drives are required touse this option and both the#sourcسǶ(ؿ T\  'Insert New Disk and press R ġEġGɡN6 .... Fnj1. Mr. Metro Gnome IFǂ 2. Rhythm IFxצ 3. Sign OffFd S. See ScoresFZצC. Change Disk2'Type your selection then press (צYour Choice: _צPress to exit. á 3 تPnj,,T&0d0 0( Táצ%ROUTER %Title.FǪ FUNDAMENTALSFǧצ ____________0MENU V\ Ҷضڶʷ޶&ʷ&~~~ʷ~ʷ MLIT:*ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾CƁ/צ #5:Info.File"ál  Remove Music Disk From Drive #2.Press &P C צ One moment צ%TITLEJI STARTUP   צ%Move   One moment  צ%TITLEA*t#t lP  t 8( Z `H`&z6  bR  6d jP f Two disk drives are required andBoth disks MUST be Version 2.צDo you want to continue Y/N? e and target MUSIC CLASS disksצmust be version 2.0 or greater.Do you want to continue (Y/N)?   צ%Move   One moment  צ%TITLEA*t lhhhhhhHH`&vh 8   (t>0 4 v L 4 f hf#source and target MUSIC CLASS disksצmust be version 2.0 or greater.Do you want to continue (Y/N)?   צ%Move  š$.. d STUDENT #   (E=EXCELLENT G=GOOD N=NEEDS IMPROVEMENT(----------------------------------------MR. METRO GNOME Iצ Written Quiz . צ of 7 Performance Quiz .  of 6  SCORE  %*ڢ+++ǰ+++ǴצPress  g  X*  bǖצ ANNOUNCING ! Ql{lǸ ǖ< QǂצMr. Metro Gnome F !!ǐ!!!!!!X""!!""!!""!! Qx &  QnצRHYTHM in Music P !&ǐ!&!&!&X"'!&"'!&"'!& &ġ &ȡ  + -ǪצWELCOME TO MR. GNOME I ǖ ǐX bǖצ ANNOUNCING ! Ql{lǸ ǖ< QǂצMr. Metro Gnome F !!ǐ!!!!!!X""T á+++2Sdצ&This program uses the ALF synthesizer. ZצAdjust the Volume now. +F&On Apple IIe and IIc, DO NOT hold down <$the space-bar when tapping a rhythm. (Press ,++   2=,,,++++++'2ȡ" r$,,,+++#2ȡ R Ҷضڶʷ޶&ʷ&~~~ʷ~ʷ MLIT:*ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾CƁiƂƁ-<Ɓiצ %Info.Fileʁiʁi2áƁiצ%Gnome4.SYMBOLSrب<ب<6ب<ب<ب<ب<Fب< ب<d,Ɓi pN d  RGNOME1 OPENFILEINTRODUCPLAYMUSITEST TEACHBEACHALLENGMUSIC MUSICTES * %Info.file*šZ 7%Gnome1צ%Rhythm1 1s?2$  "$<(*,.02468:<>@BD`HJLNPRfVXZ\^`bd|hjlnprtvxz|~  One moment *vz&E"z6Z Ɓ. *V2* %Info.file*šZ 7%Gnome1צ%Rhythm1 1s?2$  "$<(*,.02468:<>@BD`HJLNPRfVXZ\4 Ɓ.ƂZƁ-  One moment Ɓ.צ %Score1.Fileצ %Score2.File  צPress to continue. Ɓ.Ɓ. *V2͈ٮ צ3---------------------------------------------------RHYTHM I SCORE  %*ڢ צ3---------------------------------------------------!!""!!""!! Qx &  QnצRHYTHM in Music P !&ǐ!&!&!&X"'!&"'!&"'!& &ġ &ȡ                     p! ! " $ $ " !     ! !  ! ! " $ $ " !     !   U  צNow listen to a tunethat uses Whole Notes,צHalf Notes, or Quarter Notes.' Music can be Fast OR Slow.צ!Use the left and right arrow keysצas Mr. Gnome plays.' "צ#Music is made of stem.צThe Whole Note has no stem.צNo, the Quarter Note is filled."dd  צThe above note isצ Half Noteצ Whole Note Quarter NoteצNo, the Half Note has a stem.צYes, with no stem."No, the Quarter Note is filled in."dd  צThe Quarter Note getsצ four beats two beatsצone beatצ#No, the Whole Note gets four beats.צ!No, the Half Note gets two beats.צYes, one beat.0, Noteצ Whole Noteצ Quarter Note Yes, not filled and with a stem.צThe Whole Note has no stem.צNo, the Quarter Note is filled."dd  צThe above note isצ Half Noteצ Whole Note Quarter NoteצNo, the Half Note has a stem.צYes, with no stem."No, the Quarter Note is filled in."dd  צThe QuartצThe above note isצ Half Noteצ Whole Note Quarter NoteצThe Half Note is not filled in.צThe Whole Note has no stem.צYes, filled and with a stem."dd  The above note isצ Half Noteצ Whole Noteצ Quarter Note Yes, not filled and with a צYes, music has a pulse.צNo! Beets are a vegetable.Other names for Pulse are:צSpeedצ Beat & CountTimeצ No, speed is for slow-fast only.%Yes, these are other terms for Pulse.צ&No, time is not necessarily the Pulse.ddd  es 1-2-3 then press the RETURN.צ'צMusic is sounds arranged in ?צRhythmSpaceצPaperצ Yes, Rhythm.צOnly to Martians!צNo, but written on paper.'The steady feeling of music is called ?צTappingצPulseצBeetצThat is what our feet do.ʀ  ʀʀá( ƀʀ ƀʀʀʀá&02*  צHere are some questions on what has been covered so far.צ'צUse the Arrow Keys to select$choic3.  ƀ צ$Press arrows or 1-2-3 then . ̀ ʀʀ̀>ʀ̀4 /( & 0 "$&2ʀš̀ ʀɡ̀&̀̀̀13ު(]ݪ(Hܪ(3۪(ڪ( ٪(ƀƁ3(ƀƁ(ƀƁ (ƀƁr(ƀƁ](ƀƁH(Ɓ̀<  2ƀ (1.  ƀצ2.  ƀȡȡOWTz ع$(1. %2. 3. +! D  ǿ  ƀߪ(r    ! !                       ! !                               xiá عFL  $ " !     ! !  ! ! " $ $ " !     !       ! !                       ! !                       sound which occursצ"in a Pulse, like your heart pulse.'Examples of pulse might includeצ!a clock, your heart, and walking.צ'When people make music, it isצimportant to keep a pulse.צ'צ'Watch as Mr. Metro Gnome keeps a pulse.צ!Another name for pulse is a beat.צ' Press to continue.   Now clap along with the pulse.צPress to continue.  'Theseع 2d  "$&(*,.02468:<>@DH~س  س6d^nome  ǴǠ Your Score "ǂ ȡ i& ȡ ع+$ )šɡ 2 2 22  ߹ 22>rase board צadio 7PצuitצEntries: "It is your turn to create andצperform rhythms. Enter rhythmsצ!for you and Mr. Gnome to perform.'Ǡ2ǴצSCORE ǴǪ Mr. GD2 Ǡš ȡ3  =Z 22 22 Select 1-8 notes with    Press  צ

lay ap . ˡ'צPress to continue. ! <x%!- ! "$&3*,.02468:G>@BDFHJLNtions.SCORE:  d %PRESS   One moment  %Score1.file)צ%MeƁ- צWritten Quiz Correct  Performance Quiz Correct  צ Total of   correctout of  צ ques:צListen to Mr. Gnome play the$above rhythm and then try once more.צ'i  p ɡ;No, not yet, but continueצto the next rhythm. צ'&צThat is the end. Thank-you.צ' צMr. Metro Gnome now asks youto play rhythms.צ' i"ع % $ ~ h@  again.צ':צListen to Mr. Gnome play the$above rhythm and then try once more.צ'i  p ɡ;No, not yet, but continueצto the next rhythm. צ'&צThat is the end. Thank-you.צ' ع            _M    3)     wWG/' #צThink of each note valueand try again.צ'E-BAR.צ' %%3J tap the"Half Notes above on the SPACE-BAR.צ'ȡ (2d Study Quarter, Half, & Whole Notes P <2> Challenge Mr. Gnome  lFצ <3> Written quiz  N<צ <4> Rhythm quiz  12 <5> Quit Mr. Gnome   fJ/ %ȡ %Press  or choose another chapter. %& " %س>0%     á $ צ%Do you want to quit thijlnprtvxz|~  One moment *vz&En*N| Ɓ. *V2* %Info.file*šZ 7%Gnome1צ%Rhythm1 1s?2$  "$<(*,.02468:<>@BD`HJLNPRfVXZ\^`bd|h4 Ɓ.ƂZƁ-  One moment Ɓ.צ %Score1.Fileצ %Score2.File  צPRESS   Ɓ.Ɓ. *V2s 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 00 f.Fn4R > 4p(@XpJ%  á ! ! Zb!ƀݪPƀܪPƀ۪P[ڪP2٪P تPߡƀƀƀ'i[2 '+&!  #% "3*$#P=Zs chapter Y/N?. !    á ! ! Zb!ƀݪPƀܪPƀ۪P[ڪP2٪P تP* %Info.file*šZ 7%Gnome1צ%Rhythm1 1s?2$  "$<(*,.02468:<>@BD`HJLNPRfVXZ\^`bd|hBOBO 6?ǁx6 ?<Ȫ|>acters maximumצ&<3> characters minimum (alphabet only)צThen press צ------------------------------ńצ"Enter your school or personal nameצ!as you wish it to be displayed onthe title page of this disk. Be selective!צYou will only do this once.<30> charȡ#ٛ`ġ ٛٛ ٛٛ+ > (Pצ š ɡ..ȡۛ!^X p lSTART (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 pFaPaaDisk name entered as:צIs this correct Y/N? ٳ BD$ y/2 צ %INFO.FILE&  One Moment %Title& URN>צ------------------------------ń&~ʈƅ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 @d $ "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 n7f X/1LONGINTIPASCALIOCHAINSTUAPPLESTUTURTLEGRTURTLEGRGSTUFF1 GSTUFF1 SETUP SETUP STRINGST 2-0aPaaDisk name entered as:צIs this correct Y/N? ٳ BD$ y/2 צ %INFO.FILE8倅偪ʈƅ})H揥>ʈƅ ~擥  抦|ɥ8包~ƅLII懩&&u`hh HHHHHL,} ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,Lwhhh [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 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 $ "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>  z Z   :    ( tV8z <| "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "PROCEDURE SWAPGPON; "  IMPLEMENTATION X E 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 $ $TYPE &RStatType = (RStatBusy, RStatReady, RStatOffline); " RSChannel = (RSOutput, RSInput); " $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTI0TRšزTRPزTPR, *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šH++H0تPRšT+R+PTPC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE; $PROCEDURE CHARTYPE(MODE: INTEGER); " "IMPLEMENTATION $endc}  " SETC SHORT := FALSE}  X E CHAR); $PROCEDURE WSTRING(S: STRING)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>  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}  hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh E J j 8  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%)NTEGER); %PROCEDURE ARMSUP(COLOR:SCREENCOLOR;M:INTEGER); %PROCEDURE ARMSDOWN(COLOR:SCREENCOLOR;M:INTEGER); %Procedure Chalkboard; %PROCEDURE MAN; %PROCEDURE SMILE; %PROCEDURE MANUP; %PROCEDURE MANDOWN; %PROCEDURE CLEARBOTTOM; %Procedure Swrite(x,yGER); %PROCEDURE DSIX(X,Y,M:INTEGER); %PROCEDURE DFOURSIX(X,Y,M:INTEGER); %PROCEDURE DEIGHTHSIX(X,Y,M:INTEGER); %PROCEDURE DSIXEIGHTH(X,Y,M:INTEGER); %PROCEDURE D_DOT_EIGHTH(X,Y,M:INTEGER); %PROCEDURE DRADIO(X,Y,M:INTEGER); %PROCEDURE DERASE(X,Y,M:I%PROCEDURE DWHOLE(X,Y,M:INTEGER); %PROCEDURE DHALF(X,Y,M:INTEGER); %PROCEDURE D_Dot_HALF(X,Y,M:INTEGER); %PROCEDURE DQUARTER(X,Y,M:INTEGER); %PROCEDURE D_Dot_QUARTER(X,Y,M:INTEGER); %PROCEDURE DEIGHTH(X,Y,M:INTEGER); %PROCEDURE DTWOEIGHTH(X,Y,M:INTEX,Y,M:INTEGER); %PROCEDURE FRONTFACE(X,Y,M:INTEGER); %PROCEDURE Foot_Down; %PROCEDURE Foot_Up; %PROCEDURE TRUMPET(X,Y,M:INTEGER); %PROCEDURE VTRUMPET(X,Y,M:INTEGER); --)v /SCORING,CORRECTTAP,Continue,Testing:BOOLEAN; /CH:CHAR; , Play_Array:Packed Array [1..9] of 0..255; /Chain_String:String[80]; /School_Name:String[30]; , 2 2 % %PROCEDURE AT(X,Y:INTEGER); %PROCEDURE WAIT(PAUSE:INTEGER); %PROCEDURE SIDEFACE(ING=STRING[40]; * # + + +VAR MISS,CSCORE,Pscore,Tscore,LEVEL,FREQ1,TEMPO, /Chapter,K:INTEGER; 3(* Cscore = total correct score 6Pscore = performance score 6Tscore = test score *) /FACE,SIGN,SIGN2,SIGN3,SIGN4,SIGN5,SIGN6,SIGN7:PICTURE;  &USES APPLESTUFF,CHAINSTUFF,TURTLEGRAPHICS; & & &CONST MM = 7; ,Scorename = '%Score1.file'; ,Very_Fast = 35; ,Fast = 70; ,Medium = 105; ,Slow = 140; & * &TYPE PICTURE=PACKED ARRAY[0..14,0..58] OF BOOLEAN; & SMALL_STRSETPORT @=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       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(%$ $ @' &   :integer;S:String); %PROCEDURE BLANK; %PROCEDURE ERASEBOARD; %PROCEDURE FIRSTCORRECT; %PROCEDURE RANDOMSMILE; %PROCEDURE SECONDCORRECT; %PROCEDURE STOPG; %Procedure Text(Line1,Line2,Line3:String); PROCEDURE SPEED;  Function Stud_Number:Integer;  Procedure Initsynth; %Procedure SetVolume(Channel,Volume:Integer); %Procedure SetPitch(Channel,Pitch:Integer);    IMPLEMENTATION E %PROCEDURE MANDOWN; %PROCEDURE CLEARBOTTOM; %Procedure Swrite(x,ying[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];SIGN rSETVOLUM +SETPITCH ,SIGN2 6SIGN3 SIGN4 SIGN5 SIGN6 FSIGN7  TEMPO TESTING TSCORE  @112FFddCH CHAINSTRCHAPTER CSCORE CORRECTTCONTINUEFACE FREQ1 INITSYNT *K LEVEL MISS  PSCORE PLAYARRASCHOOLNASCORING dJ8Vt (FhX,Xdd@ZRRZPKH @ FFǖ ǖ Fiǘ@112FFdd 2GGd2EE_2td   0  ǿ  600Vnb(Z_fZXdd@ZRRZPKH @ FFǖ ǖ Fiǘ@112FFdd r3 (6 6 "6, "F" " /r2 r2 rr' r r, 6 V -  &2'تPR I - # +^(ȡ  $|That is better. צ'qYou are correct now. 'RצKeep up the good work. צ'1Mr. Gnome likes it now! צ'kN/%ǴצPress Ǵ >&VڪP-٪PتP 0d0 0,)! GǕ  ǿ ""S Very Good! 'Nצ Way to go! צ'9 Wonderful! '$צ Terrific! '[H5"|#á:integer;S:String); %PROCEDURE BLANK; %PROCEDURE ERASEBOARD; %PROCEDURE FIRSTCORRECT; %PROCEDURE RANDOMSMILE; %PROCEDURE SECONDCORRECT; %PROCEDURE STOPG; %Procedure Text(Line1,Line2,Line3:String); PROCEDURE SPEED; { 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]; Function Stud_Number:Integer;  Procedure Initsynth; %Procedure SetVolume(Channel,Volume:Integer); %Procedure SetPitch(Channel,Pitch:Integer);    IMPLEMENTATION E %PROCEDURE MANDOWN; %PROCEDURE CLEARBOTTOM; %Procedure Swrite(x,y:integer;S:String); %PROCEDURE BLANK; %PROCEDURE ERASEBOARD; %PROCEDURE FIRSTCORRECT; %PROCEDURE RANDOMSMILE; %PROCEDURE SECONDCORRECT; %PROCEDURE STOPG; %Procedure Text(Line1,Line2,Line3:String); PROCEDURE SPEED; NTEGER); %PROCEDURE ARMSUP(COLOR:SCREENCOLOR;M:INTEGER); %PROCEDURE ARMSDOWN(COLOR:SCREENCOLOR;M:INTEGER); %Procedure Chalkboard; %PROCEDURE MAN; %PROCEDURE SMILE; %PROCEDURE MANUP; %PROCEDURE MANDOWN; %PROCEDURE CLEARBOTTOM; %Procedure Swrite(x,yGER); %PROCEDURE DSIX(X,Y,M:INTEGER); %PROCEDURE DFOURSIX(X,Y,M:INTEGER); %PROCEDURE DEIGHTHSIX(X,Y,M:INTEGER); %PROCEDURE DSIXEIGHTH(X,Y,M:INTEGER); %PROCEDURE D_DOT_EIGHTH(X,Y,M:INTEGER); %PROCEDURE DRADIO(X,Y,M:INTEGER); %PROCEDURE DERASE(X,Y,M:I%PROCEDURE DWHOLE(X,Y,M:INTEGER); %PROCEDURE DHALF(X,Y,M:INTEGER); %PROCEDURE D_Dot_HALF(X,Y,M:INTEGER); %PROCEDURE DQUARTER(X,Y,M:INTEGER); %PROCEDURE D_Dot_QUARTER(X,Y,M:INTEGER); %PROCEDURE DEIGHTH(X,Y,M:INTEGER); %PROCEDURE DTWOEIGHTH(X,Y,M:INTEX,Y,M:INTEGER); %PROCEDURE FRONTFACE(X,Y,M:INTEGER); %PROCEDURE Foot_Down; %PROCEDURE Foot_Up; %PROCEDURE TRUMPET(X,Y,M:INTEGER); %PROCEDURE VTRUMPET(X,Y,M:INTEGER); --)v /SCORING,CORRECTTAP,Continue,Testing:BOOLEAN; /CH:CHAR; , Play_Array:Packed Array [1..9] of 0..255; /Chain_String:String[80]; /School_Name:String[30]; , 2 2 % %PROCEDURE AT(X,Y:INTEGER); %PROCEDURE WAIT(PAUSE:INTEGER); %PROCEDURE SIDEFACE(ING=STRING[40]; * # + + +VAR MISS,CSCORE,Pscore,Tscore,LEVEL,FREQ1,TEMPO, /Chapter,K:INTEGER; 3(* Cscore = total correct score 6Pscore = performance score 6Tscore = test score *) /FACE,SIGN,SIGN2,SIGN3,SIGN4,SIGN5,SIGN6,SIGN7:PICTURE;  &USES APPLESTUFF,CHAINSTUFF,TURTLEGRAPHICS; & & &CONST MM = 7; ,Scorename = '%Score1.file'; ,Very_Fast = 35; ,Fast = 70; ,Medium = 105; ,Slow = 140; & * &TYPE PICTURE=PACKED ARRAY[0..14,0..58] OF BOOLEAN; & SMALL_STR $$: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:integer;S:String); %PROCEDURE BLANK; %PROCEDURE ERASEBOARD; %PROCEDURE FIRSTCORRECT; %PROCEDURE RANDOMSMILE; %PROCEDURE SECONDCORRECT; %PROCEDURE STOPG; %Procedure Text(Line1,Line2,Line3:String); PROCEDURE SPEED; 0d0 0,)! GǕ  ǿ ""S Very Good! 'Nצ Way to go! צ'9 Wonderful! '$צ Terrific! '[H5"|#áثǭ @[Ʉ AZA     DتP-.-.ȡ---V 4٪Pnj--ء-T: %LARGE.fontp|$TITLEPAGLARGE nnon-alpha name٢ōצ too many refsצ bad formatáōצ bad privateǠōɍ Nō bad globdefōצ bad publicdefd٢٢Ǡ2:` v,p > p\ 2hP<ZxJh,ë[ !šššá8 ١צ li read err ١آ~{xurolifc`]ZWTQNKHEB?<9630-*'$!  bhhhhhhHH` hhhhhhȹHH``6789:;Ѝ<=>?Í@AҍBCDEFGNH IJ KڍL M0N OP QR ShT UVWaXYZ[w\] ^_`aHH`dэ^~YxT O A K G CH?;a875:2h/,< *!ݍ"'#$%%&#'(!)*+ݍ,-0./012345 2GGd2EE_2td   0  ǿ  hh6vmjtZ_fZXdd@ZRRZPKH @ FFǖ ǖ Fiǘ@112FFdd r3 (6 6 "6, "F" " /r2 r2 rr' r r, 6 V -  &2'تPR I - # +^(ȡ  $|That is better. צ'qYou are correct now. 'RצKeep up the good work. צ'1Mr. Gnome likes it now! צ'kN/%ǴצPress Ǵ >&VڪP-٪PتP  ǭ. 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ȡٛ`ġ ٛٛ ! 4*צ[OFF]צ[ON] "*2צ[APPLE SPEAKER]&צ[ALF SYNTHESIZER] 12:$ צ VERSION 2.10צ ------------  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      ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏  ݢצ8 P One moment *צ %INFO.FILE**צBLANKצ%Start צ One moment *%צ%ManagerYNAMEׯצ%Start=*צ%RouterT!FMUSICצ%MENU*"Rt ơ/l*V2 צ8 P One moment *צ %INFO.FILE**צBLANKצ%Start צ One moment *%צ%ManagerYNAMEׯצ%StartTHM IP Version: 2.10<צAuthors:2צFrank Bradshaw(צ Virgil Hicksצ$Press for Manager Information. צPress to continue.ƥťĥƓơ/l*V2 ǪצWenger CorporationǠצpresentspPPF צ (C) 1985 The University of Akroñʃȡ*lǴצThe Music Class SeriesǠצ FUNDAMENTALSǂצMR. METRO GNOME InRHYצ 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:  z Z   :    ( tV8z <|