`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$Jȡٛ`ġ ٛٛ ! 4تP++(+T.Ɓ0*צ %Info.File]*%P* %Name.File}́CʁCȡ}ۨ0@HROUTER ȡ ؂LIBRARYѯSYSTEM.STARTUP TITLE.CODEMBTWOPLAY.CODE MENU.CODEr MANAGER.CODEMOVE.CODErMOVE.CODErSYSTEM.STARTUP TITLE.CODE MANAGER.CODE SYMBOL.FILE SNAME.FILE CLASS.FILEMB.CODErѯ MENU.CODErMBTWOPLAY.CODEQSYSTEM. LARGE.FONT MBGFAME.FILEtSYSTEM.MISCINFO MOVE.CODErꪊ SCORE1.FILE INFO.FILErd蠌 SMBGFAME.FILEt SCORE2.FILEf SCORE3.FILEf MBTK.CODErMBTKER6  ROUTER.CODE  NAME.FILErSYSTEM.CHARSET$ SMBG.CODErѯ$2MBG.CODErѯ23I.FILEr 37 START.CODE!7b SYSTEM.PASCALb SYSTEM.APPLE&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&ȡ& ȡ.# >& Press 2FZ ,  UNIVERSITY OF AKRONCENTER OF FINE AND APPLIED ARTSGerard L. Knieter, DeanDEPARTMENT OF MUSIC Then YOUR NAME ==> xPBLANK׷)}--ȡ}ثI do not know anyone named BLANK 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 aBLANKMUSIC123NK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBnP :zB    Type Your Password Then 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 %ManagerNKBLANK 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تP,-,-ȡ*, ˸ٶ, ,,<V R צ XX צ XX צ XX צ XX צ XX צ XXXXXXX XX צ XXXXXXX XX ("(SMBGAME1MBUNIT .#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? <5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   !6>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:>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 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!)!@fneu@     f$6HZ X(ecute, A(ssem, ? [1.2]ʷ߾C Do you want to quit (Y/N)? WWצ%MENU z  ȡتP++(+answer.צ"Each correct match gives 10 pointsצfor each level of difficulty.$(Ex. A match at level 10=100 points)Press to continue.  into the box.צThere are 20 levels.צYou will start with level 1.צPress to continue. "Points are scored for each correct  צWell it's not too hard,$but you will need to know some musicsymbols.&If the symbol you see matches the wordpress any key to let it <>@SQFHSW|~   WELCOME TO SUPER MUSIC BOX GAME.צHave you played before (Y/N)? س@@س"GOOD!turn to menuצ'Type your selection then press   Your choice: WWNNW YU QRvJ  "$&(*,.02468: צ High Score:  צ Choices:  epeat Gameצ ave score to top 20צ iew Hall of Fame uit and re > .g@>š\צCongratulations you move up toצ position > >š ~Ɓ- צYour last score on level  צ: o  צ One moment %SMBGFAME.FILE>d@AA> @>ɡצYou have slipped from @ >š#off the Hall of Fame./צ to position???A T??ȡ7٢   ?>??AZ?>?ġ6????اآ >?  ??צPress to continue. ??ȡ:٧A?>>@??E ^>??ȡ6?%SMBGFAME.FILE H A L L O F F A M Eצ Player Scoreצ --------------------------------??ȡe?? צ.  selection then press צChoose your level (1-20): P ũɄ  GET READY צLEVEL  R  צ One moment تP0/. -0/.-  ǿ 0.0-/-/.0.0.Z ٪P.--,/,/ġ,0.. .,,&ZF  (Type yourT.éÄP  F*צLevel: *P ǖ*SCORE:*jƁ-  One moment  %SCORE3.FILE%MENU`$Bonus points are given for answering10 correct before 10 wrong.צPress to continue.l tƁ-%I.Filé.ʁ.  %Symbol.Fileʁ.צ %SName.Fileʁ.kḱ/ʁ/ȡkk ́/ʁ/ȡkkk7f^60/.-  ǿ 0.0-/-/.0.0.Z٪P.--,/,/ġ,0.. .,,&ZF  (Type your selection then press צCF*צLevel: *P ǖ*SCORE:*jƁ-  One moment  %SCORE2.FILE%MENU` تP0/. -ʶ Do you want to quit (Y/N)? WWצ%MENU z  ȡéÄP  ͥ!)!@fneu@     f$6HZ X(ecute, A(ssem, ? [1.2]ʷ߾CتP,-,-ȡ*, ˸ٶ, ,,<V R צ XX צ XX צ XX צ XX צ XX צ XXXXXXX XX צ XXXXXXX XX ("(MBGAME MBUNIT !X~LrX@4 tr <GRATULATIONS,(ZYOU WERE PERFECT!w ád(dצCOMPUTER WINS!(ZצSorry, No Bonus Points For You.ġ   ɩńšǖǴצ PRESS ANY KEY Wc 𥂋ǠǴ é č W*0.*.ȡ*** P 0++*,-á Aa\ á9(dCONGRATULATIONS,(ZYOU WERE PERFECT!w ád(dצCOMPUTER WINS!(ZצSorry, No Bonus Points For You. ɡ /ګá1a ZUi  ǿ  á á N  -, ǖ4צ BONUS POINTS ȡá á<x_   ġ,dZ   á.ګÿ 1   WWá^k iá á6 X  (á)*)(*(( CorrectצWrong((d))dvǴǴǵvǵǵ &ZצPress any key to begin W-ǿ  hoose your level (1-20): P ũɄ  GET READY צLEVEL  R  צ One moment  %MBGFAME.FILE  H A L L O F F A M E Player Score --------------------------------??ȡ_? .   ? WWá^k iá á6 X  (á ȡá ( CorrectצWrong((d))dvǴǴǵvǵǵ &ZצPress any key to beginW-ǿ  ǿ 1  צ %SName.Fileʁ.kḱ/ʁ/ȡkk ́/ʁ/ȡkkk7f^6)*)(*(for answering10 correct before 10 wrong.צPress to continue.r zƁ-%I.Filé.ʁ.  %Symbol.Fileʁ.צ"Each correct match gives 10 pointsצfor each level of difficulty.$(Ex. A match at level 10=100 points)Press to continue. $Bonus points are given צThere are 20 levels.צYou will start with level 1.צPress to continue. "Points are scored for each correctanswer.ot too hard,$But you will need to know some musicsymbols.&If the symbol you see matches the wordpress any any to let it  into the box.|~  צWELCOME TO THE MUSIC BOX GAME.Have you played before (Y/N)? س@@س"GOOD!  צWell it's ne your selection then press  צ Your choice: WWNNW YU QRvJ  "$&(*,.02468:<>@SQFHSWe:  צ Choices:  epeat Gameצ ave score to top 20צ iew Hall of Fame uit and return to menuצ(TypCongratulations you move up to position > >š  Ɓ- צYour last score on level  צ:  צ High Scorצ One moment  %MBGFAME.FILE>d@A A> @>ɡYou have slipped from @ >š#צoff the Hall of Fame.% to position > g@>š\A T??ȡ7٢   ?>??AZ?>?ġ6????اآ >o  ?Press to continue.  ??ȡ:٧A?>>@ ??E ^ >??ȡ6????á<x_   ġ,dZ  á á3 á ɡ 4 á7lZUi  ǿ  á á N  -, ǖ4צ BONUS POINTS4 8(TB &" PASCALSYUSERPROGFIOPRIMSPRINTERRINITIALIGETCMD FILEPROC 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 !X~ px`^ 2:ONGRATULATIONS,(ZYOU WERE PERFECT!w ád(dצCOMPUTER WINS!(ZצSorry, No Bonus Points For You.ġ   ɩńšǖǴצ PRESS ANY KEYWc 𥂋ǠǴ é č W*0.*.ȡ*** P 0++*,-á Aa\ á9(dCONGRATULATIONS,(ZYOU WERE PERFECT!w ád(dצCOMPUTER WINS!(ZצSorry, No Bonus Points For You.ACOPYRIGHT 1979,1980,1983 APPLE COMPUTER, INC. ALL RIGHTS RESERVEDƁƂ6&06ˡ6áƁ8:9" &8(2ȡ3'*3 ?3 2-bi ö A(7ȡ &ǀǏȡ &6!0~ éÍ~  , Ą쓡"á  :"ë á 쓡ת$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.InIIIfJJ0JKzxM20 ńȄ!~Í`~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  šš23aĩ3zȄ 23aA22š*á?%áצ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á4w4]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.   ġނš  šš!۞ۂۂەߓ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 DMEHצ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ˡ  ܢۚ>ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń1 áނ š   šš$ !۞ۂۂەߓh  ! "ˡ ɡ!  ! "ˡ ߡ š  ńá4 á,á" 1٦׷)צ: ܢܢ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؞&"áޢʁޢʁʁޢʁޢʁޢʁޢ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 áނ š   šš$   7 :9CONSOLE:ת(:9צSYSTERM:(8:98 6øצ???JanתצFebMarתצAprMayתצJunJulתצAug Sepת צOct Novת צDec ???תצ??????ת6!צ  HצTתP%%@99ˡ(צ&,á(+(.TEXT888Ä8 "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צR   88(áצ Assemblingצ Compiling...á999':::צ::&:(áAssembleCompileצ what text?  Ɓ]&/ , ۤ  áۤ  !~!!f!צ*V! ""!"צ:" "ۤ  ۤ    áۤ  ink firstƁ2ƀ¼:.Conflict between intrinsic and user segment(s)ƀ¼*SYSTEM.LIBRARY , Can't load required intrinsic(s)Yƀ¼/#Required intrinsic(s) not available2 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.A*SYSTEM.WRK.CODE[*]To what codefile? (׷O,á<$88š8(8X+,,"ˡ צ Can't open ,   áث 7_ 7 š, š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5צ.CODE.  "˄~ݤ ת   ١  n ١ á9 ٓ/! !!١á ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ lܟġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ 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צ `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 ө ө ө ӽ`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ת!!ȡ(ܾܾ š!!`H$)A[hIH80(hI`i(8(hI`J) )i i`HH8(iPH D۠'(hH ۩ hhehLDۍ۠'O`J>L80 %,M8$LgLhhhhhhhhץHH` ۑȑآL ّ 0 ;ܩJ;* ۠؈ȩؠ#в   :>BGڇښڢکڬh~hhhhhqq a{8 ȱ{a0:A[_ ؕԈqȱiI襅FfffFfff` eeee ` 8僅傅偅倅 ` `Ņ"$ņŇň ʼn8`~`~ J预 J xL^ҥ~ usLhLrtLLhhhhhhhhLL8\潪]LB\Z][JHjHLLhhhhh*68jh*vlhhjH*vjHHHlffff择ŋhhL`0&&&&0ƋƋhhL`&挥F8`8ȱLѥ8Ɓ8 ри~ȱ~LdҠ ULLҥXiXYLh~hhh~ȑ~LLҥrehrseistehtueiuisu ʱrtLhLrtLLhhhi0QhthuhettheuuhrhsherrhessXЋiʱrttuLhLtLLhhhhhehehhhhhhehiehIihIiiŒ.Ln祔'ņŇ0 L]祆8ƇL]祆8厪HHLLhhhhTL֥T8~U~8~Xȥ~YT VLdҥRSLȱ 㥚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 > \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(@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(@0~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??  Copying names to new disk.צ #5:NAME.FILE}ȡꥁB}צDone, One Moment U/ Loading names from this disk  #4:NAME.Fquest-----illegal IO request-----illegal IO request-----illegal IO request----illegal IO request-----illegal IO request-----illegal IO request-----illegal IO request-----illegal IO request-----illegal IO request-----illegal IO request-----illegal IO rerequest-----illegal IO request-----illegal IO request-----illegal IO request-----illegal IO request-----illegal IO request-----illegal IO request-----illegal IO request------illegal IO request-----illegal IO request-----illegal IO request-----illegal IO request-----illegal IO request-----illegal IO request-----illegal IO request-----illegal IO 1THE MUSIC CLASS# # Begin "Ma H H bʷxXȪcELPPA[EXr Ed.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 se plotǴP ame symbolǴF

