`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$J----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 CODE TITLE.CODE MB1.CODErѮ MBG1.CODErѮSYSTEM.LIBRARY  MANAGER.CODE   SCORE1.FILEѯ   SCORE2.FILEѯ  SCORE3.FILEѯ eSCORE3.FILEROUTER.ijSYSTEM.MISCINFOjlSYSTEM.CHARSETlp START.CODE!ps MOVE.CODErsw ROUTER.CODEw SMBG1.CODEѮSYSTEM.STARTUP LARGE.FONTMBTWOPLAY.CODEѮ CLASS.FILEWENGER4 MBGFAME.FILEvgtѯ  INFO.FILEr dѯ  NAME.FILEr ѯ SMBGFAME.FILEtѯ SYMBOL1.FILEhګ NAME1.FILE@ګ MENU.CODEr!I SYSTEM.PASCALIi 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`&quest-----illegal IO request-----illegal IO request-----illegal IO request1THE MUSIC CLASS# # Begin "Ma H H bʷxXȪcELPPA[EXr Ed. 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 aBLANKMUSIC123NK 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 aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aBLANKBLANK not aB MENU NATURAL--------ACCENT---------SIXTEENTH NOTE-FERMATA-------- HALF REST------ QUARTER NOTE--- HALF NOTE------ WHOLE REST-----REPEAT---------SHARP---------- EIGHTH REST---- EIGHTH NOTET---FORTE---------- WHOLE NOTE-----PIANO---------- DOUBLE BAR----- QUARTER REST---FLAT----------- TWO EIGHTHS---- DOTTED HALF----`h@9  @ @p @ O@>@Oh@ ~?` @8DhX |@&` |H(hx0H H@928 H@` 20X``quest-----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 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 aBLANKBLA0تPnj,,T&0d0 0( Táצ%ROUTER %Title.FǪ SYMBOLSFǧ _______ FnjƁƂ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  "$<(*,.02468:<>@BD`HJLNPRfVXZ\^`bd|hjlnprtvxz|~  One moment *&E<P    *V2* %Info.file*š>Z Q%MB1%MBG1צ%SMBG1צ %MBTWOPLAY 1sYOD8(  "$<(*,.02468:<>@BD`HJLNPRfVXZ\^`bd|hjlnprtvxz|~  One moment *&EƁ/Ƃ_  *V2* %Info.file*š>Z Q%MB1%MBG1צ%SMBG1צ %MBTWOPLAY 1sYOD8(  Ɓ/Ƃ[Ƃ_ƃƁ- צ One moment צ %Score1.FileƂ_ %Score2.FileƁ/צ %Score3.File  צPRESS  Ƃ_Ɓ/ צ3---------------------------------------------------SUPER MUSIC BOX GAME I POINTS /  *٢/ צ3--------------------------------------------------- *٢ צ3---------------------------------------------------MUSIC BOX GAME I POINTS _  *٢_G=GOOD N=NEEDS IMPROVEMENTצ(----------------------------------------צ MUSIC BOX I LEVEL   CORRECT  WRONG >  E* GN Z __//צ STUDENT #   צ(E=EXCELLENT ESC> to exit.Tá 5 س>Ƕ(ؿ T\  'Insert New Disk and press R ȡEȡGšNáN1. Music Box IFǂ2. Music Box I GameFxצ3. Super Box I GameFn4. Music Box I for TwoFd 5. Sign OffFPצ S. See ScoresFFC. Change Disk2צ'Type your selection then press (Your Choice: _Press <(צPress CONTROL-RESETGb Íáɡ 럚肚X  šš ë  q7 "ˡ,8 )á á áWˡ á Dš 4áÄ 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.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+-ÍFOTO /T! ȡ   צ0H"4$$$&ˡ 4 46%ˡ 4Jˡ 45ˡ+&ȡ 4& t&$&F'Type to continue) & ,Í ˫T \(&:0:azȄaA:!۞ۂۂەߓ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 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č "쓡r D ́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń1 áނ š   šš$ צ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-Mayתצ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؞&"áޢʁޢʁʁޢʁޢʁޢʁޢ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'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.APPLE7:::% š tWelcome ?, to Apple II Pascal 1.2Based on UCSD Pascal II.1צCurrent date is C -C_ 7 š, š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5צ.CODE.  "*SYSTEM.WRK.CODE[*]To what codefile? (׷O,á<$88š8(8X+,,"ˡ צ Can't open ,   áث 7(צ&,á(+(.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-initializedá.צNested exec commands illegal"צError opening execd 6~}6 "ء HPKצExecuteצ what fileצ? Pšš+00.0.0ȡ#+.//a/zȄ +./ ..+EXEC/ׯjVP+"á(.}P+ ! Jf%צ:ݓۤ  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  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ 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צ Z`X\X áޢá ~תޢޢޢ0` ۑȑآ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 ө ө ө ӽ`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ת!!ȡ(ܾܾ š!! ܅܅ȱՈƐ2i ȱȱȩȥȩȑȑH~H`'Pޱ[ޱݱ݄ޏޚޥ޺ޱ"AL߱ݱݱ@#AND 'ARRAY ,BEGIN CASE CONST DO DIV 'DOWNTO END ELSE EXTERNAL5FOR FUNCTION FILE .FORWARD "GOTO IF IN )IMPLEMEN4INTERFAC3LABEL MOD 'NOT &OF OR (PROCEDURPACKED +PROGRAM !REPEAT RECORD -SET *SEGMENT xL^ҥ~E88ePhhLi򅋩Fffeeeffffإ L; `~ J预 J HHHHL^ 좊 xL^Ң~ J HHHHL^ҥ~ 좊 xL^Һ^L^Һ~&~& IL^xL^ҥ~E~ 4ꢊ xL^ ꅊ Zꢊ xL^Ң~ J预 J xL^ҥ~I~~ xL^ҥ~E 4ꢊ xL^ I Zꢊ xL^Ң~ J预 JLѥ HHHHL^ҥ~E8 i  iLх 8僅傅偨倐 8&&&&Ffff 颰I襅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צ------------------------------ń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 .#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.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 s this correct Y/N? ٳ qBD$ y/2 צ %INFO.FILE&  One Moment %Title.MOVENAME SMBGAME1MBUNIT nP :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 %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.FتP,-,-ȡ*, ˸ٶ, ,,<V R צ XX צ XX צ XX צ XX צ XX צ XXXXXXX XX צ XXXXXXX XX ("(symbols.&If the symbol you see matches the wordpress any key to let it  into the box.צThere are 20 levels.צWe will start with level 1.צHave you played before (Y/N)? س@@س"GOOD!  צWell it's not too hard,$but you will need to know some musicour choice => WWNNW YU QRvJ  "$&(*,.02468:<>@SQFHSWDFZ   WELCOME TO SUPER MUSIC BOX GAME.צ Choices:  epeat Gameצ ave score to top 20צ iew Hall of Fame uit and return to menuצ#Press the letter of yns you move up toצ position > >š ~Ɓ- צYour last score on level  צ:  צ High Score:  SMBGFAME.FILE>d@AA> @>ɡצYou have slipped from @ >š#off the Hall of Fame./צ to position > .g@>š\צCongratulatio?ȡ7٢   ?>??AZ?>?ġ6????اآ >o  צ One moment %PRESS l ??ȡ:٧A?>>@??E ^>??ȡ6????A T? L O F F A M E Player Score --------------------------------??ȡe?? . ?  ??ETURN> צChoose your level (1-20): P ũɄ  GET READY צLEVEL  R  צ%SMBGFAME.FILE צH A L0/. -0/.-  ǿ 0.0-/-/.0.0.Z ٪P.--,/,/ġ,0.. .,,&ZF  (Type your selection then press to continue. צ"POINTS ARE SCORED FOR EACH CORRECTצANSWER."EACH CORRECT MATCH GIVES 10 POINTSFOR EACH LEVEL OF DIFFICULTY.צ$(EX. A MATCH AT LEVEL 10=100 POINTS)צPRESS  צ$BONUS POINTS ARE GIVEN FOR ANSWERINGצ10 CORRECT BEFORE 10 WRONG.PRESS(@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(@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 Points For You.ġ   ɩńšǖǴצ PRESS ANY KEY Wc 𥂋ǠǴ é č W!X~LrL .L  <GRATULATIONS,(ZYOU WERE PERFECT!w ád(dצCOMPUTER WINS!(ZצSorry, No Bonus Points For You.ġ   ɩńšǖǴצ PRESS ANY KEY Wc 𥂋ǠǴ é č W BONUS POINTS*0.*.ȡ*** P 0++*,-á Aa\ á9(dCONGRATULATIONS,(ZYOU WERE PERFECT!w ád(dצCOMPUTER WINS!(ZצSorry, No Bonus.ګá ɡ /ګá1a ZUi  ǿ  á á N  -, ǖ4צ(á ȡá á<x_   ġ,dZ   áǿ  ǿ 1   WWá^k iá á6 X  )*)(*(( CorrectצWrong((d))dvǴǴǵvǵǵ &ZצPress any key to begin W- T \ צ %Symbol1.Fileצ %Name1.File kkȡkk ȡkkk0]. p~`(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~`(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( 11š#ȡپ`ġپ 4 Do you want to quit (Y/N)? צ%MENU zتP0/. -0/.-  ǿ 0pPTWOMUSIC &  .0-/-/.0.0.Z٪P.--,/,/ġ,0.. .,,&ZFȡǪǪ*áP, P,,+*-*-ȡF* ,Ǫ+*,Ǫ++2+** TZ  צ %Symbol1.Fileצ %Name1.File ,Z  áMENUb9&>rxv,jR B 2 \ X ~8H6@@fۥǴ;Ǡ  pǚ  Í @@ š<CONGRATULATIONS !?š:צCONGRATULATIONS !THANK YOU, One moment%צSCORES   צANOTHER GAME Y/N? @@fۥǴ;Ǡ Use only the key that youצjust chose for the entire game.Press Qt*P P  ǠǠ*8 áצyou are using.צPress any key => ,Show me which keyצyou are using.צPress any key => >צName of Player onleft=>PName of Player onright=>P,Show me which key+2++"V 8 ǿȡ%2á 5an  8dצMUSIC BOX GAME FOR TWOǿ 8 צ Press & "Type your name then press  צChoose your level 1-5=> س>ع(ǖ!d215 % تP+,+,ȡhe name.צ!The first person to recognize thematch should press their key.צ%The first person with 8 symbols wins.צPress to continue.  zw  צ and  Let's go!צPress to continue.  INSTRUCTIONS#Match the music symbol to t*d  ǚɡǚ  ɡ  Ǵ& Ǫšc/&áá á nj nj á2: njnj  ;*d pšp ɡ   njnj      ?3 ( Dzǿ  ǿ $ ġ  "  á3 >  á3 > ۫  á            w n e \ S J A 8 /(|ung`YRKD=6 pǚ  Í @@ š<CONGRATULATIONS !?š:צCONGRATULATIONS !THANK YOU, One moment%BOBO 6?ǁx6 ?<Ȫ|><Authors:2Frank 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 IPצ 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 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 pF P One moment *צ %INFO.FILE**צBLANKצ%Start צ One moment *%צ%ManagerYNAMEׯצ%Start=*צ%RouterT!FMUSICצ%MENU*"RZ ơ /l*V2 צ8 צWRONG((d))dvǴǴǵvǵǵ &ZצPress any key to begin *-ǿ  ǿ 1 ~ ~ ~ ~^^hhȡhh ȡhhh0]. )*)(*(( CORRECTצthe symbol into the box.צThere are 20 levels.צYou will start at level 1.Press to continue.z   צ %Symbol1.Fileצ %Name1.FileOOD !  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 let1  צLEVEL    WELCOME TO THE MUSIC BOX.Have you played before (Y/N)? س@@س#Gel (1-20): P ũɄ  צ GET READYR  You are on level  !Do you want to play again (Y/N)? **@@*ǿ 0.0-/-/.0.0.Z ٪P.--,/,/ġ,0.. .,,&ZF  (Type your selection then press צChoose your levT.P  *LEVEL: R4Ɓ- צ %SCORE1.FILEצ%MENU\ xتP0/. -0/.-   Do you want to quit (Y/N)? ** %MENU ȡتP++(+!)!@fneu@     f$6HZ X(ecute, A(ssem, ? [1.2]ʷ߾CتP,-,-ȡ*, ˸ٶ, ,,<V R צ XX צ XX צ XX צ XX צ XX צ XXXXXXX XX צ XXXXXXX XX ("(4MUSICBOXMBUNIT P One moment *צ %INFO.FILE**צBLANKצ%Start צ One moment *%צ%ManagerYNAMEׯצ%Start=*צ%Router*|||Ph iá á4 V  (á ȡá áɡ^Hj   ġ ,dZ^ |} }  á á}1 ášA á O F F A M Eצ Player Scoreצ --------------------------------??ȡe?? צ. ?  ??ETURN> צChoose your level (1-20): P ũɄ  GET READY צLEVEL  R  צ %MBGFAME.FILE H A L L0/. -0/.-  ǿ 0.0-/-/.0.0.Z ٪P.--,/,/ġ,0.. .,,&ZF  (Type your selection then press to continue.x ??ȡ:٧A?>>@??E ^>??ȡ6????A T??ȡ7٢   ?>??AZ?>?ġ6????اآ >o  צ %MBGFAME.FILEá á           x o f ] T K B 9 0(}vohaZS  á á3 á ɡ 4 á6kZUi  ǿ  6 X  (á ȡá á<x_   ġ,dZ ss any key to begin W-ǿ  ǿ 1   WWá^k iá ákk0]. )*)(*(( CorrectצWrong((d))dvǴǴǵvǵǵ &ZצPreצPress to continue.j r צ %Symbol1.Fileצ %Name1.File kkȡkk ȡkor each level of difficulty.$(Ex. A match at level 10=100 points)Press to continue. $Bonus points are given for answering10 correct before 10 wrong.start with level 1.צPress to continue. "Points are scored for each correctanswer.צ"Each correct match gives 10 pointsצfe musicsymbols.&If the symbol you see matches the wordpress any key to let it  into the box.צThere are 20 levels.צYou will MUSIC BOX GAME.צHave you played before (Y/N)? س@@س"GOOD!  צWell it's not too hard,$but you will need to know som#Press the letter of your choice => WWNNW YU QRvJ  "$&(*,.02468:<>@SQFHSWFH\  WELCOME TO THE ore:  צ Choices:  epeat Gameצ ave score to top 20צ iew top 20 players uit and return to menuצ toצ position # > צ in Hall of Fame.>š  Ɓ- צYour last score on level  צ:  צ High Sc>d@AA> @>ɡצYou have slipped from @ >š#off the Hall of Fame./צ to position > .@>š{צCongratulations you move upLE>74 .  -, ǖ4צ BONUS POINTS*0.*.ȡ*** P 0++*,-á Aa\ á9(dCONGRATULATIONS,(ZYOU WERE PERFECT!w ád(dצCOMPUTER WINS!(ZצSorry, No Bonus Points For You.ġ   ɩńšǖǴצ PRESS ANY KEY Wc 𥂋ǠǴ&~ʈƅ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 n1 p& -/LONGINTIPASCALIOCHAINSTUAPPLESTUTURTLEGRTURTLEGRWENGER WENGER SOUNDSTUSETUP SETUP STRINGST 0%+. é č W!X~RxR*Tr >D 0L<GRATULATIONS,(ZYOU WERE PERFECT!w8倅偪ʈƅ})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(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%) 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       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(%$ $ @' &   ,-./01k23T45@67.89:; <=>?@ABC֍DEʍFGHIJKLMNOPQRSTUVWwXYpZ[j\]c^_]`aHH`|yvspmjgda^[XUROLIFC@=:741.+(%"  bhh  #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 O(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 $$: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  }ABLANKתA BLANKת AAȡ}   ecord ---------   A  A AA}E: TZ  šA  A AAomp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾C    }á }Press to exit Name צ-------------------------  A APassword צ - 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 x TMANAGER CHANGENAADDNAME ZAPNAME HALLFAMESETPROF SOUNDSYSPRINTOUTPRINTSCO צ 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 $2áSelect the way you will respondצto the questions. eyboard of the computerצ

