IMD 1.15: 15/05/2007 8:54:14 fog hak 015         DISK DOC ,HELPER COM (HELPER DOC0)*+IRISH MUSMINWALZ MUS MUSIC COM" MUSIC DOCaMUSIC4 AQMG#$%&'MUSIC4 COMMUSIC4 DOCNOTES BASPDQFILE BASCSTARWARSMUS WALK MUS!YANKEE MUS "CRCKLISTCRC-40010 /AIR WITH VARIATIONS "HARMONIOUS BLACKSMITH" 0020 /G.F. HANDEL /0021 / (P) (C) 1977 SOFTWARE TECHNOLOGY CORP. 0030 <1 0040 K4# NI=90 0050 /THEME 0060 PA 0070 M1 V3@QCI$ 0080 PB *0090 M2 *I24364S32 V2@Q3I14$3 V3@Q5I68Q5 50100 M3 *I364Q76I5# V2*Q-4I.2S2I.1S1Q0 V3@I565C4354 0110 M4 *I.6S$ V2*I.1 V3@I.8 0120 PC RB 0130 PD 00140 M5 *I6S96I76S4696 V2*I24Q2I$-1 V3@I3521$5 20150 M6 *I76S4698'87'76'65T45S6 V2@I+211+6+21+11 0160 V3@I23532345 20170 M7 *Q3I6232S6432 V2@Q+1I$101$1 V3@I89A323$3 80180 M-FOG/HAK015AIR MUSAMERICA MUSAUTOST AQM AWAVE BASCALIOPE MUS CCPPATCHAQMCHORALE MUS  0530 M32 *S:7895676789AB567675454343 V2@Q2*2I2120 V3@I$0$34452 =0540 M33 *S:132123-101234012345123456 V2@Q1$98 V3@I$235$4$3 <0550 M34 *S:23456789A543987654342-121 V2@Q78A V3@I$2$65398 0560 M36 *S:2-1-3I-5 V2@QC 0570 /VAR. IV 0580 PM 60590 M37 *Q.6I6Q6 V-0270 M13 *S269672526292 V2@Q323 V3@I$Q.5I$5 80280 M14 *S7252629272625124 V2@I20Q1I0$23 V3@Q.5I52345 :0290 M15 *S3-11-1624972586249 V2@I643120$1 V3@I89AQ.5I35 <0300 M16 *S725862495123I43 V2@Q2I$123*S2-11-2 V3@I5035458F 0310 M17 *Q2 V2@Q1 V3@SC854 0320 /V2*I243124 V3@S:321543654876A98C85 *0600 M38 *I666998Q7 V2*I3124S:5#67336I65 &0610 V3@S:654842321765BA9#876543745 "0620 M39 *Q6 V2*I$1 V3@S:654812% 0630 PN RM 0640 PO 50650 M40 *I69Q76 V2*I242554 V3@S:321543210432321543 ?0660 M41 *Q76I7554 V2*I65542332 VAR. II 0330 PH ,0340 M18 *Q666 V2*I243542 V3@S315161815131 60350 M19 *Q666I65# V2*I354231Q0 V3@S6181513161815374 40360 M20 *Q6666 V2*Q1I243124 V3@S812%131516486A8C5 60370 M21 *Q666I65# V2*I312431Q0 V3@S6486A8C56486574B 0380 M22 *Q6 V2*Q1 V3@S8412% 0390 3@S:210432321543232454678565 ?0670 M42 *Q36I6536 V2*I21240314 V3@S:878989A8ACAC979B9B868A8A ,0680 M43 *I65Q5I5S43I21 V2*I2$A8S6895I4S32 !0690 V3@S:757424646868S5879I8F 0700 M44 *Q2 V2@Q1 V3@SC854 0710 /VAR. V 0720 PP :0730 M45 *T6543210-16543210-1Q6 V2PI 10400 M23 *Q999 V2*I465764 V3@S3*21202@2+23+25+2 >0410 M24 *Q9I$4$$$2 V2*I57697654 V3@S0+22+23+25+22+23+24+151 ;0420 M25 *Q3676 V2*Q1I$2$2$2 V3@S8192AT56I5S9T56I5SAT56I5 @0430 M26 *Q76S1543I4S32 V2*I$2$2$$21 V3@S9T56I5SAT56I5SB659I8F 0440 M27 *Q2 V2@Q1@Q34+2 V3@Q56TCBA98765 A0740 M46 *Q6S-1T012345#6543210-1S0265 V2*Q1 V3@T87654321I356354 0750 M47 *Q6 V2*Q1 V3@S8412% 0760 PQ RP 0770 PR 50780 M48 *T987654329876543298765432 V2@Q101 V3@Q323 :0790 M49 *T9876543298765432I.5S6I.4S5 V2@Q01S$0I+1S$1I+2 0800  V3@SCA85 0450 /VAR. III 0460 PJ 40470 M28 *S:456234123-165456234 V2@Q515 V3@I$3$6$3 <0480 M29 *S:123-16545#6789345678786365 V2@Q1C V3@I$6$55654 #0490 M30 *S:631-165% V2@Q8 V3@I$6 0500 PK RJ 0510 PL 40520 M31 *S:456298789567456298 V2@Q52+2 V3@I$3$0$3 @ V3@Q23I485C 90810 M50 *Q3T-101234560123456712345678 V2*I.1S0I@$5$4$3 0820 V3@S8649QA98 <0830 M51 *S9T87654324654321S02544321 V2@I$5$5$7$F V3@Q7A98 ,0840 M52 *Q2T23456789I75T23456789 V2@Q15+2 #0850 V3@SCTBA9876I$AT98765432I35 /0860 M53 *I75T23456789I76I8 *S31I26S231543I4S32 V2@I01$121*21 V3@I23$ABC8F 0190 M9 *I.2S$ V2@I.1 V3@I.C 0200 /VAR. I 0210 PE 40220 M10 *S2-14-13-16-14-12-1 V2@I$356$3 V3@IC5Q45 50230 M11 *S3-16-1427217610265# V2@Q45I4354 V3@I56$3 0240 M12 *Q6 V2*3 V3@S8414 0250 PF RE 0260 PG   M7 *Q.4I1Q18 V2*Q.-1I-1Q-14 V3@Q.6I6H6 "0170 M8 *Q7#895 V2*Q443#3 V3@H66 $0180 M9 *H.8Q4 V2*Q43#H3% V3@Q66H6 '0190 M10 *Q.9I9Q87 V2*Q.4I4Q32 V3@H73 &0200 M11 *Q.7I6Q67 V2*Q.3I4Q45 V3@W3 0210 M12 *Q8654 V2*Q3431 V3@W3 0220 M13 *H.7Q7 V2*Q23H4 V3@W7 0230 M14 *Q.7I5Q57 V2*W3 V3*W0 0240 M15 *Q.7I4Q44 V2*W2 V3@W7 0250 M16 *Q5748 V2*H33 V3@H63 0260 M17 *H.7 V2*H.4 V3@H.7 qP V2*Q.4I4Q32 V3@H73 &0200 M11 *Q.7I6Q67 V2*Q.3I4Q45 V3@W3 0210 M12 *Q8654 V2*Q3431 V3@W3 0220 M13 *H.7Q7 V2*Q23H4 V3@W7 0230  0070 <4 0080 NI=50 0090 PA 0100 M1 *Q4 V2*Q0 V3@Q7 +0110 M2 *Q.4I2Q24 V2*Q.0I0Q00 V3@Q.7I7Q77 /0120 M3 *Q.4I1Q12 V2*Q.-1I-1Q-1-3 V3@Q.AIAQA6 !0130 M4 *Q3456 V2*Q-2-101 V3@W8 "0140 M5 *H.4Q4 V2*Q001 V3@Q71&1% &0150 M6 *Q.4I2Q24 V2*Q.0%I0Q00 V3@W7 -0160 .5S4 V2*Q2$S$2$2$12 0870 V3@T98765432I352345 :0880 M54 *Q3T6543210-17654321087654321 V2@S$1+1+3I$5$4$3 0890 V3@S8649QA98 80900 M55 *T98765432DCBA9876543210@12S3+24+1 V2@I$5$5$4 0910 V3 @Q7A9I8F &0920 M56 *T$$$-1Q2 V2@T$533Q3 V3@Q.C 0930 / ,  "4TH (HARMONIC, COEF., PHASE ADV.)";HAR4,CO4, PHASE4 FOR I=0 TO 255 A=360/256*I/57.296 WAVE=CO1*SIN(HAR1*A+PHASE1)+CO2*SIN(HAR2*A+PHASE2)+CO3*SIN(HAR3*A+PHASE3) WAVE=WAVE+CO4*SIN(HAR4*A+PHASE4) POINT(I)=INT((WAVE+ADD)*MULT) IF PLT$ <> "Y" THEN 100 IF INT(I/STP)<>I/STP THEN 100 PRINT I;POINT(I);TAB(9+POINT(I));"." 100 NEXT I 110 J=0 120 LINE$=DB$ FOR I=1 TO 8 LINE$=LINE$+MID$(STR$(POINT(J)),1,2) IF I<>8 THEN LINE$=LINE$+"," J=J+1 NEXT I PRINT #1; LINE$ IF J<255 THEN 120 NEXT WF CLOSE (1REM WRITES A FILE ON DISK FOR INPUT TO ASM REM CONTAINING DB EXPRESSIONS FOR 256 POINTS REM FOR EACH WAVEFORM OF 4 VOICES REM TO DEFINE THE WAVEFORM TABLE FOR MUSIC4 DIM POINT(256) INPUT "FILE NAME";W$ FILE W$ HT$=CHR$(9) ORG$=HT$+"ORG"+HT$+"100H) STOP 600 FOR I=0 TO 255 POINT(I)=INT(I/128)*63 GOSUB 660 NEXT I GOTO 110 630 FOR I=0 TO 255 POINT(I)=63-INT(I/4) GOSUB 660 NEXT I GOTO 110 650 FOR I=0 TO 127 POINT(I)=INT(I/2) GOSUB 660 NEXT I FOR I=128 TO 255 POINT(I)=INT((255-I)/2)" DB$=HT$+"DB"+HT$ PRINT #1; ORG$ FOR WF=1 TO 4 PRINT "WAVEFORM ";WF INPUT "PLOT (Y OR N)"; PLT$ IF PLT$<>"Y" THEN 50 INPUT "PLOT INTERVAL"; STP 50 INPUT "WAVE TYPE...S=SINE,Q=SQUARE,R=RAMP,T=SAWTOOTH";WV$ IF WV$="Q" THEN GOTO 600 IF WV$="R" THEN GOSUB 660 NEXT I GOTO 110 660 IF PLT$<>"Y" THEN 670 IF INT(I/STP)<>I/STP THEN 670 PRINT POINT(I);TAB(POINT(I)+6);"." 670 RETURN END  GOTO 630 IF WV$="T" THEN GOTO 650 INPUT "SCALING--(ADD, MULT)";ADD,MULT INPUT "FIRST (HARMONIC,COEF.,PHASE ADV.)";HAR1,CO1,PHASE1 INPUT "2ND (HARMONIC,COEF.,PHASE ADV.)";HAR2,CO2,PHASE2 INPUT "3RD (HARMONIC,COEF.,PHASE ADV.)";HAR3,CO3,PHASE3 INPUT   ,B,A,9,8, V2Q9 V3@Q7I1,2,3,4,5,6, 0390 PI RH 0400 PJ 30410 M32 *Q7,IE"E"QE" V2Q$IB"B"QB" V3@Q7,I7"7"Q7" ;,!Ù!;qz8O! !;,z;qyO! ͣͣW_͕qyO! ͣ͒qy,8#9, V2Q$4$4 V3@Q0$3 0100 PB (0110 M5 *IB,$A,A,Q7#8, V2Q$4$4 V313-33 0120 PC RB 0130 PD &0140 M7 *I677#88#9AA# V2Q$4$4 V3@0$3 %0150 M8 *I88#CDQCB% V2Q$4$4 V313-33 0160 PE RA 0170 PG ,0180 M13 *Q8#I8,8,QA#6 V2Q6I6,6, V3-11#-11 (0190 M14 *IB,C,B,A#,Q9D, V22626 V3$4$4 40200 M15 *QD"ID"D"QD"D" V28#"I8"8"Q8"8" V3@Q1$1"1" $0210 M16 *QD"$HD V2Q9$HB V3@Q+2$H3 0220 PH 0230 / !0240 M17 *Q$IB,B,QB,B, V3@H.7QA "0250 M18 *Q$B,$B, V3@Q7I877#66#5 00260 M19 *Q$I6,6,Q6,6, V2Q$IB,B,QB,B, V3@H.4Q5 -0270 M20 *Q$I6,6,Q6,6, V2Q$IB,B,QB,B, V3@W6 00280 M21 *Q$I6,6,Q6,6, V2Q$IB,B,QB,B, V3@H.2Q3 &0290 M22 *Q$6$6 V2Q$B$B V3@I43456546 00300 M23 *Q$IB,B,QB,B, V2Q$I7,7,Q7,7, V3@H7Q75 -0310 M24 *Q$IB,B,QB,B, V2Q$I7,7,Q7,7, V3@WA 00320 M25 *Q$IB,B,QB,B, V2Q$I7,7,Q7,7, V3@H.7QA *033/0010 /CHORALE "JESUS, JOY OF MAN'S DESIRING" 0020 / J.S. BACH /0021 / (P) (C) 1977 SOFTWARE TECHNOLOGY CORP. 0030 <6 0040 K1# NI=60 0050 PA -0060 M1 *I$45687798 V2*I$-11443445 V3@Q.A35 0070 PB ,0080 M2 *I8BAB86456 V2*I445664221 V3@Q.85C -0090 M3 *I70 M26 *Q$B,$B, V2Q$7,$7, V3@Q7I876543 40340 M27 *Q$IC,C,QC,C, V2Q$I9&,9&,Q9&,9&, V3@H.4Q9 10350 M28 *Q$IA#,A,QA,A, V2Q$I7,7,Q7,7, V3@H7Q87 20360 M29 *Q$IB,B,Q$IB,B, V2Q$I7,7,Q$I7,7, V3@H57 20370 M30 *Q$IB,B,Q$IB,B, V2Q$IA,A,Q$IA,A, V3@H41 30380 M31 *QEID,C89876564 V2*I22344122-1 V3@Q.987 ,0100 M4 *I345535765 V2*I-2-21Q.13 V3@Q.646 ,0110 M5 *I645687798 V2*I113443225 V3@Q.A57 ,0120 M6 *I8BAB86456 V2*I445664224 V3@Q.856 /0130 M7 *I587654143 V2*I223442-2-20 V3@Q.77#6 0140 PC 30150 M8 *I468B86468 V2*IQ.-14Q-1I1*0010 / THUNDER AND BLAZES , JULIUS FUCIK ,0020 / ENCODED BY LEON RUE, NOCCC, 9,16,77 0030 NS=200 0040 >2 0050 PA ,0060 M1 *QE,D,ID&,E&,D&,C, V2Q04-34 V3$2$2 &0070 M2 *QC&,B,A#B, V2Q$4$4 V3@Q0$3$ +0080 M3 *QC,C&,IB,C,B,A#, V2Q$4$ V3Q02-32 $0090 M4 *QA,9  6Q.6 -0480 M57 *I645687798 V2*I441443445 V3@Q.145 .0490 M58 *I8BAB86456 V2*I445663224 V3@Q.+185 +0500 M59 *I587654140 V2*I224Q.33 V3@Q.766 .0510 M60 *I468B86468 V2@I11311*1441 V3@Q.AAA 00520 M61 *IA%86468975 V2@I113*11-1002 V3@Q.AA3 00530 M62 *I3#57864246 V3@Q.145 .0230 M15 *I8BAB86456 V2*IQ.4Q4I3Q.2 V3@Q.185 +0240 M16 *I587654143 V2*I224Q.30 V3@Q.762 /0250 M17 *I465687798 V2*I-1-11443445 V3@Q.A35 0260 PE RB 0270 PF RD 0280 PG RB 0290 PH /0300 M39 *I468B86467# V2*Q.-141 V3@IAA3113445 -0310 M40 *I812354#V2@I00211+111+2 V3@Q.333 -0540 M63 *I753135765 V2@I552442446 V3@Q.AAA 00550 M64 *I645687798 V2*I441443445 V3@QAI$Q.35 0560 PI RB 0570 PJ (0580 M71 *S$$$1H.4 V2@S$311H.1 V3QAH.A Z465 V2*Q.31Q1I0 V3@Q.27%8 .0320 M41 *I576742012 V2*Q.220 V3@Q.0I2234%45 00330 M42 *I3%87864#23#4 V2*Q.1I331Q.1 V3@Q.685 10340 M43 *I5767988A%9 V2*I002554#3%36 V3@Q.9B%D 00350 M44 *I9CB#C97567 V2*I556775Q.3% V3@Q.EB%5 50360 M45 *IA%98765254 V2*I554#3#33-1-11% V3@Q.+16#5 *0370 M46 *I579Q.9Q.1 V2*Q.$7-1 V3@Q.0+53 +0380 M47 *I$789BA%BD&C V2*Q.$77 V3@Q.+225 +0390 M48 *ICED%ECA89A V2*Q.A%A6 V3@Q.4%63 -0400 M49 *I9BA%B97456& V2*Q.77I221 V3@Q.757 10410 M50 *I576753123 V2*Q.0Q3%I-2Q.-1 V3@Q.4%63 10420 M51 *I201243#465 V2*Q.00I113 V3@Q.7Q$I7886 -0430 M52 *I645687798 V2*Q.1I443445 V3@Q.135 ,0440 M53 *I8BAB86456 V2*I665Q.62 V3@Q.+155 .0450 M54 *I789876564 V2*I22344122-1 V3@Q.087 40460 M55 *I31235457%6 V2*I000#112334 V3@Q.6I$$6Q.6 -0470 M56 *I753135765 V2*Q.333 V3@Q.DI$$ V3@Q.AQ1I3Q6I8 0160 PD $0170 M9 *H.6Q.7 V2*H.1Q.0 V3@Q.ABC $0180 M10 *H.8Q.8 V2*Q.543 V3@Q.BCD $0190 M11 *H.7Q.6 V2*Q.431 V3@Q.CBA /0200 M12 *I512354576 V2*I331112334 V3@Q.DQ.96 (0210 M13 *I753135765 V2*Q.333 V3@Q.DDD -0220 M14 *I645687798 V2*I441443445    M7 *W4I$22 V2*I2020202-7 +0160 M8 *Q345Q.4I$Q2 V2*H.-10 V3@Q654H5Q7 0165 PC )0170 M9 *Q345H4I67 V2*H.-1H0 V3@Q6545H7 ,0180 M10 *H.5H9Q8 V2*H.0H5Q3# V3@QD964#+12 &0190 M11 *W8Q$4 V2*W3% V3@I3234%68A3 0200 PD RB 0205 PE -0210 M17 *Q345Q.4I$Q4 V2*H.-1H0Q0 V3@654575 ,0220 M18 *Q5678Q.9I8 V2*Q0001H1 V3@H.4Q21A $0230 M19 *W7 V2*I42424Q.2 V3@Q7ACE q@@@@@ *H.5H9Q8 V2*H.0H5Q3# V3@QD964#+12 &0190 M11 *W8Q$4 V2*W3% V3@I3234%68A3 0200 PD RB 0205 PE -0210 M17 *Q345Q.4I$Q4 V2*H.-1H0Q0 0001 NI=40 0010 <5 0011 PA 0090 M1 *Q4 V2*Q0 V3@Q5 +0100 M2 *Q5678Q.9I8 V2*Q0001H1 V3@H.4Q21A *0110 M3 *W7Q$4 V2*I42424Q.2H$ V3@Q7ACEH$ 0115 PB #0120 M4 *H.9H9Q8 V2*I424242535353 !0130 M5 *W7Q$7 V2*I424245646464 "140 M6 *Q7H76Q5 V2*I535353313130 0150  21V3$32 0430 M28 *I4%56789V2@Q6+3V3$+1 %0440 M29 *I:ABAI9%ACBV2H.-2&V3Q$2&3 0450 M30 IABA9%ADV2H.-1V3Q$13 "0460 M31 I:CDCIB%CEDV2H.0V3Q$4%5 0470 M32 ICDCB%CAV2Q15V3$3 0480 PG 0490 M33 I987654%V2Q-36V3$2 0500 M34 IA98765V2@Q9+1V3$2 &0510 M35 *I5%76340V2@Q9&,2,2,V3$3,3, 0520 PH 0530 M36 *1$AV2@6+3V3$2 0540 PI RF 0550 PJ RG 0560 PK 0570 *1$3V2@6+3V3$2 0580 PL =17 0590 M38 *H5Q2V2@3,0,0,V3$2,2, !0600 M39 *H5Q2%V2@3,0,0,V3$2,2, !0610 M40 *H5Q3V2@6,+1,+1V3$2,2, %0620 M41 *HAQA'V2@8,+3,+3,V3$+1,+1, 70010 /MINUTE WALTZ BY CHOPIN PROGRAMMED BY BOB YARUSS 0100 K5& 0110 NQ=13 0200 PA (0210 M1 Q5I4%5764%565764%5764%5764%576 0220 PB &0230 M5 4%57645V2@Q$+3,+3,V36,+1,+1, (0240 M6 *I764%576V2@Q$+3,+3,V34,+1,+1, )0250 M7 *I4%5764%5V2@Q$+3,+3,V36,+1,+1, (00630 M42 *HAQ6V2@5,0,0,V3$2,2, "0640 M43 *HAQ7V2@9,+2,+2,V3$2,2, 0650 PM $0660 M44 *H9Q8V2@6,+3,+3,V3$+1,+1, #0670 M45 *798V2@4,+3,+3,V3$+1,+1, 0680 M46 *H5Q2V2@7,2,2,V3$3,3, !0690 M47 *H5Q2%V2@9,0,0,V3$2,2, "0700 M48 *H5Q3V2@6,+1,+1,V3$2,2, %0710 M49 *H260 M8 *I6789AB&V2@Q$+3,+3,V34,+1,+1, #0270 M9 *Q.DICBAV2@Q$0,0,V39,2,2, (0280 M10 *IA9SB9I8%Q9V2@Q$0,0,V35,2,2, $0290 M11 *Q.DICBAV2@Q$0,0,V39,2,2, 0300 PC *0310 M12 *IAS:9B9I8%9A6V2@Q$0,0,V39,2,2, 0320 PD RB 0330 PE )0340 M20 *I9AS:9B9I8%99%V2@Q2,0,A,.AV2@Q4%,+3,+3,V3$+1,+1, "0720 M50 *76%7V2@7,+3,+3,V3$0,0, 0730 M51 *C6&B%V2@-2+2%V3$0 0740 M52 *5%B&5&V2@B$0V3$$4 0750 M53 *A36 0760 PN RL 0770 PO "0780 M60 *987V2@6,+3,+3V3$+1,+1, '0790 M61 *9Q.8I6V2@Q4,+3,+3,V3$+1,+1, 0800 M62 *H5Q2V2@H.7V3Q32 !08V3$2, 0350 PF -0360 M21 *I:ABAI9%ACBV2@Q9%,+2&,+2&,V3$0,0, '0370 M22 *IABA9%ADV2@Q8,+1,+1,V3$4,4, *0380 M23 *I:CDCIB%CEDV2@Q7,+2,+2,V3$2,2, 0390 M24 *ICDCB%CFV2@Q6+3V3$2 0400 M25 *IEDCB&A9V2@Q3+2V3$1 0410 M26 *I876543V2@Q9+1V3$2 0420 M27 *I210265V2@Q910 M63 *H5Q2%V2@9,0,0,V3$2,2, #0820 M64 *H5Q3V2@7&,+2,+2,V3$2,2, $0830 M65 *H.AV2Q@8,+1%,+1%,V3$2,2, &0840 M66 *HAQ6V2@5,+1&,+1&,V3$3%,3%, #0850 M67 *H9Q5V2@$+1,+1,V3$3&,3&, 0870 M68 *958%V2@H2V3Q$0 0880 PP =20 0890 M69 *A9C 0900 PQ =13 &0910 M70 H$S56  ß͓1!!"#>*I:B=2*"!"ù Bayw  j>h: ‰> _I>H#>+>I>_I͔* (|ͳ|ͷ}ͳ}ͷ>  0͓!s#~:C!""! $ >*͉2: 2 !! ͊͊! ͊Ó: /2 :ƀ2!\6 i!OAiEiw#  62|͓\<=! ʛ=–#~I z> I> I!J͉ ¿͓*|"DM͔0 !G ͊!~I~#5656565656565656565656 #0920 M72 565656565656565656565656 0930 M74 I4%5764%57 q{@O\,V3$3%,3%, #0850 M67 *H9Q5V2@$+1,+1,V3$3&,3&, 0870 M68 *958%V2@H2V3Q$0 0880 PP =20 0890 M69 *A9C 0900 PQ =13 &0910 M70 H$S56  B""`i>, *~*#~*+~ZW*:͈"*:͈"*:͈" d`i"ɗ2!$"z"z">B6#=|+6p#2揇Ҧ/<!!} , #~+2 >p: !, ~o:3 ! , ~>6 I F   !0 :<A<E<Gx2\ ~0U# H !] 62|*ͻ~=ʆ, ~# tÿ \<ʨ! ͊fY\\2O = 2:!, xw/k YR G!o #w &!v  !, qy O /<Ö O 2Y|  2 *ÿ }2 *###wG?O?< 1 DM "*yx* s#r\w# ȗ2DM͔0ͭ*|_*|DM͔_\  FDM͔kͭ*͝`i"*:, "6ͬbk~, ͝*͵"}o|ڭ~, ×=<DM+"͔*DM͵yx͉!ͻ"6!"*ͻ ^#V#N#F*s#r#q#pz.A..*o$6#"1 *"2 *Y0ڔ :h Aڔ GҔ 06#=k ##s ~! s !w.” ~w:~Ÿ w!ʱ ʹ â >2*ͻ">=^#V#z N#F# !9"y2/ `.> *m "5"#~=, ~ ÿ "((|5}5> I> G0O>a a;;_z>:O/2O/I#~ †> I> I|¥}Ýx´y+wì}|ڨ }|Ҩ *|! "R >¨ ))))o }h 24 >$ <2I >, <2A >$' <29 !9>2` #> F+ F N+N V#=2 7 5 >=0  *   !#$&()+-/02yrke`ZUQLHD@<9630-+(&$" +-# %&@H`IQ0###~#fo>2*">2 *#ͻ"">pk ">! k d*!i=; "" H 1Y!c!/ | !F! s ڑG!p:!, ^#V:w#Np'",#r+s +~w>+55<##w#~O6p! s GR G*DM!$"S TWXA8CJDEGLMNP RSVWj$* / < = > @ KK M4 N P R V ^ ! IIxLRXkZ !} MUS ????????MUS ++ ++ BAD EDIT TRY AGAIN ++ FILE EXISTS! TYPE Y TO ERASE ++ ERROR IN WRITING FILE ++ FILE SAVED C!f!Z 1:0O͊!T] ~# ,y@2C! ͊ I I> Z xIkf!p  xG  ‰{@ —xIx{xbk#~+w x#õ!ͻ""\<\*C "=   KEY MUST BE 0-7TIME SIGNATURE INVALIDPART OR REPEAT ERROR A-Z * MUSIC SYSTEM FACILITIES * A -- AUTO LINE NUMBER ON-OFF C (!DRIVE:) -- CATALOG DEFAULT DRIVE OR A: ETC. D XXXX (YYYY) -- DELETE LINES FROM XXXX TO YYYY E (XXXX) -- EDIT SAME LINE OR XXXX G (XXXX) !FILENAME -- GET FILE AND LOAD AT XXXX L (XXXX) (YYYY) -- LIST LINES FROM XXXX TO YYYY M -- TYPE THE MENU N (XXXX) -- START A NEW FILE AT XXXX P (XXXX) -- PLAY FILE AT XXXX R (XXXX) -- COMPOSITE SCORE-PLAY COMMAND S (XXXX) -- SCORE FILE. STORE AT XXXX V (XXXX) -- VERIFY FILE AT (XXXX) W (XXXX) !FILENAME -- WRITE FILE CURRENT OR XXXX (XXXX) AND (YYYY) ARE OPTIONAL PARAMETERS * "b "g "L "R*+""++"d>12 }2|2!͉͊!((͓!!!k !> * THE MUSIC SYSTEM FOR CP/M VER. 1.9 * MEMORY RANGE: (C) 1979 J.A.PREST}͉ ÉŸ|}!w s#r :[_!~![4\ͤ2[õ7U>?  mͤ!o"k> LOSING FILE READ ERRORS NO FILE SPECIFIED NOT A CURRENT LINE  IS NOT A MUSIC SYSTEM FILE. NO MORE DIRECTORY SPACE FILE OPEN ERRORHEX NUMBER ERROROUT OF MEMORY RANGEFILE STRUCTURE ERROR32 NOTES/VOICEVOICING ERROR 3 MAX  only be used by the PLAY command. For this reason the GET, WRITE and PLAY !FILENAME commands deal only with the 'human' portion on the music; the ASCII file. When a score is compiled it can be placed in memory immediately after the ASCII file or at some other place in memory. Once the MUSIC SYSTEM is playing a piece it can only be stopped by resetting the computer. The program can be restarted by using a MONITOR command or the front panel switches to EXECUTE 100H. The program will not initializ * MUSIC SYSTEM ON CP/M * * by J. A. Prest, DART * This program is based on a program from SOFTWARE TECHNOLOGY which is available on cassette from a few computer stores. The music included with the original tape is by Jon Bokelman. I have reconfie again and your music will not be lost. Files created by this program are given the filetype of .MUS. To become familiar with the way a file is written bring up the program, GET a file and LIST it. The following commands are valid after you see thgured it from its original SOL based operation to a system that is more compatable with CP/M. Additional commands have been added to allow saving and recalling programs from disk files, a character oriented EDITOR and improved error handleing routinese prompt: AUTOLINE Places the command processor in an auto-line number mode. If a SPACE is typed immediately after the prompt the program will print a line number 10 higher than the last line number in the file. The data for the new line may. The music is entered with line numbers similar in format to many BASIC entry systems. After the music has been entered the score is compiled (S command) and then played (P command). The compiled score bears no resemblence to an ASCII files and can  then be entered. In this mode the prompt will change as an indicator that the mode is turned on. Typing A as a command again will turn off the AUTO mode and the prompt character will be normal again. CATALOG Print the CATALOG of files on the   After the file has played the PLAY command alone will play it again, Sam. RUN Score the current file immediately after the ASCII portion of the file and play it. R XXXX Score the file at XXXX and play it. SCORE SCORE the current file imme in the edit buffer. E XXXX Go to EDIT mode and place line XXXX in the edit buffer. See EDITOR instructions for more detail. GET !FILENAME GET a file called FILENAME from the disk and load it at minimum memory. G XXXX !FILENAME Load thdiately above the ASCII portion of the file. S XXXX SCORE the current file at XXXX. VERIFY VERIFY the current file. V XXXX VERIFY the file at XXXX and make it the current file. WRITE !FILENAME Verify the current file and WRITE it on the e file at XXXX. After the G command is used and the file is loaded the file will be VERIFIED automatically. LIST LIST the current file. L XXXX LIST line XXXX in the current file. L XXXX YYYY LIST lines from XXXX to YYYY in the current file.  disk calling it FILENAME. W XXXX !FILENAME Verify a file at XXXX and WRITE it on the disk calling it FILENAME. Numeric values do not need leading zeros. Only the first letter of the command need be used. The FILENAME in the G, P and W commands MENU Print a list of the commands. NEW Start a NEW file at the minimum memory location. N XXXX Start a NEW file at XXXX. PLAY PLAY the currently scored file. P XXXX PLAY a file scored at XXXX. P !FILENAME Load FILENAME at minimum me must be preceeded by an exclaimation point (!). The FILENAME may contain any upper case alpha or numeric characters, be up to eight (8) characters long and may not contain any spaces. The program will normally read programs from the signed-on drive mory, score the file immediately above it and PLAY the file. P XXXX !FILENAME Load FILENAME at XXXX, score the file immediately above it and PLAY the file. P XXXX YYYY !FILENAME Load FILENAME at XXXX, score the file at YYYY and PLAY the file. or another drive may be specified by including the standard CP/M drive specification immediately after the exclaimation point and befor the FILENAME. Example: G !B:ALLEGRO When the MUSIC SYSTEM is first started it prints the following: The MUS signed-on disk with the filetype of MUS. C !DRIVE: Print the files on specified drive. DELETE XXXX DELETE line XXXX from the current program. D XXXX YYYY DELETE lines from XXXX to YYYY. EDIT Go to EDIT mode and place the last line edited  ommands are available: DELETE Back-up the cursor and remove one character from the line. ESCAPE or Takes you out of the INSERT mode and back to ALT MODE the editor. Any changes will be held in the edit buffer. Any printing Will be ined in memory. Be sure to allow space for the file to be scored. The scored file will often be larger than the ASCII file. Files with the file type .MUS are MUSIC SYSTEM files only and cannot be edited with the CP/M editors due to a difference in filserted into the line and the ASCII char. cursor will move one place to the right. With the Look, Restart and Insert commands use only the first letter of the command (L, R & I). The character will not echo to the screen. When you are not in the Inse structure. The files are stored with a character count byte followed by the ASCII information and terminated with a CARRIGE RETURN. The file is terminated with a HEX 01. The EDITOR To EDIT a line type E and a line number. The editor will prinert mode the SPACE and DELETE commands may be preceeded by a repeat factor of 1 to 9. CARRIGE RETURN will end the edit session and place the changes into the file. Control-X will cancel the current line, terminate a listing or take you out of the Et the entire line and then just the line number. The following commands may then be used: SPACE Moves the cursor to the right and prints one character from the line. DELETE Moves the cursor to the left one character. Look Prints the reDIT mode with no changes to the file. Control-P will flip-flop the printer on and off. Control-C will send you back to CP/M. DELETE can be either the regular DELETE character (7FH) or the BACK-ARROW (5FH). It is usually best to allow a small ist of the line and then the line number Restart Cancels any edits that have been made on this line and restarts the editor. X Goes to the end of the line and enters the Insert mode. Insert Enter the INSERT mode. The following cncriment between line numbers rather than making them consecutive. This will allow a forgotten measure to be added at a later time. ++ ERROR MESSAGES ++ Error messages are set off with plus signs. When an error occors the line in which thIC SYSTEM for CP/M Ver. N.N Memory Range: MIN MAX FILE PARAMETERS * The file parameters should be the same as MIN. When a file is VERIFIED or SCORED, the parameters will be printed at the end of the command. More than one file may be stor   can be a number to help identify various measures. V Digit All of the notes following are added to (1-3) any previous notes of this measure belonging to the voice named by the modifier. 32 notes maximum. < Hex Digit All the note be printed. PROGRAM VARIABLES Note Note Musical Modifier Name Value Equivalent # ACCIDENTAL SHARP W WHOLE NOTE & ACCIDENTAL FLAT H HALF NOTE % ACCIDENTAL NATURAL Q QUARTER NOTE ' SHORTs following are transposed (0-F) down the number of semi-tones specified by the modifier. > Hex digit All the notes following are transposed up the number of semi-tones specified by the modifier. * None Unless otherwise indicated, ARTICULATION I EIGHTH NOTE " LONG ARTICULATION S SIXTEENTH NOTE , STACATTO T THIRTY-SECOND NOTE . DOTTED NOTE X SIXTY-FOURTH NOTE : TRIPLET $ Rest for duration of Note Value symbol. SYMBOL MODIFIE all notes following are assumed to be + . (Treble cleft) @ None Unless otherwise indicated, all notes following are assumend to be - . (Bass cleft) ^ Signed HEX Transpose only those notes following (+ -) (0-F) that belonR MEANING / None All characters on the rest of the line are ignored. A REMARK line. P Any letter Define beginning of part identified (A-Z) by the modifier. Any previous part is ended. If the part was previously dg to the current voice up or down the number of whole steps indicatedby the modifier. K Digit Char Key signature is defined by a number (0-7) (# &) and type (SHARP or FLAT) specified in the modifier. If this symbol is omitted the keefined, the old definition is lost. R Any letter Repeat the part named by the modifier. (A-Z) Tempo can be changed here if desired. M Any character Defines the beginning of a measure. or characters Any previous measure is ended. Modifiery defaults to C-MAJOR. N Character Correlates the length of a note (H,Q,I,S) type in the modifier to the length of a beat. Sets tempo. = 2 Digit HEX Equates the length of a beat to (00-FF) the number of internal machine cycles se error was found is printed with a ? in place of the bad character. If the error was detected while the score is being compiled the editor will be entered automatically at the problem line. In the case of a disk error only the error message will  he program. The key may be changed within the program. The tempo is set with the N(modifier)=(00-FF) specification. Example: NQ=40 The quarter note (Q) will require 40 internal machine loops to complete. The tempo can be changed within the progr8----- TREBEL 7 --------------6------- CLEFT 5 ------------4--------- 3 +3 ----------2----------- -- +2 -- 1 +1 -- 0 -- MIDDLE C -- 0 -- -1 am by adding extra N specifications. Only one tempo specification can be made for a part. The front panel switches should normally be left off to allow the file to play with the tempo specified in the program. Changing the front panel switches while 1 -- -2 -- ------------2----- -3 3 ----------4------- 5 BASS --------6--------- 7 CLEFT ------8-----------  the file is playing will cause the tempo to be set by the switch positions. This allows experimentation with the tempo. When you find the proper tempo enter the hex value of the switch positions into the N specification of the file. There must be a 9 ----A------------- B -- C -- D -- E -- F The staff position of a note is defined by its relation to middle-C. Middle-C is always 0 t least one PART and one tempo specified for the file to score properly. The following circuitry can be added to any wire-wrap board or a regular board which has some extra space. S-100 I I PIN 1K I I 28 <-and every other note is a positive or negative displacement from it. The displacement is counted 0-9 and A-F (hex numbers). The displacements A-F do not correspond to the musical values of A-F. The key of C is assumed unless otherwise specified by t--/\/\/\/--O----O---I I-------> TO AMPLIFIER PINTE I I I I I \ I I .1UF I / ----- \ 10K .1UF ----- / I \ 1/4 watt 10% resistors I I 20 volt ceramic dipecified by the modifier. MUSICAL NOTE SYMBOLS F -- E -- D -- C -- B ------------------A--- 9 ----------------  v~AUTOST.ASML o! #"$%&'(+),*-./0123546798;:><@=?ADBCEGIFKJHjIYC{UCt;l/4]*NCGCY#! \kJn_WXao63X<1 gc@yODlj6g(iƼ3tƼt&  =PBO; +4{sk capacitors --O--- I ----- --- - -0-  I / ----- \ 10K .1UF ----- / I \ 1/4 watt 10% resistors I I 20 volt ceramic di  VOICE ADD M DB 0D9H ;EXX FOR Z-80 DB 08H ;EX AF,AF' FOR Z-80 LHLD V3PT DAD B SHLD V3PT MOV L,H MVI H,WAVE3/256 ;PAGE FOR 3RD VOICE ADD M LHLD V4PT DAD D SHLD V4PT MOV L,H MVI H,WAVE4/256 ;PAGE FOR 4TH VOICE ADD M OUT AYz8Pؚ<9ݥlC>,71wCπ ̞- 4+x͕u gC=Oe0`3 2,Bp6sP͟e ~Y@?DBAC+[@[ h-lG B͆zPPu6ԣwot~.llG E h_gC=Z|w]شP:BΆz.}:U+++P:BΆz.}?6mm6ԣΆzЯ-tJF.V[ h-lG {~͆zPPu6ԣ\ٕ]ٕ]ٕ]ٕBlG E h_gC=Z(jk-EoFGHIJ[m8 +aKz0|1yV;ׇ7.ľ9yᔅm;vxYyۯЃ%-ĹV_g`ia 9giOm8 B߻k,[u̝9^$e@?vLÝ{PնY6|S[e-RkI1|1~\ ) 0, ֶ Vu6ԣ~ 6BQgC=ZPlG E h%?jIYC{UCt;l/4]*NC:BΆz.}?6mm6ԣΆzЯ-tJF.V[ h-lG {~͆zPPu6ԣ\ٕ]ٕ]ٕ]ٕBlG E h_gC=Z(jk-:܏]a=ӱeǀXكs@j۬EA;%-.Ww²pi RS8y=ڝjoTmm)|&}=\c k_ ~BFQz(-q͝ն#ܸjj#4KH32mjv'ܸ;Q܅Q۳~g')d%ԯK }G=Iڶa>+wIfbն6Y K~~\M4̌TJ]DoynfGX) MOV L,A MOV D,M INX H MOV E,M DB 0DDH,23H ;INC IX DB 0D9H ;EXX TON1 MVI A,64 STA TEMCT TON2 LHLD V1PT DAD B SHLD V1PT MOV L,H MVI H,WAVE1/256 MOV A,M LHLD V2PT DAD D SHLD V2PT MOV L,H MVI H,WAVE2/256 ;PAGE FOR 2ND b>+wOjr$M4̤UJ]CgfY~d:mڨ=qf^!~2>`~2֯2\!!B!~> >#0~O4KH32mjv'ܸ;Q܅Q۳~g')d%ԯK }G=Iڶa>+wIfbն6Y K~~\M4̌TJ]DoynfGfC+= lR}Y Ƽ@Yľy=!fYľy=!ƃ ]9˘Á1'nYľy=!&x͕uƼtZp gc   23 ;130 E6 1318.5 38.4812 ORG NOTES+100H ;MUST BE ON PAGE BOUNDARY WAVE1 DS 100H ;1ST VOICE WAVE2 DS 100H ;2ND VOICE WAVE3 DS 100H ;3RD VOICE WAVE4 DS 100H ;4TH VOICE TUNE ;SCORE CODE BEGINS HERE END 100H a?!7FILE NOT FOUND $TYPE COMMAND T - LOAD TUNE W - LOAD WAVEFORMS P - PLAY TUNE Q - QUIT (TO CP/M) ${!!aڀڀ!a"ENTER FILE NAME $ !>m > mc#~+:~##@[?~#.~#U~#?&*-;4 >?m 4+*?,?.? _?:?@ , ;7> #e>u  m*|*~#"TYPE +OR-NN...+ FASTER...NN IN DECIMAL$ERROR...TEMPO UNCHANGED $TYPE +OR-NN...+ UP SCALE...NN DECIMAL$ERROR...TUNE UNCHENGED $MUSIC PLAYING PROGRAM COMMANDS W...LOAD A WAVEFORM T...LOAD A TUNE S...SET TEMPO FASTER OR SLOWER M...MOVE TUNE UP OR DOWN SCALE P...PLAY THE TUNE Q...QUIT-TO CP/M $COMMAND?...$a!" UP SCALE...NN DECIMAL$ERROR...y/x>y1!!TʫWʢQSM!P ! !""""&~2#~oF#N#~oV#^#~&oF#N#~oV#^#>@2* "l&~*"l& * "l& *"l& !5!5ˆC ?!!~TUNE UNCHENGED $MUSIC PLAYING PROGRAM COMMANDS W...LOAD A WAVEFORM T...LOAD A TUNE S...SET TEMPO FASTER OR SLOWER M...MOVE TU@ UP OR DOWN SCALE P...PLAY THE TUNE Q...QUIT-TO CP/M $COMMAND?...$a!" UP SN DECIMAL$ERROR...17 DB 25,175 ;116 A5 880.00 25.6831 DB 27,54 ;118 A5# 932.32 27.2103 DB 28,212 ;120 B5 987.76 28.8283 DB 30,139 ;122 C6 1046.5 30.5426 DB 32,92 ;124 C6# 1108.7 32.3588 DB 34,72 ;126 D6 1174.6 34.2828 DB 36,82 ;128 D6# 1244.5 36.3214 DB 38,1  SIC program that takes as input a file created with ED which gives the time and notes for each voice and outputs a file that undergoes the SUBMIT FIX FILENAME routine and then is loaded by MUSIC4 with its T command. The input to notes is fairly straight forward. On each line the format is: TIME VOICE1 VOICE2 VOICE3 VOICE4 TIME is a number which is the reciprocal of the duration of the note. Thus 1 is a whole note, 2 a half not 4 a quarter note etc. VOICE1, VOICE2 etc. are in the form A-G1-6#. That MUSIC4 is the end result of a lot of playing around. The original idea came from several articles in various magazines and one in particular in BYTE with a program for the 6502. Making this work for the Z80 makes you appreciate the 6502. Anyway, now it is, a lette specifying the note of the scale, a number specifying the octave, and optionally a # to indicate sharp. No flats. B flat must be written A#. (you get used to it) The numbers in the table in MUSIC4 which set the actual pitches produced may  is all tied up with CP/M so that tunes can be called up by name from the disk, different waveforms can be loaded, and tempo and pitch altered from the console. The EBASIC program AWAVE provides the facility for making up the waveforms. After it runs, dneed to be modified to get absolute pitch correct and are dependent on the system clock. Oh yes! almost forgot. MUSIC4 won't run on the 8080. It barely makes it with the Z80. ncluded are some music files so you can try it out. Sorry, no disco. Noteoing SUBMIT FIX FILENAME will remove the quotes from the file, assemble it to get a hex file, LOAD it to get a binary file, give it an identification of FILENAME.MUS and erase the debris. MUSIC4 can now load it using its W command. NOTES is another EBA that Ihave made use of some CP/M Users Group stuff in constructing this. What a relief to my soul to be making a contribution at last. Botter Reeves Bangkok 5 Sep 1979 #4FZn%Eh6g Ifl5  1 q jE.$)>b>6 \"H$R&{   IF END #2 THEN 300 10 PRINT #1; ORG$ PRINT #1; DB$+TEM$ LINE=1 100 READ #2; ST$ PRINT LINE;":";ST$ IF LEFT$(ST$,1)="0" THEN 300 IF LEFT$(ST$,1)=";" THEN 400 LST=LEN(ST$) FOR P=1 TO LST IF MID$(ST$,P,1)=" " THEN 110 NEXT P 110 IF P=LST THEN AEACH OF FOUR VOICES. NOTES IN THE REM FORM C3#, D4 ETC. SEPARATED BY SPACES. REM OCTAVES FROM 1 THROUGH 6 (C1 TO C6) REM TIME IS 1 FOR WHOLE NOTE, 2 FOR HALF, 4 QUARTER,ETC. REM FILE MUST BE EDITED TO REMOVE " SIGNS BEFORE REM RUNNING ASM. ED MS"^=P+1 ELSE A=P FOR I=1 TO A IF MID$(ST$,I,1)<"0" OR MID$(ST$,I,1)>"9" THEN 930 T$=STR$(INT(128/VAL(ST$)+.5)) IF MID$(ST$,A-1,1)="." THEN T$=STR$(VAL(T$)+.5*VAL(T$)) FOR I=1 TO 4 IF P>=LEN(ST$) THEN V$(I)="R" : GO TO 140 ST$=MID$(ST$,P+1,LEN(ST$)-P) Z^Z REMOVES ALL "S FROM REM A FILE. DIM V$(4), N1$(4), NOTE$(66) FOR I=0 TO 65 READ NOTE$(I) REM SET UP TABLE OF NOTES C1 TO C6 NEXT I DATA "R","C1","C1#","D1","D1#","E1","F1","F1#","G1" DATA "G1#","A1","A1#","B1","C2","C2#","D2","D2#","E2FOR P=1 TO LEN(ST$) IF MID$(ST$,P,1)=" " THEN 120 NEXT P 120 CR1$=MID$(ST$,1,1) IF LEN(CR1$)=0 THEN V$(I)="R": GO TO 140 IF (CR1$<"A" OR CR1$>"G") AND CR1$<>"R" THEN 900 CR2$=MID$(ST$,2,1) IF (CR2$<"1" OR CR2$>"6") AND CR1$<>"R" THEN 910 IF P<4 THE" DATA "F2","F2#","G2","G2#","A2","A2#","B2","C3","C3#" DATA "D3","D3#","E3","F3","F3#","G3","G3#","A3","A3#" DATA "B3","C4","C4#","D4","D4#","E4","F4","F4#","G4" DATA "G4#","A4","A4#","B4","C5","C5#","D5","D5#","E5" DATA "F5","F5#","G5","G5#","A5","AN 130 IF MID$(ST$,3,1)<>"#" THEN 920 130 V$(I)=MID$(ST$,1,P-1) 140 NEXT I FOR I=1 TO 4 N$=MID$(V$(I),1,1) O$=MID$(V$(I),2,1) S$=MID$(V$(I),3,1) IF (N$<"A" OR N$>"G") AND N$<>"R" THEN 900 IF (O$<"1" OR O$>"6") AND N$<>"R" THEN 910 IF S$<>"#" AND L5#","B5","C6" DATA "C6#","D6","D6#","E6" HT$=CHR$(9) ORG$=HT$+"ORG"+HT$+"100H" DB$=HT$+DB$+"DB"+HT$ END$=HT$+"END"+HT$+"100H" INPUT "INPUT FILE NAME"; IF$ INPUT "OUTPUT FILE NAME"; OF$ INPUT "TEMPO"; TEM$ FILE OF$ IF END #1 THEN 10 FILE IF$ EN(V$(I))>2 THEN 920 FOR J=0 TO 65 IF V$(I)=NOTE$(J) THEN 200 NEXT J 200 N1$(I)=STR$(2*J) NEXT I L$=DB$+T$+","+N1$(1)+","+N1$(2)+","+N1$(3)+","+N1$(4)\ +HT$+";"+STR$(LINE) PRINT #1; L$ LINE=LINE+1 GO TO 100 300 PRINT #1; DB$+STR$(0) PRINT #1;REM PROGRAM TO MAKE ASM FILES FOR CONSTRUCTUNG REM TUNE TABLE FOR TUNES TO BE PLAYED BY MUSIC3 REM PROGRAM. REM READS FROM FILE PREPARED BY ED PROGRAM. EACH LINE REM OF INPUT IS A LINE OF OUTPUT. REM LINES HAVE THE TIME AND A NOTE OR REM A REST FOR   0010 / STAR WARS 0020 / ARRAINGED BY BOB YARUSS 0030 / VERSION 1 0040 / 9/5/77 0050 / ALL SENSE SWITCHES DOWN 0090 / 0100 K1# 0110 NQ=30 0200 PA 0210 M1 *I:1'1'1' 0215 PB 0220 M2 H48V2Q1-164V3@QABCD '0230 M3 *I:765HBQ8V2I:42$Q864V3@Q789A '0240 M4 *I:765HBQ8V2I:42$Q864V3@Q789A -0250 M5 *I:767H5Q:1'I:1'V2I:53%$Q3#1V3@QBDD 0260 M6 *H48V2Q1-164V3@QABCD '0270 M7 *I:765HBQ8V2I:42$Q864V3@Q789A '0280 M8 *I:765HBQ8V2I:42$Q864V3@Q789A 0285 PC 00290 M9 *I:767H5Q:1I:1V2I:53%$Q3#1V3@QB%HD'QD' 0300 ,0310 M10 *Q.2"I2"7"6"5"4"V2H0Q42V3@Q$HDQD" ;0320 M11 *I:4"5"6"Q:5"I:2"Q3"Q:1I:1"V2I:2$$Q$1V3@QD"HDQD" 0330 M12 '0340 M12 *Q.2"I27654V2Q0-342V3@QDHDQD /0350 M13 *V1I.8S5H5Q:1I:1V2I.6&S$H3V3@QF&HDQD &0360 M14 *Q.2I27654V2Q0-342V3@QDHDQD 10370 M15 *I:456Q:5I:2Q3Q:8'I:8,V2Q2Q:2V3@QDHDQD J0380 M16 *Q:BI:A%Q:9I:8Q:7I:6&Q:5I:4V2Q:9&I:7Q:7I:4V3@Q:9I:8Q:7I:6Q:C&I: 0390 B%Q:I:9 0399 ,0400 M17 *H.8I:1,1,1,V2Q$55V3@Q$I:D,D,D,D, 0410 PD RB 0415 PF 10420 M25 *I:767H5Q8V2I:53%$Q3#1V3@QB%HDQ:D'I:D, 0425 0430 M26 * END$ CLOSE (1) STOP 400 PRINT #1; ST$ GO TO 100 900 PRINT "VOICE";I;" NOTE ERROR" GO TO 100 910 PRINT "VOICE";I;" OCTAVE ERROR" GO TO 100 920 PRINT "VOICE";I;" SHARP ERROR" GO TO 100 930 PRINT "TIME ERROR" GO TO 100 END   QBQ$ 20100 M4 V1*H.7I8I5& V2@Q7IA#I9Q7I7#I6 V3QBQ$QBQ$ 30110 M5 V1*H.5&I5&I8 V2@Q4I7#I6Q4I7I6 V3@Q8Q$Q8Q$ 70120 M6 V1*I5&I3Q$H$ V2@Q4I7#I6I4I4I7I6 V3@Q8Q$I8I8Q$ <0130 M7 V1*I.3S5I7IAICIB%IAI8 V2@Q7IA#I9Q7IAI9 V3@QBQ$QBQ$ 60140 M8 V1*I6%I7H$I$I7 V2@Q7IA#I9Q7I6#I5 V3@QBQ$QBQ$ 60150 M9 V1*QBQBI9I7I$I7 V2@Q3I6#I5Q3I6I5 V3@Q7Q$Q7Q$ A0160 M10 V1*QA'QA'S9&SAS9&S7I6I4# V2@Q4I7#I6%Q4I7I6 V3@Q8Q$Q8Q$ B0170 M11 V1*Q6%Q6%S6&S7&S6S5&I3I0% V2@Q7%IA#I9Q7IAI9 V3@QBQ$QBQ$ 0175 PB 60180 M12 V1*I2&I3Q$H$ V2@Q7IA#I9I7I7IAI9 V3@QBQ$QBQ$ 0190 PC RA 0195 PD 00200 M13 V1*I2&I3Q1Q0Q-1 V2@Q7Q8Q9QA V3@QBQ$H$ E0210 M14 V1*Q-2QCQ$IB%IB% V2*Q$QAQ$I9&I9& V3@I7I7IA#I9'I7'I7'IA'I9' 30220 M15 V1*Q$QCQ$Q0 V2*Q$QAQ$Q$ V3@I7I7IA#I9Q7Q7 *0230 M16 V1*Q3I5&I3I6Q.5 V2@Q4I2&I4I1Q.2 ?0240 M17 V1*QA'QA'IA'IA'QA' V2*Q6Q5%I6'I6'Q5 V3@Q+1Q0I+1I+1Q0 40250 M18 V1*Q3I5&I3I6'I6'I5I3 V2@Q4I2&I4I1'I1'I2I4 '0260 M19 V1*I5&I6H6I3I5& V2@I2&I1H1Q$ 40270 M20 V1*H.5&I5&I8 V2@Q4I7#I6Q4I7I6 V3@Q8Q$Q8Q$ 80280 M21 V1*I5&I3Q$H$ V2@Q4I7#I6I4I4I7I6 V3@Q8Q$I8I8Q$ =0290 M20010 / BABY ELEPHANT WALK 0020 / 0030 <2 0040 K1& 0050 NI=50 0060 PA B0070 M1 V1*I.3S5'I7'IA'ICIB%IA'I8' V2@Q7IA#I9Q7IA#I9 V3@QBQ$QBQ$ 70080 M2 V1*I6%I7Q$H$ V2@Q7IA#I9I7I7IAI9 V3@QBQ$IBIBQ$ A0090 M3 V1*I.3S5'I7'IA'ICIB%IA'I8' V2@Q7IA#I9Q7IAI9 V3@QBQ$2 V1*I.3S5I7IAICIB%IAI8 V2@Q7IA#I9Q7IAI9 V3@QBQ$QBQ$ :0300 M23 V1*I6%I7'Q$Q$I$I7 V2@Q7IA#I9Q7I6#I5 V3@QBQ$QBQ$ 70310 M24 V1*QBQBI9I7I$I7 V2@Q3I6#I5Q3I6I5 V3@Q7Q$Q7Q$ ?0320 M25 V1*QAQAS9&SAS9S7%I6I4# V2@Q4I7#I6%Q4I7I6 V3@Q8Q$Q8Q$ B0330 M26 V1*Q6%Q6%S6&S7&S6WB"V2Q8686V3@ABCD -0440 M27 *H.BI:B,B,B,V2Q868I:8,6,8,V3@Q789D 0450 M28 *QBV28V3@A q00/0000 M17 *H.8I:1,1,1,V2Q$55V3@Q$I:D,D,D,D, 0410 PD RB 0415 PF 10420 M25 *I:767H5Q8V2I:53%$Q3#1V3@QB%HDQ:D'I:D, 0425 0430 M26 *  64 $0250 M31 *W4 V2*I$1$1$1$1 V3@Q3568 +0260 M33 *I4,4,5,6,4,6,5,1, V2@H66 V3@HAA *0270 M35 *I4,4,5,6,Q41 V2@Q66H6 V3@QAAHA -0280 M37 *I2Q5I2I.3S4I53 V2*H0#H0% V3@Q356D 0290 PC (0300 M39 *H4I4"I455# V2@H1I1 V3@IA6543 0310 PD RB 0320 PE +0330 M41 *H4I4$B V2*H-1I-1$6 V3@IAQ5I63$A !b00020 /YANKEE DOODLE DANDY - BY GEORGE M. COHAN +0030 /COMPUTER TRANSCRIPTION BY DAVID AHL 0040 <3 0050 K1# 0060 NS=90 0080 PA 30090 M1 *I4,I4,I5,I6,I4,I6,I5,I1, V2@H6H6 V3@HAHA ,0100 M3 *I4,I4,I5,I6,Q41 V2@Q66H6 V3@QAAHA -0110 M5 *I2Q5I2I.3S4I5,I3 V2*H0#0% V3@Q356D .0120 M7 *H4I4$B,4 V2*H-1I-1$6 V3@IAQ5I63,$A, 0130 PB (0140 M9 *Q.6I5"I5434 V2*H11 V3@IA6D6H8 *0150 M11 *H5Q.2"I2 V2*H0#0# V3@I93539353 '0160 M13 *Q.5I65321 V2*H00 V3@I67Q864 )0170 M15 *H4Q.4"I6 V2*I$1$1$1 V3@Q356I8 -0180 M17 *Q6"Q6I4#568 V2*H1Q14 V3@IA#5C5Q8C +0190 M19 *Q76H5 V2*Q21H0 V3*I95A#59Q5"I5, '0200 M21 *I6Q5I42Q4I6 V2*W0# V3@Q3535 )0210 M23 *H5Q.5I1 V2*H0Q.0 V3@I4Q6I5454 )0220 M25 *Q.6I5"I5434 V2*H11 V3@IA6D6H8 #0230 M27 *H52 V2*W0# V3@I93539353 '0240 M29 *Q.5I65321 V2*H00 V3@I65Q4S5&I3I0% V2@Q7%IA#I9Q7IAI9 V3@QBQ$QBQ$ -0340 M27 V1*Q3Q0Q1Q0 V2@Q7%Q7Q6Q7 V3@QBQ$H$ 0341 PE 0345 NI=70 0350 M28 V1*W2& V2*W-2 V3WB qPPqPPp$6 +  ] ^ y A -"tm{xˮ.{]7~X`V@,ڠwub]C,0޲K,r2JV>{B VGWz5% ^em6Q@!umybt 6xˮ.{]7? V݌?QYBnjX-bY_!VhAXеA}[vuSe" P8c޶mLo̻ ci Q81bd!zn|'Cv~n_F0Q{l￯޿I7/l~pȖW3]4.10clGƁCZ_3|E,ۛr׀bXZڙg?Ī5:ĪbL}8Wl*cw%+?eX5j6=bVq 趒K pOxO= X5r󌌷A@xO+vD Vm KL܌mzԵ:›mlN(wXt ʙޘgmj}mn䅞ܜq!W3]4YCq>41qG9QovsFOޣ(FWz|tA#@uX=z|te{S^iN?lo]?e+6kuzg&ß2lo]2}:q ɻ pИgX7 ]pXYXB{ܺ&==[a;ZȖ?i?jktP?== Bl(X5l-0btq>σئ'VEXF͸܂CL?y>G. _rvlB愹4x~1 ڱib4s ?NlVqHL @7:q+6kuzgzaAsi'XYXB,ۛr8.]+ qx8'o+Sۮ[ jkb{jk`+ XF_ Oy_k ?^S8d<#[ Mj! ڈbw6U[#X­0' Vm?+S[s c'~b'VVm#N?\ҏ6G;GI`w6cV%'wvW؆+l;)wu]#<f?11/ۛrW0+6kuzg&VlĊZbbޔ/tZ Y趒co+Sۮ[a0?ћX5Bob{jk`+ Pxqɮ9J V_ ?^S8=bKNېm5l$oٵ k\bV\%'wQGp ]]aVfAb]x+X .9ѕ.9!kt=bKN۠6{ Տ2Jq>.[vmkĚ'X`W@p ]+<}+\rBpWwWGհ{X`eF,0 + =㭿bKNZ=]fX|3m4+98K5HïA0al5H^x[ڄa{\FI/OZp wجU° f _yF`MA'k\knq>{*/Wq>ߢvO ƻoI?'(MX5ó&ߞܜyB%BQWNb{j¥yMڨ- Z/'Wv:  :3=bV؅X7q ]V]\F8P lo*/pfK2A.vgWu\Eڨg)ٌmzbf"+G>!VmRFYl6=lo]Х^Յe vOO,ڠSU!&6¥\ 4w"%&Ó(ٮQN)6:(6k'=$V5ĪʇZ|6]wbeI,Nm-x+X`֋XYbֵ6bfU%V AZ*/OV[/b? bVw6nbՂ[qS%&f?Q@NxWljY}2'Mf{]FOΓ/X2- `.-LõOLN'@~zfEx2'Vlxma?O^2JA,x MA'^2^GOqvPDxXAoA\o]>?d;~bԍB7FၼQE,+6ku5JS#={{C"Ę'h?m28)eG&8AKL;L_>4YsēH$1&Y4cta5z8ˈyϚo(ݹHda`"_D'1&]Lbbbv~A˴? 6ϥ ˴XQqS%ok\bՂ[˴p3mc?Vr)dԍB7FၼQEL,Nج$={{CLzndl%?|H;gdcnre{S <ĊZٸu[.?ıp).-11>ϖvc{'8<ٸuMQfx oy]#{*ĊZ]a@bE{ ĺ;s)l͇Lov?[Cӧkq6-'l!aNᛙxbyܟK6QrĈh ~9<$&^g!}ĨO!}Ĩ]8i~%&&g!(t 'lLob(t%^B(Bbu58gK߈SmuZ01q+2eڟ ?$֍BWAXe{S׺x-Xbbwz @"j}NX=!Vl w^= =tU!&>i?1_d{Sa~{*{_8 3eĊZ]a@b{6yFK^V>"*X7~, /2P@#bVw6`勇ns+Lج2u[A8ˇgu[01bV{P8a7&[X gte vg bO0=5&V8KvEçG㭶<K 38F =Ě'WX"VX%J8AK%?h9Z V5ۮ0"&V&&< 3L؝q18KvC LL,k]820inbU!&cPv']cYnG4*\ڞg4k,].mOH;Zȃ]cYBpiҎr2 5. w۶<5. @"FIxnXV[DOn+-_r)d;i?18Q%Vl*L=W8X 'å a\*Κgd-d;i?1X?ĊZٸ~.@ج߀01x@8χ'Qrٸ(Ě'WXښ[abī&&xO)wC˴?sbf[mĚ'W%^!f/2JQ~܊ß2,11_d{S @bfNlĪ KL_NV`34󌼦oess7͢?FL~%o+S[gK(/Ċqu'VB,Nm-xZ%o+S[gKڨeIxOm!  2@^B,0j+ = ./y/Ă >Xbb guޛDx}N EtK P2|pD}t7]cYnPl?b{aDo"<>Ï4 QL?Q?lXV[Dӟ2.m g۶ya, d4ve ¥Ўf{e]cYBpi{Lv-ve bHXDbbb{jnA$V!&VXDbbb{j[bHLxOmN"J$&VĊ HLxOmqK111e|7;C.~ Q2,Dx薘g˴6Ä9e!TXE8?@B hĊZ]a@bTX_%巐-ˏbT\oXY+ HҊBlo]E8?y/yF^8im^vܜw'&%7q lfџ(Lkqrr,yq^1 /X#vG[.C勇:˴2.bXth^;/ (/k7$xZOXbOjeZ{&1& ?b30awF/9bL3L=ii n:2z'Iq֚fBw5osy^egMD։11`r]4} ?8eVf{#Fu߻vC^yP?}?q𔣏#o_c+ U_8A~F.48oA1A巐NG >9<1 #FUum$'hB(\P8}Ĩ']/tQګp;iN'/tY~!~)L3ʰy(\꼄p؟ ]_.9 P) P=?2J2[ޘ-ifF_ecUf˽q~^+vҎ>$z>L1~ bDx80^q;Y~%=?X?iO6/;bw>1V"< w Pϊ1{¦wuM9}6_QؔCТOwxX)@UǧTE<}|)@UxvbLOϱ|E78*SĘ |-#q>(FU?( Px9|l+\rVGQȑCpYKRLS|^}bK~)]|R{Epi_pGa׳cv^Hܟ}bK Y0qn#3S!@''/tW<+V?/tY~lX,lLk֢$+;Y~%YX@ˇ)&11[%2@.~b0ad]4}pO^B,ۛ æХ^$VhAX`VX4YbP~ιX(X%J8?h9|^-d-˺6h4m%.zܟ}Opi_zf弴S ]鿴.#]Q|=։.;{G]Pz:NXҾJx˸wQ7vwbK•7͎t.|*uB:Mt rK׮n"}fّ}bKZ=UGRovѩ?+\֎pUWhV}USU/bKD ?Jȧz7"Ó(٬?dt[7UeǷ01vCQ~F>/bMS&&VEQ8cw~YUkd7 L򏄉VxOukp.,K.ېi8bԵ:Īi%LLlǷ!MSN0?x}J߇K.@0j}&V=*H2J!JNo1Z|nfll$'ӿ$&~7"   !qq7Nq\bDHGe_NEpVR_jzYߝXRGS;ev*MS+\꯻S w*-.}q7¥_Oqc>EpY_)?^7zW}5Q~ ~w3C+ěwq\|?f{JjwW!cO;+,!cO;+:nnj^+))<:fY/bKuօgGe_NEpVR_jzYߝXRGS;ev*MS+\꯻S w*-.}q7¥_Oq7$VYp#㳋*ivNy+\ꬻS՞*tuWԉ.u #gUϧ1N!V\Oad1_B܉.!׽F_:٩4;~XR}Ȏ*$몛NIp0R4;>A+\z\](ԣԝ¥u? +գyTΓXGKKףY=;X.Z9/zG˫GQc"/bKS^n>>j+\ګu ?:2ͧ2ʩ+\ګKc:ʬ¥KEN;ڟfW ׺;ǎ^O^2_"VΣc]~4Y!'¥:»(ώ#_ vNW4v¥vy)SUf^7$V?Jxw:}ufhV/CprǺԵy*|_HbKվ;Z]|>uU<+\:^4*^wbKkTEcvU/zHbKUݑ}}U;ꛝs'VT!Kxj.z|VR4y+\kW{뱎4Uu^՟ κ?Rhw^c_UXҳZ+z)vhߝԳ2zX"+(tȗeVNpY^:]W׳c>EpY_)?^7zW}5Q~ ~w3C+ěwq\|?f{JjwW!cO;+,!cO;+:nnjU!.UkQY)T]DSY!XRKүT̗SWeNpZ#hTGO;¥jݑϺ+XWev; #cGXWe;Npօ_UӬ?4S+\zViq4y+\z~uԪ.iIp𫮫^=RO< k< ŧcw=+\z.ܯ]?fQ/y #   B@ @@ "D BA @!BAH@ @D@ I$$q"O"* #" *s1y$0!  ~#fo {͐!`͔ #~swa{{2<͜2:o&7?( :* )= ?s1{qs1:`*}.hN(6tq({s1{w:^ŗ2^*Z~H! >wyHG:^ !^~6sP@Q(* "n!"  : 8wTͳ:bgo: GX~!0+#~ 8O(#ͳ0!}o 2^  !^~6(z*}.- 1! "*}.7^#V"!_nC.![!!b![.!R2(!h! ^#V#^#VSIr+s*"}n!S .nV+^+r+s>.j~2l: (+N.< .f~2.7^#VS22+++..1*.N#!.he HELPER.DOC Page # Copyright 1982 Michael M Rubenstein Description. HELPER is a program for the Osborne 1 to make using the computer easier. HELPER includes the following features: - screen printikqqqqqqqqqqqqqq|[qKq[qq[Qqqqqq[qqqq[éúGG*@R8  *" *"}HELPER already active $ ng. At any time, you can print whatever is on the screen (text only, at pressent graphics are not supported and will print as spaces). - filtering of file names. HELPER converts all file names to up!9"1*"}*|<:g.:g*og."{D!*|s"*}~#"}~h# aD**{$  ny programming that has been done for it will be ignored. If you press function key zero (control 0), an "H" will appear at the current cursor position alternating with a solid block. This is to tell you that HELPER is ready to acceptill also reset the RS232 inter face and the device assignments (I/O byte). - escape sequence filtering. HELPER allows escape sequences to be used with horizontal scrolling. (Without HELPER the horizontal  a command. A compromise had to be made to implement protection from termination because of incorrect drive speci fier. CP/M does not provide an error return when a drive is selected. HELPER allows selection of any drive, A: through  scrolling will interfere with an escape sequence if keyboard input is performed in the middle of the sequence.) - protection from program's terminating un gracefully because of incorrect drive speci P:, but does not allow a file to be opened or created on a drive which does not exist. Of course the assumption is being made that the program being run will handle the inability to open or create a file gracefully. Since these are " fication. Using HELPER. To use helper, simply run HELPER with the command helper Alternatively, you can rename HELPER.COM to AUTOST.COM and automatically run HELPER when you start up. HELPER will remain untilnormal" errors, this is usually the case, but occa sionally one runs into a program such as WordStar which does not handle the inability to create a file well (in some cases, WordStar will terminate abrupt ly with a "fatal" error message.) If m you press reset, turn the computer off, or until you enter the HELPER "quit" command (see below). You may now run any programs you like. The one restriction now imposed is that function key zero has been taken over by helper and aore than the standard 2 disk drives are available, HELPER may be patched to allow for the new drives (see installa tion instructions). There are only two commands for HELPER. "p" (upper or lower case) will print the screen on the current per case. This is pri marily useful when using MBASIC. - automatic reseting of setup parameters. HELPER automatically resets the line size whenever a warm boot is executed. Optional ly, HELPER w%   Make sure you mark the diskette with the new CP/M. When switching from one size CP/M to another, you must cold boot. Warm booting a different size CP/M than is currently being used will hang the system. Now HELPER must be patched to ruthen give up. It will signal with the bell that it cannot do the printing. .cp 3 The other command, "q", will cause HELPER to termi nate. This will also terminate whatever program is being run, so use this command carefully if not in above CP/M. The byte at 0106H must be changed to the page at which you want to load HELPER (E9H with the standard system). This is easily done with DDT: DDT HELPER.COM S106 00 E9 F8 . ^C A>SAVE 6 NHEn CP/M command mode. Any other key will leave HELPER command mode, but will otherwise be ignored. Installation. HELPER may be run either below CP/M or above CP/M. As as distributed it will run below CP/M and will take 3k of memLPER.COM Three other customizations may be done (for either choice of where HELPER is to be loaded). Normally, HELPER resets the RS232 interface and the device assignment to those specified with setup whenever a warm boot is performedory. Running above CP/M reduces the memory requirements to 1k, but this 1k will be required even when HELPER is not active. To run above CP/M, you must first create a 59k CP/M with MOVCPM and SYSGEN. The following commands may be us. This can be disabled by changing the byte at 0209h to zero. As distributed, HELPER will print the first 79 char acters on each line when the screen is printed. This is to accomodate printers which automatically skip to the next lineed: MOVCPM 59 * ; generate 59k CP/M SYSGEN ; run sysgen When SYSGEN asks for the source drive, just respond with return. When SYSGEN asks for the destination drive, respond "b", as you normally would.  after the 80th character. If your printer has a line size other than 80, you should change the byte at 020AH to the line size of your printer (or to one less if your printer automa tically skips to the next line). However, the maxi mum list device, as determined by setup and status (the character which was at the cursor position will be restored first). You may cancel the printing by pressing esc. If the printer is not ready, helper will wait for about 5 seconds and &  f this disk contains the MUSIC system from CPMUG.039. I believe this system was designed for a SOL computer, but perhaps someone can determine the proper setup for an Osborne 1. Refer to the .DOC files. Squeezed assembly language .AQM files mas is the reverse of the usual Digital Research drive specification. If a new drive is added, the bit corresponding to the drive should be changed to one. esearch drive specification. If a new drive is added, the bit correspondingy be unsqueezed using utilities found on FOG/UTL.003, .004, and .014. Jim Woolley FOG Disk Librarian May, 1983  DISK.DOC FOG/HAK.015 First Osborne Group (FOG) Hackers Disk The following files were received from the Denver Osborne Group (DOG). Each needs further work. AUTOST is a customized version of the familiar program described in Osborne User's Reference Guide, Rev. 2/82, pp. 247 - 250. CCPPATCH is supposed to provide auto-search of drive A for a file not found on the logged drive. HELPER will print on the list device a copy of text appearing on the screen. It also performs other functions described in HELPER.DOC. It does not appear to properly process a warm boot . PDQFILE is an MBASIC inventory file system described in BYTE magazine, 11/81, p. 236. The remainder o is 128, since that is the logical line size on the Osborne 1. Finally, at 020BH there is a two byte disk availa bility specifier. This is treated as a two byte integer with the A: drive being specified by the high bit (note: thi'  PATCH.AQM CRC = 2E 59 --> FILE: CHORALE .MUS CRC = 45 26 --> FILE: DISK .DOC CRC = CA A5 --> FILE: HELPER .COM CRC = 9B 00 --> FILE: HELPER .DOC CRC = EB 9A --> FILE: IRISH .MUS CRC = 27 D9 --> FILE: MINWALZ .MUS CRC = 39 97 --> FILE: MUSIC .COM CRC = D1 3F --> FILE: MUSIC .DOC CRC = D0 3C --> FILE: MUSIC4 .AQM CRC = 1F 95 --> FILE: MUSIC4 .COM CRC = CE CF --> FILE: MUSIC4 .DOC CRC = C7 25 --> FILE: NOTES .BAS CRC = CF C4 --> FILE: PDQFILE .BAS CRC = 23 62 --> FILE: STARWARS.MUS CRC = 3D 4C --> FILE: WALK .MUS CRC = 36 D1 --> FILE: YANKEE .MUS CRC = AF 5D ---------------------> SUM OF CRCS = 0B EF  --> FILE: -FOG/HAK.015 CRC = 00 00 --> FILE: AIR .MUS CRC = 05 E4 --> FILE: AMERICA .MUS CRC = 3D A1 --> FILE: AUTOST .AQM CRC = EE F8 --> FILE: AWAVE .BAS CRC = C7 81 --> FILE: CALIOPE .MUS CRC = 7E 1F --> FILE: CCP