MUSIC MENU.C
FILE INFORMATION
FILENAME(S): MUSIC MENU.C
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-11-30 16:58:56
APPEARS ON: 2 disk(s)
FILE HASH
7cf77a1c415fe8d97e5a89691bdf84df03cbda46c0707f932bd068b25a4c6b02
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JUKEBOX MUSIC1 | MUSIC MENU.C | PRG | High Voltage Complete C64 Collection, Xii | 17 | 0 | DOWNLOAD FILE |
| JUKEBOX MUSIC2 | MUSIC MENU.C | PRG | High Voltage Complete C64 Collection, Xii | 17 | 0 | 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 C0 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 AA 22 22 |............".""|
000004C0: 00 E7 0C 29 00 55 24 B2 22 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: 91 91 91 22 AA 22 22 00 F3 0C 2A 00 81 43 B2 31 |...".""...*..C.1|
000004F0: A4 31 31 00 0F 0D 2B 00 43 4F B2 B5 28 31 AA BB |.11...+.CO..(1..|
00000500: 28 31 29 AC 31 34 29 3A 97 36 34 36 2C 43 4F 00 |(1).14):.646,CO.|
00000510: 24 0D 2C 00 99 C8 28 44 24 2C 43 AA 31 29 3B 3A |$.,...(D$,C.1);:|
00000520: 99 41 24 3B 00 46 0D 2D 00 99 22 13 11 11 11 11 |.A$;.F.-..".....|
00000530: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000540: 11 11 11 11 22 3B 00 59 0D 2E 00 99 C8 28 55 24 |....";.Y.....(U$|
00000550: 2C 43 29 3B 3A 99 41 24 3B 00 86 0D 2F 00 A1 52 |,C);:.A$;.../..R|
00000560: 45 24 3A 8B 52 45 24 B2 22 20 22 A7 97 33 31 30 |E$:.RE$." "..310|
00000570: 34 34 2C 34 3A 52 B2 30 3A 3A 8D 35 31 20 3A 20 |44,4:R.0::.51 : |
00000580: 20 20 89 31 30 30 00 9D 0D 30 00 82 20 43 3A 44 | .100...0.. C:D|
00000590: 42 B2 B8 28 30 29 3A 99 22 13 11 22 3B 00 B3 0D |B..(0):."..";...|
000005A0: 31 00 8B C2 28 37 38 39 29 B3 B1 32 33 34 A7 89 |1...(789)..234..|
000005B0: 34 32 20 00 BD 0D 32 00 89 31 30 30 20 00 EF 0D |42 ...2..100 ...|
000005C0: 33 00 41 24 B2 22 20 20 20 20 20 20 20 20 20 20 |3.A$." |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000005F0: F9 0D 34 00 99 22 13 22 3B 00 1B 0E 35 00 44 24 |..4..".";...5.D$|
00000600: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00000610: 11 11 11 11 11 11 11 11 11 11 22 00 3F 0E 36 00 |..........".?.6.|
00000620: 55 24 B2 22 91 91 91 91 91 91 91 91 91 91 91 91 |U$."............|
00000630: 91 91 91 91 91 91 91 91 91 91 91 91 91 91 22 00 |..............".|
00000640: 4B 0E 37 00 81 43 B2 31 A4 31 32 00 60 0E 38 00 |K.7..C.1.12.`.8.|
00000650: 99 C8 28 44 24 2C 43 AA 31 29 3B 3A 99 41 24 3B |..(D$,C.1);:.A$;|
00000660: 00 82 0E 39 00 99 22 13 11 11 11 11 11 11 11 11 |...9..".........|
00000670: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000680: 22 3B 00 95 0E 3A 00 99 C8 28 55 24 2C 43 29 3B |";...:...(U$,C);|
00000690: 3A 99 41 24 3B 00 A5 0E 3B 00 82 20 43 3A 99 22 |:.A$;...;.. C:."|
000006A0: 9C 13 11 22 3B 00 AB 0E 3C 00 8E 00 B1 0E 3D 00 |...";...<.....=.|
000006B0: 9A 00 C6 0E 3E 00 99 A6 32 30 AB C3 28 41 24 29 |....>...20..(A$)|
000006C0: AD 32 29 41 24 3B 00 CC 0E 3F 00 8E 00 E2 0E 40 |.2)A$;...?.....@|
000006D0: 00 A1 4B 45 24 3A 8B 4B 45 24 B2 22 22 A7 36 34 |..KE$:.KE$."".64|
000006E0: 20 20 00 E8 0E 41 00 8E 00 1A 0F 42 00 8D 35 31 | ...A.....B..51|
000006F0: 20 3A 99 22 92 13 11 11 11 22 3B 3A 41 24 B2 22 | :.".....";:A$."|
00000700: 9C D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 57 |..RESS ANY KEY W|
00000710: 48 45 4E 20 52 45 41 44 59 22 00 2B 0F 43 00 97 |HEN READY".+.C..|
00000720: 36 34 36 2C 34 3A 20 8D 36 32 20 00 34 0F 44 00 |646,4: .62 .4.D.|
00000730: 8D 36 34 20 00 5D 0F 45 00 99 22 9E 11 11 22 3A |.64 .].E.."...":|
00000740: 41 24 B2 22 D2 45 41 44 49 4E 47 20 C4 49 52 45 |A$.".EADING .IRE|
00000750: 43 54 4F 52 59 22 3A 8D 36 32 20 3A 99 00 65 0F |CTORY":.62 :..e.|
00000760: 46 00 58 B2 31 00 80 0F 47 00 9F 31 35 2C 38 2C |F.X.1...G..15,8,|
00000770: 31 35 2C 22 49 22 3A A0 31 35 3A 41 24 B2 22 22 |15,"I":.15:A$.""|
00000780: 00 B3 0F 48 00 9F 38 2C 38 2C 30 2C 22 24 30 22 |...H..8,8,0,"$0"|
00000790: 3A 81 43 B2 31 A4 38 3A A1 23 38 2C 41 24 3A 82 |:.C.1.8:.#8,A$:.|
000007A0: 3A 43 B2 31 3A 44 4E 24 B2 22 22 3A 81 43 B2 31 |:C.1:DN$."":.C.1|
000007B0: A4 31 36 00 E0 0F 49 00 A1 23 38 2C 41 24 3A 44 |.16...I..#8,A$:D|
000007C0: 4E 24 B2 44 4E 24 AA 41 24 3A 82 3A A1 23 38 2C |N$.DN$.A$:.:.#8,|
000007D0: 41 24 3A A1 23 38 2C 41 24 3A A1 23 38 2C 41 24 |A$:.#8,A$:.#8,A$|
000007E0: 00 1E 10 4A 00 44 4E 24 B2 44 4E 24 AA 41 24 3A |...J.DN$.DN$.A$:|
000007F0: A1 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 41 |.#8,A$:DN$.DN$.A|
00000800: 24 3A A1 23 38 2C 41 24 3A A1 23 38 2C 41 24 3A |$:.#8,A$:.#8,A$:|
00000810: 44 4E 24 B2 44 4E 24 AA 22 2F 22 AA 41 24 00 5A |DN$.DN$."/".A$.Z|
00000820: 10 4B 00 A1 23 38 2C 41 24 3A 44 4E 24 B2 44 4E |.K..#8,A$:DN$.DN|
00000830: 24 AA 41 24 3A A1 23 38 2C 41 24 3A 43 B2 31 3A |$.A$:.#8,A$:C.1:|
00000840: 99 22 11 C4 49 53 4B 20 D4 49 54 4C 45 20 2D 2D |."..ISK .ITLE --|
00000850: 2D 3E 20 9C 22 44 4E 24 3A 99 00 6E 10 4C 00 81 |-> ."DN$:..n.L..|
00000860: 48 B2 31 A4 34 3A A1 23 38 2C 41 24 3A 82 00 86 |H.1.4:.#8,A$:...|
00000870: 10 4D 00 A1 23 38 2C 41 24 3A 8B 53 54 B3 B1 30 |.M..#8,A$:.ST..0|
00000880: A7 38 38 20 20 20 00 96 10 4E 00 8B 41 24 B2 22 |.88 ...N..A$."|
00000890: 22 A7 38 38 20 20 00 BB 10 4F 00 8B C6 28 41 24 |".88 ...O...(A$|
000008A0: 29 B3 B1 33 34 A7 37 37 20 20 3A 8F 20 4C 4F 4F |)..34.77 :. LOO|
000008B0: 20 46 4F 52 20 51 55 4F 54 45 53 00 FA 10 50 00 | FOR QUOTES...P.|
000008C0: A1 23 38 2C 41 24 3A 8B C6 28 41 24 29 B3 B1 33 |.#8,A$:..(A$)..3|
000008D0: 34 A7 50 4E 24 B2 50 4E 24 AA 41 24 3A 89 38 30 |4.PN$.PN$.A$:.80|
000008E0: 20 20 3A 8F 20 42 55 49 4C 44 20 4E 41 4D 45 20 | :. BUILD NAME |
000008F0: 54 49 4C 20 51 55 4F 54 45 53 00 1D 11 51 00 A1 |TIL QUOTES...Q..|
00000900: 23 38 2C 41 24 3A 8B C6 28 41 24 29 B2 33 32 A7 |#8,A$:..(A$).32.|
00000910: 38 31 20 20 3A 8F 20 53 50 41 43 45 53 00 35 11 |81 :. SPACES.5.|
00000920: 52 00 A1 23 38 2C 41 24 3A 8B 41 24 B3 B1 22 22 |R..#8,A$:.A$..""|
00000930: A7 38 32 20 20 00 85 11 53 00 50 52 24 28 58 29 |.82 ...S.PR$(X)|
00000940: B2 50 4E 24 AA 22 22 3A 99 22 13 11 11 11 11 11 |.PN$."":."......|
00000950: 11 11 11 11 11 11 11 11 11 11 22 3B 22 20 20 20 |..........";" |
00000960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000980: 20 20 20 22 3B 00 A6 11 54 00 41 24 B2 22 20 20 | ";...T.A$." |
00000990: 20 20 22 AA 20 50 4E 24 AA 22 22 3A 99 22 91 1E | ". PN$."":."..|
000009A0: 22 3B 3A 8D 36 32 00 B7 11 55 00 50 4E 24 B2 22 |";:.62...U.PN$."|
000009B0: 22 3A 58 B2 58 AA 31 00 C6 11 56 00 8B 53 54 B2 |":X.X.1...V..ST.|
000009C0: 30 A7 37 36 20 20 00 CD 11 57 00 A0 38 00 DA 11 |0.76 ...W..8...|
000009D0: 58 00 A0 38 3A 20 8D 35 31 20 00 17 12 59 00 99 |X..8: .51 ...Y..|
000009E0: 22 1E 11 22 3B 3A 41 24 B2 22 C3 48 45 43 4B 49 |"..";:A$.".HECKI|
000009F0: 4E 47 20 46 4F 52 20 CD 41 53 54 45 52 20 C3 4F |NG FOR .ASTER .O|
00000A00: 4D 50 4F 53 45 52 20 46 49 4C 45 53 22 3A 8D 36 |MPOSER FILES":.6|
00000A10: 32 20 20 3A 41 B2 31 00 1D 12 5A 00 99 00 2A 12 |2 :A.1...Z...*.|
00000A20: 5B 00 81 4D B2 31 A4 58 AB 31 00 50 12 5C 00 9F |[..M.1.X.1.P.\..|
00000A30: 20 38 2C 38 2C 38 2C 50 52 24 28 4D 29 AA 22 2C | 8,8,8,PR$(M).",|
00000A40: 4D 2C 52 22 3A 8B 53 54 B3 B1 30 A7 39 39 20 20 |M,R":.ST..0.99 |
00000A50: 00 69 12 5D 00 A1 23 38 2C 4C 31 24 3A 8B 4C 31 |.i.]..#8,L1$:.L1|
00000A60: 24 B2 22 22 A7 39 39 20 20 00 7E 12 5E 00 8B C6 |$."".99 .~.^...|
00000A70: 28 4C 31 24 29 B3 B1 31 33 A7 39 39 20 20 00 97 |(L1$)..13.99 ..|
00000A80: 12 5F 00 A1 23 38 2C 4C 32 24 3A 8B 4C 32 24 B2 |._..#8,L2$:.L2$.|
00000A90: 22 22 A7 39 39 20 20 00 AD 12 60 00 8B C6 28 4C |"".99 ...`...(L|
00000AA0: 32 24 29 B3 B1 31 31 37 A7 39 39 20 20 00 F8 12 |2$)..117.99 ...|
00000AB0: 61 00 50 4C 24 28 41 29 B2 50 52 24 28 4D 29 3A |a.PL$(A).PR$(M):|
00000AC0: 99 22 13 11 11 11 11 11 11 11 11 11 22 3B 22 20 |."..........";" |
00000AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AF0: 20 20 20 20 20 20 20 22 00 18 13 62 00 41 24 B2 | "...b.A$.|
00000B00: 50 4C 24 28 41 29 3A 99 22 91 91 22 3B 3A 8D 36 |PL$(A):."..";:.6|
00000B10: 32 20 3A 41 B2 41 AA 31 00 30 13 63 00 A0 38 3A |2 :A.A.1.0.c..8:|
00000B20: 4C 31 24 B2 22 22 3A 4C 32 24 B2 22 22 3A 82 4D |L1$."":L2$."":.M|
00000B30: 00 40 13 64 00 8D 35 31 20 3A 99 22 13 11 22 3B |.@.d..51 :."..";|
00000B40: 00 50 13 65 00 8B 53 4B B2 31 A7 89 31 38 33 20 |.P.e..SK.1..183 |
00000B50: 00 60 13 66 00 8B 46 59 B2 31 A7 89 31 38 30 20 |.`.f..FY.1..180 |
00000B60: 00 70 13 67 00 8B 46 47 B2 31 A7 89 31 37 38 20 |.p.g..FG.1..178 |
00000B70: 00 86 13 68 00 8B 46 52 B2 31 A7 8D 31 36 36 20 |...h..FR.1..166 |
00000B80: 3A 89 31 33 39 20 00 8F 13 69 00 8D 35 31 20 00 |:.139 ...i..51 .|
00000B90: 97 13 6A 00 56 B2 31 00 A6 13 6B 00 8B 41 B1 33 |..j.V.1...k..A.3|
00000BA0: 32 A7 41 B2 33 32 00 B4 13 6C 00 81 43 41 B2 31 |2.A.32...l..CA.1|
00000BB0: A4 41 AB 31 00 EC 13 6D 00 4F 56 24 B2 22 13 11 |.A.1...m.OV$."..|
00000BC0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000BD0: 1D 1D 1D 1D 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000BE0: 11 11 11 11 11 11 11 11 11 11 11 22 00 11 14 6E |..........."...n|
00000BF0: 00 44 4F 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.DO$."..........|
00000C00: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000C10: 22 00 1D 14 6F 00 52 4F 24 B2 22 92 22 00 3C 14 |"...o.RO$.".".<.|
00000C20: 70 00 8B 43 41 B1 31 38 A7 99 C8 28 4F 56 24 2C |p..CA.18...(OV$,|
00000C30: 43 41 AA 33 29 3B 3A 89 31 31 34 20 00 4E 14 71 |CA.3);:.114 .N.q|
00000C40: 00 99 C8 28 44 4F 24 2C 43 41 AA 32 29 3B 00 6A |...(DO$,CA.2);.j|
00000C50: 14 72 00 8B C9 28 50 4C 24 28 43 41 29 2C 32 29 |.r...(PL$(CA),2)|
00000C60: B2 22 2E 43 22 A7 31 31 36 20 00 8F 14 73 00 99 |.".C".116 ...s..|
00000C70: 22 12 22 C7 28 43 41 AA 36 34 29 52 4F 24 AA 22 |".".(CA.64)RO$."|
00000C80: 20 22 50 4C 24 28 43 41 29 3A 89 31 31 39 20 00 | "PL$(CA):.119 .|
00000C90: A3 14 74 00 4C 45 B2 C3 28 50 4C 24 28 43 41 29 |..t.LE..(PL$(CA)|
00000CA0: 29 AB 32 00 C8 14 75 00 99 22 12 22 C7 28 43 41 |).2...u..".".(CA|
00000CB0: AA 36 34 29 52 4F 24 AA 22 20 22 C8 28 50 4C 24 |.64)RO$." ".(PL$|
00000CC0: 28 43 41 29 2C 4C 45 29 00 D4 14 76 00 52 4F 24 |(CA),LE)...v.RO$|
00000CD0: B2 22 92 22 00 DA 14 77 00 82 00 F8 14 78 00 99 |."."...w.....x..|
00000CE0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00000CF0: 11 11 11 11 11 11 22 3B 00 19 15 79 00 41 24 B2 |......";...y.A$.|
00000D00: 22 9E C5 4E 54 45 52 20 59 4F 55 52 20 43 48 4F |"..NTER YOUR CHO|
00000D10: 49 43 45 22 3A 8D 36 32 20 00 21 15 7A 00 99 3A |ICE":.62 .!.z..:|
00000D20: 99 00 58 15 7B 00 41 24 B2 22 20 20 20 1C D2 C5 |..X.{.A$." ...|
00000D30: D4 D5 D2 CE 9E 20 46 4F 52 20 4D 45 4E 55 1C 20 |..... FOR MENU. |
00000D40: 20 20 D3 D0 C1 C3 C5 9E 20 57 48 45 4E 20 44 4F | ...... WHEN DO|
00000D50: 4E 45 22 3A 8D 36 32 20 00 62 15 7C 00 99 22 9C |NE":.62 .b.|..".|
00000D60: 22 3B 00 78 15 7D 00 A1 41 4E 24 3A 8B 41 4E 24 |";.x.}..AN$:.AN$|
00000D70: B2 22 22 A7 31 32 35 20 00 92 15 7E 00 8B 41 4E |."".125 ...~..AN|
00000D80: 24 B2 C7 28 31 33 29 A7 8D 35 31 20 3A 8D 31 33 |$..(13)..51 :.13|
00000D90: 39 20 00 AF 15 7F 00 8B 41 4E 24 B2 22 20 22 AF |9 ......AN$." ".|
00000DA0: 56 20 B2 31 A7 8D 35 31 20 3A 89 31 33 39 20 00 |V .1..51 :.139 .|
00000DB0: E5 15 80 00 8B 41 4E 24 B2 22 20 22 A7 81 54 B2 |.....AN$." "..T.|
00000DC0: 31 A4 56 3A 50 4C 24 28 54 29 B2 50 4E 24 28 54 |1.V:PL$(T).PN$(T|
00000DD0: 29 3A 82 3A 41 B2 56 AB 31 3A 46 59 B2 31 3A 20 |):.:A.V.1:FY.1: |
00000DE0: 89 31 37 31 20 00 F9 15 81 00 8B C6 28 41 4E 24 |.171 .......(AN$|
00000DF0: 29 B3 36 35 A7 31 32 35 20 00 09 16 82 00 4E B2 |).65.125 .....N.|
00000E00: C6 28 41 4E 24 29 AB 36 34 00 1E 16 83 00 50 4E |.(AN$).64.....PN|
00000E10: 24 28 56 29 B2 50 4C 24 28 4E 29 AA 22 22 00 2F |$(V).PL$(N).""./|
00000E20: 16 84 00 8B 4E B1 43 41 AB 31 A7 31 32 35 20 00 |....N.CA.1.125 .|
00000E30: 3D 16 85 00 8B 4E B3 31 A7 31 32 35 20 00 5C 16 |=....N.1.125 .\.|
00000E40: 86 00 50 4C 24 28 4E 29 B2 22 12 22 AA 50 4C 24 |..PL$(N).".".PL$|
00000E50: 28 4E 29 AA 22 22 3A 56 B2 56 AA 31 00 65 16 87 |(N)."":V.V.1.e..|
00000E60: 00 89 31 30 38 00 A6 16 88 00 99 22 13 11 11 11 |..108......"....|
00000E70: 11 11 11 11 11 11 11 11 11 22 3B 3A 41 24 B2 22 |.........";:A$."|
00000E80: D3 D0 C1 C3 C5 20 57 49 4C 4C 20 53 54 4F 50 20 |..... WILL STOP |
00000E90: 53 4F 4E 47 20 44 55 52 49 4E 47 20 50 4C 41 59 |SONG DURING PLAY|
00000EA0: 22 3A 8D 36 32 20 00 CE 16 89 00 99 22 13 11 11 |":.62 ......"...|
00000EB0: 11 11 11 11 11 22 3B 3A 41 24 B2 22 CC 4F 41 44 |.....";:A$.".OAD|
00000EC0: 49 4E 47 20 22 AA 50 54 24 3A 8D 36 32 20 00 DF |ING ".PT$:.62 ..|
00000ED0: 16 8A 00 93 20 50 4C 24 28 4E 29 2C 38 2C 31 00 |.... PL$(N),8,1.|
00000EE0: F0 16 8B 00 99 22 13 11 11 9E 22 3B 3A A0 31 35 |....."....";:.15|
00000EF0: 00 10 17 8C 00 99 22 D0 4C 45 41 53 45 20 C5 4E |......".LEASE .N|
00000F00: 54 45 52 20 D9 4F 55 52 20 C3 48 4F 49 43 45 22 |TER .OUR .HOICE"|
00000F10: 00 39 17 8D 00 99 22 13 11 11 11 11 11 20 20 31 |.9...."...... 1|
00000F20: 2E 20 C3 52 45 41 54 45 20 41 20 4E 45 57 20 44 |. .REATE A NEW D|
00000F30: 49 52 45 43 54 4F 52 59 22 00 65 17 8E 00 99 22 |IRECTORY".e...."|
00000F40: 13 11 11 11 11 11 11 11 20 20 32 2E 20 D2 45 41 |........ 2. .EA|
00000F50: 44 20 45 58 49 53 54 49 4E 47 20 44 49 52 45 43 |D EXISTING DIREC|
00000F60: 54 4F 52 59 22 00 9F 17 8F 00 99 22 13 11 11 11 |TORY"......"....|
00000F70: 11 11 11 11 11 11 20 20 33 2E 20 D0 4C 41 59 20 |...... 3. .LAY |
00000F80: 53 4F 4E 47 53 20 4F 4E 20 44 49 53 4B 20 28 43 |SONGS ON DISK (C|
00000F90: 52 45 41 54 45 20 4E 4F 20 46 49 4C 45 29 22 00 |REATE NO FILE)".|
00000FA0: D3 17 90 00 99 22 13 11 11 11 11 11 11 11 11 11 |....."..........|
00000FB0: 11 11 20 20 34 2E 20 D0 4C 41 59 20 41 4C 4C 20 |.. 4. .LAY ALL |
00000FC0: 53 4F 4E 47 53 20 49 4E 20 44 49 52 45 43 54 4F |SONGS IN DIRECTO|
00000FD0: 52 59 22 00 0E 18 91 00 99 22 13 11 11 11 11 11 |RY"......"......|
00000FE0: 11 11 11 11 11 11 11 11 20 20 35 2E 20 D0 4C 41 |........ 5. .LA|
00000FF0: 59 20 41 4C 4C 20 53 4F 4E 47 53 20 4F 4E 20 44 |Y ALL SONGS ON D|
00001000: 49 53 4B 20 28 4E 4F 20 46 49 4C 45 29 22 00 30 |ISK (NO FILE)".0|
00001010: 18 92 00 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
00001020: 11 11 11 11 11 20 20 36 2E 20 C5 58 49 54 20 22 |..... 6. .XIT "|
00001030: 00 44 18 93 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.D....A$:.A$."".|
00001040: 31 34 37 20 00 68 18 94 00 8B 41 24 B2 22 31 22 |147 .h....A$."1"|
00001050: A7 46 52 B2 31 3A 53 4B B2 30 3A 46 47 B2 30 3A |.FR.1:SK.0:FG.0:|
00001060: 46 59 B2 30 3A 89 36 36 00 7A 18 95 00 8B 41 24 |FY.0:.66.z....A$|
00001070: B2 22 32 22 A7 89 31 35 35 20 00 A5 18 96 00 8B |."2"..155 ......|
00001080: 41 24 B2 22 33 22 A7 53 4B B2 30 3A 53 4B B2 30 |A$."3".SK.0:SK.0|
00001090: 3A 46 47 B2 30 3A 46 52 B2 30 3A 46 59 B2 30 20 |:FG.0:FR.0:FY.0 |
000010A0: 3A 89 36 36 20 00 BC 18 97 00 8B 41 24 B2 22 34 |:.66 ......A$."4|
000010B0: 22 A7 53 4B B2 31 3A 89 31 35 35 20 00 E6 18 98 |".SK.1:.155 ....|
000010C0: 00 8B 41 24 B2 22 35 22 A7 53 44 B2 30 3A 53 4B |..A$."5".SD.0:SK|
000010D0: B2 30 3A 46 52 B2 30 3A 46 59 B2 30 3A 20 46 47 |.0:FR.0:FY.0: FG|
000010E0: B2 31 3A 89 36 36 00 F9 18 99 00 8B 41 24 B2 22 |.1:.66......A$."|
000010F0: 36 22 A7 8D 35 31 20 3A 80 00 03 19 9A 00 89 31 |6"..51 :.......1|
00001100: 34 37 20 00 43 19 9B 00 8D 35 31 20 3A 41 24 B2 |47 .C....51 :A$.|
00001110: 22 11 11 11 11 11 11 11 D2 45 41 44 49 4E 47 20 |"........EADING |
00001120: 44 49 52 45 43 54 4F 52 59 20 46 49 4C 45 2E 2E |DIRECTORY FILE..|
00001130: 2E 2E 2E 22 3A 99 22 13 11 11 22 3A 8D 36 32 20 |...":."...":.62 |
00001140: 3A A0 38 00 85 19 9C 00 9F 31 35 2C 38 2C 31 35 |:.8......15,8,15|
00001150: 2C 22 49 30 3A 22 3A 9F 38 2C 38 2C 38 2C 22 4D |,"I0:":.8,8,8,"M|
00001160: 4D 4D 43 41 54 2C 53 2C 52 22 3A 84 31 35 2C 59 |MMCAT,S,R":.15,Y|
00001170: 2C 42 24 2C 43 2C 44 3A A0 31 35 3A 8B 59 B2 36 |,B$,C,D:.15:.Y.6|
00001180: 32 A7 31 35 38 00 AA 19 9D 00 A0 38 3A 9F 38 2C |2.158......8:.8,|
00001190: 38 2C 38 2C 22 4D 4D 4D 43 41 54 2C 53 2C 52 22 |8,8,"MMMCAT,S,R"|
000011A0: 3A 20 99 22 11 11 11 11 11 22 00 E7 19 9E 00 8B |: ."....."......|
000011B0: 59 B2 36 32 A7 99 22 11 11 11 11 11 22 3A 41 24 |Y.62..".....":A$|
000011C0: B2 22 D9 4F 55 20 4D 55 53 54 20 43 52 45 41 54 |.".OU MUST CREAT|
000011D0: 45 20 41 20 46 49 4C 45 20 46 49 52 53 54 22 3A |E A FILE FIRST":|
000011E0: 8D 36 32 20 3A A0 38 00 10 1A 9F 00 8B 59 B2 36 |.62 :.8......Y.6|
000011F0: 32 A7 20 81 44 45 B2 31 A4 32 30 30 30 3A 20 82 |2. .DE.1.2000: .|
00001200: 44 45 3A 8D 35 31 20 3A A0 31 35 3A 89 31 33 39 |DE:.51 :.15:.139|
00001210: 00 19 1A A0 00 84 38 2C 41 00 25 1A A1 00 81 57 |......8,A.%....W|
00001220: 45 B2 31 A4 41 00 34 1A A2 00 84 38 2C 50 4C 24 |E.1.A.4....8,PL$|
00001230: 28 57 45 29 00 3A 1A A3 00 82 00 52 1A A4 00 8B |(WE).:.....R....|
00001240: 53 4B B2 31 A7 A0 38 3A A0 31 35 20 3A 89 31 37 |SK.1..8:.15 :.17|
00001250: 31 20 00 6A 1A A5 00 A0 38 3A A0 31 35 3A 41 B2 |1 .j....8:.15:A.|
00001260: 41 AA 31 3A 20 20 89 31 30 35 00 A8 1A A6 00 41 |A.1: .105.....A|
00001270: 24 B2 22 11 D7 52 49 54 49 4E 47 20 C4 49 52 45 |$."..RITING .IRE|
00001280: 43 54 4F 52 59 22 3A 8D 36 32 20 3A 20 A0 38 3A |CTORY":.62 : .8:|
00001290: 9F 31 35 2C 38 2C 31 35 2C 22 53 30 3A 4D 4D 4D |.15,8,15,"S0:MMM|
000012A0: 43 41 54 22 3A A0 31 35 00 C0 1A A7 00 9F 38 2C |CAT":.15......8,|
000012B0: 38 2C 38 2C 22 4D 4D 4D 43 41 54 2C 53 2C 57 22 |8,8,"MMMCAT,S,W"|
000012C0: 00 CB 1A A8 00 98 38 2C 41 AB 31 00 E8 1A A9 00 |......8,A.1.....|
000012D0: 81 51 57 B2 31 A4 41 AB 31 3A 98 38 2C 50 4C 24 |.QW.1.A.1:.8,PL$|
000012E0: 28 51 57 29 3A 82 51 57 00 FA 1A AA 00 A0 38 3A |(QW):.QW......8:|
000012F0: 52 B2 30 3A 8D 35 31 20 3A 8E 00 07 1B AB 00 8D |R.0:.51 :.......|
00001300: 35 31 20 3A 46 B2 31 00 10 1B AC 00 53 44 B2 31 |51 :F.1.....SD.1|
00001310: 00 3B 1B AD 00 8B C8 28 50 4C 24 28 53 44 29 2C |.;.....(PL$(SD),|
00001320: 31 29 B2 22 12 22 A7 50 4C 24 28 53 44 29 B2 CA |1).".".PL$(SD)..|
00001330: 28 50 4C 24 28 53 44 29 2C 32 29 00 52 1B AE 00 |(PL$(SD),2).R...|
00001340: 50 54 24 B2 50 4C 24 28 53 44 29 AA 22 22 3A 46 |PT$.PL$(SD)."":F|
00001350: B2 31 00 93 1B AF 00 99 22 13 11 11 11 11 11 11 |.1......".......|
00001360: 11 11 11 11 11 11 22 3B 3A 41 24 B2 22 D3 D0 C1 |......";:A$."...|
00001370: C3 C5 20 57 49 4C 4C 20 53 54 4F 50 20 53 4F 4E |.. WILL STOP SON|
00001380: 47 20 44 55 52 49 4E 47 20 50 4C 41 59 22 3A 8D |G DURING PLAY":.|
00001390: 36 32 20 00 BB 1B B0 00 99 22 13 11 11 11 11 11 |62 ......"......|
000013A0: 11 11 22 3B 3A 41 24 B2 22 CC 4F 41 44 49 4E 47 |..";:A$.".OADING|
000013B0: 20 22 AA 50 54 24 3A 8D 36 32 20 00 CC 1B B1 00 | ".PT$:.62 .....|
000013C0: 93 50 4C 24 28 53 44 29 2C 38 2C 31 00 EB 1B B2 |.PL$(SD),8,1....|
000013D0: 00 8B 46 47 B2 31 A7 53 44 B2 53 44 AA 31 3A 8B |..FG.1.SD.SD.1:.|
000013E0: 53 44 B1 41 AB 31 A7 31 33 39 20 00 FA 1B B3 00 |SD.A.1.139 .....|
000013F0: 8B 46 47 B2 31 A7 31 38 34 20 00 0C 1C B4 00 8B |.FG.1.184 ......|
00001400: 46 59 B2 31 A7 53 44 B2 53 44 AA 31 00 1B 1C B5 |FY.1.SD.SD.1....|
00001410: 00 8B 53 44 B1 41 A7 31 33 39 20 00 25 1C B6 00 |..SD.A.139 .%...|
00001420: 89 31 38 34 20 00 3D 1C B7 00 53 44 B2 53 44 AA |.184 .=...SD.SD.|
00001430: 31 3A 8B 53 44 B1 41 A7 89 31 33 39 20 00 47 1C |1:.SD.A..139 .G.|
00001440: 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$;.F.-
..".........................";.Y....H(U$
,C);:.A$;.../..RE$:.RE$." "..31044,4:R.0
::.51 : .100...0.. C:DB..(0):."..";...
1..B(789)..234..42 ...2..100 ...3.A$."
".
..4..".";...5.D$."......................
..".?.6.U$."..........................".
K.7..C.1.12.`.8..H(D$,C.1);:.A$;...9..".
........................";...:..H(U$,C);
:.A$;...;.. C:."...";...<.....=...F.>...
20.C(A$).2)A$;.L.?.....@..KE$:.KE$."".64
...A.....B..51 :.".....";:A$.".PRESS A
NY KEY WHEN READY".+.C..646,4: .62 .4.D.
.64 .].E.."...":A$."READING DIRECTORY":.
62 :..E.F.X.1...G..15,8,15,"I": 15:A$.""
...H..8,8,0,"$0":.C.1.8:.#8,A$:.:C.1:DN$
."":.C.1.16...I..#8,A$:DN$.DN$.A$:.:.#8,
A$:.#8,A$:.#8,A$...J.DN$.DN$.A$:.#8,A$:D
N$.DN$.A$:.#8,A$:.#8,A$:DN$.DN$."/".A$.Z
.K..#8,A$:DN$.DN$.A$:.#8,A$:C.1:.".DISK
TITLE ---> ."DN$:..N.L..H.1.4:.#8,A$:...
.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 :. BUI
LD NAME TIL QUOTES...Q..#8,A$:.F(A$).32.
81 :. SPACES.5.R..#8,A$:.A$.."".82 ...
S.PR$(X).PN$."":."................";"
";...
T.A$." ". PN$."":."..";:.62...U.PN$."
":X.X.1.F.V..ST.0.76 .M.W. 8.Z.X. 8: .5
1 ...Y.."..";:A$."CHECKING FOR MASTER CO
MPOSER FILES":.62 :A.1...Z...*.[..M.1.X
.1.P.\.. 8,8,8,PR$(M).",M,R":.ST..0.99
.I.]..#8,L1$:.L1$."".99 .~.^..F(L1$)..1
3.99 ..._..#8,L2$:.L2$."".99 ...`..F(L
2$)..117.99 ...A.PL$(A).PR$(M):."......
....";"
"...B.A$.PL$(A):."..";:.62 :A.A.1
.0.C. 8:L1$."":L2$."":.M.@.D..51 :."..";
.P.E..SK.1..183 .`.F..FY.1..180 .P.G..FG
.1..178 ...H..FR.1..166 :.139 ...I..51 .
..J.V.1...K..A.32.A.32...L..CA.1.A.1...M
.OV$."..................................
..........."...N.DO$."..................
........"...O.RO$.".".<.P..CA.18..H(OV$,
CA.3);:.114 .N.Q..H(DO$,CA.2);.J.R..I(PL
$(CA),2).".C".116 ...S.."."G(CA.64)RO$."
"PL$(CA):.119 ...T.LE.C(PL$(CA)).2.H.U.
."."G(CA.64)RO$." "H(PL$(CA),LE).T.V.RO$
.".".Z.W.....X..".....................";
...Y.A$.".ENTER YOUR CHOICE":.62 .!.Z..:
..X.{.A$." .RETURN. FOR MENU. SPACE.
WHEN DONE":.62 .B.|..".";.X.}..AN$:.AN$
."".125 ...~..AN$.G(13)..51 :.139 .....
AN$." ".V .1..51 :.139 ......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 .\...PL$(N).".".PL$(N)."":V.V.1.E..
..108......".............";:A$."SPACE WI
LL STOP SONG DURING PLAY":.62 .N...."...
.....";:A$."LOADING ".PT$:.62 ...... PL$
(N),8,1......"....";: 15......"PLEASE EN
TER YOUR CHOICE".9...."...... 1. CREATE
A NEW DIRECTORY".E...."........ 2. REA
D EXISTING DIRECTORY"......"..........
3. PLAY SONGS ON DISK (CREATE NO FILE)".
S...."............ 4. PLAY ALL SONGS IN
DIRECTORY"......".............. 5. PLA
Y ALL SONGS ON DISK (NO FILE)".0...."...
............. 6. EXIT ".D....A$:.A$."".
147 .H....A$."1".FR.1:SK.0:FG.0:FY.0:.66
.Z....A$."2"..155 ......A$."3".SK.0:SK.0
:FG.0:FR.0:FY.0 :.66 ......A$."4".SK.1:.
155 ......A$."5".SD.0:SK.0:FR.0:FY.0: FG
.1:.66......A$."6"..51 :.......147 .C...
.51 :A$.".......READING DIRECTORY FILE..
...":."...":.62 : 8......15,8,15,"I0:":.
8,8,8,"MMMCAT,S,R":.15,Y,B$,C,D: 15:.Y.6
2.158..... 8:.8,8,8,"MMMCAT,S,R": ."....
."......Y.62..".....":A$."YOU MUST CREAT
E A FILE FIRST":.62 : 8......Y.62. .DE.1
.2000: .DE:.51 : 15:.139... ..8,A.%....W
E.1.A.4....8,PL$(WE).:.....R....SK.1. 8:
15 :.171 .J... 8: 15:A.A.1: .105.....A
$.".WRITING DIRECTORY":.62 : 8:.15,8,15
,"S0:MMMCAT": 15......8,8,8,"MMMCAT,S,W"
.K....8,A.1......QW.1.A.1:.8,PL$(QW):.QW
..... 8:R.0:.51 :.......51 :F.1.....SD.1
.;....H(PL$(SD),1).".".PL$(SD).J(PL$(SD)
,2).R...PT$.PL$(SD)."":F.1......".......
......";:A$."SPACE WILL STOP SONG DURING
PLAY":.62 ......"........";:A$."LOADING
".PT$:.62 .L....PL$(SD),8,1......FG.1.S
D.SD.1:.SD.A.1.139 ......FG.1.184 ......
FY.1.SD.SD.1......SD.A.139 .%....184 .=.
..SD.SD.1:.SD.A..139 .G....173 ...
> CLICK IMAGE PREVIEW FOR FULL MODAL