addles or Joysticksion; +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 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]ʷ߾Cnumber   Zap ll records (1-125) Zapצ ape without zapצ Choice=> &áE""AAName AצPassword A Remove this person (Y/N)?  Type 'DELETE' to zap all namesor press PP צDELETE}ȡ  ... Ȅ . .}Ȅ ... Ąq . .}ȄE ... Ą mgWآE5آ# m]O?1!-,ȡ ٕ% H *. . .Ą *ع٢  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 Iׁ>ʁCȡ[ʁ>צ-----آ ́?́Dʁ?ʁDȡʁ?́?ʁ>́>ʁB@@ ́>́Cʁ>ʁCȡi<ʁ> צ > View level ʁ>  of HALL OF FAMEʁ>́> Exit without viewingEnter Choice => &ƁAʁA ʁA ʁA0  @(]a &  One moment ́>́Cʁ>ʁCȡ[ʁ>צ-----آ ́?́Dʁ?ʁDȡʁ?́?ʁ>́>ʁB@@ ́>́Cʁ>ʁCȡi<ʁ> צ > View level ʁ>  of HALL OF FAME BOX HALL OF FAME  Choice => ƁBʁBצ&Are you sure you want to clear (Y/N)?  Choice => &  One moment ́>́C"٢  !צ ----?? צPress to continue.&L!PXƁ-  צiew MUSIC BOX HALL OF FAME lear MUSICצ One moment خ צ HALL OF FAMEצ"PLAYER TIMEצ"----------------------------------??ȡ? צ. ٢  צPosition PaperצHave printer on lineצPress to begin  gצConsole:PPsH%  "$&(*,.02468:<>@DFe ع9צ %MBGFAME.FILE)צ%SMBGFAME.FILE A'P

