READ A TUNE
FILE INFORMATION
FILENAME(S): READ A TUNE
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-12-01 02:21:05
APPEARS ON: 1 disk(s)
FILE HASH
ec9fa8b6899e08030f76835706d032273c576e1a27caa79e63a84d03d6ee7845
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| EKONOMI | READ A TUNE | PRG | hedning, scooby | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 00 00 8F 20 52 45 41 44 2D 41 2D 54 |....... READ-A-T| 00000010: 55 4E 45 00 D8 08 01 00 97 34 35 2C 31 35 39 3A |UNE......45,159:| 00000020: 97 34 36 2C 32 30 3A 9C 3A 81 49 B2 31 A4 32 35 |.46,20:.:.I.1.25| 00000030: 35 3A 41 24 B2 41 24 AA 22 20 22 3A 82 3A 4E 53 |5:A$.A$." ":.:NS| 00000040: B2 31 32 35 3A 86 4D 24 28 4E 53 29 2C 4E 24 28 |.125:.M$(NS),N$(| 00000050: 4E 53 29 3A 81 49 B2 35 34 32 37 32 A4 35 34 32 |NS):.I.54272.542| 00000060: 39 36 3A 97 49 2C 30 3A 82 3A 97 35 34 32 37 35 |96:.I,0:.:.54275| 00000070: 2C 35 3A 97 35 34 32 39 36 2C 31 32 3A 52 4C B2 |,5:.54296,12:RL.| 00000080: 35 34 32 37 32 3A 52 48 B2 35 34 32 37 33 3A 86 |54272:RH.54273:.| 00000090: 48 28 31 35 29 2C 4C 28 31 35 29 3A 81 49 B2 31 |H(15),L(15):.I.1| 000000A0: A4 31 35 3A 87 48 28 49 29 2C 4C 28 49 29 3A 82 |.15:.H(I),L(I):.| 000000B0: 3A 83 32 38 2C 34 39 2C 33 31 2C 31 36 35 2C 31 |:.28,49,31,165,1| 000000C0: 36 2C 31 39 35 2C 31 38 2C 32 30 39 2C 32 31 2C |6,195,18,209,21,| 000000D0: 33 31 2C 32 32 2C 39 36 00 2B 09 02 00 83 32 35 |31,22,96.+....25| 000000E0: 2C 33 30 2C 33 33 2C 31 33 35 2C 33 37 2C 31 36 |,30,33,135,37,16| 000000F0: 32 2C 34 32 2C 36 32 2C 34 34 2C 31 39 33 2C 35 |2,42,62,44,193,5| 00000100: 30 2C 36 30 2C 31 32 2C 31 34 33 2C 31 34 2C 32 |0,60,12,143,14,2| 00000110: 34 2C 31 35 2C 32 31 30 3A 97 35 33 32 38 31 2C |4,15,210:.53281,| 00000120: 31 35 3A 97 35 33 32 38 30 2C 34 00 3E 09 03 00 |15:.53280,4.>...| 00000130: 8B 45 4E A7 99 22 93 22 3A A0 31 35 3A 80 00 32 |.EN..".":.15:..2| 00000140: 0A 04 00 99 22 93 11 11 90 20 20 20 12 20 54 48 |....".... . TH| 00000150: 45 20 36 34 20 52 45 41 44 2D 41 2D 54 55 4E 45 |E 64 READ-A-TUNE| 00000160: 20 4D 55 53 49 43 20 53 59 53 54 45 4D 21 20 92 | MUSIC SYSTEM! .| 00000170: 22 3A 99 2C 22 11 11 31 3D 57 52 49 54 45 20 41 |":.,"..1=WRITE A| 00000180: 20 53 4F 4E 47 22 3A 99 2C 22 11 32 3D 50 4C 41 | SONG":.,".2=PLA| 00000190: 59 20 42 41 43 4B 20 59 4F 55 52 20 53 4F 4E 47 |Y BACK YOUR SONG| 000001A0: 22 3A 99 2C 22 11 33 3D 52 45 43 41 4C 4C 20 59 |":.,".3=RECALL Y| 000001B0: 4F 55 52 20 53 4F 4E 47 53 22 3A 99 2C 22 11 34 |OUR SONGS":.,".4| 000001C0: 3D 53 41 56 45 20 59 4F 55 52 20 53 4F 4E 47 53 |=SAVE YOUR SONGS| 000001D0: 22 3A 99 2C 22 11 35 3D 31 32 54 48 20 53 54 52 |":.,".5=12TH STR| 000001E0: 45 45 54 20 52 41 47 22 3A 99 2C 22 11 36 3D 59 |EET RAG":.,".6=Y| 000001F0: 41 4E 4B 45 45 20 44 4F 4F 44 4C 45 22 3A 99 2C |ANKEE DOODLE":.,| 00000200: 22 11 37 3D 53 4F 4D 45 20 52 45 41 4C 4C 59 20 |".7=SOME REALLY | 00000210: 46 41 53 54 20 53 43 41 4C 45 53 21 22 3A 99 2C |FAST SCALES!":.,| 00000220: 22 11 38 3D 45 4E 44 20 4F 46 20 50 52 4F 47 52 |".8=END OF PROGR| 00000230: 41 4D 00 1D 0B 05 00 99 2C 22 11 11 53 45 4C 45 |AM......,"..SELE| 00000240: 43 54 20 4F 4E 45 3A 22 3A 44 24 B2 22 48 42 41 |CT ONE:":D$."HBA| 00000250: 48 42 41 48 42 41 48 42 41 48 42 41 41 48 42 41 |HBAHBAHBAHBAAHBA| 00000260: 48 48 41 48 42 41 41 45 52 45 45 44 52 48 42 41 |HHAHBAAEREEDRHBA| 00000270: 48 42 41 48 42 41 48 42 41 48 42 41 41 48 42 41 |HBAHBAHBAHBAAHBA| 00000280: 48 48 41 48 42 41 41 45 45 46 46 47 47 22 3A 44 |HHAHBAAEEFFGG":D| 00000290: 24 B2 44 24 AA 22 48 42 41 48 42 41 48 42 41 48 |$.D$."HBAHBAHBAH| 000002A0: 42 41 48 42 41 41 48 42 41 48 48 41 48 42 41 41 |BAHBAAHBAHHAHBAA| 000002B0: 45 52 45 45 44 52 46 46 47 41 47 47 41 42 41 42 |EREEDRFFGAGGABAB| 000002C0: 48 49 48 42 41 47 48 48 47 41 41 47 45 45 43 43 |HIHBAGHHGAAGEECC| 000002D0: 43 52 48 48 48 52 2E 22 3A 45 24 B2 22 48 52 48 |CRHHHR.":E$."HRH| 000002E0: 52 49 52 4A 52 48 52 4A 52 49 52 47 52 48 52 48 |RIRJRHRJRIRGRHRH| 000002F0: 52 49 52 4A 52 48 48 48 48 42 42 47 47 48 52 48 |RIRJRHHHHBBGGHRH| 00000300: 52 49 52 4A 52 4B 52 4A 52 49 52 48 52 42 52 47 |RIRJRKRJRIRHRBRG| 00000310: 52 41 52 42 52 48 48 48 52 48 48 48 52 00 DE 0B |RARBRHHHRHHHR...| 00000320: 06 00 45 24 B2 45 24 AA 22 41 41 41 42 41 41 47 |..E$.E$."AAABAAG| 00000330: 47 41 41 42 42 48 48 48 52 47 47 47 41 47 47 46 |GAABBHHHRGGGAGGF| 00000340: 46 45 45 46 46 47 47 47 52 41 41 41 42 41 41 47 |FEEFFGGGRAAABAAG| 00000350: 47 41 41 42 42 48 48 41 41 47 47 48 48 42 42 49 |GAABBHHAAGGHHBBI| 00000360: 49 48 48 48 52 48 48 48 52 2E 22 3A 46 24 B2 22 |IHHHRHHHR.":F$."| 00000370: 48 48 48 48 47 52 47 52 41 41 41 41 47 47 47 47 |HHHHGRGRAAAAGGGG| 00000380: 52 52 52 52 42 42 42 42 48 48 48 48 43 43 43 52 |RRRRBBBBHHHHCCCR| 00000390: 52 2E 22 3A 47 24 B2 22 4D 4E 4F 43 44 45 46 47 |R.":G$."MNOCDEFG| 000003A0: 41 42 48 49 4A 4B 4C 4C 52 52 4C 4B 4A 49 48 42 |ABHIJKLLRRLKJIHB| 000003B0: 41 47 46 45 44 43 4F 4E 4D 4D 52 52 43 44 45 46 |AGFEDCONMMRRCDEF| 000003C0: 47 41 42 48 42 41 47 46 45 44 43 43 52 52 43 44 |GABHBAGFEDCCRRCD| 000003D0: 45 46 47 41 42 48 42 41 47 46 45 44 43 2E 00 EF |EFGABHBAGFEDC...| 000003E0: 0B 07 00 A1 51 24 3A 8B 51 24 B2 22 22 A7 37 00 |....Q$:.Q$."".7.| 000003F0: 18 0C 08 00 51 B2 C5 28 51 24 29 3A 91 51 89 31 |....Q..(Q$):.Q.1| 00000400: 39 2C 33 31 2C 34 35 2C 34 34 2C 31 30 2C 31 31 |9,31,45,44,10,11| 00000410: 2C 39 2C 31 32 3A 89 37 00 51 0C 09 00 99 22 93 |,9,12:.7.Q....".| 00000420: 90 20 20 20 20 20 20 20 53 4F 4D 45 20 52 45 41 |. SOME REA| 00000430: 4C 4C 59 20 46 41 53 54 20 53 43 41 4C 45 53 21 |LLY FAST SCALES!| 00000440: 22 3A 99 22 11 22 47 24 3A 53 50 B2 31 3A 89 31 |":."."G$:SP.1:.1| 00000450: 33 00 83 0C 0A 00 99 22 93 90 22 2C 22 20 54 57 |3......".."," TW| 00000460: 45 4C 46 54 48 20 53 54 52 45 45 54 20 52 41 47 |ELFTH STREET RAG| 00000470: 20 20 22 3A 99 22 11 22 44 24 3A 53 50 B2 39 3A | ":."."D$:SP.9:| 00000480: 89 31 33 00 B1 0C 0B 00 99 22 93 90 22 2C 22 20 |.13......".."," | 00000490: 20 20 59 41 4E 4B 45 45 20 44 4F 4F 44 4C 45 22 | YANKEE DOODLE"| 000004A0: 3A 99 22 11 22 45 24 3A 53 50 B2 32 38 3A 89 31 |:."."E$:SP.28:.1| 000004B0: 33 00 DD 0C 0C 00 99 22 93 1C 22 2C 22 20 20 54 |3......".."," T| 000004C0: 48 41 54 27 53 20 41 4C 4C 21 90 22 3A 99 22 11 |HAT'S ALL!.":.".| 000004D0: 22 46 24 3A 53 50 B2 34 3A 45 4E B2 31 00 04 0D |"F$:SP.4:EN.1...| 000004E0: 0D 00 58 B2 30 3A 97 35 34 32 37 37 2C 33 31 3A |..X.0:.54277,31:| 000004F0: 97 35 34 32 37 36 2C 36 34 3A 97 35 34 32 37 38 |.54276,64:.54278| 00000500: 2C 32 35 35 00 3C 0D 0E 00 58 B2 58 AA 31 3A 50 |,255.<...X.X.1:P| 00000510: B2 31 30 39 34 AA 58 3A 50 50 B2 C2 28 50 29 3A |.1094.X:PP..(P):| 00000520: 8B 50 50 B2 31 38 B0 50 50 B2 33 32 A7 97 52 48 |.PP.18.PP.32..RH| 00000530: 2C 30 3A 97 52 4C 2C 30 3A 89 31 38 00 60 0D 0F |,0:.RL,0:.18.`..| 00000540: 00 8B 50 50 B2 34 36 A7 97 52 48 2C 30 3A 97 52 |..PP.46..RH,0:.R| 00000550: 4C 2C 30 3A 97 35 34 32 37 36 2C 36 34 3A 89 33 |L,0:.54276,64:.3| 00000560: 00 6E 0D 10 00 8B 50 50 B1 31 35 A7 31 34 00 90 |.n....PP.15.14..| 00000570: 0D 11 00 97 35 34 32 37 36 2C 36 35 3A 97 52 48 |....54276,65:.RH| 00000580: 2C 48 28 50 50 29 3A 97 52 4C 2C 4C 28 50 50 29 |,H(PP):.RL,L(PP)| 00000590: 00 CC 0D 12 00 81 54 B2 31 A4 53 50 3A 82 3A 50 |......T.1.SP:.:P| 000005A0: 50 B2 50 50 AA 31 32 38 3A 97 50 2C 50 50 3A 81 |P.PP.128:.P,PP:.| 000005B0: 54 B2 31 A4 53 50 3A 82 3A 50 50 B2 50 50 AB 31 |T.1.SP:.:PP.PP.1| 000005C0: 32 38 3A 97 50 2C 50 50 3A 89 31 34 00 08 0E 13 |28:.P,PP:.14....| 000005D0: 00 4E B2 4E AA 31 3A 8B 4E B1 4E 53 A7 99 22 93 |.N.N.1:.N.NS..".| 000005E0: 11 11 54 4F 4F 20 4D 41 4E 59 20 54 55 4E 45 53 |..TOO MANY TUNES| 000005F0: 21 22 3A 81 44 45 B2 31 A4 31 30 30 30 3A 82 3A |!":.DE.1.1000:.:| 00000600: 4E B2 4E AB 31 3A 89 34 00 D5 0E 14 00 97 35 34 |N.N.1:.4......54| 00000610: 32 37 37 2C 32 35 3A 97 35 34 32 37 38 2C 30 3A |277,25:.54278,0:| 00000620: 99 22 93 11 1F 53 4F 20 59 4F 55 27 52 45 20 52 |."...SO YOU'RE R| 00000630: 45 41 44 59 20 54 4F 20 57 52 49 54 45 20 41 20 |EADY TO WRITE A | 00000640: 53 4F 4E 47 21 22 3A 99 22 11 11 90 48 45 52 45 |SONG!":."...HERE| 00000650: 20 41 52 45 20 54 48 45 20 4E 4F 54 45 53 3A 22 | ARE THE NOTES:"| 00000660: 3A 99 22 11 4D 3D 4C 4F 57 20 47 20 20 20 4E 3D |:.".M=LOW G N=| 00000670: 4C 4F 57 20 41 20 20 20 20 4F 3D 4C 4F 57 20 42 |LOW A O=LOW B| 00000680: 22 3A 99 22 43 3D 4D 49 44 20 43 20 20 20 44 3D |":."C=MID C D=| 00000690: 4D 49 44 20 44 20 20 20 20 45 3D 4D 49 44 20 45 |MID D E=MID E| 000006A0: 20 20 20 46 3D 4D 49 44 20 46 22 3A 99 22 47 3D | F=MID F":."G=| 000006B0: 4D 49 44 20 47 20 20 20 41 3D 4D 49 44 20 41 20 |MID G A=MID A | 000006C0: 20 20 20 42 3D 4D 49 44 20 42 20 20 20 48 3D 48 | B=MID B H=H| 000006D0: 49 47 48 20 43 00 2D 0F 15 00 99 22 49 3D 48 49 |IGH C.-...."I=HI| 000006E0: 47 48 20 44 20 20 4A 3D 48 49 47 48 20 45 20 20 |GH D J=HIGH E | 000006F0: 20 4B 3D 48 49 47 48 20 46 20 20 4C 3D 48 49 47 | K=HIGH F L=HIG| 00000700: 48 20 47 22 3A 99 22 52 3D 52 45 53 54 11 22 3A |H G":."R=REST.":| 00000710: 99 22 1F 45 4E 54 45 52 20 54 49 54 4C 45 20 4F |.".ENTER TITLE O| 00000720: 46 20 53 4F 4E 47 20 23 22 4E 22 3A 9C 00 55 0F |F SONG #"N":..U.| 00000730: 16 00 4E 24 28 4E 29 B2 22 22 3A 85 4E 24 28 4E |..N$(N)."":.N$(N| 00000740: 29 3A 8B 4E 24 28 4E 29 B2 22 22 A7 99 22 91 22 |):.N$(N)."".."."| 00000750: 3B 3A 89 32 32 00 92 0F 17 00 4E 24 28 4E 29 B2 |;:.22.....N$(N).| 00000760: C8 28 4E 24 28 4E 29 2C 32 30 29 3A 99 22 11 1F |.(N$(N),20):."..| 00000770: 4F 4B 2C 20 45 4E 54 45 52 20 9C 22 4E 24 28 4E |OK, ENTER ."N$(N| 00000780: 29 22 3A 1C 22 3A 99 3A 50 B2 30 3A 9E 34 39 31 |)":.":.:P.0:.491| 00000790: 35 32 00 A4 0F 18 00 A1 54 24 3A 8B 54 24 B2 22 |52......T$:.T$."| 000007A0: 22 A7 32 34 00 B5 0F 19 00 8B 54 24 B2 C7 28 31 |".24......T$..(1| 000007B0: 33 29 A7 32 37 00 CE 0F 1A 00 99 54 24 3B 3A 50 |3).27......T$;:P| 000007C0: B2 50 AA 31 3A 8B 50 B3 32 35 34 A7 32 34 00 DD |.P.1:.P.254.24..| 000007D0: 0F 1B 00 50 B2 30 3A 9E 34 39 31 35 32 00 10 10 |...P.0:.49152...| 000007E0: 1C 00 50 B2 50 AA 31 3A 8B C2 28 31 37 30 33 AA |..P.P.1:..(1703.| 000007F0: 50 29 B3 B1 33 32 A7 50 24 B2 50 24 AA C7 28 C2 |P)..32.P$.P$..(.| 00000800: 28 31 37 30 33 AA 50 29 AA 36 34 29 3A 89 32 38 |(1703.P).64):.28| 00000810: 00 24 10 1D 00 8B 50 24 B2 22 22 A7 4E B2 4E AB |.$....P$."".N.N.| 00000820: 31 3A 89 34 00 71 10 1E 00 99 22 93 1C 53 4F 4E |1:.4.q...."..SON| 00000830: 47 20 23 90 22 4E 22 1C 43 41 4C 4C 45 44 20 9C |G #."N".CALLED .| 00000840: 22 4E 24 28 4E 29 22 1C 3A 22 3A 4D 24 28 4E 29 |"N$(N)".:":M$(N)| 00000850: B2 50 24 AA 22 2E 22 3A 99 22 11 22 4D 24 28 4E |.P$.".":."."M$(N| 00000860: 29 3A 50 24 B2 22 22 3A 53 50 B2 33 33 3A 89 31 |):P$."":SP.33:.1| 00000870: 33 00 7C 10 1F 00 8B 4E B2 30 A7 33 00 B6 10 20 |3.|....N.0.3... | 00000880: 00 55 B2 30 3A 52 B2 34 3A 8D 34 32 3A 81 49 B2 |.U.0:R.4:.42:.I.| 00000890: 31 A4 4E 3A 8B 28 49 AB 55 AC 31 36 AA 55 29 AD |1.N:.(I.U.16.U).| 000008A0: 31 36 B2 B5 28 28 49 AB 55 AC 31 36 AA 55 29 AD |16..((I.U.16.U).| 000008B0: 31 36 29 A7 33 34 00 DD 10 21 00 99 A3 35 AB C3 |16).34...!...5..| 000008C0: 28 C4 28 49 29 29 29 22 90 22 49 22 20 20 20 20 |(.(I)))"."I" | 000008D0: 20 20 20 20 9C 22 4E 24 28 49 29 3A 82 00 04 11 | ."N$(I):....| 000008E0: 22 00 99 22 11 1C 50 52 45 53 53 20 12 4D 92 20 |".."..PRESS .M. | 000008F0: 46 4F 52 20 4D 4F 52 45 22 3A 59 24 B2 22 3E 22 |FOR MORE":Y$.">"| 00000900: 3A 8D 34 31 00 16 11 23 00 A1 41 24 3A 8B 41 24 |:.41...#..A$:.A$| 00000910: B2 22 22 A7 33 35 00 4E 11 24 00 8B 41 24 B2 C7 |."".35.N.$..A$..| 00000920: 28 31 37 29 A7 59 24 B2 22 20 22 3A 8D 34 31 3A |(17).Y$." ":.41:| 00000930: 52 B2 52 AB 28 52 B3 B1 28 49 AA 32 AB 55 AC 31 |R.R.(R..(I.2.U.1| 00000940: 35 29 29 3A 59 24 B2 22 3E 22 3A 8D 34 31 00 7E |5)):Y$.">":.41.~| 00000950: 11 25 00 8B 41 24 B2 C7 28 31 34 35 29 A7 59 24 |.%..A$..(145).Y$| 00000960: B2 22 20 22 3A 8D 34 31 3A 52 B2 52 AA 28 52 B3 |." ":.41:R.R.(R.| 00000970: B1 34 29 3A 59 24 B2 22 3E 22 3A 8D 34 31 00 9C |.4):Y$.">":.41..| 00000980: 11 26 00 8B 41 24 B2 C7 28 31 33 29 A7 53 4E B2 |.&..A$..(13).SN.| 00000990: 55 AC 31 35 AA 52 AB 33 3A 89 34 33 00 CA 11 27 |U.15.R.3:.43...'| 000009A0: 00 8B 41 24 B2 22 4D 22 AF 49 B3 B2 4E A7 55 B2 |..A$."M".I..N.U.| 000009B0: 55 AA 31 3A 52 B2 34 3A 59 24 B2 22 3E 22 3A 8D |U.1:R.4:Y$.">":.| 000009C0: 34 31 3A 8D 34 32 3A 89 33 33 00 D2 11 28 00 89 |41:.42:.33...(..| 000009D0: 33 35 00 E9 11 29 00 97 32 31 34 2C 52 3A 99 3A |35...)..214,R:.:| 000009E0: 99 22 90 20 22 59 24 3A 8E 00 54 12 2A 00 99 22 |.". "Y$:..T.*.."| 000009F0: 93 1C 4C 4F 43 41 54 45 20 41 52 52 4F 57 20 57 |..LOCATE ARROW W| 00000A00: 49 54 48 20 43 55 52 53 4F 52 20 4B 45 59 53 20 |ITH CURSOR KEYS | 00000A10: 41 4E 44 22 3A 99 22 50 52 45 53 53 20 3C 52 45 |AND":."PRESS <RE| 00000A20: 54 55 52 4E 3E 20 54 4F 20 50 49 43 4B 20 41 20 |TURN> TO PICK A | 00000A30: 54 55 4E 45 2E 22 3A 99 3A 99 A3 32 29 22 90 53 |TUNE.":.:..2)".S| 00000A40: 4F 4E 47 20 23 22 A3 31 35 29 22 54 49 54 4C 45 |ONG #".15)"TITLE| 00000A50: 11 22 3A 8E 00 8B 12 2B 00 99 22 93 1C 41 20 53 |.":....+.."..A S| 00000A60: 4F 4E 47 20 43 41 4C 4C 45 44 20 9C 22 4E 24 28 |ONG CALLED ."N$(| 00000A70: 53 4E 29 22 1C 3A 22 3A 99 22 11 22 4D 24 28 53 |SN)".:":."."M$(S| 00000A80: 4E 29 3A 99 22 90 22 3A 89 31 33 00 96 12 2C 00 |N):.".":.13...,.| 00000A90: 8B 4E B2 30 A7 33 00 C3 12 2D 00 58 24 B2 22 22 |.N.0.3...-.X$.""| 00000AA0: 3A 99 22 93 45 4E 54 45 52 20 46 49 4C 45 4E 41 |:.".ENTER FILENA| 00000AB0: 4D 45 3A 20 22 3B 3A 85 58 24 3A 8B 58 24 B2 22 |ME: ";:.X$:.X$."| 00000AC0: 22 A7 34 00 DA 12 2E 00 58 24 B2 22 30 3A 22 AA |".4.....X$."0:".| 00000AD0: 58 24 3A 8B 51 B2 34 A7 34 38 00 3C 13 2F 00 9F |X$:.Q.4.48.<./..| 00000AE0: 31 2C 38 2C 38 2C 58 24 AA 22 2C 53 2C 52 22 3A |1,8,8,X$.",S,R":| 00000AF0: 8D 34 39 3A 84 31 2C 4E 3A 81 49 B2 31 A4 4E 3A |.49:.1,N:.I.1.N:| 00000B00: 84 31 2C 4E 24 28 49 29 3A 82 3A 81 49 B2 31 A4 |.1,N$(I):.:.I.1.| 00000B10: 4E 3A 9E 34 39 32 35 30 2C 41 24 3A 4D 24 28 49 |N:.49250,A$:M$(I| 00000B20: 29 B2 C8 28 41 24 2C C2 28 34 29 29 3A 82 3A 8D |)..(A$,.(4)):.:.| 00000B30: 34 39 3A A0 31 3A 8D 34 39 3A 89 34 00 A9 13 30 |49:.1:.49:.4...0| 00000B40: 00 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 53 |..15:.15,8,15,"S| 00000B50: 22 AA 58 24 3A A0 31 35 3A 4F B2 30 3A 9F 31 2C |".X$:.15:O.0:.1,| 00000B60: 38 2C 38 2C 58 24 AA 22 2C 53 2C 57 22 3A 8D 34 |8,8,X$.",S,W":.4| 00000B70: 39 3A 98 31 2C 4E 3A 81 49 B2 31 A4 4E 3A 98 31 |9:.1,N:.I.1.N:.1| 00000B80: 2C 4E 24 28 49 29 3A 82 3A 81 49 B2 31 A4 4E 3A |,N$(I):.:.I.1.N:| 00000B90: 98 31 2C 4D 24 28 49 29 3B 3A 82 3A 8D 34 39 3A |.1,M$(I);:.:.49:| 00000BA0: A0 31 3A 8D 34 39 3A 89 34 00 BF 13 31 00 8B 4F |.1:.49:.4...1..O| 00000BB0: B2 30 A7 9F 31 35 2C 38 2C 31 35 3A 4F B2 31 00 |.0..15,8,15:O.1.| 00000BC0: DF 13 32 00 84 31 35 2C 41 2C 42 24 2C 43 2C 44 |..2..15,A,B$,C,D| 00000BD0: 3A 8B 41 A7 99 41 2C 42 24 2C 43 2C 44 3A 90 00 |:.A..A,B$,C,D:..| 00000BE0: E5 13 33 00 8E 00 00 00 00 00 00 00 00 00 00 00 |..3.............| 00000BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000C00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000C10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000C20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000C60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000C70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
....... READ-A-TUNE.X....45,159:.46,20:. :.I.1.255:A$.A$." ":.:NS.125:.M$(NS),N$( NS):.I.54272.54296:.I,0:.:.54275,5:.5429 6,12:RL.54272:RH.54273:.H(15),L(15):.I.1 .15:.H(I),L(I):.:.28,49,31,165,16,195,18 ,209,21,31,22,96.+....25,30,33,135,37,16 2,42,62,44,193,50,60,12,143,14,24,15,210 :.53281,15:.53280,4.>....EN..".": 15:..2 ....".... . THE 64 READ-A-TUNE MUSIC S YSTEM! .":.,"..1=WRITE A SONG":.,".2=PLA Y BACK YOUR SONG":.,".3=RECALL YOUR SONG S":.,".4=SAVE YOUR SONGS":.,".5=12TH STR EET RAG":.,".6=YANKEE DOODLE":.,".7=SOME REALLY FAST SCALES!":.,".8=END OF PROGR AM......,"..SELECT ONE:":D$."HBAHBAHBAHB AHBAAHBAHHAHBAAEREEDRHBAHBAHBAHBAHBAAHBA HHAHBAAEEFFGG":D$.D$."HBAHBAHBAHBAHBAAHB AHHAHBAAEREEDRFFGAGGABABHIHBAGHHGAAGEECC CRHHHR.":E$."HRHRIRJRHRJRIRGRHRHRIRJRHHH HBBGGHRHRIRJRKRJRIRHRBRGRARBRHHHRHHHR... ..E$.E$."AAABAAGGAABBHHHRGGGAGGFFEEFFGGG RAAABAAGGAABBHHAAGGHHBBIIHHHRHHHR.":F$." HHHHGRGRAAAAGGGGRRRRBBBBHHHHCCCRR.":G$." MNOCDEFGABHIJKLLRRLKJIHBAGFEDCONMMRRCDEF GABHBAGFEDCCRRCDEFGABHBAGFEDC.......Q$:. Q$."".7.....Q.E(Q$):.Q.19,31,45,44,10,11 ,9,12:.7.Q....".. SOME REALLY FAST SCALES!":."."G$:SP.1:.13......".."," TW ELFTH STREET RAG ":."."D$:SP.9:.13..... .".."," YANKEE DOODLE":."."E$:SP.28:.1 3......".."," THAT'S ALL!.":."."F$:SP.4 :EN.1.....X.0:.54277,31:.54276,64:.54278 ,255.<...X.X.1:P.1094.X:PP.B(P):.PP.18.P P.32..RH,0:.RL,0:.18.`....PP.46..RH,0:.R L,0:.54276,64:.3.N....PP.15.14......5427 6,65:.RH,H(PP):.RL,L(PP).L....T.1.SP:.:P P.PP.128:.P,PP:.T.1.SP:.:PP.PP.128:.P,PP :.14.....N.N.1:.N.NS.."...TOO MANY TUNES !":.DE.1.1000:.:N.N.1:.4.U....54277,25:. 54278,0:."...SO YOU'RE READY TO WRITE A SONG!":."...HERE ARE THE NOTES:":.".M=LO W G N=LOW A O=LOW B":."C=MID C D= MID D E=MID E F=MID F":."G=MID G A=MID A B=MID B H=HIGH C.-...."I=HI GH D J=HIGH E K=HIGH F L=HIGH G":."R =REST.":.".ENTER TITLE OF SONG #"N":..U. ..N$(N)."":.N$(N):.N$(N).""..".";:.22... ..N$(N).H(N$(N),20):."..OK, ENTER ."N$(N )":.":.:P.0:.49152......T$:.T$."".24.... ..T$.G(13).27.N....T$;:P.P.1:.P.254.24.. ...P.0:.49152.....P.P.1:.B(1703.P)..32.P $.P$.G(B(1703.P).64):.28.$....P$."".N.N. 1:.4.Q...."..SONG #."N".CALLED ."N$(N)". :":M$(N).P$.".":."."M$(N):P$."":SP.33:.1 3.|....N.0.3... .U.0:R.4:.42:.I.1.N:.(I. U.16.U).16..((I.U.16.U).16).34...!...5.C (D(I)))"."I" ."N$(I):....".."..PR ESS .M. FOR MORE":Y$.">":.41...#..A$:.A$ ."".35.N.$..A$.G(17).Y$." ":.41:R.R.(R.. (I.2.U.15)):Y$.">":.41.~.%..A$.G(145).Y$ ." ":.41:R.R.(R..4):Y$.">":.41...&..A$.G (13).SN.U.15.R.3:.43.J.'..A$."M".I..N.U. U.1:R.4:Y$.">":.41:.42:.33.R.(..35...).. 214,R:.:.". "Y$:..T.*.."..LOCATE ARROW W ITH CURSOR KEYS AND":."PRESS <RETURN> TO PICK A TUNE.":.:..2)".SONG #".15)"TITLE .":....+.."..A SONG CALLED ."N$(SN)".:": ."."M$(SN):.".":.13...,..N.0.3.C.-.X$."" :.".ENTER FILENAME: ";:.X$:.X$."".4.Z... X$."0:".X$:.Q.4.48.<./..1,8,8,X$.",S,R": .49:.1,N:.I.1.N:.1,N$(I):.:.I.1.N:.49250 ,A$:M$(I).H(A$,B(4)):.:.49: 1:.49:.4...0 . 15:.15,8,15,"S".X$: 15:O.0:.1,8,8,X$." ,S,W":.49:.1,N:.I.1.N:.1,N$(I):.:.I.1.N: .1,M$(I);:.:.49: 1:.49:.4...1..O.0..15,8 ,15:O.1...2..15,A,B$,C,D:.A..A,B$,C,D:.. ..3..................................... ........................................ ........................................ ........................................ ................................
> CLICK IMAGE PREVIEW FOR FULL MODAL