JUKEBOX
FILE INFORMATION
FILENAME(S): JUKEBOX
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-30 01:08:01
APPEARS ON: 1 disk(s)
FILE HASH
ec9ffb8e274e9c9cab6c3aa1d907d1d99f0f47cba45973950297dc7689feaf4f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MUSIC EDITION | JUKEBOX | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 0A 00 8B 4C B1 30 A7 32 33 30 00 19 |.......L.0.230..|
00000010: 08 14 00 97 35 36 2C 39 36 00 25 08 15 00 99 C7 |....56,96.%.....|
00000020: 28 31 34 32 29 00 32 08 16 00 97 35 33 32 38 30 |(142).2....53280|
00000030: 2C 30 00 3F 08 17 00 97 35 33 32 38 31 2C 30 00 |,0.?....53281,0.|
00000040: 4A 08 18 00 97 36 34 36 2C 37 00 7A 08 19 00 99 |J....646,7.z....|
00000050: 22 93 1C 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 50 |"..............P|
00000060: 4C 45 41 53 45 20 52 45 4D 4F 56 45 20 50 52 4F |LEASE REMOVE PRO|
00000070: 47 52 41 4D 20 44 49 53 4B 22 00 A6 08 1A 00 99 |GRAM DISK"......|
00000080: 22 11 11 9F 1D 1D 1D 1D 1D 1D 1D 41 4E 44 20 49 |"..........AND I|
00000090: 4E 53 45 52 54 20 20 53 4F 4E 47 20 44 41 54 41 |NSERT SONG DATA|
000000A0: 20 44 49 53 4B 22 00 D2 08 1B 00 99 22 11 11 9C | DISK"......"...|
000000B0: 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 52 |.........PRESS R|
000000C0: 45 54 55 52 4E 20 57 48 45 4E 20 52 45 41 44 59 |ETURN WHEN READY|
000000D0: 92 22 00 DA 08 1E 00 A1 41 24 00 E8 08 1F 00 8B |."......A$......|
000000E0: 41 24 B2 22 22 A7 33 30 00 1E 09 28 00 99 22 93 |A$."".30...(..".|
000000F0: 11 11 11 11 11 11 11 9F 20 20 20 20 46 49 58 45 |........ FIXE|
00000100: 44 20 42 59 20 44 41 56 49 44 20 42 52 41 44 4C |D BY DAVID BRADL|
00000110: 45 59 20 28 31 30 2F 30 33 2F 38 34 29 22 00 4B |EY (10/03/84)".K|
00000120: 09 32 00 99 22 11 96 20 20 20 20 20 20 43 41 4C |.2..".. CAL|
00000130: 4C 20 54 48 45 20 42 52 41 44 4C 45 59 20 42 52 |L THE BRADLEY BR|
00000140: 4F 54 48 45 52 53 20 42 42 53 22 00 7C 09 3C 00 |OTHERS BBS".|.<.|
00000150: 99 22 11 20 05 34 38 37 2D 35 38 33 33 20 34 38 |.". .487-5833 48|
00000160: 31 2D 39 30 34 37 20 34 38 31 2D 38 36 36 31 20 |1-9047 481-8661 |
00000170: 4F 52 20 32 37 32 2D 30 37 30 39 22 00 AA 09 46 |OR 272-0709"...F|
00000180: 00 99 22 11 81 20 20 20 20 20 41 4C 4C 20 46 4F |..".. ALL FO|
00000190: 55 52 20 41 52 45 20 49 4E 20 41 52 45 41 20 43 |UR ARE IN AREA C|
000001A0: 4F 44 45 20 28 34 31 36 29 22 00 DB 09 50 00 99 |ODE (416)"...P..|
000001B0: 22 11 1F 20 20 20 41 4E 44 20 41 4C 4C 20 46 4F |".. AND ALL FO|
000001C0: 55 52 20 4F 50 45 52 41 54 45 20 32 34 20 48 4F |UR OPERATE 24 HO|
000001D0: 55 52 53 20 41 20 44 41 59 21 22 00 1A 0A 5A 00 |URS A DAY!"...Z.|
000001E0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000001F0: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
00000200: 9E 50 52 45 53 53 20 52 45 54 55 52 4E 20 57 48 |.PRESS RETURN WH|
00000210: 45 4E 20 52 45 41 44 59 92 22 00 22 0A 64 00 A1 |EN READY.".".d..|
00000220: 41 24 00 31 0A 65 00 8B 41 24 B2 22 22 A7 31 30 |A$.1.e..A$."".10|
00000230: 30 00 60 0A 6E 00 99 22 1C 11 11 11 20 20 20 20 |0.`.n..".... |
00000240: 20 20 49 20 41 4D 20 4D 45 4D 4F 52 49 5A 49 4E | I AM MEMORIZIN|
00000250: 47 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 22 |G THE DIRECTORY"|
00000260: 00 80 0A 6F 00 99 22 9F 11 11 22 3B A6 31 34 29 |...o.."...";.14)|
00000270: 22 50 4C 45 41 53 45 20 57 41 49 54 21 21 21 22 |"PLEASE WAIT!!!"|
00000280: 00 86 0A 70 00 9C 00 93 0A 71 00 97 35 33 32 38 |...p.....q..5328|
00000290: 30 2C 30 00 A0 0A 72 00 97 35 33 32 38 31 2C 30 |0,0...r..53281,0|
000002A0: 00 AB 0A 73 00 97 36 34 36 2C 37 00 C8 0A 74 00 |...s..646,7...t.|
000002B0: 86 53 53 24 28 32 30 30 29 2C 53 24 28 35 32 29 |.SS$(200),S$(52)|
000002C0: 2C 44 24 28 31 35 30 29 00 D1 0A 75 00 8D 35 34 |,D$(150)...u..54|
000002D0: 30 00 DA 0A 78 00 99 22 93 22 00 E5 0A 79 00 97 |0...x.."."...y..|
000002E0: 36 34 36 2C 37 00 EE 0A 7A 00 8D 32 37 30 00 FA |646,7...z..270..|
000002F0: 0A 7B 00 81 58 B2 31 A4 31 30 00 00 0B 7C 00 99 |.{..X.1.10...|..|
00000300: 00 07 0B 7D 00 82 58 00 1E 0B 7E 00 99 A6 31 34 |...}..X...~...14|
00000310: 29 22 53 45 4C 45 43 54 49 4F 4E 22 3B 4C 00 24 |)"SELECTION";L.$|
00000320: 0B 7F 00 99 00 2A 0B 80 00 99 00 48 0B 81 00 99 |.....*.....H....|
00000330: A3 28 34 30 AB C3 28 53 53 24 28 4C 29 29 29 AD |.(40..(SS$(L))).|
00000340: 32 29 53 53 24 28 4C 29 00 8E 0B 82 00 99 22 13 |2)SS$(L)......".|
00000350: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000360: 11 11 11 11 11 11 11 1D 1D 1D 1D 9E 46 49 58 45 |............FIXE|
00000370: 44 20 42 59 20 44 41 56 49 44 20 42 52 41 44 4C |D BY DAVID BRADL|
00000380: 45 59 20 28 31 30 2F 30 36 2F 38 34 29 22 00 D6 |EY (10/06/84)"..|
00000390: 0B 8C 00 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
000003A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D |................|
000003B0: 1D 1D 05 4A 4F 49 4E 20 54 48 45 20 54 4F 52 4F |...JOIN THE TORO|
000003C0: 4E 54 4F 20 50 45 54 20 55 53 45 52 53 20 47 52 |NTO PET USERS GR|
000003D0: 4F 55 50 21 13 22 00 FF 0B 96 00 99 22 13 1F 1D |OUP!."......"...|
000003E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 D7 CE 20 |............ .. |
000003F0: 54 48 45 20 42 45 53 54 20 CD D7 20 DF 13 22 00 |THE BEST .. ..".|
00000400: 07 0C A0 00 A0 31 35 00 14 0C A1 00 9F 31 35 2C |.....15......15,|
00000410: 38 2C 31 35 00 32 0C A2 00 9F 38 2C 38 2C 33 2C |8,15.2....8,8,3,|
00000420: 22 30 3A 22 AA 53 53 24 28 4C 29 AA 22 2C 50 2C |"0:".SS$(L).",P,|
00000430: 52 22 00 42 0C AA 00 A1 23 38 2C 41 41 24 2C 42 |R".B....#8,AA$,B|
00000440: 42 24 00 49 0C AB 00 A0 38 00 5C 0C AC 00 84 31 |B$.I....8.\....1|
00000450: 35 2C 45 2C 45 24 2C 45 31 2C 45 32 00 64 0C AD |5,E,E$,E1,E2.d..|
00000460: 00 A0 31 35 00 72 0C AE 00 8B 45 B3 B1 30 A7 37 |..15.r....E..0.7|
00000470: 36 30 00 9A 0C B4 00 8B C6 28 42 42 24 29 B2 31 |60.......(BB$).1|
00000480: 31 37 AF C6 28 41 41 24 29 B2 31 33 A7 58 4B B2 |17..(AA$).13.XK.|
00000490: 33 30 31 32 30 3A 89 32 32 30 00 A3 0C B9 00 89 |30120:.220......|
000004A0: 37 36 30 00 CB 0C BE 00 8B C6 28 42 42 24 29 B2 |760.......(BB$).|
000004B0: 37 38 AF C6 28 41 41 24 29 B2 31 35 33 A7 58 4B |78..(AA$).153.XK|
000004C0: B2 32 30 32 37 36 3A 89 32 32 30 00 F3 0C C8 00 |.20276:.220.....|
000004D0: 8B C6 28 42 42 24 29 B2 35 33 AF C6 28 41 41 24 |..(BB$).53..(AA$|
000004E0: 29 B2 32 32 39 A7 58 4B B2 31 33 39 35 32 3A 89 |).229.XK.13952:.|
000004F0: 32 32 30 00 FC 0C D2 00 89 37 36 30 00 08 0D DC |220......760....|
00000500: 00 58 4C B2 B8 28 30 29 00 10 0D DD 00 4B B2 31 |.XL..(0).....K.1|
00000510: 00 20 0D DE 00 93 53 53 24 28 4C 29 2C 38 2C 31 |. ....SS$(L),8,1|
00000520: 00 28 0D E6 00 9E 58 4B 00 31 0D E7 00 89 33 30 |.(....XK.1....30|
00000530: 30 00 3C 0D F0 00 97 36 34 36 2C 37 00 49 0D F1 |0.<....646,7.I..|
00000540: 00 8B 4B B1 31 A7 32 32 30 00 53 0D FA 00 58 B2 |..K.1.220.S...X.|
00000550: 58 AA 31 00 62 0D FB 00 8B 58 B2 31 31 A7 58 B2 |X.1.b....X.11.X.|
00000560: 31 33 00 70 0D FC 00 8B 58 B2 31 35 A7 58 B2 32 |13.p....X.15.X.2|
00000570: 00 7D 0D 03 01 97 35 33 32 38 30 2C 58 00 83 0D |.}....53280,X...|
00000580: 04 01 8E 00 AA 0D 0E 01 99 22 20 20 20 20 20 20 |........." |
00000590: 20 20 20 20 12 A9 20 D7 CE 20 D7 CE D7 D7 D7 D7 | .. .. ......|
000005A0: D7 D7 CD D7 20 CD D7 20 DF 22 00 D4 0D 0F 01 99 |.... .. ."......|
000005B0: 22 20 20 20 20 20 20 20 20 20 1C 12 A9 20 D7 CE |" ... ..|
000005C0: 20 D7 CE 20 20 43 42 4D 20 20 20 CD D7 20 CD D7 | .. CBM .. ..|
000005D0: 20 DF 9E 22 00 01 0E 10 01 99 22 20 20 20 20 20 | .."......" |
000005E0: 20 20 20 1E 12 A9 20 D7 20 B5 D7 20 B5 20 35 30 | ... . .. . 50|
000005F0: 20 53 4F 4E 47 20 B5 D7 20 B5 D7 20 DF 9E 22 22 | SONG .. .. ..""|
00000600: 22 00 31 0E 11 01 99 22 20 20 20 20 20 20 20 9E |".1...." .|
00000610: A7 9C 12 20 35 30 20 B5 D7 20 9F B5 4A 55 4B 45 |... 50 .. ..JUKE|
00000620: 2A 42 4F 58 20 9C B5 D7 20 B5 35 30 20 9E 92 A5 |*BOX ... .50 ...|
00000630: 22 00 5A 0E 12 01 99 22 20 20 20 20 20 20 20 A7 |".Z...." .|
00000640: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |................|
00000650: A6 A6 A6 A6 A6 A6 A6 A6 A5 22 00 83 0E 18 01 99 |........."......|
00000660: 22 20 20 20 20 20 20 20 A7 A6 A6 A5 D7 D7 D7 D7 |" ........|
00000670: D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 A7 A6 |................|
00000680: A6 A5 22 00 8F 0E 19 01 81 58 B2 31 A4 31 32 00 |.."......X.1.12.|
00000690: B8 0E 1A 01 99 22 20 20 20 20 20 20 20 A7 A6 A6 |....." ...|
000006A0: A5 D7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000006B0: 20 20 D7 A7 A6 A6 A5 22 00 BF 0E 1B 01 82 58 00 | ....."......X.|
000006C0: E8 0E 1C 01 99 22 20 20 20 20 20 20 20 A7 A6 A6 |....." ...|
000006D0: A5 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 |................|
000006E0: D7 D7 D7 A7 A6 A6 A5 22 00 11 0F 1D 01 99 22 20 |......."......" |
000006F0: 20 20 20 20 20 20 A7 A6 A6 A6 A6 A6 A6 A6 A6 A6 | ..........|
00000700: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A5 |................|
00000710: 22 00 37 0F 1E 01 99 A6 37 29 22 1C 43 42 4D 20 |".7.....7)".CBM |
00000720: 4A 55 4B 45 42 4F 58 20 42 59 20 52 4F 42 45 52 |JUKEBOX BY ROBER|
00000730: 54 20 53 48 41 57 22 00 59 0F 22 01 99 A6 39 29 |T SHAW".Y."...9)|
00000740: 22 9F 4D 4F 44 49 46 49 45 44 20 42 59 20 43 41 |".MODIFIED BY CA|
00000750: 50 54 2E 20 48 4F 4F 4B 22 00 7B 0F 23 01 99 A6 |PT. HOOK".{.#...|
00000760: 39 29 22 9C 43 41 4C 4C 20 44 41 56 59 20 4A 4F |9)".CALL DAVY JO|
00000770: 4E 45 53 20 4C 4F 43 4B 45 52 22 00 95 0F 24 01 |NES LOCKER"...$.|
00000780: 99 A6 31 34 29 22 1E 36 31 37 2D 38 36 35 2D 31 |..14)".617-865-1|
00000790: 32 36 34 13 22 00 9B 0F 25 01 8E 00 A4 0F 2C 01 |264."...%.....,.|
000007A0: 99 22 13 22 00 AF 0F 2D 01 81 5A B2 31 A4 35 00 |."."...-..Z.1.5.|
000007B0: B5 0F 2E 01 99 00 BC 0F 2F 01 82 5A 00 C6 0F 30 |......../..Z...0|
000007C0: 01 99 A6 31 31 29 00 D2 0F 36 01 81 4A B2 31 A4 |...11)...6..J.1.|
000007D0: 31 37 00 DC 0F 37 01 99 22 D1 22 3B 00 E6 0F 38 |17...7..".";...8|
000007E0: 01 59 B2 59 AA 31 00 F4 0F 39 01 8B 59 B1 31 35 |.Y.Y.1...9..Y.15|
000007F0: A7 59 B2 31 00 03 10 3A 01 8B 59 B2 31 31 A7 59 |.Y.1...:..Y.11.Y|
00000800: B2 31 33 00 11 10 3B 01 8B 59 B2 31 35 A7 59 B2 |.13...;..Y.15.Y.|
00000810: 32 00 1C 10 40 01 97 36 34 36 2C 59 00 22 10 41 |2...@..646,Y.".A|
00000820: 01 82 00 2E 10 42 01 81 4A B2 31 A4 31 33 00 3A |.....B..J.1.13.:|
00000830: 10 43 01 99 22 D1 11 9D 22 3B 00 44 10 44 01 59 |.C.."...";.D.D.Y|
00000840: B2 59 AA 31 00 52 10 45 01 8B 59 B1 31 35 A7 59 |.Y.1.R.E..Y.15.Y|
00000850: B2 31 00 61 10 46 01 8B 59 B2 31 31 A7 59 B2 31 |.1.a.F..Y.11.Y.1|
00000860: 33 00 6F 10 47 01 8B 59 B2 31 35 A7 59 B2 32 00 |3.o.G..Y.15.Y.2.|
00000870: 7A 10 4A 01 97 36 34 36 2C 59 00 80 10 4B 01 82 |z.J..646,Y...K..|
00000880: 00 8C 10 4C 01 81 4A B2 31 A4 31 37 00 98 10 4D |...L..J.1.17...M|
00000890: 01 99 22 D1 9D 9D 22 3B 00 A2 10 4E 01 59 B2 59 |.."...";...N.Y.Y|
000008A0: AA 31 00 B0 10 4F 01 8B 59 B1 31 35 A7 59 B2 31 |.1...O..Y.15.Y.1|
000008B0: 00 BF 10 50 01 8B 59 B2 31 31 A7 59 B2 31 33 00 |...P..Y.11.Y.13.|
000008C0: CD 10 51 01 8B 59 B2 31 35 A7 59 B2 32 00 D8 10 |..Q..Y.15.Y.2...|
000008D0: 54 01 97 36 34 36 2C 59 00 DE 10 55 01 82 00 EA |T..646,Y...U....|
000008E0: 10 56 01 81 4A B2 31 A4 31 33 00 F6 10 57 01 99 |.V..J.1.13...W..|
000008F0: 22 D1 91 9D 22 3B 00 00 11 58 01 59 B2 59 AA 31 |"...";...X.Y.Y.1|
00000900: 00 0E 11 59 01 8B 59 B1 31 35 A7 59 B2 31 00 1D |...Y..Y.15.Y.1..|
00000910: 11 5A 01 8B 59 B2 31 31 A7 59 B2 31 33 00 2B 11 |.Z..Y.11.Y.13.+.|
00000920: 5B 01 8B 59 B2 31 35 A7 59 B2 32 00 36 11 5E 01 |[..Y.15.Y.2.6.^.|
00000930: 97 36 34 36 2C 59 00 3C 11 5F 01 82 00 45 11 66 |.646,Y.<._...E.f|
00000940: 01 8D 32 35 30 00 5A 11 67 01 8B C2 28 37 38 39 |..250.Z.g...(789|
00000950: 29 B3 B1 32 33 34 A7 33 31 30 00 6A 11 68 01 97 |)..234.310.j.h..|
00000960: 35 34 32 37 32 AA 32 34 2C 30 00 73 11 69 01 89 |54272.24,0.s.i..|
00000970: 37 36 30 00 7C 11 72 01 99 22 13 22 00 88 11 73 |760.|.r.."."...s|
00000980: 01 81 58 B2 31 A4 31 34 00 8E 11 74 01 99 00 94 |..X.1.14...t....|
00000990: 11 75 01 82 00 AB 11 76 01 99 A6 31 34 29 22 05 |.u.....v...14)".|
000009A0: 20 2A 20 3D 52 45 50 45 41 54 22 00 B3 11 7C 01 | * =REPEAT"...|.|
000009B0: A1 41 24 00 C2 11 7D 01 8B 41 24 B2 22 22 A7 33 |.A$...}..A$."".3|
000009C0: 38 30 00 DD 11 86 01 8B 41 24 B2 22 2A 22 A7 99 |80......A$."*"..|
000009D0: 22 93 22 3A 8D 32 37 30 3A 89 32 33 30 00 E8 11 |".":.270:.230...|
000009E0: 90 01 97 36 34 36 2C 37 00 F1 11 91 01 89 35 35 |...646,7......55|
000009F0: 30 00 F8 11 9A 01 A0 39 00 04 12 9B 01 4E 24 B2 |0......9.....N$.|
00000A00: C7 28 30 29 00 14 12 9C 01 9F 39 2C 38 2C 30 2C |.(0)......9,8,0,|
00000A10: 22 24 30 22 00 22 12 9D 01 A1 23 39 2C 41 24 2C |"$0"."....#9,A$,|
00000A20: 41 24 00 30 12 A4 01 A1 23 39 2C 41 24 2C 41 24 |A$.0....#9,A$,A$|
00000A30: 00 43 12 A5 01 8B 41 24 B2 22 22 A7 A0 39 3A 89 |.C....A$.""..9:.|
00000A40: 35 32 30 00 51 12 AE 01 A1 23 39 2C 41 24 2C 42 |520.Q....#9,A$,B|
00000A50: 24 00 5C 12 B8 01 A1 23 39 2C 41 24 00 79 12 B9 |$.\....#9,A$.y..|
00000A60: 01 00 01 01 C2 01 8B 41 24 B2 C7 28 33 34 29 A7 |.......A$..(34).|
00000A70: 59 5A B2 30 3A 89 34 34 30 00 A9 12 C2 01 8F 49 |YZ.0:.440......I|
00000A80: 46 41 24 3D 43 48 52 24 28 34 35 29 54 48 45 4E |FA$=CHR$(45)THEN|
00000A90: 50 52 49 4E 54 50 52 49 4E 54 50 52 49 4E 54 50 |PRINTPRINTPRINTP|
00000AA0: 52 49 4E 54 50 52 49 4E 54 00 C4 12 CC 01 8B 41 |RINTPRINT......A|
00000AB0: 24 B2 C7 28 33 32 29 A7 59 5A B2 59 5A AA 31 3A |$..(32).YZ.YZ.1:|
00000AC0: 89 34 34 30 00 DD 12 D6 01 8B 59 5A B2 31 A7 41 |.440......YZ.1.A|
00000AD0: 24 B2 22 20 22 AA 41 24 3A 59 5A B2 30 00 F0 12 |$." ".A$:YZ.0...|
00000AE0: E0 01 44 24 28 58 29 B2 44 24 28 58 29 AA 41 24 |..D$(X).D$(X).A$|
00000AF0: 00 00 13 E1 01 8B 41 24 B3 B1 22 22 A7 34 34 30 |......A$.."".440|
00000B00: 00 19 13 EA 01 8F 49 46 58 3C 3E 30 54 48 45 4E |......IFX<>0THEN|
00000B10: 47 4F 53 55 42 31 30 30 30 00 2B 13 F4 01 8F 50 |GOSUB1000.+....P|
00000B20: 52 49 4E 54 44 24 28 58 29 2C 58 00 35 13 FE 01 |RINTD$(X),X.5...|
00000B30: 58 B2 58 AA 31 00 45 13 FF 01 8B 58 B3 31 35 30 |X.X.1.E....X.150|
00000B40: A7 89 34 32 30 00 4E 13 08 02 8D 38 32 30 00 58 |..420.N....820.X|
00000B50: 13 12 02 57 B2 58 AB 32 00 63 13 13 02 81 4A B2 |...W.X.2.c....J.|
00000B60: 31 A4 57 00 74 13 14 02 4C B2 C3 28 44 24 28 4A |1.W.t...L..(D$(J|
00000B70: 29 29 AB 33 00 89 13 15 02 53 24 28 4A 29 B2 C8 |)).3.....S$(J)..|
00000B80: 28 44 24 28 4A 29 2C 4C 29 00 96 13 16 02 44 24 |(D$(J),L).....D$|
00000B90: 28 4A 29 B2 22 22 00 9C 13 17 02 82 00 A3 13 18 |(J).""..........|
00000BA0: 02 A0 39 00 A9 13 19 02 8E 00 B2 13 1C 02 8D 34 |..9............4|
00000BB0: 31 30 00 BB 13 26 02 99 22 93 22 00 D8 13 27 02 |10...&.."."...'.|
00000BC0: 99 A6 31 32 29 22 1E 54 48 45 20 43 42 4D 20 4A |..12)".THE CBM J|
00000BD0: 55 4B 45 2A 42 4F 58 22 00 DE 13 28 02 99 00 FD |UKE*BOX"...(....|
00000BE0: 13 29 02 99 A6 31 32 29 22 1F 12 53 45 4C 45 43 |.)...12)"..SELEC|
00000BF0: 54 20 42 59 20 4C 45 54 54 45 52 92 22 00 03 14 |T BY LETTER."...|
00000C00: 2A 02 99 00 34 14 2B 02 99 22 9E 48 49 54 20 53 |*...4.+..".HIT S|
00000C10: 50 41 43 45 42 41 52 20 41 46 54 45 52 20 43 4F |PACEBAR AFTER CO|
00000C20: 4D 50 4C 45 54 49 4E 47 20 53 45 4C 45 43 54 49 |MPLETING SELECTI|
00000C30: 4F 4E 53 22 00 66 14 2C 02 99 22 1C 20 41 4E 59 |ONS".f.,..". ANY|
00000C40: 20 53 4F 4E 47 20 4D 41 59 20 42 45 20 50 4C 41 | SONG MAY BE PLA|
00000C50: 59 45 44 20 4D 4F 52 45 20 54 48 41 4E 20 4F 4E |YED MORE THAN ON|
00000C60: 43 45 21 05 13 22 00 6C 14 2D 02 99 00 72 14 2E |CE!..".l.-...r..|
00000C70: 02 99 00 95 14 2F 02 99 3A 99 3A 99 3A 99 3A 99 |...../..:.:.:.:.|
00000C80: 3A 8B 4D B2 30 A7 81 47 B2 36 35 A4 38 39 3A 55 |:.M.0..G.65.89:U|
00000C90: B2 47 AB 36 34 00 AE 14 30 02 8B 4D B2 31 A7 81 |.G.64...0..M.1..|
00000CA0: 47 B2 36 35 A4 38 39 3A 55 B2 47 AB 33 39 00 BC |G.65.89:U.G.39..|
00000CB0: 14 3A 02 8B 47 B3 37 38 A7 36 30 30 00 DE 14 44 |.:..G.78.600...D|
00000CC0: 02 8B 47 B1 37 37 AF 47 B3 37 39 A7 99 22 13 22 |..G.77.G.79.."."|
00000CD0: 3A 99 3A 99 3A 99 3A 99 3A 99 3A 99 3A 99 00 EF |:.:.:.:.:.:.:...|
00000CE0: 14 4E 02 8B 47 B1 37 37 A7 99 A6 32 30 29 3B 00 |.N..G.77...20);.|
00000CF0: 03 15 58 02 99 C7 28 47 29 3B 22 20 22 3B 53 24 |..X...(G);" ";S$|
00000D00: 28 55 29 00 09 15 59 02 82 00 20 15 5A 02 99 A6 |(U)...Y... .Z...|
00000D10: 32 30 29 22 5A 20 41 4C 4C 20 53 4F 4E 47 53 22 |20)"Z ALL SONGS"|
00000D20: 00 26 15 5B 02 99 00 4A 15 5C 02 99 22 20 20 20 |.&.[...J.\.." |
00000D30: 20 20 48 49 54 20 27 5C 27 20 46 4F 52 20 4D 4F | HIT '\' FOR MO|
00000D40: 52 45 20 54 49 54 4C 45 53 22 00 52 15 5D 02 56 |RE TITLES".R.].V|
00000D50: B2 31 00 5A 15 5E 02 4C B2 30 00 9D 15 62 02 99 |.1.Z.^.L.0...b..|
00000D60: 22 13 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000D70: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000D80: 1D 1D 9F 48 49 54 20 46 37 20 54 4F 11 9D 9D 9D |...HIT F7 TO....|
00000D90: 9D 9D 9D 9D 9D 9D 45 58 49 54 21 05 22 00 CB 15 |......EXIT!."...|
00000DA0: 6C 02 99 22 13 11 11 11 9F 48 49 54 20 46 31 20 |l..".....HIT F1 |
00000DB0: 54 4F 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 43 48 41 4E |TO..........CHAN|
00000DC0: 47 45 20 44 49 53 4B 53 21 05 22 00 E5 15 76 02 |GE DISKS!."...v.|
00000DD0: 99 22 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00000DE0: 11 11 11 11 22 00 ED 15 80 02 A1 41 24 00 FC 15 |...."......A$...|
00000DF0: 81 02 8B 41 24 B2 22 22 A7 36 34 30 00 0A 16 8A |...A$."".640....|
00000E00: 02 8B 41 24 B2 22 85 22 A7 8A 00 1C 16 94 02 8B |..A$."."........|
00000E10: 41 24 B2 22 88 22 A7 89 31 30 36 30 00 33 16 9E |A$."."..1060.3..|
00000E20: 02 8B 41 24 B2 22 5C 22 A7 4D B2 31 AB 4D 3A 89 |..A$."\".M.1.M:.|
00000E30: 35 35 30 00 45 16 A8 02 8B 41 24 B2 C7 28 33 32 |550.E....A$..(32|
00000E40: 29 A7 37 36 30 00 60 16 B2 02 8B C6 28 41 24 29 |).760.`.....(A$)|
00000E50: B1 39 30 B0 C6 28 41 24 29 B3 36 35 A7 36 34 30 |.90..(A$).65.640|
00000E60: 00 70 16 BC 02 8B 41 24 B2 22 5A 22 A7 37 39 30 |.p....A$."Z".790|
00000E70: 00 AC 16 C6 02 8B 4D B2 30 A7 4F B2 C6 28 41 24 |......M.0.O..(A$|
00000E80: 29 AB 36 34 3A 99 22 91 20 20 20 20 20 20 20 20 |).64:.". |
00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EA0: 20 20 20 20 20 20 20 20 20 20 91 22 00 E8 16 D0 | ."....|
00000EB0: 02 8B 4D B2 31 A7 4F B2 C6 28 41 24 29 AB 33 39 |..M.1.O..(A$).39|
00000EC0: 3A 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 |:.". |
00000ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EE0: 20 20 20 20 20 20 91 22 00 FA 16 DA 02 8B 41 24 | ."......A$|
00000EF0: B2 C7 28 33 32 29 A7 37 36 30 00 0B 17 E4 02 53 |..(32).760.....S|
00000F00: 53 24 28 56 29 B2 53 24 28 4F 29 00 17 17 E5 02 |S$(V).S$(O).....|
00000F10: 99 53 53 24 28 56 29 00 20 17 E6 02 99 22 91 22 |.SS$(V). ...."."|
00000F20: 00 33 17 E7 02 8B 53 53 24 28 56 29 B2 22 22 A7 |.3....SS$(V)."".|
00000F30: 36 34 30 00 3D 17 EE 02 56 B2 56 AA 31 00 46 17 |640.=...V.V.1.F.|
00000F40: EF 02 89 36 34 30 00 50 17 F8 02 4C B2 4C AA 31 |...640.P...L.L.1|
00000F50: 00 61 17 F9 02 8B 4C B1 28 56 AB 31 29 A7 33 37 |.a....L.(V.1).37|
00000F60: 30 00 7A 17 02 03 8B 53 53 24 28 4C 29 B2 53 53 |0.z....SS$(L).SS|
00000F70: 24 28 4C AB 31 29 A7 32 33 30 00 83 17 0C 03 89 |$(L.1).230......|
00000F80: 31 32 30 00 8F 17 16 03 81 56 B2 31 A4 35 30 00 |120......V.1.50.|
00000F90: A1 17 17 03 8B 53 24 28 56 29 B2 22 22 A7 38 31 |.....S$(V)."".81|
00000FA0: 30 00 B2 17 20 03 53 53 24 28 56 29 B2 53 24 28 |0... .SS$(V).S$(|
00000FB0: 56 29 00 B9 17 21 03 82 56 00 C3 17 2A 03 4C B2 |V)...!..V...*.L.|
00000FC0: 4C AA 31 00 CC 17 2B 03 89 31 32 30 00 DA 17 34 |L.1...+..120...4|
00000FD0: 03 86 20 44 44 24 28 34 30 29 00 E7 17 3E 03 81 |.. DD$(40)...>..|
00000FE0: 49 B2 31 A4 58 AB 32 00 03 18 48 03 45 45 24 B2 |I.1.X.2...H.EE$.|
00000FF0: C8 28 44 24 28 49 29 2C C3 28 44 24 28 49 29 29 |.(D$(I),.(D$(I))|
00001000: AB 32 29 00 1A 18 49 03 8B C9 28 45 45 24 2C 31 |.2)...I...(EE$,1|
00001010: 29 B3 B1 22 50 22 A7 39 39 30 00 36 18 52 03 44 |).."P".990.6.R.D|
00001020: 44 24 B2 C8 28 44 24 28 49 29 2C C3 28 44 24 28 |D$..(D$(I),.(D$(|
00001030: 49 29 29 AB 33 29 00 4C 18 57 03 8B C8 28 44 44 |I)).3).L.W...(DD|
00001040: 24 2C 31 29 B2 22 2D 22 A7 39 39 30 00 67 18 5C |$,1)."-".990.g.\|
00001050: 03 9F 38 2C 38 2C 33 2C 22 30 3A 22 AA 44 44 24 |..8,8,3,"0:".DD$|
00001060: AA 22 2C 50 2C 52 22 00 77 18 66 03 A1 23 38 2C |.",P,R".w.f..#8,|
00001070: 41 41 24 2C 42 42 24 00 7E 18 67 03 A0 38 00 8B |AA$,BB$.~.g..8..|
00001080: 18 70 03 9F 31 35 2C 38 2C 31 35 00 96 18 71 03 |.p..15,8,15...q.|
00001090: A1 23 31 35 2C 45 00 9E 18 72 03 A0 31 35 00 AC |.#15,E...r..15..|
000010A0: 18 73 03 8B 45 B3 B1 30 A7 39 39 30 00 C3 18 7A |.s..E..0.990...z|
000010B0: 03 8B 41 41 24 B2 22 22 B0 42 42 24 B2 22 22 A7 |..AA$."".BB$."".|
000010C0: 39 39 30 00 E4 18 84 03 8F 50 52 49 4E 54 41 53 |990......PRINTAS|
000010D0: 43 28 42 42 24 29 3A 50 52 49 4E 54 41 53 43 28 |C(BB$):PRINTASC(|
000010E0: 41 41 24 29 00 02 19 8E 03 8B C6 28 42 42 24 29 |AA$).......(BB$)|
000010F0: B2 31 31 37 AF C6 28 41 41 24 29 B2 31 33 A7 39 |.117..(AA$).13.9|
00001100: 38 30 00 10 19 98 03 58 4B B2 30 3A 89 39 36 30 |80.....XK.0:.960|
00001110: 00 4A 19 99 03 8F 49 46 41 53 43 28 41 41 24 29 |.J....IFASC(AA$)|
00001120: 3C 3E 31 35 33 4F 52 41 53 43 28 41 41 24 29 3C |<>153ORASC(AA$)<|
00001130: 3E 32 32 39 4F 52 41 53 43 28 41 41 24 29 3C 3E |>229ORASC(AA$)<>|
00001140: 31 33 54 48 45 4E 58 4B 3D 31 00 68 19 A2 03 8B |13THENXK=1.h....|
00001150: C6 28 42 42 24 29 B2 37 38 AF C6 28 41 41 24 29 |.(BB$).78..(AA$)|
00001160: B2 31 35 33 A7 39 38 30 00 71 19 AC 03 58 4B B2 |.153.980.q...XK.|
00001170: 30 00 BA 19 AD 03 8F 49 46 41 53 43 28 42 42 24 |0......IFASC(BB$|
00001180: 29 3C 3E 37 38 4F 52 41 53 43 28 42 42 24 29 3C |)<>78ORASC(BB$)<|
00001190: 3E 35 33 4F 52 41 53 43 28 42 42 24 29 3C 3E 31 |>53ORASC(BB$)<>1|
000011A0: 31 37 41 4E 44 58 4B 3D 31 54 48 45 4E 58 4B 3D |17ANDXK=1THENXK=|
000011B0: 30 3A 47 4F 54 4F 31 30 34 35 00 D8 19 B6 03 8B |0:GOTO1045......|
000011C0: C6 28 42 42 24 29 B2 35 33 AF C6 28 41 41 24 29 |.(BB$).53..(AA$)|
000011D0: B2 32 32 39 A7 39 38 30 00 E1 19 C0 03 89 39 39 |.229.980......99|
000011E0: 30 00 21 1A CA 03 8F 49 46 41 53 43 28 42 42 24 |0.!....IFASC(BB$|
000011F0: 29 3C 3E 31 31 37 41 4E 44 41 53 43 28 41 41 24 |)<>117ANDASC(AA$|
00001200: 29 3C 3E 31 33 54 48 45 4E 44 24 28 49 29 3D 22 |)<>13THEND$(I)="|
00001210: 12 22 2B 44 24 28 49 29 3A 47 4F 54 4F 31 30 34 |."+D$(I):GOTO104|
00001220: 35 00 2B 1A D4 03 59 B2 59 AA 31 00 3C 1A D5 03 |5.+...Y.Y.1.<...|
00001230: 44 44 24 28 59 29 B2 44 24 28 49 29 00 44 1A DE |DD$(Y).D$(I).D..|
00001240: 03 3A 82 49 00 4F 1A E8 03 81 49 B2 31 A4 59 00 |.:.I.O....I.1.Y.|
00001250: 60 1A E9 03 44 24 28 49 29 B2 44 44 24 28 49 29 |`...D$(I).DD$(I)|
00001260: 00 67 1A EA 03 82 49 00 71 1A F2 03 58 B2 59 AA |.g....I.q...X.Y.|
00001270: 32 00 80 1A F3 03 8B 58 B2 32 A7 89 31 30 33 30 |2......X.2..1030|
00001280: 00 86 1A FC 03 8E 00 93 1A 06 04 97 35 33 32 38 |............5328|
00001290: 30 2C 30 00 A0 1A 07 04 97 35 33 32 38 31 2C 30 |0,0......53281,0|
000012A0: 00 DC 1A 10 04 99 22 93 11 11 11 11 11 11 11 11 |......".........|
000012B0: 11 11 9F 54 48 45 52 45 20 41 52 45 20 4E 4F 20 |...THERE ARE NO |
000012C0: 4D 55 53 49 43 20 50 52 4F 47 52 41 4D 53 20 4F |MUSIC PROGRAMS O|
000012D0: 4E 20 54 48 49 53 20 44 49 53 4B 22 00 EA 1A 1A |N THIS DISK"....|
000012E0: 04 81 49 B2 31 A4 37 35 30 30 00 F1 1A 1B 04 82 |..I.1.7500......|
000012F0: 49 00 F7 1A 1C 04 8A 00 00 1B 24 04 99 22 93 22 |I.........$.."."|
00001300: 00 25 1B 2E 04 80 3A 99 22 9F 43 4F 4E 54 20 1C |.%....:.".CONT .|
00001310: 4E 4F 54 9F 20 41 4C 4C 4F 57 45 44 21 05 22 3A |NOT. ALLOWED!.":|
00001320: 89 31 30 37 30 00 00 00 00 5E |.1070....^ |
.......L.0.230......56,96.%....G(142).2.
...53280,0.?....53281,0.J....646,7.Z....
"..............PLEASE REMOVE PROGRAM DIS
K"......"..........AND INSERT SONG DATA
DISK".R...."............PRESS RETURN WH
EN READY.".Z....A$......A$."".30...(..".
........ FIXED BY DAVID BRADLEY (10/0
3/84)".K.2..".. CALL THE BRADLEY BR
OTHERS BBS".|.<..". .487-5833 481-9047 4
81-8661 OR 272-0709"...F..".. ALL FO
UR ARE IN AREA CODE (416)"...P..".. AN
D ALL FOUR OPERATE 24 HOURS A DAY!"...Z.
."...............................PRESS R
ETURN WHEN READY.".".D..A$.1.E..A$."".10
0.`.N..".... I AM MEMORIZING THE DI
RECTORY"...O.."...";.14)"PLEASE WAIT!!!"
...P.....Q..53280,0. .R..53281,0...S..64
6,7.H.T..SS$(200),S$(52),D$(150).Q.U..54
0.Z.X.."."...Y..646,7...Z..270...{..X.1.
10...|.....}..X...~...14)"SELECTION";L.$
....*.....H.....(40.C(SS$(L))).2)SS$(L)
......".............................FIXE
D BY DAVID BRADLEY (10/06/84)".V...."...
...........................JOIN THE TORO
NTO PET USERS GROUP!."......"...........
.... WN THE BEST MW .."... . 15......15,
8,15.2....8,8,3,"0:".SS$(L).",P,R".B....
#8,AA$,BB$.I... 8.\....15,E,E$,E1,E2.D..
. 15.R....E..0.760......F(BB$).117.F(AA$
).13.XK.30120:.220......760.K....F(BB$).
78.F(AA$).153.XK.20276:.220...H..F(BB$).
53.F(AA$).229.XK.13952:.220...R..760....
.XL..(0).....K.1. ....SS$(L),8,1.(....XK
.1....300.<....646,7.I....K.1.220.S...X.
X.1.B....X.11.X.13.P....X.15.X.2.}....53
280,X............" .. WN WNWWWW
WWMW MW .".T...." ... WN WN CBM
MW MW .."......" ... W .W . 50
SONG .W .W ..""".1...." .... 50 .
W ..JUKE*BOX ..W .50 ...".Z...." .
........................."......"
....WWWWWWWWWWWWWWWWWW...."......X.1.12.
....." ....W W...."
......X......" ....WWWWWWWWWWWWWWW
WWW...."......" ..................
........".7.....7)".CBM JUKEBOX BY ROBER
T SHAW".Y."...9)".MODIFIED BY CAPT. HOOK
".{.#...9)".CALL DAVY JONES LOCKER"...$.
..14)".617-865-1264."...%.....,.."."...-
..Z.1.5........./..Z.F.0...11).R.6..J.1.
17...7.."Q";...8.Y.Y.1...9..Y.15.Y.1...:
..Y.11.Y.13...;..Y.15.Y.2...@..646,Y.".A
.....B..J.1.13.:.C.."Q..";.D.D.Y.Y.1.R.E
..Y.15.Y.1.A.F..Y.11.Y.13.O.G..Y.15.Y.2.
Z.J..646,Y...K.....L..J.1.17...M.."Q..";
...N.Y.Y.1...O..Y.15.Y.1...P..Y.11.Y.13.
M.Q..Y.15.Y.2.X.T..646,Y...U.....V..J.1.
13...W.."Q..";...X.Y.Y.1...Y..Y.15.Y.1..
.Z..Y.11.Y.13.+.[..Y.15.Y.2.6.^..646,Y.<
._...E.F..250.Z.G..B(789)..234.310.J.H..
54272.24,0.S.I..760.|.R.."."...S..X.1.14
...T.....U.....V...14)". * =REPEAT"...|.
.A$.B.}..A$."".380......A$."*"..".":.270
:.230......646,7......550..... 9.....N$.
G(0)......9,8,0,"$0"."....#9,A$,A$.0....
#9,A$,A$.C....A$."". 9:.520.Q....#9,A$,B
$.\....#9,A$.Y......B..A$.G(34).YZ.0:.44
0...B..IFA$=CHR$(45)THENPRINTPRINTPRINTP
RINTPRINT.D.L..A$.G(32).YZ.YZ.1:.440...V
..YZ.1.A$." ".A$:YZ.0.....D$(X).D$(X).A$
......A$.."".440......IFX<>0THENGOSUB100
0.+....PRINTD$(X),X.5...X.X.1.E....X.150
..420.N....820.X...W.X.2.C....J.1.W.T...
L.C(D$(J)).3.....S$(J).H(D$(J),L).....D$
(J).""........... 9............410...&..
".".X.'...12)".THE CBM JUKE*BOX"...(....
.)...12)"..SELECT BY LETTER."...*...4.+.
.".HIT SPACEBAR AFTER COMPLETING SELECTI
ONS".F.,..". ANY SONG MAY BE PLAYED MORE
THAN ONCE!..".L.-...R......./..:.:.:.:.
:.M.0..G.65.89:U.G.64...0..M.1..G.65.89:
U.G.39...:..G.78.600...D..G.77.G.79.."."
:.:.:.:.:.:.:....N..G.77...20);...X..G(G
);" ";S$(U)...Y... .Z...20)"Z ALL SONGS"
.&.[...J.\.." HIT '\' FOR MORE TITLE
S".R.].V.1.Z.^.L.0...B.."...............
...................HIT F7 TO..........EX
IT!.".K.L..".....HIT F1 TO..........CHAN
GE DISKS!."...V..".................."...
...A$......A$."".640......A$."."........
A$."."..1060.3....A$."\".M.1.M:.550.E...
.A$.G(32).760.`....F(A$).90.F(A$).65.640
.P....A$."Z".790...F..M.0.O.F(A$).64:.".
."...P
..M.1.O.F(A$).39:.".
."...Z..A$.G(32).760.....S
S$(V).S$(O)......SS$(V). ....".".3....SS
$(V)."".640.=...V.V.1.F....640.P...L.L.1
.A....L.(V.1).370.Z....SS$(L).SS$(L.1).2
30......120......V.1.50......S$(V)."".81
0... .SS$(V).S$(V)...!..V.C.*.L.L.1.L.+.
.120.Z.4.. DD$(40)...>..I.1.X.2...H.EE$.
H(D$(I),C(D$(I)).2)...I..I(EE$,1).."P".9
90.6.R.DD$.H(D$(I),C(D$(I)).3).L.W..H(DD
$,1)."-".990.G.\..8,8,3,"0:".DD$.",P,R".
W.F..#8,AA$,BB$.~.G. 8...P..15,8,15...Q.
.#15,E...R. 15...S..E..0.990.C.Z..AA$.""
.BB$."".990......PRINTASC(BB$):PRINTASC(
AA$)......F(BB$).117.F(AA$).13.980.....X
K.0:.960.J....IFASC(AA$)<>153ORASC(AA$)<
>229ORASC(AA$)<>13THENXK=1.H....F(BB$).7
8.F(AA$).153.980.Q...XK.0......IFASC(BB$
)<>78ORASC(BB$)<>53ORASC(BB$)<>117ANDXK=
1THENXK=0:GOTO1045.X....F(BB$).53.F(AA$)
.229.980......990.!.J..IFASC(BB$)<>117AN
DASC(AA$)<>13THEND$(I)="."+D$(I):GOTO104
5.+.T.Y.Y.1.<.U.DD$(Y).D$(I).D...:.I.O..
..I.1.Y.`...D$(I).DD$(I).G....I.Q...X.Y.
2......X.2..1030............53280,0. ...
.53281,0......"............THERE ARE NO
MUSIC PROGRAMS ON THIS DISK"......I.1.75
00......I.........$..".".%....:.".CONT .
NOT. ALLOWED!.":.1070....^
> CLICK IMAGE PREVIEW FOR FULL MODAL