lotǴ<צ ap symbolǴ(uit ȡ @צCurrent symbol name => L ljš   1ɡ   hš*! T تPR njnjǠnj ǖǐ ǖǚUǖLj ǖ~DǴǛSet #ǴnjצumpǴǂ eft moveǴx ight moveǴdצ opy symbolǴZצ rax x n    ǯ& ȡ)ǥ á 4F Njǒ  ǿ  ȡ# ȡ(ymbol set Y/N? @@,LتP,-,-ȡ#, ˸ٶ,,,4VJ x x  x x  x x  x  x x  x x @@,+,,, צ One moment  %Symbol.file  צWould you like to work withanother sou like to change this Y/N? &س@@سצEnter number 1-20 =>  צThen press .P+ ( (++Ʉسצ as is Y/N? س@@ س,צ%I.File,,,+Music Box will use the first + symbols from set # #Would yith (1-4)? PũɄ  %Symbol.File צ %SNAME.FILE:RB,ƁX Save symbol set #  ǭ?٪P.--,/,/ġ,0.. .,,&ZF %Enter your choice then press Which symbol set would you likeצto work w0MUSICBOX  x x    ɡ  fצPress New symbol name => á ( ǥ ǥ  N ȡ? ȡ' ٤ ض1 F7 V צZap this symbol Y/N? ڳz$TITLEPAGLARGE 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 $&(*,.2468:<>@DFHJLNRVZbdfhjln  س,6ǠǴ@@  One moment %Manager=hhhhhhHH`&6HnR  X v 6 b B *B6bس@@  xCzpu "$&(*,.2468:<>@DFHJLNRVZbdfhjln  س,6ǠǴ@@  One moment %Managerת ٹ ݤ Do you want to quit Y/N? س@@  xCzpu " ܹB     ݤ=)7 c "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvx~  1  |n`  á   1  1F á   1  1F 1 1 &צCopy which symbol (1-20)? Ʉ  ȡ* ȡ ܤ   ȡG ȡ0 ܤ ؕ1 ܤ   1 bol(1-20)? Ʉx    1  1 ȡ9 ȡ' ڤ ٶ1  ظ  aX   Press   ȡ; ȡ# ٤ ض1  צ---------------  1  1  y   Press צJump to which symp|ثǭ @[Ʉ AZA     DتP-.-.ȡ---V 4٪Pnj--ء-T: %LARGE.font    }á }Press to exit Name צ-------------------------  n nPassword צ nPassword צ ---------- n   šn n   š n  n nnX(ecute, A(ssem, ? [1.2]ʷ߾C    nnnBLANKׯ_This record is BLANKצUse dd צPress for no changeName צ------------------------- 0 Z x PMANAGER CHANGENAADDNAME ZAPNAME HALLFAMEVIEWHALLSETPROF PRINTOUTPRINTSCOLOOK DOIT P One moment *צ %INFO.FILE*  One moment *%%ManagerYצNAME%Start=*%RouterT!FצMUSIC%MENU*!Q> to continue.ƥťĥƓơ/l*V2 צ8 P One moment *צ %INFO.FILE*  One moment *%%ManagerYצNAME%Start=*%RouterT!FצMUSIC: 2.10<צ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ǠצSYMBOLSǂMUSIC BOX TOOL KITP Versionצ 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 ----------   n  n nn}K@ Z`  š n  n nnX(ecute, A(ssem, ? [1.2]ʷ߾C}nצBLANKn BLANKת nnȡ}   ec *ع٢  l٢ U @٢ )  wdO<' خخ*-,fآ#Minimum score EXCELLENT (10-32000):Minimum score GOOD (10-32000): צSUPER MUSIC BOX GAME Iצ#Minimum score EXCELLENT (10-32000):: צMinimum score GOOD (10-32000): 48٪P.--,/,/ġ,0.. .,,(Z HتPRع MUSIC BOX IצMinimum wrong EXCELLENT (0-10):צMinimum wrong GOOD (0-10):MUSIC BOX GAME IC!Cצ ----C??C צPress to continue.&LFe צ One moment >á %MBGFAME.FILE#>á%SMBGFAME.FILE Cצ HALL OF FAMECCצ"PLAYER TIMECCצ"----------------------------------C??ȡC? Cצ. Cآ  "Cآ  צPress to begin  gCצConsole:PPsH%  "$&(*,.02468:<>@DFe צ One moment >á %MBGFAME.FILE#>á%SMBGFAME.FILE׶

rinterצcreenצEnter Choice => &@@ @צPosition PaperצHave printer on lineA0́>ʁA    :VZ\R >á %MBGFAME.FILEצ%SMBGFAME.FILEئ-----תآ ́?́Dʁ?ʁDȡʁ?́?ʁ>́>ʁB@@ $<1> View Music Box Game Hall of Fame$<2> View Super Box Game Hall of Fame Exit without viewingEnter Choice => &ƁAʁA ʁ  One moment ́>́Cʁ>ʁCȡʁ>á %MBGFAME.FILEצ%SMBGFAME.FILEئ-----תآ ́?́Dʁ?ʁDȡʁ?́?ʁ>́>ʁB@@Ɓ-  צiew MUSIC BOX HALL OF FAME lear MUSIC BOX HALL OF FAME  Choice => ƁBʁBצ&Are you sure you want to clear (Y/N)?  Choice => &Eׯ}ȡ kArd  "l&(*,.02468:<>@DFHJLNPRTVXZ\^`b    ""nnName nPassword n Remove this person (Y/N)?  Type 'DELETE' to zap all namesor press to continue.PP DELETord number   Zap ll records (1-125) Zapצ ape without zapצ Choice=> &áE""nnName ngWآE5آ# m]O?1!-,ȡ ٕ% H *. . .Ą ... Ȅ . .}Ȅ ... Ąq . .}ȄE ... Ą m CConsole: One moment   Press to continue. C  צEnter heading for Printout then press to continue.צ=> PCCCC(E=EXCELLENT G=GOOD N=NEEDS IMPROVEMENTC+},+,ȡ +++ C C >D ?qV "$&(*,.02468:<>@BDFHJLNPTVXZ\^`bdfhjlnprtvxz~  צEnter heading for Printout then press to coצ

begin printing ape   +},+,ȡ +++ C} +},+,ȡ++}++}++x  "$&(*,.r*}  "  +},+,ȡ+}++ צ#Move the cursor to desired locationצ! marks a record for printingצ omplete printoutC  *ڢצ3---------------------------------------------------CSUPER MUSIC BOX GAMECC SCORE C  *ڢצ3---------------------------------------------------  ڢצ3---------------------------------------------------CMUSIC BOX GAMECC SCORE C  *ڢצ3---------------------------------------------------CSUPER MUSIC BOX GAMECC SCORE C  *ڢצ3-----C CC WRONG C *ڢצ3---------------------------------------------------CMUSIC BOX GAMECC SCORE C C CnCצ(E=EXCELLENT G=GOOD N=NEEDS IMPROVEMENTCצ(----------------------------------------CCצ MUSIC BOXCC LEVEL C CC CORRECTȡEȡGšNáNCC> E* GNCC ZnnCC STUDENT #C-, á.Cw;gXzȡ خٓ á, :  צ" 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.   b( . Ąq . .}ȄE ... Ą mC-, á.Cw;gXzȡ خٓ á, :  צ" S E T N E W S T A N D A R D SPress for no change.!Press PCCCC(E=EXCELLENT G=GOOD N=NEEDS IMPROVEMENTC+},+,ȡ +++ C C >D ?qV "$&(*,. *OFFתONת צRecord keeping is Change (Y/N)? @@&***   ǿ ٶٶٶٶRr(ȡڛ`ġ ڛڛ ؕ+ > ق}š} ɡ}( &   l of FameexF<*>Draw symbolsMx<<@>Transfer Names3x2uit$r_QA t_I1 , Z6ȡ#ȡ + B  ddǪǖapxnjecord keeping* צ ON  צ OFFxǂצ ymbol # A1!234xxצanager passwordxn ook scoresxd

rint scoresxZצew standards|xPצallineצPress to continue.&٪Pء (R0 ǭ?تPRٹxǠiewǪǠצhangexǖ}ȡ to continue.~rt8  5d(    ?   {Azt8B /5-,"GE(*.02c68:<>@xDHJLNPRTVoum^lbhjnpr /( @H  *%**צ&Be sure you remember the new password!צPress to continue.~rt8  5d(    d once more.New password=>צ-------------------------*zצ(Passwords were not the same, start over.צPress to continue.**P @ צ&Enter new password then press Old password=>*%New password=>צ-------------------------** !Enter the new passworAA14 AA  + B    One moment**Current manager password *%צChange (Y/N)? @  Current Symbol File Set A Change (Y/N)? &@@צNew symbol file set(1-4)=> A"A u < "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvx|~  ; (  B&J( jrګ٫4 nnd(nצ :J(צ BLANKATO EIGHTHBLANKCLEF------BLANKNOTES6EENTBLANKENDO------BLANKN TIME----BLANKRE REPEATSBLANKANDO------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANKENTH REST-BLANKSCENDO----BLANKIMEOTE----BLANKETTH NOTE-BLANK/16THST---BLANKE CLEF----BLANK PIANO----BLANKENTH NOTE-BLANKENTH REST-BLANKATO QUARTEBLANKDANDO-----BLANK----------BLANKER NOTE---BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------on 2.0 or greater.Do you want to continue (Y/N)?   צ%Move   One moment  *áצ%MBTK%TITLECnA*2sBhhhhhhHH`&V< , F h LR $ >Zrget MUSIC CLASS disksצmust be version 2.0 or greater.Do you want to continue (Y/N)?   צ%Move   One moment  *áצ%MBTK%TITLECords from one MUSIC CLASSצdisk to another.צTwo disk drives are required touse this option and both the#source and target MUSIC CLASS disksצmust be versi(Co㥅?nAm*V2 @á 'This option transfers the student namesצ"and passwBLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------BLANK----------ǿ 0.0-/-/.0.0.Z٪P.--,/,/ġ,0.. .,,&ZF  (Type your selection then press צChoose your levelP  *LEVEL: R4Ɓ-  One moment  %SCORE1.FILE%MENU\ تP0/. -0/.-  Ƕ Do you want to quit (Y/N)? **7 צ One moment צ%MENU ȡ!)!@fneu@     f$6HZ X(ecute, A(ssem, ? [1.2]ʷ߾CتP,-,-ȡ*, ˸ٶ, ,,<V R צ XX צ XX צ XX צ XX צ XX צ XXXXXXX XX צ XXXXXXX XX ("(dMB MBUNIT 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 ?<Ȫ|> (1-20): P ũɄ   GET READYR  You are on level  !Do you want to play again (Y/N)? **@@*1  צLEVEL    צWELCOME TO THE MUSIC BOX.צHave you played before (Y/N)? س@@س#تPnj,,T&0d0 0(FǪ SYMBOLSFǧ _______ Fnj 1. Music BoxFǂ2. Music Box GameFxצ3. Super Box GameFn4. 0 MENU ONGRATULATIONS,(ZYOU WERE PERFECT !LjǴ Press any key*k \D^Ǡ~Ǵ  | é Í *@@^~"PVd|V.f & ` ,*-ǿ  <ǿ  ǿ  --ġLP*..ȡھǸ  <á6(dCONGRATULATIONS,(ZYOU WERE PERFECT !LjǴ Press any key*k \D^Ǡ~Ǵ  | é Í *@@^~ á}} Lš&dPress any key for symbol names*-ǿ  <ǿ  ǿ  --ġLP*..ȡھǸ  <á6(dCá á}1 ášA áɡ^*áMZUi  ǿ   á  (á ȡá áɡ^Hj   ġ ,dZ^|} }  n*-ǿ  ǿ 1 ~ ~ *|||Ph iá á4 V 7f^2 )*)(*(( CORRECTצWRONG((d))dvǴǴǵvǵǵ &ZצPress any key to begí.ʁ.~צ %Symbol.File~ʁ.~~^צ %SName.File^ʁ.^^hh́/ʁ/ȡhh ́/ʁ/ȡhhhtצthe symbol into the box.צThere are 20 levels.צWe will start with number 1.צPress to continue.  Ɓ-%I.FileGOOD !  Well it's not too hard,צ$but you will need to know some musicצsymbols.צ&If the symbol you see matches the wordצpress any key to leMusic Box for TwoFd 5. Sign OffFPצ S. See ScoresFFC. Change Disk2צ'Type your selection then press (Your Choice: _Press to exit.L- á 5 س>Ƕ(ؿ S`ȡEȡGšNáN> E* GN Z Ɓ/Ƃ[Ƃ_ƃƁ- צ One mom á3 >  á3 >  á2: njnj  ;*d Sname.Fileʁ.\  á  á J Dzǿ  ǿ $ ġ  " P, P,,+*-*-ȡF* ,Ǫ+*,Ǫ++2+** TZ Ɓ-%I.Filé.ʁ.ۦ %Symbol.Fileʁ. %.0-/-/.0.0.Z٪P.--,/,/ġ,0.. .,,&ZFȡǪǪ*áš#ȡپ`ġپ 4 Do you want to quit (Y/N)? צ%MENU zتP0/. -0/.-  ǿ 0pTWOMUSIC LNPRfVXZ\^`bdhjlnprtvxz|~> צ One moment *:x&JPdZb  >Z %MBצ%MBGצ%SMBG %MBTWOPLAYTá%ROUTER צ%Title  'Insert New Disk and press 1s  "$(*,.02468:<>@BDHJPress to continue. Ƃ_Ɓ/Ɓ/Ƃ_*V2 *צ %Info.file*š>Z %MB--------------------------------------SUPER MUSIC BOX GAME POINTS ʁ/  *̃ʃʃʁ/ 3---------------------------------------------------̃ʃʃ3---------------------------------------------------צMUSIC BOX GAMEצ POINTS ʂ_  *̃ʃʃʂ_ צ3-------------S IMPROVEMENTצ(----------------------------------------צ MUSIC BOX LEVEL   CORRECT  WRONG  *ent צ %Score1.FileƂ_ %Score2.FileƁ/צ %Score3.File Ƃ_Ƃ_Ɓ/Ɓ/ STUDENT #   צ(E=EXCELLENT G=GOOD N=NEEDpšp ɡ   njnj      ?*d  ǚɡǚ  ɡ  Ǵ& Ǫšc/&áá á nj nj zw  צ and  Let's go!צPress Use only the key that youצjust chose for the entire game.Press to continue.right=>P,Show me which keyצyou are using.צPress any key => , GAME FOR TWOǿ 8 צ Press & "Type your name then press צName of Player onleft=>PName of Player on>ع(ǖ!d215 % تP+,+,ȡ+2++"V 8 ǿȡ%2á 5an  8dצMUSIC BOXצ%The first person with 8 symbols wins.צPress to begin R צ'Type your selection then press  צChoose your level (1-5): سTURN> to begin  INSTRUCTIONS#Match the music symbol to the name.צ!The first person to recognize thematch should press their key.NTEGER[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 @d12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:IITEDEC(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> 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; RLENPROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR    ݂܂F      ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏  ݢ $ $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 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ݣ ˄ݢ!ۂ"ˡ+ݢݢݢˡݢݢ ۚݢON KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATION: INTEGER); $FUNCTION RemStatus (channel : RSChannel) : RStatType; $ "IMPLEMENTATION N E UNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTI4ت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 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 *); $EXT1>н ZC>oc ZT> Zf>Y Zw>g Z>탽 Z>K  Z>ȱ Z>z7 Z>ٰ Z>? Z>| Z>}̽ Z>  Z>? Z>ca Z>*r Z>aq Z>^ Z>9 Z? Z?ٽ Z?ƨ !Z ?vm "Z?F' #Z?ս $Z?y %Z? &Z?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` 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?  4Ze*e+)*)fjfjfj+*fjfjfj8 8)eeL )` (J(F ((Lee L  )LT I1LT )QLT        zjZ QH?\V n x x(,np< $8L. ~  L  DRIVE <<<FNAM =SETSINE1<<SETSINE2SETDEFAU=(0 ШHH`yu[R7.hh6vmjtdэ^~YxT O A K G CH?;a875:2h|yvspmjgda^[XUROLIFC@=:741.+(%"  bhhhhhh ȹFf F F  $0 ޥ789:;<=>?@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 r: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á0d0 0(צ One moment $lB  1 = speaker 2 = alf } K +Procedure Soundversion; +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; +Function Stud_NumbeSETPORT @=P l=7MAKEPORT|=P 7 ==L1TURTLEGR)RTCHEA=GA440 BS|==/,< *!ݍ"'#$%%&#'(!)*+ݍ,-0./012345`6789:;Ѝ<=>?Í@AҍBCDEFGNH IJ KڍL M0N OP QR ShT UVWaXYZ[w\] ^_`aHH`~{xurolifc`]ZWTQNKHEB?<9630-*'$!  0d0 0(צ One moment $lB T = true record keeping } K{5: 1 = speaker 2 = alf } K +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 +Function Stud_Number:Integer; +Procedure Get $$: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ō b_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