Multiple names: SOUND TUT-1.C, SOUND TUT NO 1
FILE INFORMATION
FILENAME(S):
• SOUND TUT-1.C<br>• SOUND TUT  NO 1
FILE TYPE(S): DEL, PRG
FILE SIZE: 16.5K
FIRST SEEN: 2025-11-30 21:11:26
APPEARS ON: 2 disk(s)
FILE HASH
e439e34f700f503708574a9599d5879bbfcee586db8999b3d223b07c4478a42e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 715B GELUID | SOUND TUT-1.C | DEL | DuncanTwain | 11 | 2 | DOWNLOAD FILE |
| VERVOLG PONZO | SOUND TUT NO 1 | PRG | DuncanTwain | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 08 2D 08 00 00 8F 22 14 14 14 14 14 14 14 20 |..-...."....... |
00000010: 50 2E 4A 2E 50 4F 4E 5A 4F 2A 38 33 2A 57 41 54 |P.J.PONZO*83*WAT|
00000020: 45 52 4C 4F 4F 2F 4F 4E 54 41 52 49 4F 00 5D 08 |ERLOO/ONTARIO.].|
00000030: E8 03 8D 36 30 30 30 30 3A 99 C7 28 31 34 32 29 |...60000:..(142)|
00000040: 3A 99 22 93 20 20 20 20 20 20 20 20 20 20 20 20 |:.". |
00000050: 20 20 20 12 1F 53 4F 55 4E 44 2D 31 22 00 8D 08 | ..SOUND-1"...|
00000060: E9 03 99 22 1C B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..."............|
00000070: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000080: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 D1 08 |............"...|
00000090: EA 03 99 22 DD 20 12 1F 20 20 20 20 20 20 20 20 |...". .. |
000000A0: 20 20 20 20 43 36 34 20 53 4F 55 4E 44 20 20 20 | C64 SOUND |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 1C 92 20 DD 22 | .. ."|
000000C0: 3A 4D 53 24 B2 22 50 4F 4E 5A 4F 54 55 54 4F 52 |:MS$."PONZOTUTOR|
000000D0: 22 00 19 09 EB 03 99 22 1C AD C0 C0 C0 C0 C0 C0 |"......"........|
000000E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD |................|
00000100: 90 22 3A 8D 36 33 31 30 30 3A 4D 53 24 B2 22 20 |.":.63100:MS$." |
00000110: 57 45 4C 43 4F 4D 45 21 22 00 39 09 EC 03 8D 36 |WELCOME!".9....6|
00000120: 33 31 30 30 3A 8D 35 30 30 30 30 3A 8D 36 33 30 |3100:.50000:.630|
00000130: 30 30 3A 99 22 93 90 22 3B 00 64 09 F2 03 99 22 |00:."..";.d...."|
00000140: 93 11 53 4F 55 4E 44 20 49 53 20 4D 41 44 45 20 |..SOUND IS MADE |
00000150: 55 50 20 4F 46 20 41 49 52 20 4D 4F 56 45 4D 45 |UP OF AIR MOVEME|
00000160: 4E 54 2C 22 00 92 09 FC 03 99 22 11 49 4E 43 52 |NT,"......".INCR|
00000170: 45 41 53 49 4E 47 20 41 4E 44 20 44 45 43 52 45 |EASING AND DECRE|
00000180: 41 53 49 4E 47 20 49 4E 20 50 52 45 53 53 55 52 |ASING IN PRESSUR|
00000190: 45 22 00 BD 09 06 04 99 22 11 41 4E 44 20 53 54 |E"......".AND ST|
000001A0: 52 49 4B 49 4E 47 20 4F 55 52 20 45 41 52 20 50 |RIKING OUR EAR P|
000001B0: 52 4F 44 55 43 49 4E 47 20 54 48 45 22 00 E6 09 |RODUCING THE"...|
000001C0: 10 04 99 22 11 53 45 4E 53 41 54 49 4F 4E 20 57 |...".SENSATION W|
000001D0: 45 20 44 45 53 43 52 49 42 45 20 41 53 20 27 4D |E DESCRIBE AS 'M|
000001E0: 55 53 49 43 27 22 00 10 0A 1A 04 99 22 11 2E 2E |USIC'"......"...|
000001F0: 2E 4F 52 20 27 4E 4F 49 53 45 27 2C 20 44 45 50 |.OR 'NOISE', DEP|
00000200: 45 4E 44 49 4E 47 20 55 50 4F 4E 20 54 48 45 22 |ENDING UPON THE"|
00000210: 00 51 0A 24 04 99 22 11 57 41 59 20 54 48 45 20 |.Q.$..".WAY THE |
00000220: 43 48 41 4E 47 45 53 20 49 4E 20 50 52 45 53 53 |CHANGES IN PRESS|
00000230: 55 52 45 20 4F 43 43 55 52 2E 22 3A 4D 53 24 B2 |URE OCCUR.":MS$.|
00000240: 22 20 20 4E 4F 49 53 45 3F 22 3A 8D 36 33 31 30 |" NOISE?":.6310|
00000250: 30 00 87 0A 2E 04 8D 36 33 30 30 30 3A 99 22 93 |0......63000:.".|
00000260: 11 45 56 45 4E 20 27 4D 55 53 49 43 41 4C 27 20 |.EVEN 'MUSICAL' |
00000270: 53 4F 55 4E 44 53 20 44 49 46 46 45 52 20 46 52 |SOUNDS DIFFER FR|
00000280: 4F 4D 20 4F 4E 45 22 00 A6 0A 38 04 99 22 11 49 |OM ONE"...8..".I|
00000290: 4E 53 54 52 55 4D 45 4E 54 20 54 4F 20 41 4E 4F |NSTRUMENT TO ANO|
000002A0: 54 48 45 52 2E 22 00 D0 0A 56 04 99 22 11 41 20 |THER."...V..".A |
000002B0: 53 49 4D 50 4C 45 20 27 53 43 48 45 4D 45 27 20 |SIMPLE 'SCHEME' |
000002C0: 57 48 49 43 48 20 44 45 53 43 52 49 42 45 53 22 |WHICH DESCRIBES"|
000002D0: 00 F8 0A 60 04 99 22 11 54 48 45 20 44 49 46 46 |...`..".THE DIFF|
000002E0: 45 52 45 4E 43 45 53 20 42 45 54 57 45 45 4E 20 |ERENCES BETWEEN |
000002F0: 56 41 52 49 4F 55 53 22 00 23 0B 6A 04 99 22 11 |VARIOUS".#.j..".|
00000300: 4D 55 53 49 43 41 4C 20 55 4E 53 54 52 55 4D 45 |MUSICAL UNSTRUME|
00000310: 4E 54 53 20 49 53 20 41 53 20 46 4F 4C 4C 4F 57 |NTS IS AS FOLLOW|
00000320: 53 3A 22 00 4D 0B 74 04 99 22 11 11 57 45 27 4C |S:".M.t.."..WE'L|
00000330: 4C 20 4C 4F 4F 4B 20 41 54 20 41 20 27 4E 4F 54 |L LOOK AT A 'NOT|
00000340: 45 27 20 46 52 4F 4D 20 53 4F 4D 45 22 00 8D 0B |E' FROM SOME"...|
00000350: 7E 04 99 22 11 46 49 43 54 49 54 49 4F 55 53 20 |~..".FICTITIOUS |
00000360: 4D 55 53 49 43 41 4C 20 49 4E 53 54 52 55 4D 45 |MUSICAL INSTRUME|
00000370: 4E 54 2E 2E 22 3A 4D 53 24 B2 22 4C 45 54 27 53 |NT..":MS$."LET'S|
00000380: 20 4C 4F 4F 4B 22 3A 8D 36 33 31 30 30 00 98 0B | LOOK":.63100...|
00000390: 83 04 8D 36 33 30 30 30 00 D7 0B 88 04 99 22 93 |...63000......".|
000003A0: 3C C3 C3 C3 C3 C3 41 54 54 41 43 4B C3 C3 C3 C3 |<.....ATTACK....|
000003B0: C3 C3 C3 3E 3C C3 44 45 43 41 59 C3 3E 3C C3 53 |...><.DECAY.><.S|
000003C0: 55 53 54 41 49 4E C3 3E 22 3A 8D 36 32 30 30 30 |USTAIN.>":.62000|
000003D0: 3A 8D 36 33 32 30 30 00 14 0C 92 04 99 22 13 22 |:.63200......"."|
000003E0: 42 4C 24 22 13 54 48 45 20 27 53 55 53 54 41 49 |BL$".THE 'SUSTAI|
000003F0: 4E 27 20 50 41 52 54 20 4C 41 53 54 53 20 41 4E |N' PART LASTS AN|
00000400: 44 20 4C 41 53 54 53 2E 2E 2E 2E 20 22 3A 8D 36 |D LASTS.... ":.6|
00000410: 33 30 30 30 00 49 0C 9C 04 99 22 93 22 3A 8D 36 |3000.I....".":.6|
00000420: 33 33 30 30 3A 99 22 13 2E 2E 2E 55 4E 54 49 4C |3300:."....UNTIL|
00000430: 20 54 48 45 20 4E 4F 54 45 20 49 53 20 27 52 45 | THE NOTE IS 'RE|
00000440: 4C 45 41 53 45 44 27 2E 22 00 8B 0C A6 04 99 22 |LEASED'."......"|
00000450: 11 11 C3 C3 C3 C3 C3 C3 C3 53 55 53 54 41 49 4E |.........SUSTAIN|
00000460: C3 C3 C3 C3 C3 C3 C3 3E 3C C3 52 45 4C 45 41 53 |.......><.RELEAS|
00000470: 45 C3 3E 22 3A 4D 53 24 B2 22 20 20 20 12 41 44 |E.>":MS$." .AD|
00000480: 53 52 92 22 3A 8D 36 33 31 30 30 00 C2 0C B0 04 |SR.":.63100.....|
00000490: 8D 36 33 30 30 30 3A 99 22 93 48 45 52 45 27 53 |.63000:.".HERE'S|
000004A0: 20 4F 4E 45 20 43 4F 4D 50 4C 45 54 45 20 4E 4F | ONE COMPLETE NO|
000004B0: 54 45 3A 22 3A 8D 36 33 31 30 30 3A 8D 36 33 34 |TE:":.63100:.634|
000004C0: 30 30 00 E9 0C BA 04 8D 36 33 30 30 30 3A 99 22 |00......63000:."|
000004D0: 93 57 45 20 43 41 4E 20 54 45 4C 4C 20 54 48 45 |.WE CAN TELL THE|
000004E0: 20 12 53 92 4F 55 4E 44 22 00 12 0D C4 04 99 22 | .S.OUND"......"|
000004F0: 11 12 49 92 92 4E 54 45 52 46 41 43 45 20 12 44 |..I..NTERFACE .D|
00000500: 92 45 56 49 43 45 20 28 53 49 44 20 43 48 49 50 |.EVICE (SID CHIP|
00000510: 29 22 00 41 0D CE 04 99 22 11 57 48 41 54 20 57 |)".A....".WHAT W|
00000520: 45 20 57 41 4E 54 20 46 4F 52 20 54 48 45 20 12 |E WANT FOR THE .|
00000530: 41 92 54 54 41 43 4B 2C 20 12 44 92 45 43 41 59 |A.TTACK, .D.ECAY|
00000540: 22 00 62 0D D8 04 99 22 11 12 53 92 55 53 54 41 |".b...."..S.USTA|
00000550: 49 4E 20 41 4E 44 20 12 52 92 45 4C 45 41 53 45 |IN AND .R.ELEASE|
00000560: 2E 22 00 8F 0D E2 04 99 22 11 57 45 20 48 41 56 |."......".WE HAV|
00000570: 45 20 31 36 20 50 4F 53 53 49 42 4C 45 20 56 41 |E 16 POSSIBLE VA|
00000580: 4C 55 45 53 20 46 4F 52 20 45 41 43 48 2C 22 00 |LUES FOR EACH,".|
00000590: BE 0D EC 04 99 22 11 54 48 41 54 27 53 20 34 20 |.....".THAT'S 4 |
000005A0: 42 49 54 53 20 57 4F 52 54 48 2C 20 53 4F 20 57 |BITS WORTH, SO W|
000005B0: 45 20 43 41 4E 20 53 51 55 45 45 5A 45 22 00 EB |E CAN SQUEEZE"..|
000005C0: 0D F6 04 99 22 11 12 41 54 54 41 43 4B 2F 44 45 |...."..ATTACK/DE|
000005D0: 43 41 59 92 20 49 4E 54 4F 20 4F 4E 45 20 52 45 |CAY. INTO ONE RE|
000005E0: 47 49 53 54 45 52 20 41 4E 44 22 00 1C 0E 00 05 |GISTER AND".....|
000005F0: 99 22 11 12 53 55 53 54 41 49 4E 2F 52 45 4C 45 |."..SUSTAIN/RELE|
00000600: 41 53 45 92 20 49 4E 54 4F 20 41 4E 4F 54 48 45 |ASE. INTO ANOTHE|
00000610: 52 20 52 45 47 49 53 54 45 52 2E 22 00 40 0E 05 |R REGISTER.".@..|
00000620: 05 4D 53 24 B2 22 20 20 12 41 44 92 20 12 53 52 |.MS$." .AD. .SR|
00000630: 92 22 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 |.":.63100:.63000|
00000640: 00 65 0E 0A 05 99 22 93 54 48 45 20 53 49 44 20 |.e....".THE SID |
00000650: 43 48 49 50 20 53 54 41 52 54 53 20 41 54 20 24 |CHIP STARTS AT $|
00000660: 44 34 30 30 22 00 7D 0E 14 05 99 22 11 4F 52 20 |D400".}....".OR |
00000670: 12 53 49 44 3D 35 34 32 37 32 92 2E 22 00 9F 0E |.SID=54272.."...|
00000680: 1E 05 99 22 11 49 46 20 30 3C 3D 41 54 3C 3D 31 |...".IF 0<=AT<=1|
00000690: 35 20 41 4E 44 20 30 3C 3D 44 45 3C 3D 31 35 00 |5 AND 0<=DE<=15.|
000006A0: C1 0E 28 05 99 22 11 20 26 20 30 3C 3D 53 55 3C |..(..". & 0<=SU<|
000006B0: 3D 31 35 20 41 4E 44 20 30 3C 3D 52 45 3C 3D 31 |=15 AND 0<=RE<=1|
000006C0: 35 00 CE 0E 32 05 99 22 11 54 48 45 4E 3A 00 EB |5...2..".THEN:..|
000006D0: 0E 3C 05 99 22 11 12 50 4F 4B 45 20 53 49 44 2B |.<.."..POKE SID+|
000006E0: 35 2C 31 36 2A 41 54 2B 44 45 22 00 07 0F 46 05 |5,16*AT+DE"...F.|
000006F0: 99 22 12 50 4F 4B 45 20 53 49 44 2B 36 2C 31 36 |.".POKE SID+6,16|
00000700: 2A 53 55 2B 52 45 22 00 2A 0F 50 05 4D 53 24 B2 |*SU+RE".*.P.MS$.|
00000710: 22 20 53 49 44 2B 35 20 26 20 36 22 3A 8D 36 33 |" SID+5 & 6":.63|
00000720: 31 30 30 3A 8D 36 33 30 30 30 00 5A 0F 5A 05 99 |100:.63000.Z.Z..|
00000730: 22 93 54 48 45 20 54 49 4D 45 20 54 41 4B 45 4E |".THE TIME TAKEN|
00000740: 20 54 4F 20 43 4F 4D 50 4C 45 54 45 20 54 48 45 | TO COMPLETE THE|
00000750: 20 12 41 54 54 41 43 4B 92 22 00 87 0F 64 05 99 | .ATTACK."...d..|
00000760: 22 11 44 45 50 45 4E 44 53 20 55 50 4F 4E 20 54 |".DEPENDS UPON T|
00000770: 48 45 20 56 41 4C 55 45 20 4F 46 20 12 41 54 92 |HE VALUE OF .AT.|
00000780: 3A 30 2D 31 35 2E 22 00 B3 0F 6E 05 99 22 11 46 |:0-15."...n..".F|
00000790: 4F 52 20 12 41 54 3D 30 92 20 49 54 20 54 41 4B |OR .AT=0. IT TAK|
000007A0: 45 53 20 32 20 4D 49 4C 4C 49 53 45 43 4F 4E 44 |ES 2 MILLISECOND|
000007B0: 53 2E 22 00 DB 0F 78 05 99 22 11 46 4F 52 20 12 |S."...x..".FOR .|
000007C0: 41 54 3D 31 35 92 20 49 54 20 54 41 4B 45 53 20 |AT=15. IT TAKES |
000007D0: 38 20 53 45 43 4F 4E 44 53 21 22 00 07 10 82 05 |8 SECONDS!".....|
000007E0: 99 22 11 54 48 45 20 27 44 45 43 41 59 27 20 41 |.".THE 'DECAY' A|
000007F0: 4E 44 20 27 52 45 4C 45 41 53 45 27 20 54 49 4D |ND 'RELEASE' TIM|
00000800: 45 53 20 41 52 45 22 00 24 10 8C 05 99 22 11 54 |ES ARE".$....".T|
00000810: 48 52 45 45 20 54 49 4D 45 53 20 41 53 20 4C 4F |HREE TIMES AS LO|
00000820: 4E 47 3A 22 00 49 10 96 05 99 22 11 12 44 45 3D |NG:".I...."..DE=|
00000830: 30 92 20 54 41 4B 45 53 20 36 20 4D 49 4C 4C 49 |0. TAKES 6 MILLI|
00000840: 53 45 43 4F 4E 44 53 2E 22 00 6C 10 A0 05 99 22 |SECONDS.".l...."|
00000850: 11 12 44 45 3D 31 35 92 20 54 41 4B 45 53 20 32 |..DE=15. TAKES 2|
00000860: 34 20 53 45 43 4F 4E 44 53 21 21 22 00 8A 10 AA |4 SECONDS!!"....|
00000870: 05 99 22 11 28 53 41 4D 45 20 46 4F 52 20 27 52 |..".(SAME FOR 'R|
00000880: 45 4C 45 41 53 45 27 29 2E 22 00 AD 10 B4 05 4D |ELEASE').".....M|
00000890: 53 24 B2 22 32 34 20 53 45 43 4F 4E 44 53 22 3A |S$."24 SECONDS":|
000008A0: 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 00 DA 10 |.63100:.63000...|
000008B0: BE 05 99 22 93 54 48 45 20 12 41 44 53 52 92 20 |...".THE .ADSR. |
000008C0: 53 45 54 54 49 4E 47 53 20 47 49 56 45 20 54 48 |SETTINGS GIVE TH|
000008D0: 45 20 4F 55 54 4C 49 4E 45 22 00 04 11 C8 05 99 |E OUTLINE"......|
000008E0: 22 11 4F 46 20 54 48 45 20 57 41 56 45 46 4F 52 |".OF THE WAVEFOR|
000008F0: 4D 20 28 54 48 45 20 27 45 4E 56 45 4C 4F 50 45 |M (THE 'ENVELOPE|
00000900: 27 29 2E 22 00 36 11 D2 05 99 22 11 49 4E 20 41 |').".6....".IN A|
00000910: 44 44 49 54 49 4F 4E 20 57 45 20 43 41 4E 20 43 |DDITION WE CAN C|
00000920: 48 4F 4F 53 45 20 54 48 45 20 12 46 52 45 51 55 |HOOSE THE .FREQU|
00000930: 45 4E 43 59 92 22 00 60 11 DC 05 99 22 11 4F 46 |ENCY.".`....".OF|
00000940: 20 54 48 45 20 4F 53 43 49 4C 4C 41 54 49 4F 4E | THE OSCILLATION|
00000950: 53 3A BA D0 BA D0 BA D0 BA D0 BA D0 BA D0 2E 22 |S:............."|
00000960: 00 8F 11 E6 05 99 22 11 42 45 43 41 55 53 45 20 |......".BECAUSE |
00000970: 4F 46 20 54 48 45 20 57 49 44 45 20 52 41 4E 47 |OF THE WIDE RANG|
00000980: 45 20 49 4E 20 46 52 45 51 55 45 4E 43 59 22 00 |E IN FREQUENCY".|
00000990: BE 11 F0 05 99 22 11 57 45 20 4E 45 45 44 20 31 |.....".WE NEED 1|
000009A0: 36 20 42 49 54 53 20 4F 52 20 32 20 42 59 54 45 |6 BITS OR 2 BYTE|
000009B0: 53 20 54 4F 20 48 4F 4C 44 20 54 48 45 22 00 EB |S TO HOLD THE"..|
000009C0: 11 FA 05 99 22 11 46 52 45 51 55 45 4E 43 59 2E |....".FREQUENCY.|
000009D0: 20 54 48 49 53 20 47 49 56 45 53 20 36 35 35 33 | THIS GIVES 6553|
000009E0: 36 20 50 4F 53 53 49 42 4C 45 22 00 28 12 04 06 |6 POSSIBLE".(...|
000009F0: 99 22 11 46 52 45 51 55 45 4E 43 49 45 53 2E 2E |.".FREQUENCIES..|
00000A00: 55 50 20 54 4F 20 41 42 4F 55 54 20 34 30 30 30 |UP TO ABOUT 4000|
00000A10: 20 48 45 52 54 5A 2E 22 3A 4D 53 24 B2 22 20 20 | HERTZ.":MS$." |
00000A20: 32 20 42 59 54 45 53 22 00 59 12 0E 06 99 22 11 |2 BYTES".Y....".|
00000A30: 12 50 4F 4B 45 20 53 49 44 2C 4C 4F 3A 50 4F 4B |.POKE SID,LO:POK|
00000A40: 45 20 53 49 44 2B 31 2C 48 49 22 3A 8D 36 33 31 |E SID+1,HI":.631|
00000A50: 30 30 3A 8D 36 33 30 30 30 00 86 12 18 06 99 22 |00:.63000......"|
00000A60: 93 11 11 49 46 20 12 46 51 92 20 49 53 20 54 48 |...IF .FQ. IS TH|
00000A70: 45 20 27 46 52 45 51 55 45 4E 43 59 20 4E 55 4D |E 'FREQUENCY NUM|
00000A80: 42 45 52 27 2C 22 00 A7 12 22 06 99 22 11 57 49 |BER',"..."..".WI|
00000A90: 54 48 20 30 3C 3D 46 51 3C 3D 36 35 35 33 35 2C |TH 0<=FQ<=65535,|
00000AA0: 20 54 48 45 4E 3A 22 00 CC 12 2C 06 99 22 11 12 | THEN:"...,.."..|
00000AB0: 48 49 3D 49 4E 54 28 46 51 2F 32 35 36 29 3A 4C |HI=INT(FQ/256):L|
00000AC0: 4F 3D 46 51 2D 32 35 36 2A 48 49 22 00 0E 13 36 |O=FQ-256*HI"...6|
00000AD0: 06 99 22 11 47 49 56 49 4E 47 20 54 48 45 20 32 |..".GIVING THE 2|
00000AE0: 20 42 59 54 45 53 20 46 4F 52 20 53 49 44 2C 20 | BYTES FOR SID, |
00000AF0: 53 49 44 2B 31 2E 22 3A 4D 53 24 B2 22 53 49 44 |SID+1.":MS$."SID|
00000B00: 2C 53 49 44 2B 31 22 3A 8D 36 33 31 30 30 00 3F |,SID+1":.63100.?|
00000B10: 13 40 06 8D 36 33 30 30 30 3A 99 22 93 45 41 43 |.@..63000:.".EAC|
00000B20: 48 20 27 4E 55 4D 42 45 52 27 2C 20 46 51 2C 20 |H 'NUMBER', FQ, |
00000B30: 43 4F 52 52 45 53 50 4F 4E 44 53 20 54 4F 22 00 |CORRESPONDS TO".|
00000B40: 6C 13 4A 06 99 22 11 41 20 27 46 52 45 51 55 45 |l.J..".A 'FREQUE|
00000B50: 4E 43 59 27 2C 20 49 4E 20 43 59 43 4C 45 53 20 |NCY', IN CYCLES |
00000B60: 50 45 52 20 53 45 43 4F 4E 44 2C 22 00 94 13 54 |PER SECOND,"...T|
00000B70: 06 99 22 11 41 43 43 4F 52 44 49 4E 47 20 54 4F |..".ACCORDING TO|
00000B80: 20 54 48 45 20 4D 41 47 49 43 20 46 4F 52 4D 55 | THE MAGIC FORMU|
00000B90: 4C 41 3A 22 00 BE 13 5E 06 99 22 11 12 46 51 3D |LA:"...^.."..FQ=|
00000BA0: 41 43 54 55 41 4C 20 46 52 45 51 55 45 4E 43 59 |ACTUAL FREQUENCY|
00000BB0: 2F 2E 30 35 39 36 30 34 36 34 35 92 2E 22 00 EA |/.059604645.."..|
00000BC0: 13 68 06 99 22 11 49 46 20 59 4F 55 20 57 41 4E |.h..".IF YOU WAN|
00000BD0: 54 20 54 4F 20 48 45 41 52 20 27 41 27 20 49 4E |T TO HEAR 'A' IN|
00000BE0: 20 54 48 45 20 34 27 54 48 22 00 17 14 72 06 99 | THE 4'TH"...r..|
00000BF0: 22 11 4F 43 54 41 56 45 20 4F 46 20 54 48 45 20 |".OCTAVE OF THE |
00000C00: 50 49 41 4E 4F 20 4B 45 59 42 4F 41 52 44 2C 20 |PIANO KEYBOARD, |
00000C10: 54 48 41 54 27 53 22 00 47 14 7C 06 99 22 11 34 |THAT'S".G.|..".4|
00000C20: 34 30 20 48 45 52 54 5A 2C 20 53 4F 20 46 51 3D |40 HERTZ, SO FQ=|
00000C30: 34 34 30 2F 2E 30 35 39 36 30 34 36 34 35 3D 37 |440/.059604645=7|
00000C40: 33 38 31 2E 39 37 22 00 65 14 86 06 99 22 11 2E |381.97".e...."..|
00000C50: 2E 4C 45 54 27 53 20 53 41 59 3A 20 46 51 3D 37 |.LET'S SAY: FQ=7|
00000C60: 33 38 32 2E 22 00 8F 14 90 06 99 22 11 54 48 45 |382."......".THE|
00000C70: 4E 3A 20 12 48 49 3D 49 4E 54 28 37 33 38 32 2F |N: .HI=INT(7382/|
00000C80: 32 35 36 29 3D 32 38 20 20 20 20 20 20 20 22 00 |256)=28 ".|
00000C90: B8 14 9A 06 99 22 20 20 20 20 20 20 12 4C 4F 3D |....." .LO=|
00000CA0: 37 33 38 32 2D 32 35 36 2A 48 49 3D 32 31 34 20 |7382-256*HI=214 |
00000CB0: 20 20 20 20 20 20 20 22 00 E8 14 A4 06 99 22 20 | "......" |
00000CC0: 20 20 20 20 20 12 50 4F 4B 45 20 53 49 44 2C 32 | .POKE SID,2|
00000CD0: 31 34 3A 50 4F 4B 45 20 53 49 44 2B 31 2C 32 38 |14:POKE SID+1,28|
00000CE0: 22 3A 8D 36 33 30 30 30 00 18 15 AE 06 99 22 93 |":.63000......".|
00000CF0: 4F 4B 2E 2E 57 45 27 56 45 20 47 49 56 45 4E 20 |OK..WE'VE GIVEN |
00000D00: 54 48 45 20 53 49 44 20 43 48 49 50 20 54 48 45 |THE SID CHIP THE|
00000D10: 20 12 41 44 53 52 92 22 00 46 15 B8 06 99 22 11 | .ADSR.".F....".|
00000D20: 45 4E 56 45 4C 4F 50 45 2C 20 41 4E 44 20 54 48 |ENVELOPE, AND TH|
00000D30: 45 20 12 46 52 45 51 55 45 4E 43 59 20 4E 55 4D |E .FREQUENCY NUM|
00000D40: 42 45 52 92 2C 22 00 6F 15 C2 06 99 22 11 4E 4F |BER.,".o....".NO|
00000D50: 57 20 57 45 20 43 48 4F 4F 53 45 20 54 48 45 20 |W WE CHOOSE THE |
00000D60: 12 57 41 56 45 46 4F 52 4D 92 3A 11 11 11 22 00 |.WAVEFORM.:...".|
00000D70: 8E 15 CC 06 99 54 52 24 54 52 24 54 52 24 22 20 |.....TR$TR$TR$" |
00000D80: 20 20 20 3D 20 54 52 49 41 4E 47 4C 45 22 00 B4 | = TRIANGLE"..|
00000D90: 15 D6 06 99 22 11 11 22 53 41 24 53 41 24 53 41 |....".."SA$SA$SA|
00000DA0: 24 53 41 24 53 41 24 22 20 3D 20 53 41 57 54 4F |$SA$SA$" = SAWTO|
00000DB0: 4F 54 48 22 00 DD 15 E0 06 99 22 11 11 22 50 55 |OTH"......".."PU|
00000DC0: 24 50 55 24 50 55 24 22 20 3D 20 50 55 4C 53 45 |$PU$PU$" = PULSE|
00000DD0: 22 3A 4E 4E B2 39 3A 8D 36 33 35 30 30 00 10 16 |":NN.9:.63500...|
00000DE0: EA 06 99 22 11 11 11 11 22 4E 4F 24 22 20 3D 22 |..."...."NO$" ="|
00000DF0: 3A 4D 53 24 B2 22 20 12 4E 4F 49 53 45 92 21 21 |:MS$." .NOISE.!!|
00000E00: 21 22 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 |!":.63100:.63000|
00000E10: 00 38 16 F4 06 99 22 93 11 27 4E 4F 49 53 45 27 |.8...."..'NOISE'|
00000E20: 20 43 4F 4E 53 49 53 54 53 20 4F 46 20 41 20 53 | CONSISTS OF A S|
00000E30: 45 51 55 45 4E 43 45 22 00 61 16 FE 06 99 22 11 |EQUENCE".a....".|
00000E40: 4F 46 20 50 55 4C 53 45 53 20 4F 46 20 52 41 4E |OF PULSES OF RAN|
00000E50: 44 4F 4D 20 41 4D 50 4C 49 54 55 44 45 2E 2E 2E |DOM AMPLITUDE...|
00000E60: 22 00 8E 16 08 07 81 4C B2 31 A4 34 3A 8D 36 33 |"......L.1.4:.63|
00000E70: 35 30 30 3A 99 22 13 11 11 11 11 11 22 3A 81 50 |500:."......":.P|
00000E80: B2 31 A4 34 AC 4C 3A 99 22 11 22 3B 3A 82 00 A8 |.1.4.L:.".";:...|
00000E90: 16 12 07 99 4E 4F 24 3B 3A 82 3A 8D 36 33 31 30 |....NO$;:.:.6310|
00000EA0: 30 3A 8D 36 33 30 30 30 00 DA 16 1C 07 99 22 93 |0:.63000......".|
00000EB0: 12 50 4F 4B 45 20 53 49 44 2B 34 92 20 57 49 54 |.POKE SID+4. WIT|
00000EC0: 48 20 41 20 27 57 41 56 45 46 4F 52 4D 20 4E 55 |H A 'WAVEFORM NU|
00000ED0: 4D 42 45 52 27 3A 12 57 4E 22 00 FF 16 26 07 99 |MBER':.WN"...&..|
00000EE0: 22 11 54 4F 20 47 45 54 20 54 48 45 20 44 45 53 |".TO GET THE DES|
00000EF0: 49 52 45 44 20 57 41 56 45 46 4F 52 4D 2E 22 00 |IRED WAVEFORM.".|
00000F00: 23 17 30 07 99 22 11 11 22 54 52 24 54 52 24 22 |#.0..".."TR$TR$"|
00000F10: 20 20 3A 20 50 4F 4B 45 20 53 49 44 2B 34 2C 12 | : POKE SID+4,.|
00000F20: 31 37 22 00 49 17 3A 07 99 22 11 11 22 53 41 24 |17".I.:..".."SA$|
00000F30: 53 41 24 22 20 20 20 20 3A 20 50 4F 4B 45 20 53 |SA$" : POKE S|
00000F40: 49 44 2B 34 2C 12 33 33 22 00 6C 17 44 07 99 22 |ID+4,.33".l.D.."|
00000F50: 11 11 22 50 55 24 50 55 24 22 20 3A 20 50 4F 4B |.."PU$PU$" : POK|
00000F60: 45 20 53 49 44 2B 34 2C 12 36 35 22 00 8F 17 4E |E SID+4,.65"...N|
00000F70: 07 99 22 11 11 11 11 22 4E 4F 24 22 20 3A 20 50 |.."...."NO$" : P|
00000F80: 4F 4B 45 20 53 49 44 2B 34 2C 12 31 32 39 22 00 |OKE SID+4,.129".|
00000F90: C5 17 58 07 4D 53 24 B2 22 20 53 49 44 2B 34 2C |..X.MS$." SID+4,|
00000FA0: 57 4E 22 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 |WN":.63100:.6300|
00000FB0: 30 3A 99 22 13 22 3B 3A 81 49 B2 31 A4 34 3A 99 |0:.".";:.I.1.4:.|
00000FC0: 42 4C 24 3A 82 00 02 18 62 07 99 22 13 4E 4F 54 |BL$:....b..".NOT|
00000FD0: 45 20 54 48 45 20 56 41 4C 55 45 53 20 4F 46 20 |E THE VALUES OF |
00000FE0: 12 57 4E 92 3A 22 3A 99 22 11 57 4E 3D 31 36 2B |.WN.:":.".WN=16+|
00000FF0: 31 2C 33 32 2B 31 2C 36 34 2B 31 2C 31 32 38 2B |1,32+1,64+1,128+|
00001000: 31 22 00 33 18 6C 07 8D 36 33 30 30 30 3A 99 22 |1".3.l..63000:."|
00001010: 93 22 3B 3A 99 4E 4E 24 28 31 29 3A 99 4E 4E 24 |.";:.NN$(1):.NN$|
00001020: 28 32 29 22 20 53 49 44 2B 34 22 3A 99 4E 4E 24 |(2)" SID+4":.NN$|
00001030: 28 33 29 00 59 18 76 07 99 22 11 11 48 45 52 45 |(3).Y.v.."..HERE|
00001040: 27 53 20 54 48 45 20 12 53 49 44 2B 34 92 20 52 |'S THE .SID+4. R|
00001050: 45 47 49 53 54 45 52 2E 22 00 9D 18 80 07 99 22 |EGISTER."......"|
00001060: 13 11 11 11 11 11 11 11 11 11 11 46 4F 52 20 22 |...........FOR "|
00001070: 54 52 24 22 20 57 45 20 12 50 4F 4B 45 20 53 49 |TR$" WE .POKE SI|
00001080: 44 2B 34 2C 31 37 22 3A 99 22 13 11 1D 30 1D 30 |D+4,17":."...0.0|
00001090: 1D 30 1D 31 1D 30 1D 30 1D 30 1D 31 22 00 CE 18 |.0.1.0.0.0.1"...|
000010A0: 8A 07 8D 36 33 30 30 30 3A 99 22 93 22 3B 3A 99 |...63000:.".";:.|
000010B0: 4E 4E 24 28 31 29 3A 99 4E 4E 24 28 32 29 22 20 |NN$(1):.NN$(2)" |
000010C0: 53 49 44 2B 34 22 3A 99 4E 4E 24 28 33 29 00 F4 |SID+4":.NN$(3)..|
000010D0: 18 94 07 99 22 11 11 48 45 52 45 27 53 20 54 48 |...."..HERE'S TH|
000010E0: 45 20 12 53 49 44 2B 34 92 20 52 45 47 49 53 54 |E .SID+4. REGIST|
000010F0: 45 52 2E 22 00 38 19 9E 07 99 22 13 11 11 11 11 |ER.".8....".....|
00001100: 11 11 11 11 11 11 46 4F 52 20 22 53 41 24 22 20 |......FOR "SA$" |
00001110: 57 45 20 12 50 4F 4B 45 20 53 49 44 2B 34 2C 33 |WE .POKE SID+4,3|
00001120: 33 22 3A 99 22 13 11 1D 30 1D 30 1D 31 1D 30 1D |3":."...0.0.1.0.|
00001130: 30 1D 30 1D 30 1D 31 22 00 69 19 A8 07 8D 36 33 |0.0.0.1".i....63|
00001140: 30 30 30 3A 99 22 93 22 3B 3A 99 4E 4E 24 28 31 |000:.".";:.NN$(1|
00001150: 29 3A 99 4E 4E 24 28 32 29 22 20 53 49 44 2B 34 |):.NN$(2)" SID+4|
00001160: 22 3A 99 4E 4E 24 28 33 29 00 8F 19 B2 07 99 22 |":.NN$(3)......"|
00001170: 11 11 48 45 52 45 27 53 20 54 48 45 20 12 53 49 |..HERE'S THE .SI|
00001180: 44 2B 34 92 20 52 45 47 49 53 54 45 52 2E 22 00 |D+4. REGISTER.".|
00001190: D3 19 BC 07 99 22 13 11 11 11 11 11 11 11 11 11 |....."..........|
000011A0: 11 46 4F 52 20 22 50 55 24 22 20 57 45 20 12 50 |.FOR "PU$" WE .P|
000011B0: 4F 4B 45 20 53 49 44 2B 34 2C 36 35 22 3A 99 22 |OKE SID+4,65":."|
000011C0: 13 11 1D 30 1D 31 1D 30 1D 30 1D 30 1D 30 1D 30 |...0.1.0.0.0.0.0|
000011D0: 1D 31 22 00 F5 19 C6 07 8D 36 33 30 30 30 3A 99 |.1"......63000:.|
000011E0: 22 93 22 3B 3A 81 49 B2 31 A4 33 3A 99 4E 4E 24 |".";:.I.1.3:.NN$|
000011F0: 28 49 29 3A 82 00 1B 1A D0 07 99 22 11 11 48 45 |(I):......."..HE|
00001200: 52 45 27 53 20 54 48 45 20 12 53 49 44 2B 34 92 |RE'S THE .SID+4.|
00001210: 20 52 45 47 49 53 54 45 52 2E 22 00 60 1A DA 07 | REGISTER.".`...|
00001220: 99 22 13 11 11 11 11 11 11 11 11 11 11 46 4F 52 |."...........FOR|
00001230: 20 22 4E 4F 24 22 20 57 45 20 12 50 4F 4B 45 20 | "NO$" WE .POKE |
00001240: 53 49 44 2B 34 2C 31 32 39 22 3A 99 22 13 11 1D |SID+4,129":."...|
00001250: 31 1D 30 1D 30 1D 30 1D 30 1D 30 1D 30 1D 31 22 |1.0.0.0.0.0.0.1"|
00001260: 00 91 1A E4 07 8D 36 33 30 30 30 3A 99 22 93 22 |......63000:."."|
00001270: 3B 3A 99 4E 4E 24 28 31 29 3A 99 4E 4E 24 28 32 |;:.NN$(1):.NN$(2|
00001280: 29 22 20 53 49 44 2B 34 22 3A 99 4E 4E 24 28 33 |)" SID+4":.NN$(3|
00001290: 29 00 C8 1A EE 07 47 42 24 B2 22 13 11 1D 1D 1D |).....GB$.".....|
000012A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3A 81 49 |............":.I|
000012B0: B2 31 A4 35 3A 99 47 42 24 22 12 D6 22 3A 81 54 |.1.5:.GB$"..":.T|
000012C0: B2 31 A4 31 30 30 3A 82 00 E2 1A F8 07 99 47 42 |.1.100:.......GB|
000012D0: 24 22 92 D6 22 3A 81 54 B2 31 A4 31 30 30 3A 82 |$"..":.T.1.100:.|
000012E0: 3A 82 00 0D 1B 02 08 99 22 13 11 11 11 11 54 48 |:.......".....TH|
000012F0: 49 53 20 42 49 54 2C 20 54 48 45 20 12 47 41 54 |IS BIT, THE .GAT|
00001300: 45 20 42 49 54 92 2C 20 57 48 45 4E 22 00 33 1B |E BIT., WHEN".3.|
00001310: 0C 08 99 22 11 53 45 54 20 54 4F 20 27 31 27 2C |...".SET TO '1',|
00001320: 20 53 54 41 52 54 53 20 54 48 45 20 4E 4F 54 45 | STARTS THE NOTE|
00001330: 21 21 22 00 5F 1B 16 08 99 22 11 53 4F 20 42 45 |!!"._....".SO BE|
00001340: 20 53 55 52 45 20 54 48 45 20 12 41 44 53 52 92 | SURE THE .ADSR.|
00001350: 2C 20 46 52 45 51 55 45 4E 43 59 20 23 2C 22 00 |, FREQUENCY #,".|
00001360: 8A 1B 20 08 99 22 11 41 4E 44 20 41 4E 59 20 4F |.. ..".AND ANY O|
00001370: 54 48 45 52 20 50 41 52 41 4D 45 54 45 52 53 20 |THER PARAMETERS |
00001380: 41 52 45 20 47 49 56 45 4E 22 00 B5 1B 2A 08 99 |ARE GIVEN"...*..|
00001390: 22 11 54 4F 20 12 53 49 44 92 20 42 45 46 4F 52 |".TO .SID. BEFOR|
000013A0: 45 11 9D 9D 9D 9D 9D 9D B8 B8 B8 B8 B8 B8 91 20 |E.............. |
000013B0: 59 4F 55 3A 22 00 EB 1B 34 08 99 22 11 12 50 4F |YOU:"...4.."..PO|
000013C0: 4B 45 20 53 49 44 2B 34 2C 57 4E 92 21 22 3A 8D |KE SID+4,WN.!":.|
000013D0: 36 33 30 30 30 3A 4D 53 24 B2 22 20 4F 54 48 45 |63000:MS$." OTHE|
000013E0: 52 53 3F 22 3A 8D 36 33 31 30 30 00 0A 1C 3E 08 |RS?":.63100...>.|
000013F0: 99 22 93 49 46 20 59 4F 55 20 43 48 4F 4F 53 45 |.".IF YOU CHOOSE|
00001400: 20 12 50 55 4C 53 45 92 2C 22 00 2C 1C 48 08 99 | .PULSE.,".,.H..|
00001410: 22 11 54 48 45 4E 20 12 45 41 43 48 20 43 59 43 |".THEN .EACH CYC|
00001420: 4C 45 92 20 43 41 4E 20 42 45 3A 22 00 4F 1C 52 |LE. CAN BE:".O.R|
00001430: 08 99 22 11 11 CF CC AF AF AF AF AF AF AF BA 22 |.."............"|
00001440: 3A 99 22 11 CF B7 CC AF AF AF AF AF AF BA 22 00 |:."...........".|
00001450: 71 1C 5C 08 99 22 11 CF B7 B7 CC AF AF AF AF AF |q.\.."..........|
00001460: BA 22 3A 99 22 11 CF B7 B7 D0 AF AF AF AF AF BA |.":."...........|
00001470: 22 00 93 1C 66 08 99 22 11 CF B7 B7 B7 D0 AF AF |"...f.."........|
00001480: AF AF BA 22 3A 99 22 11 CF B7 B7 B7 B7 B7 CC AF |...":.".........|
00001490: AF BA 22 00 CC 1C 70 08 99 22 11 11 45 54 43 2E |.."...p.."..ETC.|
000014A0: 20 45 54 43 2E 22 3A 8D 36 33 30 30 30 3A 4D 53 | ETC.":.63000:MS|
000014B0: 24 B2 22 50 55 4C 53 45 57 49 44 54 48 22 3A 8D |$."PULSEWIDTH":.|
000014C0: 36 33 31 30 30 3A 8D 36 33 30 30 30 00 F8 1C 7A |63100:.63000...z|
000014D0: 08 99 22 93 54 48 45 20 12 50 55 4C 53 45 20 57 |..".THE .PULSE W|
000014E0: 49 44 54 48 92 20 49 53 20 47 49 56 45 4E 20 54 |IDTH. IS GIVEN T|
000014F0: 4F 20 12 53 49 44 92 22 00 14 1D 84 08 99 22 11 |O .SID."......".|
00001500: 41 53 20 41 20 31 32 20 42 49 54 20 4E 55 4D 42 |AS A 12 BIT NUMB|
00001510: 45 52 3A 22 00 3E 1D 8E 08 99 22 11 31 32 20 42 |ER:".>....".12 B|
00001520: 49 54 53 20 4D 45 41 4E 53 20 54 48 45 52 45 20 |ITS MEANS THERE |
00001530: 41 52 45 20 32 5E 31 32 3D 34 30 39 36 22 00 5F |ARE 2^12=4096"._|
00001540: 1D 98 08 99 22 11 50 4F 53 53 49 42 4C 45 20 27 |....".POSSIBLE '|
00001550: 50 55 4C 53 45 20 57 49 44 54 48 53 27 2E 22 00 |PULSE WIDTHS'.".|
00001560: 7C 1D A2 08 99 22 11 49 46 20 30 3C 3D 50 57 3C ||....".IF 0<=PW<|
00001570: 3D 34 30 39 35 20 54 48 45 4E 3A 22 00 AD 1D AC |=4095 THEN:"....|
00001580: 08 99 22 11 12 50 4F 4B 45 20 53 49 44 2B 34 2C |.."..POKE SID+4,|
00001590: 50 57 20 41 4E 44 20 32 35 35 3A 50 4F 4B 45 20 |PW AND 255:POKE |
000015A0: 53 49 44 2B 35 2C 50 57 2F 32 35 36 22 00 DA 1D |SID+5,PW/256"...|
000015B0: B6 08 99 22 11 57 48 49 43 48 20 46 49 4C 4C 53 |...".WHICH FILLS|
000015C0: 20 54 48 45 53 45 20 53 49 44 20 52 45 47 49 53 | THESE SID REGIS|
000015D0: 54 45 52 53 20 57 49 54 48 22 00 03 1E C0 08 99 |TERS WITH"......|
000015E0: 22 11 41 20 4C 4F 57 20 42 59 54 45 20 41 4E 44 |".A LOW BYTE AND|
000015F0: 20 41 20 48 49 47 48 20 4E 59 42 42 4C 45 20 28 | A HIGH NYBBLE (|
00001600: 21 29 22 00 24 1E CA 08 4D 53 24 B2 22 20 4E 59 |!)".$...MS$." NY|
00001610: 42 42 4C 45 21 22 3A 8D 36 33 31 30 30 3A 8D 36 |BBLE!":.63100:.6|
00001620: 33 30 30 30 00 60 1E D4 08 99 22 93 22 3B 3A 99 |3000.`....".";:.|
00001630: 4E 4E 24 28 31 29 22 20 20 20 20 20 20 22 4E 24 |NN$(1)" "N$|
00001640: 28 31 29 3A 99 4E 4E 24 28 32 29 22 5F 53 49 44 |(1):.NN$(2)"_SID|
00001650: 2B 32 22 4E 24 28 32 29 22 5F 53 49 44 2B 33 22 |+2"N$(2)"_SID+3"|
00001660: 00 79 1E DE 08 99 4E 4E 24 28 33 29 22 20 20 20 |.y....NN$(3)" |
00001670: 20 20 20 22 4E 24 28 33 29 00 A0 1E E8 08 99 22 | "N$(3)......"|
00001680: 13 11 11 11 20 20 20 20 4C 4F 57 20 42 59 54 45 |.... LOW BYTE|
00001690: 22 A6 31 31 29 22 48 49 20 4E 59 42 42 4C 45 22 |".11)"HI NYBBLE"|
000016A0: 00 CD 1E F2 08 99 22 11 11 49 4E 43 52 45 41 53 |......"..INCREAS|
000016B0: 49 4E 47 20 12 50 57 92 20 43 48 41 4E 47 45 53 |ING .PW. CHANGES|
000016C0: 20 54 48 45 20 50 55 4C 53 45 53 3A 22 00 F0 1E | THE PULSES:"...|
000016D0: 06 09 99 22 11 11 CF CC AF AF AF AF AF AF AF BA |..."............|
000016E0: 22 3A 99 22 11 CF B7 CC AF AF AF AF AF AF BA 22 |":."..........."|
000016F0: 00 12 1F 10 09 99 22 11 CF B7 B7 CC AF AF AF AF |......".........|
00001700: AF BA 22 3A 99 22 11 CF B7 B7 D0 AF AF AF AF AF |..":."..........|
00001710: BA 22 00 34 1F 1A 09 99 22 11 CF B7 B7 B7 D0 AF |.".4....".......|
00001720: AF AF AF BA 22 3A 99 22 11 CF B7 B7 B7 B7 B7 CC |....":."........|
00001730: AF AF BA 22 00 6D 1F 24 09 99 22 11 11 45 54 43 |...".m.$.."..ETC|
00001740: 2E 20 45 54 43 2E 22 3A 8D 36 33 30 30 30 3A 4D |. ETC.":.63000:M|
00001750: 53 24 B2 22 44 55 54 59 20 43 59 43 4C 45 22 3A |S$."DUTY CYCLE":|
00001760: 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 00 96 1F |.63100:.63000...|
00001770: 2E 09 99 22 93 46 4F 52 20 41 20 46 52 41 43 54 |...".FOR A FRACT|
00001780: 49 4F 4E 20 4F 46 20 45 41 43 48 20 43 59 43 4C |ION OF EACH CYCL|
00001790: 45 20 54 48 45 22 00 C1 1F 38 09 99 22 11 50 55 |E THE"...8..".PU|
000017A0: 4C 53 45 20 49 53 20 27 48 49 47 48 27 2E 2E 2E |LSE IS 'HIGH'...|
000017B0: 54 48 45 4E 20 49 54 27 53 20 27 4C 4F 57 27 2E |THEN IT'S 'LOW'.|
000017C0: 22 00 ED 1F 42 09 99 22 11 54 48 45 20 48 49 47 |"...B..".THE HIG|
000017D0: 48 20 46 52 41 43 54 49 4F 4E 20 49 53 20 47 49 |H FRACTION IS GI|
000017E0: 56 45 4E 20 42 59 20 12 50 57 92 3A 22 00 2E 20 |VEN BY .PW.:".. |
000017F0: 4C 09 99 22 11 12 48 49 47 48 20 46 52 41 43 54 |L.."..HIGH FRACT|
00001800: 49 4F 4E 20 3D 20 50 57 2F 34 30 39 35 22 3A 4D |ION = PW/4095":M|
00001810: 53 24 B2 22 20 32 30 34 38 3D 12 35 30 92 25 22 |S$." 2048=.50.%"|
00001820: 3A 8D 36 33 31 30 30 3A 8D 36 33 30 30 30 00 46 |:.63100:.63000.F|
00001830: 20 56 09 99 22 93 53 4F 20 46 41 52 20 57 45 20 | V..".SO FAR WE |
00001840: 48 41 56 45 3A 22 00 58 20 60 09 99 22 11 53 49 |HAVE:".X `..".SI|
00001850: 44 3D 35 34 32 37 32 22 00 79 20 6A 09 99 22 50 |D=54272".y j.."P|
00001860: 4F 4B 45 20 53 49 44 20 20 2C 4C 4F 20 46 52 45 |OKE SID ,LO FRE|
00001870: 51 20 4E 55 4D 42 45 52 22 00 9A 20 74 09 99 22 |Q NUMBER".. t.."|
00001880: 50 4F 4B 45 20 53 49 44 2B 31 2C 48 49 20 46 52 |POKE SID+1,HI FR|
00001890: 45 51 20 4E 55 4D 42 45 52 22 00 BB 20 7E 09 99 |EQ NUMBER".. ~..|
000018A0: 22 50 4F 4B 45 20 53 49 44 2B 32 2C 4C 4F 20 50 |"POKE SID+2,LO P|
000018B0: 55 4C 53 45 20 57 49 44 54 48 22 00 DC 20 88 09 |ULSE WIDTH".. ..|
000018C0: 99 22 50 4F 4B 45 20 53 49 44 2B 33 2C 48 49 20 |."POKE SID+3,HI |
000018D0: 50 55 4C 53 45 20 57 49 44 54 48 22 00 FE 20 92 |PULSE WIDTH".. .|
000018E0: 09 99 22 50 4F 4B 45 20 53 49 44 2B 35 2C 31 36 |.."POKE SID+5,16|
000018F0: 2A 41 54 54 41 43 4B 2B 44 45 43 41 59 22 00 23 |*ATTACK+DECAY".#|
00001900: 21 9C 09 99 22 50 4F 4B 45 20 53 49 44 2B 36 2C |!..."POKE SID+6,|
00001910: 31 36 2A 53 55 53 54 41 49 4E 2B 52 45 4C 45 41 |16*SUSTAIN+RELEA|
00001920: 53 45 22 00 5F 21 A1 09 99 22 50 4F 4B 45 20 53 |SE"._!..."POKE S|
00001930: 49 44 2B 32 34 2C 56 4F 4C 55 4D 45 21 21 21 21 |ID+24,VOLUME!!!!|
00001940: 22 3A 8D 36 33 30 30 30 3A 4D 53 24 B2 22 56 4F |":.63000:MS$."VO|
00001950: 4C 55 4D 45 3C 31 36 22 3A 8D 36 33 31 30 30 00 |LUME<16":.63100.|
00001960: 88 21 A6 09 8D 36 33 30 30 30 3A 4D 53 24 B2 22 |.!...63000:MS$."|
00001970: 2E 2E 2E 54 48 45 4E 3F 3F 22 3A 8D 36 33 31 30 |...THEN??":.6310|
00001980: 30 3A 8D 36 33 30 30 30 00 B7 21 B0 09 99 22 13 |0:.63000..!...".|
00001990: 11 11 11 11 11 11 11 11 11 11 11 11 50 4F 4B 45 |............POKE|
000019A0: 20 53 49 44 2B 34 2C 57 41 56 45 46 4F 52 4D 20 | SID+4,WAVEFORM |
000019B0: 4E 55 4D 42 45 52 22 00 F5 21 BA 09 99 22 11 54 |NUMBER"..!...".T|
000019C0: 4F 20 54 55 52 4E 20 4F 4E 20 54 48 45 20 53 4F |O TURN ON THE SO|
000019D0: 55 4E 44 21 21 22 3A 8D 36 33 30 30 30 3A 4D 53 |UND!!":.63000:MS|
000019E0: 24 B2 22 4C 45 54 27 53 20 54 52 59 21 22 3A 8D |$."LET'S TRY!":.|
000019F0: 36 33 31 30 30 00 1A 22 C4 09 8D 36 33 30 30 30 |63100.."...63000|
00001A00: 3A 99 22 93 11 11 57 45 27 4C 4C 20 53 4F 55 4E |:."...WE'LL SOUN|
00001A10: 44 20 41 4E 20 27 41 27 2E 22 00 45 22 CE 09 99 |D AN 'A'.".E"...|
00001A20: 22 11 54 48 41 54 20 48 41 53 20 41 20 46 52 45 |".THAT HAS A FRE|
00001A30: 51 55 45 4E 43 59 20 4F 46 20 34 34 30 20 48 45 |QUENCY OF 440 HE|
00001A40: 52 54 5A 2E 22 00 61 22 D8 09 99 22 11 34 34 30 |RTZ.".a"...".440|
00001A50: 2F 2E 30 35 39 36 30 34 36 34 35 3D 37 33 38 32 |/.059604645=7382|
00001A60: 22 00 81 22 E2 09 99 22 11 53 4F 20 57 45 20 53 |".."...".SO WE S|
00001A70: 45 54 20 12 46 51 3D 37 33 38 32 92 2E 2E 2E 2E |ET .FQ=7382.....|
00001A80: 22 00 A8 22 EC 09 99 22 11 54 48 41 54 27 53 20 |".."...".THAT'S |
00001A90: 54 48 45 20 27 46 52 45 51 55 45 4E 43 59 20 4E |THE 'FREQUENCY N|
00001AA0: 55 4D 42 45 52 27 2E 22 00 D2 22 F6 09 99 22 11 |UMBER'.".."...".|
00001AB0: 57 45 27 4C 4C 20 43 48 4F 4F 53 45 20 12 50 55 |WE'LL CHOOSE .PU|
00001AC0: 4C 53 45 92 20 57 41 56 45 46 4F 52 4D 20 41 4E |LSE. WAVEFORM AN|
00001AD0: 44 22 00 07 23 00 0A 99 22 11 53 4F 4D 45 20 4E |D"..#...".SOME N|
00001AE0: 49 43 45 20 12 41 44 53 52 92 20 4E 55 4D 42 45 |ICE .ADSR. NUMBE|
00001AF0: 52 53 2C 20 45 54 43 2E 22 3A 8D 36 33 30 30 30 |RS, ETC.":.63000|
00001B00: 3A 46 52 B2 34 34 30 00 46 23 0A 0A 46 51 B2 37 |:FR.440.F#..FQ.7|
00001B10: 33 38 32 3A 41 54 B2 31 30 3A 44 45 B2 32 3A 53 |382:AT.10:DE.2:S|
00001B20: 55 B2 31 30 3A 52 45 B2 31 31 3A 50 55 B2 33 30 |U.10:RE.11:PU.30|
00001B30: 30 30 3A 57 4E B2 36 35 3A 56 4F 4C B2 31 35 3A |00:WN.65:VOL.15:|
00001B40: 8D 36 33 36 30 30 00 69 23 14 0A 4D 53 24 B2 22 |.63600.i#..MS$."|
00001B50: 59 4F 55 52 20 54 55 52 4E 21 22 3A 8D 36 33 31 |YOUR TURN!":.631|
00001B60: 30 30 3A 8D 36 33 30 30 30 00 A9 23 28 0A 99 22 |00:.63000..#(.."|
00001B70: 93 11 11 11 11 11 11 11 11 11 11 4F 4B 2E 2E 2E |...........OK...|
00001B80: 59 4F 55 11 9D 9D 9D B8 B8 B8 91 20 50 49 43 4B |YOU........ PICK|
00001B90: 20 53 4F 4D 45 20 50 41 52 41 4D 45 54 45 52 53 | SOME PARAMETERS|
00001BA0: 3A 22 3A 8D 36 33 30 30 30 00 BB 23 32 0A 8D 36 |:":.63000..#2..6|
00001BB0: 33 38 30 30 3A 8D 36 33 36 30 30 00 E6 23 3C 0A |3800:.63600..#<.|
00001BC0: 85 22 93 11 11 11 11 11 11 11 41 47 41 49 4E 20 |."........AGAIN |
00001BD0: 20 59 9D 9D 9D 22 3B 41 24 3A 8B 41 24 B2 22 59 | Y...";A$:.A$."Y|
00001BE0: 22 A7 32 36 31 30 00 11 24 46 0A 99 22 93 4F 4B |".2610..$F..".OK|
00001BF0: 2E 2E 2E 57 41 49 54 2E 2E 2E 22 3A 4D 53 24 B2 |...WAIT...":MS$.|
00001C00: 22 20 20 4C 49 53 54 45 4E 22 3A 8D 36 33 31 30 |" LISTEN":.6310|
00001C10: 30 00 1C 24 8C 0A 8D 36 30 30 30 30 00 45 24 91 |0..$...60000.E$.|
00001C20: 0A 99 22 93 12 53 3D 35 34 32 37 32 20 20 20 20 |.."..S=54272 |
00001C30: 20 20 20 20 20 92 20 53 49 44 20 43 48 49 50 20 | . SID CHIP |
00001C40: 42 41 53 45 22 00 69 24 96 0A 99 22 12 50 4F 4B |BASE".i$...".POK|
00001C50: 45 20 53 2B 35 2C 31 36 2A 30 30 2B 30 92 20 41 |E S+5,16*00+0. A|
00001C60: 54 3D 30 2C 44 45 3D 30 22 00 8E 24 A0 0A 99 22 |T=0,DE=0"..$..."|
00001C70: 12 50 4F 4B 45 20 53 2B 36 2C 31 36 2A 31 35 2B |.POKE S+6,16*15+|
00001C80: 39 92 20 53 55 3D 31 35 2C 52 45 3D 39 22 00 B2 |9. SU=15,RE=9"..|
00001C90: 24 AA 0A 99 22 12 50 4F 4B 45 20 53 2B 32 34 2C |$...".POKE S+24,|
00001CA0: 31 35 20 20 20 20 92 20 56 4F 4C 55 4D 45 3D 31 |15 . VOLUME=1|
00001CB0: 35 22 00 D9 24 B4 0A 99 22 12 46 4F 52 49 3D 31 |5"..$...".FORI=1|
00001CC0: 20 54 4F 20 4E 20 20 20 20 20 92 20 50 4C 41 59 | TO N . PLAY|
00001CD0: 20 4E 20 4E 4F 54 45 53 22 00 08 25 BE 0A 99 22 | N NOTES"..%..."|
00001CE0: 12 52 45 41 44 20 46 51 2C 44 20 20 20 20 20 20 |.READ FQ,D |
00001CF0: 20 92 20 52 45 41 44 20 46 52 45 51 20 26 20 44 | . READ FREQ & D|
00001D00: 55 52 41 54 49 4F 4E 22 00 2A 25 C8 0A 99 22 12 |URATION".*%...".|
00001D10: 48 49 3D 49 4E 54 28 46 51 2F 32 35 36 29 20 20 |HI=INT(FQ/256) |
00001D20: 92 20 48 49 20 46 52 45 51 22 00 4C 25 D2 0A 99 |. HI FREQ".L%...|
00001D30: 22 12 4C 4F 3D 46 51 2D 32 35 36 2A 48 49 20 20 |".LO=FQ-256*HI |
00001D40: 20 20 92 20 4C 4F 20 46 52 45 51 22 00 6E 25 DC | . LO FREQ".n%.|
00001D50: 0A 99 22 12 50 4F 4B 45 20 53 2C 4C 4F 20 20 20 |..".POKE S,LO |
00001D60: 20 20 20 20 92 20 50 4F 4B 45 20 4C 4F 22 00 90 | . POKE LO"..|
00001D70: 25 E6 0A 99 22 12 50 4F 4B 45 20 53 2B 31 2C 48 |%...".POKE S+1,H|
00001D80: 49 20 20 20 20 20 92 20 50 4F 4B 45 20 48 49 22 |I . POKE HI"|
00001D90: 00 B5 25 EB 0A 99 22 12 57 4E 3D 31 37 20 20 20 |..%...".WN=17 |
00001DA0: 20 20 20 20 20 20 20 20 92 20 57 41 56 45 4E 55 | . WAVENU|
00001DB0: 4D 42 45 52 22 00 DC 25 F0 0A 99 22 12 50 4F 4B |MBER"..%...".POK|
00001DC0: 45 20 53 2B 34 2C 57 4E 20 20 20 20 20 92 20 47 |E S+4,WN . G|
00001DD0: 41 54 45 20 4E 4F 54 45 20 4F 4E 22 00 06 26 FA |ATE NOTE ON"..&.|
00001DE0: 0A 99 22 12 46 4F 52 4A 3D 31 54 4F 44 3A 4E 45 |..".FORJ=1TOD:NE|
00001DF0: 58 54 20 20 92 20 44 55 52 41 54 49 4F 4E 20 20 |XT . DURATION |
00001E00: 20 20 20 20 20 22 00 30 26 04 0B 99 22 12 50 4F | ".0&...".PO|
00001E10: 4B 45 20 53 2B 34 2C 57 4E 2D 31 20 20 20 92 20 |KE S+4,WN-1 . |
00001E20: 52 45 4C 45 41 53 45 20 4E 4F 54 45 20 20 20 22 |RELEASE NOTE "|
00001E30: 00 5A 26 0E 0B 99 22 12 4E 45 58 54 20 20 20 20 |.Z&...".NEXT |
00001E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E50: 20 20 20 20 20 20 20 20 92 22 00 80 26 13 0B 41 | ."..&..A|
00001E60: 54 B2 30 3A 44 45 B2 30 3A 53 55 B2 31 35 3A 52 |T.0:DE.0:SU.15:R|
00001E70: 45 B2 39 3A 4D 30 B2 31 3A 50 55 B2 32 30 30 30 |E.9:M0.1:PU.2000|
00001E80: 00 B3 26 18 0B 4D 31 B2 31 30 3A 57 4E 24 B2 22 |..&..M1.10:WN$."|
00001E90: 13 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 22 3A |..............":|
00001EA0: 57 4E B2 31 37 3A 99 57 4E 24 57 4E 3A 8D 31 30 |WN.17:.WN$WN:.10|
00001EB0: 30 30 30 00 D7 26 22 0B 4D 30 B2 4D 31 3A 4D 31 |000..&".M0.M1:M1|
00001EC0: B2 32 30 3A 57 4E B2 33 33 3A 99 57 4E 24 57 4E |.20:WN.33:.WN$WN|
00001ED0: 3A 8D 31 30 30 30 30 00 FB 26 2C 0B 4D 30 B2 4D |:.10000..&,.M0.M|
00001EE0: 31 3A 4D 31 B2 33 30 3A 57 4E B2 36 35 3A 99 57 |1:M1.30:WN.65:.W|
00001EF0: 4E 24 57 4E 3A 8D 31 30 30 30 30 00 29 27 31 0B |N$WN:.10000.)'1.|
00001F00: 4D 30 B2 4D 31 3A 4D 31 B2 34 30 3A 52 45 B2 30 |M0.M1:M1.40:RE.0|
00001F10: 3A 52 45 24 B2 22 13 11 11 1D 1D 1D 1D 1D 1D 1D |:RE$."..........|
00001F20: 1D 1D 1D 1D 1D 1D 1D 1D 22 00 55 27 36 0B 57 4E |........".U'6.WN|
00001F30: B2 31 37 3A 99 57 4E 24 57 4E 3A 81 41 B2 31 A4 |.17:.WN$WN:.A.1.|
00001F40: 31 30 3A 99 52 45 24 22 D6 1D 1D 1D 1D 1D 1D 1D |10:.RE$"........|
00001F50: 1D 1D 1D 30 22 00 6B 27 37 0B 81 54 B2 31 A4 35 |...0".k'7..T.1.5|
00001F60: 30 3A 82 3A 99 52 45 24 22 30 22 00 82 27 3B 0B |0:.:.RE$"0"..';.|
00001F70: 81 54 B2 31 A4 35 30 3A 82 3A 82 3A 8D 31 30 30 |.T.1.50:.:.:.100|
00001F80: 30 30 00 AE 27 40 0B 57 4E B2 33 33 3A 99 57 4E |00..'@.WN.33:.WN|
00001F90: 24 57 4E 3A 81 41 B2 31 A4 31 30 3A 99 52 45 24 |$WN:.A.1.10:.RE$|
00001FA0: 22 D6 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 30 22 00 C4 |"...........0"..|
00001FB0: 27 41 0B 81 54 B2 31 A4 35 30 3A 82 3A 99 52 45 |'A..T.1.50:.:.RE|
00001FC0: 24 22 30 22 00 E7 27 45 0B 81 54 B2 31 A4 35 30 |$"0"..'E..T.1.50|
00001FD0: 3A 82 3A 82 3A 4D 30 B2 4D 31 3A 4D 31 B2 35 30 |:.:.:M0.M1:M1.50|
00001FE0: 3A 8D 31 30 30 30 30 00 13 28 4A 0B 57 4E B2 36 |:.10000..(J.WN.6|
00001FF0: 35 3A 99 57 4E 24 57 4E 3A 81 41 B2 31 A4 31 30 |5:.WN$WN:.A.1.10|
00002000: 3A 99 52 45 24 22 D6 1D 1D 1D 1D 1D 1D 1D 1D 1D |:.RE$"..........|
00002010: 1D 30 22 00 29 28 4B 0B 81 54 B2 31 A4 35 30 3A |.0".)(K..T.1.50:|
00002020: 82 3A 99 52 45 24 22 30 22 00 4C 28 4F 0B 81 54 |.:.RE$"0".L(O..T|
00002030: B2 31 A4 35 30 3A 82 3A 82 3A 4D 30 B2 4D 31 3A |.1.50:.:.:M0.M1:|
00002040: 4D 31 B2 36 30 3A 8D 31 30 30 30 30 00 6E 28 54 |M1.60:.10000.n(T|
00002050: 0B 57 4E B2 31 32 39 3A 99 57 4E 24 57 4E 3A 99 |.WN.129:.WN$WN:.|
00002060: 52 45 24 22 12 30 22 3A 8D 31 30 30 30 30 00 92 |RE$".0":.10000..|
00002070: 28 5E 0B 4D 53 24 B2 22 20 20 20 12 4E 4F 49 53 |(^.MS$." .NOIS|
00002080: 45 92 21 22 3A 8D 36 33 31 30 30 3A 8D 36 33 30 |E.!":.63100:.630|
00002090: 30 30 00 D7 28 68 0B 99 22 93 11 11 11 4F 4B 2E |00..(h.."....OK.|
000020A0: 2E 4E 4F 57 20 4C 45 54 27 53 20 48 41 56 45 20 |.NOW LET'S HAVE |
000020B0: 12 54 48 52 45 45 92 20 56 4F 49 43 45 53 22 3A |.THREE. VOICES":|
000020C0: 4D 53 24 B2 22 20 20 20 12 54 48 52 45 45 3F 22 |MS$." .THREE?"|
000020D0: 3A 8D 36 33 31 30 30 00 16 29 72 0B 8D 36 33 30 |:.63100..)r..630|
000020E0: 30 30 3A 99 22 93 11 11 11 11 11 11 12 20 20 20 |00:."........ |
000020F0: 20 20 20 20 20 20 20 20 20 20 20 20 4A 45 53 55 | JESU|
00002100: 20 4A 4F 59 20 20 20 20 20 20 20 20 20 20 20 20 | JOY |
00002110: 20 20 20 20 20 22 00 3B 29 7C 0B 99 22 11 11 20 | ".;)|..".. |
00002120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 | W|
00002130: 4E 3D 31 37 22 3A 57 4E B2 31 37 00 65 29 86 0B |N=17":WN.17.e)..|
00002140: 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00002150: 20 41 54 3D 30 3A 44 45 3D 30 22 3A 41 54 B2 30 | AT=0:DE=0":AT.0|
00002160: 3A 44 45 B2 30 00 91 29 90 0B 99 22 11 20 20 20 |:DE.0..)...". |
00002170: 20 20 20 20 20 20 20 20 20 20 20 53 55 3D 31 30 | SU=10|
00002180: 3A 52 45 3D 39 22 3A 53 55 B2 31 30 3A 52 45 B2 |:RE=9":SU.10:RE.|
00002190: 39 00 9C 29 9A 0B 8D 36 33 30 30 30 00 B7 29 A4 |9..)...63000..).|
000021A0: 0B 4D 56 B2 32 3A 4D 30 B2 31 3A 4D 31 B2 36 37 |.MV.2:M0.1:M1.67|
000021B0: 3A 8D 31 30 30 30 30 00 C0 29 B8 0B 58 58 B2 31 |:.10000..)..XX.1|
000021C0: 00 EE 29 C2 0B 99 22 93 11 11 4E 4F 57 20 59 4F |..)..."...NOW YO|
000021D0: 55 11 9D 9D 9D B8 B8 B8 91 20 50 49 43 4B 20 54 |U........ PICK T|
000021E0: 48 45 20 50 41 52 41 4D 45 54 45 52 53 22 00 12 |HE PARAMETERS"..|
000021F0: 2A CC 0B 99 22 11 46 4F 52 20 54 48 45 53 45 20 |*...".FOR THESE |
00002200: 12 54 48 52 45 45 92 20 56 4F 49 43 45 53 2E 11 |.THREE. VOICES..|
00002210: 11 22 00 26 2A D6 0B 99 22 20 20 41 54 54 41 43 |.".&*..." ATTAC|
00002220: 4B 20 22 3B 41 54 00 45 2A DB 0B 85 22 20 20 91 |K ";AT.E*..." .|
00002230: 1D 1D 1D 1D 1D 1D 22 3B 41 54 3A 41 54 B2 41 54 |......";AT:AT.AT|
00002240: 20 AF 20 31 35 00 59 2A E0 0B 99 22 20 20 44 45 | . 15.Y*..." DE|
00002250: 43 41 59 20 20 22 3B 44 45 00 78 2A E5 0B 85 22 |CAY ";DE.x*..."|
00002260: 20 20 91 1D 1D 1D 1D 1D 1D 22 3B 44 45 3A 44 45 | .......";DE:DE|
00002270: B2 44 45 20 AF 20 31 35 00 8E 2A EA 0B 99 22 20 |.DE . 15..*..." |
00002280: 20 53 55 53 54 41 49 4E 20 20 22 3B 53 55 00 AF | SUSTAIN ";SU..|
00002290: 2A EF 0B 85 22 20 20 91 1D 1D 1D 1D 1D 1D 1D 1D |*..." .........|
000022A0: 22 3B 53 55 3A 53 55 B2 53 55 20 AF 20 31 35 00 |";SU:SU.SU . 15.|
000022B0: C5 2A F4 0B 99 22 20 20 52 45 4C 45 41 53 45 20 |.*..." RELEASE |
000022C0: 20 22 3B 52 45 00 E6 2A F9 0B 85 22 20 20 91 1D | ";RE..*..." ..|
000022D0: 1D 1D 1D 1D 1D 1D 1D 22 3B 52 45 3A 52 45 B2 52 |.......";RE:RE.R|
000022E0: 45 20 AF 20 31 35 00 FD 2A FE 0B 99 22 20 20 57 |E . 15..*..." W|
000022F0: 41 56 45 46 4F 52 4D 20 20 22 3B 57 4E 00 37 2B |AVEFORM ";WN.7+|
00002300: 03 0C 85 22 20 20 91 1D 1D 1D 1D 1D 1D 1D 1D 1D |..." ..........|
00002310: 22 3B 57 4E 3A 8B 57 4E B3 B1 31 37 AF 57 4E B3 |";WN:.WN..17.WN.|
00002320: B1 33 33 AF 57 4E B3 B1 36 35 AF 57 4E B3 B1 31 |.33.WN..65.WN..1|
00002330: 32 39 A7 33 30 37 35 00 52 2B 08 0C 4D 56 B2 32 |29.3075.R+..MV.2|
00002340: 3A 4D 30 B2 31 3A 4D 31 B2 33 31 3A 8D 31 30 30 |:M0.1:M1.31:.100|
00002350: 30 30 00 91 2B 12 0C 85 22 13 11 11 11 11 11 11 |00..+...".......|
00002360: 11 11 11 11 11 11 11 11 41 47 41 49 4E 20 20 20 |........AGAIN |
00002370: 59 9D 9D 9D 22 3B 41 24 3A 8B 41 24 B2 22 59 22 |Y...";A$:.A$."Y"|
00002380: A7 99 22 13 11 11 11 11 11 11 22 3A 89 33 30 33 |..".......":.303|
00002390: 30 00 B2 2B 1C 0C 99 22 93 4E 4F 57 2C 20 46 4F |0..+...".NOW, FO|
000023A0: 52 20 12 54 48 52 45 45 92 20 56 4F 49 43 45 53 |R .THREE. VOICES|
000023B0: 21 22 00 C4 2B 26 0C 99 22 11 53 49 44 3D 35 34 |!"..+&..".SID=54|
000023C0: 32 37 32 22 00 E6 2B 30 0C 99 22 50 4F 4B 45 20 |272"..+0.."POKE |
000023D0: 53 49 44 20 20 2C 4C 4F 20 46 52 45 51 20 4E 55 |SID ,LO FREQ NU|
000023E0: 4D 42 45 52 20 22 00 08 2C 44 0C 99 22 50 4F 4B |MBER "..,D.."POK|
000023F0: 45 20 53 49 44 2B 31 2C 48 49 20 46 52 45 51 20 |E SID+1,HI FREQ |
00002400: 4E 55 4D 42 45 52 20 22 00 2A 2C 4E 0C 99 22 50 |NUMBER ".*,N.."P|
00002410: 4F 4B 45 20 53 49 44 2B 32 2C 4C 4F 20 50 55 4C |OKE SID+2,LO PUL|
00002420: 53 45 20 57 49 44 54 48 20 22 00 4C 2C 58 0C 99 |SE WIDTH ".L,X..|
00002430: 22 50 4F 4B 45 20 53 49 44 2B 33 2C 48 49 20 50 |"POKE SID+3,HI P|
00002440: 55 4C 53 45 20 57 49 44 54 48 20 22 00 6E 2C 59 |ULSE WIDTH ".n,Y|
00002450: 0C 99 22 50 4F 4B 45 20 53 49 44 2B 34 2C 57 41 |.."POKE SID+4,WA|
00002460: 56 45 46 4F 52 4D 20 4E 55 4D 42 45 52 22 00 90 |VEFORM NUMBER"..|
00002470: 2C 62 0C 99 22 50 4F 4B 45 20 53 49 44 2B 35 2C |,b.."POKE SID+5,|
00002480: 31 36 2A 41 54 2B 44 45 20 20 20 20 20 20 20 22 |16*AT+DE "|
00002490: 00 B2 2C 6C 0C 99 22 50 4F 4B 45 20 53 49 44 2B |..,l.."POKE SID+|
000024A0: 36 2C 31 36 2A 53 55 2B 52 45 20 20 20 20 20 20 |6,16*SU+RE |
000024B0: 20 22 00 D4 2C 76 0C 99 22 11 50 4F 4B 45 20 53 | "..,v..".POKE S|
000024C0: 49 44 2B 32 34 2C 56 4F 4C 20 20 20 20 20 20 20 |ID+24,VOL |
000024D0: 20 20 20 22 00 F4 2C 80 0C 99 22 11 41 4C 4C 20 | "..,...".ALL |
000024E0: 54 48 49 53 20 46 4F 52 20 12 56 4F 49 43 45 20 |THIS FOR .VOICE |
000024F0: 23 31 2E 22 00 23 2D 8A 0C 99 22 11 2E 2E 2E 41 |#1.".#-..."....A|
00002500: 4E 44 2C 46 4F 52 20 12 56 4F 49 43 45 20 23 32 |ND,FOR .VOICE #2|
00002510: 92 2E 2E 2E 22 3A 8D 36 33 30 30 30 3A 99 22 13 |....":.63000:.".|
00002520: 11 11 22 00 4B 2D 94 0C 5A 24 28 30 29 B2 22 50 |..".K-..Z$(0)."P|
00002530: 4F 4B 45 20 53 49 44 2B 37 2C 4C 4F 20 46 52 45 |OKE SID+7,LO FRE|
00002540: 51 20 4E 55 4D 42 45 52 20 20 22 00 73 2D A8 0C |Q NUMBER ".s-..|
00002550: 5A 24 28 31 29 B2 22 50 4F 4B 45 20 53 49 44 2B |Z$(1)."POKE SID+|
00002560: 38 2C 48 49 20 46 52 45 51 20 4E 55 4D 42 45 52 |8,HI FREQ NUMBER|
00002570: 20 20 22 00 9B 2D B2 0C 5A 24 28 32 29 B2 22 50 | "..-..Z$(2)."P|
00002580: 4F 4B 45 20 53 49 44 2B 39 2C 4C 4F 20 50 55 4C |OKE SID+9,LO PUL|
00002590: 53 45 20 57 49 44 54 48 20 20 22 00 C3 2D BC 0C |SE WIDTH "..-..|
000025A0: 5A 24 28 33 29 B2 22 50 4F 4B 45 20 53 49 44 2B |Z$(3)."POKE SID+|
000025B0: 31 30 2C 57 41 56 45 46 4F 52 4D 20 4E 55 4D 42 |10,WAVEFORM NUMB|
000025C0: 45 52 22 00 EB 2D C1 0C 5A 24 28 34 29 B2 22 50 |ER"..-..Z$(4)."P|
000025D0: 4F 4B 45 20 53 49 44 2B 31 31 2C 48 49 20 50 55 |OKE SID+11,HI PU|
000025E0: 4C 53 45 20 57 49 44 54 48 20 22 00 13 2E C6 0C |LSE WIDTH ".....|
000025F0: 5A 24 28 35 29 B2 22 50 4F 4B 45 20 53 49 44 2B |Z$(5)."POKE SID+|
00002600: 31 32 2C 31 36 2A 41 54 2B 44 45 20 20 20 20 20 |12,16*AT+DE |
00002610: 20 20 22 00 3B 2E D0 0C 5A 24 28 36 29 B2 22 50 | ".;...Z$(6)."P|
00002620: 4F 4B 45 20 53 49 44 2B 31 33 2C 31 36 2A 53 55 |OKE SID+13,16*SU|
00002630: 2B 52 45 20 20 20 20 20 20 20 22 00 64 2E DA 0C |+RE ".d...|
00002640: 5A 24 28 37 29 B2 22 11 50 4F 4B 45 20 53 49 44 |Z$(7).".POKE SID|
00002650: 2B 32 34 2C 56 4F 4C 20 20 5F 53 41 4D 45 21 20 |+24,VOL _SAME! |
00002660: 20 20 20 22 00 87 2E E4 0C 81 49 B2 30 A4 37 3A | "......I.0.7:|
00002670: 4C B2 C3 28 5A 24 28 49 29 29 3A 81 4A B2 31 A4 |L..(Z$(I)):.J.1.|
00002680: 4C 3A 99 22 12 22 3B 00 AA 2E EE 0C 99 CA 28 5A |L:.".";.......(Z|
00002690: 24 28 49 29 2C 4A 2C 31 29 3B 3A 81 54 B2 31 A4 |$(I),J,1);:.T.1.|
000026A0: 31 30 3A 82 3A 82 3A 99 3A 82 00 E1 2E F8 0C 81 |10:.:.:.:.......|
000026B0: 49 B2 31 A4 35 3A 99 42 4C 24 3A 82 3A 4D 53 24 |I.1.5:.BL$:.:MS$|
000026C0: B2 22 26 20 56 4F 49 43 45 33 3F 22 3A 8D 36 33 |."& VOICE3?":.63|
000026D0: 31 30 30 3A 8D 36 33 30 30 30 3A 99 22 13 11 11 |100:.63000:."...|
000026E0: 22 00 09 2F 02 0D 5A 24 28 30 29 B2 22 50 4F 4B |"../..Z$(0)."POK|
000026F0: 45 20 53 49 44 2B 31 34 2C 4C 4F 20 46 52 45 51 |E SID+14,LO FREQ|
00002700: 20 4E 55 4D 42 45 52 20 22 00 31 2F 0C 0D 5A 24 | NUMBER ".1/..Z$|
00002710: 28 31 29 B2 22 50 4F 4B 45 20 53 49 44 2B 31 35 |(1)."POKE SID+15|
00002720: 2C 48 49 20 46 52 45 51 20 4E 55 4D 42 45 52 20 |,HI FREQ NUMBER |
00002730: 22 00 59 2F 16 0D 5A 24 28 32 29 B2 22 50 4F 4B |".Y/..Z$(2)."POK|
00002740: 45 20 53 49 44 2B 31 36 2C 4C 4F 20 50 55 4C 53 |E SID+16,LO PULS|
00002750: 45 20 57 49 44 54 48 20 22 00 81 2F 20 0D 5A 24 |E WIDTH "../ .Z$|
00002760: 28 33 29 B2 22 50 4F 4B 45 20 53 49 44 2B 31 37 |(3)."POKE SID+17|
00002770: 2C 48 49 20 50 55 4C 53 45 20 57 49 44 54 48 20 |,HI PULSE WIDTH |
00002780: 22 00 A9 2F 25 0D 5A 24 28 34 29 B2 22 50 4F 4B |"../%.Z$(4)."POK|
00002790: 45 20 53 49 44 2B 31 38 2C 57 41 56 45 46 4F 52 |E SID+18,WAVEFOR|
000027A0: 4D 20 4E 55 4D 42 45 52 22 00 D1 2F 2A 0D 5A 24 |M NUMBER"../*.Z$|
000027B0: 28 35 29 B2 22 50 4F 4B 45 20 53 49 44 2B 31 39 |(5)."POKE SID+19|
000027C0: 2C 31 36 2A 41 54 2B 44 45 20 20 20 20 20 20 20 |,16*AT+DE |
000027D0: 22 00 F9 2F 34 0D 5A 24 28 36 29 B2 22 50 4F 4B |"../4.Z$(6)."POK|
000027E0: 45 20 53 49 44 2B 32 30 2C 31 36 2A 53 55 2B 52 |E SID+20,16*SU+R|
000027F0: 45 20 20 20 20 20 20 20 22 00 22 30 3E 0D 5A 24 |E "."0>.Z$|
00002800: 28 37 29 B2 22 11 50 4F 4B 45 20 53 49 44 2B 32 |(7).".POKE SID+2|
00002810: 34 2C 56 4F 4C 20 20 5F 53 41 4D 45 21 20 20 20 |4,VOL _SAME! |
00002820: 20 22 00 3F 30 48 0D 81 49 B2 30 A4 37 3A 4C B2 | ".?0H..I.0.7:L.|
00002830: C3 28 5A 24 28 49 29 29 3A 81 4A B2 31 A4 4C 00 |.(Z$(I)):.J.1.L.|
00002840: 62 30 52 0D 99 CA 28 5A 24 28 49 29 2C 4A 2C 31 |b0R...(Z$(I),J,1|
00002850: 29 3B 3A 81 54 B2 31 A4 31 30 3A 82 3A 82 3A 99 |);:.T.1.10:.:.:.|
00002860: 3A 82 00 6D 30 5C 0D 8D 36 33 30 30 30 00 80 30 |:..m0\..63000..0|
00002870: 66 0D 99 22 93 11 11 4A 55 53 54 20 44 4F 3A 22 |f.."...JUST DO:"|
00002880: 00 92 30 70 0D 99 22 11 53 49 44 3D 35 34 32 37 |..0p..".SID=5427|
00002890: 32 22 00 A8 30 75 0D 99 22 11 46 4F 52 20 56 43 |2"..0u..".FOR VC|
000028A0: 3D 30 20 54 4F 20 32 22 00 CF 30 7A 0D 99 22 50 |=0 TO 2"..0z.."P|
000028B0: 4F 4B 45 20 53 49 44 2B 37 2A 56 43 20 20 2C 4C |OKE SID+7*VC ,L|
000028C0: 4F 20 46 52 45 51 20 4E 55 4D 42 45 52 20 22 00 |O FREQ NUMBER ".|
000028D0: F6 30 84 0D 99 22 50 4F 4B 45 20 53 49 44 2B 37 |.0..."POKE SID+7|
000028E0: 2A 56 43 2B 31 2C 48 49 20 46 52 45 51 20 4E 55 |*VC+1,HI FREQ NU|
000028F0: 4D 42 45 52 20 22 00 1D 31 8E 0D 99 22 50 4F 4B |MBER "..1..."POK|
00002900: 45 20 53 49 44 2B 37 2A 56 43 2B 32 2C 4C 4F 20 |E SID+7*VC+2,LO |
00002910: 50 55 4C 53 45 20 57 49 44 54 48 20 22 00 44 31 |PULSE WIDTH ".D1|
00002920: 98 0D 99 22 50 4F 4B 45 20 53 49 44 2B 37 2A 56 |..."POKE SID+7*V|
00002930: 43 2B 33 2C 48 49 20 50 55 4C 53 45 20 57 49 44 |C+3,HI PULSE WID|
00002940: 54 48 20 22 00 6B 31 A2 0D 99 22 50 4F 4B 45 20 |TH ".k1..."POKE |
00002950: 53 49 44 2B 37 2A 56 43 2B 34 2C 57 41 56 45 46 |SID+7*VC+4,WAVEF|
00002960: 4F 52 4D 20 4E 55 4D 42 45 52 22 00 92 31 AC 0D |ORM NUMBER"..1..|
00002970: 99 22 50 4F 4B 45 20 53 49 44 2B 37 2A 56 43 2B |."POKE SID+7*VC+|
00002980: 35 2C 31 36 2A 41 54 2B 44 45 20 20 20 20 20 20 |5,16*AT+DE |
00002990: 20 22 00 B9 31 B6 0D 99 22 50 4F 4B 45 20 53 49 | "..1..."POKE SI|
000029A0: 44 2B 37 2A 56 43 2B 36 2C 31 36 2A 53 55 2B 52 |D+7*VC+6,16*SU+R|
000029B0: 45 20 20 20 20 20 20 20 22 00 C8 31 BB 0D 99 22 |E "..1..."|
000029C0: 4E 45 58 54 20 56 43 22 00 EA 31 C0 0D 99 22 11 |NEXT VC"..1...".|
000029D0: 50 4F 4B 45 20 53 49 44 2B 32 34 2C 56 4F 4C 20 |POKE SID+24,VOL |
000029E0: 20 20 20 20 20 20 20 20 20 22 00 20 32 CA 0D 8D | ". 2...|
000029F0: 36 33 30 30 30 3A 99 22 13 12 42 55 54 20 44 4F |63000:."..BUT DO|
00002A00: 4E 27 54 20 53 54 41 52 54 20 54 48 45 20 4E 4F |N'T START THE NO|
00002A10: 54 45 20 54 4F 4F 20 45 41 52 4C 59 21 21 21 22 |TE TOO EARLY!!!"|
00002A20: 00 61 32 D4 0D 41 24 B2 22 11 11 11 11 11 11 11 |.a2..A$.".......|
00002A30: 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00002A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002A50: 20 20 22 3A 4C B2 C3 28 41 24 29 3A 99 22 12 22 | ":L..(A$):."."|
00002A60: 3B 00 87 32 DE 0D 81 49 B2 31 A4 4C 3A 99 CA 28 |;..2...I.1.L:..(|
00002A70: 41 24 2C 49 2C 31 29 3B 3A 81 54 B2 31 A4 31 30 |A$,I,1);:.T.1.10|
00002A80: 30 3A 82 3A 82 3A 99 00 B9 32 E8 0D 41 24 B2 22 |0:.:.:...2..A$."|
00002A90: 50 4F 4B 45 20 53 49 44 2B 37 2A 56 43 2B 34 2C |POKE SID+7*VC+4,|
00002AA0: 57 41 56 45 46 4F 52 4D 20 4E 55 4D 42 45 52 22 |WAVEFORM NUMBER"|
00002AB0: 3A 99 22 11 11 11 12 22 3B 00 DF 32 F2 0D 81 49 |:."....";..2...I|
00002AC0: B2 31 A4 4C 3A 99 CA 28 41 24 2C 49 2C 31 29 3B |.1.L:..(A$,I,1);|
00002AD0: 3A 81 54 B2 31 A4 31 30 30 3A 82 3A 82 3A 99 00 |:.T.1.100:.:.:..|
00002AE0: 0D 33 FC 0D 4D 53 24 B2 22 4E 4F 57 20 53 54 41 |.3..MS$."NOW STA|
00002AF0: 52 54 21 22 3A 8D 36 33 31 30 30 3A 8D 36 33 30 |RT!":.63100:.630|
00002B00: 30 30 3A 99 22 93 53 45 54 55 50 3A 22 00 2F 33 |00:.".SETUP:"./3|
00002B10: 10 0E 99 22 11 12 53 49 44 3D 35 34 32 37 32 20 |..."..SID=54272 |
00002B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 00 | .".|
00002B30: 50 33 1A 0E 99 22 12 46 4F 52 20 56 43 3D 30 20 |P3...".FOR VC=0 |
00002B40: 54 4F 20 32 20 20 20 20 20 20 20 20 20 20 92 22 |TO 2 ."|
00002B50: 00 7B 33 24 0E 99 22 12 50 4F 4B 45 20 53 49 44 |.{3$..".POKE SID|
00002B60: 2B 37 2A 56 43 20 20 2C 30 20 20 20 20 20 20 92 |+7*VC ,0 .|
00002B70: 3A 4C 4F 20 46 52 45 51 3D 30 22 00 A6 33 2E 0E |:LO FREQ=0"..3..|
00002B80: 99 22 12 50 4F 4B 45 20 53 49 44 2B 37 2A 56 43 |.".POKE SID+7*VC|
00002B90: 2B 31 2C 30 20 20 20 20 20 20 92 3A 48 49 20 46 |+1,0 .:HI F|
00002BA0: 52 45 51 3D 30 22 00 D0 33 38 0E 99 22 12 50 4F |REQ=0"..38..".PO|
00002BB0: 4B 45 20 53 49 44 2B 37 2A 56 43 2B 32 2C 31 36 |KE SID+7*VC+2,16|
00002BC0: 30 20 20 20 20 92 3A 48 49 20 50 55 4C 53 45 22 |0 .:HI PULSE"|
00002BD0: 00 FA 33 42 0E 99 22 12 50 4F 4B 45 20 53 49 44 |..3B..".POKE SID|
00002BE0: 2B 37 2A 56 43 2B 33 2C 31 35 20 20 20 20 20 92 |+7*VC+3,15 .|
00002BF0: 3A 4C 4F 20 50 55 4C 53 45 22 00 25 34 4C 0E 99 |:LO PULSE".%4L..|
00002C00: 22 12 50 4F 4B 45 20 53 49 44 2B 37 2A 56 43 2B |".POKE SID+7*VC+|
00002C10: 34 2C 30 20 20 20 20 20 20 92 3A 54 55 52 4E 20 |4,0 .:TURN |
00002C20: 4F 46 46 21 22 00 50 34 56 0E 99 22 12 50 4F 4B |OFF!".P4V..".POK|
00002C30: 45 20 53 49 44 2B 37 2A 56 43 2B 35 2C 31 36 2A |E SID+7*VC+5,16*|
00002C40: 30 2B 30 20 92 3A 41 54 3D 30 3A 44 45 3D 30 22 |0+0 .:AT=0:DE=0"|
00002C50: 00 7C 34 60 0E 99 22 12 50 4F 4B 45 20 53 49 44 |.|4`..".POKE SID|
00002C60: 2B 37 2A 56 43 2B 36 2C 31 36 2A 31 30 2B 39 92 |+7*VC+6,16*10+9.|
00002C70: 3A 53 55 3D 31 30 3A 52 45 3D 39 22 00 9D 34 6A |:SU=10:RE=9"..4j|
00002C80: 0E 99 22 12 4E 45 58 54 20 56 43 20 20 20 20 20 |..".NEXT VC |
00002C90: 20 20 20 20 20 20 20 20 20 20 20 92 22 00 C4 34 | ."..4|
00002CA0: 6F 0E 99 22 12 50 4F 4B 45 20 53 49 44 2B 32 34 |o..".POKE SID+24|
00002CB0: 2C 31 35 3A 57 4E 3D 36 35 20 20 20 92 3A 50 55 |,15:WN=65 .:PU|
00002CC0: 4C 53 45 22 00 D1 34 74 0E 99 22 50 4C 41 59 3A |LSE"..4t.."PLAY:|
00002CD0: 22 00 01 35 7E 0E 99 22 12 52 45 41 44 20 46 4C |"..5~..".READ FL|
00002CE0: 2C 46 48 2C 44 55 20 20 20 20 20 20 20 20 20 92 |,FH,DU .|
00002CF0: 3A 46 52 45 51 20 26 20 44 55 52 41 54 49 4F 4E |:FREQ & DURATION|
00002D00: 22 00 2E 35 88 0E 99 22 12 50 4F 4B 45 20 53 49 |"..5...".POKE SI|
00002D10: 44 2B 37 2A 56 43 2C 46 4C 20 20 20 20 20 20 92 |D+7*VC,FL .|
00002D20: 3A 50 4F 4B 45 20 4C 4F 20 46 52 45 51 22 00 5B |:POKE LO FREQ".[|
00002D30: 35 92 0E 99 22 12 50 4F 4B 45 20 53 49 44 2B 37 |5...".POKE SID+7|
00002D40: 2A 56 43 2B 31 2C 46 48 20 20 20 20 92 3A 50 4F |*VC+1,FH .:PO|
00002D50: 4B 45 20 48 49 20 46 52 45 51 22 00 83 35 9C 0E |KE HI FREQ"..5..|
00002D60: 99 22 12 50 4F 4B 45 20 53 49 44 2B 37 2A 56 43 |.".POKE SID+7*VC|
00002D70: 2B 34 2C 57 4E 20 20 20 20 92 3A 47 41 54 45 20 |+4,WN .:GATE |
00002D80: 49 54 22 00 AC 35 A6 0E 99 22 12 46 4F 52 20 54 |IT"..5...".FOR T|
00002D90: 3D 31 20 54 4F 20 44 55 3A 4E 45 58 54 20 20 20 |=1 TO DU:NEXT |
00002DA0: 20 92 3A 44 55 52 41 54 49 4F 4E 22 00 D8 35 B0 | .:DURATION"..5.|
00002DB0: 0E 99 22 12 56 43 3D 56 43 2B 31 3A 49 46 56 43 |..".VC=VC+1:IFVC|
00002DC0: 3D 32 54 48 45 4E 56 43 3D 30 92 3A 4E 45 58 54 |=2THENVC=0.:NEXT|
00002DD0: 20 56 4F 49 43 45 21 22 00 01 36 BA 0E 99 22 12 | VOICE!"..6...".|
00002DE0: 50 4F 4B 45 20 53 49 44 2B 37 2A 56 43 2B 31 2C |POKE SID+7*VC+1,|
00002DF0: 57 4E 2D 31 20 20 92 3A 53 54 4F 50 20 49 54 21 |WN-1 .:STOP IT!|
00002E00: 22 00 17 36 C4 0E 99 22 52 45 50 45 41 54 20 41 |"..6..."REPEAT A|
00002E10: 42 4F 56 45 2E 2E 22 00 4A 36 A0 0F 4D 30 B2 31 |BOVE..".J6..M0.1|
00002E20: 3A 4D 31 B2 31 30 33 3A 50 55 B2 32 30 30 30 3A |:M1.103:PU.2000:|
00002E30: 57 4E B2 36 35 3A 41 54 B2 35 3A 44 45 B2 32 3A |WN.65:AT.5:DE.2:|
00002E40: 53 55 B2 31 30 3A 52 45 B2 33 00 5F 36 AA 0F 4D |SU.10:RE.3._6..M|
00002E50: 56 B2 32 3A 58 58 B2 32 3A 8D 31 30 30 30 30 00 |V.2:XX.2:.10000.|
00002E60: 8E 36 0F 27 8D 36 33 30 30 30 3A 99 22 93 22 3A |.6.'.63000:.".":|
00002E70: 4D 53 24 B2 22 41 55 20 52 45 56 4F 49 52 21 22 |MS$."AU REVOIR!"|
00002E80: 3A 8D 36 33 31 30 30 3A 99 22 13 22 3A 80 00 A0 |:.63100:.".":...|
00002E90: 36 10 27 8B 50 55 B2 30 A7 50 55 B2 34 30 30 30 |6.'.PU.0.PU.4000|
00002EA0: 00 DA 36 11 27 53 B2 35 34 32 37 32 3A 81 56 56 |..6.'S.54272:.VV|
00002EB0: B2 30 A4 32 3A 97 53 AA 35 AA 37 AC 56 56 2C 31 |.0.2:.S.5.7.VV,1|
00002EC0: 36 AC 41 54 AA 44 45 3A 97 53 AA 36 AA 37 AC 56 |6.AT.DE:.S.6.7.V|
00002ED0: 56 2C 31 36 AC 53 55 AA 52 45 00 16 37 12 27 97 |V,16.SU.RE..7.'.|
00002EE0: 53 AA 32 AA 37 AC 56 56 2C 50 55 AF 32 35 35 3A |S.2.7.VV,PU.255:|
00002EF0: 97 53 AA 33 AA 37 AC 56 56 2C 50 55 AD 32 35 36 |.S.3.7.VV,PU.256|
00002F00: 3A 97 53 AA 37 AC 56 56 2C 30 3A 97 53 AA 31 AA |:.S.7.VV,0:.S.1.|
00002F10: 37 AC 56 56 2C 30 00 31 37 13 27 82 3A 97 53 AA |7.VV,0.17.'.:.S.|
00002F20: 32 34 2C 31 35 3A 51 51 B2 32 AE 28 31 AD 31 32 |24,15:QQ.2.(1.12|
00002F30: 29 00 41 37 14 27 8B 58 58 B2 32 A7 31 30 30 31 |).A7.'.XX.2.1001|
00002F40: 30 00 6B 37 15 27 99 22 13 11 11 11 11 11 11 11 |0.k7.'."........|
00002F50: 11 11 11 11 11 11 11 11 11 11 11 11 22 42 4C 24 |............"BL$|
00002F60: 3A 99 42 4C 24 3A 99 22 91 91 22 00 88 37 16 27 |:.BL$:.".."..7.'|
00002F70: 8B 57 4E B2 31 37 A7 99 22 20 20 22 54 52 24 54 |.WN.17.." "TR$T|
00002F80: 52 24 54 52 24 54 52 24 00 A5 37 17 27 8B 57 4E |R$TR$TR$..7.'.WN|
00002F90: B2 33 33 A7 99 22 20 20 22 53 41 24 53 41 24 53 |.33.." "SA$SA$S|
00002FA0: 41 24 53 41 24 00 C2 37 18 27 8B 57 4E B2 36 35 |A$SA$..7.'.WN.65|
00002FB0: A7 99 22 20 20 22 50 55 24 50 55 24 50 55 24 50 |.." "PU$PU$PU$P|
00002FC0: 55 24 00 D7 37 19 27 8B 57 4E B2 31 32 39 A7 99 |U$..7.'.WN.129..|
00002FD0: 22 20 20 22 4E 4F 24 00 F6 37 1A 27 81 49 B2 4D |" "NO$..7.'.I.M|
00002FE0: 30 A4 4D 31 3A 46 52 B2 32 30 30 30 AC 28 51 51 |0.M1:FR.2000.(QQ|
00002FF0: AE 4E 28 49 29 29 00 39 38 24 27 48 49 B2 B5 28 |.N(I)).98$'HI..(|
00003000: 46 52 AD 32 35 36 29 3A 4C 4F B2 46 52 AB 32 35 |FR.256):LO.FR.25|
00003010: 36 AC 48 49 3A 97 53 AA 37 AC 56 43 2C 4C 4F 3A |6.HI:.S.7.VC,LO:|
00003020: 97 53 AA 31 AA 37 AC 56 43 2C 48 49 3A 97 53 AA |.S.1.7.VC,HI:.S.|
00003030: 34 AA 37 AC 56 43 2C 57 4E 00 60 38 2E 27 81 4A |4.7.VC,WN.`8.'.J|
00003040: B2 31 A4 35 30 AC 50 28 49 29 3A 82 3A 56 43 B2 |.1.50.P(I):.:VC.|
00003050: 56 43 AA 31 3A 8B 56 43 B1 4D 56 A7 56 43 B2 30 |VC.1:.VC.MV.VC.0|
00003060: 00 73 38 33 27 97 53 AA 34 AA 37 AC 56 43 2C 57 |.s83'.S.4.7.VC,W|
00003070: 4E AB 31 00 A7 38 38 27 82 3A 81 56 56 B2 30 A4 |N.1..88'.:.VV.0.|
00003080: 32 3A 97 53 AA 34 AA 37 AC 56 56 2C 30 3A 82 3A |2:.S.4.7.VV,0:.:|
00003090: 81 54 B2 31 A4 35 30 30 3A 82 3A 8B 58 58 B2 30 |.T.1.500:.:.XX.0|
000030A0: A7 8D 36 33 30 30 30 00 AD 38 42 27 8E 00 BC 38 |..63000..8B'...8|
000030B0: 50 C3 8F 20 4A 45 53 55 20 4A 4F 59 00 C2 38 51 |P.. JESU JOY..8Q|
000030C0: C3 8C 00 CA 38 52 C3 87 20 4D 00 DA 38 53 C3 86 |....8R.. M..8S..|
000030D0: 20 4E 28 4D 29 2C 50 28 4D 29 00 E5 38 55 C3 81 | N(M),P(M)..8U..|
000030E0: 49 B2 31 A4 4D 00 F8 38 56 C3 87 4E 28 49 29 2C |I.1.M..8V..N(I),|
000030F0: 50 28 49 29 3A 82 3A 8E 00 02 39 59 C3 83 20 31 |P(I):.:...9Y.. 1|
00003100: 30 33 00 38 39 5A C3 83 31 32 2C 32 2C 38 2C 32 |03.89Z..12,2,8,2|
00003110: 2C 31 30 2C 32 2C 31 32 2C 32 2C 31 35 2C 32 2C |,10,2,12,2,15,2,|
00003120: 31 33 2C 32 2C 31 33 2C 32 2C 31 37 2C 32 2C 31 |13,2,13,2,17,2,1|
00003130: 35 2C 32 2C 31 35 2C 32 00 6E 39 5B C3 83 32 30 |5,2,15,2.n9[..20|
00003140: 2C 32 2C 31 39 2C 32 2C 32 30 2C 32 2C 31 35 2C |,2,19,2,20,2,15,|
00003150: 32 2C 31 32 2C 32 2C 38 2C 32 2C 31 30 2C 32 2C |2,12,2,8,2,10,2,|
00003160: 31 32 2C 32 2C 31 33 2C 32 2C 31 35 2C 32 00 A2 |12,2,13,2,15,2..|
00003170: 39 5C C3 83 31 37 2C 32 2C 31 35 2C 32 2C 31 33 |9\..17,2,15,2,13|
00003180: 2C 32 2C 31 32 2C 32 2C 31 30 2C 32 2C 31 32 2C |,2,12,2,10,2,12,|
00003190: 32 2C 38 2C 32 2C 37 2C 32 2C 38 2C 32 2C 31 30 |2,8,2,7,2,8,2,10|
000031A0: 2C 32 00 D6 39 5D C3 83 33 2C 32 2C 37 2C 32 2C |,2..9]..3,2,7,2,|
000031B0: 31 30 2C 32 2C 31 33 2C 32 2C 31 32 2C 32 2C 31 |10,2,13,2,12,2,1|
000031C0: 30 2C 32 2C 31 32 2C 32 2C 38 2C 32 2C 31 30 2C |0,2,12,2,8,2,10,|
000031D0: 32 2C 31 32 2C 32 00 0D 3A 5E C3 83 31 35 2C 32 |2,12,2..:^..15,2|
000031E0: 2C 31 33 2C 32 2C 31 33 2C 32 2C 31 37 2C 32 2C |,13,2,13,2,17,2,|
000031F0: 31 35 2C 32 2C 31 35 2C 32 2C 32 30 2C 32 2C 31 |15,2,15,2,20,2,1|
00003200: 39 2C 32 2C 32 30 2C 32 2C 31 35 2C 32 00 41 3A |9,2,20,2,15,2.A:|
00003210: 5F C3 83 31 32 2C 32 2C 38 2C 32 2C 31 30 2C 32 |_..12,2,8,2,10,2|
00003220: 2C 31 32 2C 32 2C 35 2C 32 2C 31 35 2C 32 2C 31 |,12,2,5,2,15,2,1|
00003230: 33 2C 32 2C 31 32 2C 32 2C 31 30 2C 32 2C 38 2C |3,2,12,2,10,2,8,|
00003240: 32 00 73 3A 60 C3 83 33 2C 32 2C 38 2C 32 2C 37 |2.s:`..3,2,8,2,7|
00003250: 2C 32 2C 38 2C 32 2C 31 32 2C 32 2C 31 35 2C 32 |,2,8,2,12,2,15,2|
00003260: 2C 32 30 2C 32 2C 31 35 2C 32 2C 31 32 2C 32 2C |,20,2,15,2,12,2,|
00003270: 38 2C 32 00 A9 3A 61 C3 83 31 32 2C 32 2C 31 35 |8,2..:a..12,2,15|
00003280: 2C 32 2C 31 38 2C 32 2C 31 35 2C 32 2C 31 32 2C |,2,18,2,15,2,12,|
00003290: 32 2C 38 2C 32 2C 31 32 2C 32 2C 31 35 2C 32 2C |2,8,2,12,2,15,2,|
000032A0: 31 37 2C 32 2C 31 33 2C 32 00 DC 3A 62 C3 83 31 |17,2,13,2..:b..1|
000032B0: 30 2C 32 2C 37 2C 32 2C 31 30 2C 32 2C 31 33 2C |0,2,7,2,10,2,13,|
000032C0: 32 2C 31 35 2C 32 2C 31 32 2C 32 2C 38 2C 32 2C |2,15,2,12,2,8,2,|
000032D0: 35 2C 32 2C 38 2C 32 2C 31 32 2C 32 00 0F 3B 63 |5,2,8,2,12,2..;c|
000032E0: C3 83 31 33 2C 32 2C 31 30 2C 32 2C 37 2C 32 2C |..13,2,10,2,7,2,|
000032F0: 33 2C 32 2C 37 2C 32 2C 31 30 2C 32 2C 31 33 2C |3,2,7,2,10,2,13,|
00003300: 32 2C 31 32 2C 32 2C 31 30 2C 32 2C 38 2C 32 00 |2,12,2,10,2,8,2.|
00003310: 3F 3B 64 C3 83 31 32 2C 32 2C 31 35 2C 32 2C 32 |?;d..12,2,15,2,2|
00003320: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00003330: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 |0,0,0,0,0,0,0,0.|
00003340: 50 3B 60 EA 8F 20 49 4E 49 54 49 41 4C 49 5A 45 |P;`.. INITIALIZE|
00003350: 00 72 3B 61 EA 42 54 24 B2 22 13 22 3A 81 49 B2 |.r;a.BT$.".":.I.|
00003360: 31 A4 32 34 3A 42 54 24 B2 42 54 24 AA 22 11 22 |1.24:BT$.BT$."."|
00003370: 3A 82 00 BC 3B 62 EA 50 54 24 B2 22 1C B0 C0 C0 |:...;b.PT$."....|
00003380: C0 C0 C0 C0 C0 C0 C0 C0 AE 11 9D 9D 9D 9D 9D 9D |................|
00003390: 9D 9D 9D 9D 9D 9D DD 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000033A0: 1D DD 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D AD |................|
000033B0: B2 C0 C0 C0 C0 C0 C0 C0 C0 B2 BD 22 00 04 3C 63 |..........."..<c|
000033C0: EA 50 54 24 B2 50 54 24 AA 22 11 9D 9D 9D 9D 9D |.PT$.PT$."......|
000033D0: 9D 9D 9D 9D 9D 9D 9D 9D CE A3 A3 A3 A3 A3 A3 A3 |................|
000033E0: A3 A3 A3 A3 A3 CD 11 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000033F0: 9D 9D 9D 9D 9D A5 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |......==========|
00003400: 3D 3D A7 22 00 40 3C 64 EA 50 54 24 B2 50 54 24 |==.".@<d.PT$.PT$|
00003410: AA 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |."..............|
00003420: 9D D0 CF A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 D0 CF 91 |................|
00003430: 91 91 91 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 |..............."|
00003440: 00 77 3C 65 EA 50 54 24 B2 42 54 24 AA 22 91 91 |.w<e.PT$.BT$."..|
00003450: 91 91 91 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003460: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 AA |..............".|
00003470: 50 54 24 AA 22 90 22 00 A9 3C 67 EA 42 4C 24 B2 |PT$."."..<g.BL$.|
00003480: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00003490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000034A0: 20 20 20 20 20 20 20 20 22 00 BC 3C 68 EA 57 44 | "..<h.WD|
000034B0: B2 34 30 3A 43 52 54 B2 31 30 32 34 00 D8 3C 69 |.40:CRT.1024..<i|
000034C0: EA 97 35 33 32 38 31 2C 31 3A 97 35 33 32 38 30 |..53281,1:.53280|
000034D0: 2C 31 35 3A 99 22 90 22 00 F5 3C 6A EA 56 B2 35 |,15:."."..<j.V.5|
000034E0: 33 32 34 38 3A 81 49 B2 30 A4 31 36 3A 97 56 AA |3248:.I.0.16:.V.|
000034F0: 49 2C 30 3A 82 00 1C 3D 6B EA 97 56 AA 32 33 2C |I,0:...=k..V.23,|
00003500: 30 3A 97 56 AA 32 39 2C 30 3A 81 49 B2 30 A4 37 |0:.V.29,0:.I.0.7|
00003510: 3A 97 56 AA 33 39 AA 49 2C 30 3A 82 00 32 3D 6C |:.V.39.I,0:..2=l|
00003520: EA 4E 24 28 31 29 B2 22 B0 C0 B2 C0 B2 C0 B2 C0 |.N$(1)."........|
00003530: AE 22 00 48 3D 6D EA 4E 24 28 32 29 B2 22 DD 20 |.".H=m.N$(2).". |
00003540: DD 20 DD 20 DD 20 DD 22 00 5E 3D 6E EA 4E 24 28 |. . . .".^=n.N$(|
00003550: 33 29 B2 22 AD C0 B1 C0 B1 C0 B1 C0 BD 22 00 7D |3).".........".}|
00003560: 3D 6F EA 4E 4E 24 28 31 29 B2 22 B0 C0 B2 C0 B2 |=o.NN$(1).".....|
00003570: C0 B2 C0 B2 C0 B2 C0 B2 C0 B2 C0 AE 22 00 9C 3D |............"..=|
00003580: 70 EA 4E 4E 24 28 32 29 B2 22 DD 20 DD 20 DD 20 |p.NN$(2).". . . |
00003590: DD 20 DD 20 DD 20 DD 20 DD 20 DD 22 00 BB 3D 71 |. . . . . ."..=q|
000035A0: EA 4E 4E 24 28 33 29 B2 22 AD C0 B1 C0 B1 C0 B1 |.NN$(3).".......|
000035B0: C0 B1 C0 B1 C0 B1 C0 B1 C0 BD 22 00 E2 3D 74 EA |.........."..=t.|
000035C0: 52 24 B2 22 B0 B2 B2 B2 B2 B2 B2 B2 AE 11 9D 9D |R$."............|
000035D0: 9D 9D 9D 9D 9D 9D 9D AD B1 B1 B1 B1 B1 B1 B1 BD |................|
000035E0: 91 22 00 FD 3D 7E EA 4C 24 B2 22 2D 20 2D 20 2D |."..=~.L$."- - -|
000035F0: 20 2D 20 2D 20 2D 20 2D 20 2D 20 2D 22 00 20 3E | - - - - - -". >|
00003600: 88 EA 50 53 24 B2 22 13 11 1D 1D 1D 1D 1D 1D 1D |..PS$.".........|
00003610: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."|
00003620: 00 42 3E 92 EA 44 4E 24 B2 22 13 11 11 11 11 11 |.B>..DN$."......|
00003630: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00003640: 11 22 00 7A 3E 9C EA 42 4D 4D 24 B2 22 13 11 1D |.".z>..BMM$."...|
00003650: 1D 1D 1D 1D 22 3A 4D 43 4D 24 B2 22 13 11 11 11 |....":MCM$."....|
00003660: 11 1D 1D 1D 1D 1D 1D 1D 22 3A 53 4D 42 24 B2 22 |........":SMB$."|
00003670: 13 11 11 11 11 11 11 11 1D 22 00 C2 3E A6 EA 43 |........."..>..C|
00003680: 4D 42 24 B2 53 4D 42 24 AA 22 1D 1D 1D 1D 1D 1D |MB$.SMB$."......|
00003690: 1D 1D 22 3A 43 4C 24 B2 22 20 20 20 20 20 20 20 |..":CL$." |
000036A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000036B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000036C0: 20 22 00 D6 3E B0 EA 44 4E 24 B2 44 4E 24 AA 43 | "..>..DN$.DN$.C|
000036D0: 4C 24 AA 44 4E 24 00 ED 3E BA EA 53 43 24 B2 53 |L$.DN$..>..SC$.S|
000036E0: 4D 42 24 AA 22 11 11 11 11 11 11 11 22 00 13 3F |MB$."......."..?|
000036F0: C4 EA 43 48 24 B2 53 43 24 AA 22 11 11 11 1D 1D |..CH$.SC$.".....|
00003700: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003710: 1D 1D 22 00 34 3F CE EA 44 44 24 B2 22 13 11 11 |..".4?..DD$."...|
00003720: 11 11 11 22 3A 44 44 24 B2 44 44 24 AA 43 4C 24 |...":DD$.DD$.CL$|
00003730: AA 44 44 24 00 45 3F D8 EA 54 52 24 B2 22 CE 91 |.DD$.E?..TR$."..|
00003740: CE CD 11 CD 22 00 57 3F E2 EA 53 41 24 B2 22 CE |....".W?..SA$.".|
00003750: 91 CE A5 11 9D CC 22 00 74 3F EC EA 50 55 24 B2 |......".t?..PU$.|
00003760: 22 A5 91 9D CF D0 11 9D A7 A4 A4 A4 A4 9D 22 3A |".............":|
00003770: 4E 4E B2 39 00 88 3F 28 EB 8D 36 32 30 30 35 3A |NN.9..?(..62005:|
00003780: 8D 36 33 35 30 30 3A 8E 00 8E 3F 30 F2 3A 00 B8 |.63500:...?0.:..|
00003790: 3F 35 F2 55 24 B2 22 B4 91 9D 22 3A 44 24 B2 22 |?5.U$."...":D$."|
000037A0: B4 11 9D 22 3A 54 24 B2 22 CF B4 11 9D 22 3A 42 |...":T$."....":B|
000037B0: 24 B2 22 CC B4 91 9D 22 00 C6 3F 3A F2 41 24 28 |$."...."..?:.A$(|
000037C0: 30 29 B2 22 AF 22 00 E6 3F 3B F2 41 24 28 31 29 |0)."."..?;.A$(1)|
000037D0: B2 54 24 AA 42 24 3A 55 B2 31 3A 44 B2 32 3A 81 |.T$.B$:U.1:D.2:.|
000037E0: 4A B2 32 A4 31 30 00 1D 40 3C F2 41 24 B2 22 22 |J.2.10..@<.A$.""|
000037F0: 3A 81 49 B2 31 A4 55 3A 41 24 B2 41 24 AA 55 24 |:.I.1.U:A$.A$.U$|
00003800: 3A 82 3A 41 24 B2 41 24 AA 54 24 3A 81 49 B2 31 |:.:A$.A$.T$:.I.1|
00003810: A4 44 3A 41 24 B2 41 24 AA 44 24 3A 82 00 53 40 |.D:A$.A$.D$:..S@|
00003820: 3D F2 41 24 B2 41 24 AA 42 24 3A 81 49 B2 31 A4 |=.A$.A$.B$:.I.1.|
00003830: 55 3A 41 24 B2 41 24 AA 55 24 3A 82 3A 41 24 28 |U:A$.A$.U$:.:A$(|
00003840: 4A 29 B2 41 24 3A 55 B2 55 AA 31 3A 44 B2 32 AC |J).A$:U.U.1:D.2.|
00003850: 55 3A 82 00 6F 40 3F F2 81 4A B2 31 A4 35 3A 44 |U:..o@?..J.1.5:D|
00003860: 24 28 4A 29 B2 41 24 28 31 30 AB 4A 29 3A 82 00 |$(J).A$(10.J):..|
00003870: 7D 40 40 F2 53 53 24 B2 44 24 28 35 29 00 98 40 |}@@.SS$.D$(5)..@|
00003880: 41 F2 81 49 B2 31 A4 35 3A 52 24 28 49 29 B2 41 |A..I.1.5:R$(I).A|
00003890: 24 28 35 AB 49 29 3A 82 00 9E 40 44 F2 8E 00 D8 |$(5.I):...@D....|
000038A0: 40 18 F6 99 22 13 11 11 11 11 11 11 11 11 11 11 |@..."...........|
000038B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 48 49 |..............HI|
000038C0: 54 20 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F |T .RETURN. TO CO|
000038D0: 4E 54 49 4E 55 45 22 3B 00 EE 40 19 F6 A1 41 24 |NTINUE";..@...A$|
000038E0: 3A 8B 41 24 B3 B1 22 22 A7 36 33 30 30 31 00 03 |:.A$.."".63001..|
000038F0: 41 1A F6 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 33 |A...A$:.A$."".63|
00003900: 30 30 32 00 09 41 1B F6 8E 00 0F 41 1C F6 8E 00 |002..A.....A....|
00003910: 23 41 7C F6 81 54 B2 31 A4 35 3A 99 50 54 24 4D |#A|..T.1.5:.PT$M|
00003920: 53 24 3B 00 39 41 7D F6 99 50 54 24 22 20 20 20 |S$;.9A}..PT$" |
00003930: 20 20 20 20 20 20 20 22 3B 00 48 41 7E F6 99 50 | ";.HA~..P|
00003940: 54 24 4D 53 24 3B 3A 82 00 53 41 7F F6 99 22 90 |T$MS$;:..SA...".|
00003950: 22 3A 8E 00 7C 41 E0 F6 99 22 13 11 11 11 11 11 |":..|A..."......|
00003960: 11 11 11 11 11 22 3A 81 49 B2 30 A4 31 30 3A 81 |.....":.I.0.10:.|
00003970: 4A B2 31 A4 C3 28 41 24 28 49 29 29 00 93 41 E5 |J.1..(A$(I))..A.|
00003980: F6 99 CA 28 41 24 28 49 29 2C 4A 2C 31 29 3B 3A |...(A$(I),J,1);:|
00003990: 82 3A 82 00 AC 41 EA F6 81 49 B2 30 A4 35 3A 81 |.:...A...I.0.5:.|
000039A0: 4A B2 31 A4 C3 28 44 24 28 49 29 29 00 C3 41 EF |J.1..(D$(I))..A.|
000039B0: F6 99 CA 28 44 24 28 49 29 2C 4A 2C 31 29 3B 3A |...(D$(I),J,1);:|
000039C0: 82 3A 82 00 DA 41 F4 F6 81 49 B2 30 A4 33 3A 81 |.:...A...I.0.3:.|
000039D0: 4A B2 31 A4 C3 28 53 53 24 29 00 EF 41 F9 F6 99 |J.1..(SS$)..A...|
000039E0: CA 28 53 53 24 2C 4A 2C 31 29 3B 3A 82 3A 82 00 |.(SS$,J,1);:.:..|
000039F0: F5 41 FE F6 8E 00 08 42 44 F7 99 22 13 11 11 11 |.A.....BD.."....|
00003A00: 11 11 11 11 11 11 11 22 00 20 42 49 F7 81 49 B2 |.......". BI..I.|
00003A10: 30 A4 31 30 3A 81 4A B2 31 A4 C3 28 53 53 24 29 |0.10:.J.1..(SS$)|
00003A20: 00 35 42 4E F7 99 CA 28 53 53 24 2C 4A 2C 31 29 |.5BN...(SS$,J,1)|
00003A30: 3B 3A 82 3A 82 00 4E 42 58 F7 81 49 B2 30 A4 34 |;:.:..NBX..I.0.4|
00003A40: 3A 81 4A B2 31 A4 C3 28 52 24 28 49 29 29 00 65 |:.J.1..(R$(I)).e|
00003A50: 42 62 F7 99 CA 28 52 24 28 49 29 2C 4A 2C 31 29 |Bb...(R$(I),J,1)|
00003A60: 3B 3A 82 3A 82 00 7C 42 6C F7 81 49 B2 31 A4 33 |;:.:..|Bl..I.1.3|
00003A70: 3A 99 41 24 28 30 29 3B 3A 82 3A 8E 00 A1 42 A8 |:.A$(0);:.:...B.|
00003A80: F7 99 22 13 11 11 11 11 11 11 11 11 11 11 22 3A |.."...........":|
00003A90: 81 49 B2 33 A4 31 30 3A 99 41 24 28 49 29 3B 3A |.I.3.10:.A$(I);:|
00003AA0: 82 00 B6 42 B2 F7 81 49 B2 31 A4 35 3A 99 44 24 |...B...I.1.5:.D$|
00003AB0: 28 49 29 3B 3A 82 00 C9 42 BC F7 81 49 B2 30 A4 |(I);:...B...I.0.|
00003AC0: 32 3A 99 53 53 24 3B 3A 82 00 DE 42 C6 F7 81 49 |2:.SS$;:...B...I|
00003AD0: B2 31 A4 34 3A 99 52 24 28 49 29 3B 3A 82 00 19 |.1.4:.R$(I);:...|
00003AE0: 43 DA F7 99 22 13 2D 2D 2D 2D 2D 12 41 92 54 54 |C...".-----.A.TT|
00003AF0: 41 43 4B 2D 2D 2D 2D 2D 2D 12 44 92 45 43 41 59 |ACK------.D.ECAY|
00003B00: 2D 2D 12 53 92 55 53 54 41 49 4E 2D 2D 12 52 92 |--.S.USTAIN--.R.|
00003B10: 45 4C 45 41 53 45 22 3A 8E 00 2F 43 0C F8 55 24 |ELEASE":../C..U$|
00003B20: B2 22 DD 91 9D 22 3A 44 24 B2 22 DD 11 9D 22 00 |."...":D$."...".|
00003B30: 6B 43 16 F8 41 24 B2 22 22 3A 81 49 B2 31 A4 4E |kC..A$."":.I.1.N|
00003B40: 4E 3A 4B B2 31 AA 34 AC BB 28 31 29 3A 81 4A B2 |N:K.1.4..(1):.J.|
00003B50: 31 A4 4B 3A 41 24 B2 41 24 AA 55 24 3A 82 3A 41 |1.K:A$.A$.U$:.:A|
00003B60: 24 B2 41 24 AA 22 B0 AE 11 9D 22 00 97 43 20 F8 |$.A$."...."..C .|
00003B70: 81 4A B2 31 A4 4B 3A 41 24 B2 41 24 AA 44 24 3A |.J.1.K:A$.A$.D$:|
00003B80: 82 3A 41 24 B2 41 24 AA 22 91 AD 22 3A 82 3A 4E |.:A$.A$."..":.:N|
00003B90: 4F 24 B2 41 24 3A 8E 00 B4 43 70 F8 99 22 93 11 |O$.A$:...Cp.."..|
00003BA0: 53 49 44 3D 35 34 32 37 32 22 3A 53 49 44 B2 35 |SID=54272":SID.5|
00003BB0: 34 32 37 32 00 C6 43 75 F8 8B 58 58 B2 30 A7 20 |4272..Cu..XX.0. |
00003BC0: 8D 36 33 30 30 30 00 EE 43 7A F8 99 22 13 11 11 |.63000..Cz.."...|
00003BD0: 48 49 3D 49 4E 54 28 22 46 51 22 2F 32 35 36 29 |HI=INT("FQ"/256)|
00003BE0: 22 3A 48 49 B2 B5 28 46 51 AD 32 35 36 29 00 FF |":HI..(FQ.256)..|
00003BF0: 43 7F F8 8B 58 58 B2 30 A7 8D 36 33 30 30 30 00 |C...XX.0..63000.|
00003C00: 26 44 84 F8 99 22 13 11 11 11 4C 4F 3D 22 46 51 |&D..."....LO="FQ|
00003C10: 22 2D 32 35 36 2A 48 49 22 3A 4C 4F B2 46 51 AB |"-256*HI":LO.FQ.|
00003C20: 32 35 36 AC 48 49 00 37 44 89 F8 8B 58 58 B2 30 |256.HI.7D...XX.0|
00003C30: A7 8D 36 33 30 30 30 00 59 44 8E F8 99 22 13 11 |..63000.YD..."..|
00003C40: 11 11 11 50 4F 4B 45 20 53 49 44 20 20 2C 4C 4F |...POKE SID ,LO|
00003C50: 22 3A 97 53 49 44 2C 4C 4F 00 6A 44 93 F8 8B 58 |":.SID,LO.jD...X|
00003C60: 58 B2 30 A7 8D 36 33 30 30 30 00 8F 44 98 F8 99 |X.0..63000..D...|
00003C70: 22 13 11 11 11 11 11 50 4F 4B 45 20 53 49 44 2B |"......POKE SID+|
00003C80: 31 2C 48 49 22 3A 97 53 49 44 AA 31 2C 48 49 00 |1,HI":.SID.1,HI.|
00003C90: A0 44 9D F8 8B 58 58 B2 30 A7 8D 36 33 30 30 30 |.D...XX.0..63000|
00003CA0: 00 B0 44 9E F8 8B 50 55 B2 30 A7 36 33 36 38 30 |..D...PU.0.63680|
00003CB0: 00 C7 44 A2 F8 99 22 13 11 11 11 11 11 11 50 55 |..D...".......PU|
00003CC0: 4C 53 45 3D 22 50 55 00 D8 44 A7 F8 8B 58 58 B2 |LSE="PU..D...XX.|
00003CD0: 30 A7 8D 36 33 30 30 30 00 0F 45 AC F8 99 22 13 |0..63000..E...".|
00003CE0: 11 11 11 11 11 11 11 50 4F 4B 45 20 53 49 44 2B |.......POKE SID+|
00003CF0: 32 2C 50 55 4C 53 45 20 41 4E 44 20 32 35 35 22 |2,PULSE AND 255"|
00003D00: 3A 97 53 49 44 AA 32 32 2C 50 55 AF 32 35 35 00 |:.SID.22,PU.255.|
00003D10: 20 45 B1 F8 8B 58 58 B2 30 A7 8D 36 33 30 30 30 | E...XX.0..63000|
00003D20: 00 53 45 B6 F8 99 22 13 11 11 11 11 11 11 11 11 |.SE...".........|
00003D30: 50 4F 4B 45 20 53 49 44 2B 33 2C 50 55 4C 53 45 |POKE SID+3,PULSE|
00003D40: 2F 32 35 36 22 3A 97 53 49 44 AA 33 2C 50 55 AD |/256":.SID.3,PU.|
00003D50: 32 35 36 00 64 45 BB F8 8B 58 58 B2 30 A7 8D 36 |256.dE...XX.0..6|
00003D60: 33 30 30 30 00 93 45 C0 F8 99 22 13 11 11 11 11 |3000..E...".....|
00003D70: 11 11 11 11 11 41 54 3D 22 41 54 22 3A 44 45 3D |.....AT="AT":DE=|
00003D80: 22 44 45 22 3A 53 55 3D 22 53 55 22 3A 52 45 3D |"DE":SU="SU":RE=|
00003D90: 22 52 45 00 A4 45 C1 F8 8B 58 58 B2 30 A7 8D 36 |"RE..E...XX.0..6|
00003DA0: 33 30 30 30 00 DA 45 C5 F8 99 22 13 11 11 11 11 |3000..E...".....|
00003DB0: 11 11 11 11 11 11 50 4F 4B 45 20 53 49 44 2B 35 |......POKE SID+5|
00003DC0: 2C 31 36 2A 41 54 2B 44 45 22 3A 97 53 49 44 AA |,16*AT+DE":.SID.|
00003DD0: 35 2C 31 36 AC 41 54 AA 44 45 00 EB 45 C6 F8 8B |5,16.AT.DE..E...|
00003DE0: 58 58 B2 30 A7 8D 36 33 30 30 30 00 22 46 CA F8 |XX.0..63000."F..|
00003DF0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 50 4F |."............PO|
00003E00: 4B 45 20 53 49 44 2B 36 2C 31 36 2A 53 55 2B 52 |KE SID+6,16*SU+R|
00003E10: 45 22 3A 97 53 49 44 AA 36 2C 31 36 AC 53 55 AA |E":.SID.6,16.SU.|
00003E20: 52 45 00 33 46 CF F8 8B 58 58 B2 30 A7 8D 36 33 |RE.3F...XX.0..63|
00003E30: 30 30 30 00 52 46 D4 F8 99 22 13 11 11 11 11 11 |000.RF..."......|
00003E40: 11 11 11 11 11 11 11 56 4F 4C 55 4D 45 3D 22 56 |.......VOLUME="V|
00003E50: 4F 4C 00 63 46 D9 F8 8B 58 58 B2 30 A7 8D 36 33 |OL.cF...XX.0..63|
00003E60: 30 30 30 00 97 46 DE F8 99 22 13 11 11 11 11 11 |000..F..."......|
00003E70: 11 11 11 11 11 11 11 11 50 4F 4B 45 20 53 49 44 |........POKE SID|
00003E80: 2B 32 34 2C 56 4F 4C 55 4D 45 22 3A 97 53 49 44 |+24,VOLUME":.SID|
00003E90: AA 32 34 2C 56 4F 4C 00 A8 46 E3 F8 8B 58 58 B2 |.24,VOL..F...XX.|
00003EA0: 30 A7 8D 36 33 30 30 30 00 C4 46 E8 F8 99 22 13 |0..63000..F...".|
00003EB0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 57 4E |..............WN|
00003EC0: 3D 22 57 4E 00 D5 46 ED F8 8B 58 58 B2 30 A7 8D |="WN..F...XX.0..|
00003ED0: 36 33 30 30 30 00 E1 46 EE F8 81 58 58 B2 31 A4 |63000..F...XX.1.|
00003EE0: 33 00 1A 47 EF F8 99 22 13 11 11 11 11 11 11 11 |3..G..."........|
00003EF0: 11 11 11 11 11 11 11 11 11 20 20 20 20 20 20 20 |......... |
00003F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F10: 20 20 20 20 20 20 20 20 20 22 00 58 47 F2 F8 99 | ".XG...|
00003F20: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00003F30: 11 50 4F 4B 45 20 53 49 44 2B 34 2C 57 4E 20 20 |.POKE SID+4,WN |
00003F40: 3A 52 45 4D 20 47 41 54 45 20 49 54 21 22 3A 97 |:REM GATE IT!":.|
00003F50: 53 49 44 AA 34 2C 57 4E 00 68 47 F7 F8 81 54 B2 |SID.4,WN.hG...T.|
00003F60: 31 A4 31 30 30 30 3A 82 00 9C 47 F8 F8 99 22 13 |1.1000:...G...".|
00003F70: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 |............... |
00003F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F90: 20 20 20 20 20 20 20 20 20 20 20 22 00 E1 47 FC | "..G.|
00003FA0: F8 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00003FB0: 11 11 11 11 50 4F 4B 45 20 53 49 44 2B 34 2C 57 |....POKE SID+4,W|
00003FC0: 4E 2D 31 3A 52 45 4D 20 52 45 4C 45 41 53 45 20 |N-1:REM RELEASE |
00003FD0: 49 54 21 21 22 3A 97 53 49 44 AA 34 2C 57 4E AB |IT!!":.SID.4,WN.|
00003FE0: 31 00 F3 47 FD F8 81 54 B2 31 A4 31 30 30 30 3A |1..G...T.1.1000:|
00003FF0: 82 3A 82 00 0F 48 01 F9 8D 36 33 30 30 30 3A 97 |.:...H...63000:.|
00004000: 53 49 44 AA 32 34 2C 30 3A 50 55 B2 30 3A 8E 00 |SID.24,0:PU.0:..|
00004010: 4C 48 38 F9 99 22 93 46 52 45 51 20 28 48 45 52 |LH8..".FREQ (HER|
00004020: 54 5A 29 3D 20 22 46 52 3A 85 22 91 1D 1D 1D 1D |TZ)= "FR:.".....|
00004030: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 46 52 3A 8B 46 |.........";FR:.F|
00004040: 52 B1 33 39 30 30 A7 36 33 38 30 30 00 72 48 39 |R.3900.63800.rH9|
00004050: F9 46 51 B2 B5 28 46 52 AD 2E 30 35 39 36 30 34 |.FQ..(FR..059604|
00004060: 36 34 35 AA 2E 35 29 3A 99 22 11 12 46 51 3D 22 |645..5):."..FQ="|
00004070: 46 51 00 A2 48 3D F9 99 22 11 57 41 56 45 46 4F |FQ..H=..".WAVEFO|
00004080: 52 4D 20 28 12 54 92 52 49 41 4E 47 4C 45 2C 12 |RM (.T.RIANGLE,.|
00004090: 53 92 41 57 54 4F 4F 54 48 2C 12 50 92 55 4C 53 |S.AWTOOTH,.P.ULS|
000040A0: 45 22 00 B9 48 3E F9 A1 57 4E 24 3A 8B 57 4E 24 |E"..H>..WN$:.WN$|
000040B0: B2 22 22 A7 36 33 38 30 36 00 D3 48 42 F9 8B 57 |."".63806..HB..W|
000040C0: 4E 24 B2 22 54 22 A7 57 4E B2 31 37 3A 89 36 33 |N$."T".WN.17:.63|
000040D0: 38 32 35 00 ED 48 47 F9 8B 57 4E 24 B2 22 53 22 |825..HG..WN$."S"|
000040E0: A7 57 4E B2 33 33 3A 89 36 33 38 32 35 00 07 49 |.WN.33:.63825..I|
000040F0: 4C F9 8B 57 4E 24 B2 22 50 22 A7 57 4E B2 36 35 |L..WN$."P".WN.65|
00004100: 3A 89 36 33 38 32 35 00 12 49 4D F9 89 36 33 38 |:.63825..IM..638|
00004110: 30 36 00 2F 49 51 F9 99 22 11 12 57 4E 3D 22 57 |06./IQ.."..WN="W|
00004120: 4E 3A 8B 57 4E B3 B1 36 35 A7 36 33 38 33 35 00 |N:.WN..65.63835.|
00004130: 48 49 56 F9 99 22 11 50 55 4C 53 45 20 57 49 44 |HIV..".PULSE WID|
00004140: 54 48 3D 20 22 3B 50 55 00 60 49 57 F9 85 22 91 |TH= ";PU.`IW..".|
00004150: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 50 55 |............";PU|
00004160: 00 74 49 5B F9 99 22 11 41 54 54 41 43 4B 3D 20 |.tI[..".ATTACK= |
00004170: 22 3B 41 54 00 87 49 5C F9 85 22 91 1D 1D 1D 1D |";AT..I\..".....|
00004180: 1D 1D 1D 22 3B 41 54 00 9B 49 5D F9 99 22 11 44 |...";AT..I]..".D|
00004190: 45 43 41 59 20 3D 20 22 3B 44 45 00 AE 49 5E F9 |ECAY = ";DE..I^.|
000041A0: 85 22 91 1D 1D 1D 1D 1D 1D 1D 22 3B 44 45 00 C4 |."........";DE..|
000041B0: 49 60 F9 99 22 11 53 55 53 54 41 49 4E 20 3D 20 |I`..".SUSTAIN = |
000041C0: 22 3B 53 55 00 D9 49 61 F9 85 22 91 1D 1D 1D 1D |";SU..Ia..".....|
000041D0: 1D 1D 1D 1D 1D 22 3B 53 55 00 EF 49 62 F9 99 22 |.....";SU..Ib.."|
000041E0: 11 52 45 4C 45 41 53 45 20 3D 20 22 3B 52 45 00 |.RELEASE = ";RE.|
000041F0: 04 4A 63 F9 85 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D |.Jc.."..........|
00004200: 22 3B 52 45 00 20 4A 65 F9 85 22 11 56 4F 4C 55 |";RE. Je..".VOLU|
00004210: 4D 45 20 20 20 31 35 9D 9D 9D 9D 22 3B 56 4F 4C |ME 15....";VOL|
00004220: 00 26 4A 6A F9 8E 00 00 00 00 B4 B0 5B 20 64 |.&Jj........[ d |
..-...."....... P.J.PONZO*83*WATERLOO/ON
TARIO.]....60000:.G(142):.".
..SOUND-1"......"....................
....................".Q....". ..
C64 SOUND .. .":MS$."PO
NZOTUTOR"......"........................
.................":.63100:MS$." WELCOME!
".9....63100:.50000:.63000:."..";.D...."
..SOUND IS MADE UP OF AIR MOVEMENT,"....
..".INCREASING AND DECREASING IN PRESSUR
E"......".AND STRIKING OUR EAR PRODUCING
THE"......".SENSATION WE DESCRIBE AS 'M
USIC'"......"....OR 'NOISE', DEPENDING U
PON THE".Q.$..".WAY THE CHANGES IN PRESS
URE OCCUR.":MS$." NOISE?":.63100......6
3000:."..EVEN 'MUSICAL' SOUNDS DIFFER FR
OM ONE"...8..".INSTRUMENT TO ANOTHER.".P
.V..".A SIMPLE 'SCHEME' WHICH DESCRIBES"
...`..".THE DIFFERENCES BETWEEN VARIOUS"
.#.J..".MUSICAL UNSTRUMENTS IS AS FOLLOW
S:".M.T.."..WE'LL LOOK AT A 'NOTE' FROM
SOME"...~..".FICTITIOUS MUSICAL INSTRUME
NT..":MS$."LET'S LOOK":.63100......63000
.W....".<CCCCCATTACKCCCCCCC><CDECAYC><CS
USTAINC>":.62000:.63200......"."BL$".THE
'SUSTAIN' PART LASTS AND LASTS.... ":.6
3000.I....".":.63300:."....UNTIL THE NOT
E IS 'RELEASED'."......"..CCCCCCCSUSTAIN
CCCCCCC><CRELEASEC>":MS$." .ADSR.":.63
100.B....63000:.".HERE'S ONE COMPLETE NO
TE:":.63100:.63400......63000:.".WE CAN
TELL THE .S.OUND"...D.."..I..NTERFACE .D
.EVICE (SID CHIP)".A.N..".WHAT WE WANT F
OR THE .A.TTACK, .D.ECAY".B.X.."..S.USTA
IN AND .R.ELEASE."......".WE HAVE 16 POS
SIBLE VALUES FOR EACH,"......".THAT'S 4
BITS WORTH, SO WE CAN SQUEEZE"......"..A
TTACK/DECAY. INTO ONE REGISTER AND".....
."..SUSTAIN/RELEASE. INTO ANOTHER REGIST
ER.".@...MS$." .AD. .SR.":.63100:.63000
.E....".THE SID CHIP STARTS AT $D400".}.
...".OR .SID=54272.."......".IF 0<=AT<=1
5 AND 0<=DE<=15.A.(..". & 0<=SU<=15 AND
0<=RE<=15.N.2..".THEN:...<.."..POKE SID+
5,16*AT+DE"...F..".POKE SID+6,16*SU+RE".
*.P.MS$." SID+5 & 6":.63100:.63000.Z.Z..
".THE TIME TAKEN TO COMPLETE THE .ATTACK
."...D..".DEPENDS UPON THE VALUE OF .AT.
:0-15."...N..".FOR .AT=0. IT TAKES 2 MIL
LISECONDS."...X..".FOR .AT=15. IT TAKES
8 SECONDS!"......".THE 'DECAY' AND 'RELE
ASE' TIMES ARE".$....".THREE TIMES AS LO
NG:".I...."..DE=0. TAKES 6 MILLISECONDS.
".L. .."..DE=15. TAKES 24 SECONDS!!"....
..".(SAME FOR 'RELEASE').".....MS$."24 S
ECONDS":.63100:.63000.Z....".THE .ADSR.
SETTINGS GIVE THE OUTLINE"...H..".OF THE
WAVEFORM (THE 'ENVELOPE').".6.R..".IN A
DDITION WE CAN CHOOSE THE .FREQUENCY.".`
....".OF THE OSCILLATIONS:.P.P.P.P.P.P."
......".BECAUSE OF THE WIDE RANGE IN FRE
QUENCY"......".WE NEED 16 BITS OR 2 BYTE
S TO HOLD THE"......".FREQUENCY. THIS GI
VES 65536 POSSIBLE".(....".FREQUENCIES..
UP TO ABOUT 4000 HERTZ.":MS$." 2 BYTES"
.Y...."..POKE SID,LO:POKE SID+1,HI":.631
00:.63000......"...IF .FQ. IS THE 'FREQU
ENCY NUMBER',"..."..".WITH 0<=FQ<=65535,
THEN:".L.,.."..HI=INT(FQ/256):LO=FQ-256
*HI"...6..".GIVING THE 2 BYTES FOR SID,
SID+1.":MS$."SID,SID+1":.63100.?.@..6300
0:.".EACH 'NUMBER', FQ, CORRESPONDS TO".
L.J..".A 'FREQUENCY', IN CYCLES PER SECO
ND,"...T..".ACCORDING TO THE MAGIC FORMU
LA:"...^.."..FQ=ACTUAL FREQUENCY/.059604
645.."...H..".IF YOU WANT TO HEAR 'A' IN
THE 4'TH"...R..".OCTAVE OF THE PIANO KE
YBOARD, THAT'S".G.|..".440 HERTZ, SO FQ=
440/.059604645=7381.97".E...."...LET'S S
AY: FQ=7382."......".THEN: .HI=INT(7382/
256)=28 "......" .LO=7382-256
*HI=214 "......" .POKE SID,2
14:POKE SID+1,28":.63000......".OK..WE'V
E GIVEN THE SID CHIP THE .ADSR.".F....".
ENVELOPE, AND THE .FREQUENCY NUMBER.,".O
.B..".NOW WE CHOOSE THE .WAVEFORM.:...".
..L..TR$TR$TR$" = TRIANGLE"...V..".."
SA$SA$SA$SA$SA$" = SAWTOOTH"......".."PU
$PU$PU$" = PULSE":NN.9:.63500......"....
"NO$" =":MS$." .NOISE.!!!":.63100:.63000
.8...."..'NOISE' CONSISTS OF A SEQUENCE"
.A....".OF PULSES OF RANDOM AMPLITUDE...
"......L.1.4:.63500:."......":.P.1.4.L:.
".";:.......NO$;:.:.63100:.63000.Z....".
.POKE SID+4. WITH A 'WAVEFORM NUMBER':.W
N"...&..".TO GET THE DESIRED WAVEFORM.".
#.0..".."TR$TR$" : POKE SID+4,.17".I.:.
.".."SA$SA$" : POKE SID+4,.33".L.D.."
.."PU$PU$" : POKE SID+4,.65"...N.."...."
NO$" : POKE SID+4,.129".E.X.MS$." SID+4,
WN":.63100:.63000:.".";:.I.1.4:.BL$:....
B..".NOTE THE VALUES OF .WN.:":.".WN=16+
1,32+1,64+1,128+1".3.L..63000:.".";:.NN$
(1):.NN$(2)" SID+4":.NN$(3).Y.V.."..HERE
'S THE .SID+4. REGISTER."......"........
...FOR "TR$" WE .POKE SID+4,17":."...0.0
.0.1.0.0.0.1".N....63000:.".";:.NN$(1):.
NN$(2)" SID+4":.NN$(3)......"..HERE'S TH
E .SID+4. REGISTER.".8...."...........FO
R "SA$" WE .POKE SID+4,33":."...0.0.1.0.
0.0.0.1".I....63000:.".";:.NN$(1):.NN$(2
)" SID+4":.NN$(3)......"..HERE'S THE .SI
D+4. REGISTER.".S...."...........FOR "PU
$" WE .POKE SID+4,65":."...0.1.0.0.0.0.0
.1"...F..63000:.".";:.I.1.3:.NN$(I):....
P.."..HERE'S THE .SID+4. REGISTER.".`.Z.
."...........FOR "NO$" WE .POKE SID+4,12
9":."...1.0.0.0.0.0.0.1"......63000:."."
;:.NN$(1):.NN$(2)" SID+4":.NN$(3).H...GB
$.".................":.I.1.5:.GB$".V":.T
.1.100:.......GB$".V":.T.1.100:.:.......
".....THIS BIT, THE .GATE BIT., WHEN".3.
...".SET TO '1', STARTS THE NOTE!!"._...
.".SO BE SURE THE .ADSR., FREQUENCY #,".
.. ..".AND ANY OTHER PARAMETERS ARE GIVE
N"...*..".TO .SID. BEFORE..............
YOU:"...4.."..POKE SID+4,WN.!":.63000:MS
$." OTHERS?":.63100...>..".IF YOU CHOOSE
.PULSE.,".,.H..".THEN .EACH CYCLE. CAN
BE:".O.R.."..OL........":.".O.L.......".
Q.\..".O..L......":.".O..P......"...F.."
.O...P.....":.".O.....L...".L.P.."..ETC.
ETC.":.63000:MS$."PULSEWIDTH":.63100:.6
3000...Z..".THE .PULSE WIDTH. IS GIVEN T
O .SID."......".AS A 12 BIT NUMBER:".>..
..".12 BITS MEANS THERE ARE 2^12=4096"._
....".POSSIBLE 'PULSE WIDTHS'.".|....".I
F 0<=PW<=4095 THEN:"......"..POKE SID+4,
PW AND 255:POKE SID+5,PW/256".Z....".WHI
CH FILLS THESE SID REGISTERS WITH"......
".A LOW BYTE AND A HIGH NYBBLE (!)".$.J.
MS$." NYBBLE!":.63100:.63000.`.T..".";:.
NN$(1)" "N$(1):.NN$(2)"_SID+2"N$(2)
"_SID+3".Y....NN$(3)" "N$(3). ...."
.... LOW BYTE".11)"HI NYBBLE".M....".
.INCREASING .PW. CHANGES THE PULSES:"...
..."..OL........":.".O.L......."......".
O..L......":.".O..P......".4....".O...P.
....":.".O.....L...".M.$.."..ETC. ETC.":
.63000:MS$."DUTY CYCLE":.63100:.63000...
...".FOR A FRACTION OF EACH CYCLE THE".A
.8..".PULSE IS 'HIGH'...THEN IT'S 'LOW'.
"...B..".THE HIGH FRACTION IS GIVEN BY .
PW.:".. L.."..HIGH FRACTION = PW/4095":M
S$." 2048=.50.%":.63100:.63000.F V..".SO
FAR WE HAVE:".X `..".SID=54272".Y J.."P
OKE SID ,LO FREQ NUMBER".. T.."POKE SID
+1,HI FREQ NUMBER".. ~.."POKE SID+2,LO P
ULSE WIDTH".. ..."POKE SID+3,HI PULSE WI
DTH".. ..."POKE SID+5,16*ATTACK+DECAY".#
!..."POKE SID+6,16*SUSTAIN+RELEASE"._!..
."POKE SID+24,VOLUME!!!!":.63000:MS$."VO
LUME<16":.63100..!...63000:MS$."...THEN?
?":.63100:.63000..!...".............POKE
SID+4,WAVEFORM NUMBER"..!...".TO TURN O
N THE SOUND!!":.63000:MS$."LET'S TRY!":.
63100.."D..63000:."...WE'LL SOUND AN 'A'
.".E"N..".THAT HAS A FREQUENCY OF 440 HE
RTZ.".A"X..".440/.059604645=7382".."..."
.SO WE SET .FQ=7382.....".."...".THAT'S
THE 'FREQUENCY NUMBER'.".R"...".WE'LL CH
OOSE .PULSE. WAVEFORM AND"..#...".SOME N
ICE .ADSR. NUMBERS, ETC.":.63000:FR.440.
F#..FQ.7382:AT.10:DE.2:SU.10:RE.11:PU.30
00:WN.65:VOL.15:.63600.I#..MS$."YOUR TUR
N!":.63100:.63000..#(.."...........OK...
YOU........ PICK SOME PARAMETERS:":.6300
0..#2..63800:.63600..#<.."........AGAIN
Y...";A$:.A$."Y".2610..$F..".OK...WAIT.
..":MS$." LISTEN":.63100..$...60000.E$.
.."..S=54272 . SID CHIP BASE".I$
...".POKE S+5,16*00+0. AT=0,DE=0"..$ .."
.POKE S+6,16*15+9. SU=15,RE=9"..$...".PO
KE S+24,15 . VOLUME=15".Y$...".FORI=1
TO N . PLAY N NOTES"..%...".READ FQ
,D . READ FREQ & DURATION".*%H..".
HI=INT(FQ/256) . HI FREQ".L%R..".LO=FQ-
256*HI . LO FREQ".N%...".POKE S,LO
. POKE LO"..%...".POKE S+1,HI .
POKE HI"..%...".WN=17 . WAVENU
MBER"..%...".POKE S+4,WN . GATE NOTE
ON"..&...".FORJ=1TOD:NEXT . DURATION
".0&...".POKE S+4,WN-1 . RELEASE
NOTE ".Z&...".NEXT
."..&..AT.0:DE.0:SU.15:RE.9:M0.1
:PU.2000..&..M1.10:WN$."..............":
WN.17:.WN$WN:.10000.W&".M0.M1:M1.20:WN.3
3:.WN$WN:.10000..&,.M0.M1:M1.30:WN.65:.W
N$WN:.10000.)'1.M0.M1:M1.40:RE.0:RE$."..
................".U'6.WN.17:.WN$WN:.A.1.
10:.RE$"V..........0".K'7..T.1.50:.:.RE$
"0"..';..T.1.50:.:.:.10000..'@.WN.33:.WN
$WN:.A.1.10:.RE$"V..........0".D'A..T.1.
50:.:.RE$"0"..'E..T.1.50:.:.:M0.M1:M1.50
:.10000..(J.WN.65:.WN$WN:.A.1.10:.RE$"V.
.........0".)(K..T.1.50:.:.RE$"0".L(O..T
.1.50:.:.:M0.M1:M1.60:.10000.N(T.WN.129:
.WN$WN:.RE$".0":.10000..(^.MS$." .NOIS
E.!":.63100:.63000.W(H.."....OK..NOW LET
'S HAVE .THREE. VOICES":MS$." .THREE?"
:.63100..)R..63000:."........
JESU JOY ".;)|.."..
WN=17":WN.17.E)...".
AT=0:DE=0":AT.0:DE.0..)...".
SU=10:RE=9":SU.10:RE.9..)...6
3000..)..MV.2:M0.1:M1.67:.10000..)..XX.1
..)B.."...NOW YOU........ PICK THE PARAM
ETERS"..*L..".FOR THESE .THREE. VOICES..
.".&*V.." ATTACK ";AT.E*..." .......";
AT:AT.AT . 15.Y*..." DECAY ";DE.X*..."
.......";DE:DE.DE . 15..*..." SUSTAIN
";SU..*..." .........";SU:SU.SU . 15.
E*..." RELEASE ";RE..*..." ........."
;RE:RE.RE . 15..*..." WAVEFORM ";WN.7+
..." ..........";WN:.WN..17.WN..33.WN..
65.WN..129.3075.R+..MV.2:M0.1:M1.31:.100
00..+..."...............AGAIN Y...";A$
:.A$."Y"..".......":.3030..+...".NOW, FO
R .THREE. VOICES!".D+&..".SID=54272"..+0
.."POKE SID ,LO FREQ NUMBER "..,D.."POK
E SID+1,HI FREQ NUMBER ".*,N.."POKE SID+
2,LO PULSE WIDTH ".L,X.."POKE SID+3,HI P
ULSE WIDTH ".N,Y.."POKE SID+4,WAVEFORM N
UMBER"..,B.."POKE SID+5,16*AT+DE "
..,L.."POKE SID+6,16*SU+RE ".T,V..
".POKE SID+24,VOL "..,...".ALL
THIS FOR .VOICE #1.".#-..."....AND,FOR .
VOICE #2....":.63000:."...".K-..Z$(0)."P
OKE SID+7,LO FREQ NUMBER ".S-..Z$(1)."P
OKE SID+8,HI FREQ NUMBER "..-..Z$(2)."P
OKE SID+9,LO PULSE WIDTH ".C-..Z$(3)."P
OKE SID+10,WAVEFORM NUMBER"..-A.Z$(4)."P
OKE SID+11,HI PULSE WIDTH "...F.Z$(5)."P
OKE SID+12,16*AT+DE ".;.P.Z$(6)."P
OKE SID+13,16*SU+RE ".D.Z.Z$(7).".
POKE SID+24,VOL _SAME! "......I.0.7:
L.C(Z$(I)):.J.1.L:.".";......J(Z$(I),J,1
);:.T.1.10:.:.:.:.......I.1.5:.BL$:.:MS$
."& VOICE3?":.63100:.63000:."..."../..Z$
(0)."POKE SID+14,LO FREQ NUMBER ".1/..Z$
(1)."POKE SID+15,HI FREQ NUMBER ".Y/..Z$
(2)."POKE SID+16,LO PULSE WIDTH "../ .Z$
(3)."POKE SID+17,HI PULSE WIDTH "../%.Z$
(4)."POKE SID+18,WAVEFORM NUMBER".Q/*.Z$
(5)."POKE SID+19,16*AT+DE "../4.Z$
(6)."POKE SID+20,16*SU+RE "."0>.Z$
(7).".POKE SID+24,VOL _SAME! ".?0H..
I.0.7:L.C(Z$(I)):.J.1.L.B0R..J(Z$(I),J,1
);:.T.1.10:.:.:.:..M0\..63000..0F.."...J
UST DO:"..0P..".SID=54272"..0U..".FOR VC
=0 TO 2".O0Z.."POKE SID+7*VC ,LO FREQ N
UMBER "..0..."POKE SID+7*VC+1,HI FREQ NU
MBER "..1..."POKE SID+7*VC+2,LO PULSE WI
DTH ".D1..."POKE SID+7*VC+3,HI PULSE WID
TH ".K1..."POKE SID+7*VC+4,WAVEFORM NUMB
ER"..1..."POKE SID+7*VC+5,16*AT+DE
"..1..."POKE SID+7*VC+6,16*SU+RE
".H1..."NEXT VC"..1...".POKE SID+24,VOL
". 2J..63000:."..BUT DON'T STAR
T THE NOTE TOO EARLY!!!".A2T.A$.".......
... ":L.C(
A$):.".";..2...I.1.L:.J(A$,I,1);:.T.1.10
0:.:.:...2..A$."POKE SID+7*VC+4,WAVEFORM
NUMBER":."....";..2...I.1.L:.J(A$,I,1);
:.T.1.100:.:.:...3..MS$."NOW START!":.63
100:.63000:.".SETUP:"./3..."..SID=54272
.".P3...".FOR VC=0 TO 2
.".{3$..".POKE SID+7*VC ,0 .
:LO FREQ=0"..3...".POKE SID+7*VC+1,0
.:HI FREQ=0".P38..".POKE SID+7*VC+2,16
0 .:HI PULSE"..3B..".POKE SID+7*VC+3,
15 .:LO PULSE".%4L..".POKE SID+7*VC+
4,0 .:TURN OFF!".P4V..".POKE SID+7*
VC+5,16*0+0 .:AT=0:DE=0".|4`..".POKE SID
+7*VC+6,16*10+9.:SU=10:RE=9"..4J..".NEXT
VC .".D4O..".POKE SID+24
,15:WN=65 .:PULSE".Q4T.."PLAY:"..5~.."
.READ FL,FH,DU .:FREQ & DURATION
"..5...".POKE SID+7*VC,FL .:POKE LO
FREQ".[5...".POKE SID+7*VC+1,FH .:PO
KE HI FREQ"..5...".POKE SID+7*VC+4,WN
.:GATE IT"..5...".FOR T=1 TO DU:NEXT
.:DURATION".X5...".VC=VC+1:IFVC=2THENVC
=0.:NEXT VOICE!"..6...".POKE SID+7*VC+1,
WN-1 .:STOP IT!"..6D.."REPEAT ABOVE..".
J6 .M0.1:M1.103:PU.2000:WN.65:AT.5:DE.2:
SU.10:RE.3._6..MV.2:XX.2:.10000..6.'.630
00:.".":MS$."AU REVOIR!":.63100:.".":..
6.'.PU.0.PU.4000.Z6.'S.54272:.VV.0.2:.S.
5.7.VV,16.AT.DE:.S.6.7.VV,16.SU.RE..7.'.
S.2.7.VV,PU.255:.S.3.7.VV,PU.256:.S.7.VV
,0:.S.1.7.VV,0.17.'.:.S.24,15:QQ.2.(1.12
).A7.'.XX.2.10010.K7.'."................
...."BL$:.BL$:.".."..7.'.WN.17.." "TR$T
R$TR$TR$..7.'.WN.33.." "SA$SA$SA$SA$.B7
.'.WN.65.." "PU$PU$PU$PU$.W7.'.WN.129..
" "NO$..7.'.I.M0.M1:FR.2000.(QQ.N(I)).9
8$'HI..(FR.256):LO.FR.256.HI:.S.7.VC,LO:
.S.1.7.VC,HI:.S.4.7.VC,WN.`8.'.J.1.50.P(
I):.:VC.VC.1:.VC.MV.VC.0.S83'.S.4.7.VC,W
N.1..88'.:.VV.0.2:.S.4.7.VV,0:.:.T.1.500
:.:.XX.0..63000..8B'...8PC. JESU JOY.B8Q
C..J8RC. M.Z8SC. N(M),P(M)..8UC.I.1.M..8
VC.N(I),P(I):.:...9YC. 103.89ZC.12,2,8,2
,10,2,12,2,15,2,13,2,13,2,17,2,15,2,15,2
.N9[C.20,2,19,2,20,2,15,2,12,2,8,2,10,2,
12,2,13,2,15,2..9\C.17,2,15,2,13,2,12,2,
10,2,12,2,8,2,7,2,8,2,10,2.V9]C.3,2,7,2,
10,2,13,2,12,2,10,2,12,2,8,2,10,2,12,2..
:^C.15,2,13,2,13,2,17,2,15,2,15,2,20,2,1
9,2,20,2,15,2.A:_C.12,2,8,2,10,2,12,2,5,
2,15,2,13,2,12,2,10,2,8,2.S:`C.3,2,8,2,7
,2,8,2,12,2,15,2,20,2,15,2,12,2,8,2..:AC
.12,2,15,2,18,2,15,2,12,2,8,2,12,2,15,2,
17,2,13,2..:BC.10,2,7,2,10,2,13,2,15,2,1
2,2,8,2,5,2,8,2,12,2..;CC.13,2,10,2,7,2,
3,2,7,2,10,2,13,2,12,2,10,2,8,2.?;DC.12,
2,15,2,20,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.
P;`.. INITIALIZE.R;A.BT$.".":.I.1.24:BT$
.BT$.".":...;B.PT$."....................
........................................
..."..<C.PT$.PT$."..............N.......
.....M................============.".@<D
.PT$.PT$."...............PO..........PO.
...............".W<E.PT$.BT$."..........
......................".PT$."."..<G.BL$.
"
"..<H.WD.40:CRT.1024.X<I..53281,1:.53280
,15:."."..<J.V.53248:.I.0.16:.V.I,0:...=
K..V.23,0:.V.29,0:.I.0.7:.V.39.I,0:..2=L
.N$(1).".........".H=M.N$(2).". . . . ."
.^=N.N$(3).".........".}=O.NN$(1).".....
............"..=P.NN$(2).". . . . . . .
. ."..=Q.NN$(3)."................."..=T.
R$."............................."..=~.L
$."- - - - - - - - -". >..PS$.".........
...............".B>..DN$."..............
.........".Z>..BMM$.".......":MCM$."....
........":SMB$.".........".B>..CMB$.SMB$
."........":CL$."
".V>..DN$.DN$.CL$.DN$..
>..SC$.SMB$."......."..?D.CH$.SC$.".....
..................".4?N.DD$."......":DD$
.DD$.CL$.DD$.E?X.TR$."N.NM.M".W?..SA$."N
.N...L".T?..PU$."...OP........":NN.9..?(
..62005:.63500:...?0.:..?5.U$."...":D$."
...":T$."O...":B$."L...".F?:.A$(0)."."..
?;.A$(1).T$.B$:U.1:D.2:.J.2.10..@<.A$.""
:.I.1.U:A$.A$.U$:.:A$.A$.T$:.I.1.D:A$.A$
.D$:..S@=.A$.A$.B$:.I.1.U:A$.A$.U$:.:A$(
J).A$:U.U.1:D.2.U:..O@?..J.1.5:D$(J).A$(
10.J):..}@@.SS$.D$(5)..@A..I.1.5:R$(I).A
$(5.I):...@D...X@..."...................
......HIT .RETURN. TO CONTINUE";..@...A$
:.A$.."".63001..A...A$:.A$."".63002..A..
...A....#A|..T.1.5:.PT$MS$;.9A}..PT$"
";.HA~..PT$MS$;:..SA..".":..|A..
."...........":.I.0.10:.J.1.C(A$(I))..A.
..J(A$(I),J,1);:.:...A...I.0.5:.J.1.C(D$
(I)).CA...J(D$(I),J,1);:.:..ZA...I.0.3:.
J.1.C(SS$)..A...J(SS$,J,1);:.:...A.....B
D.."...........". BI..I.0.10:.J.1.C(SS$)
.5BN..J(SS$,J,1);:.:..NBX..I.0.4:.J.1.C(
R$(I)).EBB..J(R$(I),J,1);:.:..|BL..I.1.3
:.A$(0);:.:...B..."...........":.I.3.10:
.A$(I);:...B...I.1.5:.D$(I);:..IB...I.0.
2:.SS$;:...BF..I.1.4:.R$(I);:...CZ..".--
---.A.TTACK------.D.ECAY--.S.USTAIN--.R.
ELEASE":../C..U$."...":D$."...".KC..A$."
":.I.1.NN:K.1.4..(1):.J.1.K:A$.A$.U$:.:A
$.A$."...."..C ..J.1.K:A$.A$.D$:.:A$.A$.
"..":.:NO$.A$:...CP.."..SID=54272":SID.5
4272.FCU..XX.0. .63000..CZ.."...HI=INT("
FQ"/256)":HI..(FQ.256)..C..XX.0..63000.
&D..."....LO="FQ"-256*HI":LO.FQ.256.HI.7
D...XX.0..63000.YD...".....POKE SID ,LO
":.SID,LO.JD...XX.0..63000..D..."......P
OKE SID+1,HI":.SID.1,HI. D...XX.0..63000
..D...PU.0.63680.GD...".......PULSE="PU.
XD...XX.0..63000..E..."........POKE SID+
2,PULSE AND 255":.SID.22,PU.255. E...XX.
0..63000.SE...".........POKE SID+3,PULSE
/256":.SID.3,PU.256.DE...XX.0..63000..E.
.."..........AT="AT":DE="DE":SU="SU":RE=
"RE..EA..XX.0..63000.ZEE.."...........PO
KE SID+5,16*AT+DE":.SID.5,16.AT.DE..EF..
XX.0..63000."FJ.."............POKE SID+6
,16*SU+RE":.SID.6,16.SU.RE.3FO..XX.0..63
000.RFT..".............VOLUME="VOL.CFY..
XX.0..63000..F..."..............POKE SID
+24,VOLUME":.SID.24,VOL..F...XX.0..63000
.DF..."...............WN="WN.UF...XX.0..
63000..F...XX.1.3..G..."................
. ".XG...
"................POKE SID+4,WN :REM GAT
E IT!":.SID.4,WN.HG...T.1.1000:...G...".
...............
"..G...".................POKE SID+4,W
N-1:REM RELEASE IT!!":.SID.4,WN.1..G...T
.1.1000:.:...H...63000:.SID.24,0:PU.0:..
LH8..".FREQ (HERTZ)= "FR:.".............
.";FR:.FR.3900.63800.RH9.FQ..(FR..059604
645..5):."..FQ="FQ..H=..".WAVEFORM (.T.R
IANGLE,.S.AWTOOTH,.P.ULSE"..H>..WN$:.WN$
."".63806.SHB..WN$."T".WN.17:.63825..HG.
.WN$."S".WN.33:.63825..IL..WN$."P".WN.65
:.63825..IM..63806./IQ.."..WN="WN:.WN..6
5.63835.HIV..".PULSE WIDTH= ";PU.`IW..".
............";PU.TI[..".ATTACK= ";AT..I\
.."........";AT..I]..".DECAY = ";DE..I^.
."........";DE.DI`..".SUSTAIN = ";SU.YIA
.."..........";SU..IB..".RELEASE = ";RE.
.JC.."..........";RE. JE..".VOLUME 15.
...";VOL.&JJ........[ D
> CLICK IMAGE PREVIEW FOR FULL MODAL