DYNA-TRANSLATOR
FILE INFORMATION
FILENAME(S): DYNA-TRANSLATOR
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 18:13:02
APPEARS ON: 2 disk(s)
FILE HASH
c06eef56de69a3fc013eabe6cfb6e965724e88e6af9c6b7970b85cc75debf7bc
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE AUGUST | DYNA-TRANSLATOR | PRG | Sailor, Ganheden | 13 | 4 | DOWNLOAD FILE |
| GAZETTE AUGUST | DYNA-TRANSLATOR | PRG | DuncanTwain | 13 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 48 08 0A 00 8F 20 43 4F 50 59 52 49 47 48 |..H.... COPYRIGH|
00000010: 54 20 31 39 38 37 20 43 4F 4D 50 55 54 45 21 20 |T 1987 COMPUTE! |
00000020: 50 55 42 4C 49 43 41 54 49 4F 4E 53 2C 20 49 4E |PUBLICATIONS, IN|
00000030: 43 2E 20 2D 20 41 4C 4C 20 52 49 47 48 54 53 20 |C. - ALL RIGHTS |
00000040: 52 45 53 45 52 56 45 44 00 54 08 14 00 4C 4E B2 |RESERVED.T...LN.|
00000050: 38 30 30 30 00 5D 08 1E 00 89 31 30 30 00 7E 08 |8000.]....100.~.|
00000060: 28 00 97 53 AA 31 2C 37 30 3A 97 53 AA 35 2C 37 |(..S.1,70:.S.5,7|
00000070: 3A 97 53 AA 34 2C 31 37 3A 8D 36 30 3A 8E 00 9E |:.S.4,17:.60:...|
00000080: 08 32 00 97 53 AA 31 2C 36 3A 97 53 AA 35 2C 39 |.2..S.1,6:.S.5,9|
00000090: 3A 97 53 AA 34 2C 33 33 3A 8D 36 30 3A 8E 00 BE |:.S.4,33:.60:...|
000000A0: 08 3C 00 81 4A B2 31 A4 32 35 3A 82 3A 81 4A B2 |.<..J.1.25:.:.J.|
000000B0: 53 A4 53 AA 35 3A 97 4A 2C 30 3A 82 3A 8E 00 D0 |S.S.5:.J,0:.:...|
000000C0: 08 46 00 A1 58 24 3A 8B 58 24 B2 22 22 A7 37 30 |.F..X$:.X$."".70|
000000D0: 00 D6 08 50 00 8E 00 F5 08 5A 00 54 24 B2 C4 28 |...P.....Z.T$..(|
000000E0: 54 29 3A 54 24 B2 C9 28 54 24 2C C3 28 54 24 29 |T):T$..(T$,.(T$)|
000000F0: AB 31 29 3A 8E 00 15 09 64 00 97 35 33 32 38 31 |.1):....d..53281|
00000100: 2C 30 3A 97 35 33 32 38 30 2C 30 3A 99 C7 28 31 |,0:.53280,0:..(1|
00000110: 34 29 22 11 11 00 43 09 6E 00 99 22 93 9B 20 20 |4)"...C.n..".. |
00000120: C3 4F 50 59 52 49 47 48 54 20 31 39 38 37 20 C3 |.OPYRIGHT 1987 .|
00000130: CF CD D0 D5 D4 C5 21 20 D0 55 42 2E 2C 20 C9 4E |......! .UB., .N|
00000140: 43 2E 22 00 63 09 78 00 99 A3 39 29 22 C1 4C 4C |C.".c.x...9)".LL|
00000150: 20 D2 49 47 48 54 53 20 D2 45 53 45 52 56 45 44 | .IGHTS .ESERVED|
00000160: 11 11 22 00 9B 09 82 00 99 22 9A D7 48 41 54 20 |.."......"..HAT |
00000170: 49 53 20 54 48 45 20 4F 43 54 41 56 45 3F 22 3A |IS THE OCTAVE?":|
00000180: 53 B2 35 34 32 37 32 3A 97 53 AA 32 34 2C 31 35 |S.54272:.S.24,15|
00000190: 3A 5A 24 B2 22 11 11 11 11 11 22 00 D7 09 8C 00 |:Z$.".....".....|
000001A0: 99 22 11 11 C8 49 54 22 2C 22 98 30 20 54 48 52 |."...IT",".0 THR|
000001B0: 55 20 37 9A 22 2C 22 54 4F 20 49 4E 44 49 43 41 |U 7.","TO INDICA|
000001C0: 54 45 22 3A 99 2C 2C 22 4F 43 54 41 56 45 20 4E |TE":.,,"OCTAVE N|
000001D0: 55 4D 42 45 52 2E 22 00 13 0A 96 00 99 2C 22 11 |UMBER."......,".|
000001E0: 98 D2 C5 D4 D5 D2 CE 9A 22 2C 22 54 4F 20 49 4E |........","TO IN|
000001F0: 44 49 43 41 54 45 20 41 20 52 45 53 54 2E 22 3A |DICATE A REST.":|
00000200: 99 2C 22 11 98 D1 9A 22 2C 22 54 4F 20 51 55 49 |.,"....","TO QUI|
00000210: 54 2E 22 00 59 0A A0 00 99 5A 24 22 1E CD 49 44 |T.".Y....Z$"..ID|
00000220: 44 4C 45 20 C3 20 42 45 47 49 4E 53 20 4F 43 54 |DLE . BEGINS OCT|
00000230: 41 56 45 20 34 2C 20 57 48 49 43 48 20 52 55 4E |AVE 4, WHICH RUN|
00000240: 53 20 20 20 20 55 50 57 41 52 44 20 54 4F 20 49 |S UPWARD TO I|
00000250: 4E 43 4C 55 44 45 20 22 3B 00 9C 0A AA 00 99 22 |NCLUDE ";......"|
00000260: 54 48 45 20 C2 20 41 42 4F 56 45 20 4D 49 44 44 |THE . ABOVE MIDD|
00000270: 4C 45 20 C3 2E 20 D4 48 45 20 4F 43 54 41 56 45 |LE .. .HE OCTAVE|
00000280: 20 41 42 4F 56 45 20 49 53 20 35 20 41 4E 44 20 | ABOVE IS 5 AND |
00000290: 54 48 45 20 4F 43 54 41 56 45 20 22 00 BD 0A B4 |THE OCTAVE "....|
000002A0: 00 99 22 42 45 4C 4F 57 20 4D 49 44 44 4C 45 20 |.."BELOW MIDDLE |
000002B0: C3 20 49 53 20 33 2C 20 45 54 43 2E 9A 00 D8 0A |. IS 3, ETC.....|
000002C0: BE 00 8D 37 30 3A 43 24 B2 58 24 3A 8B 43 24 B3 |...70:C$.X$:.C$.|
000002D0: B1 22 51 22 A7 32 38 30 00 06 0B C8 00 99 22 93 |."Q".280......".|
000002E0: C5 4E 54 45 52 20 98 D9 9A 20 49 46 20 59 4F 55 |.NTER ... IF YOU|
000002F0: 20 52 45 41 4C 4C 59 20 57 41 4E 54 20 54 4F 20 | REALLY WANT TO |
00000300: 51 55 49 54 2E 22 00 21 0B D2 00 8D 37 30 3A 8B |QUIT.".!....70:.|
00000310: 58 24 B3 B1 22 59 22 A7 99 22 93 22 3A 89 31 33 |X$.."Y"..".":.13|
00000320: 30 00 46 0B DC 00 99 22 93 D4 48 45 20 45 4E 54 |0.F...."..HE ENT|
00000330: 52 59 20 53 54 41 47 45 20 49 53 20 43 4F 4D 50 |RY STAGE IS COMP|
00000340: 4C 45 54 45 2E 22 00 77 0B E6 00 99 22 11 C8 49 |LETE.".w...."..I|
00000350: 54 20 98 C3 9A 20 54 4F 20 43 59 43 4C 45 20 54 |T ... TO CYCLE T|
00000360: 48 45 20 4D 55 53 49 43 20 4F 56 45 52 20 41 4E |HE MUSIC OVER AN|
00000370: 44 20 4F 56 45 52 2E 00 BF 0B F0 00 99 22 11 C1 |D OVER......."..|
00000380: 4E 59 20 4F 54 48 45 52 20 4B 45 59 20 54 4F 20 |NY OTHER KEY TO |
00000390: 50 4C 41 59 20 54 48 45 20 4D 55 53 49 43 20 4F |PLAY THE MUSIC O|
000003A0: 4E 43 45 20 20 20 20 45 41 43 48 20 54 49 4D 45 |NCE EACH TIME|
000003B0: 20 49 54 20 49 53 20 43 41 4C 4C 45 44 2E 22 00 | IT IS CALLED.".|
000003C0: DC 0B FA 00 8D 37 30 3A 4C 24 B2 22 30 22 3A 48 |.....70:L$."0":H|
000003D0: 24 B2 22 30 22 3A 55 24 B2 22 30 22 00 EF 0B 04 |$."0":U$."0"....|
000003E0: 01 8B 58 24 B2 22 43 22 A7 4C 24 B2 22 31 22 00 |..X$."C".L$."1".|
000003F0: FC 0B 0E 01 8D 34 30 3A 89 38 33 30 00 2E 0C 18 |.....40:.830....|
00000400: 01 43 B2 C5 28 43 24 29 3A 8B 43 24 B2 C7 28 31 |.C..(C$):.C$..(1|
00000410: 33 29 A7 3A 43 24 B2 22 52 45 53 54 22 3A 4C B2 |3).:C$."REST":L.|
00000420: 30 3A 48 B2 30 3A 8D 34 30 3A 89 34 31 30 00 4A |0:H.0:.40:.410.J|
00000430: 0C 22 01 8B 43 24 B3 22 30 22 B0 43 24 B1 22 37 |."..C$."0".C$."7|
00000440: 22 A7 8D 35 30 3A 89 31 39 30 00 67 0C 2C 01 8D |"..50:.190.g.,..|
00000450: 34 30 3A 99 22 93 22 5A 24 22 91 CF 43 54 41 56 |40:."."Z$"..CTAV|
00000460: 45 20 49 53 1C 22 43 00 92 0C 36 01 99 22 11 11 |E IS."C...6.."..|
00000470: 9A C5 4E 54 45 52 20 54 48 45 20 4C 45 54 54 45 |..NTER THE LETTE|
00000480: 52 20 4E 41 4D 45 20 4F 46 20 54 48 45 20 4E 4F |R NAME OF THE NO|
00000490: 54 45 00 D0 0C 40 01 99 22 46 4F 4C 4C 4F 57 45 |TE...@.."FOLLOWE|
000004A0: 44 20 42 59 20 41 4E 20 27 98 53 9A 27 20 46 4F |D BY AN '.S.' FO|
000004B0: 52 20 41 20 53 48 41 52 50 20 4F 52 20 41 4E 20 |R A SHARP OR AN |
000004C0: 27 98 46 9A 27 46 4F 52 20 41 20 46 4C 41 54 2E |'.F.'FOR A FLAT.|
000004D0: 00 F4 0C 4A 01 99 22 11 CB 45 45 50 20 41 4C 4C |...J.."..EEP ALL|
000004E0: 20 45 4E 54 52 49 45 53 20 4C 4F 57 45 52 20 43 | ENTRIES LOWER C|
000004F0: 41 53 45 2E 00 11 0D 54 01 85 22 11 11 D7 48 41 |ASE....T.."...HA|
00000500: 54 20 49 53 20 54 48 45 20 4E 4F 54 45 22 3B 4E |T IS THE NOTE";N|
00000510: 24 00 2E 0D 5E 01 81 4A B2 30 A4 31 36 3A 87 41 |$...^..J.0.16:.A|
00000520: 24 2C 4E 3A 8B 4E 24 B2 41 24 A7 33 39 30 00 3A |$,N:.N$.A$.390.:|
00000530: 0D 68 01 82 3A 8C 3A 8D 35 30 00 81 0D 72 01 99 |.h..:.:.50...r..|
00000540: 22 11 D0 4C 45 41 53 45 20 45 4E 54 45 52 3A 22 |"..LEASE ENTER:"|
00000550: 2C 22 98 43 2C 43 53 2C 44 46 2C 44 2C 44 53 2C |,".C,CS,DF,D,DS,|
00000560: 45 46 2C 45 2C 46 22 2C 2C 2C 22 46 53 2C 47 2C |EF,E,F",,,"FS,G,|
00000570: 47 53 2C 41 46 2C 41 2C 42 46 2C 4F 52 20 42 9A |GS,AF,A,BF,OR B.|
00000580: 22 00 8A 0D 7C 01 89 33 34 30 00 BF 0D 86 01 8D |"...|..340......|
00000590: 34 30 3A 58 B2 C6 28 C8 28 4E 24 2C 31 29 29 3A |40:X..(.(N$,1)):|
000005A0: 58 B2 58 AA 31 32 38 3A 57 24 B2 C7 28 58 29 3A |X.X.128:W$..(X):|
000005B0: 4E 24 B2 57 24 AA CA 28 4E 24 2C 32 2C 31 29 00 |N$.W$..(N$,2,1).|
000005C0: 08 0E 90 01 51 B2 34 34 30 AC 31 2E 30 35 39 34 |....Q.440.1.0594|
000005D0: 36 33 30 39 AE 28 4E AB 31 30 29 AC 32 AE 28 43 |6309.(N.10).2.(C|
000005E0: AB 34 29 3A 56 B2 51 AD 2E 30 36 30 39 36 3A 48 |.4):V.Q..06096:H|
000005F0: B2 B5 28 56 AD 32 35 36 29 3A 4C B2 B5 28 56 AB |..(V.256):L..(V.|
00000600: 28 48 AC 32 35 36 29 29 00 3D 0E 9A 01 99 22 93 |(H.256)).=....".|
00000610: 22 5A 24 22 D6 41 4C 49 44 20 45 4E 54 52 49 45 |"Z$".ALID ENTRIE|
00000620: 53 20 41 52 45 3A 20 98 31 2C 32 2C 34 2C 38 2C |S ARE: .1,2,4,8,|
00000630: 31 36 2C 33 32 2C 4F 52 20 36 34 9A 22 00 64 0E |16,32,OR 64.".d.|
00000640: A4 01 99 22 11 98 31 9A 20 20 46 4F 52 20 41 20 |..."..1. FOR A |
00000650: 57 48 4F 4C 45 20 4E 4F 54 45 20 4F 52 20 52 45 |WHOLE NOTE OR RE|
00000660: 53 54 2E 22 00 8C 0E AE 01 99 22 98 34 9A 20 20 |ST."......".4. |
00000670: 46 4F 52 20 41 20 51 55 41 52 54 45 52 20 4E 4F |FOR A QUARTER NO|
00000680: 54 45 20 4F 52 20 52 45 53 54 2E 22 00 B6 0E B8 |TE OR REST."....|
00000690: 01 99 22 98 33 32 9A 20 46 4F 52 20 41 20 33 32 |..".32. FOR A 32|
000006A0: 4E 44 20 4E 4F 54 45 20 4F 52 20 52 45 53 54 2C |ND NOTE OR REST,|
000006B0: 20 45 54 43 2E 22 00 FE 0E C2 01 99 22 11 D0 4C | ETC."......"..L|
000006C0: 41 43 45 20 41 20 50 45 52 49 4F 44 20 41 46 54 |ACE A PERIOD AFT|
000006D0: 45 52 20 54 48 45 20 4E 55 4D 42 45 52 20 54 4F |ER THE NUMBER TO|
000006E0: 20 20 20 20 20 20 44 4F 54 20 49 54 2E 20 20 1E | DOT IT. .|
000006F0: C4 4F 54 54 45 44 20 4E 4F 54 45 53 22 3B 00 3A |.OTTED NOTES";.:|
00000700: 0F CC 01 99 22 20 41 52 45 20 48 45 4C 44 20 48 |...." ARE HELD H|
00000710: 41 4C 46 20 20 20 20 20 41 47 41 49 4E 20 41 53 |ALF AGAIN AS|
00000720: 20 4C 4F 4E 47 20 41 53 20 55 4E 44 4F 54 54 45 | LONG AS UNDOTTE|
00000730: 44 20 4E 4F 54 45 53 2E 9A 22 00 80 0F D6 01 99 |D NOTES.."......|
00000740: 5A 24 22 C5 4E 54 45 52 20 98 C4 9A 20 54 4F 20 |Z$".NTER ... TO |
00000750: 42 59 50 41 53 53 20 54 48 45 20 41 42 4F 56 45 |BYPASS THE ABOVE|
00000760: 20 50 52 4F 43 45 53 53 2C 20 53 4F 20 59 4F 55 | PROCESS, SO YOU|
00000770: 20 43 41 4C 43 55 4C 41 54 45 20 54 48 45 22 3B | CALCULATE THE";|
00000780: 00 C8 0F E0 01 99 22 20 98 44 9A 55 52 41 54 49 |......" .D.URATI|
00000790: 4F 4E 20 41 4E 44 20 50 4C 41 43 45 20 49 54 20 |ON AND PLACE IT |
000007A0: 44 49 52 45 43 54 4C 59 20 49 4E 20 54 48 45 20 |DIRECTLY IN THE |
000007B0: 43 52 45 41 54 45 44 20 44 41 54 41 20 53 54 41 |CREATED DATA STA|
000007C0: 54 45 4D 45 4E 54 2E 22 00 04 10 EA 01 99 22 13 |TEMENT."......".|
000007D0: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 13 D0 |. ..|
000007E0: 4C 45 41 53 45 20 45 4E 54 45 52 20 54 48 45 20 |LEASE ENTER THE |
000007F0: 4E 4F 54 45 20 4F 52 20 52 45 53 54 20 56 41 4C |NOTE OR REST VAL|
00000800: 55 45 2E 22 00 15 10 F4 01 85 20 55 24 3A 55 B2 |UE."...... U$:U.|
00000810: C5 28 55 24 29 00 26 10 FE 01 8B 55 24 B1 B3 22 |.(U$).&....U$.."|
00000820: 44 22 A7 35 37 30 00 4E 10 08 02 99 22 93 C5 4E |D".570.N...."..N|
00000830: 54 45 52 20 59 4F 55 52 20 43 41 4C 43 55 4C 41 |TER YOUR CALCULA|
00000840: 54 45 44 20 44 55 52 41 54 49 4F 4E 2E 22 00 57 |TED DURATION.".W|
00000850: 10 12 02 85 44 52 24 00 65 10 1C 02 44 52 B2 C5 |....DR$.e...DR..|
00000860: 28 44 52 24 29 00 7F 10 26 02 8B 44 52 B3 30 B0 |(DR$)...&..DR.0.|
00000870: 44 52 B1 32 35 35 A7 8D 35 30 3A 89 35 32 30 00 |DR.255..50:.520.|
00000880: 88 10 30 02 89 36 32 30 00 9E 10 3A 02 81 4A B2 |..0..620...:..J.|
00000890: 30 A4 36 3A 8B 32 AE 4A B2 55 A7 36 30 30 00 A4 |0.6:.2.J.U.600..|
000008A0: 10 44 02 82 00 BA 10 4E 02 8D 35 30 3A 89 34 39 |.D.....N..50:.49|
000008B0: 30 3A 8F 20 52 45 4A 45 43 54 00 CF 10 58 02 55 |0:. REJECT...X.U|
000008C0: B2 31 32 38 AD 55 3A 8F 20 41 43 43 45 50 54 00 |.128.U:. ACCEPT.|
000008D0: E8 10 62 02 8B C9 28 55 24 2C 31 29 B2 22 2E 22 |..b...(U$,1)."."|
000008E0: A7 55 B2 55 AC 31 2E 35 00 0B 11 6C 02 8D 34 30 |.U.U.1.5...l..40|
000008F0: 3A 99 22 93 C8 45 52 45 20 49 53 20 59 4F 55 52 |:."..ERE IS YOUR|
00000900: 20 4E 4F 54 45 3A 11 11 11 11 22 00 36 11 76 02 | NOTE:....".6.v.|
00000910: 99 22 CF 43 54 41 56 45 1C 20 22 43 24 22 1D 9A |.".CTAVE. "C$"..|
00000920: CE 4F 54 45 20 1C 22 4E 24 22 9A 1D 1D D6 41 4C |.OTE ."N$"....AL|
00000930: 55 45 20 1C 22 3B 00 59 11 80 02 8B 44 52 A7 99 |UE .";.Y....DR..|
00000940: 22 9A 9D 9D 9D 9D 9D 9D C4 55 52 41 54 49 4F 4E |"........URATION|
00000950: 1C 22 44 52 3A 89 36 37 30 00 6F 11 8A 02 8B 55 |."DR:.670.o....U|
00000960: 24 B2 22 31 22 A7 99 22 31 22 3A 89 36 37 30 00 |$."1".."1":.670.|
00000970: 7B 11 94 02 99 22 31 2F 22 55 24 00 BE 11 9E 02 |{...."1/"U$.....|
00000980: 99 22 9A 11 11 11 C8 49 54 22 2C 22 98 D2 C5 D4 |.".....IT","....|
00000990: D5 D2 CE 9A 22 2C 22 54 4F 20 41 44 44 20 54 48 |....","TO ADD TH|
000009A0: 45 20 44 41 54 41 20 4C 49 4E 45 22 2C 2C 22 54 |E DATA LINE",,"T|
000009B0: 4F 20 54 48 45 20 50 52 4F 47 52 41 4D 2E 00 E1 |O THE PROGRAM...|
000009C0: 11 A8 02 99 2C 22 11 11 98 C5 9A 22 2C 22 54 4F |....,".....","TO|
000009D0: 20 45 52 41 53 45 20 54 48 49 53 20 44 41 54 41 | ERASE THIS DATA|
000009E0: 2E 00 18 12 B2 02 99 22 11 11 98 22 2C 22 D2 9A |......."...","..|
000009F0: 22 2C 22 54 4F 20 41 44 44 20 41 20 52 45 4D 41 |","TO ADD A REMA|
00000A00: 52 4B 20 54 4F 22 2C 2C 2C 22 54 48 45 20 44 41 |RK TO",,,"THE DA|
00000A10: 54 41 20 4C 49 4E 45 2E 00 26 12 BC 02 8D 37 30 |TA LINE..&....70|
00000A20: 3A 44 24 B2 58 24 00 3F 12 C6 02 8B 44 24 B2 22 |:D$.X$.?....D$."|
00000A30: 52 22 B0 44 24 B2 C7 28 31 33 29 A7 37 34 30 00 |R".D$..(13).740.|
00000A40: 5D 12 D0 02 8B 44 24 B2 22 45 22 A7 8D 34 30 3A |]....D$."E"..40:|
00000A50: 99 22 93 22 5A 24 3A 8C 3A 89 31 33 30 00 85 12 |."."Z$:.:.130...|
00000A60: DA 02 8D 35 30 3A 99 22 C5 4E 54 45 52 20 98 D2 |...50:.".NTER ..|
00000A70: C5 D4 D5 D2 CE 2C 20 C5 2C 20 4F 52 20 D2 9A 22 |....., ., OR .."|
00000A80: 3A 89 37 30 30 00 9F 12 E4 02 8D 34 30 3A 8D 34 |:.700......40:.4|
00000A90: 30 3A 54 B2 4C 3A 8D 39 30 3A 4C 24 B2 54 24 00 |0:T.L:.90:L$.T$.|
00000AA0: B1 12 EE 02 54 B2 48 3A 8D 39 30 3A 48 24 B2 54 |....T.H:.90:H$.T|
00000AB0: 24 00 BE 12 F8 02 8B 44 52 A7 55 B2 44 52 00 D0 |$......DR.U.DR..|
00000AC0: 12 02 03 54 B2 55 3A 8D 39 30 3A 55 24 B2 54 24 |...T.U:.90:U$.T$|
00000AD0: 00 E1 12 0C 03 8B 44 24 B3 B1 22 52 22 A7 38 33 |......D$.."R".83|
00000AE0: 30 00 11 13 16 03 99 22 93 22 5A 24 22 CD 41 58 |0......"."Z$".AX|
00000AF0: 49 4D 55 4D 20 52 45 4D 41 52 4B 20 4C 45 4E 47 |IMUM REMARK LENG|
00000B00: 54 48 20 35 30 20 43 48 41 52 41 43 54 45 52 53 |TH 50 CHARACTERS|
00000B10: 2E 00 31 13 20 03 85 22 11 11 D7 48 41 54 20 49 |..1. .."...HAT I|
00000B20: 53 20 59 4F 55 52 20 52 45 4D 41 52 4B 22 3B 52 |S YOUR REMARK";R|
00000B30: 24 00 48 13 2A 03 8B C3 28 52 24 29 B1 34 39 A7 |$.H.*...(R$).49.|
00000B40: 8D 35 30 3A 89 38 30 30 00 5E 13 34 03 8D 34 30 |.50:.800.^.4..40|
00000B50: 3A 52 24 B2 22 3A 52 45 4D 20 22 AA 52 24 00 82 |:R$.":REM ".R$..|
00000B60: 13 3E 03 99 22 93 1C 11 11 11 22 4C 4E 22 44 41 |.>.."....."LN"DA|
00000B70: 54 41 22 4C 24 22 2C 22 48 24 22 2C 22 55 24 3B |TA"L$","H$","U$;|
00000B80: 52 24 00 93 13 48 03 99 22 90 4C 4E 3D 22 4C 4E |R$...H..".LN="LN|
00000B90: AA 31 3B 00 B2 13 52 03 8B 43 24 B2 22 51 22 A7 |.1;...R..C$."Q".|
00000BA0: 20 99 22 3A 47 4F 54 4F 38 38 30 13 22 3A 89 38 | .":GOTO880.":.8|
00000BB0: 37 30 00 C3 13 5C 03 99 22 3A 47 4F 54 4F 31 33 |70...\..":GOTO13|
00000BC0: 30 13 22 00 E0 13 66 03 97 36 33 31 2C 31 33 3A |0."...f..631,13:|
00000BD0: 97 36 33 32 2C 31 33 3A 97 31 39 38 2C 32 3A 80 |.632,13:.198,2:.|
00000BE0: 00 1F 14 70 03 53 B2 35 34 32 37 32 3A 99 22 9A |...p.S.54272:.".|
00000BF0: D6 41 4C 55 45 20 54 4F 20 4D 55 4C 54 49 50 4C |.ALUE TO MULTIPL|
00000C00: 59 20 45 41 43 48 20 4E 4F 54 45 20 44 55 52 41 |Y EACH NOTE DURA|
00000C10: 54 49 4F 4E 20 42 59 20 20 31 9D 9D 9D 22 3B 00 |TION BY 1...";.|
00000C20: 26 14 7A 03 85 4D 00 47 14 84 03 99 22 11 D7 41 |&.z..M.G...."..A|
00000C30: 4E 54 20 4D 55 53 49 43 20 50 4F 4B 45 44 20 54 |NT MUSIC POKED T|
00000C40: 4F 20 D2 C1 CD 3F 22 00 5C 14 8E 03 8D 37 30 3A |O ...?".\....70:|
00000C50: 8B 58 24 B2 22 59 22 A7 8D 39 36 30 00 8D 14 98 |.X$."Y"..960....|
00000C60: 03 99 22 11 D7 41 4E 54 20 4D 55 53 49 43 20 46 |.."..ANT MUSIC F|
00000C70: 49 4C 45 20 53 41 56 45 44 3F 22 3A 8D 37 30 3A |ILE SAVED?":.70:|
00000C80: 8B 58 24 B2 22 59 22 A7 8D 31 30 32 30 00 93 14 |.X$."Y"..1020...|
00000C90: A2 03 80 00 CA 14 AC 03 83 43 2C 31 2C 43 53 2C |.........C,1,CS,|
00000CA0: 32 2C 44 46 2C 32 2C 44 2C 33 2C 44 53 2C 34 2C |2,DF,2,D,3,DS,4,|
00000CB0: 45 46 2C 34 2C 45 2C 35 2C 45 53 2C 36 2C 46 2C |EF,4,E,5,ES,6,F,|
00000CC0: 36 2C 46 53 2C 37 2C 47 2C 38 00 EF 14 B6 03 83 |6,FS,7,G,8......|
00000CD0: 47 53 2C 39 2C 41 46 2C 39 2C 41 2C 31 30 2C 41 |GS,9,AF,9,A,10,A|
00000CE0: 53 2C 31 31 2C 42 46 2C 31 31 2C 42 2C 31 32 00 |S,11,BF,11,B,12.|
00000CF0: 27 15 C0 03 85 22 9A 11 C1 44 44 52 45 53 53 20 |'...."...DDRESS |
00000D00: 54 4F 20 50 4F 4B 45 20 4D 55 53 49 43 20 20 34 |TO POKE MUSIC 4|
00000D10: 30 39 36 30 9D 9D 9D 9D 9D 9D 9D 22 3B 42 24 3A |0960.......";B$:|
00000D20: 42 B2 C5 28 42 24 29 00 43 15 CA 03 8B 42 B3 38 |B..(B$).C....B.8|
00000D30: 32 30 B0 42 B1 36 35 35 33 35 A7 8D 35 30 3A 89 |20.B.65535..50:.|
00000D40: 39 36 30 00 80 15 D4 03 99 22 9A 11 11 C4 41 54 |960......"....AT|
00000D50: 41 20 49 53 20 42 45 49 4E 47 20 50 4F 4B 45 44 |A IS BEING POKED|
00000D60: 22 3A 99 22 53 54 41 52 54 49 4E 47 20 41 54 20 |":."STARTING AT |
00000D70: 4C 49 4E 45 22 42 3A 4A B2 42 3A 8D 31 30 39 30 |LINE"B:J.B:.1090|
00000D80: 00 AC 15 DE 03 8D 31 30 31 30 3A 97 4A 2C 4C 3A |......1010:.J,L:|
00000D90: 97 4A AA 31 2C 48 3A 97 4A AA 32 2C 55 3A 4A B2 |.J.1,H:.J.2,U:J.|
00000DA0: 4A AA 33 3A 8B 55 B1 30 A7 39 39 30 00 E3 15 E8 |J.3:.U.0.990....|
00000DB0: 03 99 22 11 11 C5 4E 44 49 4E 47 20 41 44 44 52 |.."...NDING ADDR|
00000DC0: 45 53 53 20 49 53 22 4A 3A 99 22 4D 55 53 49 43 |ESS IS"J:."MUSIC|
00000DD0: 20 49 53 20 49 4E 20 4D 45 4D 4F 52 59 2E 22 3A | IS IN MEMORY.":|
00000DE0: 8C 3A 8E 00 F6 15 F2 03 87 4C 2C 48 2C 55 3A 55 |.:.......L,H,U:U|
00000DF0: B2 55 AC 4D 3A 8E 00 15 16 FC 03 85 22 11 CE 41 |.U.M:......."..A|
00000E00: 4D 45 20 4F 46 20 53 41 56 45 44 20 46 49 4C 45 |ME OF SAVED FILE|
00000E10: 22 3B 4E 46 24 00 5B 16 06 04 99 22 93 11 C1 44 |";NF$.[...."...D|
00000E20: 44 52 45 53 53 20 59 4F 55 20 57 41 4E 54 20 54 |DRESS YOU WANT T|
00000E30: 48 49 53 20 46 49 4C 45 20 54 4F 20 4C 4F 41 44 |HIS FILE TO LOAD|
00000E40: 20 41 54 20 20 20 4C 41 54 45 52 20 20 34 30 39 | AT LATER 409|
00000E50: 36 30 9D 9D 9D 9D 9D 9D 9D 22 3B 00 8A 16 10 04 |60.......";.....|
00000E60: 85 20 41 44 24 3A 41 44 B2 C5 28 41 44 24 29 3A |. AD$:AD..(AD$):|
00000E70: 8B 41 44 B3 38 31 39 B0 41 44 B1 36 35 35 33 36 |.AD.819.AD.65536|
00000E80: A7 8D 35 30 3A 89 31 30 34 30 00 BF 16 1A 04 48 |..50:.1040.....H|
00000E90: 42 B2 B5 28 41 44 AD 32 35 36 29 3A 4C 42 B2 41 |B..(AD.256):LB.A|
00000EA0: 44 AB 32 35 36 AC 48 42 3A 9F 32 2C 38 2C 32 2C |D.256.HB:.2,8,2,|
00000EB0: 22 30 3A 22 AA 4E 46 24 AA 22 2C 50 2C 57 22 00 |"0:".NF$.",P,W".|
00000EC0: D9 16 24 04 98 32 2C C7 28 4C 42 29 3B C7 28 48 |..$..2,.(LB);.(H|
00000ED0: 42 29 3B 3A 8D 31 30 39 30 00 00 17 2E 04 8D 31 |B);:.1090......1|
00000EE0: 30 31 30 3A 98 32 2C C7 28 4C 29 3B C7 28 48 29 |010:.2,.(L);.(H)|
00000EF0: 3B C7 28 55 29 3B 3A 8B 55 B1 30 A7 31 30 37 30 |;.(U);:.U.0.1070|
00000F00: 00 1B 17 38 04 A0 32 3A 99 22 D3 41 56 45 20 43 |...8..2:.".AVE C|
00000F10: 4F 4D 50 4C 45 54 45 2E 22 3A 8E 00 2F 17 42 04 |OMPLETE.":../.B.|
00000F20: 81 49 B2 31 A4 33 34 3A 87 55 24 3A 82 3A 8E 00 |.I.1.34:.U$:.:..|
00000F30: 00 00 |.. |
..H.... COPYRIGHT 1987 COMPUTE! PUBLICAT
IONS, INC. - ALL RIGHTS RESERVED.T...LN.
8000.]....100.~.(..S.1,70:.S.5,7:.S.4,17
:.60:....2..S.1,6:.S.5,9:.S.4,33:.60:...
.<..J.1.25:.:.J.S.S.5:.J,0:.:..P.F..X$:.
X$."".70.V.P.....Z.T$.D(T):T$.I(T$,C(T$)
.1):....D..53281,0:.53280,0:.G(14)"...C.
N..".. COPYRIGHT 1987 COMPUTE! PUB., IN
C.".C.X...9)"ALL RIGHTS RESERVED..".....
.".WHAT IS THE OCTAVE?":S.54272:.S.24,15
:Z$.".....".W...."..HIT",".0 THRU 7.","T
O INDICATE":.,,"OCTAVE NUMBER."......,".
.RETURN.","TO INDICATE A REST.":.,"..Q."
,"TO QUIT.".Y. ..Z$".MIDDLE C BEGINS OCT
AVE 4, WHICH RUNS UPWARD TO INCLUDE "
;......"THE B ABOVE MIDDLE C. THE OCTAVE
ABOVE IS 5 AND THE OCTAVE "......"BELOW
MIDDLE C IS 3, ETC...X....70:C$.X$:.C$.
."Q".280...H..".ENTER .Y. IF YOU REALLY
WANT TO QUIT.".!.R..70:.X$.."Y"..".":.13
0.F....".THE ENTRY STAGE IS COMPLETE.".W
....".HIT .C. TO CYCLE THE MUSIC OVER AN
D OVER.......".ANY OTHER KEY TO PLAY THE
MUSIC ONCE EACH TIME IT IS CALLED.".
.....70:L$."0":H$."0":U$."0"......X$."C"
.L$."1"......40:.830.....C.E(C$):.C$.G(1
3).:C$."REST":L.0:H.0:.40:.410.J."..C$."
0".C$."7"..50:.190.G.,..40:."."Z$".OCTAV
E IS."C...6.."...ENTER THE LETTER NAME O
F THE NOTE.P.@.."FOLLOWED BY AN '.S.' FO
R A SHARP OR AN '.F.'FOR A FLAT....J..".
KEEP ALL ENTRIES LOWER CASE....T.."..WHA
T IS THE NOTE";N$...^..J.0.16:.A$,N:.N$.
A$.390.:.H..:.:.50...R..".PLEASE ENTER:"
,".C,CS,DF,D,DS,EF,E,F",,,"FS,G,GS,AF,A,
BF,OR B."...|..340......40:X.F(H(N$,1)):
X.X.128:W$.G(X):N$.W$.J(N$,2,1).....Q.44
0.1.05946309.(N.10).2.(C.4):V.Q..06096:H
..(V.256):L..(V.(H.256)).=...."."Z$"VALI
D ENTRIES ARE: .1,2,4,8,16,32,OR 64.".D.
..."..1. FOR A WHOLE NOTE OR REST."....
..".4. FOR A QUARTER NOTE OR REST."....
..".32. FOR A 32ND NOTE OR REST, ETC."..
.B..".PLACE A PERIOD AFTER THE NUMBER TO
DOT IT. .DOTTED NOTES";.:.L.." AR
E HELD HALF AGAIN AS LONG AS UNDOTTE
D NOTES.."...V..Z$"ENTER .D. TO BYPASS T
HE ABOVE PROCESS, SO YOU CALCULATE THE";
.H...." .D.URATION AND PLACE IT DIRECTLY
IN THE CREATED DATA STATEMENT."......".
. .PLEASE ENTER THE NOTE OR
REST VALUE."...... U$:U.E(U$).&....U$.."
D".570.N....".ENTER YOUR CALCULATED DURA
TION.".W....DR$.E...DR.E(DR$)..&..DR.0.
DR.255..50:.520...0..620...:..J.0.6:.2.J
.U.600...D.....N..50:.490:. REJECT.O.X.U
.128.U:. ACCEPT...B..I(U$,1).".".U.U.1.5
...L..40:.".HERE IS YOUR NOTE:....".6.V.
."OCTAVE. "C$"..NOTE ."N$"...VALUE .";.Y
....DR..".......DURATION."DR:.670.O....U
$."1".."1":.670.{...."1/"U$......"....HI
T",".RETURN.","TO ADD THE DATA LINE",,"T
O THE PROGRAM.......,"...E.","TO ERASE T
HIS DATA......."...","R.","TO ADD A REMA
RK TO",,,"THE DATA LINE..&....70:D$.X$.?
.F..D$."R".D$.G(13).740.].P..D$."E"..40:
."."Z$:.:.130...Z..50:."ENTER .RETURN, E
, OR R.":.700......40:.40:T.L:.90:L$.T$.
....T.H:.90:H$.T$......DR.U.DR.P...T.U:.
90:U$.T$......D$.."R".830......"."Z$"MAX
IMUM REMARK LENGTH 50 CHARACTERS..1. .."
..WHAT IS YOUR REMARK";R$.H.*..C(R$).49.
.50:.800.^.4..40:R$.":REM ".R$...>.."...
.."LN"DATA"L$","H$","U$;R$...H..".LN="LN
.1;...R..C$."Q". .":GOTO880.":.870.C.\..
":GOTO130."...F..631,13:.632,13:.198,2:.
...P.S.54272:.".VALUE TO MULTIPLY EACH N
OTE DURATION BY 1...";.&.Z..M.G....".WA
NT MUSIC POKED TO RAM?".\....70:.X$."Y".
.960......".WANT MUSIC FILE SAVED?":.70:
.X$."Y"..1020.......J....C,1,CS,2,DF,2,D
,3,DS,4,EF,4,E,5,ES,6,F,6,FS,7,G,8......
GS,9,AF,9,A,10,AS,11,BF,11,B,12.'...."..
ADDRESS TO POKE MUSIC 40960.......";B$:
B.E(B$).C.J..B.820.B.65535..50:.960...T.
."...DATA IS BEING POKED":."STARTING AT
LINE"B:J.B:.1090......1010:.J,L:.J.1,H:.
J.2,U:J.J.3:.U.0.990......"..ENDING ADDR
ESS IS"J:."MUSIC IS IN MEMORY.":.:......
.L,H,U:U.U.M:.......".NAME OF SAVED FILE
";NF$.[...."..ADDRESS YOU WANT THIS FILE
TO LOAD AT LATER 40960.......";.....
. AD$:AD.E(AD$):.AD.819.AD.65536..50:.10
40.....HB..(AD.256):LB.AD.256.HB:.2,8,2,
"0:".NF$.",P,W".Y.$..2,G(LB);G(HB);:.109
0......1010:.2,G(L);G(H);G(U);:.U.0.1070
...8. 2:."SAVE COMPLETE.":../.B..I.1.34:
.U$:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL