MUSIC MACHINE.C
FILE INFORMATION
FILENAME(S): MUSIC MACHINE.C
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-11-30 21:07:08
APPEARS ON: 1 disk(s)
FILE HASH
a4d9a6cd62cd81e45acf3f2d46a3e1a7ba38e20c35290b15cf03ab634123efe6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG FEB 85 C | MUSIC MACHINE.C | PRG | DuncanTwain | 26 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 09 08 01 00 89 39 20 00 5B 08 02 00 AC AC |.......9 .[.....|
00000010: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000020: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000030: AC AC AC 20 33 20 AC 20 20 54 48 49 53 20 50 52 |... 3 . THIS PR|
00000040: 4F 47 52 41 4D 20 57 49 4C 4C 20 53 45 41 52 43 |OGRAM WILL SEARC|
00000050: 48 20 41 20 44 49 53 4B 20 20 AC 00 7E 08 03 00 |H A DISK ..~...|
00000060: AC 20 20 81 20 4D 41 53 54 45 52 20 43 4F 4D B9 |. . MASTER COM.|
00000070: 45 52 20 46 49 4C 45 53 2C 20 9B 20 20 AC 00 A4 |ER FILES, . ...|
00000080: 08 04 00 AC 20 20 54 48 45 4D 20 81 20 50 4C 41 |.... THEM . PLA|
00000090: 59 49 4E 47 2C 20 AF 20 42 55 49 4C 44 20 41 20 |YING, . BUILD A |
000000A0: 20 20 20 AC 00 CA 08 05 00 AC 20 20 44 49 52 45 | ....... DIRE|
000000B0: 43 A4 52 59 20 91 20 44 49 53 4B 20 81 20 4C 41 |C.RY . DISK . LA|
000000C0: 54 45 52 20 55 53 45 20 20 AC 00 F4 08 06 00 AC |TER USE .......|
000000D0: 20 20 20 20 20 20 20 20 57 52 49 54 54 45 4E 20 | WRITTEN |
000000E0: 30 31 AD 32 31 AD 38 35 20 20 20 20 20 20 20 20 |01.21.85 |
000000F0: 20 20 20 AC 00 1E 09 07 00 AC 20 20 20 20 44 41 | ....... DA|
00000100: 56 45 20 53 43 48 4D 4F 4C 44 54 20 20 37 32 33 |VE SCHMOLDT 723|
00000110: 35 36 2C 32 35 37 34 20 20 20 20 20 20 AC 00 48 |56,2574 ..H|
00000120: 09 08 00 AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000130: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000140: AC AC AC AC AC AC AC AC 00 60 09 09 00 8B 46 B2 |.........`....F.|
00000150: 30 A7 97 35 35 2C 39 36 3A 97 35 36 2C 31 30 39 |0..55,96:.56,109|
00000160: 00 6B 09 0A 00 99 C7 28 31 34 29 00 80 09 0B 00 |.k.....(14).....|
00000170: 8B 46 B2 31 A7 9E 33 30 31 32 30 3A 89 31 34 20 |.F.1..30120:.14 |
00000180: 00 9E 09 0C 00 86 50 52 24 28 31 34 35 29 2C 50 |......PR$(145),P|
00000190: 4C 24 28 35 30 29 2C 50 4E 24 28 35 30 29 00 A8 |L$(50),PN$(50)..|
000001A0: 09 0D 00 99 22 93 22 3B 00 BE 09 0E 00 97 35 33 |....".";......53|
000001B0: 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 E9 |280,0:.53281,0..|
000001C0: 09 0F 00 8B 46 B2 30 A7 81 53 B2 35 35 32 39 36 |....F.0..S.55296|
000001D0: A4 35 35 33 33 35 3A 97 53 2C 20 30 3A 97 53 AA |.55335:.S, 0:.S.|
000001E0: 39 36 30 2C 30 20 3A 20 82 00 14 0A 10 00 8B 46 |960,0 : .......F|
000001F0: B2 30 A7 81 20 53 B2 31 30 32 34 A4 31 30 36 33 |.0.. S.1024.1063|
00000200: 3A 97 53 2C 31 36 30 3A 97 53 AA 39 36 30 2C 31 |:.S,160:.S.960,1|
00000210: 36 30 3A 82 00 48 0A 11 00 8B 46 B2 30 A7 20 99 |60:..H....F.0. .|
00000220: 22 90 22 3B 3A 41 24 B2 22 20 D4 48 45 20 CD 41 |".";:A$." .HE .A|
00000230: 47 49 43 20 CD 55 53 49 43 20 CD 41 43 48 49 4E |GIC .USIC .ACHIN|
00000240: 45 20 22 3A 8D 36 32 20 00 58 0A 12 00 8B 46 B2 |E ":.62 .X....F.|
00000250: 30 A7 99 20 22 90 22 3B 00 65 0A 13 00 8B 46 B2 |0.. ".";.e....F.|
00000260: 31 A7 32 31 20 00 AF 0A 14 00 99 22 13 11 11 11 |1.21 ......"....|
00000270: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000280: 11 11 11 11 11 22 3B 3A 41 24 B2 22 20 42 59 20 |.....";:A$." BY |
00000290: C4 41 56 45 20 D3 43 48 4D 4F 4C 44 54 20 37 32 |.AVE .CHMOLDT 72|
000002A0: 33 35 36 2C 32 35 37 34 20 22 3A 8D 36 32 20 00 |356,2574 ":.62 .|
000002B0: BB 0A 15 00 99 22 13 11 11 11 22 00 C6 0A 16 00 |....."....".....|
000002C0: 81 5A B2 31 A4 35 00 CE 0A 17 00 51 B2 30 00 0E |.Z.1.5.....Q.0..|
000002D0: 0B 18 00 81 53 B2 35 35 32 39 36 A4 35 35 33 33 |....S.55296.5533|
000002E0: 35 3A 43 4F B2 B5 28 31 AA BB 28 31 29 AC 31 34 |5:CO..(1..(1).14|
000002F0: 29 3A 97 53 2C 43 4F 3A 97 53 AA 28 39 39 39 AB |):.S,CO:.S.(999.|
00000300: 51 29 2C 43 4F 3A 51 B2 51 AA 32 3A 20 82 00 15 |Q),CO:Q.Q.2: ...|
00000310: 0B 19 00 82 5A 00 26 0B 1A 00 8B 46 B2 30 A7 20 |....Z.&....F.0. |
00000320: 20 8D 31 33 39 20 00 31 0B 1B 00 99 22 13 11 22 | .139 .1....".."|
00000330: 3B 00 41 0B 1C 00 8B 46 B2 30 A7 20 8D 36 36 20 |;.A....F.0. .66 |
00000340: 20 00 4F 0B 1D 00 99 22 92 22 3B 3A 46 B2 31 00 | .O....".";:F.1.|
00000350: 76 0B 1E 00 8B C9 28 50 54 24 2C 32 29 B2 22 2E |v.....(PT$,2).".|
00000360: 43 22 A7 50 54 24 B2 C8 28 50 54 24 2C C3 28 50 |C".PT$..(PT$,.(P|
00000370: 54 24 29 AB 32 29 00 BE 0B 1F 00 99 22 13 11 11 |T$).2)......"...|
00000380: 11 11 11 11 11 11 11 11 11 11 22 3B 3A 41 24 B2 |..........";:A$.|
00000390: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 20 20 20 20 22 3A 8D 36 32 20 00 01 | ":.62 ..|
000003C0: 0C 20 00 99 22 13 11 11 11 11 11 11 11 22 3B 3A |. .."........";:|
000003D0: 41 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |A$." |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 36 32 | ":.62|
00000400: 20 00 0B 0C 21 00 99 22 91 22 3B 00 40 0C 22 00 | ...!..".";.@.".|
00000410: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 22 |."............."|
00000420: 3B 3A 41 24 B2 22 9E CE 4F 57 20 D0 4C 41 59 49 |;:A$."..OW .LAYI|
00000430: 4E 47 2D 2D 3E 20 22 AA 50 54 24 3A 8D 36 32 20 |NG--> ".PT$:.62 |
00000440: 00 49 0C 23 00 89 33 38 20 00 52 0C 24 00 89 32 |.I.#..38 .R.$..2|
00000450: 37 20 00 58 0C 25 00 80 00 8A 0C 26 00 41 24 B2 |7 .X.%.....&.A$.|
00000460: 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
00000470: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000480: C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 9B 0C 27 00 99 |........."...'..|
00000490: 22 13 22 3B 3A 43 4F B2 31 34 39 00 BD 0C 28 00 |".";:CO.149...(.|
000004A0: 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |D$."............|
000004B0: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 E1 0C |............"...|
000004C0: 29 00 55 24 B2 22 91 91 91 91 91 91 91 91 91 91 |).U$."..........|
000004D0: 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 |................|
000004E0: 22 00 ED 0C 2A 00 81 43 B2 31 A4 31 31 00 09 0D |"...*..C.1.11...|
000004F0: 2B 00 43 4F B2 B5 28 31 AA BB 28 31 29 AC 31 34 |+.CO..(1..(1).14|
00000500: 29 3A 97 36 34 36 2C 43 4F 00 1E 0D 2C 00 99 C8 |):.646,CO...,...|
00000510: 28 44 24 2C 43 AA 31 29 3B 3A 99 41 24 3B 00 40 |(D$,C.1);:.A$;.@|
00000520: 0D 2D 00 99 22 13 11 11 11 11 11 11 11 11 11 11 |.-.."...........|
00000530: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3B |..............";|
00000540: 00 53 0D 2E 00 99 C8 28 55 24 2C 43 29 3B 3A 99 |.S.....(U$,C);:.|
00000550: 41 24 3B 00 80 0D 2F 00 A1 52 45 24 3A 8B 52 45 |A$;.../..RE$:.RE|
00000560: 24 B2 22 20 22 A7 97 33 31 30 34 34 2C 34 3A 52 |$." "..31044,4:R|
00000570: B2 30 3A 3A 8D 35 31 20 3A 20 20 20 89 31 30 30 |.0::.51 : .100|
00000580: 00 8F 0D 30 00 82 20 43 3A 99 22 13 11 22 3B 00 |...0.. C:."..";.|
00000590: A5 0D 31 00 8B C2 28 37 38 39 29 B3 B1 32 33 34 |..1...(789)..234|
000005A0: A7 89 34 32 20 00 AF 0D 32 00 89 31 30 30 20 00 |..42 ...2..100 .|
000005B0: E1 0D 33 00 41 24 B2 22 20 20 20 20 20 20 20 20 |..3.A$." |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005E0: 22 00 EB 0D 34 00 99 22 13 22 3B 00 0D 0E 35 00 |"...4..".";...5.|
000005F0: 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |D$."............|
00000600: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 31 0E |............".1.|
00000610: 36 00 55 24 B2 22 91 91 91 91 91 91 91 91 91 91 |6.U$."..........|
00000620: 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 |................|
00000630: 22 00 3D 0E 37 00 81 43 B2 31 A4 31 32 00 52 0E |".=.7..C.1.12.R.|
00000640: 38 00 99 C8 28 44 24 2C 43 AA 31 29 3B 3A 99 41 |8...(D$,C.1);:.A|
00000650: 24 3B 00 74 0E 39 00 99 22 13 11 11 11 11 11 11 |$;.t.9..".......|
00000660: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000670: 11 11 22 3B 00 87 0E 3A 00 99 C8 28 55 24 2C 43 |..";...:...(U$,C|
00000680: 29 3B 3A 99 41 24 3B 00 97 0E 3B 00 82 20 43 3A |);:.A$;...;.. C:|
00000690: 99 22 9C 13 11 22 3B 00 9D 0E 3C 00 8E 00 A3 0E |."...";...<.....|
000006A0: 3D 00 9A 00 B8 0E 3E 00 99 A6 32 30 AB C3 28 41 |=.....>...20..(A|
000006B0: 24 29 AD 32 29 41 24 3B 00 BE 0E 3F 00 8E 00 D4 |$).2)A$;...?....|
000006C0: 0E 40 00 A1 4B 45 24 3A 8B 4B 45 24 B2 22 22 A7 |.@..KE$:.KE$."".|
000006D0: 36 34 20 20 00 DA 0E 41 00 8E 00 0C 0F 42 00 8D |64 ...A.....B..|
000006E0: 35 31 20 3A 99 22 92 13 11 11 11 22 3B 3A 41 24 |51 :.".....";:A$|
000006F0: B2 22 9C D0 52 45 53 53 20 41 4E 59 20 4B 45 59 |."..RESS ANY KEY|
00000700: 20 57 48 45 4E 20 52 45 41 44 59 22 00 1D 0F 43 | WHEN READY"...C|
00000710: 00 97 36 34 36 2C 34 3A 20 8D 36 32 20 00 26 0F |..646,4: .62 .&.|
00000720: 44 00 8D 36 34 20 00 4F 0F 45 00 99 22 9E 11 11 |D..64 .O.E.."...|
00000730: 22 3A 41 24 B2 22 D2 45 41 44 49 4E 47 20 C4 49 |":A$.".EADING .I|
00000740: 52 45 43 54 4F 52 59 22 3A 8D 36 32 20 3A 99 00 |RECTORY":.62 :..|
00000750: 57 0F 46 00 58 B2 31 00 72 0F 47 00 9F 31 35 2C |W.F.X.1.r.G..15,|
00000760: 38 2C 31 35 2C 22 49 22 3A A0 31 35 3A 41 24 B2 |8,15,"I":.15:A$.|
00000770: 22 22 00 A5 0F 48 00 9F 38 2C 38 2C 30 2C 22 24 |""...H..8,8,0,"$|
00000780: 30 22 3A 81 43 B2 31 A4 38 3A A1 23 38 2C 41 24 |0":.C.1.8:.#8,A$|
00000790: 3A 82 3A 43 B2 31 3A 44 4E 24 B2 22 22 3A 81 43 |:.:C.1:DN$."":.C|
000007A0: B2 31 A4 31 36 00 D2 0F 49 00 A1 23 38 2C 41 24 |.1.16...I..#8,A$|
000007B0: 3A 44 4E 24 B2 44 4E 24 AA 41 24 3A 82 3A A1 23 |:DN$.DN$.A$:.:.#|
000007C0: 38 2C 41 24 3A A1 23 38 2C 41 24 3A A1 23 38 2C |8,A$:.#8,A$:.#8,|
000007D0: 41 24 00 10 10 4A 00 44 4E 24 B2 44 4E 24 AA 41 |A$...J.DN$.DN$.A|
000007E0: 24 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 |$:.#8,A$:DN$.DN$|
000007F0: AA 41 24 3A A1 23 38 2C 41 24 3A A1 23 38 2C 41 |.A$:.#8,A$:.#8,A|
00000800: 24 3A 44 4E 24 B2 44 4E 24 AA 22 2F 22 AA 41 24 |$:DN$.DN$."/".A$|
00000810: 00 4C 10 4B 00 A1 23 38 2C 41 24 3A 44 4E 24 B2 |.L.K..#8,A$:DN$.|
00000820: 44 4E 24 AA 41 24 3A A1 23 38 2C 41 24 3A 43 B2 |DN$.A$:.#8,A$:C.|
00000830: 31 3A 99 22 11 C4 49 53 4B 20 D4 49 54 4C 45 20 |1:."..ISK .ITLE |
00000840: 2D 2D 2D 3E 20 9C 22 44 4E 24 3A 99 00 60 10 4C |---> ."DN$:..`.L|
00000850: 00 81 48 B2 31 A4 34 3A A1 23 38 2C 41 24 3A 82 |..H.1.4:.#8,A$:.|
00000860: 00 78 10 4D 00 A1 23 38 2C 41 24 3A 8B 53 54 B3 |.x.M..#8,A$:.ST.|
00000870: B1 30 A7 38 38 20 20 20 00 88 10 4E 00 8B 41 24 |.0.88 ...N..A$|
00000880: B2 22 22 A7 38 38 20 20 00 AD 10 4F 00 8B C6 28 |."".88 ...O...(|
00000890: 41 24 29 B3 B1 33 34 A7 37 37 20 20 3A 8F 20 4C |A$)..34.77 :. L|
000008A0: 4F 4F 20 46 4F 52 20 51 55 4F 54 45 53 00 EC 10 |OO FOR QUOTES...|
000008B0: 50 00 A1 23 38 2C 41 24 3A 8B C6 28 41 24 29 B3 |P..#8,A$:..(A$).|
000008C0: B1 33 34 A7 50 4E 24 B2 50 4E 24 AA 41 24 3A 89 |.34.PN$.PN$.A$:.|
000008D0: 38 30 20 20 3A 8F 20 42 55 49 4C 44 20 4E 41 4D |80 :. BUILD NAM|
000008E0: 45 20 54 49 4C 20 51 55 4F 54 45 53 00 0F 11 51 |E TIL QUOTES...Q|
000008F0: 00 A1 23 38 2C 41 24 3A 8B C6 28 41 24 29 B2 33 |..#8,A$:..(A$).3|
00000900: 32 A7 38 31 20 20 3A 8F 20 53 50 41 43 45 53 00 |2.81 :. SPACES.|
00000910: 27 11 52 00 A1 23 38 2C 41 24 3A 8B 41 24 B3 B1 |'.R..#8,A$:.A$..|
00000920: 22 22 A7 38 32 20 20 00 74 11 53 00 50 52 24 28 |"".82 .t.S.PR$(|
00000930: 58 29 B2 50 4E 24 3A 99 22 13 11 11 11 11 11 11 |X).PN$:.".......|
00000940: 11 11 11 11 11 11 11 11 11 22 3B 22 20 20 20 20 |.........";" |
00000950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000970: 20 20 22 3B 00 93 11 54 00 41 24 B2 22 20 20 20 | ";...T.A$." |
00000980: 20 22 AA 20 50 4E 24 3A 99 22 91 1E 22 3B 3A 8D | ". PN$:."..";:.|
00000990: 36 32 20 00 A4 11 55 00 50 4E 24 B2 22 22 3A 58 |62 ...U.PN$."":X|
000009A0: B2 58 AA 31 00 B3 11 56 00 8B 53 54 B2 30 A7 37 |.X.1...V..ST.0.7|
000009B0: 36 20 20 00 BA 11 57 00 A0 38 00 C7 11 58 00 A0 |6 ...W..8...X..|
000009C0: 38 3A 20 8D 35 31 20 00 04 12 59 00 99 22 1E 11 |8: .51 ...Y.."..|
000009D0: 22 3B 3A 41 24 B2 22 C3 48 45 43 4B 49 4E 47 20 |";:A$.".HECKING |
000009E0: 46 4F 52 20 CD 41 53 54 45 52 20 C3 4F 4D 50 4F |FOR .ASTER .OMPO|
000009F0: 53 45 52 20 46 49 4C 45 53 22 3A 8D 36 32 20 20 |SER FILES":.62 |
00000A00: 3A 41 B2 31 00 0A 12 5A 00 99 00 17 12 5B 00 81 |:A.1...Z.....[..|
00000A10: 4D B2 31 A4 58 AB 31 00 3D 12 5C 00 9F 20 38 2C |M.1.X.1.=.\.. 8,|
00000A20: 38 2C 38 2C 50 52 24 28 4D 29 AA 22 2C 4D 2C 52 |8,8,PR$(M).",M,R|
00000A30: 22 3A 8B 53 54 B3 B1 30 A7 39 39 20 20 00 56 12 |":.ST..0.99 .V.|
00000A40: 5D 00 A1 23 38 2C 4C 31 24 3A 8B 4C 31 24 B2 22 |]..#8,L1$:.L1$."|
00000A50: 22 A7 39 39 20 20 00 6B 12 5E 00 8B C6 28 4C 31 |".99 .k.^...(L1|
00000A60: 24 29 B3 B1 31 33 A7 39 39 20 20 00 84 12 5F 00 |$)..13.99 ..._.|
00000A70: A1 23 38 2C 4C 32 24 3A 8B 4C 32 24 B2 22 22 A7 |.#8,L2$:.L2$."".|
00000A80: 39 39 20 20 00 9A 12 60 00 8B C6 28 4C 32 24 29 |99 ...`...(L2$)|
00000A90: B3 B1 31 31 37 A7 39 39 20 20 00 E5 12 61 00 50 |..117.99 ...a.P|
00000AA0: 4C 24 28 41 29 B2 50 52 24 28 4D 29 3A 99 22 13 |L$(A).PR$(M):.".|
00000AB0: 11 11 11 11 11 11 11 11 11 22 3B 22 20 20 20 20 |.........";" |
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AE0: 20 20 20 20 22 00 05 13 62 00 41 24 B2 50 4C 24 | "...b.A$.PL$|
00000AF0: 28 41 29 3A 99 22 91 91 22 3B 3A 8D 36 32 20 3A |(A):."..";:.62 :|
00000B00: 41 B2 41 AA 31 00 1D 13 63 00 A0 38 3A 4C 31 24 |A.A.1...c..8:L1$|
00000B10: B2 22 22 3A 4C 32 24 B2 22 22 3A 82 4D 00 2D 13 |."":L2$."":.M.-.|
00000B20: 64 00 8D 35 31 20 3A 99 22 13 11 22 3B 00 3D 13 |d..51 :."..";.=.|
00000B30: 65 00 8B 53 4B B2 31 A7 89 31 38 33 20 00 4D 13 |e..SK.1..183 .M.|
00000B40: 66 00 8B 46 59 B2 31 A7 89 31 38 30 20 00 5D 13 |f..FY.1..180 .].|
00000B50: 67 00 8B 46 47 B2 31 A7 89 31 37 38 20 00 73 13 |g..FG.1..178 .s.|
00000B60: 68 00 8B 46 52 B2 31 A7 8D 31 36 36 20 3A 89 31 |h..FR.1..166 :.1|
00000B70: 33 39 20 00 7C 13 69 00 8D 35 31 20 00 84 13 6A |39 .|.i..51 ...j|
00000B80: 00 56 B2 31 00 93 13 6B 00 8B 41 B1 33 32 A7 41 |.V.1...k..A.32.A|
00000B90: B2 33 32 00 A1 13 6C 00 81 43 41 B2 31 A4 41 AB |.32...l..CA.1.A.|
00000BA0: 31 00 D9 13 6D 00 4F 56 24 B2 22 13 11 11 1D 1D |1...m.OV$.".....|
00000BB0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000BC0: 1D 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000BD0: 11 11 11 11 11 11 11 11 22 00 FE 13 6E 00 44 4F |........"...n.DO|
00000BE0: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00000BF0: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 0A |............."..|
00000C00: 14 6F 00 52 4F 24 B2 22 92 22 00 29 14 70 00 8B |.o.RO$.".".).p..|
00000C10: 43 41 B1 31 38 A7 99 C8 28 4F 56 24 2C 43 41 AA |CA.18...(OV$,CA.|
00000C20: 33 29 3B 3A 89 31 31 34 20 00 3B 14 71 00 99 C8 |3);:.114 .;.q...|
00000C30: 28 44 4F 24 2C 43 41 AA 32 29 3B 00 57 14 72 00 |(DO$,CA.2);.W.r.|
00000C40: 8B C9 28 50 4C 24 28 43 41 29 2C 32 29 B2 22 2E |..(PL$(CA),2).".|
00000C50: 43 22 A7 31 31 36 20 00 7C 14 73 00 99 22 12 22 |C".116 .|.s.."."|
00000C60: C7 28 43 41 AA 36 34 29 52 4F 24 AA 22 20 22 50 |.(CA.64)RO$." "P|
00000C70: 4C 24 28 43 41 29 3A 89 31 31 39 20 00 90 14 74 |L$(CA):.119 ...t|
00000C80: 00 4C 45 B2 C3 28 50 4C 24 28 43 41 29 29 AB 32 |.LE..(PL$(CA)).2|
00000C90: 00 B5 14 75 00 99 22 12 22 C7 28 43 41 AA 36 34 |...u..".".(CA.64|
00000CA0: 29 52 4F 24 AA 22 20 22 C8 28 50 4C 24 28 43 41 |)RO$." ".(PL$(CA|
00000CB0: 29 2C 4C 45 29 00 C1 14 76 00 52 4F 24 B2 22 92 |),LE)...v.RO$.".|
00000CC0: 22 00 C7 14 77 00 82 00 E5 14 78 00 99 22 13 11 |"...w.....x.."..|
00000CD0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000CE0: 11 11 11 22 3B 00 06 15 79 00 41 24 B2 22 9E C5 |...";...y.A$."..|
00000CF0: 4E 54 45 52 20 59 4F 55 52 20 43 48 4F 49 43 45 |NTER YOUR CHOICE|
00000D00: 22 3A 8D 36 32 20 00 0E 15 7A 00 99 3A 99 00 45 |":.62 ...z..:..E|
00000D10: 15 7B 00 41 24 B2 22 20 20 20 1C D2 C5 D4 D5 D2 |.{.A$." ......|
00000D20: CE 9E 20 46 4F 52 20 4D 45 4E 55 1C 20 20 20 D3 |.. FOR MENU. .|
00000D30: D0 C1 C3 C5 9E 20 57 48 45 4E 20 44 4F 4E 45 22 |..... WHEN DONE"|
00000D40: 3A 8D 36 32 20 00 4F 15 7C 00 99 22 9C 22 3B 00 |:.62 .O.|..".";.|
00000D50: 65 15 7D 00 A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 |e.}..AN$:.AN$.""|
00000D60: A7 31 32 35 20 00 7F 15 7E 00 8B 41 4E 24 B2 C7 |.125 ...~..AN$..|
00000D70: 28 31 33 29 A7 8D 35 31 20 3A 8D 31 33 39 20 00 |(13)..51 :.139 .|
00000D80: 9C 15 7F 00 8B 41 4E 24 B2 22 20 22 AF 56 20 B2 |.....AN$." ".V .|
00000D90: 31 A7 8D 35 31 20 3A 89 31 33 39 20 00 D2 15 80 |1..51 :.139 ....|
00000DA0: 00 8B 41 4E 24 B2 22 20 22 A7 81 54 B2 31 A4 56 |..AN$." "..T.1.V|
00000DB0: 3A 50 4C 24 28 54 29 B2 50 4E 24 28 54 29 3A 82 |:PL$(T).PN$(T):.|
00000DC0: 3A 41 B2 56 AB 31 3A 46 59 B2 31 3A 20 89 31 37 |:A.V.1:FY.1: .17|
00000DD0: 31 20 00 E6 15 81 00 8B C6 28 41 4E 24 29 B3 36 |1 .......(AN$).6|
00000DE0: 35 A7 31 32 35 20 00 F6 15 82 00 4E B2 C6 28 41 |5.125 .....N..(A|
00000DF0: 4E 24 29 AB 36 34 00 08 16 83 00 50 4E 24 28 56 |N$).64.....PN$(V|
00000E00: 29 B2 50 4C 24 28 4E 29 00 19 16 84 00 8B 4E B1 |).PL$(N)......N.|
00000E10: 43 41 AB 31 A7 31 32 35 20 00 27 16 85 00 8B 4E |CA.1.125 .'....N|
00000E20: B3 31 A7 31 32 35 20 00 43 16 86 00 50 4C 24 28 |.1.125 .C...PL$(|
00000E30: 4E 29 B2 22 12 22 AA 50 4C 24 28 4E 29 3A 56 B2 |N).".".PL$(N):V.|
00000E40: 56 AA 31 00 4C 16 87 00 89 31 30 38 00 8D 16 88 |V.1.L....108....|
00000E50: 00 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00000E60: 22 3B 3A 41 24 B2 22 D3 D0 C1 C3 C5 20 57 49 4C |";:A$."..... WIL|
00000E70: 4C 20 53 54 4F 50 20 53 4F 4E 47 20 44 55 52 49 |L STOP SONG DURI|
00000E80: 4E 47 20 50 4C 41 59 22 3A 8D 36 32 20 00 B5 16 |NG PLAY":.62 ...|
00000E90: 89 00 99 22 13 11 11 11 11 11 11 11 22 3B 3A 41 |..."........";:A|
00000EA0: 24 B2 22 CC 4F 41 44 49 4E 47 20 22 AA 50 54 24 |$.".OADING ".PT$|
00000EB0: 3A 8D 36 32 20 00 C6 16 8A 00 93 20 50 4C 24 28 |:.62 ...... PL$(|
00000EC0: 4E 29 2C 38 2C 31 00 D7 16 8B 00 99 22 13 11 11 |N),8,1......"...|
00000ED0: 9E 22 3B 3A A0 31 35 00 F7 16 8C 00 99 22 D0 4C |.";:.15......".L|
00000EE0: 45 41 53 45 20 C5 4E 54 45 52 20 D9 4F 55 52 20 |EASE .NTER .OUR |
00000EF0: C3 48 4F 49 43 45 22 00 20 17 8D 00 99 22 13 11 |.HOICE". ...."..|
00000F00: 11 11 11 11 20 20 31 2E 20 C3 52 45 41 54 45 20 |.... 1. .REATE |
00000F10: 41 20 4E 45 57 20 44 49 52 45 43 54 4F 52 59 22 |A NEW DIRECTORY"|
00000F20: 00 4C 17 8E 00 99 22 13 11 11 11 11 11 11 11 20 |.L...."........ |
00000F30: 20 32 2E 20 D2 45 41 44 20 45 58 49 53 54 49 4E | 2. .EAD EXISTIN|
00000F40: 47 20 44 49 52 45 43 54 4F 52 59 22 00 86 17 8F |G DIRECTORY"....|
00000F50: 00 99 22 13 11 11 11 11 11 11 11 11 11 20 20 33 |..".......... 3|
00000F60: 2E 20 D0 4C 41 59 20 53 4F 4E 47 53 20 4F 4E 20 |. .LAY SONGS ON |
00000F70: 44 49 53 4B 20 28 43 52 45 41 54 45 20 4E 4F 20 |DISK (CREATE NO |
00000F80: 46 49 4C 45 29 22 00 BA 17 90 00 99 22 13 11 11 |FILE)"......"...|
00000F90: 11 11 11 11 11 11 11 11 11 20 20 34 2E 20 D0 4C |......... 4. .L|
00000FA0: 41 59 20 41 4C 4C 20 53 4F 4E 47 53 20 49 4E 20 |AY ALL SONGS IN |
00000FB0: 44 49 52 45 43 54 4F 52 59 22 00 F5 17 91 00 99 |DIRECTORY"......|
00000FC0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 20 |".............. |
00000FD0: 20 35 2E 20 D0 4C 41 59 20 41 4C 4C 20 53 4F 4E | 5. .LAY ALL SON|
00000FE0: 47 53 20 4F 4E 20 44 49 53 4B 20 28 4E 4F 20 46 |GS ON DISK (NO F|
00000FF0: 49 4C 45 29 22 00 17 18 92 00 99 22 13 11 11 11 |ILE)"......"....|
00001000: 11 11 11 11 11 11 11 11 11 11 11 11 20 20 36 2E |............ 6.|
00001010: 20 C5 58 49 54 20 22 00 2B 18 93 00 A1 41 24 3A | .XIT ".+....A$:|
00001020: 8B 41 24 B2 22 22 A7 31 34 37 20 00 4F 18 94 00 |.A$."".147 .O...|
00001030: 8B 41 24 B2 22 31 22 A7 46 52 B2 31 3A 53 4B B2 |.A$."1".FR.1:SK.|
00001040: 30 3A 46 47 B2 30 3A 46 59 B2 30 3A 89 36 36 00 |0:FG.0:FY.0:.66.|
00001050: 61 18 95 00 8B 41 24 B2 22 32 22 A7 89 31 35 35 |a....A$."2"..155|
00001060: 20 00 8C 18 96 00 8B 41 24 B2 22 33 22 A7 53 4B | ......A$."3".SK|
00001070: B2 30 3A 53 4B B2 30 3A 46 47 B2 30 3A 46 52 B2 |.0:SK.0:FG.0:FR.|
00001080: 30 3A 46 59 B2 30 20 3A 89 36 36 20 00 A3 18 97 |0:FY.0 :.66 ....|
00001090: 00 8B 41 24 B2 22 34 22 A7 53 4B B2 31 3A 89 31 |..A$."4".SK.1:.1|
000010A0: 35 35 20 00 CD 18 98 00 8B 41 24 B2 22 35 22 A7 |55 ......A$."5".|
000010B0: 53 44 B2 30 3A 53 4B B2 30 3A 46 52 B2 30 3A 46 |SD.0:SK.0:FR.0:F|
000010C0: 59 B2 30 3A 20 46 47 B2 31 3A 89 36 36 00 E0 18 |Y.0: FG.1:.66...|
000010D0: 99 00 8B 41 24 B2 22 36 22 A7 8D 35 31 20 3A 80 |...A$."6"..51 :.|
000010E0: 00 EA 18 9A 00 89 31 34 37 20 00 2A 19 9B 00 8D |......147 .*....|
000010F0: 35 31 20 3A 41 24 B2 22 11 11 11 11 11 11 11 D2 |51 :A$."........|
00001100: 45 41 44 49 4E 47 20 44 49 52 45 43 54 4F 52 59 |EADING DIRECTORY|
00001110: 20 46 49 4C 45 2E 2E 2E 2E 2E 22 3A 99 22 13 11 | FILE.....":."..|
00001120: 11 22 3A 8D 36 32 20 3A A0 38 00 6C 19 9C 00 9F |.":.62 :.8.l....|
00001130: 31 35 2C 38 2C 31 35 2C 22 49 30 3A 22 3A 9F 38 |15,8,15,"I0:":.8|
00001140: 2C 38 2C 38 2C 22 4D 4D 4D 43 41 54 2C 53 2C 52 |,8,8,"MMMCAT,S,R|
00001150: 22 3A 84 31 35 2C 59 2C 42 24 2C 43 2C 44 3A A0 |":.15,Y,B$,C,D:.|
00001160: 31 35 3A 8B 59 B2 36 32 A7 31 35 38 00 91 19 9D |15:.Y.62.158....|
00001170: 00 A0 38 3A 9F 38 2C 38 2C 38 2C 22 4D 4D 4D 43 |..8:.8,8,8,"MMMC|
00001180: 41 54 2C 53 2C 52 22 3A 20 99 22 11 11 11 11 11 |AT,S,R": .".....|
00001190: 22 00 CE 19 9E 00 8B 59 B2 36 32 A7 99 22 11 11 |"......Y.62.."..|
000011A0: 11 11 11 22 3A 41 24 B2 22 D9 4F 55 20 4D 55 53 |...":A$.".OU MUS|
000011B0: 54 20 43 52 45 41 54 45 20 41 20 46 49 4C 45 20 |T CREATE A FILE |
000011C0: 46 49 52 53 54 22 3A 8D 36 32 20 3A A0 38 00 F7 |FIRST":.62 :.8..|
000011D0: 19 9F 00 8B 59 B2 36 32 A7 20 81 44 45 B2 31 A4 |....Y.62. .DE.1.|
000011E0: 32 30 30 30 3A 20 82 44 45 3A 8D 35 31 20 3A A0 |2000: .DE:.51 :.|
000011F0: 31 35 3A 89 31 33 39 00 00 1A A0 00 84 38 2C 41 |15:.139......8,A|
00001200: 00 0C 1A A1 00 81 57 45 B2 31 A4 41 00 1B 1A A2 |......WE.1.A....|
00001210: 00 84 38 2C 50 4C 24 28 57 45 29 00 21 1A A3 00 |..8,PL$(WE).!...|
00001220: 82 00 39 1A A4 00 8B 53 4B B2 31 A7 A0 38 3A A0 |..9....SK.1..8:.|
00001230: 31 35 20 3A 89 31 37 31 20 00 51 1A A5 00 A0 38 |15 :.171 .Q....8|
00001240: 3A A0 31 35 3A 41 B2 41 AA 31 3A 20 20 89 31 30 |:.15:A.A.1: .10|
00001250: 35 00 8F 1A A6 00 41 24 B2 22 11 D7 52 49 54 49 |5.....A$."..RITI|
00001260: 4E 47 20 C4 49 52 45 43 54 4F 52 59 22 3A 8D 36 |NG .IRECTORY":.6|
00001270: 32 20 3A 20 A0 38 3A 9F 31 35 2C 38 2C 31 35 2C |2 : .8:.15,8,15,|
00001280: 22 53 30 3A 4D 4D 4D 43 41 54 22 3A A0 31 35 00 |"S0:MMMCAT":.15.|
00001290: A7 1A A7 00 9F 38 2C 38 2C 38 2C 22 4D 4D 4D 43 |.....8,8,8,"MMMC|
000012A0: 41 54 2C 53 2C 57 22 00 B2 1A A8 00 98 38 2C 41 |AT,S,W"......8,A|
000012B0: AB 31 00 CF 1A A9 00 81 51 57 B2 31 A4 41 AB 31 |.1......QW.1.A.1|
000012C0: 3A 98 38 2C 50 4C 24 28 51 57 29 3A 82 51 57 00 |:.8,PL$(QW):.QW.|
000012D0: E1 1A AA 00 A0 38 3A 52 B2 30 3A 8D 35 31 20 3A |.....8:R.0:.51 :|
000012E0: 8E 00 EE 1A AB 00 8D 35 31 20 3A 46 B2 31 00 F7 |.......51 :F.1..|
000012F0: 1A AC 00 53 44 B2 31 00 22 1B AD 00 8B C8 28 50 |...SD.1.".....(P|
00001300: 4C 24 28 53 44 29 2C 31 29 B2 22 12 22 A7 50 4C |L$(SD),1).".".PL|
00001310: 24 28 53 44 29 B2 CA 28 50 4C 24 28 53 44 29 2C |$(SD)..(PL$(SD),|
00001320: 32 29 00 36 1B AE 00 50 54 24 B2 50 4C 24 28 53 |2).6...PT$.PL$(S|
00001330: 44 29 3A 46 B2 31 00 77 1B AF 00 99 22 13 11 11 |D):F.1.w...."...|
00001340: 11 11 11 11 11 11 11 11 11 11 22 3B 3A 41 24 B2 |..........";:A$.|
00001350: 22 D3 D0 C1 C3 C5 20 57 49 4C 4C 20 53 54 4F 50 |"..... WILL STOP|
00001360: 20 53 4F 4E 47 20 44 55 52 49 4E 47 20 50 4C 41 | SONG DURING PLA|
00001370: 59 22 3A 8D 36 32 20 00 9F 1B B0 00 99 22 13 11 |Y":.62 ......"..|
00001380: 11 11 11 11 11 11 22 3B 3A 41 24 B2 22 CC 4F 41 |......";:A$.".OA|
00001390: 44 49 4E 47 20 22 AA 50 54 24 3A 8D 36 32 20 00 |DING ".PT$:.62 .|
000013A0: B0 1B B1 00 93 50 4C 24 28 53 44 29 2C 38 2C 31 |.....PL$(SD),8,1|
000013B0: 00 CF 1B B2 00 8B 46 47 B2 31 A7 53 44 B2 53 44 |......FG.1.SD.SD|
000013C0: AA 31 3A 8B 53 44 B1 41 AB 31 A7 31 33 39 20 00 |.1:.SD.A.1.139 .|
000013D0: DE 1B B3 00 8B 46 47 B2 31 A7 31 38 34 20 00 F0 |.....FG.1.184 ..|
000013E0: 1B B4 00 8B 46 59 B2 31 A7 53 44 B2 53 44 AA 31 |....FY.1.SD.SD.1|
000013F0: 00 FF 1B B5 00 8B 53 44 B1 41 A7 31 33 39 20 00 |......SD.A.139 .|
00001400: 09 1C B6 00 89 31 38 34 20 00 21 1C B7 00 53 44 |.....184 .!...SD|
00001410: B2 53 44 AA 31 3A 8B 53 44 B1 41 A7 89 31 33 39 |.SD.1:.SD.A..139|
00001420: 20 00 2B 1C B8 00 89 31 37 33 20 00 00 00 | .+....173 ... |
.......9 .[.............................
........... 3 . THIS PROGRAM WILL SEARC
H A DISK ..~.... . MASTER COM.ER FILES
, . ....... THEM . PLAYING, . BUILD A
..J.... DIREC.RY . DISK . LATER USE
....... WRITTEN 01.21.85
....... DAVE SCHMOLDT 72356,2574
..H................................
.........`....F.0..55,96:.56,109.K....G(
14)......F.1..30120:.14 ......PR$(145),P
L$(50),PN$(50)......".";......53280,0:.5
3281,0......F.0..S.55296.55335:.S, 0:.S.
960,0 : .......F.0.. S.1024.1063:.S,160:
.S.960,160:..H....F.0. .".";:A$." THE MA
GIC MUSIC MACHINE ":.62 .X....F.0.. ".";
.E....F.1.21 ......"....................
.....";:A$." BY DAVE SCHMOLDT 72356,2574
":.62 ......"....".F....Z.1.5.N...Q.0..
....S.55296.55335:CO..(1..(1).14):.S,CO:
.S.(999.Q),CO:Q.Q.2: .......Z.&....F.0.
.139 .1...."..";.A....F.0. .66 .O...."
.";:F.1.V....I(PT$,2).".C".PT$.H(PT$,C(P
T$).2)......".............";:A$."
":.62 ..
. .."........";:A$."
":.62 ...!..".";.@.".
.".............";:A$.".NOW PLAYING--> ".
PT$:.62 .I.#..38 .R.$..27 .X.%.....&.A$.
".......................................
."...'..".";:CO.149...(.D$."............
............"...).U$."..................
........"...*..C.1.11...+.CO..(1..(1).14
):.646,CO...,..H(D$,C.1);:.A$;.@.-.."...
......................";.S....H(U$,C);:.
A$;.../..RE$:.RE$." "..31044,4:R.0::.51
: .100...0.. C:."..";...1..B(789)..234
..42 ...2..100 ...3.A$."
"...4..".";...5.
D$."........................".1.6.U$."..
........................".=.7..C.1.12.R.
8..H(D$,C.1);:.A$;.T.9.."...............
..........";...:..H(U$,C);:.A$;...;.. C:
."...";...<.....=.....>...20.C(A$).2)A$;
...?...T.@..KE$:.KE$."".64 .Z.A.....B..
51 :.".....";:A$.".PRESS ANY KEY WHEN RE
ADY"...C..646,4: .62 .&.D..64 .O.E.."...
":A$."READING DIRECTORY":.62 :..W.F.X.1.
R.G..15,8,15,"I": 15:A$.""...H..8,8,0,"$
0":.C.1.8:.#8,A$:.:C.1:DN$."":.C.1.16.R.
I..#8,A$:DN$.DN$.A$:.:.#8,A$:.#8,A$:.#8,
A$...J.DN$.DN$.A$:.#8,A$:DN$.DN$.A$:.#8,
A$:.#8,A$:DN$.DN$."/".A$.L.K..#8,A$:DN$.
DN$.A$:.#8,A$:C.1:.".DISK TITLE ---> ."D
N$:..`.L..H.1.4:.#8,A$:..X.M..#8,A$:.ST.
.0.88 ...N..A$."".88 ...O..F(A$)..34.
77 :. LOO FOR QUOTES...P..#8,A$:.F(A$).
.34.PN$.PN$.A$:.80 :. BUILD NAME TIL QU
OTES...Q..#8,A$:.F(A$).32.81 :. SPACES.
'.R..#8,A$:.A$.."".82 .T.S.PR$(X).PN$:.
"................";"
";...T.A$." ". PN$:
."..";:.62 ...U.PN$."":X.X.1...V..ST.0.7
6 ...W. 8.G.X. 8: .51 ...Y.."..";:A$."C
HECKING FOR MASTER COMPOSER FILES":.62
:A.1...Z.....[..M.1.X.1.=.\.. 8,8,8,PR$(
M).",M,R":.ST..0.99 .V.]..#8,L1$:.L1$."
".99 .K.^..F(L1$)..13.99 ..._..#8,L2$:
.L2$."".99 ...`..F(L2$)..117.99 ...A.P
L$(A).PR$(M):."..........";"
"...B.A$.PL$
(A):."..";:.62 :A.A.1...C. 8:L1$."":L2$.
"":.M.-.D..51 :."..";.=.E..SK.1..183 .M.
F..FY.1..180 .].G..FG.1..178 .S.H..FR.1.
.166 :.139 .|.I..51 ...J.V.1...K..A.32.A
.32...L..CA.1.A.1.Y.M.OV$.".............
................................"...N.DO
$.".........................."...O.RO$."
.".).P..CA.18..H(OV$,CA.3);:.114 .;.Q..H
(DO$,CA.2);.W.R..I(PL$(CA),2).".C".116 .
|.S.."."G(CA.64)RO$." "PL$(CA):.119 ...T
.LE.C(PL$(CA)).2...U.."."G(CA.64)RO$." "
H(PL$(CA),LE).A.V.RO$.".".G.W.....X.."..
...................";...Y.A$.".ENTER YOU
R CHOICE":.62 ...Z..:..E.{.A$." .RETUR
N. FOR MENU. SPACE. WHEN DONE":.62 .O.
|..".";.E.}..AN$:.AN$."".125 ..~..AN$.G
(13)..51 :.139 .....AN$." ".V .1..51 :.
139 .R....AN$." "..T.1.V:PL$(T).PN$(T):.
:A.V.1:FY.1: .171 ......F(AN$).65.125 ..
...N.F(AN$).64.....PN$(V).PL$(N)......N.
CA.1.125 .'....N.1.125 .C...PL$(N).".".P
L$(N):V.V.1.L....108......".............
";:A$."SPACE WILL STOP SONG DURING PLAY"
:.62 ......"........";:A$."LOADING ".PT$
:.62 .F.... PL$(N),8,1.W...."....";: 15.
....."PLEASE ENTER YOUR CHOICE". ...."..
.... 1. CREATE A NEW DIRECTORY".L....".
....... 2. READ EXISTING DIRECTORY"....
..".......... 3. PLAY SONGS ON DISK (CR
EATE NO FILE)"......"............ 4. PL
AY ALL SONGS IN DIRECTORY"......".......
....... 5. PLAY ALL SONGS ON DISK (NO F
ILE)"......"................ 6. EXIT ".
+....A$:.A$."".147 .O....A$."1".FR.1:SK.
0:FG.0:FY.0:.66.A....A$."2"..155 ......A
$."3".SK.0:SK.0:FG.0:FR.0:FY.0 :.66 ....
..A$."4".SK.1:.155 .M....A$."5".SD.0:SK.
0:FR.0:FY.0: FG.1:.66......A$."6"..51 :.
......147 .*....51 :A$.".......READING D
IRECTORY FILE.....":."...":.62 : 8.L....
15,8,15,"I0:":.8,8,8,"MMMCAT,S,R":.15,Y,
B$,C,D: 15:.Y.62.158..... 8:.8,8,8,"MMMC
AT,S,R": .".....".N....Y.62..".....":A$.
"YOU MUST CREATE A FILE FIRST":.62 : 8..
....Y.62. .DE.1.2000: .DE:.51 : 15:.139.
.. ..8,A......WE.1.A......8,PL$(WE).!...
..9....SK.1. 8: 15 :.171 .Q... 8: 15:A.A
.1: .105.....A$.".WRITING DIRECTORY":.6
2 : 8:.15,8,15,"S0:MMMCAT": 15......8,8
,8,"MMMCAT,S,W"......8,A.1.O....QW.1.A.1
:.8,PL$(QW):.QW..... 8:R.0:.51 :.......5
1 :F.1.....SD.1."....H(PL$(SD),1).".".PL
$(SD).J(PL$(SD),2).6...PT$.PL$(SD):F.1.W
....".............";:A$."SPACE WILL STOP
SONG DURING PLAY":.62 ......"........";
:A$."LOADING ".PT$:.62 ......PL$(SD),8,1
.O....FG.1.SD.SD.1:.SD.A.1.139 ......FG.
1.184 ......FY.1.SD.SD.1......SD.A.139 .
.....184 .!...SD.SD.1:.SD.A..139 .+....1
73 ...
> CLICK IMAGE PREVIEW FOR FULL MODAL