rinterצcreenצEnter Choice => &@@ @lArd  "\&(*,.02468:<>@DFHJLNPRTVXZ\^`b    áE""AAName Aצ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 ... Ą m צConsole: One moment   Press to continue.   *צOFFצON צRecord keeping is => Pצ(E=EXCELLENT G=GOOD N=NEEDS IMPROVEMENT+},+,ȡ +++   =61}cV "$&(*,.02468:<>@BDFHJLNPTVXZ\^`bdfhjlnprtvxz~  צEnter heading for Printoutthen press צ

begin printing ape   +},+,ȡ +++ } +},+,ȡ++}++}++x  "$&(*,.r*}  "  +},+,ȡ+}++ צ#Move the cursor to desired locationצ! marks a record for printingצ omplete printout  *ڢ3---------------------------------------------------צSUPER MUSIC BOX GAME Iצ SCORE   *ڢ3--------------------------------------------------- 3---------------------------------------------------צMUSIC BOX GAME Iצ SCORE   *ڢ3---------------------------------------------------צSUPER MUSIC BOX GAME Iצ SCORE   *ڢ3--- צ WRONG  *ڢ3---------------------------------------------------צMUSIC BOX GAME Iצ SCORE   A(E=EXCELLENT G=GOOD N=NEEDS IMPROVEMENT(---------------------------------------- MUSIC BOX Iצ LEVEL  צ CORRECTȡEȡGšNáN> E* GN ZAA STUDENT #C-, á.Cw;gXzȡ خٓ á, :  צ" S E T N E W S T A N D A R D SPress for no change.!Press to continue.    E ... Ą mC-, á.Cw;gXzȡ خٓ á, :  צ" S E T N E W S T A N D A R D SPress for no change.!Press צOld password=>*%צNew password=>צ-----------------צdisk to another.צTwo disk drives are required touse this option and both the#source and target MUSIC CLASS disksצmust be version 2.0 or greater.(B楅Am*V2@á 'This option transfers the student namesצ"and passwords from one MUSIC CLASS ; (  B&J( jrګ٫4 AAd(A 8J(צ  u < "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvx|~ ǿ ٶٶٶٶRr(ȡڛ`ġ ڛڛ ؕ+ > ق}š} ɡ}( &   ew standardsbxPצall of FameKxF<@>Transfer Names1x<uit" m^K=-r\G/ * Z6ȡ#ȡ + B  צhangexǖddǪǖapxnjecord keeping* צ ON  צ OFFxǂצ ound - * SPEAKER ALF  12'xxצanager passwordxn ook scoresxd

rint scoreszxZצNo Printer is on-lineצPress to continue.&٪Pء (R0 ǭ?تPRٹxǠiewǪeצ %Score3.File}ȡ:AAצBLANK}} N A***F Printer:" ár  UTILITY ȡ ( Record No.# צ One moment }ȡ } 2 fAצ %NAME.FILE* %INFO.FILEצ %Score1.File %Score2.Fil ,& > ǹ DZ ǭ ǥ ǹǹ ǸǸǹDZǭǥ ǥǥ ǦǦDzצfilledǥempty nj(nj ǐ ǚULj ~DxǴMANAGER 2d(צ    <     {Azt<F !392,"LJ(*.02g68:<>@|DHJLNaRTVsyr^lbhjnprצPress to continue.**P *%**&Be sure you remember the new password!Press to continue.~fh( --------** !Enter the new password once more.צNew password=>צ-------------------------*zצ(Passwords were not the same, start over.Do you want to continue (Y/N)?   צ%Move   One moment  צ%TITLEA* lhhhhhhHH`&n " t 6 Jj   d#source and target MUSIC CLASS disksצmust be version 2.0 or greater.e musicsymbols.&If the symbol you see matches the wordpress any key to let it  into the box.צThere are 20 levels.צYou will MUSIC BOX GAME.צHave you played before (Y/N)? س@@س"GOOD!  צWell it's not too hard,$but you will need to know som#Press the letter of your choice => WWNNW YU QRvJ  "$&(*,.02468:<>@SQFHSWFH\  WELCOME TO THE Do you want to continue (Y/N)?   צ%Move   One moment  צ%TITLEA*start with level 1.צPress to continue. "Points are scored for each correctanswer.צ"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 for answering10 correct before 10 wrong. P One moment *צ %INFO.FILE**צBLANKצ%Start צ One moment *%צ%ManagerYNAMEׯצ%Start=*צ%RouterT!FMUSICצ%MENU*"RZ ơ /l*V2 צ8 P One moment *צ %INFO.FILE**צBLANKצ%Start צ One moment *%צ%ManagerYNAMEׯצ%Start=*צ%Router<Authors:2Frank Bradshaw( Virgil Hicks$Press for Manager Information. Press to continue.ƥťĥƓơ /l*V2 צ8  é č W!X~RxR*Tr >D 0L<GRATULATIONS,(ZYOU WERE PERFECT!w ád(dצCOMPUTER WINS!(ZצSorry, No Bonus Points For You.ġ   ɩńšǖǴצ PRESS ANY KEY Wc 𥂋ǠǴLE>74 .  -, ǖ4צ BONUS POINTS*0.*.ȡ*** P 0++*,-á Aa\ á9(dCONGRATULATIONS,(ZYOU WERE PERFECT!wá á           x o f ] T K B 9 0(}vohaZS  á á3 á ɡ 4 á6kZUi  ǿ  6 X  (á ȡá á<x_   ġ,dZ ss any key to begin W-ǿ  ǿ 1   WWá^k iá ákk0]. )*)(*(( CorrectצWrong((d))dvǴǴǵvǵǵ &ZצPreצPress to continue.j r צ %Symbol1.Fileצ %Name1.File kkȡkk ȡk