JUKEBOX PLAYER
FILE INFORMATION
FILENAME(S): JUKEBOX PLAYER
FILE TYPE(S): PRG
FILE SIZE: 7.2K
FIRST SEEN: 2025-11-30 21:23:00
APPEARS ON: 1 disk(s)
FILE HASH
afda86c508c347f2684f39ec4d265a053337afb9259590d31ec90378379d99fd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JUKEBOX PLAYER | JUKEBOX PLAYER | PRG | DuncanTwain | 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 20 20 AC 20 20 54 48 49 53 20 50 52 |... . 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 35 AD 38 35 20 20 20 20 20 20 20 20 |01.25.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 99 09 0A 00 8F 20 4C 4F 57 45 52 20 48 49 4D |...... LOWER HIM|
00000170: 45 4D 20 53 4F 20 41 53 20 4E 4F 54 20 54 4F 20 |EM SO AS NOT TO |
00000180: 43 4F 4E 46 4C 49 43 54 20 57 49 54 48 20 4D 55 |CONFLICT WITH MU|
00000190: 53 49 43 20 46 49 4C 45 53 00 A4 09 0B 00 99 C7 |SIC FILES.......|
000001A0: 28 31 34 29 00 E4 09 0C 00 8B 46 B2 31 A7 9E 33 |(14)......F.1..3|
000001B0: 30 31 32 30 3A 89 31 35 3A 8F 20 46 49 4C 45 20 |0120:.15:. FILE |
000001C0: 49 53 20 4C 4F 41 44 45 44 2C 20 53 54 41 52 54 |IS LOADED, START|
000001D0: 20 54 48 45 4E 20 47 4F 20 54 4F 20 47 52 41 50 | THEN GO TO GRAP|
000001E0: 48 49 43 53 00 02 0A 0D 00 86 50 52 24 28 31 34 |HICS......PR$(14|
000001F0: 35 29 2C 50 4C 24 28 39 39 29 2C 50 4E 24 28 39 |5),PL$(99),PN$(9|
00000200: 39 29 00 0C 0A 0E 00 99 22 93 22 3B 00 22 0A 0F |9)......".";."..|
00000210: 00 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 |..53280,0:.53281|
00000220: 2C 30 00 4D 0A 10 00 8B 46 B2 30 A7 81 53 B2 35 |,0.M....F.0..S.5|
00000230: 35 32 39 36 A4 35 35 33 33 35 3A 97 53 2C 20 30 |5296.55335:.S, 0|
00000240: 3A 97 53 AA 39 36 30 2C 30 20 3A 20 82 00 76 0A |:.S.960,0 : ..v.|
00000250: 11 00 8F 20 54 4F 50 20 41 4E 44 20 42 4F 54 54 |... TOP AND BOTT|
00000260: 4F 4D 20 52 4F 57 53 20 50 4F 4B 45 44 20 54 4F |OM ROWS POKED TO|
00000270: 20 42 4C 41 43 4B 00 A1 0A 12 00 8B 46 B2 30 A7 | BLACK......F.0.|
00000280: 81 20 53 B2 31 30 32 34 A4 31 30 36 33 3A 97 53 |. S.1024.1063:.S|
00000290: 2C 31 36 30 3A 97 53 AA 39 36 30 2C 31 36 30 3A |,160:.S.960,160:|
000002A0: 82 00 D4 0A 13 00 8F 20 50 4F 4B 45 20 49 4E 56 |....... POKE INV|
000002B0: 45 52 53 45 20 53 50 41 43 45 53 20 49 4E 54 4F |ERSE SPACES INTO|
000002C0: 20 54 4F 50 20 41 4E 44 20 42 4F 54 54 4F 4D 20 | TOP AND BOTTOM |
000002D0: 52 4F 57 53 00 08 0B 14 00 8B 46 B2 30 A7 20 99 |ROWS......F.0. .|
000002E0: 22 90 22 3B 3A 41 24 B2 22 20 D4 48 45 20 CD 41 |".";:A$." .HE .A|
000002F0: 47 49 43 20 CD 55 53 49 43 20 CD 41 43 48 49 4E |GIC .USIC .ACHIN|
00000300: 45 20 22 3A 8D 37 34 20 00 18 0B 15 00 8B 46 B2 |E ":.74 ......F.|
00000310: 30 A7 99 20 22 90 22 3B 00 25 0B 16 00 8B 46 B2 |0.. ".";.%....F.|
00000320: 31 A7 32 34 20 00 6F 0B 17 00 99 22 13 11 11 11 |1.24 .o...."....|
00000330: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000340: 11 11 11 11 11 22 3B 3A 41 24 B2 22 20 42 59 20 |.....";:A$." BY |
00000350: C4 41 56 45 20 D3 43 48 4D 4F 4C 44 54 20 37 32 |.AVE .CHMOLDT 72|
00000360: 33 35 36 2C 32 35 37 34 20 22 3A 8D 37 34 20 00 |356,2574 ":.74 .|
00000370: 7B 0B 18 00 99 22 13 11 11 11 22 00 86 0B 19 00 |{...."....".....|
00000380: 81 5A B2 31 A4 33 00 8E 0B 1A 00 51 B2 30 00 CE |.Z.1.3.....Q.0..|
00000390: 0B 1B 00 81 53 B2 35 35 32 39 36 A4 35 35 33 33 |....S.55296.5533|
000003A0: 35 3A 43 4F B2 B5 28 31 AA BB 28 31 29 AC 31 34 |5:CO..(1..(1).14|
000003B0: 29 3A 97 53 2C 43 4F 3A 97 53 AA 28 39 39 39 AB |):.S,CO:.S.(999.|
000003C0: 51 29 2C 43 4F 3A 51 B2 51 AA 32 3A 20 82 00 D5 |Q),CO:Q.Q.2: ...|
000003D0: 0B 1C 00 82 5A 00 02 0C 1D 00 8F 20 52 41 49 4E |....Z...... RAIN|
000003E0: 42 4F 57 20 44 49 53 50 4C 41 59 20 49 4E 20 4F |BOW DISPLAY IN O|
000003F0: 50 50 4F 53 49 54 45 20 44 49 52 45 43 54 49 4F |PPOSITE DIRECTIO|
00000400: 4E 53 00 31 0C 1E 00 8B 46 B2 30 A7 20 20 8D 31 |NS.1....F.0. .1|
00000410: 36 35 3A 8F 20 47 4F 54 4F 20 4D 45 4E 55 20 49 |65:. GOTO MENU I|
00000420: 46 20 53 4F 4E 47 20 4E 4F 54 20 4C 4F 41 44 45 |F SONG NOT LOADE|
00000430: 44 00 3C 0C 1F 00 99 22 13 11 22 3B 00 69 0C 20 |D.<...."..";.i. |
00000440: 00 8B 46 B2 30 A7 20 8D 37 38 20 3A 20 8F 20 57 |..F.0. .78 : . W|
00000450: 41 49 54 20 46 4F 52 20 4B 45 59 20 50 52 45 53 |AIT FOR KEY PRES|
00000460: 53 20 52 4F 55 54 49 4E 45 00 77 0C 21 00 99 22 |S ROUTINE.w.!.."|
00000470: 92 22 3B 3A 46 B2 31 00 B6 0C 22 00 8B C9 28 50 |.";:F.1..."...(P|
00000480: 54 24 2C 32 29 B2 22 2E 43 22 A7 50 54 24 B2 C8 |T$,2).".C".PT$..|
00000490: 28 50 54 24 2C C3 28 50 54 24 29 AB 32 29 3A 8F |(PT$,.(PT$).2):.|
000004A0: 20 52 45 4D 4F 56 45 20 27 2E 43 27 20 46 52 4F | REMOVE '.C' FRO|
000004B0: 4D 20 4E 41 4D 45 00 FE 0C 23 00 99 22 13 11 11 |M NAME...#.."...|
000004C0: 11 11 11 11 11 11 11 11 11 11 22 3B 3A 41 24 B2 |..........";:A$.|
000004D0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004F0: 20 20 20 20 20 20 20 20 22 3A 8D 37 34 20 00 41 | ":.74 .A|
00000500: 0D 24 00 99 22 13 11 11 11 11 11 11 11 22 3B 3A |.$.."........";:|
00000510: 41 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |A$." |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000530: 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 37 34 | ":.74|
00000540: 20 00 61 0D 25 00 8F 20 42 4C 41 4E 4B 20 4F 55 | .a.%.. BLANK OU|
00000550: 54 20 4C 49 4E 45 53 20 4F 4E 20 53 43 52 45 45 |T LINES ON SCREE|
00000560: 4E 00 6B 0D 26 00 99 22 91 22 3B 00 A0 0D 27 00 |N.k.&..".";...'.|
00000570: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 22 |."............."|
00000580: 3B 3A 41 24 B2 22 9E CE 4F 57 20 D0 4C 41 59 49 |;:A$."..OW .LAYI|
00000590: 4E 47 2D 2D 3E 20 22 AA 50 54 24 3A 8D 37 34 20 |NG--> ".PT$:.74 |
000005A0: 00 BD 0D 28 00 89 34 33 20 3A 8F 20 20 47 52 41 |...(..43 :. GRA|
000005B0: 50 48 49 43 53 20 44 49 53 50 4C 41 59 00 D7 0D |PHICS DISPLAY...|
000005C0: 29 00 89 33 31 20 20 3A 20 8F 20 47 41 52 42 41 |)..31 : . GARBA|
000005D0: 47 45 20 4C 49 4E 45 00 ED 0D 2A 00 80 3A 20 8F |GE LINE...*..: .|
000005E0: 20 47 41 52 42 41 47 45 20 4C 49 4E 45 00 1F 0E | GARBAGE LINE...|
000005F0: 2B 00 41 24 B2 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |+.A$."..........|
00000600: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000610: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 |..............".|
00000620: 30 0E 2C 00 99 22 13 22 3B 3A 43 4F B2 31 34 39 |0.,..".";:CO.149|
00000630: 00 6D 0E 2D 00 44 24 B2 22 13 11 11 11 11 11 11 |.m.-.D$.".......|
00000640: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000650: 11 22 3A 8F 20 53 54 52 49 4E 47 20 46 4F 52 20 |.":. STRING FOR |
00000660: 4C 4F 57 45 52 49 4E 47 20 4C 49 4E 45 00 AB 0E |LOWERING LINE...|
00000670: 2E 00 55 24 B2 22 91 91 91 91 91 91 91 91 91 91 |..U$."..........|
00000680: 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 |................|
00000690: 22 3A 8F 20 53 54 52 49 4E 47 20 46 4F 52 20 52 |":. STRING FOR R|
000006A0: 41 49 53 49 4E 47 20 4C 49 4E 45 00 C7 0E 2F 00 |AISING LINE.../.|
000006B0: 8F 20 44 49 53 50 4C 41 59 20 52 41 49 4E 42 4F |. DISPLAY RAINBO|
000006C0: 57 20 4C 49 4E 45 53 00 D3 0E 30 00 81 43 B2 31 |W LINES...0..C.1|
000006D0: A4 31 31 00 EF 0E 31 00 43 4F B2 B5 28 31 AA BB |.11...1.CO..(1..|
000006E0: 28 31 29 AC 31 34 29 3A 97 36 34 36 2C 43 4F 00 |(1).14):.646,CO.|
000006F0: 04 0F 32 00 99 C8 28 44 24 2C 43 AA 31 29 3B 3A |..2...(D$,C.1);:|
00000700: 99 41 24 3B 00 26 0F 33 00 99 22 13 11 11 11 11 |.A$;.&.3..".....|
00000710: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000720: 11 11 11 11 22 3B 00 39 0F 34 00 99 C8 28 55 24 |....";.9.4...(U$|
00000730: 2C 43 29 3B 3A 99 41 24 3B 00 6E 0F 35 00 A1 52 |,C);:.A$;.n.5..R|
00000740: 45 24 3A 8B 52 45 24 B2 22 20 22 A7 97 33 31 30 |E$:.RE$." "..310|
00000750: 34 34 2C 34 3A 52 B2 30 3A 81 4C B2 35 34 32 37 |44,4:R.0:.L.5427|
00000760: 36 A4 35 34 32 39 36 3A 97 4C 2C 30 3A 82 00 80 |6.54296:.L,0:...|
00000770: 0F 36 00 8B 52 45 24 B2 22 20 22 A7 89 31 31 36 |.6..RE$." "..116|
00000780: 00 96 0F 37 00 8B 52 45 24 B2 22 31 22 A7 97 33 |...7..RE$."1"..3|
00000790: 31 30 34 34 2C 31 00 AC 0F 38 00 8B 52 45 24 B2 |1044,1...8..RE$.|
000007A0: 22 32 22 A7 97 33 31 30 34 34 2C 32 00 C2 0F 39 |"2"..31044,2...9|
000007B0: 00 8B 52 45 24 B2 22 33 22 A7 97 33 31 30 34 34 |..RE$."3"..31044|
000007C0: 2C 33 00 D8 0F 3A 00 8B 52 45 24 B2 22 5F 22 A7 |,3...:..RE$."_".|
000007D0: 97 33 31 30 34 34 2C 30 00 E7 0F 3B 00 82 20 43 |.31044,0...;.. C|
000007E0: 3A 99 22 13 11 22 3B 00 03 10 3C 00 8F 20 44 49 |:."..";...<.. DI|
000007F0: 53 50 4C 41 59 20 52 41 49 4E 42 4F 57 20 4C 49 |SPLAY RAINBOW LI|
00000800: 4E 45 53 00 31 10 3D 00 8B C2 28 37 38 39 29 B3 |NES.1.=...(789).|
00000810: B1 32 33 34 A7 89 34 38 20 3A 8F 20 43 48 45 43 |.234..48 :. CHEC|
00000820: 4B 20 46 4F 52 20 45 4E 44 20 4F 46 20 53 4F 4E |K FOR END OF SON|
00000830: 47 00 55 10 3E 00 89 31 31 36 3A 20 8F 20 43 48 |G.U.>..116: . CH|
00000840: 45 43 4B 20 46 4C 41 47 53 20 54 48 45 4E 20 42 |ECK FLAGS THEN B|
00000850: 52 41 4E 43 48 00 9E 10 3F 00 41 24 B2 22 20 20 |RANCH...?.A$." |
00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000880: 20 20 20 20 20 20 22 3A 8F 20 43 4C 45 41 52 20 | ":. CLEAR |
00000890: 53 43 52 45 45 4E 20 52 4F 55 54 49 4E 45 00 A8 |SCREEN ROUTINE..|
000008A0: 10 40 00 99 22 13 22 3B 00 CA 10 41 00 44 24 B2 |.@..".";...A.D$.|
000008B0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
000008C0: 11 11 11 11 11 11 11 11 11 22 00 EE 10 42 00 55 |........."...B.U|
000008D0: 24 B2 22 91 91 91 91 91 91 91 91 91 91 91 91 91 |$.".............|
000008E0: 91 91 91 91 91 91 91 91 91 91 91 91 91 22 00 FA |............."..|
000008F0: 10 43 00 81 43 B2 31 A4 31 32 00 0F 11 44 00 99 |.C..C.1.12...D..|
00000900: C8 28 44 24 2C 43 AA 31 29 3B 3A 99 41 24 3B 00 |.(D$,C.1);:.A$;.|
00000910: 31 11 45 00 99 22 13 11 11 11 11 11 11 11 11 11 |1.E.."..........|
00000920: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00000930: 3B 00 44 11 46 00 99 C8 28 55 24 2C 43 29 3B 3A |;.D.F...(U$,C);:|
00000940: 99 41 24 3B 00 54 11 47 00 82 20 43 3A 99 22 9C |.A$;.T.G.. C:.".|
00000950: 13 11 22 3B 00 5A 11 48 00 8E 00 6A 11 49 00 9A |..";.Z.H...j.I..|
00000960: 3A 8F 20 47 41 52 42 41 47 45 00 7F 11 4A 00 99 |:. GARBAGE...J..|
00000970: A6 32 30 AB C3 28 41 24 29 AD 32 29 41 24 3B 00 |.20..(A$).2)A$;.|
00000980: 93 11 4B 00 8E 3A 8F 20 43 45 4E 54 45 52 20 4C |..K..:. CENTER L|
00000990: 49 4E 45 00 A8 11 4C 00 A1 4B 45 24 3A 8B 4B 45 |INE...L..KE$:.KE|
000009A0: 24 B2 22 22 A7 37 36 20 00 C4 11 4D 00 8E 3A 20 |$."".76 ...M..: |
000009B0: 8F 20 57 41 49 54 20 46 4F 52 20 4B 45 59 20 50 |. WAIT FOR KEY P|
000009C0: 52 45 53 53 00 F6 11 4E 00 8D 36 33 20 3A 99 22 |RESS...N..63 :."|
000009D0: 92 13 11 11 11 22 3B 3A 41 24 B2 22 9C D0 52 45 |.....";:A$."..RE|
000009E0: 53 53 20 41 4E 59 20 4B 45 59 20 57 48 45 4E 20 |SS ANY KEY WHEN |
000009F0: 52 45 41 44 59 22 00 07 12 4F 00 97 36 34 36 2C |READY"...O..646,|
00000A00: 34 3A 20 8D 37 34 20 00 1C 12 50 00 8D 37 36 20 |4: .74 ...P..76 |
00000A10: 3A 8F 20 4B 45 59 20 50 52 45 53 53 00 45 12 51 |:. KEY PRESS.E.Q|
00000A20: 00 99 22 9E 11 11 22 3A 41 24 B2 22 D2 45 41 44 |.."...":A$.".EAD|
00000A30: 49 4E 47 20 C4 49 52 45 43 54 4F 52 59 22 3A 8D |ING .IRECTORY":.|
00000A40: 37 34 20 3A 99 00 4D 12 52 00 58 B2 31 00 68 12 |74 :..M.R.X.1.h.|
00000A50: 53 00 9F 31 35 2C 38 2C 31 35 2C 22 49 22 3A A0 |S..15,8,15,"I":.|
00000A60: 31 35 3A 41 24 B2 22 22 00 9B 12 54 00 9F 38 2C |15:A$.""...T..8,|
00000A70: 38 2C 30 2C 22 24 30 22 3A 81 43 B2 31 A4 38 3A |8,0,"$0":.C.1.8:|
00000A80: A1 23 38 2C 41 24 3A 82 3A 43 B2 31 3A 44 4E 24 |.#8,A$:.:C.1:DN$|
00000A90: B2 22 22 3A 81 43 B2 31 A4 31 36 00 C8 12 55 00 |."":.C.1.16...U.|
00000AA0: A1 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 41 |.#8,A$:DN$.DN$.A|
00000AB0: 24 3A 82 3A A1 23 38 2C 41 24 3A A1 23 38 2C 41 |$:.:.#8,A$:.#8,A|
00000AC0: 24 3A A1 23 38 2C 41 24 00 06 13 56 00 44 4E 24 |$:.#8,A$...V.DN$|
00000AD0: B2 44 4E 24 AA 41 24 3A A1 23 38 2C 41 24 3A 44 |.DN$.A$:.#8,A$:D|
00000AE0: 4E 24 B2 44 4E 24 AA 41 24 3A A1 23 38 2C 41 24 |N$.DN$.A$:.#8,A$|
00000AF0: 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA |:.#8,A$:DN$.DN$.|
00000B00: 22 2F 22 AA 41 24 00 42 13 57 00 A1 23 38 2C 41 |"/".A$.B.W..#8,A|
00000B10: 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 3A A1 23 38 |$:DN$.DN$.A$:.#8|
00000B20: 2C 41 24 3A 43 B2 31 3A 99 22 11 C4 49 53 4B 20 |,A$:C.1:."..ISK |
00000B30: D4 49 54 4C 45 20 2D 2D 2D 3E 20 9C 22 44 4E 24 |.ITLE ---> ."DN$|
00000B40: 3A 99 00 56 13 58 00 81 48 B2 31 A4 34 3A A1 23 |:..V.X..H.1.4:.#|
00000B50: 38 2C 41 24 3A 82 00 6E 13 59 00 A1 23 38 2C 41 |8,A$:..n.Y..#8,A|
00000B60: 24 3A 8B 53 54 B3 B1 30 A7 31 30 31 20 20 00 7E |$:.ST..0.101 .~|
00000B70: 13 5A 00 8B 41 24 B2 22 22 A7 31 30 31 20 00 A4 |.Z..A$."".101 ..|
00000B80: 13 5B 00 8B C6 28 41 24 29 B3 B1 33 34 A7 38 39 |.[...(A$)..34.89|
00000B90: 20 20 3A 8F 20 4C 4F 4F 4B 20 46 4F 52 20 51 55 | :. LOOK FOR QU|
00000BA0: 4F 54 45 53 00 E3 13 5C 00 A1 23 38 2C 41 24 3A |OTES...\..#8,A$:|
00000BB0: 8B C6 28 41 24 29 B3 B1 33 34 A7 50 4E 24 B2 50 |..(A$)..34.PN$.P|
00000BC0: 4E 24 AA 41 24 3A 89 39 32 20 20 3A 8F 20 42 55 |N$.A$:.92 :. BU|
00000BD0: 49 4C 44 20 4E 41 4D 45 20 54 49 4C 20 51 55 4F |ILD NAME TIL QUO|
00000BE0: 54 45 53 00 06 14 5D 00 A1 23 38 2C 41 24 3A 8B |TES...]..#8,A$:.|
00000BF0: C6 28 41 24 29 B2 33 32 A7 39 33 20 20 3A 8F 20 |.(A$).32.93 :. |
00000C00: 53 50 41 43 45 53 00 1E 14 5E 00 A1 23 38 2C 41 |SPACES...^..#8,A|
00000C10: 24 3A 8B 41 24 B3 B1 22 22 A7 39 34 20 20 00 6B |$:.A$.."".94 .k|
00000C20: 14 5F 00 50 52 24 28 58 29 B2 50 4E 24 3A 99 22 |._.PR$(X).PN$:."|
00000C30: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000C40: 22 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |";" |
00000C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C60: 20 20 20 20 20 20 20 20 20 22 3B 00 A7 14 60 00 | ";...`.|
00000C70: 8F 20 50 52 24 28 58 29 20 49 53 20 54 48 45 20 |. PR$(X) IS THE |
00000C80: 53 54 52 49 4E 47 20 46 4F 52 20 50 52 4F 47 52 |STRING FOR PROGR|
00000C90: 41 4D 20 4E 41 4D 45 53 20 52 45 41 44 20 46 52 |AM NAMES READ FR|
00000CA0: 4F 4D 20 44 49 53 4B 00 ED 14 61 00 41 24 B2 22 |OM DISK...a.A$."|
00000CB0: 20 20 20 20 22 AA 20 50 4E 24 3A 99 22 91 1E 22 | ". PN$:.".."|
00000CC0: 3B 3A 8D 37 34 20 3A 20 8F 20 41 44 44 20 53 50 |;:.74 : . ADD SP|
00000CD0: 41 43 45 53 20 54 4F 20 4E 41 4D 45 20 54 48 45 |ACES TO NAME THE|
00000CE0: 4E 20 43 45 4E 54 45 52 20 54 48 45 4D 00 FE 14 |N CENTER THEM...|
00000CF0: 62 00 50 4E 24 B2 22 22 3A 58 B2 58 AA 31 00 0D |b.PN$."":X.X.1..|
00000D00: 15 63 00 8B 53 54 B2 30 A7 38 38 20 20 00 14 15 |.c..ST.0.88 ...|
00000D10: 64 00 A0 38 00 21 15 65 00 A0 38 3A 20 8D 36 33 |d..8.!.e..8: .63|
00000D20: 20 00 5E 15 66 00 99 22 1E 11 22 3B 3A 41 24 B2 | .^.f.."..";:A$.|
00000D30: 22 C3 48 45 43 4B 49 4E 47 20 46 4F 52 20 CD 41 |".HECKING FOR .A|
00000D40: 53 54 45 52 20 C3 4F 4D 50 4F 53 45 52 20 46 49 |STER .OMPOSER FI|
00000D50: 4C 45 53 22 3A 8D 37 34 20 20 3A 41 B2 31 00 64 |LES":.74 :A.1.d|
00000D60: 15 67 00 99 00 71 15 68 00 81 4D B2 31 A4 58 AB |.g...q.h..M.1.X.|
00000D70: 31 00 97 15 69 00 9F 20 38 2C 38 2C 38 2C 50 52 |1...i.. 8,8,8,PR|
00000D80: 24 28 4D 29 AA 22 2C 4D 2C 52 22 3A 8B 53 54 B3 |$(M).",M,R":.ST.|
00000D90: B1 30 A7 31 31 35 20 00 BB 15 6A 00 8F 20 4F 50 |.0.115 ...j.. OP|
00000DA0: 45 4E 20 46 49 4C 45 20 27 4D 27 20 41 4C 4C 4F |EN FILE 'M' ALLO|
00000DB0: 57 53 20 41 4E 59 20 54 59 50 45 00 D4 15 6B 00 |WS ANY TYPE...k.|
00000DC0: A1 23 38 2C 4C 31 24 3A 8B 4C 31 24 B2 22 22 A7 |.#8,L1$:.L1$."".|
00000DD0: 31 31 35 20 00 E9 15 6C 00 8B C6 28 4C 31 24 29 |115 ...l...(L1$)|
00000DE0: B3 B1 31 33 A7 31 31 35 20 00 02 16 6D 00 A1 23 |..13.115 ...m..#|
00000DF0: 38 2C 4C 32 24 3A 8B 4C 32 24 B2 22 22 A7 31 31 |8,L2$:.L2$."".11|
00000E00: 35 20 00 18 16 6E 00 8B C6 28 4C 32 24 29 B3 B1 |5 ...n...(L2$)..|
00000E10: 31 31 37 A7 31 31 35 20 00 59 16 6F 00 8F 20 54 |117.115 .Y.o.. T|
00000E20: 48 45 20 20 41 42 4F 56 45 20 43 48 45 43 4B 53 |HE ABOVE CHECKS|
00000E30: 20 46 49 52 53 54 20 54 57 4F 20 42 59 54 45 44 | FIRST TWO BYTED|
00000E40: 20 49 4E 20 46 49 4C 45 20 46 4F 52 20 4C 4F 41 | IN FILE FOR LOA|
00000E50: 44 20 41 44 44 52 45 53 53 00 A4 16 70 00 50 4C |D ADDRESS...p.PL|
00000E60: 24 28 41 29 B2 50 52 24 28 4D 29 3A 99 22 13 11 |$(A).PR$(M):."..|
00000E70: 11 11 11 11 11 11 11 11 22 3B 22 20 20 20 20 20 |........";" |
00000E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EA0: 20 20 20 22 00 EC 16 71 00 8F 20 49 46 20 56 41 | "...q.. IF VA|
00000EB0: 4C 49 44 20 4C 4F 41 44 20 41 44 44 52 45 53 53 |LID LOAD ADDRESS|
00000EC0: 20 54 48 45 4E 20 41 44 44 20 54 4F 20 50 4C 24 | THEN ADD TO PL$|
00000ED0: 28 29 20 53 54 52 49 4E 47 20 46 4F 52 20 44 49 |() STRING FOR DI|
00000EE0: 52 45 43 54 4F 52 59 20 46 49 4C 45 00 0C 17 72 |RECTORY FILE...r|
00000EF0: 00 41 24 B2 50 4C 24 28 41 29 3A 99 22 91 91 22 |.A$.PL$(A):.".."|
00000F00: 3B 3A 8D 37 34 20 3A 41 B2 41 AA 31 00 24 17 73 |;:.74 :A.A.1.$.s|
00000F10: 00 A0 38 3A 4C 31 24 B2 22 22 3A 4C 32 24 B2 22 |..8:L1$."":L2$."|
00000F20: 22 3A 82 4D 00 34 17 74 00 8D 36 33 20 3A 99 22 |":.M.4.t..63 :."|
00000F30: 13 11 22 3B 00 5B 17 75 00 8F 20 46 4C 41 47 53 |..";.[.u.. FLAGS|
00000F40: 20 46 4F 52 20 44 49 46 46 45 52 45 4E 54 20 4D | FOR DIFFERENT M|
00000F50: 45 4E 55 20 4F 50 54 49 4F 4E 53 00 6B 17 76 00 |ENU OPTIONS.k.v.|
00000F60: 8B 53 4B B2 31 A7 89 32 31 36 20 00 7B 17 77 00 |.SK.1..216 .{.w.|
00000F70: 8B 46 59 B2 31 A7 89 32 31 33 20 00 8B 17 78 00 |.FY.1..213 ...x.|
00000F80: 8B 46 47 B2 31 A7 89 32 31 31 20 00 A1 17 79 00 |.FG.1..211 ...y.|
00000F90: 8B 46 52 B2 31 A7 8D 31 39 36 20 3A 89 31 36 35 |.FR.1..196 :.165|
00000FA0: 20 00 AA 17 7A 00 8D 36 33 20 00 B2 17 7B 00 56 | ...z..63 ...{.V|
00000FB0: B2 31 00 DA 17 7C 00 8B 41 B1 33 32 A7 41 B2 33 |.1...|..A.32.A.3|
00000FC0: 32 3A 20 8F 4C 49 4D 49 54 20 4D 45 4E 55 20 54 |2: .LIMIT MENU T|
00000FD0: 4F 20 33 31 20 49 54 45 4D 53 00 E8 17 7D 00 81 |O 31 ITEMS...}..|
00000FE0: 43 41 B2 31 A4 41 AB 31 00 20 18 7E 00 4F 56 24 |CA.1.A.1. .~.OV$|
00000FF0: B2 22 13 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001000: 1D 1D 1D 1D 1D 1D 1D 1D 11 11 11 11 11 11 11 11 |................|
00001010: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00001020: 00 45 18 7F 00 44 4F 24 B2 22 13 11 11 11 11 11 |.E...DO$."......|
00001030: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001040: 11 11 11 11 22 00 51 18 80 00 52 4F 24 B2 22 92 |....".Q...RO$.".|
00001050: 22 00 70 18 81 00 8B 43 41 B1 31 38 A7 99 C8 28 |".p....CA.18...(|
00001060: 4F 56 24 2C 43 41 AA 33 29 3B 3A 89 31 33 32 20 |OV$,CA.3);:.132 |
00001070: 00 AB 18 82 00 8F 20 49 46 20 46 49 52 53 54 20 |...... IF FIRST |
00001080: 43 4F 4C 55 4D 4E 20 46 55 4C 4C 2C 20 55 53 45 |COLUMN FULL, USE|
00001090: 20 4F 56 24 20 54 4F 20 50 52 49 4E 54 20 53 45 | OV$ TO PRINT SE|
000010A0: 43 4F 4E 44 20 43 4F 4C 55 4D 4E 00 D5 18 83 00 |COND COLUMN.....|
000010B0: 99 C8 28 44 4F 24 2C 43 41 AA 32 29 3B 3A 8F 20 |..(DO$,CA.2);:. |
000010C0: 4D 4F 56 45 20 54 4F 20 53 45 43 4F 4E 44 20 43 |MOVE TO SECOND C|
000010D0: 4F 4C 55 4D 4E 00 07 19 84 00 8B C9 28 50 4C 24 |OLUMN.......(PL$|
000010E0: 28 43 41 29 2C 32 29 B2 22 2E 43 22 A7 31 33 35 |(CA),2).".C".135|
000010F0: 3A 8F 20 52 45 4D 4F 56 45 20 2E 43 20 49 46 20 |:. REMOVE .C IF |
00001100: 49 4E 20 4E 41 4D 45 00 2B 19 85 00 99 22 12 22 |IN NAME.+...."."|
00001110: C7 28 43 41 AA 36 34 29 52 4F 24 AA 22 20 22 50 |.(CA.64)RO$." "P|
00001120: 4C 24 28 43 41 29 3A 89 31 33 38 00 70 19 86 00 |L$(CA):.138.p...|
00001130: 8F 20 52 4F 24 20 57 49 4C 4C 20 45 49 54 48 45 |. RO$ WILL EITHE|
00001140: 52 20 50 52 49 4E 54 20 54 49 54 4C 45 20 49 4E |R PRINT TITLE IN|
00001150: 20 4E 4F 52 4D 41 4C 20 4F 52 20 49 4E 56 45 52 | NORMAL OR INVER|
00001160: 53 45 20 28 49 46 20 53 45 4C 45 43 54 45 44 29 |SE (IF SELECTED)|
00001170: 00 84 19 87 00 4C 45 B2 C3 28 50 4C 24 28 43 41 |.....LE..(PL$(CA|
00001180: 29 29 AB 32 00 A9 19 88 00 99 22 12 22 C7 28 43 |)).2......".".(C|
00001190: 41 AA 36 34 29 52 4F 24 AA 22 20 22 C8 28 50 4C |A.64)RO$." ".(PL|
000011A0: 24 28 43 41 29 2C 4C 45 29 00 B5 19 89 00 52 4F |$(CA),LE).....RO|
000011B0: 24 B2 22 92 22 00 BB 19 8A 00 82 00 D9 19 8B 00 |$."."...........|
000011C0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000011D0: 11 11 11 11 11 11 11 22 3B 00 FA 19 8C 00 41 24 |.......";.....A$|
000011E0: B2 22 9E C5 4E 54 45 52 20 59 4F 55 52 20 43 48 |."..NTER YOUR CH|
000011F0: 4F 49 43 45 22 3A 8D 37 34 20 00 02 1A 8D 00 99 |OICE":.74 ......|
00001200: 3A 99 00 39 1A 8E 00 41 24 B2 22 20 20 20 1C D2 |:..9...A$." ..|
00001210: C5 D4 D5 D2 CE 9E 20 46 4F 52 20 4D 45 4E 55 1C |...... FOR MENU.|
00001220: 20 20 20 D3 D0 C1 C3 C5 9E 20 57 48 45 4E 20 44 | ...... WHEN D|
00001230: 4F 4E 45 22 3A 8D 37 34 20 00 43 1A 8F 00 99 22 |ONE":.74 .C...."|
00001240: 9C 22 3B 00 59 1A 90 00 A1 41 4E 24 3A 8B 41 4E |.";.Y....AN$:.AN|
00001250: 24 B2 22 22 A7 31 34 34 20 00 95 1A 91 00 8B 41 |$."".144 ......A|
00001260: 4E 24 B2 C7 28 31 33 29 A7 8D 36 33 20 3A 8D 31 |N$..(13)..63 :.1|
00001270: 36 35 3A 8F 20 52 45 54 55 52 4E 2C 20 53 4F 20 |65:. RETURN, SO |
00001280: 43 4C 45 41 52 20 53 43 52 45 45 4E 20 41 4E 44 |CLEAR SCREEN AND|
00001290: 20 4D 45 4E 55 00 CE 1A 92 00 8B 41 4E 24 B2 22 | MENU......AN$."|
000012A0: 20 22 AF 56 20 B2 31 A7 8D 36 33 20 3A 89 31 36 | ".V .1..63 :.16|
000012B0: 35 3A 8F 20 53 50 41 43 45 2C 20 4E 4F 20 43 48 |5:. SPACE, NO CH|
000012C0: 4F 49 43 45 53 2C 20 53 4F 20 4D 45 4E 55 00 03 |OICES, SO MENU..|
000012D0: 1B 93 00 8B 41 4E 24 B2 22 20 22 A7 81 54 B2 31 |....AN$." "..T.1|
000012E0: A4 56 3A 50 4C 24 28 54 29 B2 50 4E 24 28 54 29 |.V:PL$(T).PN$(T)|
000012F0: 3A 82 3A 41 B2 56 AB 31 3A 46 59 B2 31 3A 20 89 |:.:A.V.1:FY.1: .|
00001300: 32 30 31 00 44 1B 94 00 8F 20 44 4F 4E 45 20 43 |201.D.... DONE C|
00001310: 48 4F 4F 53 49 4E 47 2C 20 53 4F 20 53 45 54 20 |HOOSING, SO SET |
00001320: 43 48 4F 49 43 45 53 20 49 4E 54 4F 20 50 4C 24 |CHOICES INTO PL$|
00001330: 28 29 20 41 52 52 41 59 20 46 4F 52 20 4C 4F 41 |() ARRAY FOR LOA|
00001340: 44 49 4E 47 00 58 1B 95 00 8B C6 28 41 4E 24 29 |DING.X.....(AN$)|
00001350: B3 36 35 A7 31 34 34 20 00 68 1B 96 00 4E B2 C6 |.65.144 .h...N..|
00001360: 28 41 4E 24 29 AB 36 34 00 7A 1B 97 00 50 4E 24 |(AN$).64.z...PN$|
00001370: 28 56 29 B2 50 4C 24 28 4E 29 00 8B 1B 98 00 8B |(V).PL$(N)......|
00001380: 4E B1 43 41 AB 31 A7 31 34 34 20 00 99 1B 99 00 |N.CA.1.144 .....|
00001390: 8B 4E B3 31 A7 31 34 34 20 00 C0 1B 9A 00 8F 20 |.N.1.144 ...... |
000013A0: 20 41 42 4F 56 45 20 43 48 45 43 4B 20 46 4F 52 | ABOVE CHECK FOR|
000013B0: 20 49 4E 56 41 4C 49 44 20 45 4E 54 52 49 45 53 | INVALID ENTRIES|
000013C0: 00 F7 1B 9B 00 8B 4E B1 31 38 A7 81 49 B2 35 35 |......N.18..I.55|
000013D0: 33 35 37 A4 35 35 33 37 33 3A 97 49 AA 28 28 4E |357.55373:.I.((N|
000013E0: AB 31 38 29 AC 34 30 29 2C 31 3A 82 3A 56 B2 56 |.18).40),1:.:V.V|
000013F0: AA 31 3A 89 31 35 37 00 1F 1C 9C 00 81 49 B2 35 |.1:.157......I.5|
00001400: 35 33 33 38 A4 35 35 33 35 34 3A 97 49 AA 28 20 |5338.55354:.I.( |
00001410: 4E AC 34 30 29 2C 31 3A 82 3A 56 B2 56 AA 31 00 |N.40),1:.:V.V.1.|
00001420: 28 1C 9D 00 89 31 34 34 00 6F 1C 9E 00 99 22 13 |(....144.o....".|
00001430: 11 11 11 11 11 11 11 11 11 11 11 11 22 3B 3A 41 |............";:A|
00001440: 24 B2 22 D3 D0 C1 C3 C5 20 57 49 4C 4C 20 53 54 |$."..... WILL ST|
00001450: 4F 50 20 53 4F 4E 47 20 44 55 52 49 4E 47 20 50 |OP SONG DURING P|
00001460: 4C 41 59 22 3A 8D 37 34 20 3A 99 22 9E 22 3B 00 |LAY":.74 :.".";.|
00001470: A2 1C 9F 00 99 22 13 11 11 11 11 11 11 11 11 11 |....."..........|
00001480: 11 11 11 11 11 22 3B 3A 41 24 B2 22 31 20 3D 20 |.....";:A$."1 = |
00001490: 56 4F 49 43 45 20 31 20 4F 4E 4C 59 22 3A 8D 37 |VOICE 1 ONLY":.7|
000014A0: 34 20 00 D6 1C A0 00 99 22 13 11 11 11 11 11 11 |4 ......".......|
000014B0: 11 11 11 11 11 11 11 11 11 22 3B 3A 41 24 B2 22 |.........";:A$."|
000014C0: 32 20 3D 20 56 4F 49 43 45 20 32 20 4F 4E 4C 59 |2 = VOICE 2 ONLY|
000014D0: 22 3A 8D 37 34 20 00 0B 1D A1 00 99 22 13 11 11 |":.74 ......"...|
000014E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3B |..............";|
000014F0: 3A 41 24 B2 22 33 20 3D 20 56 4F 49 43 45 20 33 |:A$."3 = VOICE 3|
00001500: 20 4F 4E 4C 59 22 3A 8D 37 34 20 00 41 1D A2 00 | ONLY":.74 .A...|
00001510: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001520: 11 11 11 11 22 3B 3A 41 24 B2 22 5F 20 3D 20 41 |....";:A$."_ = A|
00001530: 4C 4C 20 33 20 56 4F 49 43 45 53 22 3A 8D 37 34 |LL 3 VOICES":.74|
00001540: 20 00 6A 1D A3 00 99 22 9C 13 11 11 11 11 11 11 | .j...."........|
00001550: 11 22 3B 3A 41 24 B2 22 CC 4F 41 44 49 4E 47 20 |.";:A$.".OADING |
00001560: 22 AA 50 54 24 3A 8D 37 34 20 00 A1 1D A4 00 93 |".PT$:.74 ......|
00001570: 20 50 4C 24 28 4E 29 2C 38 2C 31 3A 8F 20 4C 4F | PL$(N),8,1:. LO|
00001580: 41 44 20 53 4F 4E 47 2C 54 48 45 4E 20 50 52 4F |AD SONG,THEN PRO|
00001590: 47 52 41 4D 20 57 49 4C 4C 20 41 55 54 4F 52 55 |GRAM WILL AUTORU|
000015A0: 4E 00 B2 1D A5 00 99 22 13 11 11 9E 22 3B 3A A0 |N......"....";:.|
000015B0: 31 35 00 D2 1D A6 00 99 22 D0 4C 45 41 53 45 20 |15......".LEASE |
000015C0: C5 4E 54 45 52 20 D9 4F 55 52 20 C3 48 4F 49 43 |.NTER .OUR .HOIC|
000015D0: 45 22 00 FB 1D A7 00 99 22 13 11 11 11 11 11 20 |E"......"...... |
000015E0: 20 31 2E 20 C3 52 45 41 54 45 20 41 20 4E 45 57 | 1. .REATE A NEW|
000015F0: 20 44 49 52 45 43 54 4F 52 59 22 00 27 1E A8 00 | DIRECTORY".'...|
00001600: 99 22 13 11 11 11 11 11 11 11 20 20 32 2E 20 D2 |."........ 2. .|
00001610: 45 41 44 20 45 58 49 53 54 49 4E 47 20 44 49 52 |EAD EXISTING DIR|
00001620: 45 43 54 4F 52 59 22 00 61 1E A9 00 99 22 13 11 |ECTORY".a...."..|
00001630: 11 11 11 11 11 11 11 11 20 20 33 2E 20 D0 4C 41 |........ 3. .LA|
00001640: 59 20 53 4F 4E 47 53 20 4F 4E 20 44 49 53 4B 20 |Y SONGS ON DISK |
00001650: 28 43 52 45 41 54 45 20 4E 4F 20 46 49 4C 45 29 |(CREATE NO FILE)|
00001660: 22 00 95 1E AA 00 99 22 13 11 11 11 11 11 11 11 |"......"........|
00001670: 11 11 11 11 20 20 34 2E 20 D0 4C 41 59 20 41 4C |.... 4. .LAY AL|
00001680: 4C 20 53 4F 4E 47 53 20 49 4E 20 44 49 52 45 43 |L SONGS IN DIREC|
00001690: 54 4F 52 59 22 00 D0 1E AB 00 99 22 13 11 11 11 |TORY"......"....|
000016A0: 11 11 11 11 11 11 11 11 11 11 20 20 35 2E 20 D0 |.......... 5. .|
000016B0: 4C 41 59 20 41 4C 4C 20 53 4F 4E 47 53 20 4F 4E |LAY ALL SONGS ON|
000016C0: 20 44 49 53 4B 20 28 4E 4F 20 46 49 4C 45 29 22 | DISK (NO FILE)"|
000016D0: 00 F2 1E AC 00 99 22 13 11 11 11 11 11 11 11 11 |......".........|
000016E0: 11 11 11 11 11 11 11 20 20 36 2E 20 C5 58 49 54 |....... 6. .XIT|
000016F0: 20 22 00 06 1F AD 00 A1 41 24 3A 8B 41 24 B2 22 | "......A$:.A$."|
00001700: 22 A7 31 37 33 20 00 2B 1F AE 00 8B 41 24 B2 22 |".173 .+....A$."|
00001710: 31 22 A7 46 52 B2 31 3A 53 4B B2 30 3A 46 47 B2 |1".FR.1:SK.0:FG.|
00001720: 30 3A 46 59 B2 30 3A 89 37 38 20 00 3D 1F AF 00 |0:FY.0:.78 .=...|
00001730: 8B 41 24 B2 22 32 22 A7 89 31 38 32 20 00 68 1F |.A$."2"..182 .h.|
00001740: B0 00 8B 41 24 B2 22 33 22 A7 53 4B B2 30 3A 53 |...A$."3".SK.0:S|
00001750: 4B B2 30 3A 46 47 B2 30 3A 46 52 B2 30 3A 46 59 |K.0:FG.0:FR.0:FY|
00001760: B2 30 20 3A 89 37 38 20 00 7F 1F B1 00 8B 41 24 |.0 :.78 ......A$|
00001770: B2 22 34 22 A7 53 4B B2 31 3A 89 31 38 32 20 00 |."4".SK.1:.182 .|
00001780: AA 1F B2 00 8B 41 24 B2 22 35 22 A7 53 44 B2 30 |.....A$."5".SD.0|
00001790: 3A 53 4B B2 30 3A 46 52 B2 30 3A 46 59 B2 30 3A |:SK.0:FR.0:FY.0:|
000017A0: 20 46 47 B2 31 3A 89 37 38 20 00 BD 1F B3 00 8B | FG.1:.78 ......|
000017B0: 41 24 B2 22 36 22 A7 8D 36 33 20 3A 80 00 C7 1F |A$."6"..63 :....|
000017C0: B4 00 89 31 37 33 20 00 EE 1F B5 00 8F 20 2A 2A |...173 ...... **|
000017D0: 2A 2A 2A 2A 2A 2A 2A 20 4C 4F 41 44 20 44 49 52 |******* LOAD DIR|
000017E0: 20 46 49 4C 45 20 2A 2A 2A 2A 2A 2A 2A 2A 00 2E | FILE ********..|
000017F0: 20 B6 00 8D 36 33 20 3A 41 24 B2 22 11 11 11 11 | ...63 :A$."....|
00001800: 11 11 11 D2 45 41 44 49 4E 47 20 44 49 52 45 43 |....EADING DIREC|
00001810: 54 4F 52 59 20 46 49 4C 45 2E 2E 2E 2E 2E 22 3A |TORY FILE.....":|
00001820: 99 22 13 11 11 22 3A 8D 37 34 20 3A A0 38 00 70 |."...":.74 :.8.p|
00001830: 20 B7 00 9F 31 35 2C 38 2C 31 35 2C 22 49 30 3A | ...15,8,15,"I0:|
00001840: 22 3A 9F 38 2C 38 2C 38 2C 22 4D 4D 4D 43 41 54 |":.8,8,8,"MMMCAT|
00001850: 2C 53 2C 52 22 3A 84 31 35 2C 59 2C 42 24 2C 43 |,S,R":.15,Y,B$,C|
00001860: 2C 44 3A A0 31 35 3A 8B 59 B2 36 32 A7 31 38 36 |,D:.15:.Y.62.186|
00001870: 00 99 20 B8 00 8F 20 43 48 45 43 4B 20 46 4F 52 |.. ... CHECK FOR|
00001880: 20 44 49 52 45 43 54 4F 52 59 20 46 49 4C 45 20 | DIRECTORY FILE |
00001890: 4E 4F 54 20 46 4F 55 4E 44 00 BE 20 B9 00 A0 38 |NOT FOUND.. ...8|
000018A0: 3A 9F 38 2C 38 2C 38 2C 22 4D 4D 4D 43 41 54 2C |:.8,8,8,"MMMCAT,|
000018B0: 53 2C 52 22 3A 20 99 22 11 11 11 11 11 22 00 FB |S,R": ."....."..|
000018C0: 20 BA 00 8B 59 B2 36 32 A7 99 22 11 11 11 11 11 | ...Y.62..".....|
000018D0: 22 3A 41 24 B2 22 D9 4F 55 20 4D 55 53 54 20 43 |":A$.".OU MUST C|
000018E0: 52 45 41 54 45 20 41 20 46 49 4C 45 20 46 49 52 |REATE A FILE FIR|
000018F0: 53 54 22 3A 8D 37 34 20 3A A0 38 00 24 21 BB 00 |ST":.74 :.8.$!..|
00001900: 8B 59 B2 36 32 A7 20 81 44 45 B2 31 A4 32 30 30 |.Y.62. .DE.1.200|
00001910: 30 3A 20 82 44 45 3A 8D 36 33 20 3A A0 31 35 3A |0: .DE:.63 :.15:|
00001920: 89 31 36 35 00 3E 21 BC 00 8F 20 4C 4F 41 44 20 |.165.>!... LOAD |
00001930: 4D 55 53 49 43 20 44 49 52 20 46 49 4C 45 00 47 |MUSIC DIR FILE.G|
00001940: 21 BD 00 84 38 2C 41 00 53 21 BE 00 81 57 45 B2 |!...8,A.S!...WE.|
00001950: 31 A4 41 00 62 21 BF 00 84 38 2C 50 4C 24 28 57 |1.A.b!...8,PL$(W|
00001960: 45 29 00 68 21 C0 00 82 00 80 21 C1 00 8B 53 4B |E).h!.....!...SK|
00001970: B2 31 A7 A0 38 3A A0 31 35 20 3A 89 32 30 31 20 |.1..8:.15 :.201 |
00001980: 00 98 21 C2 00 A0 38 3A A0 31 35 3A 41 B2 41 AA |..!...8:.15:A.A.|
00001990: 31 3A 20 20 89 31 32 32 00 BF 21 C3 00 8F 20 2A |1: .122..!... *|
000019A0: 2A 2A 2A 2A 20 57 52 49 54 45 20 44 49 52 45 43 |**** WRITE DIREC|
000019B0: 54 4F 52 59 20 46 49 4C 45 20 2A 2A 2A 2A 2A 00 |TORY FILE *****.|
000019C0: FD 21 C4 00 41 24 B2 22 11 D7 52 49 54 49 4E 47 |.!..A$."..RITING|
000019D0: 20 C4 49 52 45 43 54 4F 52 59 22 3A 8D 37 34 20 | .IRECTORY":.74 |
000019E0: 3A 20 A0 38 3A 9F 31 35 2C 38 2C 31 35 2C 22 53 |: .8:.15,8,15,"S|
000019F0: 30 3A 4D 4D 4D 43 41 54 22 3A A0 31 35 00 15 22 |0:MMMCAT":.15.."|
00001A00: C5 00 9F 38 2C 38 2C 38 2C 22 4D 4D 4D 43 41 54 |...8,8,8,"MMMCAT|
00001A10: 2C 53 2C 57 22 00 20 22 C6 00 98 38 2C 41 AB 31 |,S,W". "...8,A.1|
00001A20: 00 3D 22 C7 00 81 51 57 B2 31 A4 41 AB 31 3A 98 |.="...QW.1.A.1:.|
00001A30: 38 2C 50 4C 24 28 51 57 29 3A 82 51 57 00 4F 22 |8,PL$(QW):.QW.O"|
00001A40: C8 00 A0 38 3A 52 B2 30 3A 8D 36 33 20 3A 8E 00 |...8:R.0:.63 :..|
00001A50: 5C 22 C9 00 8D 36 33 20 3A 46 B2 31 00 65 22 CA |\"...63 :F.1.e".|
00001A60: 00 53 44 B2 31 00 9D 22 CB 00 50 54 24 B2 50 4C |.SD.1.."..PT$.PL|
00001A70: 24 28 53 44 29 3A 46 B2 31 3A 8F 20 50 54 24 3D |$(SD):F.1:. PT$=|
00001A80: 46 49 4C 45 20 4E 41 4D 45 20 54 4F 20 50 52 49 |FILE NAME TO PRI|
00001A90: 4E 54 20 49 4E 20 44 49 53 50 4C 41 59 00 DF 22 |NT IN DISPLAY.."|
00001AA0: CC 00 99 22 9E 13 11 11 11 11 11 11 11 11 11 11 |..."............|
00001AB0: 11 11 22 3B 3A 41 24 B2 22 D3 D0 C1 C3 C5 20 57 |..";:A$."..... W|
00001AC0: 49 4C 4C 20 53 54 4F 50 20 53 4F 4E 47 20 44 55 |ILL STOP SONG DU|
00001AD0: 52 49 4E 47 20 50 4C 41 59 22 3A 8D 37 34 20 00 |RING PLAY":.74 .|
00001AE0: 12 23 CD 00 99 22 13 11 11 11 11 11 11 11 11 11 |.#..."..........|
00001AF0: 11 11 11 11 11 22 3B 3A 41 24 B2 22 31 20 3D 20 |.....";:A$."1 = |
00001B00: 56 4F 49 43 45 20 31 20 4F 4E 4C 59 22 3A 8D 37 |VOICE 1 ONLY":.7|
00001B10: 34 20 00 46 23 CE 00 99 22 13 11 11 11 11 11 11 |4 .F#...".......|
00001B20: 11 11 11 11 11 11 11 11 11 22 3B 3A 41 24 B2 22 |.........";:A$."|
00001B30: 32 20 3D 20 56 4F 49 43 45 20 32 20 4F 4E 4C 59 |2 = VOICE 2 ONLY|
00001B40: 22 3A 8D 37 34 20 00 7B 23 CF 00 99 22 13 11 11 |":.74 .{#..."...|
00001B50: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3B |..............";|
00001B60: 3A 41 24 B2 22 33 20 3D 20 56 4F 49 43 45 20 33 |:A$."3 = VOICE 3|
00001B70: 20 4F 4E 4C 59 22 3A 8D 37 34 20 00 B1 23 D0 00 | ONLY":.74 ..#..|
00001B80: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001B90: 11 11 11 11 22 3B 3A 41 24 B2 22 5F 20 3D 20 41 |....";:A$."_ = A|
00001BA0: 4C 4C 20 33 20 56 4F 49 43 45 53 22 3A 8D 37 34 |LL 3 VOICES":.74|
00001BB0: 20 00 D9 23 D1 00 99 22 13 11 11 11 11 11 11 11 | ..#..."........|
00001BC0: 22 3B 3A 41 24 B2 22 CC 4F 41 44 49 4E 47 20 22 |";:A$.".OADING "|
00001BD0: AA 50 54 24 3A 8D 37 34 20 00 01 24 D2 00 93 50 |.PT$:.74 ..$...P|
00001BE0: 4C 24 28 53 44 29 2C 38 2C 31 3A 8F 20 4C 4F 41 |L$(SD),8,1:. LOA|
00001BF0: 44 20 53 4F 4E 47 2C 20 20 54 48 45 4E 20 52 55 |D SONG, THEN RU|
00001C00: 4E 00 20 24 D3 00 8B 46 47 B2 31 A7 53 44 B2 53 |N. $...FG.1.SD.S|
00001C10: 44 AA 31 3A 8B 53 44 B1 41 AB 31 A7 31 36 35 20 |D.1:.SD.A.1.165 |
00001C20: 00 2F 24 D4 00 8B 46 47 B2 31 A7 32 31 37 20 00 |./$...FG.1.217 .|
00001C30: 41 24 D5 00 8B 46 59 B2 31 A7 53 44 B2 53 44 AA |A$...FY.1.SD.SD.|
00001C40: 31 00 50 24 D6 00 8B 53 44 B1 41 A7 31 36 35 20 |1.P$...SD.A.165 |
00001C50: 00 5A 24 D7 00 89 32 31 37 20 00 93 24 D8 00 53 |.Z$...217 ..$..S|
00001C60: 44 B2 53 44 AA 31 3A 8B 53 44 B1 41 A7 89 31 36 |D.SD.1:.SD.A..16|
00001C70: 35 3A 8F 20 49 4E 43 52 45 4D 45 4E 54 20 43 4F |5:. INCREMENT CO|
00001C80: 55 4E 54 45 52 20 46 4F 52 20 4E 45 58 54 20 53 |UNTER FOR NEXT S|
00001C90: 4F 4E 47 00 9C 24 D9 00 89 32 30 33 00 00 00 |ONG..$...203... |
.......9 .[.............................
........... . THIS PROGRAM WILL SEARC
H A DISK ..~.... . MASTER COM.ER FILES
, . ....... THEM . PLAYING, . BUILD A
..J.... DIREC.RY . DISK . LATER USE
....... WRITTEN 01.25.85
....... DAVE SCHMOLDT 72356,2574
..H................................
.........`....F.0..55,96:.56,109...... L
OWER HIMEM SO AS NOT TO CONFLICT WITH MU
SIC FILES......G(14)......F.1..30120:.15
:. FILE IS LOADED, START THEN GO TO GRAP
HICS......PR$(145),PL$(99),PN$(99)......
".";."....53280,0:.53281,0.M....F.0..S.5
5296.55335:.S, 0:.S.960,0 : ..V.... TOP
AND BOTTOM ROWS POKED TO BLACK......F.0.
. S.1024.1063:.S,160:.S.960,160:..T....
POKE INVERSE SPACES INTO TOP AND BOTTOM
ROWS......F.0. .".";:A$." THE MAGIC MUSI
C MACHINE ":.74 ......F.0.. ".";.%....F.
1.24 .O....".........................";:
A$." BY DAVE SCHMOLDT 72356,2574 ":.74 .
{...."...."......Z.1.3.....Q.0.N....S.55
296.55335:CO..(1..(1).14):.S,CO:.S.(999.
Q),CO:Q.Q.2: ..U....Z...... RAINBOW DISP
LAY IN OPPOSITE DIRECTIONS.1....F.0. .1
65:. GOTO MENU IF SONG NOT LOADED.<...."
..";.I. ..F.0. .78 : . WAIT FOR KEY PRES
S ROUTINE.W.!..".";:F.1..."..I(PT$,2).".
C".PT$.H(PT$,C(PT$).2):. REMOVE '.C' FRO
M NAME...#..".............";:A$."
":.74 .A
.$.."........";:A$."
":.74 .A.%.. BLANK OU
T LINES ON SCREEN.K.&..".";. .'.."......
.......";:A$.".NOW PLAYING--> ".PT$:.74
...(..43 :. GRAPHICS DISPLAY.W.)..31 :
. GARBAGE LINE...*..: . GARBAGE LINE...
+.A$."..................................
......".0.,..".";:CO.149.M.-.D$.".......
.................":. STRING FOR LOWERING
LINE.....U$."..........................
":. STRING FOR RAISING LINE.G./.. DISPLA
Y RAINBOW LINES.S.0..C.1.11...1.CO..(1..
(1).14):.646,CO...2..H(D$,C.1);:.A$;.&.3
..".........................";.9.4..H(U$
,C);:.A$;.N.5..RE$:.RE$." "..31044,4:R.0
:.L.54276.54296:.L,0:....6..RE$." "..116
...7..RE$."1"..31044,1...8..RE$."2"..310
44,2.B.9..RE$."3"..31044,3.X.:..RE$."_".
.31044,0...;.. C:."..";...<.. DISPLAY RA
INBOW LINES.1.=..B(789)..234..48 :. CHEC
K FOR END OF SONG.U.>..116: . CHECK FLAG
S THEN BRANCH...?.A$."
":. CLEAR SCREEN R
OUTINE...@..".";.J.A.D$."...............
........."...B.U$.".....................
....."...C..C.1.12...D..H(D$,C.1);:.A$;.
1.E..".........................";.D.F..H
(U$,C);:.A$;.T.G.. C:."...";.Z.H...J.I..
:. GARBAGE..J...20.C(A$).2)A$;...K..:.
CENTER LINE...L..KE$:.KE$."".76 .D.M..:
. WAIT FOR KEY PRESS...N..63 :.".....";:
A$.".PRESS ANY KEY WHEN READY"...O..646,
4: .74 ...P..76 :. KEY PRESS.E.Q.."...":
A$."READING DIRECTORY":.74 :..M.R.X.1.H.
S..15,8,15,"I": 15:A$.""...T..8,8,0,"$0"
:.C.1.8:.#8,A$:.:C.1:DN$."":.C.1.16.H.U.
.#8,A$:DN$.DN$.A$:.:.#8,A$:.#8,A$:.#8,A$
...V.DN$.DN$.A$:.#8,A$:DN$.DN$.A$:.#8,A$
:.#8,A$:DN$.DN$."/".A$.B.W..#8,A$:DN$.DN
$.A$:.#8,A$:C.1:.".DISK TITLE ---> ."DN$
:..V.X..H.1.4:.#8,A$:..N.Y..#8,A$:.ST..0
.101 .~.Z..A$."".101 ...[..F(A$)..34.89
:. LOOK FOR QUOTES...\..#8,A$:.F(A$)..
34.PN$.PN$.A$:.92 :. BUILD NAME TIL QUO
TES...]..#8,A$:.F(A$).32.93 :. SPACES..
.^..#8,A$:.A$.."".94 .K._.PR$(X).PN$:."
................";"
";...`.. PR$(X) IS THE
STRING FOR PROGRAM NAMES READ FROM DISK.
..A.A$." ". PN$:."..";:.74 : . ADD SP
ACES TO NAME THEN CENTER THEM...B.PN$.""
:X.X.1...C..ST.0.88 ...D. 8.!.E. 8: .63
.^.F.."..";:A$."CHECKING FOR MASTER COM
POSER FILES":.74 :A.1.D.G...Q.H..M.1.X.
1...I.. 8,8,8,PR$(M).",M,R":.ST..0.115 .
..J.. OPEN FILE 'M' ALLOWS ANY TYPE.T.K.
.#8,L1$:.L1$."".115 ...L..F(L1$)..13.115
...M..#8,L2$:.L2$."".115 ...N..F(L2$)..
117.115 .Y.O.. THE ABOVE CHECKS FIRST T
WO BYTED IN FILE FOR LOAD ADDRESS...P.PL
$(A).PR$(M):."..........";"
"...Q.. IF VA
LID LOAD ADDRESS THEN ADD TO PL$() STRIN
G FOR DIRECTORY FILE...R.A$.PL$(A):.".."
;:.74 :A.A.1.$.S. 8:L1$."":L2$."":.M.4.T
..63 :."..";.[.U.. FLAGS FOR DIFFERENT M
ENU OPTIONS.K.V..SK.1..216 .{.W..FY.1..2
13 ...X..FG.1..211 ...Y..FR.1..196 :.165
...Z..63 ...{.V.1.Z.|..A.32.A.32: .LIMI
T MENU TO 31 ITEMS...}..CA.1.A.1. .~.OV$
."......................................
.......".E..DO$."......................
....".Q...RO$.".".P....CA.18..H(OV$,CA.3
);:.132 ...... IF FIRST COLUMN FULL, USE
OV$ TO PRINT SECOND COLUMN.U....H(DO$,C
A.2);:. MOVE TO SECOND COLUMN......I(PL$
(CA),2).".C".135:. REMOVE .C IF IN NAME.
+...."."G(CA.64)RO$." "PL$(CA):.138.P...
. RO$ WILL EITHER PRINT TITLE IN NORMAL
OR INVERSE (IF SELECTED).....LE.C(PL$(CA
)).2......"."G(CA.64)RO$." "H(PL$(CA),LE
).....RO$.".".......Y...."..............
.......";.....A$.".ENTER YOUR CHOICE":.7
4 ......:..9...A$." .RETURN. FOR MENU.
SPACE. WHEN DONE":.74 .C....".";.Y...
.AN$:.AN$."".144 ......AN$.G(13)..63 :.1
65:. RETURN, SO CLEAR SCREEN AND MENU.N.
...AN$." ".V .1..63 :.165:. SPACE, NO CH
OICES, SO MENU......AN$." "..T.1.V:PL$(T
).PN$(T):.:A.V.1:FY.1: .201.D.... DONE C
HOOSING, SO SET CHOICES INTO PL$() ARRAY
FOR LOADING.X....F(AN$).65.144 .H...N.F
(AN$).64.Z...PN$(V).PL$(N)......N.CA.1.1
44 ......N.1.144 ...... ABOVE CHECK FOR
INVALID ENTRIES......N.18..I.55357.5537
3:.I.((N.18).40),1:.:V.V.1:.157......I.5
5338.55354:.I.( N.40),1:.:V.V.1.(....144
.O....".............";:A$."SPACE WILL ST
OP SONG DURING PLAY":.74 :.".";......"..
.............";:A$."1 = VOICE 1 ONLY":.7
4 .V. .."................";:A$."2 = VOIC
E 2 ONLY":.74 ......".................";
:A$."3 = VOICE 3 ONLY":.74 .A...."......
............";:A$."_ = ALL 3 VOICES":.74
.J....".........";:A$."LOADING ".PT$:.7
4 ...... PL$(N),8,1:. LOAD SONG,THEN PRO
GRAM WILL AUTORUN......"....";: 15.R....
"PLEASE ENTER YOUR CHOICE"......"......
1. CREATE A NEW DIRECTORY".'...."......
.. 2. READ EXISTING DIRECTORY".A...."..
........ 3. PLAY SONGS ON DISK (CREATE
NO FILE)"......"............ 4. PLAY AL
L SONGS IN DIRECTORY".P...."............
.. 5. PLAY ALL SONGS ON DISK (NO FILE)"
......"................ 6. EXIT "......
A$:.A$."".173 .+....A$."1".FR.1:SK.0:FG.
0:FY.0:.78 .=....A$."2"..182 .H....A$."3
".SK.0:SK.0:FG.0:FR.0:FY.0 :.78 .....A$
."4".SK.1:.182 ......A$."5".SD.0:SK.0:FR
.0:FY.0: FG.1:.78 ......A$."6"..63 :..G.
...173 ...... ********* LOAD DIR FILE **
******.. ...63 :A$.".......READING DIREC
TORY FILE.....":."...":.74 : 8.P ...15,8
,15,"I0:":.8,8,8,"MMMCAT,S,R":.15,Y,B$,C
,D: 15:.Y.62.186.. ... CHECK FOR DIRECTO
RY FILE NOT FOUND.. .. 8:.8,8,8,"MMMCAT,
S,R": .".....".. ...Y.62..".....":A$."YO
U MUST CREATE A FILE FIRST":.74 : 8.$!..
.Y.62. .DE.1.2000: .DE:.63 : 15:.165.>!.
.. LOAD MUSIC DIR FILE.G!...8,A.S!...WE.
1.A.B!...8,PL$(WE).H!.....!A..SK.1. 8: 1
5 :.201 ..!B. 8: 15:A.A.1: .122..!C.. *
**** WRITE DIRECTORY FILE *****..!D.A$."
.WRITING DIRECTORY":.74 : 8:.15,8,15,"S
0:MMMCAT": 15.."E..8,8,8,"MMMCAT,S,W". "
F..8,A.1.="G..QW.1.A.1:.8,PL$(QW):.QW.O"
H. 8:R.0:.63 :..\"I..63 :F.1.E"J.SD.1.."
K.PT$.PL$(SD):F.1:. PT$=FILE NAME TO PRI
NT IN DISPLAY.."L.."..............";:A$.
"SPACE WILL STOP SONG DURING PLAY":.74 .
.#M.."...............";:A$."1 = VOICE 1
ONLY":.74 .F#N.."................";:A$."
2 = VOICE 2 ONLY":.74 .{#O.."...........
......";:A$."3 = VOICE 3 ONLY":.74 ..#P.
."..................";:A$."_ = ALL 3 VOI
CES":.74 .Y#Q.."........";:A$."LOADING "
.PT$:.74 ..$R..PL$(SD),8,1:. LOAD SONG,
THEN RUN. $S..FG.1.SD.SD.1:.SD.A.1.165
./$T..FG.1.217 .A$U..FY.1.SD.SD.1.P$V..S
D.A.165 .Z$W..217 ..$X.SD.SD.1:.SD.A..16
5:. INCREMENT COUNTER FOR NEXT SONG..$Y.
.203...
> CLICK IMAGE PREVIEW FOR FULL MODAL