IMD 1.17: 24/11/2010 19:49:09 19 music test  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ &lŗkm HBf     &  %C e U7F ?IO ERROR WHILE BOOTING? 7$ ?NOT ENOUGH CORE TO BOOT?    e   ևߕ vߕ 7| SYSTEM.PASCAL? w7b SYSTEM.INTERP? @Aw  `! mG~d!~  ^\F C& J&  0  EN  ~  _~U@pe5w E ŋw Ŋw C! @ D~̋   wTwDԤ eeW 7 ?YOU DON'T HAVE A  ߋt_v @ @  .TITLE Symbolic Post-Mortem-Dump for the UCSD Pascal system  .INPUT( B~ H| U_ )  .OPTION( L- R- )  .MARGIN( R60 )  0GeorMUSIC.1,U*Z SYSTEM.INTERP"f> SYSTEM.PASCAL"f>J SYSTEM.SYNTAX"fJT HANDOUT.TEXT"fge Gonzalez 0University Computer Center 0(C) 1979 University of Minnesota .MARGIN  .OPTION( L+ R+ )  #The UCSD Pascal systDTXUNITCHOICE.TEXTDX^MUSIC.INFO.TEXTD^bCHECK.DATA.CODEbd LIST.MUS.CODE"fŠdiSYSTEM.CHARSETfem is generally a very easy to use system,  with one major exception. The exception is the case when a program  'blows up' wiDiMUSIC.1.A.TEXTfŠ MUSIC.1.TEXT"f%MUSIC.1.C.TEXTz%MUSIC.1.B.TEXTz% NEWREC.TEXTth a fatal error. In this instance the system provides  a cryptic message such as: "Value range error S#1, P#12, IPC#12118"  S ( SYSTEM.INITE".%(- MUSIC.1.PMD".%-1 MUSREC.TEXTS1? MUSDATA.TEXTSiw NEWDATA.TEXw,2TSt &  #   EezN EE7 REB~ &z##8\zp&$@`@`$fH@7`e B~ B~ $*04LXdh607 " " \7 " ``WtB  aBE B D \ b  @f F&z  eN 8@ 6~E LU@t7`^~BE B @Wtw`lz ~ N T :  &,28>DJPV\bhntz ,,`V\`V\@4\` P  ?>& B~6z& & E N\xEt& B~ &- >e _ 6_ 8/efAA"w  UB~  Ձ@  a a!~F@  B~ ~E`E7 E@ 7U@~w&nE75@k7w d7w 7 \w V-t@ `EՀW  `E e `&& `E e `&EՀ~N pazE J3 E@ >8 63(?( E@ - 7n? ~7>EՀ~ 7  ҂ ~ E e ` E      E7 w wU &    #7 7 7 zv x7 vE@ ` G47z   7H 76W wN B l7 h v7 rEj7 f \wRU W 7 27 0 ,Z 2*E@ $&?  w U 6 E E7 ~& EE >d`V  @w > 6 & 7  ~w ?  "U@ wP%  D~ " ~ E D~ D C~ %  D~  ~& AA~E e @`& Ez7 vwBd ^pr|3M:@3vL@U.:s@:x@A @;K@lMM:@tvE&~AA~E e @`&AA~E e @`  `` t @Lf zfwftfqfnfkfhfefbf_f \f"Yf$Vf&Sf(Pf*M JGDA A@@A tBt J@ P ``f~ ``A~  ҇ d ``&& ` >;852/ ,")$&&#( *eeee e  e e E e @a&&6E e @a&E e @a e A 5^A&Daef  _09E A Z ꆃ > ѕ  Eʝ@W   x נww w ʕtʕ  Q~ .D@  R~@A @`e eJ  C~C~ %EU 5 J <  p UU Ve0   W @ C~C~c7 " & @  z7 " 7 B#7   7 $7 $ 7 !7 %e@ E@W  E&@W E  t`  U&E w e En\ vw~-e@ BCzEG@HPtJ$LM nO(kQRChTV焵W!tte E e' e2-.E$E7  e w:::::::dcY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η}½  & &F&D&:::::::::::::PE Ґ~H wU &f&f7 LU  &E7 jp|7 \v7 Nv7 B7 ,6 \ 2   0ɝ^& _E7 LC DE!:7  7aehD AVaV@,,,,,,,,,,,, R ` $  ~    \  W  m e 5`\wHe w5 5@ \ɋE 5\ @ @ @` dd&`f&d&b& w\\..ww. m e  ɋ e wvr@p@T^DZFJT@&'@ w   AF,]A@AK w WFlr   mR)>+,2>*8ND'RRAY,EGINASEONSTIV'OOWNTOLSE ND ORILAF! &PxffD e wZ5 wTDeC$B@E.ORWARD"UNCTION OTOFN)ABELOD'OT&F R(ACKED+ROCEDURROGRAM!ECORD-EPEATET*EGMENT!B C@ e E`E``B~A EwwDw d  -@`@`HEN OYPENTIL ARHILEITH'/5;D`q - e( 7$]   P~P~NPP  W  ~~%``!~6_ 8 E E7 _ wU K E|7 xveί%@ eAp6% "1, 1,1,^  5 ^v vV R-NDKh",h`6h:hlԪph.ONhOfhO &f ) 5|w 77 :  .-& pU`E@ wHw . " " " "# e\ \S\ e& @7  #v#e\$f& \:X FU@ % eC ~% C ``` eיc&>X4%]@& & & & & D&&D&& @%7 r!R$  IA e e@z&f U@ -(T~ & 7  F  <? :? - e& & & & & D&&e #@  @6 7 !$6 6 #?%-0( 7 7 v   j7 d ZEeN7H  >?0_ (f&?  @ ׳f&& @׳@f&7 " z% !B%f&f&7 l"%" " " " "  % "v%  (77B~&P eHJe7B7 eee \%f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 ! % ffPPXXxhPXpx @6 7 t^ (tS.6 6 #?%-0 @ w   &@& <&  'Z7 f7 VVw L7 L8'@@*'47 4 Cp . ez\& Dr)&&\   5@5@7 X  ! " "tE`eE - 7 m-  ` ~ m-  " " " " " " !f&\  \& \\r1@\[?\ ew & ` ~-Z' ه   5  \x )7vP @ 7v7vx7vee~m m.ń0á š肂蕿BšT뾕7vwt{H) wvPA 7t7v 7t7vx((((())).)(ff w  ȡ4 š킥뾞<X h%!m/^5Please put volume  w :hv6 u-@>m5 <wr@6@>6@>6- @eB@m>AmNo user program linked in6.ɡk) NPP  ~~m>m *@eBA Amf&f& w-h 5 >fff& w-S ˡ.ɡ9 ˡU.W-UW-W  @W*fw@!5 ,*fwtW# :W-$@  is   characters long. -q >+fwB   eff wl :wv6 @ @m5 ړf2Do you want to Exit from or Return to the editor?  -- ا-EÚ٫>ƂYPړ"@>m5 6hwD@6@>6@>6- "@@eB@m>AmNPP  P~Pš r  -~m>m : @5 @@eBA Am f&f& w-?BAa~ 5 >fff& @' B B3$ B@ ɍw-v#W-%W-$!W/ 5W->>= ,fwzw ,ew@.ŧ7ȡ5ˡ0݊ Bġsá  ȡ%eB@m>AmNPP  ~.~m>m *@eBA .Amf&f& w-h á.ˡ*ɡe e+ e ܕڂȡ 0.5 z`:xo. >fff& w-SW-z`":xg.0UW-W ġ0ȡ:b"v3˶3 ˍ.> ,PASCALSYUSERPROGPRINTERRINITIALIGETCMD J333 3 333!!OOPS!!Щ@ Z á{ NIL } E : 7 t7m7 El7h7^ 7\ZZ7 Vev 6  n`& , @ R , *^/ńȄ -(š4))5ƀ5ƀP).TEXTU) XP ȡ ؞&.invalid input format($ VB.{hQ> IO error: (< Unknown run-time error(,,˶,Ä ,,'5٢:٢&P٢&?55ƀ5ƀP.PMValue range error(No proc in seg-table(Exit from uncalled procedure(Integer overflow(Division by  ^ to @ + 3R**ȡǀ ɍ8%ńAšDTP,æSYSTEM.5ō9 in System, to exit)*ST Ɓ-A''fT آǞáInvalid value was آ  Dump to file:Ɓ/PƁ/Ɓ/́XƁXƁ/PƁX.TEXTUƁXPƁ/"áv./,́.3ʁ.,outside range of [آ ..آ ]Source string length was آ ʁ.,á+́.+/Info written to Ɓ/)Can't open file Ɓ/(, exceeds destination maximum length of آ *" )In  )0151ȡ051Í0110  0% source line: 46b  .$/ .+  Variables in +-áprogram a3+أ  أ DŽ X-N3,>:+/BU(&lmodule ȡ)3 ˡ3:3O  3 ]  "$T8 ,---*---*,5Dump: P+$53 Í3 + ٦:=   Ȅ٦ ORD( )ɍH5P Up, Top, YP+,ˡ)55PDown, Bottom, ^P ˡ!55PEdit, VP5ǀ ġ#٦ ''٦ CHR( )X T @á ٦TRUE á٦FALS5P File, QuitZP'Qá` 3Ɓ_/35"223 8. E J8Tߡ٦ *NOT SET* ޡ( ߓ ٦ ޓ3Zr to exit)*3 r unknown cause(hardware error(illegal unit #(illegaˍ"á     l I/O request(data-com timeout(volume went off-line(file lost in dir( bad file name(no room on ˡá ˡ7̂ƂPƂ QƂPP Pv\ Ɓ volume(volume not found(file not found( dup dir entry(nfile already open(U file not open(@ "áǀ"áƄ  ̄+ʄ+ȡ   ̄+ʄ+ȡƂ  Dh|.. .:..P`.CODEۡ@.TEXTۡڡ..P..mGRAPHIC :ƄPV&&**)CODEU.! No workfile. Execute: šA.á &)((*)''%    X#:ƀƀ.CODEƀPt  T5ESystem: Edit Run Filer Compile Xecute Initia$<&'*)CONSOLE:(*)SYSTERM:((*)lize Again P'T)S%SjTT|S@*SYSTEM.EDITORc *SYSTEM.FILEROKFA=8(%ë%!:%蓡5&System re-initialized ( VersiAX0P= "3&(*,.Mˡ  š*SYSTEM.EDITOR &+ *SYSTEzero(NIL pointer reference(Program interrupted by user(System I/O error(Unimplemented instructioon I.4j )),rxXPV&&**)n(Floating point error(String overflow(Programmed halt(String too long(hString index out of ra)((*)''%    X#:nge(GArgument out of range(*"|\F0ydE*4. 6,V| D Z$<&'*)CONSOLE:(*)SYSTERM:((*)4 4Nh*rror(No proc in seg-table(Exit from uncalled procedure(Integer overflow(Division by ڪP'--áO'PPáP/@P"áR.Q.Qȡ@.. č-O`.R/.SRPRSR+ƁW`4cDcD ^^ ^d^^'íʁʁʁSP.. Bad block #0! not codeH-á"Illegal file name *SYSTEM.MISCINFOP+"á,+ ́ʁ>+>ʁJ+J ++n  ȡ,mؤNo file 'Qv 2*SYSTEM.COMPILER*SYSTEM.SWAPDISK(&  ۢ0ۢ ؞&mCONSOLEmSYSTERM///m/á'+// Compiling8  :.TEXTؚ*٪Pءٟá'3 &"ámPRINTER&"ámREMOTEƄƅ/Ƅ*SYSTEM.CHARSET  R.٪PƁ.ƂZƁ.́VƁVPƁVǠƁV؞"ÚƁ..Ú.ۤƁ. .CODEt *)(*). +ƁW  á ÄȄĄMȄqfȡD ōɍ ō ȍ dč "%!á-5** Stack Overflow **P55* *)"(m/ *쓡ë  쓡 ! 8 ,m Ä{Execution error #  (*>Já2š  , Ą:쓡"á  8"ë á 쓡 áMš1 ˡ   á ͇ +>ˡ $Ꟛšr#ń@ 񂾲i 񂾂0 ń Ȅ((c ˄ (cB$$>:&ˡ,ˡ cš c! mÍVmM ˡ!  ,ȫ, 넡T%>ˡ.ˡ cš cJ&$&::5ń, m ,Í1m š˄  `" R5:5 5RT'Jɡšɡš   (  d˯7 H ȡ   P&***azȄaA:)Type a < space > to continue:) 0 H" ġ  *@#ٕš ګ۫ š۫ ګ,.M.INIT"á *SYSTEM.INIT8 & š  š*SYSTEM.EDITOR=á5% :& XÍ ˫X `(ުP22ȡ7233 ȡ 23aħ3zȄ 23aA22.CODEt *)(*). +ƁW  á š*á /:22ȡá+2á!2ȡ5252š[2+ 28lN&j: TT|S@*SYSTEM.EDITORc *SYSTEM.FILEROKFA=82š2222ȡ2š5252á4x4]11á4^1šX42233i AX0P= "3&(*,.Mˡ  š*SYSTEM.EDITOR &+ *SYSTE3042221ç42ç1Ä2*á444ńi55P.TEXTF.CODE4.M.INIT"á *SYSTEM.INIT8 & š  š*SYSTEM.EDITOR=á5% :INFO".GRAF.FOTO!máë   Íáɡ 럚肚Z ū  "ˡ ˄B"ˡ\ š < ń<ˡ < áš < c@B B Ä $ B>욹  - v /šá.Ą ɡ B >Ä /  !š Í & 낫šꓡš땫ĚQ삫Ú< šÄT ǐɄ9%ńm%%! á m  ^ "á50 ɚ j 횧 :˄˥ń á   uš  gá     Q š *-Ä+  ɡ"á M š  4V j ɡ 逫-á-32768 Rġ?^ g>@ << á6铡,00ń0ˡ ^ɡa ɍB BB/"ˡ ( ! &%& -   $ $ $' 푞$ $ō  9S32(˄ šá  d</ dÍÍ $ġ $ $ $ȡ&  0 $čˡ 퓄 Ä퓡  dÄÍ" ˄"ɡ^   .ˡ>  Eɡ  -푫 š 0 0 lġ-   킂.   dá dá 3#3˄ 3    á&á 핕 킿:  핂 0 . 0 핂 肿 ɡ  , Mȡ龫   ȡQɫ  ȡ .  .ȡ? ȡ  ġm -/18  Äɡ3ġ$ꕫ  á ġMáš3 삫 d #( -šš"š Ą  ˡP %@B  .ń0á š肂蕿BšT뾕Error in declaration part  19:error in  20:'.' expected  21:'*' expected  50:Error in constant  51:':=' expectš 龕龫!낾  2 d?š !ȡ4 š킥뾞<X h%!m/^5Please put volume 삾 0 Vá " *ááO^0á ]+-Í-ëi 0o@Ē @y á +-Í-ëi 0.áBi0$iheEÍɍCá >듡ɡ 퀞$ $ # Bá3á+   T p꾂ȡ龞꾂(ń꾂Ȅ4š뾂á뾞뾂NPńȄ.ń0á š肂蕿BšT뾕ȡ4 š킥뾞<X h%!m/^5Please put volume 1:Error in simple type  2:Identifier expected  3:'PROGRAM' expected  4:')' expected  5:':' expected  6:Illegal symbol (mayb/ in #4P'pá,##&á=$ *%*e missing ';' on the line above)  7:Error in parameter list  8:'OF' expected  9:'(' expected  10:Error in type  11:'[' expe tL((VFl8 Z*n`& , @ R , *^/ńȄcted  12:']' expected  13:'END' expected  14:':' expected  15:Integer expected  16:'=' expected  17:'BEGIN' expected  18:  123:Missing result type in function declaration  124:F-format for reals only  125:Error in type of standard procedure parameteclaration  164:Substition of standard proc/func not allowed  165:Multidefined label 166:Multideclared label  167:Undeclared lr  126:Number of parameters does not agree with declaration  127:Illegal parameter substitution  128:Result type does not agrabel  168:Undefined label  169:Error in base set  170:Value parameter expected  171:Standard file was re-declared  172:Undeee with declaration  129:Type conflict of operands  130:Expression is not of set type  131:Tests on equality allowed only clared external file  173:Fortran procedure or function expected!  174:Pascal function or procedure expected  201:Error in re 132:Strict inclusion not allowed  133:File comparison not allowed  134:Illegal type of operand(s)  135:Type of operand mustal number - digit expected  202:String constant must not exceed source line  203:Integer constant exceeds range  204:8 or 9 ied  52:'THEN' expected  53:'UNTIL' expected  54:'DO' expected  55:'TO' or 'DOWNTO' expected in for statement  56:'IF' expec be boolean  136:Set element type must be scalar or subrange  137:Set element types must be compatible  138:Type of variable ted  57:'FILE' expected  58:Error in (bad expression)  59:Error in variable  101:Identifier declared twice 102:Low is not array  139:Index type is not compatible with the declaration  140:Type of variable is not record 141:Type of variable mbound exceeds high bound 103:Identifier is not of the appropriate class  104:Undeclared identifier  105:sign not allowed  106ust be file or pointer 142:Illegal parameter solution  143:Illegal type of loop control variable  144:Illegal type of expressi:Number expected  107:Incompatible subrange types  108:File not allowed here  109:Type must not be real on  145:Type conflict  146:Assignment of files not allowed  147:Label type incompatible with selecting expression  148:Subra 110: type must be scalar or subrange  111:Incompatible with part 112:Index type must not be real  113:Inge bounds must be scalar  149:Index type must be integer  150:Assignment to standard function is not allowed  151:Assignmentndex type must be a scalar or a subrange  114:Base type must not be real  115:Base type must be a scalar or a subrange  116:E to formal function is not allowed 152:No such field in this record  153:Type error in read  154:Actual parameter must be a varror in type of standard procedure parameter  117:Unsatisified forward reference  118:Forward reference type identifier in varriable  155:Control variable cannot be formal or non-local  156:Multidefined case label iable declaration  119:Re-specified params not OK for a forward declared procedure 120:Function result type must be scalar, sub 157:Too many cases in case statement  158:No such variant in this record  159:Real or string tagfields not allowed  160:Prerange or pointer  121:File value parameter not allowed  122:A forward declared function's result type can't be re-specified  vious declaration was not forward  161:Again forward declared  162:Parameter size must be constant  163:Missing variant in de  e  404:Error in writing list file, not enough room  410:Must have quotes around file name  901:Value out of range  902:No su  `Music` is a computer program written to help you learn to recognize  musical intervals. By following this hand-out, youch procedure in segment-table  903:Exit from uncalled procedure  904:Stack overflow  905:Integer overflow  906:Division by z should be `Up and  Running` with ease.  "The first step is to go to the Computer Center and reserve time on the  Terak micero  907:NIL pointer reference  908:Program interrupted by user  909:System IO error  910:I/O error  911:Unimplemented instro-computer. Remember that other students are also signing up  for time, so don`t wait until the last minute.  "When your ruction  912:Floating point error  913:String overflow moment of truth (your appointed time) arrives, take your stu-  dent ID card to the Computer Center office and tell one of the s-M ,YˡD# OF BLOCKS ?  ɡ BAD # BLOCKSNew vovH^tudent  workers that you wish to run the Music Program. They will give you a disk  (looks like a flat donut in a plastic envel Dkope) and headphones in exchange  for your ID card.   >************* =*C*A*U*T*I*O*N* >************* > > "The disk is very sensitive to dust and especially to finger-prints. n octal number  250:Too many scopes of nested identifiers  251:Too many nested procedures or functions  252:Too many forward references of procedure entries  253:Procedure too long  254:Too many long constants in this procedure  256:Too many external references  257:Too many externals  258:Too many local files  259:Expression too complicated  300:Division by zero  301:No case provided for this value  302:Index expression out of bounds  303:Value to be assinged is out of bounds  304:Element expression out of range  398:Implementation restriction  399:Implementation restriction  400:Illegal character in text  401:Unexpected end of input  402:Error in writing code file, not enough room  403:Error in reading include fil + + +Everything You Need to Know to Use the Music Program Aor .What to do if You Can`t Sing and Your Dog Died   l.) $ $3. Plug the headphones into the Plato IV Music Box. (Either jack 'will do.) ' # 4. Now you are ready to use the Ter*is reading the Music Program from the disk. * 'e. The machine will take a few moments to initialize and then *will print a ak. $ $ a. Look at the Terak and you will notice that it is composed of *four units: the screen, the keyboard, and two boxemessage on the screen. You are now in the Music *Program (Hurray!). @ "Many programs written require that you press the carris that I *will simply refer to as `disk drives`. * 'b. The only disk drive that you will be concerned with will be *the bottage return  (`Return`) after your response. This program was written such that you  will not press the carriage return key veom drive. (Heavy sigh.) * 'c. Look at the bottom drive and press the horizontal bar with *a dark red dot in its center. (The ry often, in fact, the program  will print a message on the screen telling you when a `Return` is  necessary (Kiss).    drive door will spring *open.) * * * * * * * * * * * * * 'd. Insert the disk into the drive as shown below: '                               ( ,  ' ____________________________ *| ** | ^ Insert this direction *| || | | toward the drive with *| || | | the label side up. *| || | *| **  | *| **** | *| * * | *| * * | *| ****  | *| * | *| | *| ********** ***** | *| | | | vO^ | | *| ********** ***** | *---------------------------- * *When the disk is completely inserted into the drive, (y@B| Handle the disk by the envelope only. Do not touch the surface of the  donut with your fingers. The disks cost $10.00 a pieceou *will hear a quiet click and the disk will remain in the *drive), gently press the door shut. * 'd. Now you are ready to.  >*************   "So now that you worried here are the next steps:    1. Turn on the ASCII to Plato IV Inter run. Press the power/reset on the *upper right corner of the bottem drive. You will notice that *that the red dot on the bar face. (The switch is located 'on the back of the unit.) ' $2. Turn the Plato IV Music Box. (The switch is on the front panewill be flashing and the machine *will be making some peculiar sounds. This normal, the machine  O^AQ Here are your unit choices. ) ) #1) Maj2, Per4, Maj7, Per8 #2) Min2, Maj3, Trit, Maj6 #3) Min3, Per5, Min6, Min7 #4) Min2, Maj2, Maj3, Per4, Maj7, Per8 #5) Min3, Trit, Per5, Min6, Maj6, Min7 #6) Min6, Maj6, Min7, Maj7 #7) Per8, Per4, Maj7, Maj2, Min2, Maj3 #8) Min3, Trit, Per5, Min6, Maj6, Min7 #9) All intervals. #  "This program was written to help you recognize musical intervals, which are the difference in pitch between two notes. The size of an interval is determined by the number of staff degrees involved, going from the lower to the higher tone. Unlike linear measurement, there is no 'zero' to start at, so instead you must begin counting at 'ONE', from the lower note. for example, D to F is an interval of a THIRD because there are three degrees between them, namely D-E-F. There are three basi ents are:  N2 M2 N3 M3 P4 T P5 N6 M6 N7 M7 P8  Use these equivalents.  ,, , ,,, , ,,Շ]á Շz,Շ  To quit, simply type in `Q`. If you want to change Unit, type `U`   , *,ՇՇ*áՇ,ƁY;\b8ՅnՅՅ楁YY YYL CHECK Y YYՆ jՆ<aՆQX GP % "$&(*,.024c kinds of intervalS: PERFECT, MAJOR, and MINOR. "To test if an interval is perfect,consider the low X GP % "$&(*,.024er tone as the tonic of a major scale. Next, invertthe interval and consider the new lower tone as the tonic of a majorscale. 68:<>@BՆiáՆy*ˡՆՆՆ䧂Շ, ,If each tone of the interval occurs in the major scale of the other, it is a perfect interval. There are three perfect interval,, , ,,, , ,,Շ]á Շz,Շs, Per4,Per5,and Per8. All other intervals are either MAJOR,MINOR, or TRITONE.If the interval consists of three ՁGܹ8Ձ`FՁx>Ձ6Ձ.Ձ&ՁՁ TAG@:4.("Ղ ۹0Ղ&ՂAՂ`Ղvwhole steps (as in F to B), It is a tritone. Major intervals occur when the top tone is in the majorscale whose keynote is the ՂlE'Xd&  "$&(*,.0`468:V>@BDFHJLNRTVXZ\^`btՂ lower tone. Minor intervals are a half stepsmaller than a major interval. 8 "In general, this program  Ճ:ڹՃVNáՃuՃՃNáՃՃՃՄzՄ3rՄINáՄhՄ ZՄNáՄ acts as a drill. An interval will be played to you, and you type in the name of that interval. If you are incorrect, I will re Մ BՄ : 82P  "$rlV@ՅB ,ƁXƁYƂՅ*,spond with a < or > symbol if you guessed too high or too low, respectively. If you are right, I'll say so and draw the notes oprinter:ՅGY#5:musdata.textՅkYՅ}ՅՅYՅnՅՅ楁YY YYn the staff. Then I will play the next interval, and so on. When you want to The interval Y YYՆ jՆ<aՆQX GP % "$&(*,.024names are: Min2, Maj2, Min3, Maj3, Per4, Trit, Per5, Min6, Maj6, Min7, Maj7, Per8  The program equival68:<>@BՆiáՆy*ˡՆՆՆ䧂Շ, , #5:music.1.textՀ"ávՁՁprinter:Ձ6yçYÍ Ձd Ձ0 1ՁՁ0]P0Ձýýýýݽ],Ձmusic.1.text not foundƁ0PzX4 "d 5ݽý5 -0Y4=- 0%Version I.4j 26 October 1979Voluÿ۽ϟ>>$$$~$~$$>> >&&228DD800   $~$|888ÿŹýýýŹ ~888``0 @@<@@>`PHD~@@>>@@B<|>BB<~@ > BB>BB>~~ ]Sourl88g4 68:<>@BՆiáՆy*ˡՆՆՆ䧂Շ, ,>"rBB^@BBB~BBB>> ">B""B~BfZBBBBBFJZRbBBB>~BBBRr~@>BB>BBB<,, , ,,, , ,,Շ]á Շz,ՇB<@B<~BBBBBB<BBBB$$BBBBZfBBB$$BBBBB$~B B~>> 0``|@@@@@|"` INFOOUT <@\B|:FBF:BBBB>pp`> <5 -0Y4=- 0%Version I.4j 26 October 1979VoluہہǻƁ/Ɓ0Ƃ\`GDo you want the give the printer a form feed befor starting the list? ՀՀХ0ý8TT8 @@ ýýýÿ , %lenset : set of '0'..'9'; # $Unitset : Set of 1..9; # %Infile, $Outfile, #keyboard, $Printer : Text; $ &Noter : Packed Array[1..7] of Char; & &Notes : Packed Array[1..4] of Char; & "Transchar : Packed Array[1..3] of Char; " *Q : Packed Array[1..4] of Integer; ' 'Send : Packed Array[1..3] of Integer; ' %Answer : Char; *  {$i '#4:music.plot'}   procedure staff; "begin " "{draws the staff} $atxy(0,32); line(319,32); $atxy(0,40); line(319,40); $atxy(0,48); line(319,48); $atxy(0,56); line(319,56); $atxy(0,64); line(319,64); $atxy(0,96); line(319,96); $atxy(0,104);  line(319,104); $atxy(0,112); line(319,112); $atxy(0,120); line(319,120); $atxy(0,128); line(319,128); $atxy(1,32); line(1,128); $atxy(314,32); Program Music;   {$S+}  {$d2}  "Const )Caa = 'CAA'; &Unplay = 'H@@'; )Nop = '@@@'; ) "Var %Harmon, %Justlook line(314,128); $atxy(318,32); line(318,128); $atxy(319,32); line(319,128); $ "{draws th000 Q 0 ̌̌̌? ?ing, %Updown, (Bye, 'Next, )Up : Boolean; ) #Accident, %Accid2, (Dc1, (Dc3, 'Down, 'int1, 'int2, 'Name, &Name2?< ~ ``0, #Notename, (Upp : Char; ( (Cis, $correct, $Counter,  Exercounter, "Frequency, *I, & Id, &intv1, &intv2, *J,??`(H"a- TR cbd c *K, %Ocnote, %Octive, $Octive2, 'resp, #Topvoice, 'Time, 'Vol1, 'Vol2, 'Vol3, 'Vol4 : Integer; ' 'Seed : R!@H!H! JA@bIb6r8`<1x~eal; ' 'data : String; ( #Placeset : Set of Char; # &idset, %intset, %comset : set of 'A'..'Z'; % $intvset  line(11,49); $atxy(16,49); line(17,49); $line(19,51); line(21,56); e(x + 7, y); $atxy(x, y + 1); line(x + 7, y + 1); $atxy(x + 1, y + 2); line(x + 7, y + 2); $atxy($line(19,61); line(17,63); $atxy(14,65); line(8,65); $atxy(6,64); lx + 2, y + 3); line(x + 6, y + 3); $ $if up = true then $ begin {stem up} (atxy(x + 8, y - 14); (line(4,59); $atxy(3,57); line(5,47); $line(6,46); line(6,44); $line(7,43); ine(x + 8, y + 2); &end $else &begin {stem down} (atxy(x, y + 2); (line(x, y + 14); &end; "end; "  procedu line(10,36); $line(11,35); atxy(14,31); $line(16,29); line(16,26); $line(14,24re sharp(x, y : integer); "begin " "{draws a sharp in relationship to the note on staff} ); line(12,24); $line(11,25); line(15,69); $line(14,70); line(14,71);$atxy(x, y - 1); line(x + 6, y - 1); $atxy(x, y + 1); line(x + 6, y + 1); $atxy(x + 2, y - 3) $line(13,72); line(12,72); $line(11,71); line(11,70); $ "{draws the `F` cleff} " at; line(x + 2, y + 3); $atxy(x + 4, y - 3); line(x + 4, y + 3); "end; "  procedure doublesharp(x, y :xy(6,103); line(7,103); $line(7,105); line(4,105); $line(4,101); line integer); "begin " "{draws a double sharp in relationship to the note} $atxy(x, y - 3); line(x + 6, y + 3);(5,100); $line(5,99); line(7,97); $line(13,97); line(14,98); $line(16,103);  $atxy(x + 6, y - 3); line(x, y + 3); $point(x + 3, y - 3); point(x + 3, y + 3); $point(x, y);  atxy(16,105); $line(15,110); line(14,111); $line(6,128); atxy(22,99);  point(x + 6, y); "end; "  procedure flat(x, y : integer); "begin " "{flat, ditto sharp} $atxy(x, y - 6); $line(22,101); line(20,101); $line(20,99); line(22,99); $atxy(22,107);  line(x, y + 2); $point(x + 1, y + 2); point(x + 2, y + 1); $point(x + 3, y); point(x + 3 line(22,109); $line(20,109); line(20,107); $line(22,107); "end;   procedure note(x, y : integer); "beg, y - 1); $point(x + 2, y - 2); point(x + 1, y - 1); "end; "  procedure ledger(x,y : integer); "begin " "{ledgin " "{draws a note on the staff with stem up or down} $atxy(x + 2, y - 3); line(x + 6, y - 3); $atxy(x + 1, y -er, ditto sharp} $atxy(x-2, y); $line(x+10, y); "end; "  procedure looper;  "begin $for j := 1 to 5000 do; "end; " e `G` cleff} $atxy(9,58); line(8,57); $line(8,53); line(9,52); $line(9,51);  2); line(x + 7, y - 2); $atxy(x, y - 1); line(x + 7, y - 1); $atxy(x, y); lin egin 0ledgerpos := 32; 0number := 2; 0direction := -8; .end; - & 1,2 : .begin 0ledgerpos := 32; 0number := 3; 0dire"{converts the integer frequency to the ascii plato IV format} $send[1] := (((x div 4096) mod 8) + 8); $send[2] := (((x mod 4ction := -8; .end; - '-1,0 : .begin 0ledgerpos := 32; 0number := 4; 0direction := -8; .end; - & -3,-2 : .begin 0l096) div 64) mod 64); $send[3] := x mod 64; &begin (for i := 1 to 3 do *begin ,if send[i] = 60 then 1begin 3transchar["  procedure calcplace(noteletter, accident : char; octive : integer);   var &Ledgerpos, ,Pos, )Number, &Direction, edgerpos := 32; 0number := 5; 0direction := -8; .end; - %end; % %for i := 1 to number do 'begin )ledger(counter * 30 + %Staffplace, &Notelevel, *Space : Integer;  "begin " "{determines the place the note and accidentals are to be drawn 45 + space, ledgerpos + direction * i); 'end; #end; ! #if ((pos > -4) and (pos < 12)) or ((pos > 18) and (pos < 24)) then %on the staff} " #case noteletter of # %'A' : notelevel := 0; % %'B' : notelevel := 1; % %'C' : notelevel := 2; % %'D' up := false % #else %up := true; % ! note(counter * 30 + 45 + space, staffplace); #case accident of # # 'N' : ; % : notelevel := 3; % %'E' : notelevel := 4; % %'F' : notelevel := 5; % %'G' : notelevel := 6; % #end; # !pos := 41 - (n%'?' : sharp(counter * 30 + 37 + space, staffplace); % %'''' : flat(counter * 30 + 39 + space, staffplace); % %'D' : begiotelevel + ((octive - 1) * 7)); ! #if pos < 18 then %staffplace := pos * 4 % #else if pos = 18 then %staffplace := 80 % n .flat(counter * 30 + 35 + space, staffplace); .flat(counter * 30 + 40 + space, staffplace); ,end; . %'X' : doublesharp(c#else # staffplace := pos * 4 + 16; % #if odd(counter) then %space := -5 # #else %space := 5; % #if (pos < 7) or (poounter * 30 + 37 + space, staffplace); % #end; !end; ! !  procedure quiet; "begin " "{programs the plato IV and loads s > 29) or (pos = 18) then #begin %case pos of ' '30,31 : .begin 0ledgerpos := 128; 0number := 1; 0direction := 8; .enunplayable notes} $write(printer,dc1,caa); &for k := 1 to 4 do (begin *write(printer,dc1,unplay); (end; "end; " "  procd; ( '32,33 : .begin 0ledgerpos := 128; 0number := 2; 0direction := 8; .end; . '34,35 : .begin 0ledgerpos := 128; edure noop; "begin; " "{writes no-operation charactors to the plato IV} $for k := 1 to time do; &write(printer,dc1,nop); $0number := 3; 0direction := 8; .end; . '36,37 : .begin 0ledgerpos := 128; 0number := 4; 0direction := 8; .end; - '3write(printer,dc1,unplay); $if harmon then write(printer,dc1,unplay) "end; " "  procedure play; "begin " "{writes the ch8,39 : .begin 0ledgerpos := 128; 0number := 5; 0direction := 8; .end; . '18 : .begin 0ledgerpos := 80; 0number :=aractor equivalent of the note`s frequency to the plato IV} " write(printer,dc1); &for j := 1 to 3 do (begin *write(printer 1; 0direction := 0; .end; . '5,6 : .begin 0ledgerpos := 32; 0number := 1; 0direction := -8; .end; - '3,4 : .b,transchar[j]); (end; (write(printer,dc3); "end; "   procedure convert(x : integer); "begin "  $ "ocnote := 25+ ival+((octive-1)*12); "uncode := freq(ocnote - 21);  end;  " " " procedure changemode;   { Sets the  &' ' : intnumber := 6; & &'5' : intnumber := 7; & &'6' : if inttype = 'N' then .intnumber := 8 ,else .intnumber := 9; mode of the music box. (melodic or harmonic) }  "var 'mode1 : packed array[1..3] of integer; 'mode2 : packed array[. &'7' : if inttype = 'N' then .intnumber := 10 ,else .intnumber := 11; . &'8' : intnumber := 12; & $end; "end; & 1..3] of char; '  begin "mode1 [1] := 4 * cis + topvoice; "mode1 [2] := 8 * vol1 + vol2; "mode1 [3] := 8 * vol3 + vol4; " "for i := 1 to 3 do $begin & &if mode1 [i] = 60 then (mode2 [i] := chr(58) &else (mode2 [i] := chr(mode1 [i] + 64); $end; $ "write(printer,dc1); "for i := 1 to 3 do $write(printer,mode2 [i]); $  end;    procedure melodic;   { Sends dai] := chr(58); 1end -else 1begin 3transchar[i] := chr(send[i] + 64); 1end +end; )end; #end; " "  function freq(x : reta to Changemode which sets the music box to play melodic intervals }  "begin $harmon := false; $cis := 1; al) : integer;   const &crystal = 3872000.0;   var (inter : real;  "begin " "{takes the numerical posi$topvoice := 0; $changemode; "end; " "  procedure harmonic;   { Sends data to changemode which sets the music box to pltion of the note in the scale of all notes and #returns the integer frequency of the note} $inter := 27.5 * exp (ln(2.0) * x /ay harmonic intervals }  "begin $harmon := true; $cis := 0; $topvoice := 1; $changemode; "end;  procedure response(x, 12.0); " freq := round((crystal/inter-2)/4); "end; " "  function uncode(noteletter,accident : char; octive : integer) : iny : integer);   { Writes the character entered at the coordinates x, y }  "begin $gotoxy(x, y); $write(answer); "end; teger;   var &ival, &jval : integer;  "begin " "{takes the note as formatted in musdata and returns the freque"  procedure input; "begin $gotoxy(79, 23); $get(keyboard); $answer := keyboard^; $k := ord(answer) mod 128; $ ${returnsncy} $case noteletter of $ &'A' : jval := 0; & &'B' : jval := 2; & &'C' : jval := 3; & &'D' : jval := 5; &  upper-case for programming considerations} $if (k >= 97) and (k <= 122) then &answer := chr(k - 32); "end; "  function in&'E' : jval := 7; & &'F' : jval := 8; & &'G' : jval := 10; & $end; $ $case accident of $ &'N' : ival := jval; & &'tnumber (inttype, intvalue : char) : integer; "begin $case intvalue of $ &'2' : if inttype = 'N' then .intnumber := 1 ,e?' : ival := jval + 1; & &'''' : ival := jval - 1; & &'D' : ival := jval - 2; & &'X' : ival := jval + 2; & $end; $ lse . intnumber := 2; / &'3' : if inttype = 'N' then .intnumber := 3 ,else .intnumber := 4; . % '4' : intnumber := 5; & "begin $gotoxy(1,23); $write('Enter a number from 0 to 9 (default is `3`)'); $ $repeat &input; &if not (answer in lenset$oct := (49 - oneplace) div 7 ; $accid := 'N'; $calcplace(nam, accid, oct); "end; "  procedure picknote; "begin $for i :=) then bell; $until answer in lenset; $ $case answer of & &'0' : time := 300; & &'1' : time := 600; & &'2' :  1 to 4 do $begin &q[i] := random(6) + 1; ¬es[i] := noter[q[i]]; $end; "end;  %  procedure place;   const  time := 900; & &'3' : time := 1200; & &'4' : time := 1500; & &'5' : time := 1800; & &'6' : time := 2100; & &'7' : time := 2400; & &'8' : time := 2700; & &'9' : time := 3000; & $end;  end;   function random(number:real):integer;  "const )pi = 3.1415926; $ "var $ranswer, *z : real; $ &function expo(base,expon:real):real; & (begin *expo := exp(expon*ln(base)) (end; !begin ! !ranswer := expo(seed+pi,2.0); !z := ranswer-sqr(sqrt(trunc(ranswer))); !seed := z; !random := round(number*z); ! !end; ! !procedure clear; ! #begin %page(output) #end; ! procedure writeinfo(filename : string ; lines : integer);   begin "{$e-} "reset(infile,filename); "{$e+} "if IOResult = 0 then $begin &while not eof(infile) do (begin *clear; *for i := 1 to lines do ,if not eof(infile) then .begin 0readln(infile,data); 0writeln(data); .end; *writeln; *writeln('when done reading this press `D`'); *repeat ,input; ,if answer <> 'D' then bell; *until answer = 'D'; *end; (end &else (writeln(filename,' is not on this disk.'); $close(infile);  end;  !  procedure drawstaff; !begin #erase(drawscr); #staff; !end;   procedure drawnote(oneplace : integer);   var &Na  procedure bell;   var $x : integer; $  begin "for x := 1 to 25 do $write(chr(7));  end;   procedure length;  m, &Accid : Char; ' &Oct : Integer;  $ "begin $nam := noter[(49 - oneplace) mod 7 + 1]; $notename := nam;  Program Music;   {$S+}  {$d2}  "Const )Caa = 'CAA'; &Unplay = 'H@@'; )Nop = '@@@'; ) "Var %Harmon, %Justlook line(314,128); $atxy(318,32); line(318,128); $atxy(319,32); line(319,128); $ "{draws thing, %Updown, (Bye, 'Next, )Up : Boolean; ) #Accident, %Accid2, (Dc1, (Dc3, 'Down, 'int1, 'int2, 'Name, &Name2e `G` cleff} $atxy(9,58); line(8,57); $line(8,53); line(9,52); $line(9,51); , #Notename, (Upp : Char; ( (Cis, $correct, $Counter,  Exercounter, "Frequency, *I, & Id, &intv1, &intv2, *J, line(11,49); $atxy(16,49); line(17,49); $line(19,51); line(21,56);  *K, %Ocnote, %Octive, $Octive2, 'resp, #Topvoice, 'Time, 'Vol1, 'Vol2, 'Vol3, 'Vol4 : Integer; ' 'Seed : R$line(19,61); line(17,63); $atxy(14,65); line(8,65); $atxy(6,64); leal; ' 'data : String; ( #Placeset : Set of Char; # &idset, %intset, %comset : set of 'A'..'Z'; % $intvsetine(4,59); $atxy(3,57); line(5,47); $line(6,46); line(6,44); $line(7,43); , %lenset : set of '0'..'9'; # $Unitset : Set of 1..9; # %Infile, $Outfile, #keyboard, $Printer : Text; $  line(10,36); $line(11,35); atxy(14,31); $line(16,29); line(16,26); $line(14,24&Noter : Packed Array[1..7] of Char; & &Notes : Packed Array[1..4] of Char; & "Transchar : Packed Array[1..3] of); line(12,24); $line(11,25); line(15,69); $line(14,70); line(14,71); Char; " *Q : Packed Array[1..4] of Integer; ' 'Send : Packed Array[1..3] of Integer; ' %Answer : Char; *  $line(13,72); line(12,72); $line(11,71); line(11,70); $ "{draws the `F` cleff} " at {$i '#4:music.plot'}   procedure staff; "begin " "{draws the staff} $atxy(0,32); line(319,32); $atxy(6,103); line(7,103); $line(7,105); line(4,105); $line(4,101); linexy(0,40); line(319,40); $atxy(0,48); line(319,48); $atxy(0,56); li(5,100); $line(5,99); line(7,97); $line(13,97); line(14,98); $line(16,103); ne(319,56); $atxy(0,64); line(319,64); $atxy(0,96); line(319,96); $atxy(0,104);  atxy(16,105); $line(15,110); line(14,111); $line(6,128); atxy(22,99);  line(319,104); $atxy(0,112); line(319,112); $atxy(0,120); line(319,120); $atxy(0,128); line(319,128); $atxy(1,32); line(1,128); $atxy(314,32);   point(x + 6, y); "end; "  procedure flat(x, y : integer); "begin " "{flat, ditto sharp} $atxy(x, y - 6); 8,39 : .begin 0ledgerpos := 128; 0number := 5; 0direction := 8; .end; . '18 : .begin 0ledgerpos := 80; 0number :=$line(22,101); line(20,101); $line(20,99); line(22,99); $atxy(22,107);  line(x, y + 2); $point(x + 1, y + 2); point(x + 2, y + 1); $point(x + 3, y); point(x + 3 line(22,109); $line(20,109); line(20,107); $line(22,107); "end;   procedure note(x, y : integer); "beg, y - 1); $point(x + 2, y - 2); point(x + 1, y - 1); "end; "  procedure ledger(x,y : integer); "begin " "{ledgin " "{draws a note on the staff with stem up or down} $atxy(x + 2, y - 3); line(x + 6, y - 3); $atxy(x + 1, y -er, ditto sharp} $atxy(x-2, y); $line(x+10, y); "end; "  procedure looper;  "begin $for j := 1 to 5000 do; "end; "  2); line(x + 7, y - 2); $atxy(x, y - 1); line(x + 7, y - 1); $atxy(x, y); lin"  procedure calcplace(noteletter, accident : char; octive : integer);   var &Ledgerpos, ,Pos, )Number, &Direction, e(x + 7, y); $atxy(x, y + 1); line(x + 7, y + 1); $atxy(x + 1, y + 2); line(x + 7, y + 2); $atxy(%Staffplace, &Notelevel, *Space : Integer;  "begin " "{determines the place the note and accidentals are to be drawn x + 2, y + 3); line(x + 6, y + 3); $ $if up = true then $ begin {stem up} (atxy(x + 8, y - 14); (lon the staff} " #case noteletter of # %'A' : notelevel := 0; % %'B' : notelevel := 1; % %'C' : notelevel := 2; % %'D' ine(x + 8, y + 2); &end $else &begin {stem down} (atxy(x, y + 2); (line(x, y + 14); &end; "end; "  procedu: notelevel := 3; % %'E' : notelevel := 4; % %'F' : notelevel := 5; % %'G' : notelevel := 6; % #end; # !pos := 41 - (nre sharp(x, y : integer); "begin " "{draws a sharp in relationship to the note on staff} otelevel + ((octive - 1) * 7)); ! #if pos < 18 then %staffplace := pos * 4 % #else if pos = 18 then %staffplace := 80 % $atxy(x, y - 1); line(x + 6, y - 1); $atxy(x, y + 1); line(x + 6, y + 1); $atxy(x + 2, y - 3)#else # staffplace := pos * 4 + 16; % #if odd(counter) then %space := -5 # #else %space := 5; % #if (pos < 7) or (po; line(x + 2, y + 3); $atxy(x + 4, y - 3); line(x + 4, y + 3); "end; "  procedure doublesharp(x, y :s > 29) or (pos = 18) then #begin %case pos of ' '30,31 : .begin 0ledgerpos := 128; 0number := 1; 0direction := 8; .en integer); "begin " "{draws a double sharp in relationship to the note} $atxy(x, y - 3); line(x + 6, y + 3);d; ( '32,33 : .begin 0ledgerpos := 128; 0number := 2; 0direction := 8; .end; . '34,35 : .begin 0ledgerpos := 128;  $atxy(x + 6, y - 3); line(x, y + 3); $point(x + 3, y - 3); point(x + 3, y + 3); $point(x, y); 0number := 3; 0direction := 8; .end; . '36,37 : .begin 0ledgerpos := 128; 0number := 4; 0direction := 8; .end; - '3 unplayable notes} $write(printer,dc1,caa); &for k := 1 to 4 do (begin *write(printer,dc1,unplay); (end; "end; " "  proc&'E' : jval := 7; & &'F' : jval := 8; & &'G' : jval := 10; & $end; $ $case accident of $ &'N' : ival := jval; & &'edure noop; "begin; " "{writes no-operation charactors to the plato IV} $for k := 1 to time do; &write(printer,dc1,nop); $?' : ival := jval + 1; & &'''' : ival := jval - 1; & &'D' : ival := jval - 2; & &'X' : ival := jval + 2; & $end; $ write(printer,dc1,unplay); $if harmon then write(printer,dc1,unplay) "end; " "  procedure play; "begin " "{writes the ch$ "ocnote := 25+ ival+((octive-1)*12); "uncode := freq(ocnote - 21);  end;  " " " procedure changemode;   { Sets the aractor equivalent of the note`s frequency to the plato IV} " write(printer,dc1); &for j := 1 to 3 do (begin *write(printermode of the music box. (melodic or harmonic) }  "var 'mode1 : packed array[1..3] of integer; 'mode2 : packed array[ 1; 0direction := 0; .end; . '5,6 : .begin 0ledgerpos := 32; 0number := 1; 0direction := -8; .end; - '3,4 : .b,transchar[j]); (end; (write(printer,dc3); "end; "   procedure convert(x : integer); "begin " egin 0ledgerpos := 32; 0number := 2; 0direction := -8; .end; - & 1,2 : .begin 0ledgerpos := 32; 0number := 3; 0dire"{converts the integer frequency to the ascii plato IV format} $send[1] := (((x div 4096) mod 8) + 8); $send[2] := (((x mod 4ction := -8; .end; - '-1,0 : .begin 0ledgerpos := 32; 0number := 4; 0direction := -8; .end; - & -3,-2 : .begin 0l096) div 64) mod 64); $send[3] := x mod 64; &begin (for i := 1 to 3 do *begin ,if send[i] = 60 then 1begin 3transchar[edgerpos := 32; 0number := 5; 0direction := -8; .end; - %end; % %for i := 1 to number do 'begin )ledger(counter * 30 + i] := chr(58); 1end -else 1begin 3transchar[i] := chr(send[i] + 64); 1end +end; )end; #end; " "  function freq(x : re45 + space, ledgerpos + direction * i); 'end; #end; ! #if ((pos > -4) and (pos < 12)) or ((pos > 18) and (pos < 24)) then %al) : integer;   const &crystal = 3872000.0;   var (inter : real;  "begin " "{takes the numerical posiup := false % #else %up := true; % ! note(counter * 30 + 45 + space, staffplace); #case accident of # # 'N' : ; % tion of the note in the scale of all notes and #returns the integer frequency of the note} $inter := 27.5 * exp (ln(2.0) * x /%'?' : sharp(counter * 30 + 37 + space, staffplace); % %'''' : flat(counter * 30 + 39 + space, staffplace); % %'D' : begi12.0); " freq := round((crystal/inter-2)/4); "end; " "  function uncode(noteletter,accident : char; octive : integer) : inn .flat(counter * 30 + 35 + space, staffplace); .flat(counter * 30 + 40 + space, staffplace); ,end; . %'X' : doublesharp(cteger;   var &ival, &jval : integer;  "begin " "{takes the note as formatted in musdata and returns the frequeounter * 30 + 37 + space, staffplace); % #end; !end; ! !  procedure quiet; "begin " "{programs the plato IV and loads ncy} $case noteletter of $ &'A' : jval := 0; & &'B' : jval := 2; & &'C' : jval := 3; & &'D' : jval := 5; &  y : integer);   { Writes the character entered at the coordinates x, y }  "begin $gotoxy(x, y); $write(answer); "end; "  procedure input; "begin $gotoxy(79, 23); $get(keyboard); $answer := keyboard^; $k := ord(answer) mod 128; $ ${returns  procedure bell;   var $x : integer; $  begin "for x := 1 to 25 do $write(chr(7));  end;   procedure length;   upper-case for programming considerations} $if (k >= 97) and (k <= 122) then &answer := chr(k - 32); "end; "  function in"begin $gotoxy(1,23); $write('Enter a number from 0 to 9 (default is `3`)'); $ $repeat &input; &if not (answer in lensettnumber (inttype, intvalue : char) : integer; "begin $case intvalue of $ &'2' : if inttype = 'N' then .intnumber := 1 ,e) then bell; $until answer in lenset; $ $case answer of & &'0' : time := 300; & &'1' : time := 600; & &'2' : lse . intnumber := 2; / &'3' : if inttype = 'N' then .intnumber := 3 ,else .intnumber := 4; . % '4' : intnumber := 5; & time := 900; & &'3' : time := 1200; & &'4' : time := 1500; & &'5' : time := 1800; & &'6' : time := 210 &' ' : intnumber := 6; & &'5' : intnumber := 7; & &'6' : if inttype = 'N' then .intnumber := 8 ,else .intnumber := 9; 0; & &'7' : time := 2400; & &'8' : time := 2700; & &'9' : time := 3000; & $end;  end;   function random(. &'7' : if inttype = 'N' then .intnumber := 10 ,else .intnumber := 11; . &'8' : intnumber := 12; & $end; "end; & number:real):integer;  "const )pi = 3.1415926; $ "var $ranswer, *z : real; $ &function expo(base,expon:real):r1..3] of char; '  begin "mode1 [1] := 4 * cis + topvoice; "mode1 [2] := 8 * vol1 + vol2; "mode1 [3] := 8 * vol3 + vol4; " "for i := 1 to 3 do $begin & &if mode1 [i] = 60 then (mode2 [i] := chr(58) &else (mode2 [i] := chr(mode1 [i] + 64); $end; $ "write(printer,dc1); "for i := 1 to 3 do $write(printer,mode2 [i]); $  end;    procedure melodic;   { Sends data to Changemode which sets the music box to play melodic intervals }  "begin $harmon := false; $cis := 1; $topvoice := 0; $changemode; "end; " "  procedure harmonic;   { Sends data to changemode which sets the music box to play harmonic intervals }  "begin $harmon := true; $cis := 0; $topvoice := 1; $changemode; "end;  procedure response(x,   then $begin &while not eof(infile) do (begin *clear; *for i := 1 to lines do ,if not eof(infile) then .begin 0readln(in3], (' ',notes[4]); &counter := 1; &j := 1; (while (answer <> 'Q') and (counter < 8) do *begin ,index := 39; ,drawnotefile,data); 0writeln(data); .end; *writeln; *writeln('when done reading this press `D`'); *repeat ,input; ,if answer <> '(index); ,answer := ' '; ,next := false; .while not next do 0begin 2repeat 4input; D' then bell; *until answer = 'D'; *end; (end &else (writeln(filename,' is not on this disk.'); $close(infile);  end;  4if not(answer in placeset) then bell 2until answer in placeset; 2 4if answer = down then answer := 'W'; 4 4if answer = up!  procedure drawstaff; !begin #erase(drawscr); #staff; !end;   procedure drawnote(oneplace : integer);   var &Nap then answer := 'V'; 2 6case answer of 6 ='V' : begin Eif index < 0 then Gbegin Ibell; Gend Eelse Gbegin Iold := inm, &Accid : Char; ' &Oct : Integer;  $ "begin $nam := noter[(49 - oneplace) mod 7 + 1]; $notename := nam; dex; Inew := index - 1; Idrawnote(old); Idrawnote(new); Iindex := new; Gend; Cend; @ ='W' : begin Eif index > 39 then $oct := (49 - oneplace) div 7 ; $accid := 'N'; $calcplace(nam, accid, oct); "end; "  procedure picknote; "begin $for i :=Gbegin Ibell; Gend Eelse Gbegin Iold := index; Inew := index + 1; Idrawnote(old); Idrawnote(new); Iindex := new; Gend; 1 to 4 do $begin &q[i] := random(6) + 1; ¬es[i] := noter[q[i]]; $end; "end;  %  procedure place;   const  Cend; @ ='P' : if notename = notes[j] then Ebegin Ggotoxy(5,20); Gwriteln('THAT''S CORRECT!'); Ggotoxy(5,21); Gwriteln('string = 'Please place the following notes: '; "  var *Old, *New, (Index : Integer; (  procedure placeinfo' '); Gcounter := counter + 2; Gnext := true; Eend Celse Ebegin Ggotoxy(5,20); Gwriteln('INCORRECT '); Gg; "begin $clear; $gotoxy(1,9); $erase(drawscr); $writeln('To place a given note, adjust the note on the screen'); $writelnotoxy(5,21); Gwriteln('Try again.'); Ganswer := ' '; Eend; ; ='Q' : next := true; 6end; 0end; ,j := j + 1; *end; $unti('using the UP/DOWN keys on the keyboard until the note'); $writeln('is placed on the staff at the proper place.'); $writeln('l answer = 'Q'; $pen := white;  end;   procedure idnote; "begin $clear; $erase(drawscr); $gotoxy(1,10); eal; & (begin *expo := exp(expon*ln(base)) (end; !begin ! !ranswer := expo(seed+pi,2.0); !z := ranswer-sqr(sqrt(trunc(raThen press the `P` key to PLACE the note.'); $writeln('To QUIT the drill, type `Q`.'); $writeln; $writeln('When DONE reading nswer))); !seed := z; !random := round(number*z); ! !end; ! !procedure clear; ! #begin %page(output) #end; ! paragraph, press `D`'); $ $repeat &input; &if answer <> 'D' then bell $until answer = 'D'; "end; $  begin ! placeinfo; procedure writeinfo(filename : string ; lines : integer);   begin "{$e-} "reset(infile,filename); "{$e+} "if IOResult = 0"clear; $repeat &picknote; &drawstaff; &pen := flip; &gotoxy(1,23); &write(string, notes[1],' ',notes[2],' ',notes[ $writeln('A note will be drawn on the staff, and you are'); $writeln('to respond with the letter of that note. If '); $write   begin # #if updown then %begin 'convert(deco2); 'play; 'if not harmon then noop; 'convert(deco1); 'play; 'noop %ln('correct, a new note will be drawn. Type `Q` to QUIT.'); $writeln; $writeln('When DONE reading paragraph, press `D`'); $ end #else %begin 'convert(deco1); 'play; 'if not harmon then noop; 'convert(deco2); 'play; 'noop; %end; !end; ! !beg$repeat &input; &if answer <> 'D' then bell; $until answer = 'D'; $clear; $ $repeat &answer := ' '; &drawstaff; &countin #if unitset = [] then unit; #justlooking := false; #clear; #drawstaff; #reset(infile,'musdata.text'); er := 1; &next := true; &while (counter < 8) and (answer <> 'Q') do (begin ( *if next then ,begin .next := false; .drawn#readln(infile); #counter := 0; #repeat %next := false; %repeat 'read(infile,name); ' 'case name of ' *'A', 'B', 'C', ote(random(34) + 2);{select a position on the staff for note} ,end; , *gotoxy(1,23); *write('Name of note. ');'D', 'E', 'F', 'G' : 2begin 4read(infile,accident,octive,name2,accid2,octive2, :int1,int2); 4intv1 := intnumber(int1,int2); * *while not (answer in idset) do ,begin .input; .if not (answer in idset) then bell; ,end; + ,if answer <> 'Q' then  2end; ' *' ' : intv1 := -1; * *'*' : .begin 0reset(infile); 0readln(infile); 0intv1 := -1; .end; + 'end; ' %unti,begin .if notename = answer then 0begin 2gotoxy(5,20); 2writeln(notename,' is correct'); 2gotoxy(5,21); 2writeln(' l intv1 in unitset; % %deco1 := uncode(name, accident, octive); %deco2 := uncode(name2, accid2, octive2); % %if deco1 < dec '); 2next := true; 2counter := counter + 2; 0end .else 0begin 2gotoxy(5,20); 2writeln(answer,' is wrong '); o2 then 'begin )tempy := deco1; )deco1 := deco2; )deco2 := tempy 'end; % #intplay; # #while not next do % %begin 'go2gotoxy(5,21); 2writeln('try again.'); 0end; . ,answer := ' '; ,end; . (end; (  until answer = 'Q'; $ "end; " toxy(1,0); 'write(data); 'gotoxy(1,23); 'write('comands: S(how), A(gain), I(nvert), C(hange), L(ength), U(nit), Q(uit)'); ' procedure drill; "begin $clear; $gotoxy(1,12); $writeln('Note Reading Drill.'); $writeln('Respond type: `P` to Position gotoxy(1, 22); 'write(' Enter an interval name or a comand: '); 'repeat )input; )response(40, 22); )if note'); $writeln(' `I` to Identify drawn notes.'); $repeat &input; &if (answer <> 'P') and (answer <> 'I') thenot (answer in intset) then bell; 'until answer in intset; ' 'case answer of ) )'T', 'N', 'M', 'P' : 7begin n bell $until (answer = 'P') or (answer = 'I'); $ $if answer='P' then place &else idnote; & "end;   procedure unit; for9resp :=resp + 1; 9com := answer; 9if com = 'T' then ;answer := ' ' 9else ;begin =repeat ?input; ?response(41,22); ?ifward;  procedure interval;   var  com : char; % %deco1, %deco2, %tempy : integer; %  procedure intplay; not (answer in intvset) then bell; =until answer in intvset; ;end; 9 9intv2 := intnumber(com,answer); 9 9if intv1 = intv2  $input; $if (answer <> 'Y') and (answer <> 'N') then bell; "until (answer = 'Y') or (answer = 'N'); " "if answer = 'Y' theThese are commands which you may enter now:'); $writeln; $writeln(' B(ye) to stop the program.'); $writeln(' D(rill)n unitchoice; " "gotoxy (10,20); "write ('Which unit do you want? '); " "repeat $input; $if not (answer in lenset) to practice reading notes.'); $writeln(' M(usic) to practice melodic & harmonic intervals'); $writeln(' U(nit)  or (answer = '0') then bell; "until (answer in lenset) and (answer <> '0'); " "gotoxy (0,0); "unitset := []; " "case answto change units.'); $writeln(' I(nfo) to list information.'); $gotoxy(1,20); $write('Command. '); $repeat &input; $ then ;begin 9if counter = 8 then ;begin =drawstaff; =counter := 0; ;end; =correct := correct + 1; =gotoxy(43, 22); =wrer of " $'1' : (begin *data := '1 Maj2, Per4, Maj7, Per8'; *unitset := [2, 5, 11, 12]; (end; ( $'2' : ite('that''s correct'); =calcplace(name,accident,octive); =counter := counter + 1; =calcplace(name2,accid2,octive2); =counte(begin *data := '2 Min2, Maj3, Trit, Maj6'; *unitset := [1, 4, 6, 9]; (end; ( $'3' : (begin *data := '3 Minr := counter + 1; =next := true; ;end 9else ;begin =gotoxy(43, 22); =if intv1 > intv2 then ?write('>') =else ?write('<'3, Per5, Min6, Min7'; *unitset := [3, 7, 8, 10]; (end; ( $'4' : (begin *data := '4 Min2, Maj2, Maj3, Per4, Maj7, Pe); ;end; ;looper 7end; 7 /'Q' : next := true; / /'S' : 7begin 9gotoxy(40, 22); 9write(name, accident, octive,r8'; *unitset := [1, 2, 4, 5, 11, 12]; (end; ( $'5' : (begin *data := '5 Min3, Trit, Per5, Min6, Maj6, Min7'; *uni ' ',name2, accid2, 9octive2, ' ', int1,int2); 9next := true; 9looper 7end; 7 /'A' : intplay; / /'I' : 7btset := [3, 6, 7, 8, 9, 10]; (end; ( $'6' : (begin *data := '6 Min6, Maj6, Min7, Maj7'; *unitset := [8, 9, 10, 11];egin 9updown := not updown; 9intplay; 7end; 7 /'C' : 7begin 9if harmon then ;melodic 9else ;harmonic; 7end; ;  (end; $ $'7' : (begin *data := '7 Per8, Per4, Maj7, Maj2, Min2, Maj3'; *unitset := [12, 5, 11, 2, 1, 4]; (end; (/'L' : 5 begin 9clear; 9length; 9clear 7end; 7 /'U' : 7begin 9close(infile); 9unit; 9reset(infile,'musdata. $'8' : (begin *data := '8 Min3, Trit, Per5, Min6, Maj6, Min7'; *unitset := [3, 6, 7, 8, 9, 10]; (end; ( $'9' : text'); 9readln(infile); 9clear; 9drawstaff; 9counter := 0; 9next := true 7end / ,end (end $until answer = 'Q'; $clos(begin *data := '9 Min2, Maj2, min3, Maj3, Per4, Trit, Per5, Min6, Maj6, Min7, Maj7, Per8'; *unitset := [1..12]; (end; e(infile)  end;  procedure unitchoice;   begin "erase(drawscr); "gotoxy(1,8); "writeinfo('unitchoice.text',20); "count( $end;  end; $ procedure info;   begin "gotoxy(1,2); "writeinfo('music.info.text',21)  end;   procedure command; er := 0;  end;  procedure unit;   begin " "clear; "gotoxy(10,20); "write('Do you want your unit choices'); " "repeat"begin "{shows the command list and waits for the appropriate command} $erase (drawscr); $clear; $gotoxy(20,6); $writeln(' 10); &write('Create new student file.'); &gotoxy(18,15); &write('Enter password(you have only one shot)....'); &gotoxy(1,1);&readln(infile, students); &for i := 1 to students + 6 do (begin *readln(infile,data); *writeln(printer,data); (end; $cle &for i := 1 to 4 do (begin *input; *passin[i] := answer; (end; &if passin = password then (begin *clear; *gotoxy(15,10ar; $gotoxy(11,12); $close(infile); $write('Done'); $looper; $end; $ "procedure handoutsheet; " $begin &clear; &goto); *write('Enter number of students.... then press `RETURN`'); *i := 1; *students := 0; *repeat {this repeat returns an intexy(36, 5); &writeln('Handout'); &explain; &repeat (input; &until answer = 'G'; &i := 1; &reports := 0; &gotoxy(10,15); ger number} ,input; ,if answer in ['0'..'9'] then .begin 0sub := ord(answer) - ord('0'); 0response(63 + i, 10); 0students &write('Enter number of handouts.... then press `RETURN`'); &repeat (input; (if (answer in lenset) or (answer = chr (32)) the:= students * 10 + sub; 0i := i + 1; .end ,else .if answer <> chr(13) then bell; n *begin ,if answer in lenset then .begin 0sub := ord(answer) - ord('0'); 0response(66 + i, 12); 0reports := reports * 10 *until (answer = chr(13)) or (students > 10); *rewrite(infile, 'musrec.text'); *data := ' '; *writeln(infile, stud+ sub; 0i := i + 1; .end *end (else *bell; &until (answer = chr(32)) or (reports > 10); &reset(infile, 'handout.text');  if not (answer in comset) then bell; $until answer in comset; $ $ (case answer of * *'D' : drill; * *'M' : intervals;ents); *writeln(infile,' Student Progress Report'); *writeln(infile); *writeln(infile,'ID# Name La * *'U' : unit; * *'I' : info; * *'B' : bye := true; * (end; "end; procedure records; " "var &students, +sub, 'rest run # runs # right Total exercises Mean %'); *writeln(infile,' ports : integer; ' 'instset : set of 'A'..'Z'; % $instructor : boolean; $ &password : array[1..4] of char; & 'passin Replies/Ans'); *writeln(infile,'--- ---- -------- ------ ------- --------------- -----------'); *for i := 1 to : array[1..4] of char; " ( "procedure explain; $begin &gotoxy(13, 7);  students do {rewrites the actual musrec} ,writeln(infile, i : 2, data); (close(infile, lock); (clear; (gotoxy(38,20); (wri&writeln('This report requires the Terak to be connected to the'); &gotoxy(11, 8); &writeln('GE TermiNet. Ask one of the Comte('DONE'); (looper; (end &else (begin *clear; *gotoxy(30, 10); *write('Improper user access! Stop! Abort! Reset!!'); puter Center staff to assist.'); &gotoxy(11,10); &writeln('When ready to list....'); &gotoxy(11,12); &writeln('press `G` to *looper; *instructor := false; (end; $end; $ "procedure recordout; $ $begin &clear; &gotoxy(28, 5); &write('Student pgo.'); $end;   procedure recordclear;  $begin &clear; &gotoxy(18,8); &write('Clear old student file.'); &gotoxy(18,rogress report'); &explain; &repeat (input; &until answer = 'G'; &reset(infile, 'musrec.text');   `C` to clear student records'); (gotoxy(10,10); (write(' `R` to list a student progress report'); (gotoxy(10,12); (write(' `H` to list a hand-out that can be copied'); (gotoxy(10,13); (write(' and passed out to the class'); (goto"reset (infile,'musdata.text'); "{$e+} "if ioresult <> 0 then $begin &writeln('Musdata is not on this disk, get another onexy(10,15); (write(' `Q` to quit this part of the program and'); (gotoxy(10,16); (write(' go to the command list.'); &bye := true; $end "else $begin &readln(infile,seed); &close(infile) $end;  end;  procedure update;   const %.'); ( (repeat *input; *if not (answer in instset) then bell; (until answer in instset; ( (case answer of ( *'C' : recblank = ' ';   var % %name : string[10]; % %date : packed array [1..8] of char; % %studentordclear; 2  'R' : recordout; 0 *'H' : handoutsheet; 0 *'Q' : instructor := false; * (end; &end;  end; " s, %blankcount, %idnum, %runs, %right, %exercises : integer; % %runmean, %mean : real; % %dummy : procedure startplot;   begin "wherex := 0; "wherey := 0; "pen := white; "xlwindow := 1; "ylwindow := 1;  char; % "procedure copy; % %begin 'reset(infile); 'reset(outfile); 'close(infile); 'close(outfile,lock); 'reset(inf"xhwindow := 320; "yhwindow := 240; "newplace := true; "new(disscr); "drawscr := disscr; "erase(drawscr); "display(drawscile,'newrec.text'); 'rewrite(outfile,'musrec.text'); 'repeat )readln(infile,data); )writeln(outfile,data) 'until eof(infiler,[]);  end;  procedure initialize;   begin "startplot; "upp := chr (26); "down := chr (12); "dc1 := chr (17); "dc3 :); 'reset(infile); 'reset(outfile); 'close(infile); 'close(outfile, lock); %end; " "procedure show; $begin &clear; &go= chr (19); "bye := false; "next := false; "justlooking := true; "exercounter := 0; "resp := 0; "correct := 0; "time := 1toxy(1,6); &writeln(' ',name,', here is a summery of how you are doing on this'); &for i := 1 to reports do (begin *reset(infile); *repeat ,readln(infile,data); ,writeln(printer,data); *until eof(infile);200; "vol1 := 6; "vol2 := 6; "vol3 := 6; "vol4 := 6; "quiet; "melodic; "for i := 65 to 71 do $noter [i - 64] := chr(i);  (end; $clear; $close(infile); $gotoxy(38, 10); $write('Done'); $looper; $end;  $  begin "instructor := true; "placeset := [upp, down, 'Q', 'P']; "idset := ['A'..'G', 'Q']; "intset := ['N', 'M', 'T', 'P', 'Q', 'S', 'A', 'L', 'C', 'I', "instset := ['C', 'R', 'H', 'Q']; "password[1] := chr(67); "password[2] := chr(65); "password[3] := chr(84); "password[4] :'U']; "intvset := ['2'..'8']; "comset := ['B', 'D', 'M', 'U', 'I']; "lenset := ['0'..'9']; "unitset := []; $ "{Remove erro= chr(83); $while instructor do &begin (clear; (gotoxy(10,6); (write('What is your desire'); (gotoxy(10,8); (write('Pressr checking and see if the file Musdata.Text is on the disk} " "{$e-}  writeln('You have answered ', right ,' correctly: total'); &writeln('The average percentage of incorrect answers you have ente); .readln(infile, data); .data := concat(data, ' '); .mean := 0.0; .right := 0; .runs := 0; .blankcount := 0; .i := 17red is '); &writeln(Mean : 6 : 2); &writeln('goodbye for now, come back again sometime and have a nice day!'); $end; $ "pro; .while blankcount < 5 do 0begin 2if data[i] = blank then 4blankcount := blankcount + 1; 2i := i + 1; 0end; .repeat cedure error1; " $begin &clear; &gotoxy(10,11); &writeln('No student records file on disk!!'); &gotoxy(10,13); &writeln('0if data[I] <> blank then 2runs := runs * 10 + (ord(data[i]) - ord('0')); 0i := i + 1; .until data[i] = blank; .while data[Data cannot be saved!!'); $end; $  begin "runmean := 100.0 * ((resp - correct) / resp); "clear; "gotoxy(24, 11); "write('I] = blank do 0i := i + 1; .repeat 0if data[i] <> blank then 2right := right * 10 + (ord(data[i]) - ord('0')); 0i := i + 1;Enter today''s date. (MM-DD-YY)'); "for i := 1 to 8 do $begin &if (i = 3) or (i = 6) then (date[i] := '-' &else (begin  .until data[i] = blank; .while data[i] = blank do 0i := i + 1; .repeat 0if (data[i] <> blank) and (data[i] <> '.') then 2*repeat ,input; ,if not(answer in lenset) then bell *until answer in lenset; *date[i] := answer; *response(i + 46, 11) (enmean := mean * 10.0 + (ord(data[i]) - ord('0')); 0i := i + 1; .until data[i] = blank; .mean := mean / 100.0; .runs := runs +d $end;  {$e-}  reset(infile,'musrec.text'); "if IOresult <> 0 then $error1 "else $begin &{$e+}  1; .right := right + correct; .mean := (mean + runmean) / 2.0; ,end; ,writeln(outfile, ' ', name, ' ', date, ' ', run&rewrite(outfile,'newrec.text'); &readln(infile,students); &writeln(outfile,students); &if (id < 1) or (id > students) then s:1, ' ', 4right:1, ' ', runmean:4:2); ,while not eof(infile) do .begin 0readln(infile, data); 0writeln(outfile, data) (begin *clear; *gotoxy(10,11); *writeln('Your student ID is not on file'); *close(infile); *close(outfile) (end ( &else.end; ,copy; ,show; (end %end  end; !  begin {Begin the main program}  "{ Reset keyboard to 'systerm:' When doing  (begin *for i := 1 to id + 4 do ,begin .readln(infile, data); .writeln(outfile,data); ,end; *read(infile, idnum, dummy, a read or get from keyboard %there will be no need to hit the return key when entering data. name); *write(outfile,idnum : 2); *if name = ' ' then ,begin .readln(infile); .clear; .gotoxy(25,11); .write('En%Before the system can reset the file there must be a character entered %from the keyboard so the reason for telling them to hter your name. //////////'); .for j := 1 to 10 do . begin 2input; 2name[j] := answer; 2response(j + 42, 11); 0end; .runit the space bar %just befor the reset of this file. } % "gotoxy(15,12); "writeln('Welcome to the harmonic intervals and dr&writeln(' program to date.'); &writeln; &writeln; &writeln('You have run the program ', runs ,' times.'); &s := 1; .mean := runmean; .right := correct ,end *else * ,begin .reset(infile); .for i := 1 to id + 5 do 0readln(infile  blank = ' ';   var % %name : string[10]; % %date : packed array [1..8] of char; % %students, %blankcount, %idnum, %runs, %right, %exercises : integer; % %runmean, %mean : real; % %dummy :ill program.'); "gotoxy(15,14); "writeln('Press the space bar to begin.'); "reset(keyboard,'systerm:'); " "{ open file printer to 'printer:' whenever this file in written to %the data goes to the printer port instead of the screen } "reset(printerO^,'printer:'); "clear; "gotoxy(1,20); "write(' Enter your ID number. Then press the `Return` key.'); "readln(id); "if id =BA 0 then records; "initialize; " "while not bye do $command; " "if (not justlooking) and (resp > 0) then update; "reset(infile,'musdata.text'); "readln(infile); "rewrite(outfile,'newdata.text'); "writeln(outfile,seed); "repeat $readln(infile,data); $writeln(outfile,data); "until eof(infile); "close(infile); "close(outfile,lock); "reset(infile,'newdata.text'); "rewrite(outfile,'musdata.text'); "repeat $readln(infile,data); $writeln(outfile,data) "until eof(infile); "close(infile); "close(outfile,lock); "clear; "gotoxy(7,11); "write('You may now take the disk out of the drive and back to the office.')  end. "reset (infile,'musdata.text'); "{$e+} "if ioresult <> 0 then $begin &writeln('Musdata is not on this disk, get another one.'); &bye := true; $end "else $begin &readln(infile,seed); &close(infile) $end;  end;  procedure update;   const %! Data cannot be saved!!'); $end; $  begin "runmean := 100.0 * ((resp - correct) / resp); "clear; "gotoxy(24, 11); "write('I] = blank do 0i := i + 1; .repeat 0if data[i] <> blank then 2right := right * 10 + (ord(data[i]) - ord('0')); 0i := i + 1;Enter today''s date. (MM-DD-YY)'); "for i := 1 to 8 do $begin &if (i = 3) or (i = 6) then (date[i] := '-' &else (begin  .until data[i] = blank; .while data[i] = blank do 0i := i + 1; .repeat 0if (data[i] <> blank) and (data[i] <> '.') then 2*repeat ,input; ,if not(answer in lenset) then bell *until answer in lenset; *date[i] := answer; *response(i + 46, 11) (enmean := mean * 10.0 + (ord(data[i]) - ord('0')); 0i := i + 1; .until data[i] = blank; .mean := mean / 100.0; .runs := runs +d $end;  {$e-}  reset(infile,'musrec.text'); "if IOresult <> 0 then $error1 "else $begin &{$e+}  1; .right := right + correct; .mean := (mean + runmean) / 2.0; ,end; ,writeln(outfile, ' ', name, ' ', date, ' ', run&rewrite(outfile,'newrec.text'); &readln(infile,students); &writeln(outfile,students); &if (id < 1) or (id > students) then s:1, ' ', 4right:1, ' ', runmean:4:2); ,while not eof(infile) do .begin 0readln(infile, data); 0writeln(outfile, data)  char; % "procedure copy; % %begin 'reset(infile); 'reset(outfile); 'close(infile); 'close(outfile,lock); 'reset(inf(begin *clear; *gotoxy(10,11); *writeln('Your student ID is not on file'); *close(infile); *close(outfile) (end ( &elseile,'newrec.text'); 'rewrite(outfile,'musrec.text'); 'repeat )readln(infile,data); )writeln(outfile,data) 'until eof(infile (begin *for i := 1 to id + 4 do ,begin .readln(infile, data); .writeln(outfile,data); ,end; *read(infile, idnum, dummy, ); 'reset(infile); 'reset(outfile); 'close(infile); 'close(outfile, lock); %end; " "procedure show; $begin &clear; &goname); *write(outfile,idnum : 2); *if name = ' ' then ,begin .readln(infile); .clear; .gotoxy(25,11); .write('Entoxy(1,6); &writeln(' ',name,', here is a summery of how you are doing on this'); ter your name. //////////'); .for j := 1 to 10 do . begin 2input; 2name[j] := answer; 2response(j + 42, 11); 0end; .run&writeln(' program to date.'); &writeln; &writeln; &writeln('You have run the program ', runs ,' times.'); &s := 1; .mean := runmean; .right := correct ,end *else * ,begin .reset(infile); .for i := 1 to id + 5 do 0readln(infilewriteln('You have answered ', right ,' correctly: total'); &writeln('The average percentage of incorrect answers you have ente); .readln(infile, data); .data := concat(data, ' '); .mean := 0.0; .right := 0; .runs := 0; .blankcount := 0; .i := 17red is '); &writeln(Mean : 6 : 2); &writeln('goodbye for now, come back again sometime and have a nice day!'); $end; $ "pro; .while blankcount < 5 do 0begin 2if data[i] = blank then 4blankcount := blankcount + 1; 2i := i + 1; 0end; .repeat cedure error1; " $begin &clear; &gotoxy(10,11); &writeln('No student records file on disk!!'); &gotoxy(10,13); &writeln('0if data[I] <> blank then 2runs := runs * 10 + (ord(data[i]) - ord('0')); 0i := i + 1; .until data[i] = blank; .while data[" nter to 'printer:' whenever this file in written to %the data goes to the printer port instead of the screen } "reset(printerO^,'printer:'); "clear; "gotoxy(1,20); "write(' Enter your ID number. Then press the `Return` key.'); "readln(id); "if id =(B 0 then records; "initialize; " "while not bye do $command; " "if (not justlooking) and (resp > 0) then update; "reset(infile,'musdata.text'); "readln(infile); "rewrite(outfile,'newdata.text'); "writeln(outfile,seed); "repeat $readln(infile,data); $writeln(outfile,data); "until eof(infile); "close(infile); "close(outfile,lock); "reset(infile,'newdata.text'); "rewrite(outfile,'musdata.text'); "repeat $readln(infile,data); $writeln(outfile,data) "until eof(infile); "close(infile); "close(outfile,lock); "clear; "gotoxy(7,11); "write('You may now take the disk out of the drive and back to the office.')  end. .end; ,copy; ,show; (end %end  end; !  begin {Begin the main program}  "{ Reset keyboard to 'systerm:' When doing a read or get from keyboard %there will be no need to hit the return key when entering data. %Before the system can reset the file there must be a character entered %from the keyboard so the reason for telling them to hit the space bar %just befor the reset of this file. } % "gotoxy(15,12); "writeln('Welcome to the harmonic intervals and drill program.'); "gotoxy(15,14); "writeln('Press the space bar to begin.'); "reset(keyboard,'systerm:'); " "{ open file pri# ('using the UP/DOWN keys on the keyboard until the note'); $writeln('is placed on the staff at the proper place.'); $writeln('l answer = 'Q'; $pen := white;  end;   procedure idnote; "begin $clear; $erase(drawscr); $gotoxy(1,10); Then press the `P` key to PLACE the note.'); $writeln('To QUIT the drill, type `Q`.'); $writeln; $writeln('When DONE reading $writeln('A note will be drawn on the staff, and you are'); $writeln('to respond with the letter of that note. If '); $writeparagraph, press `D`'); $ $repeat &input; &if answer <> 'D' then bell $until answer = 'D'; "end; $  begin ! placeinfo; ln('correct, a new note will be drawn. Type `Q` to QUIT.'); $writeln; $writeln('When DONE reading paragraph, press `D`'); $ "clear; $repeat &picknote; &drawstaff; &pen := flip; &gotoxy(1,23); &write(string, notes[1],' ',notes[2],' ',notes[$repeat &input; &if answer <> 'D' then bell; $until answer = 'D'; $clear; $ $repeat &answer := ' '; &drawstaff; &count3], (' ',notes[4]); &counter := 1; &j := 1; (while (answer <> 'Q') and (counter < 8) do *begin ,index := 39; ,drawnoteer := 1; &next := true; &while (counter < 8) and (answer <> 'Q') do (begin ( *if next then ,begin .next := false; .drawn(index); ,answer := ' '; ,next := false; .while not next do 0begin 2repeat 4input; ote(random(34) + 2);{select a position on the staff for note} ,end; , *gotoxy(1,23); *write('Name of note. ');4if not(answer in placeset) then bell 2until answer in placeset; 2 4if answer = down then answer := 'W'; 4 4if answer = up * *while not (answer in idset) do ,begin .input; .if not (answer in idset) then bell; ,end; + ,if answer <> 'Q' then p then answer := 'V'; 2 6case answer of 6 ='V' : begin Eif index < 0 then Gbegin Ibell; Gend Eelse Gbegin Iold := in,begin .if notename = answer then 0begin 2gotoxy(5,20); 2writeln(notename,' is correct'); 2gotoxy(5,21); 2writeln(' dex; Inew := index - 1; Idrawnote(old); Idrawnote(new); Iindex := new; Gend; Cend; @ ='W' : begin Eif index > 39 then  '); 2next := true; 2counter := counter + 2; 0end .else 0begin 2gotoxy(5,20); 2writeln(answer,' is wrong '); Gbegin Ibell; Gend Eelse Gbegin Iold := index; Inew := index + 1; Idrawnote(old); Idrawnote(new); Iindex := new; Gend;2gotoxy(5,21); 2writeln('try again.'); 0end; . ,answer := ' '; ,end; . (end; (  until answer = 'Q'; $ "end; "  Cend; @ ='P' : if notename = notes[j] then Ebegin Ggotoxy(5,20); Gwriteln('THAT''S CORRECT!'); Ggotoxy(5,21); Gwriteln( procedure drill; "begin $clear; $gotoxy(1,12); $writeln('Note Reading Drill.'); $writeln('Respond type: `P` to Position 'string = 'Please place the following notes: '; "  var *Old, *New, (Index : Integer; (  procedure placeinfo' '); Gcounter := counter + 2; Gnext := true; Eend Celse Ebegin Ggotoxy(5,20); Gwriteln('INCORRECT '); Gg; "begin $clear; $gotoxy(1,9); $erase(drawscr); $writeln('To place a given note, adjust the note on the screen'); $writelnotoxy(5,21); Gwriteln('Try again.'); Ganswer := ' '; Eend; ; ='Q' : next := true; 6end; 0end; ,j := j + 1; *end; $unti$ gotoxy(1, 22); 'write(' Enter an interval name or a comand: '); 'repeat )input; )response(40, 22); )if er := 0;  end;  procedure unit;   begin " "clear; "gotoxy(10,20); "write('Do you want your unit choices'); " "repeatnote'); $writeln(' `I` to Identify drawn notes.'); $repeat &input; &if (answer <> 'P') and (answer <> 'I') thenot (answer in intset) then bell; 'until answer in intset; ' 'case answer of ) )'T', 'N', 'M', 'P' : 7begin n bell $until (answer = 'P') or (answer = 'I'); $ $if answer='P' then place &else idnote; & "end;   procedure unit; for9resp :=resp + 1; 9com := answer; 9if com = 'T' then ;answer := ' ' 9else ;begin =repeat ?input; ?response(41,22); ?ifward;  procedure interval;   var  com : char; % %deco1, %deco2, %tempy : integer; %  procedure intplay; not (answer in intvset) then bell; =until answer in intvset; ;end; 9 9intv2 := intnumber(com,answer); 9 9if intv1 = intv2   begin # #if updown then %begin 'convert(deco2); 'play; 'if not harmon then noop; 'convert(deco1); 'play; 'noop % then ;begin 9if counter = 8 then ;begin =drawstaff; =counter := 0; ;end; =correct := correct + 1; =gotoxy(43, 22); =wrend #else %begin 'convert(deco1); 'play; 'if not harmon then noop; 'convert(deco2); 'play; 'noop; %end; !end; ! !begite('that''s correct'); =calcplace(name,accident,octive); =counter := counter + 1; =calcplace(name2,accid2,octive2); =countein #if unitset = [] then unit; #justlooking := false; #clear; #drawstaff; #reset(infile,'musdata.text'); r := counter + 1; =next := true; ;end 9else ;begin =gotoxy(43, 22); =if intv1 > intv2 then ?write('>') =else ?write('<'#readln(infile); #counter := 0; #repeat %next := false; %repeat 'read(infile,name); ' 'case name of ' *'A', 'B', 'C', ); ;end; ;looper 7end; 7 /'Q' : next := true; / /'S' : 7begin 9gotoxy(40, 22); 9write(name, accident, octive,'D', 'E', 'F', 'G' : 2begin 4read(infile,accident,octive,name2,accid2,octive2, :int1,int2); 4intv1 := intnumber(int1,int2); ' ',name2, accid2, 9octive2, ' ', int1,int2); 9next := true; 9looper 7end; 7 /'A' : intplay; / /'I' : 7b 2end; ' *' ' : intv1 := -1; * *'*' : .begin 0reset(infile); 0readln(infile); 0intv1 := -1; .end; + 'end; ' %untiegin 9updown := not updown; 9intplay; 7end; 7 /'C' : 7begin 9if harmon then ;melodic 9else ;harmonic; 7end; ; l intv1 in unitset; % %deco1 := uncode(name, accident, octive); %deco2 := uncode(name2, accid2, octive2); % %if deco1 < dec/'L' : 5 begin 9clear; 9length; 9clear 7end; 7 /'U' : 7begin 9close(infile); 9unit; 9reset(infile,'musdata.o2 then 'begin )tempy := deco1; )deco1 := deco2; )deco2 := tempy 'end; % #intplay; # #while not next do % %begin 'gotext'); 9readln(infile); 9clear; 9drawstaff; 9counter := 0; 9next := true 7end / ,end (end $until answer = 'Q'; $clostoxy(1,0); 'write(data); 'gotoxy(1,23); 'write('comands: S(how), A(gain), I(nvert), C(hange), L(ength), U(nit), Q(uit)'); 'e(infile)  end;  procedure unitchoice;   begin "erase(drawscr); "gotoxy(1,8); "writeinfo('unitchoice.text',20); "count%  $'8' : (begin *data := '8 Min3, Trit, Per5, Min6, Maj6, Min7'; *unitset := [3, 6, 7, 8, 9, 10]; (end; ( $'9' : go.'); $end;   procedure recordclear;  $begin &clear; &gotoxy(18,8); &write('Clear old student file.'); &gotoxy(18,(begin *data := '9 Min2, Maj2, min3, Maj3, Per4, Trit, Per5, Min6, Maj6, Min7, Maj7, Per8'; *unitset := [1..12]; (end; 10); &write('Create new student file.'); &gotoxy(18,15); &write('Enter password(you have only one shot)....'); &gotoxy(1,1);( $end;  end; $ procedure info;   begin "gotoxy(1,2); "writeinfo('music.info.text',21)  end;   procedure command;  &for i := 1 to 4 do (begin *input; *passin[i] := answer; (end; &if passin = password then (begin *clear; *gotoxy(15,10"begin "{shows the command list and waits for the appropriate command} $erase (drawscr); $clear; $gotoxy(20,6); $writeln('); *write('Enter number of students.... then press `RETURN`'); *i := 1; *students := 0; *repeat {this repeat returns an inte $input; $if (answer <> 'Y') and (answer <> 'N') then bell; "until (answer = 'Y') or (answer = 'N'); " "if answer = 'Y' theThese are commands which you may enter now:'); $writeln; $writeln(' B(ye) to stop the program.'); $writeln(' D(rill)n unitchoice; " "gotoxy (10,20); "write ('Which unit do you want? '); " "repeat $input; $if not (answer in lenset) to practice reading notes.'); $writeln(' M(usic) to practice melodic & harmonic intervals'); $writeln(' U(nit)  or (answer = '0') then bell; "until (answer in lenset) and (answer <> '0'); " "gotoxy (0,0); "unitset := []; " "case answto change units.'); $writeln(' I(nfo) to list information.'); $gotoxy(1,20); $write('Command. '); $repeat &input; $er of " $'1' : (begin *data := '1 Maj2, Per4, Maj7, Per8'; *unitset := [2, 5, 11, 12]; (end; ( $'2' :  if not (answer in comset) then bell; $until answer in comset; $ $ (case answer of * *'D' : drill; * *'M' : intervals;(begin *data := '2 Min2, Maj3, Trit, Maj6'; *unitset := [1, 4, 6, 9]; (end; ( $'3' : (begin *data := '3 Min * *'U' : unit; * *'I' : info; * *'B' : bye := true; * (end; "end; procedure records; " "var &students, +sub, 're3, Per5, Min6, Min7'; *unitset := [3, 7, 8, 10]; (end; ( $'4' : (begin *data := '4 Min2, Maj2, Maj3, Per4, Maj7, Peports : integer; ' 'instset : set of 'A'..'Z'; % $instructor : boolean; $ &password : array[1..4] of char; & 'passinr8'; *unitset := [1, 2, 4, 5, 11, 12]; (end; ( $'5' : (begin *data := '5 Min3, Trit, Per5, Min6, Maj6, Min7'; *uni : array[1..4] of char; " ( "procedure explain; $begin &gotoxy(13, 7); tset := [3, 6, 7, 8, 9, 10]; (end; ( $'6' : (begin *data := '6 Min6, Maj6, Min7, Maj7'; *unitset := [8, 9, 10, 11];&writeln('This report requires the Terak to be connected to the'); &gotoxy(11, 8); &writeln('GE TermiNet. Ask one of the Com (end; $ $'7' : (begin *data := '7 Per8, Per4, Maj7, Maj2, Min2, Maj3'; *unitset := [12, 5, 11, 2, 1, 4]; (end; (puter Center staff to assist.'); &gotoxy(11,10); &writeln('When ready to list....'); &gotoxy(11,12); &writeln('press `G` to &  students do {rewrites the actual musrec} ,writeln(infile, i : 2, data); (close(infile, lock); (clear; (gotoxy(38,20); (wri= chr(83); $while instructor do &begin (clear; (gotoxy(10,6); (write('What is your desire'); (gotoxy(10,8); (write('Presste('DONE'); (looper; (end &else (begin *clear; *gotoxy(30, 10); *write('Improper user access! Stop! Abort! Reset!!');  `C` to clear student records'); (gotoxy(10,10); (write(' `R` to list a student progress report'); (gotoxy(10,12); (wri*looper; *instructor := false; (end; $end; $ "procedure recordout; $ $begin &clear; &gotoxy(28, 5); &write('Student pte(' `H` to list a hand-out that can be copied'); (gotoxy(10,13); (write(' and passed out to the class'); (gotorogress report'); &explain; &repeat (input; &until answer = 'G'; &reset(infile, 'musrec.text'); xy(10,15); (write(' `Q` to quit this part of the program and'); (gotoxy(10,16); (write(' go to the command list&readln(infile, students); &for i := 1 to students + 6 do (begin *readln(infile,data); *writeln(printer,data); (end; $cle.'); ( (repeat *input; *if not (answer in instset) then bell; (until answer in instset; ( (case answer of ( *'C' : recar; $gotoxy(11,12); $close(infile); $write('Done'); $looper; $end; $ "procedure handoutsheet; " $begin &clear; &gotoordclear; 2  'R' : recordout; 0 *'H' : handoutsheet; 0 *'Q' : instructor := false; * (end; &end;  end; " xy(36, 5); &writeln('Handout'); &explain; &repeat (input; &until answer = 'G'; &i := 1; &reports := 0; &gotoxy(10,15);  procedure startplot;   begin "wherex := 0; "wherey := 0; "pen := white; "xlwindow := 1; "ylwindow := 1; ger number} ,input; ,if answer in ['0'..'9'] then .begin 0sub := ord(answer) - ord('0'); 0response(63 + i, 10); 0students &write('Enter number of handouts.... then press `RETURN`'); &repeat (input; (if (answer in lenset) or (answer = chr (32)) the:= students * 10 + sub; 0i := i + 1; .end ,else .if answer <> chr(13) then bell; n *begin ,if answer in lenset then .begin 0sub := ord(answer) - ord('0'); 0response(66 + i, 12); 0reports := reports * 10 *until (answer = chr(13)) or (students > 10); *rewrite(infile, 'musrec.text'); *data := ' '; *writeln(infile, stud+ sub; 0i := i + 1; .end *end (else *bell; &until (answer = chr(32)) or (reports > 10); &reset(infile, 'handout.text'); ents); *writeln(infile,' Student Progress Report'); *writeln(infile); *writeln(infile,'ID# Name La&for i := 1 to reports do (begin *reset(infile); *repeat ,readln(infile,data); ,writeln(printer,data); *until eof(infile);st run # runs # right Total exercises Mean %'); *writeln(infile,'  (end; $clear; $close(infile); $gotoxy(38, 10); $write('Done'); $looper; $end;  $  begin "instructor := true;  Replies/Ans'); *writeln(infile,'--- ---- -------- ------ ------- --------------- -----------'); *for i := 1 to"instset := ['C', 'R', 'H', 'Q']; "password[1] := chr(67); "password[2] := chr(65); "password[3] := chr(84); "password[4] :' 200; "vol1 := 6; "vol2 := 6; "vol3 := 6; "vol4 := 6; "quiet; "melodic; "for i := 65 to 71 do $noter [i - 64] := chr(i); 25 Student Progress Report ID# Name Last run # runs # right Total exercises Mean % "placeset := [upp, down, 'Q', 'P']; "idset := ['A'..'G', 'Q']; "intset := ['N', 'M', 'T', 'P', 'Q', 'S', 'A', 'L', 'C', 'I',  Replies/Ans --- ---- -------- ------ ------- --------------- -----'U']; "intvset := ['2'..'8']; "comset := ['B', 'D', 'M', 'U', 'I']; "lenset := ['0'..'9']; "unitset := []; $ "{Remove erro------ 1 2 3 4 5 0LEONARD W 06-01-88 1 26 38.10 6 7 r checking and see if the file Musdata.Text is on the disk} " "{$e-}  8 9 10 11 12 13 14 15 FISCHER G. 05-21-80 2 87 28.57 16 17 18 19 20 21 22 23  24 DIL-DO 50-45-01 1 5 50.00 25 "xhwindow := 320; "yhwindow := 240; "newplace := true; "new(disscr); "drawscr := disscr; "erase(drawscr); "display(drawscr,[]);  end;  procedure initialize;   begin "startplot; "upp := chr (26); "down := chr (12); "dc1 := chr (17); "dc3 := chr (19); "bye := false; "next := false; "justlooking := true; "exercounter := 0; "resp := 0; "correct := 0; "time := 1( 3DN3M3G?3BN3M6 A?3C?2M6CN3A'3M3EN3D?3N2BN3A?3N2B'3G'2M3 CN4G'3T BN2A?2N2B'3G'2M3GN3B'3M6CN4E'3M6 FN4CN5P5BN4DN4N3GN4FN5N7EN4CN5N6AN4FN4N6 FN4CN5P5BN4DN4N3AN4CN4N3EN4DN5N7BN4GN4N6 CN3A'4N6F?3AN4N3B'2FN2P5E'3D'4N7FN2A'3N3 D?3A?4P5CN4E'4N3F?2EN3N7B'2G'2N6E'2B'3P5 AN4FN4N6G'4F'5N7CN4E'4N3BN3F?3P5G?4BN5N3 C?5AN6N6D'4C'5N7F?4AN5N3D?5F?5N3F?4EN5N7 CN4FN3P5GN3BN3N6DN4BN4N3DN3EN2N7AN3BN2N7 CN3AN3N3CN4EN3N6FN2DN2N3FN3AN3N6GN3CN3P5 E'5CN5N3FN5B'5P5C?5D?4N7B'4GN3N3F?4BN4P5 GN5AN5N7D?5G?4P5AN4F?3N3FX5B?5P5D'5E'4N7 G?3E?3N3B?3DX2N6CN4EN3N6C?3D?2N7B'4E'3P5 D?3B?3N3G'3A'3N7D'3G'2P5F'2D'2N3A'3B'2N7 GN4CN5P4FN4AN5M3BN4BN5P8EN4FN4N2CN4BN5M7 AN4BN4M2FN4EN5M7DN5GN5P4G 6.86140E-1 CN4CN5P8FN4EN5M7GN4AN5M2DN5EN5M2GN4CN5P4 EN4EN5P8GN4CN5P4CN4BN5M7DN4GN4P4AN4BN4M2 E'4DN5M7B'4E'4P4D'4D'5P8E'4FN4M2G'N4AN5M2BN4CN4N2 B'2AN3M7FN2G'2N2A?2BN2N2C?3D?3M2F?3BN4P4 G'2FN3M7D'3FN3M3G?2G?3P8A?3D?3P4C?3B?4M7 FX4G?4N2B'4CN4M2D'4G'4P4C'4B'54FN5M7 F?4BN5P4B'4CN4M2D'4CN5M7B'4CN4M2F?4F?5P8 EN4AN5P4F?4G?4M2G?4C?5P4DN4C?5M7AN4AN5P8 A'4B'4M2BN4A?5M7CN5BN6M7D'5F'5N3A?4D?4PM7E?5F?5N2 A'4A'5P8F'4BD5P4A?4GX4M7DN4F?4M3F?5BN6P4 AN3EN2P4FN3EN3N2DN3CN3M2FN3FN2P8CN4GN3P4 BN3CN2M7EN3FN2M7GN3FN3M2CN3BN3N2BN34 CN5GN4P4BN5CN4M7GN4DN4P4BN4AN4M2AN4GN3M2 EN5DN5M2CN5GN4P4EN5EN4P8EN5FN4M7CN5CN4P8 CN5B'5M2BN4F?3P4EN5FN4M7GN5GN4P8E'5B'5P4 F?5CN2M7 GN4M7C?5BN5M2A'5B'5M2F?4C?4P4D?5D?4P8 FN5B'6P4D?5C?5M2EX5EX4P8DN5E'4M7A'4B'4M2 GN5A'5M7D?5A?5P4C'5BD5M2GX5GX4P8E?4A?5P4 EN3FN3N2E'5F'4M7D'3CN4M7E'4C'4M3F?5DN5M3EN5D?5N2 FN4B'5P4AN4GN3M2D'5ED4M7A'4A'3P8C'5DD4M7 A'3E'2P4F?3DN3M3G?3F?3M2BN2A?2N2CN4BN4N2 G?3ANCN3EN3M3FN2DN3M6FN3BN3T CN3AN4M6 BN2CN2N2GN3BN4M3FN2BN2T DN3BN4M6FN3AN4M3 CN3F?3T EN3G?3M3AN2D?2T EN3C?4M6GN3A'4N2 BN2G?2M6DN3F?3M7D?3BN3M3G'3D'3P4D'4ED3M7CN4CN3P8 AN4CN4N3GN4EN5M6DN4BN5M6FN4CN5P5AN4FN4N6 EN4DN5N7EN5GN5N3FN4BN4T CN4AN5M6BN4GN4N6 B'2A'3N7E'3M3FN2G'2N2CN3D'3N2EN3A?3T E'3CN4M6B'2GN2M6G'3B'4M3A?2BN2N2G'2CN3T C?3A?4M6A'2CN2M3D?3EN3N2A?3BN3N2G'3B'4M3 AN3FN2M3DN3F?3M3DN3F3G'3N3F?2C?3P5CN3F?3T D'3BD4N6 E?3B?4P5A'3G'3N7D?3B?4M6B'2G'2N6F?2AN3N3 CN5E'5N3A'4DN4T G'4E'5M6F?4DN5N6C?5G?5P5 FX4DX5M6DN5B'6NN2M6BN3FN3T CN3BN3N2 AN3CN2M6BN3GN2M3BN3DN2M6FN3EN3N2BN4GN3M3 A'3GN2N2C?4EN3M6D?3AN3T G?3EN3M3F?3CN3T A?3EN3T D'3CN3N2G'3FN3N2F?6B'4EN4T BN4DN4N3D?4F?4N3 DN3EN2N7AN4CN4N3BN2FN2T AN3CN2M6GN3BN3N6 CN3AN3N3EN4GN3M6BN3DN2M6CN3FN2P5FN3AN3N6 F?5AN5M6D?5G?4P5EN4C) 8EN4DN5N7 FN3AN4M3DN4GN4P4FN4BN4T GN3AN4M2BN4GN4N6 AN2G?2M7BN2F?2P5C?3E?3M3G'3C'4P4E'2DN3M7 B'2A'3N7D?3EN3N2F?3D?4M6B'3EN3T A'2C?3G?3P5B'2G'2N6E'3D'4N7 FN4E'5N7GN4CN5P4DN4F?4M3EN5FN5N2B'3GN3M6 AN4AN5P8EN4GN4N3CN5DN5M2FN4EN5M7DN4B'5N6 AN2EN2P5GN3B'4N3B'2EN2'2N3 T GN2E'3N6BN2F?2P5 G?3DN4T EN2DN3N7G?3B?4M3AN2F?2M6DN3AN4P5 G?4C?5P4C?4E?4M3EN5F?5M2C?4AN5N6AN4B'4N2 F?4E?5M7EN4EN5P8A?4BN4N2E'5CN5A'6N6BX4FX4T G'4A'5M2C?4BN5N7E'4E'5P8 F?4C?5P5A?4F?4N6G?5A?6M2D'4FN4M3G'4FN5M7 BN3FN3T CN3AN3N3DN4CN4M2FN3GN2N7BN3CN2M7 FN3ENG'5N3F?4C?5P5 B'3DN2N6GN3AN3N7DN3CN3M2AN3AN2P8BN3GN2M3 GN3B'3M6FN2EN2N2F?3DN3M3CN4GN3P4E'3FN2N7 B'4GN3N3EN5AN5P5E'5GN4N6B'4EN4T ?4N3E'6GN5N6G?4DN4T A'5B'4N7G'4A'4N7D?5F?4M6A?4FX3N3FN5DN5N3 G'3C'3P5CN4FN3P5A?3B?2N7GN4EN5M6A'3FN2N3 AN3F?2N3F?3AN3M6C?4F?3P5AN3N2DN3FN2M6CN4CN3P8GN3DN3P4CN3EN2N6 G?5EN5M3A?4D?3P5E'4FN3N7C?5GN4T G'5FN5N2 G'4F'4M2D?5G?4P5A?4BN3M7E'5B'5P4A'4FN3N3 BN3GN2M3GN2E'2T G?3E?3N3 GN4EN5M6AN4GN4N7EN4CN5N6FN4EN5M7CN5AN6M6 DN4CN5N7BN4GN4N6FN4DN5M6BN3AN4N7CN5BN6M7 CN3A'4N6FN2E'3N7C?3A?4M6EN3C?4M3B'3M6D'3G'2P5F?3A?3N6A'3B'2N7 EN3D?3N2A'3FN2N3G'3B'3N6CN4B'4M2F'3C'3P4 GN4AN5M2FN4EN5M7GN4BN5M3AN4AN5P8EN5FN5N2 DN4GN4P4CN4BN5M6B'2G'2N6 F?2DN3N6AN2FN2N6EN3D?4M7A?2GX2M7C'3AD4N6 C?5AN6N6BN3A?4M7A'4FN4M6F?4DN5N6G?4FX5M7 D'4B'5M6EN5DN6N7BN4GN4N6G'4E'5M6E'4D7DN5EN5M2EN4FN4N2BN4EN4P4 AN2DN2P4EN3G?3M3B'2B'3P8F?3GN3N2C?3B?4M7 A'2CN2M3D'3G'3P4G?2AN3N2D?3D?4P8E'2GN2M3 D'5E'5M2A?4GX4M7D?5EN5M7 N5N2B'3E'3P4C'5F'5P4 G'4B'5M3EN4D?5M7C?4C?5P8FN4G'4N2EN5F?5M2 BN3CN2M7EN3DN3M2FN3EN3N2GN3DN3P4AN3GN2M2 EN3FN2M7BN3GN2M3CN3CN2P8FCN4EN3N6GN3AN3N7AN5CN4M6DN3FN2M6BN3CN2M7 FN3GN2N7EN3FN2M7DN4FN3M6CN3EN2N6GN3BN3N6 F?5GN4M7D?5F?4M6AN4B'3M7E'5G'4M6BN4DN3M6 C?5D?N3EN3N2EN3FN2M7 AN5EN4P4G?5EN5M3B'4B'3P8EN5D?5N2G?5AN5M7 GN4E'4M3G'5D'5P4A?4G?3M2E'4E'5P8C?5AN5M3 F?3EN3M2A'4GN3N2C?4C?3P8D?3EN24N7FN4AN4N6E'5GN4N6A'5BD4M7AX4CX3M6 BN3C?2N7AN3C?2N6DN4E'3M7D?3EN2M7B'3C'2M7 E'4G'3M6D'3ED2M7G?3BN3M6AN3C?2N6G?3A?3N7 AN4EN4P5FNM7B'3G'2M3 F'3C'3P4E'3B'3P4EN3D?3N2GX3A?3M7E'3D'3M2 GN4DN5P5EN5GN5N3DN4CN5N7BN4GN4N6FN4BN4T AN4FN4N6GN4EN5M6AN4CN4N3EN4DN5N7EN5B4BN4T CN4EN4M3DN5FN5N3DN4CN5N7 EN5FN5N2BN3GN3N6AN4BN4M2BN3GN3N6FN4EN5M7 A'2A'3P8C?3G?3P5E'2DN3M7B'2D'2N3G?2A?3M2 D'3B'4M6A?2D?2PN6P5 4E'3D'4N7G'3C'4P4F?2GN2N2 D?4B?5M6FN5AN6M3G'4FN5M7C?4C?5P8A'4FN4M6 F?4AN5N3E'5C'6N6B?4FX4P5E'4A'5P4C?4BN5N7 FN3EN3N2CN3EN2N6GN3EFN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6 E'3D'4N7AX2EX2P5G?3BN4N3GN2B'3N3D'3GN3T A'4E'4P5FN4DN5M6C?5BN6N7E'4C'5N6FN4A'5N3 D?4C?5N3N3BN3GN2M3EN3FN2M7 AN3DN2P5BN3BN2P8GN3FN3M2CN3GN2P4DN4EN3N7 G?5BN5M6FN4D'4M3D'5B'5N3F?5GN4M7D'5A'5P4 B'4AN4N2D?5FX4N6AN5AN4P8CN7BN4GN4N6F?4D?5M6B'4EN4T FN4E'5N7 EN3BN4P5EN2DN3N7AN3CN3N3GN2EN3M6AN2FN2N6 FN3BN3T BN4GN3M3DN3CN4N7GN4DN5P5AN2FN2N6 D?4C?5N7FN4?5GN4T C?4BN4M2 G?3BN3M6G'2E'2N3BN2FN2T A?3B?2N7A?2EN2T G?3C?3P5B'3DN2N6D'4G'3P5E'3F'2M7CN4CN3P8 EN5GN5N3FN4DN5M6BN4CN4N2BN3BN4PA'5N3E'4C'5N6C?5BN6N7FN4DN5M6 A'4E'4P5A'3G'3N7B'4EN4T F?4D?5M6BN4GN4N6 DD3BD4M6G?3BN4N3GN3B'4N3D'3GN3T FN2BN2T A'2FN2M6F?2D?3M6C* @K.KK L<,Iٕؕˡ ߊFɡɄɄ&-ۂ ٹA&%ۂ &'ۂ &#ۂ &(ۂ x&%ۂ k'Xd9 ˡ٧FۧF#Ešˡ٧EۧEˡHDɡˡاDڧD#CšˡاC "$&(*,.0v468:f>@BDFHJLNRTVXZ\^`bv_pCAAڧCHGHGHG٧F٧EȄاDĄاCȄ٧HاGˍ8IܧHˍۧGˍHGȡH@@'Lȡ@@@H@@KHG٧HاGJ ޫHݫG  ? (?(0?08?8@?@`?`h?hp?pH@@Y hȡ9. F?x?xǀ?ǀ ǀ: :ǀ> >ǀ? ?ǀ :95 4 3 11138=?A?@@?@##ȡC?#<á9#:9#?#@##KA@;9/.,+ $ #  EFG H H G Fggiiedca aBA?@BTlK@ܹ#4/*%  KAG+(%"BN5E?5T E'5GN4N6G?5E?5N3FN4B'4P5F?5AN5M6CN5CN4P8 C?3F?2P5G'3E'3N3E?3D?3M2AN3AN2P8E?3F?2M7 B'3AN3N2F?3A?3N6D?3C?3M2G?3E?3N3C?4G?3bginoǀceecckmmkkP4*   $6 MUSIC D >  newdata.text٦ musdata.text+PB   Ljȡ ڹ#4/٥+   BYou may now take the disk out of the drive and back to the office.*% AG+(%") ɡáP&ōÍǀ ǀƁƂƄ' '`  |@V HHVvx$(""&~&&&'<('^(,)X)).*N*h**F+8,~,- ǀ ǀ ǀ P    u i ]'V?٫LL(ǀ% ٫HثGI٧F٧EȄاDĄاCȄWJEK#%35CESU "$&(*x.02468:<>@B# #ȡ&-ۂާ# ## + PNázNákfa\Ná MNá  > 9 824  "${n##'š##7áUTHAT'S CORRECT! aYVI<ȡ&,Enter a number from 0 to 9 (default is `3`)&&MINCORRECT  Try again. BPW BvBvBF,[XTDŽMǰF?841` *nj #Ǹ 09NID?:50+&!짅BQáJ4xc"<eN% K .A note will be drawn on the staff, and you areu )IAA)J -to respond with the letter of that note. If 5correct, a new note will be drawn. Type `Q` to QUIT. ٪P"á #,#,ȡ9 &+P+##&When DONE reading paragraph, press `D`BDˡBDá B"&&ɧBQ˄ " when done reading this press `D`BDˡBDá3 is not on this disk.#Name of note. BpBpBQˡBá^ is correct?C[T!K"31ؕګ 1ؕN,.###ȡ@;# &&SB is wrong  try again.7#3;###HV$  K4To place a given note, adjust the note on the screen BBQá@ 8^|'  Note Reading Drill.#Respond type: `P` to Positi5using the UP/DOWN keys on the keyboard until the note+is placed on the staff at the proper pon note+ `I` to Identify drawn notes.BP˧BI˄BPçBIÍBPá%'۹!zsl:'Xd  "$&(*,.0T468:P>@BDFHJLNwRTlace.)Then press the `P` key to PLACE the note.To QUIT the drill, type `Q`.VXZ\^`bqނ  (##ȡ?#&When DONE reading paragraph, press `D`BDˡBDá && $"J%Please pla<á#:##@####ȡ####z (ce the following notes: 7 7 7(BOBBǀaħzȄ B6ڹ 7&BQ˧&Ʉ'# B듡BTBTBáWBBáVBBɡ,  l    !t!n!X G Per5, Min6, Maj6, Min7, Maj7, Per8P~19IuS)music.info.text!r"P$ 2 "$&(*,.02468:<>@B!~ɡ +-K +These are commands which you may enter now:" B(ye) to stop the program.듡+Gcomands: S(how), A(gain), I(nvert), C(hange), L(ength), U(nit), Q(uit)8 Enter an ( D(rill) to practice reading notes.6 M(usic) to practice melodic & harmonic intervalsinterval name or a comand: (BjBjBBTá B)Bz U(nit) to change units." I(nfo) to list information. ComBzاB ! áN&á"&''+that's correct&&&&"+! š >mand. BdBdB(A*=)9-50 BU( ! / "$&;g. <(     5This report requires the Terak to be connected to the =GE TermiNet. Ask one of the Computer Cen+퓫+|q  i) musdata.text "&2NAU*^V ter staff to assist. When ready to list.... press `G` to go.j]$g짅BQá襄N*Kunitchoice.text!&*, 0 Clear old student file. Create new student file.*Enter password(you have only one Do you want your unit choicesBY˧BN˄BYçBNÍBYá, Which unit do you want? Bshot)....##ȡ#B##   0Enter number of students.... then press `RETURNvB0ÍBvB0˄~B+1 Maj2, Per4, Maj7, Per8P$~+2 Min2, Maj3, Trit, Maj`#B #B0?#  ## B ˡB ö ō musrec.text+ 6PR~+3 Min3, Per5, Min6, Min7PLj~+*4 Min2, Maj2, Maj3, Per4, Maj7, Per8P6~+*5  P , Student Progress ReportCID# Name Last run #  Min3, Trit, Per5, Min6, Maj6, Min7P~+6 Min6, Maj6, Min7, Maj7P~+*7 Per8, Per4, Maj7, Maj2,runs # right Total exercises Mean %H Replies/An-(e:+~) " musdata.text& Min2, Maj3P6~+*8 Min3, Trit, Per5, Min6, Maj6, Min7P~w+N9 Min2, Maj2, min3, Maj3, Per4, Trit,- D@ECILLKKKH44 %'ǰA#G#ȡ3  n  Enter your name. ////////// ȡB* #@###Tpj ; rz d` " ' ॄ#"#ȡ##+P++P SP #ɡsH--- ---- -------- ------ ------- --------------- -----------##ȡ&#vo~ musdata.text"ˡE-Musdata is not on this disk, get another one.) +## &DONEE  -Improper user access! Stop! Abort! Reset!!!d5 newrec.text٦ musrec.text+P G~1 Student progress report0BGá musrec.text #٥+ T7  0, her#ȡ,+P+## Done V 2 $Handoute is a summery of how you are doing on this program to date.0BGá# 0Enter number of handouts.... then press `RETURN`BvB Í.Bv!B0BYou have run the program   times.You have answered   correctly: #  ##B ö ō handout.text##ȡ>+P+ total@The average percentage of incorrect answers you have entered is  ## & Doneg[-X3  C A T>goodbye for now, come back again sometime and have a nice day!8 !No student records file  S What is your desire "Press `C` to clear student records + `R` to liston disk!! Data cannot be saved!! r9C'   Enter today's a student progress report / `H` to list a hand-out that can be copied % and passed ou date. (MM-DD-YY)##ȡQ#ç#Í#-0BvBv#B#. ## musrt to the class . `Q` to quit this part of the program and ! go to the command list.ec.text"ˡ9ڥ٦ newrec.text  "ɧ"ōL Your student ID is not oBBB15213- ( CR  )3a$ */HGJFn file#"#ȡ.+P٥+##  . ٥+   BYou may now take the disk out of the drive and back to the office."INTVALUE"BELL (X !LENGTH (EXPO (BASE #EXPON #RANDOM (NUMBER #RANSWER #Z ƁƂƄ' '`  |@V HHVvx$(""&~&&&'<('^(,)X)).*N*h**F+8,~,- #CLEAR (WRITEINF (FILENAME&LINES !DRAWSTAF (DRAWNOTE (ONEPLACE!NAM "ACCID "OCT !b--".000 1d11F2~43>5555r9ń6 musdata.text٦ newdata.text٥)+PICKNOTE (PLACEINF(PLACE (OLD !NEW !INDEX !IDNOTE (DRILL (INTPLAY (INTERVAL(COM P٥+  newdata.text٦ musdata.text+P"DECO1 !DECO2 !TEMPY !UNITCHOI(UNIT (INFO (COMMAND (EXPLAIN (RECORDCL(RECORDOU(HAND٥+   BYou may now take the disk out of the drive and back to the office.OUTS(RECORDS (STUDENTS!REPORTS !INSTRUCT $SUB !STARTPLO(INITIALI(COPY (SHOW (ERROR1 !(+# á##+# ˡ +#0 ##+# á+# á##+# ˡ +#0 ##+# á+#ƁƂƄ' '`  |@V HHVvx$(""&~&&&'<('^(,)X)).*N*h**F+8,~,- á##+# ˥+#.˄r B+#0##+# áC ' NA DISPLAY (SCPTR 'ERASE (SC 'ATXY (X !Y !POINT (X !Y !WINDOW ٦ ٦  ٦  ٦ (WHEREX !WHEREY !SLOPE #DX !DY !LINE (X !Y !SX !JUNK !SY  (+P٥+787>4Hr,q3~%6ƁƁƂƂƄ !WX !WY !STAFF (NOTE (X !Y !SHARP (X !Y !DOUBLESH(Ƅƅ2 4Welcome to the harmonic intervals and drill program.Press the space bar to begiX !Y !FLAT (X !Y !LEDGER (X !Y !LOOPER (CALCPLAC(NOTELETTn.systerm:printer: 5 Enter your ID number. Then press the `Return` key."ACCIDENT"OCTIVE !LEDGERPO !DIRECTIO!NOTELEVE!POS !NUMBER !STAFFPLA!SPACE !QUIET (NOOP" "á/5쓡.ń6 musdata.text٦ newdata.text٥)+ (PLAY (CONVERT (X !FREQ (X #INTER #UNCODE (NOTELETT"ACCIDENT"OCTIVE !P٥+  newdata.text٦ musdata.text+PIVAL !JVAL !CHANGEMO(MELODIC (HARMONIC(RESPONSE(X !Y !INPUT (INTNUMBE(INTTYPE / OICE!VOL1 !VOL2 !VOL3 !VOL4 !UPP "FREQUENC$!DRAWSCR K'BYE $EXERCOUN%!------ 1 2 3 4 5 0LEONARD W 06-01-88 1 26 38.10 6 7  8 9 10 11 12 13 14 15 FISCHER G. 05-21-80 2 87 28.57 16 17 18 19 20 21 22 23  24 DIL-DO 50-45-01 1 5 50.00 25 UPDATE (NAME &IDNUM !RIGHT !MEAN #STUDENTS!BLANKCOU!RUNS !RUNMEAN #DUMMY "EXERCISE !MUSIC (I #!J !K !HARMON $DATA +&NEXT $ACCIDENT"ACCID2 "NAME "NAME2 "DC1 "DC3 "ID "!OCNOTE !OCTIVE !OCTIVE2 !NEWPLACEI$INT1 "CIS (!RESP !PEN J%SEED )#WHEREX H!WHEREY G!XHWINDOWE!YHWINDOWC!TIME !DISSCR L'ANSWER B"XLWINDOWF!YLWINDOW25 Student Progress Report ID# Name Last run # runs # right Total exercises Mean % D!INT2 "INTV1 !!INTV2 !DOWN "CORRECT '!COUNTER &!JUSTLOOK$UPDOWN $UP $NOTENAME "TOPV Replies/Ans --- ---- -------- ------ ------- --------------- -----0 5P5BN4DN4N3AN4CN4N3EN4DN5N7BN4GN4N6 CN3A'4N6F?3AN4N3B'2FN2P5E'3D'4N7FN2A'3N3 D?3A?4P5CN4E'4N3F?2EN3N7B'2G'2N6E'2B'3P5 AN4FN4N6G'4F'5N7CN4E'4N3BN3F?3P5G?4BN5N3 C?5AN6N6D'4C'5N7F?4AN5N3D?5F?5N3F?4EN5N7 CN4FN3P5GN3BN3N6DN4BN4N3DN3EN2N7AN3BN2N7 CN3AN3N3CN4EN3N6FN2DN2N3FN3AN3N6GN3CN3P5 E'5CN5N3FN5B'5P5C?5D?4N7B'4GN3N3F?4BN4P5 GN5AN5N7D?5G?4P5AN4F?3N3FX5B?5P5D'5E'4N7 G?3E?3N3B?3DX2N6CN4EN3N6C?3D?2N7B'4E'3P5 D?3B?3N3G'3A'3N7D'3G'2P5F'2D'2N3A'3B'2N7 GN4CN5P4FN4AN5M3BN4BN5P8EN4FN4N2CN4BN5M7 AN4BN4M2FN4EN5M7DN5GN5P4G 6.86140E-1 CN4CN5P8FN4EN5M7GN4AN5M2DN5EN5M2GN4CN5P4 EN4EN5P8GN4CN5P4CN4BN5M7DN4GN4P4AN4BN4M2 E'4DN5M7B'4E'4P4D'4D'5P8E'4FN4M2G'N4AN5M2BN4CN4N2 B'2AN3M7FN2G'2N2A?2BN2N2C?3D?3M2F?3BN4P4 G'2FN3M7D'3FN3M3G?2G?3P8A?3D?3P4C?3B?4M7 FX4G?4N2B'4CN4M2D'4G'4P4C'4B'54FN5M7 F?4BN5P4B'4CN4M2D'4CN5M7B'4CN4M2F?4F?5P8 EN4AN5P4F?4G?4M2G?4C?5P4DN4C?5M7AN4AN5P8 A'4B'4M2BN4A?5M7CN5BN6M7D'5F'5N3A?4D?4PM7E?5F?5N2 A'4A'5P8F'4BD5P4A?4GX4M7DN4F?4M3F?5BN6P4 AN3EN2P4FN3EN3N2DN3CN3M2FN3FN2P8CN4GN3P4 BN3CN2M7EN3FN2M7GN3FN3M2CN3BN3N2BN34 CN5GN4P4BN5CN4M7GN4DN4P4BN4AN4M2AN4GN3M2 EN5DN5M2CN5GN4P4EN5EN4P8EN5FN4M7CN5CN4P8 CN5B'5M2BN4F?3P4EN5FN4M7GN5GN4P8E'5B'5P4 F?5CN2M7 GN4M7C?5BN5M2A'5B'5M2F?4C?4P4D?5D?4P8 FN5B'6P4D?5C?5M2EX5EX4P8DN5E'4M7A'4B'4M2 GN5A'5M7D?5A?5P4C'5BD5M2GX5GX4P8E?4A?5P4 EN3FN3N2E'5F'4M7D'3CN4M7E'4C'4M3F?5DN5M3EN5D?5N2 FN4B'5P4AN4GN3M2D'5ED4M7A'4A'3P8C'5DD4M7 A'3E'2P4F?3DN3M3G?3F?3M2BN2A?2N2CN4BN4N2 G?3ANCN3EN3M3FN2DN3M6FN3BN3T CN3AN4M6 BN2CN2N2GN3BN4M3FN2BN2T DN3BN4M6FN3AN4M3 CN3F?3T EN3G?3M3AN2D?2T EN3C?4M6GN3A'4N2 BN2G?2M6DN3F?3M7D?3BN3M3G'3D'3P4D'4ED3M7CN4CN3P8 AN4CN4N3GN4EN5M6DN4BN5M6FN4CN5P5AN4FN4N6 EN4DN5N7EN5GN5N3FN4BN4T CN4AN5M6BN4GN4N6 B'2A'3N7E'3M3FN2G'2N2CN3D'3N2EN3A?3T E'3CN4M6B'2GN2M6G'3B'4M3A?2BN2N2G'2CN3T C?3A?4M6A'2CN2M3D?3EN3N2A?3BN3N2G'3B'4M3 AN3FN2M3DN3F?3M3DN3F3G'3N3F?2C?3P5CN3F?3T D'3BD4N6 E?3B?4P5A'3G'3N7D?3B?4M6B'2G'2N6F?2AN3N3 CN5E'5N3A'4DN4T G'4E'5M6F?4DN5N6C?5G?5P5 FX4DX5M6DN5B'6NN2M6BN3FN3T CN3BN3N2 AN3CN2M6BN3GN2M3BN3DN2M6FN3EN3N2BN4GN3M3 A'3GN2N2C?4EN3M6D?3AN3T G?3EN3M3F?3CN3T A?3EN3T D'3CN3N2G'3FN3N2F?6B'4EN4T BN4DN4N3D?4F?4N3 DN3EN2N7AN4CN4N3BN2FN2T AN3CN2M6GN3BN3N6 CN3AN3N3EN4GN3M6BN3DN2M6CN3FN2P5FN3AN3N6 F?5AN5M6D?5G?4P5EN4C3DN3M3G?3BN3M6 A?3C?2M6CN3A'3M3EN3D?3N2BN3A?3N2B'3G'2M3 CN4G'3T BN2A?2N2B'3G'2M3GN3B'3M6CN4E'3M6 FN4CN5P5BN4DN4N3GN4FN5N7EN4CN5N6AN4FN4N6 FN4CN1 CN5A'6N6BX4FX4T G'4A'5M2C?4BN5N7E'4E'5P8 F?4C?5P5A?4F?4N6G?5A?6M2D'4FN4M3G'4FN5M7 BN3FN3T CN3AN3N3DN4CN4M2FN3GN2N7BN3CN2M7 FN3ENG'5N3F?4C?5P5 B'3DN2N6GN3AN3N7DN3CN3M2AN3AN2P8BN3GN2M3 GN3B'3M6FN2EN2N2F?3DN3M3CN4GN3P4E'3FN2N7 B'4GN3N3EN5AN5P5E'5GN4N6B'4EN4T ?4N3E'6GN5N6G?4DN4T A'5B'4N7G'4A'4N7D?5F?4M6A?4FX3N3FN5DN5N3 G'3C'3P5CN4FN3P5A?3B?2N7GN4EN5M6A'3FN2N3 AN3F?2N3F?3AN3M6C?4F?3P5AN3N2DN3FN2M6CN4CN3P8GN3DN3P4CN3EN2N6 G?5EN5M3A?4D?3P5E'4FN3N7C?5GN4T G'5FN5N2 G'4F'4M2D?5G?4P5A?4BN3M7E'5B'5P4A'4FN3N3 BN3GN2M3GN2E'2T G?3E?3N3 GN4EN5M6AN4GN4N7EN4CN5N6FN4EN5M7CN5AN6M6 DN4CN5N7BN4GN4N6FN4DN5M6BN3AN4N7CN5BN6M7 CN3A'4N6FN2E'3N7C?3A?4M6EN3C?4M3B'3M6D'3G'2P5F?3A?3N6A'3B'2N7 EN3D?3N2A'3FN2N3G'3B'3N6CN4B'4M2F'3C'3P4 GN4AN5M2FN4EN5M7GN4BN5M3AN4AN5P8EN5FN5N2 DN4GN4P4CN4BN5M6B'2G'2N6 F?2DN3N6AN2FN2N6EN3D?4M7A?2GX2M7C'3AD4N6 C?5AN6N6BN3A?4M7A'4FN4M6F?4DN5N6G?4FX5M7 D'4B'5M6EN5DN6N7BN4GN4N6G'4E'5M6E'4D7DN5EN5M2EN4FN4N2BN4EN4P4 AN2DN2P4EN3G?3M3B'2B'3P8F?3GN3N2C?3B?4M7 A'2CN2M3D'3G'3P4G?2AN3N2D?3D?4P8E'2GN2M3 D'5E'5M2A?4GX4M7D?5EN5M7 N5N2B'3E'3P4C'5F'5P4 G'4B'5M3EN4D?5M7C?4C?5P8FN4G'4N2EN5F?5M2 BN3CN2M7EN3DN3M2FN3EN3N2GN3DN3P4AN3GN2M2 EN3FN2M7BN3GN2M3CN3CN2P8FCN4EN3N6GN3AN3N7AN5CN4M6DN3FN2M6BN3CN2M7 FN3GN2N7EN3FN2M7DN4FN3M6CN3EN2N6GN3BN3N6 F?5GN4M7D?5F?4M6AN4B'3M7E'5G'4M6BN4DN3M6 C?5D?N3EN3N2EN3FN2M7 AN5EN4P4G?5EN5M3B'4B'3P8EN5D?5N2G?5AN5M7 GN4E'4M3G'5D'5P4A?4G?3M2E'4E'5P8C?5AN5M3 F?3EN3M2A'4GN3N2C?4C?3P8D?3EN24N7FN4AN4N6E'5GN4N6A'5BD4M7AX4CX3M6 BN3C?2N7AN3C?2N6DN4E'3M7D?3EN2M7B'3C'2M7 E'4G'3M6D'3ED2M7G?3BN3M6AN3C?2N6G?3A?3N7 AN4EN4P5FNM7B'3G'2M3 F'3C'3P4E'3B'3P4EN3D?3N2GX3A?3M7E'3D'3M2 GN4DN5P5EN5GN5N3DN4CN5N7BN4GN4N6FN4BN4T AN4FN4N6GN4EN5M6AN4CN4N3EN4DN5N7EN5B4BN4T CN4EN4M3DN5FN5N3DN4CN5N7 EN5FN5N2BN3GN3N6AN4BN4M2BN3GN3N6FN4EN5M7 A'2A'3P8C?3G?3P5E'2DN3M7B'2D'2N3G?2A?3M2 D'3B'4M6A?2D?2PN6P5 4E'3D'4N7G'3C'4P4F?2GN2N2 D?4B?5M6FN5AN6M3G'4FN5M7C?4C?5P8A'4FN4M6 F?4AN5N3E'5C'6N6B?4FX4P5E'4A'5P4C?4BN5N7 FN3EN3N2CN3EN2N6GN3EFN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6 E'3D'4N7AX2EX2P5G?3BN4N3GN2B'3N3D'3GN3T A'4E'4P5FN4DN5M6C?5BN6N7E'4C'5N6FN4A'5N3 D?4C?5N3N3BN3GN2M3EN3FN2M7 AN3DN2P5BN3BN2P8GN3FN3M2CN3GN2P4DN4EN3N7 G?5BN5M6FN4D'4M3D'5B'5N3F?5GN4M7D'5A'5P4 B'4AN4N2D?5FX4N6AN5AN4P8CN7BN4GN4N6F?4D?5M6B'4EN4T FN4E'5N7 EN3BN4P5EN2DN3N7AN3CN3N3GN2EN3M6AN2FN2N6 FN3BN3T BN4GN3M3DN3CN4N7GN4DN5P5AN2FN2N6 D?4C?5N7FN4?5GN4T C?4BN4M2 G?3BN3M6G'2E'2N3BN2FN2T A?3B?2N7A?2EN2T G?3C?3P5B'3DN2N6D'4G'3P5E'3F'2M7CN4CN3P8 EN5GN5N3FN4DN5M6BN4CN4N2BN3BN4PA'5N3E'4C'5N6C?5BN6N7FN4DN5M6 A'4E'4P5A'3G'3N7B'4EN4T F?4D?5M6BN4GN4N6 DD3BD4M6G?3BN4N3GN3B'4N3D'3GN3T FN2BN2T A'2FN2M6F?2D?3M6C8EN4DN5N7 FN3AN4M3DN4GN4P4FN4BN4T GN3AN4M2BN4GN4N6 AN2G?2M7BN2F?2P5C?3E?3M3G'3C'4P4E'2DN3M7 B'2A'3N7D?3EN3N2F?3D?4M6B'3EN3T A'2C?3G?3P5B'2G'2N6E'3D'4N7 FN4E'5N7GN4CN5P4DN4F?4M3EN5FN5N2B'3GN3M6 AN4AN5P8EN4GN4N3CN5DN5M2FN4EN5M7DN4B'5N6 AN2EN2P5GN3B'4N3B'2EN2'2N3 T GN2E'3N6BN2F?2P5 G?3DN4T EN2DN3N7G?3B?4M3AN2F?2M6DN3AN4P5 G?4C?5P4C?4E?4M3EN5F?5M2C?4AN5N6AN4B'4N2 F?4E?5M7EN4EN5P8A?4BN4N2E'52 N3N6C?3D?2N7B'4E'3P5 D?3B?3N3G'3A'3N7D'3G'2P5F'2D'2N3A'3B'2N7 GN4CN5P4FN4AN5M3BN4BN5P8EN4FN4N2CN4BN5M7 AN4BN4M2FN4EN5M7DN5GN5P4G 6.86140E-1 CN4CN5P8FN4EN5M7GN4AN5M2DN5EN5M2GN4CN5P4 EN4EN5P8GN4CN5P4CN4BN5M7DN4GN4P4AN4BN4M2 E'4DN5M7B'4E'4P4D'4D'5P8E'4FN4M2G'N4AN5M2BN4CN4N2 B'2AN3M7FN2G'2N2A?2BN2N2C?3D?3M2F?3BN4P4 G'2FN3M7D'3FN3M3G?2G?3P8A?3D?3P4C?3B?4M7 FX4G?4N2B'4CN4M2D'4G'4P4C'4B'54FN5M7 F?4BN5P4B'4CN4M2D'4CN5M7B'4CN4M2F?4F?5P8 EN4AN5P4F?4G?4M2G?4C?5P4DN4C?5M7AN4AN5P8 A'4B'4M2BN4A?5M7CN5BN6M7D'5F'5N3A?4D?4PM7E?5F?5N2 A'4A'5P8F'4BD5P4A?4GX4M7DN4F?4M3F?5BN6P4 AN3EN2P4FN3EN3N2DN3CN3M2FN3FN2P8CN4GN3P4 BN3CN2M7EN3FN2M7GN3FN3M2CN3BN3N2BN34 CN5GN4P4BN5CN4M7GN4DN4P4BN4AN4M2AN4GN3M2 EN5DN5M2CN5GN4P4EN5EN4P8EN5FN4M7CN5CN4P8 CN5B'5M2BN4F?3P4EN5FN4M7GN5GN4P8E'5B'5P4 F?5CN2M7 BN5E?5T E'5GN4N6G?5E?5N3FN4B'4P5F?5AN5M6CN5CN4P8 C?3F?2P5G'3E'3N3E?3D?3M2AN3AN2P8E?3F?2M7 B'3AN3N2F?3A?3N6D?3C?3M2G?3E?3N3C?4G?3GN4M7C?5BN5M2A'5B'5M2F?4C?4P4D?5D?4P8 FN5B'6P4D?5C?5M2EX5EX4P8DN5E'4M7A'4B'4M2 GN5A'5M7D?5A?5P4C'5BD5M2GX5GX4P8E?4A?5P4 EN3FN3N2P4* CN3EN3M3FN2DN3M6FN3BN3T CN3AN4M6 BN2CN2N2GN3BN4M3FN2BN2T DN3BN4M6FN3AN4M3 CN3F?3T EN3G?3M3AN2D?2T EN3C?4M6GN3A'4N2 BN2G?2M6DN3F?3M3FN2G'2N2CN3D'3N2EN3A?3T E'3CN4M6B'2GN2M6G'3B'4M3A?2BN2N2G'2CN3T C?3A?4M6A'2CN2M3D?3EN3N2A?3BN3N2G'3B'4M3 AN3FN2M3DN3F?3M3DN3FN2M6BN3FN3T CN3BN3N2 AN3CN2M6BN3GN2M3BN3DN2M6FN3EN3N2BN4GN3M3 A'3GN2N2C?4EN3M6D?3AN3T G?3EN3M3F?3CN3T A?3EN3T D'3CN3N2G'3FN3N2F?3DN3M3G?3BN3M6 A?3C?2M6CN3A'3M3EN3D?3N2BN3A?3N2B'3G'2M3 CN4G'3T BN2A?2N2B'3G'2M3GN3B'3M6CN4E'3M6 FN4CN5P5BN4DN4N3GN4FN5N7EN4CN5N6AN4FN4N6 FN4CN5P5BN4DN4N3AN4CN4N3EN4DN5N7BN4GN4N6 CN3A'4N6F?3AN4N3B'2FN2P5E'3D'4N7FN2A'3N3 D?3A?4P5CN4E'4N3F?2EN3N7B'2G'2N6E'2B'3P5 AN4FN4N6G'4F'5N7CN4E'4N3BN3F?3P5G?4BN5N3 C?5AN6N6D'4C'5N7F?4AN5N3D?5F?5N3F?4EN5N7 CN4FN3P5GN3BN3N6DN4BN4N3DN3EN2N7AN3BN2N7 CN3AN3N3CN4EN3N6FN2DN2N3FN3AN3N6GN3CN3P5 E'5CN5N3FN5B'5P5C?5D?4N7B'4GN3N3F?4BN4P5 GN5AN5N7D?5G?4P5AN4F?3N3FX5B?5P5D'5E'4N7 G?3E?3N3B?3DX2N6CN4E3 6B'2G'2N6 F?2DN3N6AN2FN2N6EN3D?4M7A?2GX2M7C'3AD4N6 C?5AN6N6BN3A?4M7A'4FN4M6F?4DN5N6G?4FX5M7 D'4B'5M6EN5DN6N7BN4GN4N6G'4E'5M6E'4D7DN5EN5M2EN4FN4N2BN4EN4P4 AN2DN2P4EN3G?3M3B'2B'3P8F?3GN3N2C?3B?4M7 A'2CN2M3D'3G'3P4G?2AN3N2D?3D?4P8E'2GN2M3 D'5E'5M2A?4GX4M7D?5EN5M7 N5N2B'3E'3P4C'5F'5P4 G'4B'5M3EN4D?5M7C?4C?5P8FN4G'4N2EN5F?5M2 BN3CN2M7EN3DN3M2FN3EN3N2GN3DN3P4AN3GN2M2 EN3FN2M7BN3GN2M3CN3CN2P8FCN4EN3N6GN3AN3N7AN5CN4M6DN3FN2M6BN3CN2M7 FN3GN2N7EN3FN2M7DN4FN3M6CN3EN2N6GN3BN3N6 F?5GN4M7D?5F?4M6AN4B'3M7E'5G'4M6BN4DN3M6 C?5D?N3EN3N2EN3FN2M7 AN5EN4P4G?5EN5M3B'4B'3P8EN5D?5N2G?5AN5M7 GN4E'4M3G'5D'5P4A?4G?3M2E'4E'5P8C?5AN5M3 F?3EN3M2A'4GN3N2C?4C?3P8D?3EN24N7FN4AN4N6E'5GN4N6A'5BD4M7AX4CX3M6 BN3C?2N7AN3C?2N6DN4E'3M7D?3EN2M7B'3C'2M7 E'4G'3M6D'3ED2M7G?3BN3M6AN3C?2N6G?3A?3N7 AN4EN4P5FNM7B'3G'2M3 F'3C'3P4E'3B'3P4EN3D?3N2GX3A?3M7E'3D'3M2 GN4DN5P5EN5GN5N3DN4CN5N7BN4GN4N6FN4BN4T AN4FN4N6GN4EN5M6AN4CN4N3EN4DN5N7EN5B4BN4T CN4EN4M3DN5FN5N3DN4CN5N7 EN5FN5N2BN3GN3N6AN4BN4M2BN3GN3N6FN4EN5M7 A'2A'3P8C?3G?3P5E'2DN3M7B'2D'2N3G?2A?3M2 D'3B'4M6A?2D?2PN6P5 4E'3D'4N7G'3C'4P4F?2GN2N2 D?4B?5M6FN5AN6M3G'4FN5M7C?4C?5P8A'4FN4M6 F?4AN5N3E'5C'6N6B?4FX4P5E'4A'5P4C?4BN5N7 FN3EN3N2CN3EN2N6GN3EFN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6 E'3D'4N7AX2EX2P5G?3BN4N3GN2B'3N3D'3GN3T A'4E'4P5FN4DN5M6C?5BN6N7E'4C'5N6FN4A'5N3 D?4C?5N3N3BN3GN2M3EN3FN2M7 AN3DN2P5BN3BN2P8GN3FN3M2CN3GN2P4DN4EN3N7 G?5BN5M6FN4D'4M3D'5B'5N3F?5GN4M7D'5A'5P4 B'4AN4N2D?5FX4N6AN5AN4P8CN7BN4GN4N6F?4D?5M6B'4EN4T FN4E'5N7 EN3BN4P5EN2DN3N7AN3CN3N3GN2EN3M6AN2FN2N6 FN3BN3T BN4GN3M3DN3CN4N7GN4DN5P5AN2FN2N6 D?4C?5N7FN4E'5F'4M7D'3CN4M7E'4C'4M3F?5DN5M3EN5D?5N2 FN4B'5P4AN4GN3M2D'5ED4M7A'4A'3P8C'5DD4M7 A'3E'2P4F?3DN3M3G?3F?3M2BN2A?2N2CN4BN4N2 G?3AN?5GN4T C?4BN4M2 G?3BN3M6G'2E'2N3BN2FN2T A?3B?2N7A?2EN2T G?3C?3P5B'3DN2N6D'4G'3P5E'3F'2M7CN4CN3P8 EN5GN5N3FN4DN5M6BN4CN4N2BN3BN4P3M7D?3BN3M3G'3D'3P4D'4ED3M7CN4CN3P8 AN4CN4N3GN4EN5M6DN4BN5M6FN4CN5P5AN4FN4N6 EN4DN5N7EN5GN5N3FN4BN4T CN4AN5M6BN4GN4N6 B'2A'3N7E'8EN4DN5N7 FN3AN4M3DN4GN4P4FN4BN4T GN3AN4M2BN4GN4N6 AN2G?2M7BN2F?2P5C?3E?3M3G'3C'4P4E'2DN3M7 B'2A'3N7D?3EN3N2F?3D?4M6B'3EN3T A'2C3G'3N3F?2C?3P5CN3F?3T D'3BD4N6 E?3B?4P5A'3G'3N7D?3B?4M6B'2G'2N6F?2AN3N3 CN5E'5N3A'4DN4T G'4E'5M6F?4DN5N6C?5G?5P5 FX4DX5M6DN5B'6N'2N3 6B'4EN4T BN4DN4N3D?4F?4N3 DN3EN2N7AN4CN4N3BN2FN2T AN3CN2M6GN3BN3N6 CN3AN3N3EN4GN3M6BN3DN2M6CN3FN2P5FN3AN3N6 F?5AN5M6D?5G?4P5EN4CCN5A'6N6BX4FX4T G'4A'5M2C?4BN5N7E'4E'5P8 F?4C?5P5A?4F?4N6G?5A?6M2D'4FN4M3G'4FN5M7 BN3FN3T CN3AN3N3DN4CN4M2FN3GN2N7BN3CN2M7 FN3EN?4N3E'6GN5N6G?4DN4T A'5B'4N7G'4A'4N7D?5F?4M6A?4FX3N3FN5DN5N3 G'3C'3P5CN4FN3P5A?3B?2N7GN4EN5M6A'3FN2N3 AN3F?2N3F?3AN3M6C?4F?3P5AN3N2DN3FN2M6CN4CN3P8GN3DN3P4CN3EN2N6 G?5EN5M3A?4D?3P5E'4FN3N7C?5GN4T G'5FN5N2 G'4F'4M2D?5G?4P5A?4BN3M7E'5B'5P4A'4FN3N3 BN3GN2M3GN2E'2T G?3E?3N3 GN4EN5M6AN4GN4N7EN4CN5N6FN4EN5M7CN5AN6M6 DN4CN5N7BN4GN4N6FN4DN5M6BN3AN4N7CN5BN6M7 CN3A'4N6FN2E'3N7C?3A?4M6EN3C?4M3B'3M6D'3G'2P5F?3A?3N6A'3B'2N7 EN3D?3N2A'3FN2N3G'3B'3N6CN4B'4M2F'3C'3P4 GN4AN5M2FN4EN5M7GN4BN5M3AN4AN5P8EN5FN5N2 DN4GN4P4CN4BN5M4 G'5N3F?4C?5P5 B'3DN2N6GN3AN3N7DN3CN3M2AN3AN2P8BN3GN2M3 GN3B'3M6FN2EN2N2F?3DN3M3CN4GN3P4E'3FN2N7 B'4GN3N3EN5AN5P5E'5GN4N6B'4EN4T 4 CN5GN4P4BN5CN4M7GN4DN4P4BN4AN4M2AN4GN3M2 EN5DN5M2CN5GN4P4EN5EN4P8EN5FN4M7CN5CN4P8 CN5B'5M2BN4F?3P4EN5FN4M7GN5GN4P8E'5B'5P4 F?5BN5E?5T E'5GN4N6G?5E?5N3FN4B'4P5F?5AN5M6CN5CN4P8 C?3F?2P5G'3E'3N3E?3D?3M2AN3AN2P8E?3F?2M7 B'3AN3N2F?3A?3N6D?3C?3M2G?3E?3N3C?4G?3GN4M7C?5BN5M2A'5B'5M2F?4C?4P4D?5D?4P8 FN5B'6P4D?5C?5M2EX5EX4P8DN5E'4M7A'4B'4M2 GN5A'5M7D?5A?5P4C'5BD5M2GX5GX4P8E?4A?5P4 EN3FN3N2P4* CN3EN3M3FN2DN3M6FN3BN3T CN3AN4M6 BN2CN2N2GN3BN4M3FN2BN2T DN3BN4M6FN3AN4M3 CN3F?3T EN3G?3M3AN2D?2T EN3C?4M6GN3A'4N2 BN2G?2M6DN3F?3M3FN2G'2N2CN3D'3N2EN3A?3T E'3CN4M6B'2GN2M6G'3B'4M3A?2BN2N2G'2CN3T C?3A?4M6A'2CN2M3D?3EN3N2A?3BN3N2G'3B'4M3 AN3FN2M3DN3F?3M3DN3FN2M6BN3FN3T CN3BN3N2 AN3CN2M6BN3GN2M3BN3DN2M6FN3EN3N2BN4GN3M3 A'3GN2N2C?4EN3M6D?3AN3T G?3EN3M3F?3CN3T A?3EN3T D'3CN3N2G'3FN3N2F?3DN3M3G?3BN3M6 A?3C?2M6CN3A'3M3EN3D?3N2BN3A?3N2B'3G'2M3 CN4G'3T BN2A?2N2B'3G'2M3GN3B'3M6CN4E'3M6 FN4CN5P5BN4DN4N3GN4FN5N7EN4CN5N6AN4FN4N6 FN4CN5P5BN4DN4N3AN4CN4N3EN4DN5N7BN4GN4N6 CN3A'4N6F?3AN4N3B'2FN2P5E'3D'4N7FN2A'3N3 D?3A?4P5CN4E'4N3F?2EN3N7B'2G'2N6E'2B'3P5 AN4FN4N6G'4F'5N7CN4E'4N3BN3F?3P5G?4BN5N3 C?5AN6N6D'4C'5N7F?4AN5N3D?5F?5N3F?4EN5N7 CN4FN3P5GN3BN3N6DN4BN4N3DN3EN2N7AN3BN2N7 CN3AN3N3CN4EN3N6FN2DN2N3FN3AN3N6GN3CN3P5 E'5CN5N3FN5B'5P5C?5D?4N7B'4GN3N3F?4BN4P5 GN5AN5N7D?5G?4P5AN4F?3N3FX5B?5P5D'5E'4N7 G?3E?3N3B?3DX2N6CN4EA'5N3E'4C'5N6C?5BN6N7FN4DN5M6 A'4E'4P5A'3G'3N7B'4EN4T F?4D?5M6BN4GN4N6 DD3BD4M6G?3BN4N3GN3B'4N3D'3GN3T FN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6E'3D'4N7 FN4E'5N7GN4CN5P4DN4F?4M3EN5FN5N2B'3GN3M6 AN4AN5P8EN4GN4N3CN5DN5M2FN4EN5M7DN4B'5N6 AN2EN2P5GN3B'4N3B'2EN2 9.43746E-1 CN4CN5P8FN4EN5M7GN4AN5M2DN5EN5M2GN4CN5P4 EN4EN5P8GN4CN5P4CN4BN5M7DN4GN4P4AN4BN4M2 E'4DN5M7B'4E'4P4D'4D'5P8E'4FN4M2G'T GN2E'3N6BN2F?2P5 G?3DN4T EN2DN3N7G?3B?4M3AN2F?2M6DN3AN4P5 G?4C?5P4C?4E?4M3EN5F?5M2C?4AN5N6AN4B'4N2 F?4E?5M7EN4EN5P8A?4BN4N2E'54FN5M7 F?4BN5P4B'4CN4M2D'4CN5M7B'4CN4M2F?4F?5P8 EN4AN5P4F?4G?4M2G?4C?5P4DN4C?5M7AN4AN5P8 A'4B'4M2BN4A?5M7CN5BN6M7D'5F'5N3A?4D?4P5 N3N6C?3D?2N7B'4E'3P5 D?3B?3N3G'3A'3N7D'3G'2P5F'2D'2N3A'3B'2N7 GN4CN5P4FN4AN5M3BN4BN5P8EN4FN4N2CN4BN5M7 AN4BN4M2FN4EN5M7DN5GN5P4G4N7FN4AN4N6E'5GN4N6A'5BD4M7AX4CX3M6 BN3C?2N7AN3C?2N6DN4E'3M7D?3EN2M7B'3C'2M7 E'4G'3M6D'3ED2M7G?3BN3M6AN3C?2N6G?3A?3N7 AN4EN4P5FNN4AN5M2BN4CN4N2 B'2AN3M7FN2G'2N2A?2BN2N2C?3D?3M2F?3BN4P4 G'2FN3M7D'3FN3M3G?2G?3P8A?3D?3P4C?3B?4M7 FX4G?4N2B'4CN4M2D'4G'4P4C'4B'54BN4T CN4EN4M3DN5FN5N3DN4CN5N7 EN5FN5N2BN3GN3N6AN4BN4M2BN3GN3N6FN4EN5M7 A'2A'3P8C?3G?3P5E'2DN3M7B'2D'2N3G?2A?3M2 D'3B'4M6A?2D?2PM7E?5F?5N2 A'4A'5P8F'4BD5P4A?4GX4M7DN4F?4M3F?5BN6P4 AN3EN2P4FN3EN3N2DN3CN3M2FN3FN2P8CN4GN3P4 BN3CN2M7EN3FN2M7GN3FN3M2CN3BN3N2BN34E'3D'4N7G'3C'4P4F?2GN2N2 D?4B?5M6FN5AN6M3G'4FN5M7C?4C?5P8A'4FN4M6 F?4AN5N3E'5C'6N6B?4FX4P5E'4A'5P4C?4BN5N7 FN3EN3N2CN3EN2N6GN3ECN2M7 N3N3BN3GN2M3EN3FN2M7 AN3DN2P5BN3BN2P8GN3FN3M2CN3GN2P4DN4EN3N7 G?5BN5M6FN4D'4M3D'5B'5N3F?5GN4M7D'5A'5P4 B'4AN4N2D?5FX4N6AN5AN4P8CE'5F'4M7D'3CN4M7E'4C'4M3F?5DN5M3EN5D?5N2 FN4B'5P4AN4GN3M2D'5ED4M7A'4A'3P8C'5DD4M7 A'3E'2P4F?3DN3M3G?3F?3M2BN2A?2N2CN4BN4N2 G?3AN?5GN4T C?4BN4M2 G?3BN3M6G'2E'2N3BN2FN2T A?3B?2N7A?2EN2T G?3C?3P5B'3DN2N6D'4G'3P5E'3F'2M7CN4CN3P8 EN5GN5N3FN4DN5M6BN4CN4N2BN3BN4P3M7D?3BN3M3G'3D'3P4D'4ED3M7CN4CN3P8 AN4CN4N3GN4EN5M6DN4BN5M6FN4CN5P5AN4FN4N6 EN4DN5N7EN5GN5N3FN4BN4T CN4AN5M6BN4GN4N6 B'2A'3N7E'8EN4DN5N7 FN3AN4M3DN4GN4P4FN4BN4T GN3AN4M2BN4GN4N6 AN2G?2M7BN2F?2P5C?3E?3M3G'3C'4P4E'2DN3M7 B'2A'3N7D?3EN3N2F?3D?4M6B'3EN3T A'2C3G'3N3F?2C?3P5CN3F?3T D'3BD4N6 E?3B?4P5A'3G'3N7D?3B?4M6B'2G'2N6F?2AN3N3 CN5E'5N3A'4DN4T G'4E'5M6F?4DN5N6C?5G?5P5 FX4DX5M6DN5B'6N'2N3 6B'4EN4T BN4DN4N3D?4F?4N3 DN3EN2N7AN4CN4N3BN2FN2T AN3CN2M6GN3BN3N6 CN3AN3N3EN4GN3M6BN3DN2M6CN3FN2P5FN3AN3N6 F?5AN5M6D?5G?4P5EN4CCN5A'6N6BX4FX4T G'4A'5M2C?4BN5N7E'4E'5P8 F?4C?5P5A?4F?4N6G?5A?6M2D'4FN4M3G'4FN5M7 BN3FN3T CN3AN3N3DN4CN4M2FN3GN2N7BN3CN2M7 FN3EN?4N3E'6GN5N6G?4DN4T A'5B'4N7G'4A'4N7D?5F?4M6A?4FX3N3FN5DN5N3 G'3C'3P5CN4FN3P5A?3B?2N7GN4EN5M6A'3FN2N3 AN3F?2N3F?3AN3M6C?4F?3P5AN3N2DN3FN2M6CN4CN3P8GN3DN3P4CN3EN2N6 G?5EN5M3A?4D?3P5E'4FN3N7C?5GN4T G'5FN5N2 G'4F'4M2D?5G?4P5A?4BN3M7E'5B'5P4A'4FN3N3 BN3GN2M3GN2E'2T G?3E?3N3 GN4EN5M6AN4GN4N7EN4CN5N6FN4EN5M7CN5AN6M6 DN4CN5N7BN4GN4N6FN4DN5M6BN3AN4N7CN5BN6M7 CN3A'4N6FN2E'3N7C?3A?4M6EN3C?4M3B'3M6D'3G'2P5F?3A?3N6A'3B'2N7 EN3D?3N2A'3FN2N3G'3B'3N6CN4B'4M2F'3C'3P4 GN4AN5M2FN4EN5M7GN4BN5M3AN4AN5P8EN5FN5N2 DN4GN4P4CN4BN5M6B'2G'2N6 F?2DN3N6AN2FN2N6EN3D?4M7A?2GX2M7C'3AD4N6 C?5AN6N6BN3A?4M7A'4FN4M6F?4DN5N6G?4FX5M7 D'4B'5M6EN5DN6N7BN4GN4N6G'4E'5M6E'4D7DN5EN5M2EN4FN4N2BN4EN4P4 AN2DN2P4EN3G?3M3B'2B'3P8F?3GN3N2C?3B?4M7 A'2CN2M3D'3G'3P4G?2AN3N2D?3D?4P8E'2GN2M3 D'5E'5M2A?4GX4M7D?5EN5M7 N5N2B'3E'3P4C'5F'5P4 G'4B'5M3EN4D?5M7C?4C?5P8FN4G'4N2EN5F?5M2 BN3CN2M7EN3DN3M2FN3EN3N2GN3DN3P4AN3GN2M2 EN3FN2M7BN3GN2M3CN3CN2P8FCN4EN3N6GN3AN3N7AN5CN4M6DN3FN2M6BN3CN2M7 FN3GN2N7EN3FN2M7DN4FN3M6CN3EN2N6GN3BN3N6 F?5GN4M7D?5F?4M6AN4B'3M7E'5G'4M6BN4DN3M6 C?5D?N3EN3N2EN3FN2M7 AN5EN4P4G?5EN5M3B'4B'3P8EN5D?5N2G?5AN5M7 GN4E'4M3G'5D'5P4A?4G?3M2E'4E'5P8C?5AN5M3 F?3EN3M2A'4GN3N2C?4C?3P8D?3EN26 3M3FN2G'2N2CN3D'3N2EN3A?3T E'3CN4M6B'2GN2M6G'3B'4M3A?2BN2N2G'2CN3T C?3A?4M6A'2CN2M3D?3EN3N2A?3BN3N2G'3B'4M3 AN3FN2M3DN3F?3M3DN3FN2M6BN3FN3T CN3BN3N2 AN3CN2M6BN3GN2M3BN3DN2M6FN3EN3N2BN4GN3M3 A'3GN2N2C?4EN3M6D?3AN3T G?3EN3M3F?3CN3T A?3EN3T D'3CN3N2G'3FN3N2F?3DN3M3G?3BN3M6 M7B'3G'2M3 F'3C'3P4E'3B'3P4EN3D?3N2GX3A?3M7E'3D'3M2 GN4DN5P5EN5GN5N3DN4CN5N7BN4GN4N6FN4BN4T AN4FN4N6GN4EN5M6AN4CN4N3EN4DN5N7EN5BN6P5 FN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6 E'3D'4N7AX2EX2P5G?3BN4N3GN2B'3N3D'3GN3T A'4E'4P5FN4DN5M6C?5BN6N7E'4C'5N6FN4A'5N3 D?4C?5N7BN4GN4N6F?4D?5M6B'4EN4T FN4E'5N7 EN3BN4P5EN2DN3N7AN3CN3N3GN2EN3M6AN2FN2N6 FN3BN3T BN4GN3M3DN3CN4N7GN4DN5P5AN2FN2N6 D?4C?5N7FN4A'5N3E'4C'5N6C?5BN6N7FN4DN5M6 A'4E'4P5A'3G'3N7B'4EN4T F?4D?5M6BN4GN4N6 DD3BD4M6G?3BN4N3GN3B'4N3D'3GN3T FN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6E'3D'4N7 FN4E'5N7GN4CN5P4DN4F?4M3EN5FN5N2B'3GN3M6 AN4AN5P8EN4GN4N3CN5DN5M2FN4EN5M7DN4B'5N6 AN2EN2P5GN3B'4N3B'2EN2 6.86140E-1 CN4CN5P8FN4EN5M7GN4AN5M2DN5EN5M2GN4CN5P4 EN4EN5P8GN4CN5P4CN4BN5M7DN4GN4P4AN4BN4M2 E'4DN5M7B'4E'4P4D'4D'5P8E'4FN4M2G'T GN2E'3N6BN2F?2P5 G?3DN4T EN2DN3N7G?3B?4M3AN2F?2M6DN3AN4P5 G?4C?5P4C?4E?4M3EN5F?5M2C?4AN5N6AN4B'4N2 F?4E?5M7EN4EN5P8A?4BN4N2E'54FN5M7 F?4BN5P4B'4CN4M2D'4CN5M7B'4CN4M2F?4F?5P8 EN4AN5P4F?4G?4M2G?4C?5P4DN4C?5M7AN4AN5P8 A'4B'4M2BN4A?5M7CN5BN6M7D'5F'5N3A?4D?4PG'5N3F?4C?5P5 B'3DN2N6GN3AN3N7DN3CN3M2AN3AN2P8BN3GN2M3 GN3B'3M6FN2EN2N2F?3DN3M3CN4GN3P4E'3FN2N7 B'4GN3N3EN5AN5P5E'5GN4N6B'4EN4T 4 CN5GN4P4BN5CN4M7GN4DN4P4BN4AN4M2AN4GN3M2 EN5DN5M2CN5GN4P4EN5EN4P8EN5FN4M7CN5CN4P8 CN5B'5M2BN4F?3P4EN5FN4M7GN5GN4P8E'5B'5P4 F?5BN5E?5T E'5GN4N6G?5E?5N3FN4B'4P5F?5AN5M6CN5CN4P8 C?3F?2P5G'3E'3N3E?3D?3M2AN3AN2P8E?3F?2M7 B'3AN3N2F?3A?3N6D?3C?3M2G?3E?3N3C?4G?3GN4M7C?5BN5M2A'5B'5M2F?4C?4P4D?5D?4P8 FN5B'6P4D?5C?5M2EX5EX4P8DN5E'4M7A'4B'4M2 GN5A'5M7D?5A?5P4C'5BD5M2GX5GX4P8E?4A?5P4 EN3FN3N2P4* CN3EN3M3FN2DN3M6FN3BN3T CN3AN4M6 BN2CN2N2GN3BN4M3FN2BN2T DN3BN4M6FN3AN4M3 CN3F?3T EN3G?3M3AN2D?2T EN3C?4M6GN3A'4N2 BN2G?2M6DN3F?7 CN2M7 N3N3BN3GN2M3EN3FN2M7 AN3DN2P5BN3BN2P8GN3FN3M2CN3GN2P4DN4EN3N7 G?5BN5M6FN4D'4M3D'5B'5N3F?5GN4M7D'5A'5P4 B'4AN4N2D?5FX4N6AN5AN4P8CE'5F'4M7D'3CN4M7E'4C'4M3F?5DN5M3EN5D?5N2 FN4B'5P4AN4GN3M2D'5ED4M7A'4A'3P8C'5DD4M7 A'3E'2P4F?3DN3M3G?3F?3M2BN2A?2N2CN4BN4N2 G?3AN?5GN4T C?4BN4M2 G?3BN3M6G'2E'2N3BN2FN2T A?3B?2N7A?2EN2T G?3C?3P5B'3DN2N6D'4G'3P5E'3F'2M7CN4CN3P8 EN5GN5N3FN4DN5M6BN4CN4N2BN3BN4P3M7D?3BN3M3G'3D'3P4D'4ED3M7CN4CN3P8 AN4CN4N3GN4EN5M6DN4BN5M6FN4CN5P5AN4FN4N6 EN4DN5N7EN5GN5N3FN4BN4T CN4AN5M6BN4GN4N6 B'2A'3N7E'8EN4DN5N7 FN3AN4M3DN4GN4P4FN4BN4T GN3AN4M2BN4GN4N6 AN2G?2M7BN2F?2P5C?3E?3M3G'3C'4P4E'2DN3M7 B'2A'3N7D?3EN3N2F?3D?4M6B'3EN3T A'2C3G'3N3F?2C?3P5CN3F?3T D'3BD4N6 E?3B?4P5A'3G'3N7D?3B?4M6B'2G'2N6F?2AN3N3 CN5E'5N3A'4DN4T G'4E'5M6F?4DN5N6C?5G?5P5 FX4DX5M6DN5B'6N'2N3 6B'4EN4T BN4DN4N3D?4F?4N3 DN3EN2N7AN4CN4N3BN2FN2T AN3CN2M6GN3BN3N6 CN3AN3N3EN4GN3M6BN3DN2M6CN3FN2P5FN3AN3N6 F?5AN5M6D?5G?4P5EN4CCN5A'6N6BX4FX4T G'4A'5M2C?4BN5N7E'4E'5P8 F?4C?5P5A?4F?4N6G?5A?6M2D'4FN4M3G'4FN5M7 BN3FN3T CN3AN3N3DN4CN4M2FN3GN2N7BN3CN2M7 FN3EN?4N3E'6GN5N6G?4DN4T A'5B'4N7G'4A'4N7D?5F?4M6A?4FX3N3FN5DN5N3 G'3C'3P5CN4FN3P5A?3B?2N7GN4EN5M6A'3FN2N3 AN3F?2N3F?3AN3M6C?4F?3P5AN3N2DN3FN2M6CN4CN3P8GN3DN3P4CN3EN2N6 G?5EN5M3A?4D?3P5E'4FN3N7C?5GN4T G'5FN5N2 G'4F'4M2D?5G?4P5A?4BN3M7E'5B'5P4A'4FN3N3 BN3GN2M3GNA?3C?2M6CN3A'3M3EN3D?3N2BN3A?3N2B'3G'2M3 CN4G'3T BN2A?2N2B'3G'2M3GN3B'3M6CN4E'3M6 FN4CN5P5BN4DN4N3GN4FN5N7EN4CN5N6AN4FN4N6 FN4CN2E'2T G?3E?3N3 GN4EN5M6AN4GN4N7EN4CN5N6FN4EN5M7CN5AN6M6 DN4CN5N7BN4GN4N6FN4DN5M6BN3AN4N7CN5BN6M7 CN3A'4N6FN2E'3N7C?3A?4M6EN3C?4M5P5BN4DN4N3AN4CN4N3EN4DN5N7BN4GN4N6 CN3A'4N6F?3AN4N3B'2FN2P5E'3D'4N7FN2A'3N3 D?3A?4P5CN4E'4N3F?2EN3N7B'2G'2N6E'2B'3P5 AN4FN4N6G'6B'2G'2N6 F?2DN3N6AN2FN2N6EN3D?4M7A?2GX2M7C'3AD4N6 C?5AN6N6BN3A?4M7A'4FN4M6F?4DN5N6G?4FX5M7 D'4B'5M6EN5DN6N7BN4GN4N6G'4E'5M6E'4D4F'5N7CN4E'4N3BN3F?3P5G?4BN5N3 C?5AN6N6D'4C'5N7F?4AN5N3D?5F?5N3F?4EN5N7 CN4FN3P5GN3BN3N6DN4BN4N3DN3EN2N7AN3BN2N7 CN3AN3N3CN4EN3NN5M7 6FN2DN2N3FN3AN3N6GN3CN3P5 E'5CN5N3FN5B'5P5C?5D?4N7B'4GN3N3F?4BN4P5 GN5AN5N7D?5G?4P5AN4F?3N3FX5B?5P5D'5E'4N7 G?3E?3N3B?3DX2N6CN4ECN4EN3N6GN3AN3N7AN5CN4M6DN3FN2M6BN3CN2M7 FN3GN2N7EN3FN2M7DN4FN3M6CN3EN2N6GN3BN3N6 F?5GN4M7D?5F?4M6AN4B'3M7E'5G'4M6BN4DN3M6 C?5D?N3N6C?3D?2N7B'4E'3P5 D?3B?3N3G'3A'3N7D'3G'2P5F'2D'2N3A'3B'2N7 GN4CN5P4FN4AN5M3BN4BN5P8EN4FN4N2CN4BN5M7 AN4BN4M2FN4EN5M7DN5GN5P4G4N7FN4AN4N6E'5GN4N6A'5BD4M7AX4CX3M6 BN3C?2N7AN3C?2N6DN4E'3M7D?3EN2M7B'3C'2M7 E'4G'3M6D'3ED2M7G?3BN3M6AN3C?2N6G?3A?3N7 AN4EN4P5FNN4AN5M2BN4CN4N2 B'2AN3M7FN2G'2N2A?2BN2N2C?3D?3M2F?3BN4P4 G'2FN3M7D'3FN3M3G?2G?3P8A?3D?3P4C?3B?4M7 FX4G?4N2B'4CN4M2D'4G'4P4C'4B'54BN4T CN4EN4M3DN5FN5N3DN4CN5N7 EN5FN5N2BN3GN3N6AN4BN4M2BN3GN3N6FN4EN5M7 A'2A'3P8C?3G?3P5E'2DN3M7B'2D'2N3G?2A?3M2 D'3B'4M6A?2D?2PM7E?5F?5N2 A'4A'5P8F'4BD5P4A?4GX4M7DN4F?4M3F?5BN6P4 AN3EN2P4FN3EN3N2DN3CN3M2FN3FN2P8CN4GN3P4 BN3CN2M7EN3FN2M7GN3FN3M2CN3BN3N2BN34E'3D'4N7G'3C'4P4F?2GN2N2 D?4B?5M6FN5AN6M3G'4FN5M7C?4C?5P8A'4FN4M6 F?4AN5N3E'5C'6N6B?4FX4P5E'4A'5P4C?4BN5N7 FN3EN3N2CN3EN2N6GN3E8 M7B'3G'2M3 F'3C'3P4E'3B'3P4EN3D?3N2GX3A?3M7E'3D'3M2 GN4DN5P5EN5GN5N3DN4CN5N7BN4GN4N6FN4BN4T AN4FN4N6GN4EN5M6AN4CN4N3EN4DN5N7EN5BN6P5 FN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6 E'3D'4N7AX2EX2P5G?3BN4N3GN2B'3N3D'3GN3T A'4E'4P5FN4DN5M6C?5BN6N7E'4C'5N6FN4A'5N3 D?4C?5N7BN4GN4N6F?4D?5M6B'4EN4T FN4E'5N7 EN3BN4P5EN2DN3N7AN3CN3N3GN2EN3M6AN2FN2N6 FN3BN3T BN4GN3M3DN3CN4N7GN4DN5P5AN2FN2N6 D?4C?5N7FN4A'5N3E'4C'5N6C?5BN6N7FN4DN5M6 A'4E'4P5A'3G'3N7B'4EN4T F?4D?5M6BN4GN4N6 DD3BD4M6G?3BN4N3GN3B'4N3D'3GN3T FN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6E'3D'4N7 FN4E'5N7GN4CN5P4DN4F?4M3EN5FN5N2B'3GN3M6 AN4AN5P8EN4GN4N3CN5DN5M2FN4EN5M7DN4B'5N6 AN2EN2P5GN3B'4N3B'2EN2 9.43746E-1 CN4CN5P8FN4EN5M7GN4AN5M2DN5EN5M2GN4CN5P4 EN4EN5P8GN4CN5P4CN4BN5M7DN4GN4P4AN4BN4M2 E'4DN5M7B'4E'4P4D'4D'5P8E'4FN4M2G'T GN2E'3N6BN2F?2P5 G?3DN4T EN2DN3N7G?3B?4M3AN2F?2M6DN3AN4P5 G?4C?5P4C?4E?4M3EN5F?5M2C?4AN5N6AN4B'4N2 F?4E?5M7EN4EN5P8A?4BN4N2E'54FN5M7 F?4BN5P4B'4CN4M2D'4CN5M7B'4CN4M2F?4F?5P8 EN4AN5P4F?4G?4M2G?4C?5P4DN4C?5M7AN4AN5P8 A'4B'4M2BN4A?5M7CN5BN6M7D'5F'5N3A?4D?4PG'5N3F?4C?5P5 B'3DN2N6GN3AN3N7DN3CN3M2AN3AN2P8BN3GN2M3 GN3B'3M6FN2EN2N2F?3DN3M3CN4GN3P4E'3FN2N7 B'4GN3N3EN5AN5P5E'5GN4N6B'4EN4T 4 CN5GN4P4BN5CN4M7GN4DN4P4BN4AN4M2AN4GN3M2 EN5DN5M2CN5GN4P4EN5EN4P8EN5FN4M7CN5CN4P8 CN5B'5M2BN4F?3P4EN5FN4M7GN5GN4P8E'5B'5P4 F?5BN5E?5T E'5GN4N6G?5E?5N3FN4B'4P5F?5AN5M6CN5CN4P8 C?3F?2P5G'3E'3N3E?3D?3M2AN3AN2P8E?3F?2M7 B'3AN3N2F?3A?3N6D?3C?3M2G?3E?3N3C?4G?3GN4M7C?5BN5M2A'5B'5M2F?4C?4P4D?5D?4P8 FN5B'6P4D?5C?5M2EX5EX4P8DN5E'4M7A'4B'4M2 GN5A'5M7D?5A?5P4C'5BD5M2GX5GX4P8E?4A?5P4 EN3FN3N23B'3M6D'3G'2P5F?3A?3N6A'3B'2N7 EN3D?3N2A'3FN2N3G'3B'3N6CN4B'4M2F'3C'3P4 GN4AN5M2FN4EN5M7GN4BN5M3AN4AN5P8EN5FN5N2 DN4GN4P4CN4BN5MP4* 7DN5EN5M2EN4FN4N2BN4EN4P4 AN2DN2P4EN3G?3M3B'2B'3P8F?3GN3N2C?3B?4M7 A'2CN2M3D'3G'3P4G?2AN3N2D?3D?4P8E'2GN2M3 D'5E'5M2A?4GX4M7D?5EN5N2B'3E'3P4C'5F'5P4 G'4B'5M3EN4D?5M7C?4C?5P8FN4G'4N2EN5F?5M2 BN3CN2M7EN3DN3M2FN3EN3N2GN3DN3P4AN3GN2M2 EN3FN2M7BN3GN2M3CN3CN2P8FN3EN3N2EN3FN2M7 AN5EN4P4G?5EN5M3B'4B'3P8EN5D?5N2G?5AN5M7 GN4E'4M3G'5D'5P4A?4G?3M2E'4E'5P8C?5AN5M3 F?3EN3M2A'4GN3N2C?4C?3P8D?3EN29 3M3FN2G'2N2CN3D'3N2EN3A?3T E'3CN4M6B'2GN2M6G'3B'4M3A?2BN2N2G'2CN3T C?3A?4M6A'2CN2M3D?3EN3N2A?3BN3N2G'3B'4M3 AN3FN2M3DN3F?3M3DN3F3G'3N3F?2C?3P5CN3F?3T D'3BD4N6 E?3B?4P5A'3G'3N7D?3B?4M6B'2G'2N6F?2AN3N3 CN5E'5N3A'4DN4T G'4E'5M6F?4DN5N6C?5G?5P5 FX4DX5M6DN5B'6NN2M6BN3FN3T CN3BN3N2 AN3CN2M6BN3GN2M3BN3DN2M6FN3EN3N2BN4GN3M3 A'3GN2N2C?4EN3M6D?3AN3T G?3EN3M3F?3CN3T A?3EN3T D'3CN3N2G'3FN3N2F?6B'4EN4T BN4DN4N3D?4F?4N3 DN3EN2N7AN4CN4N3BN2FN2T AN3CN2M6GN3BN3N6 CN3AN3N3EN4GN3M6BN3DN2M6CN3FN2P5FN3AN3N6 F?5AN5M6D?5G?4P5EN4C3DN3M3G?3BN3M6 ?4N3E'6GN5N6G?4DN4T A'5B'4N7G'4A'4N7D?5F?4M6A?4FX3N3FN5DN5N3 G'3C'3P5CN4FN3P5A?3B?2N7GN4EN5M6A'3FN2N3 AN3F?2N3F?3AN3M6C?4F?3P5ANA?3C?2M6CN3A'3M3EN3D?3N2BN3A?3N2B'3G'2M3 CN4G'3T BN2A?2N2B'3G'2M3GN3B'3M6CN4E'3M6 FN4CN5P5BN4DN4N3GN4FN5N7EN4CN5N6AN4FN4N6 FN4CN2E'2T G?3E?3N3 GN4EN5M6AN4GN4N7EN4CN5N6FN4EN5M7CN5AN6M6 DN4CN5N7BN4GN4N6FN4DN5M6BN3AN4N7CN5BN6M7 CN3A'4N6FN2E'3N7C?3A?4M6EN3C?4M5P5BN4DN4N3AN4CN4N3EN4DN5N7BN4GN4N6 CN3A'4N6F?3AN4N3B'2FN2P5E'3D'4N7FN2A'3N3 D?3A?4P5CN4E'4N3F?2EN3N7B'2G'2N6E'2B'3P5 AN4FN4N6G'6B'2G'2N6 F?2DN3N6AN2FN2N6EN3D?4M7A?2GX2M7C'3AD4N6 C?5AN6N6BN3A?4M7A'4FN4M6F?4DN5N6G?4FX5M7 D'4B'5M6EN5DN6N7BN4GN4N6G'4E'5M6E'4D4F'5N7CN4E'4N3BN3F?3P5G?4BN5N3 C?5AN6N6D'4C'5N7F?4AN5N3D?5F?5N3F?4EN5N7 CN4FN3P5GN3BN3N6DN4BN4N3DN3EN2N7AN3BN2N7 CN3AN3N3CN4EN3NN5M7 6FN2DN2N3FN3AN3N6GN3CN3P5 E'5CN5N3FN5B'5P5C?5D?4N7B'4GN3N3F?4BN4P5 GN5AN5N7D?5G?4P5AN4F?3N3FX5B?5P5D'5E'4N7 G?3E?3N3B?3DX2N6CN4ECN4EN3N6GN3AN3N7AN5CN4M6DN3FN2M6BN3CN2M7 FN3GN2N7EN3FN2M7DN4FN3M6CN3EN2N6GN3BN3N6 F?5GN4M7D?5F?4M6AN4B'3M7E'5G'4M6BN4DN3M6 C?5D?N3N6C?3D?2N7B'4E'3P5 D?3B?3N3G'3A'3N7D'3G'2P5F'2D'2N3A'3B'2N7 GN4CN5P4FN4AN5M3BN4BN5P8EN4FN4N2CN4BN5M7 AN4BN4M2FN4EN5M7DN5GN5P4G4N7FN4AN4N6E'5GN4N6A'5BD4M7AX4CX3M6 BN3C?2N7AN3C?2N6DN4E'3M7D?3EN2M7B'3C'2M7 E'4G'3M6D'3ED2M7G?3BN3M6AN3C?2N6G?3A?3N7 AN4EN4P5FNN4AN5M2BN4CN4N2 B'2AN3M7FN2G'2N2A?2BN2N2C?3D?3M2F?3BN4P4 G'2FN3M7D'3FN3M3G?2G?3P8A?3D?3P4C?3B?4M7 FX4G?4N2B'4CN4M2D'4G'4P4C'4B'54BN4T CN4EN4M3DN5FN5N3DN4CN5N7 EN5FN5N2BN3GN3N6AN4BN4M2BN3GN3N6FN4EN5M7 A'2A'3P8C?3G?3P5E'2DN3M7B'2D'2N3G?2A?3M2 D'3B'4M6A?2D?2PM7E?5F?5N2 A'4A'5P8F'4BD5P4A?4GX4M7DN4F?4M3F?5BN6P4 AN3EN2P4FN3EN3N2DN3CN3M2FN3FN2P8CN4GN3P4 BN3CN2M7EN3FN2M7GN3FN3M2CN3BN3N2BN34E'3D'4N7G'3C'4P4F?2GN2N2 D?4B?5M6FN5AN6M3G'4FN5M7C?4C?5P8A'4FN4M6 F?4AN5N3E'5C'6N6B?4FX4P5E'4A'5P4C?4BN5N7 FN3EN3N2CN3EN2N6GN3ECN2M7 N3N3BN3GN2M3EN3FN2M7 AN3DN2P5BN3BN2P8GN3FN3M2CN3GN2P4DN4EN3N7 G?5BN5M6FN4D'4M3D'5B'5N3F?5GN4M7D'5A'5P4 B'4AN4N2D?5FX4N6AN5AN4P8CE'5F'4M7D'3CN4M7E'4C'4M3F?5DN5M3EN5D?5N2 FN4B'5P4AN4GN3M2D'5ED4M7A'4A'3P8C'5DD4M7 A'3E'2P4F?3DN3M3G?3F?3M2BN2A?2N2CN4BN4N2 G?3AN?5GN4T C?4BN4M2 G?3BN3M6G'2E'2N3BN2FN2T A?3B?2N7A?2EN2T G?3C?3P5B'3DN2N6D'4G'3P5E'3F'2M7CN4CN3P8 EN5GN5N3FN4DN5M6BN4CN4N2BN3BN4PCN3EN3M3FN2DN3M6FN3BN3T CN3AN4M6 BN2CN2N2GN3BN4M3FN2BN2T DN3BN4M6FN3AN4M3 CN3F?3T EN3G?3M3AN2D?2T EN3C?4M6GN3A'4N2 BN2G?2M6DN3F?3M7D?3BN3M3G'3D'3P4D'4ED3M7CN4CN3P8 AN4CN4N3GN4EN5M6DN4BN5M6FN4CN5P5AN4FN4N6 EN4DN5N7EN5GN5N3FN4BN4T CN4AN5M6BN4GN4N6 B'2A'3N7E': N7BN4GN4N6F?4D?5M6B'4EN4T FN4E'5N7 EN3BN4P5EN2DN3N7AN3CN3N3GN2EN3M6AN2FN2N6 FN3BN3T BN4GN3M3DN3CN4N7GN4DN5P5AN2FN2N6 D?4C?5N7FN4A'5N3E'4C'5N6C?5BN6N7FN4DN5M6 A'4E'4P5A'3G'3N7B'4EN4T F?4D?5M6BN4GN4N6 DD3BD4M6G?3BN4N3GN3B'4N3D'3GN3T FN2BN2T A'2FN2M6F?2D?3M6C8EN4DN5N7 FN3AN4M3DN4GN4P4FN4BN4T GN3AN4M2BN4GN4N6 AN2G?2M7BN2F?2P5C?3E?3M3G'3C'4P4E'2DN3M7 B'2A'3N7D?3EN3N2F?3D?4M6B'3EN3T A'2C?3G?3P5B'2G'2N6E'3D'4N7 FN4E'5N7GN4CN5P4DN4F?4M3EN5FN5N2B'3GN3M6 AN4AN5P8EN4GN4N3CN5DN5M2FN4EN5M7DN4B'5N6 AN2EN2P5GN3B'4N3B'2EN2'2N3 T GN2E'3N6BN2F?2P5 G?3DN4T EN2DN3N7G?3B?4M3AN2F?2M6DN3AN4P5 G?4C?5P4C?4E?4M3EN5F?5M2C?4AN5N6AN4B'4N2 F?4E?5M7EN4EN5P8A?4BN4N2E'5CN5A'6N6BX4FX4T G'4A'5M2C?4BN5N7E'4E'5P8 F?4C?5P5A?4F?4N6G?5A?6M2D'4FN4M3G'4FN5M7 BN3FN3T CN3AN3N3DN4CN4M2FN3GN2N7BN3CN2M7 FN3ENG'5N3F?4C?5P5 B'3DN2N6GN3AN3N7DN3CN3M2AN3AN2P8BN3GN2M3 GN3B'3M6FN2EN2N2F?3DN3M3CN4GN3P4E'3FN2N7 B'4GN3N3EN5AN5P5E'5GN4N6B'4EN4T 3N2DN3FN2M6CN4CN3P8GN3DN3P4CN3EN2N6 G?5EN5M3A?4D?3P5E'4FN3N7C?5GN4T G'5FN5N2 G'4F'4M2D?5G?4P5A?4BN3M7E'5B'5P4A'4FN3N3 BN3GN2M3GNBN5E?5T E'5GN4N6G?5E?5N3FN4B'4P5F?5AN5M6CN5CN4P8 C?3F?2P5G'3E'3N3E?3D?3M2AN3AN2P8E?3F?2M7 B'3AN3N2F?3A?3N6D?3C?3M2G?3E?3N3C?4G?33B'3M6D'3G'2P5F?3A?3N6A'3B'2N7 EN3D?3N2A'3FN2N3G'3B'3N6CN4B'4M2F'3C'3P4 GN4AN5M2FN4EN5M7GN4BN5M3AN4AN5P8EN5FN5N2 DN4GN4P4CN4BN5MP4* 7DN5EN5M2EN4FN4N2BN4EN4P4 AN2DN2P4EN3G?3M3B'2B'3P8F?3GN3N2C?3B?4M7 A'2CN2M3D'3G'3P4G?2AN3N2D?3D?4P8E'2GN2M3 D'5E'5M2A?4GX4M7D?5EN5N2B'3E'3P4C'5F'5P4 G'4B'5M3EN4D?5M7C?4C?5P8FN4G'4N2EN5F?5M2 BN3CN2M7EN3DN3M2FN3EN3N2GN3DN3P4AN3GN2M2 EN3FN2M7BN3GN2M3CN3CN2P8FN3EN3N2EN3FN2M7 AN5EN4P4G?5EN5M3B'4B'3P8EN5D?5N2G?5AN5M7 GN4E'4M3G'5D'5P4A?4G?3M2E'4E'5P8C?5AN5M3 F?3EN3M2A'4GN3N2C?4C?3P8D?3EN2M7B'3G'2M3 F'3C'3P4E'3B'3P4EN3D?3N2GX3A?3M7E'3D'3M2 GN4DN5P5EN5GN5N3DN4CN5N7BN4GN4N6FN4BN4T AN4FN4N6GN4EN5M6AN4CN4N3EN4DN5N7EN5BN6P5 FN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6 E'3D'4N7AX2EX2P5G?3BN4N3GN2B'3N3D'3GN3T A'4E'4P5FN4DN5M6C?5BN6N7E'4C'5N6FN4A'5N3 D?4C?5; A?3C?2M6CN3A'3M3EN3D?3N2BN3A?3N2B'3G'2M3 CN4G'3T BN2A?2N2B'3G'2M3GN3B'3M6CN4E'3M6 FN4CN5P5BN4DN4N3GN4FN5N7EN4CN5N6AN4FN4N6 FN4CN2E'2T G?3E?3N3 GN4EN5M6AN4GN4N7EN4CN5N6FN4EN5M7CN5AN6M6 DN4CN5N7BN4GN4N6FN4DN5M6BN3AN4N7CN5BN6M7 CN3A'4N6FN2E'3N7C?3A?4M6EN3C?4M5P5BN4DN4N3AN4CN4N3EN4DN5N7BN4GN4N6 CN3A'4N6F?3AN4N3B'2FN2P5E'3D'4N7FN2A'3N3 D?3A?4P5CN4E'4N3F?2EN3N7B'2G'2N6E'2B'3P5 AN4FN4N6G'6B'2G'2N6 F?2DN3N6AN2FN2N6EN3D?4M7A?2GX2M7C'3AD4N6 C?5AN6N6BN3A?4M7A'4FN4M6F?4DN5N6G?4FX5M7 D'4B'5M6EN5DN6N7BN4GN4N6G'4E'5M6E'4D4F'5N7CN4E'4N3BN3F?3P5G?4BN5N3 C?5AN6N6D'4C'5N7F?4AN5N3D?5F?5N3F?4EN5N7 CN4FN3P5GN3BN3N6DN4BN4N3DN3EN2N7AN3BN2N7 CN3AN3N3CN4EN3NN5M7 6FN2DN2N3FN3AN3N6GN3CN3P5 E'5CN5N3FN5B'5P5C?5D?4N7B'4GN3N3F?4BN4P5 GN5AN5N7D?5G?4P5AN4F?3N3FX5B?5P5D'5E'4N7 G?3E?3N3B?3DX2N6CN4ECN4EN3N6GN3AN3N7AN5CN4M6DN3FN2M6BN3CN2M7 FN3GN2N7EN3FN2M7DN4FN3M6CN3EN2N6GN3BN3N6 F?5GN4M7D?5F?4M6AN4B'3M7E'5G'4M6BN4DN3M6 C?5D?N3N6C?3D?2N7B'4E'3P5 D?3B?3N3G'3A'3N7D'3G'2P5F'2D'2N3A'3B'2N7 GN4CN5P4FN4AN5M3BN4BN5P8EN4FN4N2CN4BN5M7 AN4BN4M2FN4EN5M7DN5GN5P4G4N7FN4AN4N6E'5GN4N6A'5BD4M7AX4CX3M6 BN3C?2N7AN3C?2N6DN4E'3M7D?3EN2M7B'3C'2M7 E'4G'3M6D'3ED2M7G?3BN3M6AN3C?2N6G?3A?3N7 AN4EN4P5FN 5.26989E-1 CN4CN5P8FN4EN5M7GN4AN5M2DN5EN5M2GN4CN5P4 EN4EN5P8GN4CN5P4CN4BN5M7DN4GN4P4AN4BN4M2 E'4DN5M7B'4E'4P4D'4D'5P8E'4FN4M2G'N4AN5M2BN4CN4N2 B'2AN3M7FN2G'2N2A?2BN2N2C?3D?3M2F?3BN4P4 G'2FN3M7D'3FN3M3G?2G?3P8A?3D?3P4C?3B?4M7 FX4G?4N2B'4CN4M2D'4G'4P4C'4B'54FN5M7 F?4BN5P4B'4CN4M2D'4CN5M7B'4CN4M2F?4F?5P8 EN4AN5P4F?4G?4M2G?4C?5P4DN4C?5M7AN4AN5P8 A'4B'4M2BN4A?5M7CN5BN6M7D'5F'5N3A?4D?4PM7E?5F?5N2 A'4A'5P8F'4BD5P4A?4GX4M7DN4F?4M3F?5BN6P4 AN3EN2P4FN3EN3N2DN3CN3M2FN3FN2P8CN4GN3P4 BN3CN2M7EN3FN2M7GN3FN3M2CN3BN3N2BN34 CN5GN4P4BN5CN4M7GN4DN4P4BN4AN4M2AN4GN3M2 EN5DN5M2CN5GN4P4EN5EN4P8EN5FN4M7CN5CN4P8 CN5B'5M2BN4F?3P4EN5FN4M7GN5GN4P8E'5B'5P4 F?5CN2M7 GN4M7C?5BN5M2A'5B'5M2F?4C?4P4D?5D?4P8 FN5B'6P4D?5C?5M2EX5EX4P8DN5E'4M7A'4B'4M2 GN5A'5M7D?5A?5P4C'5BD5M2GX5GX4P8E?4A?5P4 EN3FN3N2E'5F'4M7D'3CN4M7E'4C'4M3F?5DN5M3EN5D?5N2 FN4B'5P4AN4GN3M2D'5ED4M7A'4A'3P8C'5DD4M7 A'3E'2P4F?3DN3M3G?3F?3M2BN2A?2N2CN4BN4N2 G?3ANCN3EN3M3FN2DN3M6FN3BN3T CN3AN4M6 BN2CN2N2GN3BN4M3FN2BN2T DN3BN4M6FN3AN4M3 CN3F?3T EN3G?3M3AN2D?2T EN3C?4M6GN3A'4N2 BN2G?2M6DN3F?3M7D?3BN3M3G'3D'3P4D'4ED3M7CN4CN3P8 AN4CN4N3GN4EN5M6DN4BN5M6FN4CN5P5AN4FN4N6 EN4DN5N7EN5GN5N3FN4BN4T CN4AN5M6BN4GN4N6 B'2A'3N7E'3M3FN2G'2N2CN3D'3N2EN3A?3T E'3CN4M6B'2GN2M6G'3B'4M3A?2BN2N2G'2CN3T C?3A?4M6A'2CN2M3D?3EN3N2A?3BN3N2G'3B'4M3 AN3FN2M3DN3F?3M3DN3F3G'3N3F?2C?3P5CN3F?3T D'3BD4N6 E?3B?4P5A'3G'3N7D?3B?4M6B'2G'2N6F?2AN3N3 CN5E'5N3A'4DN4T G'4E'5M6F?4DN5N6C?5G?5P5 FX4DX5M6DN5B'6NN2M6BN3FN3T CN3BN3N2 AN3CN2M6BN3GN2M3BN3DN2M6FN3EN3N2BN4GN3M3 A'3GN2N2C?4EN3M6D?3AN3T G?3EN3M3F?3CN3T A?3EN3T D'3CN3N2G'3FN3N2F?6B'4EN4T BN4DN4N3D?4F?4N3 DN3EN2N7AN4CN4N3BN2FN2T AN3CN2M6GN3BN3N6 CN3AN3N3EN4GN3M6BN3DN2M6CN3FN2P5FN3AN3N6 F?5AN5M6D?5G?4P5EN4C3DN3M3G?3BN3M6 ?4N3E'6GN5N6G?4DN4T A'5B'4N7G'4A'4N7D?5F?4M6A?4FX3N3FN5DN5N3 G'3C'3P5CN4FN3P5A?3B?2N7GN4EN5M6A'3FN2N3 AN3F?2N3F?3AN3M6C?4F?3P5AN< Do you want your unit choicesBY˧BN˄BYçBNÍBYá, Which unit do you want? Bvot)....##ȡ#B##   0Enter number of students.... then press `RETURN`B0ÍBvB0˄~B+1 Maj2, Per4, Maj7, Per8P$~+2 Min2, Maj3, Trit, Maj6#Bv#B0?#  ## B ˡB ö ō musrec.text+ PPR~+3 Min3, Per5, Min6, Min7PLj~+*4 Min2, Maj2, Maj3, Per4, Maj7, Per8P6~+*5 M , Student Progress ReportCID# Name Last run # runs # rin3, Trit, Per5, Min6, Maj6, Min7P~+6 Min6, Maj6, Min7, Maj7P~+*7 Per8, Per4, Maj7, Maj2, Might Total exercises Mean %H Replies/Ansin2, Maj3P6~+*8 Min3, Trit, Per5, Min6, Maj6, Min7P~w+N9 Min2, Maj2, min3, Maj3, Per4, Trit, PH--- ---- -------- ------ ------- --------------- -----------##ȡ&# +er5, Min6, Maj6, Min7, Maj7, Per8P~19IuS)music.info.text!r"-## &DONEE  -Improper user access! Stop! Abort! Reset!! aK +These are commands which you may enter now:" B(ye) to stop the program.Hx1 Student progress report0BGá musrec.text ##ȡ,( D(rill) to practice reading notes.6 M(usic) to practice melodic & harmonic intervals+P+## Done V 2 $Handout4BN4T CN4EN4M3DN5FN5N3DN4CN5N7 EN5FN5N2BN3GN3N6AN4BN4M2BN3GN3N6FN4EN5M7 A'2A'3P8C?3G?3P5E'2DN3M7B'2D'2N3G?2A?3M2 D'3B'4M6A?2D?2P U(nit) to change units." I(nfo) to list information. Comma4E'3D'4N7G'3C'4P4F?2GN2N2 D?4B?5M6FN5AN6M3G'4FN5M7C?4C?5P8A'4FN4M6 F?4AN5N3E'5C'6N6B?4FX4P5E'4A'5P4C?4BN5N7 FN3EN3N2CN3EN2N6GN3End. BdBdB(A*=)9-50 BU( ! / "$&;g.  <(    5This report requires the Terak to be connected to the =GE TermiNet. Ask one of the Computer Cente+퓫+|q  i) musdata.text "&2(AU*^V jr staff to assist. When ready to list.... press `G` to go.]$g짅BQá襄N*Kunitchoice.text!&*, 0 Clear old student file. Create new student file.*Enter password(you have only one sh= # & Doneg[-X3  C A T ye for now, come back again sometime and have a nice day!8!No student records file on disk!!S What is your desire "Press `C` to clear student records + `R` to list a studeData cannot be saved!!f9C'   Enter today's date. (MM-DD-YY)nt progress report / `H` to list a hand-out that can be copied % and passed out to the##ȡQ#ç#Í#-0BvBv#B#. ## musrec.text"ˡ9 class . `Q` to quit this part of the program and ! go to the command list.Bڥ٦ newrec.text  "ɧ"ōEyour student ID is not on fileBB15213- (#CR  )3a$ */HGJFD@#"#ȡ.+P٥+##    ECILLKKKH44 %'ǰA#G#ȡ3#@ n  Enter your name. ////////// ȡB*  ' ॄ####Tpj ; rz d` "vo"#ȡ##+P++P SP- #ɡ+# á##+~ musdata.text"ˡE-Musdata is not on this disk, get another one.)# ˡ +#0 ##+# á+# á##+# ˡ +#0 ##+# á+# á##+# ˥+#!d5 newrec.text٦ musrec.text+P.˄ B+#0##+# áC ' A ٦ ٥+ T7  0, here is a s٦  ٦  ٦  (+Pummery of how you are doing on this program to date.You hav٥+78 >4Hr-r -~%6ƁƁƂƂƄƄƅ2 4W0BGá# 0Enter number of handouts.... then press `RETURN`BvB Í.Bv!B0B# e run the program   times.You have answered   correctly: total ##B ö ō handout.text##ȡ>+P+ #@The average percentage of incorrect answers you have entered is >goodb> 3DN3M3G?3BN3M6 elcome to the harmonic intervals and drill program.Press the space bar to begin.systerm:printer: 5 Enter your ID number. Then press the `Return` key." "á/5쓡.ń6 musdata.text٦ newdata.text٥)+P٥+  newdata.text٦ musdata.text+P٥+   BYou may now take the disk out of the drive and back to the office.ƁƂƄ' 'Z  j(D 00>lp^^$"&d&&&'"('D()>))*4*N*h*,+,d,,H--.~0001J11,2d43$5 9.65626E-1 CN4CN5P8FN4EN5M7GN4AN5M2DN5EN5M2GN4CN5P4 EN4EN5P8GN4CN5P4CN4BN5M7DN4GN4P4AN4BN4M2 E'4DN5M7B'4E'4P4D'4D'5P8E'4FN4M2G'555r9ń6 musdata.text٦ newdata.text٥)+P٥+4FN5M7 F?4BN5P4B'4CN4M2D'4CN5M7B'4CN4M2F?4F?5P8 EN4AN5P4F?4G?4M2G?4C?5P4DN4C?5M7AN4AN5P8 A'4B'4M2BN4A?5M7CN5BN6M7D'5F'5N3A?4D?4P  newdata.text٦ musdata.text+P٥+4 CN5GN4P4BN5CN4M7GN4DN4P4BN4AN4M2AN4GN3M2 EN5DN5M2CN5GN4P4EN5EN4P8EN5FN4M7CN5CN4P8 CN5B'5M2BN4F?3P4EN5FN4M7GN5GN4P8E'5B'5P4 F?5   BYou may now take the disk out of the drive and back to the office.ƁƂƄGN4M7C?5BN5M2A'5B'5M2F?4C?4P4D?5D?4P8 FN5B'6P4D?5C?5M2EX5EX4P8DN5E'4M7A'4B'4M2 GN5A'5M7D?5A?5P4C'5BD5M2GX5GX4P8E?4A?5P4 EN3FN3N2' 'Z  j(D 00>lp^^$"&d&&&'"('D()>))*4*N*h*,+,d,,H--.~0001J11,2d43$5CN3EN3M3FN2DN3M6FN3BN3T CN3AN4M6 BN2CN2N2GN3BN4M3FN2BN2T DN3BN4M6FN3AN4M3 CN3F?3T EN3G?3M3AN2D?2T EN3C?4M6GN3A'4N2 BN2G?2M6DN3F?3M3FN2G'2N2CN3D'3N2EN3A?3T E'3CN4M6B'2GN2M6G'3B'4M3A?2BN2N2G'2CN3T C?3A?4M6A'2CN2M3D?3EN3N2A?3BN3N2G'3B'4M3 AN3FN2M3DN3F?3M3DN3FN2M6BN3FN3T CN3BN3N2 AN3CN2M6BN3GN2M3BN3DN2M6FN3EN3N2BN4GN3M3 A'3GN2N2C?4EN3M6D?3AN3T G?3EN3M3F?3CN3T A?3EN3T D'3CN3N2G'3FN3N2F??  (PLAY (CONVERT (X !FREQ (X #INTER #UNCODE (NOTELETT"ACCIDENT"OCTIVE !IVAL !JVAL !CHANGEMO(MELODIC (HARMONIC(RESPONSE(X !Y !INPUT (INTNUMBE(INTTYPE "INTVALUE"BELL (X !LENGTH (EXPO (BASE #EXPON #RANDOM (NUMBER #RANSWER #Z  #CLEAR (WRITEINF (FILENAME&LINES !DRAWSTAF (DRAWNOTE (ONEPLACE!NAM "ACCID "OCT !A?3C?2M6CN3A'3M3EN3D?3N2BN3A?3N2B'3G'2M3 CN4G'3T BN2A?2N2B'3G'2M3GN3B'3M6CN4E'3M6 FN4CN5P5BN4DN4N3GN4FN5N7EN4CN5N6AN4FN4N6 FN4CNPICKNOTE (PLACEINF(PLACE (OLD !NEW !INDEX !IDNOTE (DRILL (INTPLAY (INTERVAL(COM 5P5BN4DN4N3AN4CN4N3EN4DN5N7BN4GN4N6 CN3A'4N6F?3AN4N3B'2FN2P5E'3D'4N7FN2A'3N3 D?3A?4P5CN4E'4N3F?2EN3N7B'2G'2N6E'2B'3P5 AN4FN4N6G'"DECO1 !DECO2 !TEMPY !UNITCHOI(UNIT (INFO (COMMAND (EXPLAIN (RECORDCL(RECORDOU(HAND4F'5N7CN4E'4N3BN3F?3P5G?4BN5N3 C?5AN6N6D'4C'5N7F?4AN5N3D?5F?5N3F?4EN5N7 CN4FN3P5GN3BN3N6DN4BN4N3DN3EN2N7AN3BN2N7 CN3AN3N3CN4EN3NOUTS(RECORDS (STUDENTS!REPORTS !INSTRUCT $SUB !STARTPLO(INITIALI(COPY (SHOW (ERROR1 !(6FN2DN2N3FN3AN3N6GN3CN3P5 E'5CN5N3FN5B'5P5C?5D?4N7B'4GN3N3F?4BN4P5 GN5AN5N7D?5G?4P5AN4F?3N3FX5B?5P5D'5E'4N7 G?3E?3N3B?3DX2N6CN4EUPDATE (NAME &IDNUM !RIGHT !MEAN #STUDENTS!BLANKCOU!RUNS !RUNMEAN #DUMMY "EXERCISEDISPLAY (SCPTR 'ERASE (SC 'ATXY (X !Y !POINT (X !Y !WINDOW  !MUSIC (I #!J !K !HARMON $DATA +&NEXT $ACCIDENT"ACCID2 "NAME "NAME(WHEREX !WHEREY !SLOPE #DX !DY !LINE (X !Y !SX !JUNK !SY 2 "DC1 "DC3 "ID "!OCNOTE !OCTIVE !OCTIVE2 !NEWPLACEI$INT1 "CIS (!RESP ! !WX !WY !STAFF (NOTE (X !Y !SHARP (X !Y !DOUBLESH(PEN J%SEED )#WHEREX H!WHEREY G!XHWINDOWE!YHWINDOWC!TIME !DISSCR L'ANSWER B"XLWINDOWF!YLWINDOWX !Y !FLAT (X !Y !LEDGER (X !Y !LOOPER (CALCPLAC(NOTELETTD!INT2 "INTV1 !!INTV2 !DOWN "CORRECT '!COUNTER &!JUSTLOOK$UPDOWN $UP $NOTENAME "TOPV"ACCIDENT"OCTIVE !LEDGERPO !DIRECTIO!NOTELEVE!POS !NUMBER !STAFFPLA!SPACE !QUIET (NOOPOICE!VOL1 !VOL2 !VOL3 !VOL4 !UPP "FREQUENC$!DRAWSCR K'BYE $EXERCOUN%!@  4.48589E-1 CN4CN5P8FN4EN5M7GN4AN5M2DN5EN5M2GN4CN5P4 EN4EN5P8GN4CN5P4CN4BN5M7DN4GN4P4AN4BN4M2 E'4DN5M7B'4E'4P4D'4D'5P8E'4FN4M2G'N4AN5M2BN4CN4N2 B'2AN3M7FN2G'2N2A?2BN2N2C?3D?3M2F?3BN4P4 G'2FN3M7D'3FN3M3G?2G?3P8A?3D?3P4C?3B?4M7 FX4G?4N2B'4CN4M2D'4G'4P4C'4B'54FN5M7 F?4BN5P4B'4CN4M2D'4CN5M7B'4CN4M2F?4F?5P8 EN4AN5P4F?4G?4M2G?4C?5P4DN4C?5M7AN4AN5P8 A'4B'4M2BN4A?5M7CN5BN6M7D'5F'5N3A?4D?4PM7E?5F?5N2 A'4A'5P8F'4BD5P4A?4GX4M7DN4F?4M3F?5BN6P4 AN3EN2P4FN3EN3N2DN3CN3M2FN3FN2P8CN4GN3P4 BN3CN2M7EN3FN2M7GN3FN3M2CN3BN3N2BN34 CN5GN4P4BN5CN4M7GN4DN4P4BN4AN4M2AN4GN3M2 EN5DN5M2CN5GN4P4EN5EN4P8EN5FN4M7CN5CN4P8 CN5B'5M2BN4F?3P4EN5FN4M7GN5GN4P8E'5B'5P4 F?5CN2M7 GN4M7C?5BN5M2A'5B'5M2F?4C?4P4D?5D?4P8 FN5B'6P4D?5C?5M2EX5EX4P8DN5E'4M7A'4B'4M2 GN5A'5M7D?5A?5P4C'5BD5M2GX5GX4P8E?4A?5P4 EN3FN3N2E'5F'4M7D'3CN4M7E'4C'4M3F?5DN5M3EN5D?5N2 FN4B'5P4AN4GN3M2D'5ED4M7A'4A'3P8C'5DD4M7 A'3E'2P4F?3DN3M3G?3F?3M2BN2A?2N2CN4BN4N2 G?3ANCN3EN3M3FN2DN3M6FN3BN3T CN3AN4M6 BN2CN2N2GN3BN4M3FN2BN2T DN3BN4M6FN3AN4M3 CN3F?3T EN3G?3M3AN2D?2T EN3C?4M6GN3A'4N2 BN2G?2M6DN3F?3M7D?3BN3M3G'3D'3P4D'4ED3M7CN4CN3P8 AN4CN4N3GN4EN5M6DN4BN5M6FN4CN5P5AN4FN4N6 EN4DN5N7EN5GN5N3FN4BN4T CN4AN5M6BN4GN4N6 B'2A'3N7E'3M3FN2G'2N2CN3D'3N2EN3A?3T E'3CN4M6B'2GN2M6G'3B'4M3A?2BN2N2G'2CN3T C?3A?4M6A'2CN2M3D?3EN3N2A?3BN3N2G'3B'4M3 AN3FN2M3DN3F?3M3DN3F3G'3N3F?2C?3P5CN3F?3T D'3BD4N6 E?3B?4P5A'3G'3N7D?3B?4M6B'2G'2N6F?2AN3N3 CN5E'5N3A'4DN4T G'4E'5M6F?4DN5N6C?5G?5P5 FX4DX5M6DN5B'6NN2M6BN3FN3T CN3BN3N2 AN3CN2M6BN3GN2M3BN3DN2M6FN3EN3N2BN4GN3M3 A'3GN2N2C?4EN3M6D?3AN3T G?3EN3M3F?3CN3T A?3EN3T D'3CN3N2G'3FN3N2F?6B'4EN4T BN4DN4N3D?4F?4N3 DN3EN2N7AN4CN4N3BN2FN2T AN3CN2M6GN3BN3N6 CN3AN3N3EN4GN3M6BN3DN2M6CN3FN2P5FN3AN3N6 F?5AN5M6D?5G?4P5EN4C3DN3M3G?3BN3M6 A?3C?2M6CN3A'3M3EN3D?3N2BN3A?3N2B'3G'2M3 CN4G'3T BN2A?2N2B'3G'2M3GN3B'3M6CN4E'3M6 FN4CN5P5BN4DN4N3GN4FN5N7EN4CN5N6AN4FN4N6 FN4CN5P5BN4DN4N3AN4CN4N3EN4DN5N7BN4GN4N6 CN3A'4N6F?3AN4N3B'2FN2P5E'3D'4N7FN2A'3N3 D?3A?4P5CN4E'4N3F?2EN3N7B'2G'2N6E'2B'3P5 AN4FN4N6G'4F'5N7CN4E'4N3BN3F?3P5G?4BN5N3 C?5AN6N6D'4C'5N7F?4AN5N3D?5F?5N3F?4EN5N7 CN4FN3P5GN3BN3N6DN4BN4N3DN3EN2N7AN3BN2N7 CN3AN3N3CN4EN3N6FN2DN2N3FN3AN3N6GN3CN3P5 E'5CN5N3FN5B'5P5C?5D?4N7B'4GN3N3F?4BN4P5 GN5AN5N7D?5G?4P5AN4F?3N3FX5B?5P5D'5E'4N7 G?3E?3N3B?3DX2N6CN4EN3N6C?3D?2N7B'4E'3P5 D?3B?3N3G'3A'3N7D'3G'2P5F'2D'2N3A'3B'2N7 GN4CN5P4FN4AN5M3BN4BN5P8EN4FN4N2CN4BN5M7 AN4BN4M2FN4EN5M7DN5GN5P4GA N5M7 N5N2B'3E'3P4C'5F'5P4 G'4B'5M3EN4D?5M7C?4C?5P8FN4G'4N2EN5F?5M2 BN3CN2M7EN3DN3M2FN3EN3N2GN3DN3P4AN3GN2M2 EN3FN2M7BN3GN2M3CN3CN2P8FCN4EN3N6GN3AN3N7AN5CN4M6DN3FN2M6BN3CN2M7 FN3GN2N7EN3FN2M7DN4FN3M6CN3EN2N6GN3BN3N6 F?5GN4M7D?5F?4M6AN4B'3M7E'5G'4M6BN4DN3M6 C?5D?N3EN3N2EN3FN2M7 AN5EN4P4G?5EN5M3B'4B'3P8EN5D?5N2G?5AN5M7 GN4E'4M3G'5D'5P4A?4G?3M2E'4E'5P8C?5AN5M3 F?3EN3M2A'4GN3N2C?4C?3P8D?3EN24N7FN4AN4N6E'5GN4N6A'5BD4M7AX4CX3M6 BN3C?2N7AN3C?2N6DN4E'3M7D?3EN2M7B'3C'2M7 E'4G'3M6D'3ED2M7G?3BN3M6AN3C?2N6G?3A?3N7 AN4EN4P5FNM7B'3G'2M3 F'3C'3P4E'3B'3P4EN3D?3N2GX3A?3M7E'3D'3M2 GN4DN5P5EN5GN5N3DN4CN5N7BN4GN4N6FN4BN4T AN4FN4N6GN4EN5M6AN4CN4N3EN4DN5N7EN5B4BN4T CN4EN4M3DN5FN5N3DN4CN5N7 EN5FN5N2BN3GN3N6AN4BN4M2BN3GN3N6FN4EN5M7 A'2A'3P8C?3G?3P5E'2DN3M7B'2D'2N3G?2A?3M2 D'3B'4M6A?2D?2PN6P5 4E'3D'4N7G'3C'4P4F?2GN2N2 D?4B?5M6FN5AN6M3G'4FN5M7C?4C?5P8A'4FN4M6 F?4AN5N3E'5C'6N6B?4FX4P5E'4A'5P4C?4BN5N7 FN3EN3N2CN3EN2N6GN3EFN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6 E'3D'4N7AX2EX2P5G?3BN4N3GN2B'3N3D'3GN3T A'4E'4P5FN4DN5M6C?5BN6N7E'4C'5N6FN4A'5N3 D?4C?5N3N3BN3GN2M3EN3FN2M7 AN3DN2P5BN3BN2P8GN3FN3M2CN3GN2P4DN4EN3N7 G?5BN5M6FN4D'4M3D'5B'5N3F?5GN4M7D'5A'5P4 B'4AN4N2D?5FX4N6AN5AN4P8CN7BN4GN4N6F?4D?5M6B'4EN4T FN4E'5N7 EN3BN4P5EN2DN3N7AN3CN3N3GN2EN3M6AN2FN2N6 FN3BN3T BN4GN3M3DN3CN4N7GN4DN5P5AN2FN2N6 D?4C?5N7FN4?5GN4T C?4BN4M2 G?3BN3M6G'2E'2N3BN2FN2T A?3B?2N7A?2EN2T G?3C?3P5B'3DN2N6D'4G'3P5E'3F'2M7CN4CN3P8 EN5GN5N3FN4DN5M6BN4CN4N2BN3BN4PA'5N3E'4C'5N6C?5BN6N7FN4DN5M6 A'4E'4P5A'3G'3N7B'4EN4T F?4D?5M6BN4GN4N6 DD3BD4M6G?3BN4N3GN3B'4N3D'3GN3T FN2BN2T A'2FN2M6F?2D?3M6C8EN4DN5N7 FN3AN4M3DN4GN4P4FN4BN4T GN3AN4M2BN4GN4N6 AN2G?2M7BN2F?2P5C?3E?3M3G'3C'4P4E'2DN3M7 B'2A'3N7D?3EN3N2F?3D?4M6B'3EN3T A'2C?3G?3P5B'2G'2N6E'3D'4N7 FN4E'5N7GN4CN5P4DN4F?4M3EN5FN5N2B'3GN3M6 AN4AN5P8EN4GN4N3CN5DN5M2FN4EN5M7DN4B'5N6 AN2EN2P5GN3B'4N3B'2EN2'2N3 T GN2E'3N6BN2F?2P5 G?3DN4T EN2DN3N7G?3B?4M3AN2F?2M6DN3AN4P5 G?4C?5P4C?4E?4M3EN5F?5M2C?4AN5N6AN4B'4N2 F?4E?5M7EN4EN5P8A?4BN4N2E'5CN5A'6N6BX4FX4T G'4A'5M2C?4BN5N7E'4E'5P8 F?4C?5P5A?4F?4N6G?5A?6M2D'4FN4M3G'4FN5M7 BN3FN3T CN3AN3N3DN4CN4M2FN3GN2N7BN3CN2M7 FN3ENG'5N3F?4C?5P5 B'3DN2N6GN3AN3N7DN3CN3M2AN3AN2P8BN3GN2M3 GN3B'3M6FN2EN2N2F?3DN3M3CN4GN3P4E'3FN2N7 B'4GN3N3EN5AN5P5E'5GN4N6B'4EN4T ?4N3E'6GN5N6G?4DN4T A'5B'4N7G'4A'4N7D?5F?4M6A?4FX3N3FN5DN5N3 G'3C'3P5CN4FN3P5A?3B?2N7GN4EN5M6A'3FN2N3 AN3F?2N3F?3AN3M6C?4F?3P5AN3N2DN3FN2M6CN4CN3P8GN3DN3P4CN3EN2N6 G?5EN5M3A?4D?3P5E'4FN3N7C?5GN4T G'5FN5N2 G'4F'4M2D?5G?4P5A?4BN3M7E'5B'5P4A'4FN3N3 BN3GN2M3GN2E'2T G?3E?3N3 GN4EN5M6AN4GN4N7EN4CN5N6FN4EN5M7CN5AN6M6 DN4CN5N7BN4GN4N6FN4DN5M6BN3AN4N7CN5BN6M7 CN3A'4N6FN2E'3N7C?3A?4M6EN3C?4M3B'3M6D'3G'2P5F?3A?3N6A'3B'2N7 EN3D?3N2A'3FN2N3G'3B'3N6CN4B'4M2F'3C'3P4 GN4AN5M2FN4EN5M7GN4BN5M3AN4AN5P8EN5FN5N2 DN4GN4P4CN4BN5M6B'2G'2N6 F?2DN3N6AN2FN2N6EN3D?4M7A?2GX2M7C'3AD4N6 C?5AN6N6BN3A?4M7A'4FN4M6F?4DN5N6G?4FX5M7 D'4B'5M6EN5DN6N7BN4GN4N6G'4E'5M6E'4D7DN5EN5M2EN4FN4N2BN4EN4P4 AN2DN2P4EN3G?3M3B'2B'3P8F?3GN3N2C?3B?4M7 A'2CN2M3D'3G'3P4G?2AN3N2D?3D?4P8E'2GN2M3 D'5E'5M2A?4GX4M7D?5EB BN5E?5T E'5GN4N6G?5E?5N3FN4B'4P5F?5AN5M6CN5CN4P8 C?3F?2P5G'3E'3N3E?3D?3M2AN3AN2P8E?3F?2M7 B'3AN3N2F?3A?3N6D?3C?3M2G?3E?3N3C?4G?3GN4M7C?5BN5M2A'5B'5M2F?4C?4P4D?5D?4P8 FN5B'6P4D?5C?5M2EX5EX4P8DN5E'4M7A'4B'4M2 GN5A'5M7D?5A?5P4C'5BD5M2GX5GX4P8E?4A?5P4 EN3FN3N2P4* CN3EN3M3FN2DN3M6FN3BN3T CN3AN4M6 BN2CN2N2GN3BN4M3FN2BN2T DN3BN4M6FN3AN4M3 CN3F?3T EN3G?3M3AN2D?2T EN3C?4M6GN3A'4N2 BN2G?2M6DN3F?3M3FN2G'2N2CN3D'3N2EN3A?3T E'3CN4M6B'2GN2M6G'3B'4M3A?2BN2N2G'2CN3T C?3A?4M6A'2CN2M3D?3EN3N2A?3BN3N2G'3B'4M3 AN3FN2M3DN3F?3M3DN3FN2M6BN3FN3T CN3BN3N2 AN3CN2M6BN3GN2M3BN3DN2M6FN3EN3N2BN4GN3M3 A'3GN2N2C?4EN3M6D?3AN3T G?3EN3M3F?3CN3T A?3EN3T D'3CN3N2G'3FN3N2F?3DN3M3G?3BN3M6 A?3C?2M6CN3A'3M3EN3D?3N2BN3A?3N2B'3G'2M3 CN4G'3T BN2A?2N2B'3G'2M3GN3B'3M6CN4E'3M6 FN4CN5P5BN4DN4N3GN4FN5N7EN4CN5N6AN4FN4N6 FN4CN5P5BN4DN4N3AN4CN4N3EN4DN5N7BN4GN4N6 CN3A'4N6F?3AN4N3B'2FN2P5E'3D'4N7FN2A'3N3 D?3A?4P5CN4E'4N3F?2EN3N7B'2G'2N6E'2B'3P5 AN4FN4N6G'4F'5N7CN4E'4N3BN3F?3P5G?4BN5N3 C?5AN6N6D'4C'5N7F?4AN5N3D?5F?5N3F?4EN5N7 CN4FN3P5GN3BN3N6DN4BN4N3DN3EN2N7AN3BN2N7 CN3AN3N3CN4EN3N6FN2DN2N3FN3AN3N6GN3CN3P5 E'5CN5N3FN5B'5P5C?5D?4N7B'4GN3N3F?4BN4P5 GN5AN5N7D?5G?4P5AN4F?3N3FX5B?5P5D'5E'4N7 G?3E?3N3B?3DX2N6CN4EN3N6C?3D?2N7B'4E'3P5 D?3B?3N3G'3A'3N7D'3G'2P5F'2D'2N3A'3B'2N7 GN4CN5P4FN4AN5M3BN4BN5P8EN4FN4N2CN4BN5M7 AN4BN4M2FN4EN5M7DN5GN5P4G 2.29733E-1 CN4CN5P8FN4EN5M7GN4AN5M2DN5EN5M2GN4CN5P4 EN4EN5P8GN4CN5P4CN4BN5M7DN4GN4P4AN4BN4M2 E'4DN5M7B'4E'4P4D'4D'5P8E'4FN4M2G'N4AN5M2BN4CN4N2 B'2AN3M7FN2G'2N2A?2BN2N2C?3D?3M2F?3BN4P4 G'2FN3M7D'3FN3M3G?2G?3P8A?3D?3P4C?3B?4M7 FX4G?4N2B'4CN4M2D'4G'4P4C'4B'54FN5M7 F?4BN5P4B'4CN4M2D'4CN5M7B'4CN4M2F?4F?5P8 EN4AN5P4F?4G?4M2G?4C?5P4DN4C?5M7AN4AN5P8 A'4B'4M2BN4A?5M7CN5BN6M7D'5F'5N3A?4D?4PM7E?5F?5N2 A'4A'5P8F'4BD5P4A?4GX4M7DN4F?4M3F?5BN6P4 AN3EN2P4FN3EN3N2DN3CN3M2FN3FN2P8CN4GN3P4 BN3CN2M7EN3FN2M7GN3FN3M2CN3BN3N2BN34 CN5GN4P4BN5CN4M7GN4DN4P4BN4AN4M2AN4GN3M2 EN5DN5M2CN5GN4P4EN5EN4P8EN5FN4M7CN5CN4P8 CN5B'5M2BN4F?3P4EN5FN4M7GN5GN4P8E'5B'5P4 F?5CN2M7 C 4BN4T CN4EN4M3DN5FN5N3DN4CN5N7 EN5FN5N2BN3GN3N6AN4BN4M2BN3GN3N6FN4EN5M7 A'2A'3P8C?3G?3P5E'2DN3M7B'2D'2N3G?2A?3M2 D'3B'4M6A?2D?2PN6P5 4E'3D'4N7G'3C'4P4F?2GN2N2 D?4B?5M6FN5AN6M3G'4FN5M7C?4C?5P8A'4FN4M6 F?4AN5N3E'5C'6N6B?4FX4P5E'4A'5P4C?4BN5N7 FN3EN3N2CN3EN2N6GN3EFN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6 E'3D'4N7AX2EX2P5G?3BN4N3GN2B'3N3D'3GN3T A'4E'4P5FN4DN5M6C?5BN6N7E'4C'5N6FN4A'5N3 D?4C?5N3N3BN3GN2M3EN3FN2M7 AN3DN2P5BN3BN2P8GN3FN3M2CN3GN2P4DN4EN3N7 G?5BN5M6FN4D'4M3D'5B'5N3F?5GN4M7D'5A'5P4 B'4AN4N2D?5FX4N6AN5AN4P8CN7BN4GN4N6F?4D?5M6B'4EN4T FN4E'5N7 EN3BN4P5EN2DN3N7AN3CN3N3GN2EN3M6AN2FN2N6 FN3BN3T BN4GN3M3DN3CN4N7GN4DN5P5AN2FN2N6 D?4C?5N7FN4E'5F'4M7D'3CN4M7E'4C'4M3F?5DN5M3EN5D?5N2 FN4B'5P4AN4GN3M2D'5ED4M7A'4A'3P8C'5DD4M7 A'3E'2P4F?3DN3M3G?3F?3M2BN2A?2N2CN4BN4N2 G?3AN?5GN4T C?4BN4M2 G?3BN3M6G'2E'2N3BN2FN2T A?3B?2N7A?2EN2T G?3C?3P5B'3DN2N6D'4G'3P5E'3F'2M7CN4CN3P8 EN5GN5N3FN4DN5M6BN4CN4N2BN3BN4P3M7D?3BN3M3G'3D'3P4D'4ED3M7CN4CN3P8 AN4CN4N3GN4EN5M6DN4BN5M6FN4CN5P5AN4FN4N6 EN4DN5N7EN5GN5N3FN4BN4T CN4AN5M6BN4GN4N6 B'2A'3N7E'8EN4DN5N7 FN3AN4M3DN4GN4P4FN4BN4T GN3AN4M2BN4GN4N6 AN2G?2M7BN2F?2P5C?3E?3M3G'3C'4P4E'2DN3M7 B'2A'3N7D?3EN3N2F?3D?4M6B'3EN3T A'2C3G'3N3F?2C?3P5CN3F?3T D'3BD4N6 E?3B?4P5A'3G'3N7D?3B?4M6B'2G'2N6F?2AN3N3 CN5E'5N3A'4DN4T G'4E'5M6F?4DN5N6C?5G?5P5 FX4DX5M6DN5B'6N'2N3 6B'4EN4T BN4DN4N3D?4F?4N3 DN3EN2N7AN4CN4N3BN2FN2T AN3CN2M6GN3BN3N6 CN3AN3N3EN4GN3M6BN3DN2M6CN3FN2P5FN3AN3N6 F?5AN5M6D?5G?4P5EN4CCN5A'6N6BX4FX4T G'4A'5M2C?4BN5N7E'4E'5P8 F?4C?5P5A?4F?4N6G?5A?6M2D'4FN4M3G'4FN5M7 BN3FN3T CN3AN3N3DN4CN4M2FN3GN2N7BN3CN2M7 FN3EN?4N3E'6GN5N6G?4DN4T A'5B'4N7G'4A'4N7D?5F?4M6A?4FX3N3FN5DN5N3 G'3C'3P5CN4FN3P5A?3B?2N7GN4EN5M6A'3FN2N3 AN3F?2N3F?3AN3M6C?4F?3P5AN3N2DN3FN2M6CN4CN3P8GN3DN3P4CN3EN2N6 G?5EN5M3A?4D?3P5E'4FN3N7C?5GN4T G'5FN5N2 G'4F'4M2D?5G?4P5A?4BN3M7E'5B'5P4A'4FN3N3 BN3GN2M3GN2E'2T G?3E?3N3 GN4EN5M6AN4GN4N7EN4CN5N6FN4EN5M7CN5AN6M6 DN4CN5N7BN4GN4N6FN4DN5M6BN3AN4N7CN5BN6M7 CN3A'4N6FN2E'3N7C?3A?4M6EN3C?4M3B'3M6D'3G'2P5F?3A?3N6A'3B'2N7 EN3D?3N2A'3FN2N3G'3B'3N6CN4B'4M2F'3C'3P4 GN4AN5M2FN4EN5M7GN4BN5M3AN4AN5P8EN5FN5N2 DN4GN4P4CN4BN5M6B'2G'2N6 F?2DN3N6AN2FN2N6EN3D?4M7A?2GX2M7C'3AD4N6 C?5AN6N6BN3A?4M7A'4FN4M6F?4DN5N6G?4FX5M7 D'4B'5M6EN5DN6N7BN4GN4N6G'4E'5M6E'4D7DN5EN5M2EN4FN4N2BN4EN4P4 AN2DN2P4EN3G?3M3B'2B'3P8F?3GN3N2C?3B?4M7 A'2CN2M3D'3G'3P4G?2AN3N2D?3D?4P8E'2GN2M3 D'5E'5M2A?4GX4M7D?5EN5M7 N5N2B'3E'3P4C'5F'5P4 G'4B'5M3EN4D?5M7C?4C?5P8FN4G'4N2EN5F?5M2 BN3CN2M7EN3DN3M2FN3EN3N2GN3DN3P4AN3GN2M2 EN3FN2M7BN3GN2M3CN3CN2P8FCN4EN3N6GN3AN3N7AN5CN4M6DN3FN2M6BN3CN2M7 FN3GN2N7EN3FN2M7DN4FN3M6CN3EN2N6GN3BN3N6 F?5GN4M7D?5F?4M6AN4B'3M7E'5G'4M6BN4DN3M6 C?5D?N3EN3N2EN3FN2M7 AN5EN4P4G?5EN5M3B'4B'3P8EN5D?5N2G?5AN5M7 GN4E'4M3G'5D'5P4A?4G?3M2E'4E'5P8C?5AN5M3 F?3EN3M2A'4GN3N2C?4C?3P8D?3EN24N7FN4AN4N6E'5GN4N6A'5BD4M7AX4CX3M6 BN3C?2N7AN3C?2N6DN4E'3M7D?3EN2M7B'3C'2M7 E'4G'3M6D'3ED2M7G?3BN3M6AN3C?2N6G?3A?3N7 AN4EN4P5FNM7B'3G'2M3 F'3C'3P4E'3B'3P4EN3D?3N2GX3A?3M7E'3D'3M2 GN4DN5P5EN5GN5N3DN4CN5N7BN4GN4N6FN4BN4T AN4FN4N6GN4EN5M6AN4CN4N3EN4DN5N7EN5BD A'5N3E'4C'5N6C?5BN6N7FN4DN5M6 A'4E'4P5A'3G'3N7B'4EN4T F?4D?5M6BN4GN4N6 DD3BD4M6G?3BN4N3GN3B'4N3D'3GN3T FN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6E'3D'4N7 FN4E'5N7GN4CN5P4DN4F?4M3EN5FN5N2B'3GN3M6 AN4AN5P8EN4GN4N3CN5DN5M2FN4EN5M7DN4B'5N6 AN2EN2P5GN3B'4N3B'2EN225 Student Progress Report ID# Name Last run # runs # right Total exercises Mean % T GN2E'3N6BN2F?2P5 G?3DN4T EN2DN3N7G?3B?4M3AN2F?2M6DN3AN4P5 G?4C?5P4C?4E?4M3EN5F?5M2C?4AN5N6AN4B'4N2 F?4E?5M7EN4EN5P8A?4BN4N2E'5 Replies/Ans --- ---- -------- ------ ------- --------------- -----G'5N3F?4C?5P5 B'3DN2N6GN3AN3N7DN3CN3M2AN3AN2P8BN3GN2M3 GN3B'3M6FN2EN2N2F?3DN3M3CN4GN3P4E'3FN2N7 B'4GN3N3EN5AN5P5E'5GN4N6B'4EN4T ------ 1 2 3 4 5 0LEONARD W 06-01-88 1 26 38.10 6 7 BN5E?5T E'5GN4N6G?5E?5N3FN4B'4P5F?5AN5M6CN5CN4P8 C?3F?2P5G'3E'3N3E?3D?3M2AN3AN2P8E?3F?2M7 B'3AN3N2F?3A?3N6D?3C?3M2G?3E?3N3C?4G?3 8 9 10 11 12 13 14 15 FISCHER G. 05-21-P4* 80 2 87 28.57 16 17 18 19 20 21 22 23  24 DIL-DO 50-45-01 1 5 50.00 25 E  6.86140E-1 CN4CN5P8FN4EN5M7GN4AN5M2DN5EN5M2GN4CN5P4 EN4EN5P8GN4CN5P4CN4BN5M7DN4GN4P4AN4BN4M2 E'4DN5M7B'4E'4P4D'4D'5P8E'4FN4M2G'N4AN5M2BN4CN4N2 B'2AN3M7FN2G'2N2A?2BN2N2C?3D?3M2F?3BN4P4 G'2FN3M7D'3FN3M3G?2G?3P8A?3D?3P4C?3B?4M7 FX4G?4N2B'4CN4M2D'4G'4P4C'4B'54FN5M7 F?4BN5P4B'4CN4M2D'4CN5M7B'4CN4M2F?4F?5P8 EN4AN5P4F?4G?4M2G?4C?5P4DN4C?5M7AN4AN5P8 A'4B'4M2BN4A?5M7CN5BN6M7D'5F'5N3A?4D?4PM7E?5F?5N2 A'4A'5P8F'4BD5P4A?4GX4M7DN4F?4M3F?5BN6P4 AN3EN2P4FN3EN3N2DN3CN3M2FN3FN2P8CN4GN3P4 BN3CN2M7EN3FN2M7GN3FN3M2CN3BN3N2BN34 CN5GN4P4BN5CN4M7GN4DN4P4BN4AN4M2AN4GN3M2 EN5DN5M2CN5GN4P4EN5EN4P8EN5FN4M7CN5CN4P8 CN5B'5M2BN4F?3P4EN5FN4M7GN5GN4P8E'5B'5P4 F?5CN2M7 GN4M7C?5BN5M2A'5B'5M2F?4C?4P4D?5D?4P8 FN5B'6P4D?5C?5M2EX5EX4P8DN5E'4M7A'4B'4M2 GN5A'5M7D?5A?5P4C'5BD5M2GX5GX4P8E?4A?5P4 EN3FN3N2E'5F'4M7D'3CN4M7E'4C'4M3F?5DN5M3EN5D?5N2 FN4B'5P4AN4GN3M2D'5ED4M7A'4A'3P8C'5DD4M7 A'3E'2P4F?3DN3M3G?3F?3M2BN2A?2N2CN4BN4N2 G?3ANCN3EN3M3FN2DN3M6FN3BN3T CN3AN4M6 BN2CN2N2GN3BN4M3FN2BN2T DN3BN4M6FN3AN4M3 CN3F?3T EN3G?3M3AN2D?2T EN3C?4M6GN3A'4N2 BN2G?2M6DN3F?3M7D?3BN3M3G'3D'3P4D'4ED3M7CN4CN3P8 AN4CN4N3GN4EN5M6DN4BN5M6FN4CN5P5AN4FN4N6 EN4DN5N7EN5GN5N3FN4BN4T CN4AN5M6BN4GN4N6 B'2A'3N7E'3M3FN2G'2N2CN3D'3N2EN3A?3T E'3CN4M6B'2GN2M6G'3B'4M3A?2BN2N2G'2CN3T C?3A?4M6A'2CN2M3D?3EN3N2A?3BN3N2G'3B'4M3 AN3FN2M3DN3F?3M3DN3F3G'3N3F?2C?3P5CN3F?3T D'3BD4N6 E?3B?4P5A'3G'3N7D?3B?4M6B'2G'2N6F?2AN3N3 CN5E'5N3A'4DN4T G'4E'5M6F?4DN5N6C?5G?5P5 FX4DX5M6DN5B'6NN2M6BN3FN3T CN3BN3N2 AN3CN2M6BN3GN2M3BN3DN2M6FN3EN3N2BN4GN3M3 A'3GN2N2C?4EN3M6D?3AN3T G?3EN3M3F?3CN3T A?3EN3T D'3CN3N2G'3FN3N2F?6B'4EN4T BN4DN4N3D?4F?4N3 DN3EN2N7AN4CN4N3BN2FN2T AN3CN2M6GN3BN3N6 CN3AN3N3EN4GN3M6BN3DN2M6CN3FN2P5FN3AN3N6 F?5AN5M6D?5G?4P5EN4C3DN3M3G?3BN3M6 ?4N3E'6GN5N6G?4DN4T A'5B'4N7G'4A'4N7D?5F?4M6A?4FX3N3FN5DN5N3 G'3C'3P5CN4FN3P5A?3B?2N7GN4EN5M6A'3FN2N3 AN3F?2N3F?3AN3M6C?4F?3P5ANA?3C?2M6CN3A'3M3EN3D?3N2BN3A?3N2B'3G'2M3 CN4G'3T BN2A?2N2B'3G'2M3GN3B'3M6CN4E'3M6 FN4CN5P5BN4DN4N3GN4FN5N7EN4CN5N6AN4FN4N6 FN4CN2E'2T G?3E?3N3 GN4EN5M6AN4GN4N7EN4CN5N6FN4EN5M7CN5AN6M6 DN4CN5N7BN4GN4N6FN4DN5M6BN3AN4N7CN5BN6M7 CN3A'4N6FN2E'3N7C?3A?4M6EN3C?4M5P5BN4DN4N3AN4CN4N3EN4DN5N7BN4GN4N6 CN3A'4N6F?3AN4N3B'2FN2P5E'3D'4N7FN2A'3N3 D?3A?4P5CN4E'4N3F?2EN3N7B'2G'2N6E'2B'3P5 AN4FN4N6G'4F'5N7CN4E'4N3BN3F?3P5G?4BN5N3 C?5AN6N6D'4C'5N7F?4AN5N3D?5F?5N3F?4EN5N7 CN4FN3P5GN3BN3N6DN4BN4N3DN3EN2N7AN3BN2N7 CN3AN3N3CN4EN3N6FN2DN2N3FN3AN3N6GN3CN3P5 E'5CN5N3FN5B'5P5C?5D?4N7B'4GN3N3F?4BN4P5 GN5AN5N7D?5G?4P5AN4F?3N3FX5B?5P5D'5E'4N7 G?3E?3N3B?3DX2N6CN4EN3N6C?3D?2N7B'4E'3P5 D?3B?3N3G'3A'3N7D'3G'2P5F'2D'2N3A'3B'2N7 GN4CN5P4FN4AN5M3BN4BN5P8EN4FN4N2CN4BN5M7 AN4BN4M2FN4EN5M7DN5GN5P4GF N5M7 N5N2B'3E'3P4C'5F'5P4 G'4B'5M3EN4D?5M7C?4C?5P8FN4G'4N2EN5F?5M2 BN3CN2M7EN3DN3M2FN3EN3N2GN3DN3P4AN3GN2M2 EN3FN2M7BN3GN2M3CN3CN2P8FCN4EN3N6GN3AN3N7AN5CN4M6DN3FN2M6BN3CN2M7 FN3GN2N7EN3FN2M7DN4FN3M6CN3EN2N6GN3BN3N6 F?5GN4M7D?5F?4M6AN4B'3M7E'5G'4M6BN4DN3M6 C?5D?N3EN3N2EN3FN2M7 AN5EN4P4G?5EN5M3B'4B'3P8EN5D?5N2G?5AN5M7 GN4E'4M3G'5D'5P4A?4G?3M2E'4E'5P8C?5AN5M3 F?3EN3M2A'4GN3N2C?4C?3P8D?3EN24N7FN4AN4N6E'5GN4N6A'5BD4M7AX4CX3M6 BN3C?2N7AN3C?2N6DN4E'3M7D?3EN2M7B'3C'2M7 E'4G'3M6D'3ED2M7G?3BN3M6AN3C?2N6G?3A?3N7 AN4EN4P5FNM7B'3G'2M3 F'3C'3P4E'3B'3P4EN3D?3N2GX3A?3M7E'3D'3M2 GN4DN5P5EN5GN5N3DN4CN5N7BN4GN4N6FN4BN4T AN4FN4N6GN4EN5M6AN4CN4N3EN4DN5N7EN5B4BN4T CN4EN4M3DN5FN5N3DN4CN5N7 EN5FN5N2BN3GN3N6AN4BN4M2BN3GN3N6FN4EN5M7 A'2A'3P8C?3G?3P5E'2DN3M7B'2D'2N3G?2A?3M2 D'3B'4M6A?2D?2PN6P5 4E'3D'4N7G'3C'4P4F?2GN2N2 D?4B?5M6FN5AN6M3G'4FN5M7C?4C?5P8A'4FN4M6 F?4AN5N3E'5C'6N6B?4FX4P5E'4A'5P4C?4BN5N7 FN3EN3N2CN3EN2N6GN3EFN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6 E'3D'4N7AX2EX2P5G?3BN4N3GN2B'3N3D'3GN3T A'4E'4P5FN4DN5M6C?5BN6N7E'4C'5N6FN4A'5N3 D?4C?5N3N3BN3GN2M3EN3FN2M7 AN3DN2P5BN3BN2P8GN3FN3M2CN3GN2P4DN4EN3N7 G?5BN5M6FN4D'4M3D'5B'5N3F?5GN4M7D'5A'5P4 B'4AN4N2D?5FX4N6AN5AN4P8CN7BN4GN4N6F?4D?5M6B'4EN4T FN4E'5N7 EN3BN4P5EN2DN3N7AN3CN3N3GN2EN3M6AN2FN2N6 FN3BN3T BN4GN3M3DN3CN4N7GN4DN5P5AN2FN2N6 D?4C?5N7FN4?5GN4T C?4BN4M2 G?3BN3M6G'2E'2N3BN2FN2T A?3B?2N7A?2EN2T G?3C?3P5B'3DN2N6D'4G'3P5E'3F'2M7CN4CN3P8 EN5GN5N3FN4DN5M6BN4CN4N2BN3BN4PA'5N3E'4C'5N6C?5BN6N7FN4DN5M6 A'4E'4P5A'3G'3N7B'4EN4T F?4D?5M6BN4GN4N6 DD3BD4M6G?3BN4N3GN3B'4N3D'3GN3T FN2BN2T A'2FN2M6F?2D?3M6C8EN4DN5N7 FN3AN4M3DN4GN4P4FN4BN4T GN3AN4M2BN4GN4N6 AN2G?2M7BN2F?2P5C?3E?3M3G'3C'4P4E'2DN3M7 B'2A'3N7D?3EN3N2F?3D?4M6B'3EN3T A'2C?3G?3P5B'2G'2N6E'3D'4N7 FN4E'5N7GN4CN5P4DN4F?4M3EN5FN5N2B'3GN3M6 AN4AN5P8EN4GN4N3CN5DN5M2FN4EN5M7DN4B'5N6 AN2EN2P5GN3B'4N3B'2EN2'2N3 T GN2E'3N6BN2F?2P5 G?3DN4T EN2DN3N7G?3B?4M3AN2F?2M6DN3AN4P5 G?4C?5P4C?4E?4M3EN5F?5M2C?4AN5N6AN4B'4N2 F?4E?5M7EN4EN5P8A?4BN4N2E'5CN5A'6N6BX4FX4T G'4A'5M2C?4BN5N7E'4E'5P8 F?4C?5P5A?4F?4N6G?5A?6M2D'4FN4M3G'4FN5M7 BN3FN3T CN3AN3N3DN4CN4M2FN3GN2N7BN3CN2M7 FN3ENG'5N3F?4C?5P5 B'3DN2N6GN3AN3N7DN3CN3M2AN3AN2P8BN3GN2M3 GN3B'3M6FN2EN2N2F?3DN3M3CN4GN3P4E'3FN2N7 B'4GN3N3EN5AN5P5E'5GN4N6B'4EN4T 3N2DN3FN2M6CN4CN3P8GN3DN3P4CN3EN2N6 G?5EN5M3A?4D?3P5E'4FN3N7C?5GN4T G'5FN5N2 G'4F'4M2D?5G?4P5A?4BN3M7E'5B'5P4A'4FN3N3 BN3GN2M3GNBN5E?5T E'5GN4N6G?5E?5N3FN4B'4P5F?5AN5M6CN5CN4P8 C?3F?2P5G'3E'3N3E?3D?3M2AN3AN2P8E?3F?2M7 B'3AN3N2F?3A?3N6D?3C?3M2G?3E?3N3C?4G?33B'3M6D'3G'2P5F?3A?3N6A'3B'2N7 EN3D?3N2A'3FN2N3G'3B'3N6CN4B'4M2F'3C'3P4 GN4AN5M2FN4EN5M7GN4BN5M3AN4AN5P8EN5FN5N2 DN4GN4P4CN4BN5MP4* 6B'2G'2N6 F?2DN3N6AN2FN2N6EN3D?4M7A?2GX2M7C'3AD4N6 C?5AN6N6BN3A?4M7A'4FN4M6F?4DN5N6G?4FX5M7 D'4B'5M6EN5DN6N7BN4GN4N6G'4E'5M6E'4D7DN5EN5M2EN4FN4N2BN4EN4P4 AN2DN2P4EN3G?3M3B'2B'3P8F?3GN3N2C?3B?4M7 A'2CN2M3D'3G'3P4G?2AN3N2D?3D?4P8E'2GN2M3 D'5E'5M2A?4GX4M7D?5EG CN2M7 N3N3BN3GN2M3EN3FN2M7 AN3DN2P5BN3BN2P8GN3FN3M2CN3GN2P4DN4EN3N7 G?5BN5M6FN4D'4M3D'5B'5N3F?5GN4M7D'5A'5P4 B'4AN4N2D?5FX4N6AN5AN4P8CE'5F'4M7D'3CN4M7E'4C'4M3F?5DN5M3EN5D?5N2 FN4B'5P4AN4GN3M2D'5ED4M7A'4A'3P8C'5DD4M7 A'3E'2P4F?3DN3M3G?3F?3M2BN2A?2N2CN4BN4N2 G?3AN?5GN4T C?4BN4M2 G?3BN3M6G'2E'2N3BN2FN2T A?3B?2N7A?2EN2T G?3C?3P5B'3DN2N6D'4G'3P5E'3F'2M7CN4CN3P8 EN5GN5N3FN4DN5M6BN4CN4N2BN3BN4PCN3EN3M3FN2DN3M6FN3BN3T CN3AN4M6 BN2CN2N2GN3BN4M3FN2BN2T DN3BN4M6FN3AN4M3 CN3F?3T EN3G?3M3AN2D?2T EN3C?4M6GN3A'4N2 BN2G?2M6DN3F?3M7D?3BN3M3G'3D'3P4D'4ED3M7CN4CN3P8 AN4CN4N3GN4EN5M6DN4BN5M6FN4CN5P5AN4FN4N6 EN4DN5N7EN5GN5N3FN4BN4T CN4AN5M6BN4GN4N6 B'2A'3N7E'3M3FN2G'2N2CN3D'3N2EN3A?3T E'3CN4M6B'2GN2M6G'3B'4M3A?2BN2N2G'2CN3T C?3A?4M6A'2CN2M3D?3EN3N2A?3BN3N2G'3B'4M3 AN3FN2M3DN3F?3M3DN3F3G'3N3F?2C?3P5CN3F?3T D'3BD4N6 E?3B?4P5A'3G'3N7D?3B?4M6B'2G'2N6F?2AN3N3 CN5E'5N3A'4DN4T G'4E'5M6F?4DN5N6C?5G?5P5 FX4DX5M6DN5B'6NN2M6BN3FN3T CN3BN3N2 AN3CN2M6BN3GN2M3BN3DN2M6FN3EN3N2BN4GN3M3 A'3GN2N2C?4EN3M6D?3AN3T G?3EN3M3F?3CN3T A?3EN3T D'3CN3N2G'3FN3N2F?6B'4EN4T BN4DN4N3D?4F?4N3 DN3EN2N7AN4CN4N3BN2FN2T AN3CN2M6GN3BN3N6 CN3AN3N3EN4GN3M6BN3DN2M6CN3FN2P5FN3AN3N6 F?5AN5M6D?5G?4P5EN4C3DN3M3G?3BN3M6 ?4N3E'6GN5N6G?4DN4T A'5B'4N7G'4A'4N7D?5F?4M6A?4FX3N3FN5DN5N3 G'3C'3P5CN4FN3P5A?3B?2N7GN4EN5M6A'3FN2N3 AN3F?2N3F?3AN3M6C?4F?3P5ANA?3C?2M6CN3A'3M3EN3D?3N2BN3A?3N2B'3G'2M3 CN4G'3T BN2A?2N2B'3G'2M3GN3B'3M6CN4E'3M6 FN4CN5P5BN4DN4N3GN4FN5N7EN4CN5N6AN4FN4N6 FN4CN2E'2T G?3E?3N3 GN4EN5M6AN4GN4N7EN4CN5N6FN4EN5M7CN5AN6M6 DN4CN5N7BN4GN4N6FN4DN5M6BN3AN4N7CN5BN6M7 CN3A'4N6FN2E'3N7C?3A?4M6EN3C?4M5P5BN4DN4N3AN4CN4N3EN4DN5N7BN4GN4N6 CN3A'4N6F?3AN4N3B'2FN2P5E'3D'4N7FN2A'3N3 D?3A?4P5CN4E'4N3F?2EN3N7B'2G'2N6E'2B'3P5 AN4FN4N6G'6B'2G'2N6 F?2DN3N6AN2FN2N6EN3D?4M7A?2GX2M7C'3AD4N6 C?5AN6N6BN3A?4M7A'4FN4M6F?4DN5N6G?4FX5M7 D'4B'5M6EN5DN6N7BN4GN4N6G'4E'5M6E'4D4F'5N7CN4E'4N3BN3F?3P5G?4BN5N3 C?5AN6N6D'4C'5N7F?4AN5N3D?5F?5N3F?4EN5N7 CN4FN3P5GN3BN3N6DN4BN4N3DN3EN2N7AN3BN2N7 CN3AN3N3CN4EN3NN5M7 6FN2DN2N3FN3AN3N6GN3CN3P5 E'5CN5N3FN5B'5P5C?5D?4N7B'4GN3N3F?4BN4P5 GN5AN5N7D?5G?4P5AN4F?3N3FX5B?5P5D'5E'4N7 G?3E?3N3B?3DX2N6CN4ECN4EN3N6GN3AN3N7AN5CN4M6DN3FN2M6BN3CN2M7 FN3GN2N7EN3FN2M7DN4FN3M6CN3EN2N6GN3BN3N6 F?5GN4M7D?5F?4M6AN4B'3M7E'5G'4M6BN4DN3M6 C?5D?N3N6C?3D?2N7B'4E'3P5 D?3B?3N3G'3A'3N7D'3G'2P5F'2D'2N3A'3B'2N7 GN4CN5P4FN4AN5M3BN4BN5P8EN4FN4N2CN4BN5M7 AN4BN4M2FN4EN5M7DN5GN5P4G4N7FN4AN4N6E'5GN4N6A'5BD4M7AX4CX3M6 BN3C?2N7AN3C?2N6DN4E'3M7D?3EN2M7B'3C'2M7 E'4G'3M6D'3ED2M7G?3BN3M6AN3C?2N6G?3A?3N7 AN4EN4P5FNN4AN5M2BN4CN4N2 B'2AN3M7FN2G'2N2A?2BN2N2C?3D?3M2F?3BN4P4 G'2FN3M7D'3FN3M3G?2G?3P8A?3D?3P4C?3B?4M7 FX4G?4N2B'4CN4M2D'4G'4P4C'4B'54BN4T CN4EN4M3DN5FN5N3DN4CN5N7 EN5FN5N2BN3GN3N6AN4BN4M2BN3GN3N6FN4EN5M7 A'2A'3P8C?3G?3P5E'2DN3M7B'2D'2N3G?2A?3M2 D'3B'4M6A?2D?2PM7E?5F?5N2 A'4A'5P8F'4BD5P4A?4GX4M7DN4F?4M3F?5BN6P4 AN3EN2P4FN3EN3N2DN3CN3M2FN3FN2P8CN4GN3P4 BN3CN2M7EN3FN2M7GN3FN3M2CN3BN3N2BN34E'3D'4N7G'3C'4P4F?2GN2N2 D?4B?5M6FN5AN6M3G'4FN5M7C?4C?5P8A'4FN4M6 F?4AN5N3E'5C'6N6B?4FX4P5E'4A'5P4C?4BN5N7 FN3EN3N2CN3EN2N6GN3EH M7B'3G'2M3 F'3C'3P4E'3B'3P4EN3D?3N2GX3A?3M7E'3D'3M2 GN4DN5P5EN5GN5N3DN4CN5N7BN4GN4N6FN4BN4T AN4FN4N6GN4EN5M6AN4CN4N3EN4DN5N7EN5B0 Clear old student file. Create new student file.*Enter password(you have only one shN6P5 ot)....##ȡ#B##   0Enter number of students.... then press `RETURN`FN2BN2T A'2FN2M6F?2D?3M6C?3G?3P5B'2G'2N6 E'3D'4N7AX2EX2P5G?3BN4N3GN2B'3N3D'3GN3T A'4E'4P5FN4DN5M6C?5BN6N7E'4C'5N6FN4A'5N3 D?4C?5#Bv#B0?#  ## B ˡB ö ō musrec.text+ PN7BN4GN4N6F?4D?5M6B'4EN4T FN4E'5N7 EN3BN4P5EN2DN3N7AN3CN3N3GN2EN3M6AN2FN2N6 FN3BN3T BN4GN3M3DN3CN4N7GN4DN5P5AN2FN2N6 D?4C?5N7FN4 , Student Progress ReportCID# Name Last run # runs # rA'5N3E'4C'5N6C?5BN6N7FN4DN5M6 A'4E'4P5A'3G'3N7B'4EN4T F?4D?5M6BN4GN4N6 DD3BD4M6G?3BN4N3GN3B'4N3D'3GN3T FN2BN2T A'2FN2M6F?2D?3M6Cight Total exercises Mean %H Replies/Ans8EN4DN5N7 FN3AN4M3DN4GN4P4FN4BN4T GN3AN4M2BN4GN4N6 AN2G?2M7BN2F?2P5C?3E?3M3G'3C'4P4E'2DN3M7 B'2A'3N7D?3EN3N2F?3D?4M6B'3EN3T A'2C?3G?3P5B'2G'2N6E'3D'4N7 FN4E'5N7GN4CN5P4DN4F?4M3EN5FN5N2B'3GN3M6 AN4AN5P8EN4GN4N3CN5DN5M2FN4EN5M7DN4B'5N6 AN2EN2P5GN3B'4N3B'2EN2'2N3 T GN2E'3N6BN2F?2P5 G?3DN4T EN2DN3N7G?3B?4M3AN2F?2M6DN3AN4P5 G?4C?5P4C?4E?4M3EN5F?5M2C?4AN5N6AN4B'4N2 F?4E?5M7EN4EN5P8A?4BN4N2E'5CN5A'6N6BX4FX4T G'4A'5M2C?4BN5N7E'4E'5P8 F?4C?5P5A?4F?4N6G?5A?6M2D'4FN4M3G'4FN5M7 BN3FN3T CN3AN3N3DN4CN4M2FN3GN2N7BN3CN2M7 FN3ENG'5N3F?4C?5P5 B'3DN2N6GN3AN3N7DN3CN3M2AN3AN2P8BN3GN2M3 GN3B'3M6FN2EN2N2F?3DN3M3CN4GN3P4E'3FN2N7 B'4GN3N3EN5AN5P5E'5GN4N6B'4EN4T 3N2DN3FN2M6CN4CN3P8GN3DN3P4CN3EN2N6 G?5EN5M3A?4D?3P5E'4FN3N7C?5GN4T G'5FN5N2 G'4F'4M2D?5G?4P5A?4BN3M7E'5B'5P4A'4FN3N3 BN3GN2M3GNBN5E?5T E'5GN4N6G?5E?5N3FN4B'4P5F?5AN5M6CN5CN4P8 C?3F?2P5G'3E'3N3E?3D?3M2AN3AN2P8E?3F?2M7 B'3AN3N2F?3A?3N6D?3C?3M2G?3E?3N3C?4G?33B'3M6D'3G'2P5F?3A?3N6A'3B'2N7 EN3D?3N2A'3FN2N3G'3B'3N6CN4B'4M2F'3C'3P4 GN4AN5M2FN4EN5M7GN4BN5M3AN4AN5P8EN5FN5N2 DN4GN4P4CN4BN5MP4* 7DN5EN5M2EN4FN4N2BN4EN4P4 AN2DN2P4EN3G?3M3B'2B'3P8F?3GN3N2C?3B?4M7 A'2CN2M3D'3G'3P4G?2AN3N2D?3D?4P8E'2GN2M3 D'5E'5M2A?4GX4M7D?5End. BdBdB(A*=)9-50 BU( ! / "$&;g. N5N2B'3E'3P4C'5F'5P4 G'4B'5M3EN4D?5M7C?4C?5P8FN4G'4N2EN5F?5M2 BN3CN2M7EN3DN3M2FN3EN3N2GN3DN3P4AN3GN2M2 EN3FN2M7BN3GN2M3CN3CN2P8F5This report requires the Terak to be connected to the =GE TermiNet. Ask one of the Computer CenteN3EN3N2EN3FN2M7 AN5EN4P4G?5EN5M3B'4B'3P8EN5D?5N2G?5AN5M7 GN4E'4M3G'5D'5P4A?4G?3M2E'4E'5P8C?5AN5M3 F?3EN3M2A'4GN3N2C?4C?3P8D?3EN2r staff to assist. When ready to list.... press `G` to go.I  ##B ö ō handout.text##ȡ>+P+ #@The average percentage of incorrect answers you have entered is >goodb# & Doneg[-X3  C A T ye for now, come back again sometime and have a nice day!8!No student records file on disk!!S What is your desire "Press `C` to clear student records + `R` to list a studeData cannot be saved!!f9C'   Enter today's date. (MM-DD-YY)nt progress report / `H` to list a hand-out that can be copied % and passed out to the##ȡQ#ç#Í#-0BvBv#B#. ###5:musrec.text"ˡ class . `Q` to quit this part of the program and ! go to the command list.B9ڥ٦ newrec.text  "ɧ"ōEyour student ID is not on fileBB15213- (#CR  )3a$ */HGJFD@#"#ȡ.+P٥+##    ECILLKKKH44 %'ǰA#G#ȡ3#@ n  Enter your name. ////////// ȡB*  ' ॄ###Tpj ; rz d` "vo#"#ȡ##+P++P SP #ɡ+# á##H--- ---- -------- ------ ------- --------------- -----------##ȡ&# +~ musdata.text"ˡE-Musdata is not on this disk, get another one.)## &DONEE  -Improper user access! Stop! Abort! Reset!! a!d5 newrec.text٦ musrec.text+PHx1 Student progress report0BGá musrec.text ##ȡ,٥+ T7  0, here is a s+P+## Done V 2 $Handoutummery of how you are doing on this program to date.You hav0BGá# 0Enter number of handouts.... then press `RETURN`BvB Í.Bv!B0B# e run the program   times.You have answered   correctly: totalJ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@+# ˡ +#0 ##+# á+# á##+# ˡ +#0 ##+# á+# á##+# ˥+#.˄c B+#0##+# áC ' A ٦ K L