RECORD FINDER
FILE INFORMATION
FILENAME(S): RECORD FINDER
FILE TYPE(S): PRG
FILE SIZE: 7.4K
FIRST SEEN: 2025-11-30 21:25:25
APPEARS ON: 1 disk(s)
FILE HASH
5d0df755a7c160525b9c82717d47384aecee51c2d3cf897e38d3534407d9603b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64UTIL | RECORD FINDER | PRG | DuncanTwain | 8 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 00 00 9C 3A 8C 3A 8D 33 30 3A 89 31 |.......:.:.30:.1|
00000010: 30 30 30 00 36 08 01 00 A0 31 35 3A 9F 31 35 2C |000.6....15:.15,|
00000020: 38 2C 31 35 3A 8F 20 49 4E 49 54 49 41 4C 49 5A |8,15:. INITIALIZ|
00000030: 45 20 44 49 53 4B 00 43 08 02 00 98 31 35 2C 22 |E DISK.C....15,"|
00000040: 49 30 22 00 4B 08 03 00 A0 31 35 00 51 08 04 00 |I0".K....15.Q...|
00000050: 8E 00 75 08 05 00 A0 31 35 3A 9F 31 35 2C 38 2C |..u....15:.15,8,|
00000060: 31 35 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 45 |15:. CHECK FOR E|
00000070: 52 52 4F 52 53 00 86 08 06 00 84 31 35 2C 41 2C |RRORS......15,A,|
00000080: 41 24 2C 42 2C 43 00 AA 08 07 00 A0 31 35 3A 8B |A$,B,C......15:.|
00000090: 41 B2 30 A7 99 22 11 CF 4B 41 59 20 49 54 20 57 |A.0.."..KAY IT W|
000000A0: 4F 52 4B 45 44 21 21 22 3A 8E 00 DA 08 08 00 99 |ORKED!!":.......|
000000B0: 22 93 C6 4F 52 20 53 4F 4D 45 20 52 45 41 53 4F |"..OR SOME REASO|
000000C0: 4E 20 54 48 45 20 44 49 53 4B 20 44 52 49 56 45 |N THE DISK DRIVE|
000000D0: 20 52 45 50 4F 52 54 45 44 22 00 FC 08 09 00 99 | REPORTED"......|
000000E0: 22 41 4E 20 45 52 52 4F 52 2E 22 3A 99 22 D4 52 |"AN ERROR.":.".R|
000000F0: 59 20 C1 47 41 49 4E 2E 2E 22 3A 80 00 21 09 0A |Y .GAIN..":..!..|
00000100: 00 8F 20 53 43 52 41 54 43 48 20 41 4C 4C 20 46 |.. SCRATCH ALL F|
00000110: 49 4C 45 53 20 4F 4E 20 44 41 54 41 20 44 49 53 |ILES ON DATA DIS|
00000120: 4B 00 32 09 0B 00 A0 31 35 3A 9F 31 35 2C 38 2C |K.2....15:.15,8,|
00000130: 31 35 00 4F 09 0C 00 98 31 35 2C 22 53 30 3A 54 |15.O....15,"S0:T|
00000140: 4F 54 41 4C 20 4F 46 20 41 4C 42 55 4D 53 22 00 |OTAL OF ALBUMS".|
00000150: 6C 09 0D 00 98 31 35 2C 22 53 30 3A 47 52 4F 55 |l....15,"S0:GROU|
00000160: 50 20 41 4E 44 20 54 49 54 4C 45 22 00 89 09 0E |P AND TITLE"....|
00000170: 00 98 31 35 2C 22 53 30 3A 4E 55 4D 42 45 52 20 |..15,"S0:NUMBER |
00000180: 4F 46 20 53 4F 4E 47 53 22 00 A6 09 0F 00 98 31 |OF SONGS"......1|
00000190: 35 2C 22 53 30 3A 54 49 54 4C 45 53 20 4F 46 20 |5,"S0:TITLES OF |
000001A0: 53 4F 4E 47 53 22 00 B3 09 10 00 A0 31 35 2C 38 |SONGS"......15,8|
000001B0: 2C 31 35 00 B9 09 11 00 8E 00 EC 09 1E 00 86 47 |,15............G|
000001C0: 52 24 28 32 30 30 29 2C 54 49 24 28 32 30 30 29 |R$(200),TI$(200)|
000001D0: 2C 53 4E 28 32 30 30 29 2C 53 4E 24 28 32 30 30 |,SN(200),SN$(200|
000001E0: 2C 32 30 29 2C 41 34 24 28 32 30 29 00 F2 09 28 |,20),A4$(20)...(|
000001F0: 00 8E 00 11 0A 64 00 99 22 93 12 C7 D2 CF D5 D0 |.....d..".......|
00000200: A0 CE C1 CD C5 92 20 20 3A 20 22 47 52 24 28 47 |...... : "GR$(G|
00000210: 29 00 2E 0A 65 00 99 22 12 C1 CC C2 D5 CD A0 CE |)...e.."........|
00000220: C1 CD C5 92 20 20 3A 20 22 54 24 28 47 29 00 62 |.... : "T$(G).b|
00000230: 0A 66 00 99 22 12 D3 CF CE C7 A0 D4 C9 D4 CC C5 |.f.."...........|
00000240: D3 92 20 3A 20 22 3B 3A 99 C8 28 53 4E 24 28 47 |.. : ";:..(SN$(G|
00000250: 2C 31 29 2C 32 34 29 3A 81 49 B2 32 A4 53 4E 28 |,1),24):.I.2.SN(|
00000260: 47 29 00 88 0A 67 00 99 22 20 20 20 20 20 20 20 |G)...g.." |
00000270: 20 20 20 20 20 20 20 22 C8 28 53 4E 24 28 47 2C | ".(SN$(G,|
00000280: 49 29 2C 32 34 29 3A 82 00 8E 0A 68 00 8E 00 BC |I),24):....h....|
00000290: 0A 82 00 99 22 D4 48 45 20 C6 49 4C 45 20 C9 53 |....".HE .ILE .S|
000002A0: 20 C6 D5 CC CC 2C 20 45 49 54 48 45 52 20 53 54 | ...., EITHER ST|
000002B0: 41 52 54 20 41 4E 4F 54 48 45 52 22 00 E1 0A 83 |ART ANOTHER"....|
000002C0: 00 99 22 C6 C9 CC C5 A0 C4 C9 D3 CB A0 4F 52 20 |.."..........OR |
000002D0: 44 45 4C 45 54 45 20 41 20 46 49 4C 45 2E 2E 2E |DELETE A FILE...|
000002E0: 22 00 13 0B 84 00 99 22 11 11 D0 52 45 53 53 20 |"......"...RESS |
000002F0: C1 4E 59 20 CB 45 59 20 D4 4F 20 D2 45 54 55 52 |.NY .EY .O .ETUR|
00000300: 4E 20 D4 4F 20 D4 48 45 20 CD 41 49 4E 20 CD 45 |N .O .HE .AIN .E|
00000310: 4E 55 22 00 26 0B 85 00 A1 41 24 3A 8B 41 24 B2 |NU".&....A$:.A$.|
00000320: 22 22 A7 31 33 33 00 30 0B 86 00 89 31 30 30 30 |"".133.0....1000|
00000330: 00 4C 0B 8F 01 8F 20 2A 20 4C 4F 4F 4B 20 54 48 |.L.... * LOOK TH|
00000340: 52 4F 55 47 48 20 46 49 4C 45 20 2A 00 63 0B 90 |ROUGH FILE *.c..|
00000350: 01 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 |..53280,0:.53281|
00000360: 2C 31 31 00 96 0B 91 01 99 22 93 9E 3D 3D 3D 3D |,11......"..====|
00000370: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000380: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000390: 3D 3D 3D 3D 22 3B 00 B8 0B 92 01 99 A6 39 29 22 |====";.......9)"|
000003A0: 05 CC CF CF CB A0 D4 C8 D2 CF D5 C7 C8 20 20 D4 |............. .|
000003B0: C8 C5 A0 C6 C9 CC C5 22 00 EA 0B 93 01 99 22 9E |......."......".|
000003C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000003D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000003E0: 3D 3D 3D 3D 3D 3D 3D 3D 05 22 00 0B 0C 94 01 99 |========."......|
000003F0: 22 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 |".O YOU WANT TO |
00000400: 4C 4F 4F 4B 20 46 4F 52 20 41 22 00 32 0C 95 01 |LOOK FOR A".2...|
00000410: 99 22 12 D3 92 4F 4E 47 2C 20 12 C7 92 52 4F 55 |."...ONG, ...ROU|
00000420: 50 2C 12 C1 92 4C 4C 20 4F 52 20 12 D1 92 55 49 |P,...LL OR ...UI|
00000430: 54 22 00 5F 0C 96 01 A1 41 24 3A 8B 41 24 B3 B1 |T"._....A$:.A$..|
00000440: 22 53 22 AF 41 24 B3 B1 22 47 22 AF 41 24 B3 B1 |"S".A$.."G".A$..|
00000450: 22 41 22 AF 41 24 B3 B1 22 51 22 A7 34 30 36 00 |"A".A$.."Q".406.|
00000460: 76 0C 97 01 8B 41 24 B2 22 41 22 B0 41 24 B2 22 |v....A$."A".A$."|
00000470: 51 22 A7 34 37 30 00 86 0C 98 01 8B 41 24 B2 22 |Q".470......A$."|
00000480: 47 22 A7 34 35 30 00 AE 0C 99 01 99 22 D7 48 41 |G".450......".HA|
00000490: 54 20 D3 4F 4E 47 20 41 52 45 20 59 4F 55 20 4C |T .ONG ARE YOU L|
000004A0: 4F 4F 4B 49 4E 47 20 46 4F 52 3F 3F 3F 22 00 B6 |OOKING FOR???"..|
000004B0: 0C 9A 01 85 41 24 00 C1 0C 9B 01 81 49 B2 31 A4 |....A$......I.1.|
000004C0: 54 00 D0 0C 9C 01 81 4A B2 31 A4 53 4E 28 49 29 |T......J.1.SN(I)|
000004D0: 00 E5 0C 9D 01 8B 41 24 B2 53 4E 24 28 49 2C 4A |......A$.SN$(I,J|
000004E0: 29 A7 34 31 35 00 1B 0D 9E 01 82 4A 2C 49 3A 99 |).415......J,I:.|
000004F0: 22 C9 20 C3 41 4E 20 CE 4F 54 20 C6 49 4E 44 20 |". .AN .OT .IND |
00000500: D4 48 45 20 D3 4F 4E 47 20 D9 4F 55 20 D4 59 50 |.HE .ONG .OU .YP|
00000510: 45 44 20 C9 4E 22 3A 89 34 30 34 00 34 0D 9F 01 |ED .N":.404.4...|
00000520: 47 B2 49 3A 49 B2 54 3A 4A B2 53 4E 28 49 29 3A |G.I:I.T:J.SN(I):|
00000530: 82 4A 2C 49 00 3D 0D A0 01 8D 31 30 30 00 66 0D |.J,I.=....100.f.|
00000540: A1 01 99 A6 37 29 22 11 11 28 D0 52 45 53 53 20 |....7)"..(.RESS |
00000550: C1 4E 59 20 CB 45 59 20 54 4F 20 C3 4F 4E 54 49 |.NY .EY TO .ONTI|
00000560: 4E 55 45 2E 29 22 00 79 0D A2 01 A1 41 24 3A 8B |NUE.)".y....A$:.|
00000570: 41 24 B2 22 22 A7 34 31 38 00 82 0D A3 01 89 34 |A$."".418......4|
00000580: 30 30 00 AF 0D C2 01 99 22 D7 48 41 54 20 C7 52 |00......".HAT .R|
00000590: 4F 55 50 20 41 52 45 20 59 4F 55 20 4C 4F 4F 4B |OUP ARE YOU LOOK|
000005A0: 49 4E 47 20 46 4F 52 3F 3F 3F 22 3A 85 41 24 00 |ING FOR???":.A$.|
000005B0: BA 0D C3 01 81 49 B2 31 A4 54 00 CD 0D C4 01 8B |.....I.1.T......|
000005C0: 41 24 B2 47 52 24 28 49 29 A7 34 35 34 00 02 0E |A$.GR$(I).454...|
000005D0: C5 01 82 49 3A 99 22 C9 20 C3 41 4E 20 CE 4F 54 |...I:.". .AN .OT|
000005E0: 20 C6 49 4E 44 20 D4 48 45 20 C7 52 4F 55 50 20 | .IND .HE .ROUP |
000005F0: D9 4F 55 20 D4 59 50 45 44 20 C9 4E 22 3A 89 34 |.OU .YPED .N":.4|
00000600: 30 34 00 11 0E C6 01 47 B2 49 3A 49 B2 54 3A 82 |04.....G.I:I.T:.|
00000610: 49 00 1A 0E C8 01 8D 31 30 30 00 43 0E C9 01 99 |I......100.C....|
00000620: A6 37 29 22 11 11 28 D0 52 45 53 53 20 C1 4E 59 |.7)"..(.RESS .NY|
00000630: 20 CB 45 59 20 54 4F 20 C3 4F 4E 54 49 4E 55 45 | .EY TO .ONTINUE|
00000640: 2E 29 22 00 56 0E CA 01 A1 41 24 3A 8B 41 24 B2 |.)".V....A$:.A$.|
00000650: 22 22 A7 34 35 38 00 5F 0E CB 01 89 34 30 30 00 |"".458._....400.|
00000660: 65 0E D5 01 80 00 76 0E D6 01 8B 41 24 B2 22 51 |e.....v....A$."Q|
00000670: 22 A7 31 30 30 30 00 81 0E D7 01 81 49 B2 31 A4 |".1000......I.1.|
00000680: 54 00 8E 0E D8 01 47 B2 49 3A 8D 31 30 30 00 B7 |T.....G.I:.100..|
00000690: 0E D9 01 99 A6 37 29 22 11 11 28 D0 52 45 53 53 |.....7)"..(.RESS|
000006A0: 20 C1 4E 59 20 CB 45 59 20 54 4F 20 C3 4F 4E 54 | .NY .EY TO .ONT|
000006B0: 49 4E 55 45 2E 29 22 00 CA 0E DA 01 A1 41 24 3A |INUE.)"......A$:|
000006C0: 8B 41 24 B2 22 22 A7 34 37 34 00 D5 0E DB 01 82 |.A$."".474......|
000006D0: 3A 89 34 30 30 00 DB 0E F2 01 80 00 FA 0E F3 01 |:.400...........|
000006E0: 8F 20 2A 20 45 4E 54 45 52 20 4C 50 27 53 20 49 |. * ENTER LP'S I|
000006F0: 4E 54 4F 20 46 49 4C 45 20 2A 00 10 0F F4 01 97 |NTO FILE *......|
00000700: 35 33 32 38 30 2C 36 3A 97 35 33 32 38 31 2C 31 |53280,6:.53281,1|
00000710: 00 43 0F F5 01 99 22 93 9A 3D 3D 3D 3D 3D 3D 3D |.C...."..=======|
00000720: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000730: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000740: 3D 22 3B 00 65 0F F6 01 99 A6 39 29 22 90 C5 CE |=";.e.....9)"...|
00000750: D4 C5 D2 A0 C1 CC C2 D5 CD D3 A0 C9 CE D4 CF A0 |................|
00000760: C6 C9 CC C5 22 00 A1 0F F7 01 99 22 9A 3D 3D 3D |...."......".===|
00000770: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000780: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000790: 3D 3D 3D 3D 3D 22 3A 8B 54 B1 31 39 39 A7 31 33 |=====":.T.199.13|
000007A0: 30 00 D1 0F F8 01 99 22 C1 52 45 20 59 4F 55 20 |0......".RE YOU |
000007B0: 53 55 52 45 20 59 4F 55 20 57 41 4E 54 20 54 4F |SURE YOU WANT TO|
000007C0: 20 45 4E 54 45 52 20 41 4E 20 41 4C 42 55 4D 3F | ENTER AN ALBUM?|
000007D0: 22 00 EE 0F F9 01 A1 41 24 3A 8B 41 24 B3 B1 22 |"......A$:.A$.."|
000007E0: 59 22 AF 41 24 B3 B1 22 4E 22 A7 35 30 35 00 FF |Y".A$.."N".505..|
000007F0: 0F FA 01 8B 41 24 B2 22 4E 22 A7 31 30 30 30 00 |....A$."N".1000.|
00000800: 1D 10 FB 01 99 22 11 12 C5 CE D4 C5 D2 A0 D4 C8 |....."..........|
00000810: C5 A0 C1 CC C2 D5 CD A0 CE C1 CD C5 22 00 26 10 |............".&.|
00000820: FC 01 85 41 31 24 00 51 10 FD 01 99 22 12 C5 CE |...A1$.Q...."...|
00000830: D4 C5 D2 20 D4 C8 C5 A0 C7 D2 CF D5 D0 A0 CF D2 |... ............|
00000840: A0 D0 C5 D2 C6 CF D2 CD C5 D2 D3 A0 CE C1 CD C5 |................|
00000850: 22 00 5A 10 FE 01 85 41 32 24 00 7C 10 FF 01 99 |".Z....A2$.|....|
00000860: 22 12 C5 CE D4 C5 D2 A0 D4 C8 C5 A0 CE D5 CD C2 |"...............|
00000870: C5 D2 A0 CF C6 A0 D3 CF CE C7 D3 22 00 A4 10 00 |..........."....|
00000880: 02 85 41 33 3A 8B 41 33 B1 32 30 A7 99 22 CE 4F |..A3:.A3.20..".O|
00000890: 20 CD 4F 52 45 20 D4 48 41 4E 20 32 30 2E 22 3A | .ORE .HAN 20.":|
000008A0: 89 35 31 31 00 C8 10 01 02 8B 41 33 B3 31 A7 99 |.511......A3.1..|
000008B0: 22 CE 4F 20 4C 45 53 53 20 54 48 41 4E 20 CF CE |".O LESS THAN ..|
000008C0: C5 2E 22 3A 89 35 31 31 00 D4 10 02 02 81 49 B2 |..":.511......I.|
000008D0: 31 A4 41 33 00 EB 10 03 02 99 22 12 C5 CE D4 C5 |1.A3......".....|
000008E0: D2 A0 D3 CF CE C7 A0 23 22 3B 49 00 F7 10 04 02 |.......#";I.....|
000008F0: 85 41 34 24 28 49 29 00 FD 10 05 02 82 00 22 11 |.A4$(I).......".|
00000900: 06 02 99 22 D7 41 53 20 C1 4C 4C 20 D4 48 45 20 |...".AS .LL .HE |
00000910: C4 41 54 41 20 C3 4F 52 52 45 43 54 20 28 D9 2F |.ATA .ORRECT (./|
00000920: CE 29 00 3F 11 07 02 A1 41 24 3A 8B 41 24 B3 B1 |.).?....A$:.A$..|
00000930: 22 59 22 AF 41 24 B3 B1 22 4E 22 A7 35 31 39 00 |"Y".A$.."N".519.|
00000940: 4F 11 08 02 8B 41 24 B2 22 4E 22 A7 35 30 34 00 |O....A$."N".504.|
00000950: 77 11 09 02 54 B2 54 AA 31 3A 47 52 24 28 54 29 |w...T.T.1:GR$(T)|
00000960: B2 41 32 24 3A 54 24 28 54 29 B2 41 31 24 3A 53 |.A2$:T$(T).A1$:S|
00000970: 4E 28 54 29 B2 41 33 00 86 11 0A 02 81 49 B2 31 |N(T).A3......I.1|
00000980: A4 53 4E 28 54 29 00 9A 11 0B 02 53 4E 24 28 54 |.SN(T).....SN$(T|
00000990: 2C 49 29 B2 41 34 24 28 49 29 00 A0 11 0D 02 82 |,I).A4$(I)......|
000009A0: 00 AF 11 0E 02 99 22 CF 4B 41 59 2E 2E 2E 22 00 |......".KAY...".|
000009B0: D8 11 0F 02 99 22 C8 49 54 20 41 4E 59 20 4B 45 |.....".IT ANY KE|
000009C0: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 50 4C |Y TO CONTINUE PL|
000009D0: 45 41 53 45 2E 2E 2E 22 00 EB 11 10 02 A1 41 24 |EASE..."......A$|
000009E0: 3A 8B 41 24 B2 22 22 A7 35 32 38 00 F4 11 11 02 |:.A$."".528.....|
000009F0: 89 35 30 30 00 FA 11 56 02 80 00 09 12 57 02 8F |.500...V.....W..|
00000A00: 20 2A 20 48 45 4C 50 20 2A 00 1F 12 58 02 97 35 | * HELP *...X..5|
00000A10: 33 32 38 30 2C 35 3A 97 35 33 32 38 31 2C 30 00 |3280,5:.53281,0.|
00000A20: 52 12 59 02 99 22 93 99 3D 3D 3D 3D 3D 3D 3D 3D |R.Y.."..========|
00000A30: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000A40: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000A50: 22 3B 00 63 12 5A 02 99 A6 31 38 29 22 05 C8 C5 |";.c.Z...18)"...|
00000A60: CC D0 22 00 94 12 5B 02 99 22 99 3D 3D 3D 3D 3D |.."...[..".=====|
00000A70: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000A80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000A90: 3D 3D 3D 22 00 C5 12 5C 02 99 22 C2 45 46 4F 52 |==="...\..".EFOR|
00000AA0: 45 20 45 4E 54 45 52 49 4E 47 20 41 4E 59 20 41 |E ENTERING ANY A|
00000AB0: 4C 42 55 4D 53 20 49 4E 54 4F 20 54 48 45 20 46 |LBUMS INTO THE F|
00000AC0: 49 4C 45 22 3B 00 EF 12 5D 02 99 22 59 4F 55 20 |ILE";...].."YOU |
00000AD0: 57 49 4C 4C 20 4E 45 45 44 20 54 4F 20 4D 41 4B |WILL NEED TO MAK|
00000AE0: 45 20 41 20 46 49 4C 45 20 44 49 53 4B 2E 22 00 |E A FILE DISK.".|
00000AF0: 18 13 5E 02 99 22 D4 48 45 4E 20 59 4F 55 20 43 |..^..".HEN YOU C|
00000B00: 41 4E 20 45 4E 54 45 52 20 59 4F 55 52 20 41 4C |AN ENTER YOUR AL|
00000B10: 42 55 4D 53 20 42 59 22 00 40 13 5F 02 99 22 43 |BUMS BY".@._.."C|
00000B20: 48 4F 4F 53 49 4E 47 20 C6 32 20 4F 52 20 45 52 |HOOSING .2 OR ER|
00000B30: 41 53 45 20 41 4E 20 41 4C 42 55 4D 20 42 59 22 |ASE AN ALBUM BY"|
00000B40: 00 6F 13 60 02 99 22 43 48 4F 4F 53 49 4E 47 20 |.o.`.."CHOOSING |
00000B50: C6 33 2E 20 20 D4 4F 20 46 49 4E 44 20 57 48 41 |.3. .O FIND WHA|
00000B60: 54 20 41 4C 42 55 4D 20 41 20 53 4F 4E 47 22 00 |T ALBUM A SONG".|
00000B70: 99 13 61 02 99 22 49 53 20 4F 4E 20 50 52 45 53 |..a.."IS ON PRES|
00000B80: 53 20 C6 34 2E 20 20 D9 4F 55 20 43 41 4E 20 41 |S .4. .OU CAN A|
00000B90: 4C 53 4F 20 4C 4F 4F 4B 22 00 C5 13 62 02 99 22 |LSO LOOK"...b.."|
00000BA0: 46 4F 52 20 41 4C 42 55 4D 53 20 42 59 20 41 20 |FOR ALBUMS BY A |
00000BB0: 47 52 4F 55 50 20 4F 52 20 4C 4F 4F 4B 20 41 54 |GROUP OR LOOK AT|
00000BC0: 20 41 4C 4C 22 00 E7 13 63 02 99 22 4F 46 20 54 | ALL"...c.."OF T|
00000BD0: 48 45 20 41 4C 42 55 4D 53 20 4F 4E 20 54 48 45 |HE ALBUMS ON THE|
00000BE0: 20 46 49 4C 45 2E 22 00 18 14 64 02 99 22 D4 4F | FILE."...d..".O|
00000BF0: 20 53 41 56 45 20 54 48 45 20 46 49 4C 45 20 4F | SAVE THE FILE O|
00000C00: 46 20 41 4C 42 55 4D 53 20 59 4F 55 20 48 41 56 |F ALBUMS YOU HAV|
00000C10: 45 20 4D 41 44 45 22 3B 00 45 14 65 02 99 22 50 |E MADE";.E.e.."P|
00000C20: 52 45 53 53 20 C6 35 2E 20 20 CE CF D4 C5 3A 20 |RESS .5. ....: |
00000C30: D9 4F 55 20 4D 55 53 54 20 4C 4F 41 44 20 41 20 |.OU MUST LOAD A |
00000C40: 46 49 4C 45 22 00 74 14 66 02 99 22 42 45 46 4F |FILE".t.f.."BEFO|
00000C50: 52 45 20 45 4E 54 45 52 49 4E 47 20 54 48 45 20 |RE ENTERING THE |
00000C60: 44 41 54 41 20 49 46 20 59 4F 55 20 57 41 4E 54 |DATA IF YOU WANT|
00000C70: 20 54 4F 22 00 9C 14 67 02 99 22 4B 45 45 50 20 | TO"...g.."KEEP |
00000C80: 54 48 45 20 41 4C 42 55 4D 53 20 41 4C 52 45 41 |THE ALBUMS ALREA|
00000C90: 44 59 20 4F 4E 20 46 49 4C 45 2E 22 00 BF 14 68 |DY ON FILE."...h|
00000CA0: 02 99 22 D4 4F 20 4C 4F 41 44 20 54 48 45 20 46 |..".O LOAD THE F|
00000CB0: 49 4C 45 20 50 52 45 53 53 20 C6 35 2E 2E 22 00 |ILE PRESS .5..".|
00000CC0: F0 14 69 02 99 22 11 05 20 28 D0 D2 C5 D3 D3 A0 |..i..".. (......|
00000CD0: C1 CE D9 A0 CB C5 D9 A0 D4 CF A0 D2 C5 D4 D5 D2 |................|
00000CE0: CE A0 D4 CF A0 D4 C8 C5 20 CD C5 CE D5 2E 29 22 |........ .....)"|
00000CF0: 00 03 15 6A 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 |...j..A$:.A$."".|
00000D00: 36 31 38 00 0D 15 6B 02 89 31 30 30 30 00 2B 15 |618...k..1000.+.|
00000D10: BB 02 8F 20 2A 20 53 41 56 45 20 4F 52 20 4C 4F |... * SAVE OR LO|
00000D20: 41 44 20 41 20 46 49 4C 45 20 2A 00 41 15 BC 02 |AD A FILE *.A...|
00000D30: 97 35 33 32 38 30 2C 37 3A 97 35 33 32 38 31 2C |.53280,7:.53281,|
00000D40: 31 00 74 15 BD 02 99 22 93 95 3D 3D 3D 3D 3D 3D |1.t...."..======|
00000D50: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000D60: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000D70: 3D 3D 22 3B 00 95 15 BE 02 99 A6 31 30 29 22 98 |==";.......10)".|
00000D80: CC CF C1 C4 A0 CF D2 A0 D3 C1 D6 C5 A0 20 C1 A0 |............. ..|
00000D90: C6 C9 CC C5 22 00 C7 15 BF 02 99 22 95 3D 3D 3D |...."......".===|
00000DA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000DB0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000DC0: 3D 3D 3D 3D 3D 22 3B 00 F6 15 C0 02 99 22 98 C1 |=====";......"..|
00000DD0: 52 45 20 59 4F 55 20 53 55 52 45 20 59 4F 55 20 |RE YOU SURE YOU |
00000DE0: 57 41 4E 54 20 54 4F 20 55 53 45 20 54 48 45 20 |WANT TO USE THE |
00000DF0: 44 49 53 4B 3F 22 00 13 16 C1 02 A1 41 24 3A 8B |DISK?"......A$:.|
00000E00: 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 A7 |A$.."Y".A$.."N".|
00000E10: 37 30 35 00 24 16 C2 02 8B 41 24 B2 22 4E 22 A7 |705.$....A$."N".|
00000E20: 31 30 30 30 00 56 16 C3 02 99 22 11 C4 4F 20 59 |1000.V...."..O Y|
00000E30: 4F 55 20 57 41 4E 54 20 54 4F 20 12 CC 92 4F 41 |OU WANT TO ...OA|
00000E40: 44 20 4F 52 20 12 D3 92 41 56 45 20 54 48 45 20 |D OR ...AVE THE |
00000E50: 46 49 4C 45 3F 22 00 73 16 C4 02 A1 41 24 3A 8B |FILE?".s....A$:.|
00000E60: 41 24 B3 B1 22 4C 22 AF 41 24 B3 B1 22 53 22 A7 |A$.."L".A$.."S".|
00000E70: 37 30 38 00 83 16 C5 02 8B 41 24 B2 22 4C 22 A7 |708......A$."L".|
00000E80: 37 35 30 00 BA 16 C6 02 8D 31 3A 99 22 D7 52 49 |750......1:.".RI|
00000E90: 54 49 4E 47 20 54 48 45 20 4E 55 4D 42 45 52 20 |TING THE NUMBER |
00000EA0: 4F 46 20 41 4C 42 55 4D 53 20 54 4F 20 54 48 45 |OF ALBUMS TO THE|
00000EB0: 20 44 49 53 4B 22 3A 8D 31 30 00 DD 16 C7 02 9F | DISK":.10......|
00000EC0: 32 2C 38 2C 32 2C 22 30 3A 54 4F 54 41 4C 20 4F |2,8,2,"0:TOTAL O|
00000ED0: 46 20 41 4C 42 55 4D 53 2C 53 2C 57 22 00 E6 16 |F ALBUMS,S,W"...|
00000EE0: C8 02 98 32 2C 54 00 ED 16 C9 02 A0 32 00 2F 17 |...2,T......2./.|
00000EF0: CA 02 8D 35 3A 99 22 11 D7 52 49 54 49 4E 47 20 |...5:."..RITING |
00000F00: 54 48 45 20 41 4C 42 55 4D 20 47 52 4F 55 50 20 |THE ALBUM GROUP |
00000F10: 41 4E 44 20 54 49 54 4C 45 53 20 54 4F 20 20 20 |AND TITLES TO |
00000F20: 54 48 45 20 44 49 53 4B 2E 2E 2E 22 3A 8D 31 00 |THE DISK...":.1.|
00000F30: 52 17 CB 02 9F 32 2C 38 2C 32 2C 22 30 3A 47 52 |R....2,8,2,"0:GR|
00000F40: 4F 55 50 20 41 4E 44 20 54 49 54 4C 45 2C 53 2C |OUP AND TITLE,S,|
00000F50: 57 22 00 5D 17 CC 02 81 49 B2 31 A4 54 00 6B 17 |W".]....I.1.T.k.|
00000F60: CD 02 98 32 2C 47 52 24 28 49 29 00 78 17 CE 02 |...2,GR$(I).x...|
00000F70: 98 32 2C 54 24 28 49 29 00 7E 17 CF 02 82 00 85 |.2,T$(I).~......|
00000F80: 17 D0 02 A0 32 00 C7 17 D1 02 8D 35 3A 99 22 11 |....2......5:.".|
00000F90: D7 52 49 54 49 4E 47 20 54 48 45 20 4E 55 4D 42 |.RITING THE NUMB|
00000FA0: 45 52 20 4F 46 20 53 4F 4E 47 20 54 49 54 4C 45 |ER OF SONG TITLE|
00000FB0: 53 20 54 4F 20 20 20 20 54 48 45 20 44 49 53 4B |S TO THE DISK|
00000FC0: 2E 2E 2E 22 3A 8D 31 00 EA 17 D2 02 9F 32 2C 38 |...":.1......2,8|
00000FD0: 2C 32 2C 22 30 3A 4E 55 4D 42 45 52 20 4F 46 20 |,2,"0:NUMBER OF |
00000FE0: 53 4F 4E 47 53 2C 53 2C 57 22 00 F5 17 D3 02 81 |SONGS,S,W"......|
00000FF0: 49 B2 31 A4 54 00 02 18 D4 02 98 32 2C 53 4E 28 |I.1.T......2,SN(|
00001000: 49 29 00 09 18 D5 02 A0 32 00 13 18 D6 02 8D 35 |I)......2......5|
00001010: 3A 8D 31 00 3D 18 D7 02 99 22 D7 52 49 54 49 4E |:.1.=....".RITIN|
00001020: 47 20 54 48 45 20 53 4F 4E 47 20 54 49 54 4C 45 |G THE SONG TITLE|
00001030: 53 20 54 4F 20 44 49 53 4B 2E 2E 2E 22 00 60 18 |S TO DISK...".`.|
00001040: D8 02 9F 32 2C 38 2C 32 2C 22 30 3A 54 49 54 4C |...2,8,2,"0:TITL|
00001050: 45 53 20 4F 46 20 53 4F 4E 47 53 2C 53 2C 57 22 |ES OF SONGS,S,W"|
00001060: 00 6B 18 D9 02 81 49 B2 31 A4 54 00 7A 18 DA 02 |.k....I.1.T.z...|
00001070: 81 4A B2 31 A4 53 4E 28 49 29 00 8A 18 DB 02 98 |.J.1.SN(I)......|
00001080: 32 2C 53 4E 24 28 49 2C 4A 29 00 93 18 DC 02 82 |2,SN$(I,J)......|
00001090: 4A 2C 49 00 9A 18 DD 02 A0 32 00 A4 18 DE 02 8D |J,I......2......|
000010A0: 35 3A 8D 31 00 C9 18 DF 02 99 22 CF 4B 41 59 2E |5:.1......".KAY.|
000010B0: 2E 2E C5 56 45 52 59 54 48 49 4E 47 20 49 53 20 |...VERYTHING IS |
000010C0: 53 41 56 45 44 21 21 21 22 00 FA 18 E0 02 99 22 |SAVED!!!"......"|
000010D0: 11 11 20 28 D0 D2 C5 D3 D3 A0 C1 CE D9 A0 CB C5 |.. (............|
000010E0: D9 A0 D4 CF A0 D2 C5 D4 D5 D2 CE A0 D4 CF A0 D4 |................|
000010F0: C8 C5 A0 CD C5 CE D5 2E 29 22 00 0D 19 E1 02 A1 |........)"......|
00001100: 41 24 3A 8B 41 24 B2 22 22 A7 37 33 37 00 17 19 |A$:.A$."".737...|
00001110: E2 02 89 31 30 30 30 00 1D 19 ED 02 80 00 4F 19 |...1000.......O.|
00001120: EE 02 8D 31 3A 99 22 D2 45 41 44 49 4E 47 20 54 |...1:.".EADING T|
00001130: 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 41 4C 42 |HE NUMBER OF ALB|
00001140: 55 4D 53 20 46 52 4F 4D 20 44 49 53 4B 2E 22 00 |UMS FROM DISK.".|
00001150: 72 19 EF 02 9F 32 2C 38 2C 32 2C 22 30 3A 54 4F |r....2,8,2,"0:TO|
00001160: 54 41 4C 20 4F 46 20 41 4C 42 55 4D 53 2C 53 2C |TAL OF ALBUMS,S,|
00001170: 52 22 00 7B 19 F0 02 84 32 2C 54 00 82 19 F1 02 |R".{....2,T.....|
00001180: A0 32 00 C4 19 F2 02 8D 35 3A 99 22 11 D2 45 41 |.2......5:."..EA|
00001190: 44 49 4E 47 20 54 48 45 20 41 4C 42 55 4D 20 47 |DING THE ALBUM G|
000011A0: 52 4F 55 50 20 41 4E 44 20 54 49 54 4C 45 53 20 |ROUP AND TITLES |
000011B0: 46 52 4F 4D 20 54 48 45 20 44 49 53 4B 2E 2E 2E |FROM THE DISK...|
000011C0: 22 3A 8D 31 00 E7 19 F3 02 9F 32 2C 38 2C 32 2C |":.1......2,8,2,|
000011D0: 22 30 3A 47 52 4F 55 50 20 41 4E 44 20 54 49 54 |"0:GROUP AND TIT|
000011E0: 4C 45 2C 53 2C 52 22 00 F2 19 F4 02 81 49 B2 31 |LE,S,R"......I.1|
000011F0: A4 54 00 00 1A F5 02 84 32 2C 47 52 24 28 49 29 |.T......2,GR$(I)|
00001200: 00 0D 1A F6 02 84 32 2C 54 24 28 49 29 00 13 1A |......2,T$(I)...|
00001210: F7 02 82 00 1A 1A F8 02 A0 32 00 5C 1A F9 02 8D |.........2.\....|
00001220: 35 3A 99 22 11 D2 45 41 44 49 4E 47 20 54 48 45 |5:."..EADING THE|
00001230: 20 4E 55 4D 42 45 52 20 4F 46 20 53 4F 4E 47 20 | NUMBER OF SONG |
00001240: 54 49 54 4C 45 53 20 46 52 4F 4D 20 20 54 48 45 |TITLES FROM THE|
00001250: 20 44 49 53 4B 2E 2E 2E 22 3A 8D 31 00 7F 1A FA | DISK...":.1....|
00001260: 02 9F 32 2C 38 2C 32 2C 22 30 3A 4E 55 4D 42 45 |..2,8,2,"0:NUMBE|
00001270: 52 20 4F 46 20 53 4F 4E 47 53 2C 53 2C 52 22 00 |R OF SONGS,S,R".|
00001280: 8A 1A FB 02 81 49 B2 31 A4 54 00 97 1A FC 02 84 |.....I.1.T......|
00001290: 32 2C 53 4E 28 49 29 00 9E 1A FD 02 A0 32 00 A8 |2,SN(I)......2..|
000012A0: 1A FE 02 8D 35 3A 8D 31 00 D4 1A FF 02 99 22 D2 |....5:.1......".|
000012B0: 45 41 44 49 4E 47 20 54 48 45 20 53 4F 4E 47 20 |EADING THE SONG |
000012C0: 54 49 54 4C 45 53 20 46 52 4F 4D 20 44 49 53 4B |TITLES FROM DISK|
000012D0: 2E 2E 2E 22 00 F7 1A 00 03 9F 32 2C 38 2C 32 2C |..."......2,8,2,|
000012E0: 22 30 3A 54 49 54 4C 45 53 20 4F 46 20 53 4F 4E |"0:TITLES OF SON|
000012F0: 47 53 2C 53 2C 52 22 00 02 1B 01 03 81 49 B2 31 |GS,S,R"......I.1|
00001300: A4 54 00 11 1B 02 03 81 4A B2 31 A4 53 4E 28 49 |.T......J.1.SN(I|
00001310: 29 00 21 1B 03 03 84 32 2C 53 4E 24 28 49 2C 4A |).!....2,SN$(I,J|
00001320: 29 00 2A 1B 04 03 82 4A 2C 49 00 31 1B 05 03 A0 |).*....J,I.1....|
00001330: 32 00 3B 1B 06 03 8D 35 3A 8D 31 00 61 1B 07 03 |2.;....5:.1.a...|
00001340: 99 22 CF 4B 41 59 2E 2E 2E C5 56 45 52 59 54 48 |.".KAY....VERYTH|
00001350: 49 4E 47 20 49 53 20 4C 4F 41 44 45 44 21 21 21 |ING IS LOADED!!!|
00001360: 22 00 92 1B 08 03 99 22 11 11 20 28 D0 D2 C5 D3 |"......".. (....|
00001370: D3 A0 C1 CE D9 A0 CB C5 D9 A0 D4 CF A0 D2 C5 D4 |................|
00001380: D5 D2 CE A0 D4 CF A0 D4 C8 C5 A0 CD C5 CE D5 2E |................|
00001390: 29 22 00 A5 1B 09 03 A1 41 24 3A 8B 41 24 B2 22 |)"......A$:.A$."|
000013A0: 22 A7 37 37 37 00 AF 1B 0A 03 89 31 30 30 30 00 |".777......1000.|
000013B0: B5 1B 1E 03 80 00 D5 1B 1F 03 8F 20 2A 20 44 45 |........... * DE|
000013C0: 4C 45 54 45 20 4C 50 27 53 20 46 52 4F 4D 20 46 |LETE LP'S FROM F|
000013D0: 49 4C 45 20 2A 00 EC 1B 20 03 97 35 33 32 38 30 |ILE *... ..53280|
000013E0: 2C 36 3A 97 35 33 32 38 31 2C 31 34 00 1F 1C 22 |,6:.53281,14..."|
000013F0: 03 99 22 93 90 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.."..===========|
00001400: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001410: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3B 00 |=============";.|
00001420: 3C 1C 23 03 99 A6 31 32 29 22 05 C4 C5 CC C5 D4 |<.#...12)"......|
00001430: C5 20 20 C1 CE 20 C1 CC C2 D5 CD 22 00 6E 1C 24 |. .. .....".n.$|
00001440: 03 99 22 90 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..".============|
00001450: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001460: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3B 00 AC |============";..|
00001470: 1C 26 03 99 22 C1 52 45 20 59 4F 55 20 53 55 52 |.&..".RE YOU SUR|
00001480: 45 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 44 45 |E YOU WANT TO DE|
00001490: 4C 45 54 45 20 41 4E 20 20 20 20 20 20 41 4C 42 |LETE AN ALB|
000014A0: 55 4D 3F 3F 3F 20 28 D9 2D CE 29 22 00 C9 1C 27 |UM??? (.-.)"...'|
000014B0: 03 A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 |..A$:.A$.."Y".A$|
000014C0: B3 B1 22 4E 22 A7 38 30 37 00 DA 1C 28 03 8B 41 |.."N".807...(..A|
000014D0: 24 B2 22 4E 22 A7 31 30 30 30 00 FF 1C 29 03 99 |$."N".1000...)..|
000014E0: 22 11 C5 4E 54 45 52 20 54 48 45 20 C1 4C 42 55 |"..NTER THE .LBU|
000014F0: 4D 53 20 CE 41 4D 45 20 D0 4C 45 41 53 45 22 00 |MS .AME .LEASE".|
00001500: 07 1D 2A 03 85 52 24 00 20 1D 2B 03 81 49 B2 31 |..*..R$. .+..I.1|
00001510: A4 54 3A 8B 52 24 B2 54 24 28 54 29 A7 38 31 33 |.T:.R$.T$(T).813|
00001520: 00 4B 1D 2C 03 82 3A 99 22 C9 20 C3 41 4E 20 CE |.K.,..:.". .AN .|
00001530: 4F 54 20 C6 49 4E 44 20 D4 48 41 54 20 C1 4C 42 |OT .IND .HAT .LB|
00001540: 55 4D 2E 2E 2E 22 3A 89 38 30 36 00 72 1D 2D 03 |UM...":.806.r.-.|
00001550: 99 22 C6 4F 55 4E 44 20 49 54 20 41 4E 44 20 41 |.".OUND IT AND A|
00001560: 4D 20 4E 4F 57 20 44 45 4C 45 54 49 4E 47 2E 2E |M NOW DELETING..|
00001570: 2E 22 00 80 1D 2E 03 47 B2 49 3A 49 B2 54 3A 82 |.".....G.I:I.T:.|
00001580: 00 8B 1D 2F 03 81 49 B2 47 A4 54 00 9F 1D 30 03 |.../..I.G.T...0.|
00001590: 47 52 24 28 49 29 B2 47 52 24 28 49 AA 31 29 00 |GR$(I).GR$(I.1).|
000015A0: B1 1D 31 03 54 24 28 49 29 B2 54 24 28 49 AA 31 |..1.T$(I).T$(I.1|
000015B0: 29 00 C3 1D 32 03 53 4E 28 49 29 B2 53 4E 28 49 |)...2.SN(I).SN(I|
000015C0: AA 31 29 00 D2 1D 33 03 81 42 B2 31 A4 53 4E 28 |.1)...3..B.1.SN(|
000015D0: 49 29 00 EA 1D 34 03 53 4E 24 28 49 2C 42 29 B2 |I)...4.SN$(I,B).|
000015E0: 53 4E 24 28 49 AA 31 2C 42 29 00 F1 1D 35 03 82 |SN$(I.1,B)...5..|
000015F0: 42 00 10 1E 36 03 81 42 B2 53 4E 28 49 29 A4 32 |B...6..B.SN(I).2|
00001600: 30 3A 53 4E 24 28 49 2C 42 29 B2 22 22 3A 82 42 |0:SN$(I,B)."":.B|
00001610: 00 17 1E 37 03 82 49 00 21 1E 38 03 54 B2 54 AB |...7..I.!.8.T.T.|
00001620: 31 00 3A 1E 39 03 99 22 C4 4F 4E 45 20 C4 45 4C |1.:.9..".ONE .EL|
00001630: 45 54 49 4E 47 2E 2E 2E 11 22 00 43 1E 3A 03 89 |ETING....".C.:..|
00001640: 38 30 36 00 49 1E 82 03 80 00 66 1E 83 03 8F 20 |806.I.....f.... |
00001650: 2A 20 43 52 45 41 54 45 20 41 20 46 49 4C 45 20 |* CREATE A FILE |
00001660: 44 49 53 4B 20 2A 00 7D 1E 84 03 97 35 33 32 38 |DISK *.}....5328|
00001670: 30 2C 36 3A 97 35 33 32 38 31 2C 31 34 00 B0 1E |0,6:.53281,14...|
00001680: 86 03 99 22 93 90 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..."..==========|
00001690: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000016A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3B |==============";|
000016B0: 00 CD 1E 87 03 99 A6 31 32 29 22 05 CD C1 CB C5 |.......12)".....|
000016C0: A0 C1 A0 C6 C9 CC C5 A0 C4 C9 D3 CB 22 00 FF 1E |............"...|
000016D0: 88 03 99 22 90 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |...".===========|
000016E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000016F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3B 00 |=============";.|
00001700: 4C 1F 89 03 99 22 11 CD 41 4B 49 4E 47 20 41 20 |L...."..AKING A |
00001710: 46 49 4C 45 20 44 49 53 4B 20 49 4E 56 4F 4C 56 |FILE DISK INVOLV|
00001720: 45 53 20 45 52 41 53 49 4E 47 20 41 4E 20 20 45 |ES ERASING AN E|
00001730: 4E 54 49 52 45 20 44 49 53 4B 2E 20 20 C4 4F 20 |NTIRE DISK. .O |
00001740: 59 4F 55 20 57 41 4E 54 20 54 22 3B 00 5E 1F 8A |YOU WANT T";.^..|
00001750: 03 99 22 4F 20 44 4F 20 54 48 49 53 3F 22 00 7B |.."O DO THIS?".{|
00001760: 1F 8B 03 A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF |....A$:.A$.."Y".|
00001770: 41 24 B3 B1 22 4E 22 A7 39 30 37 00 8C 1F 8C 03 |A$.."N".907.....|
00001780: 8B 41 24 B2 22 4E 22 A7 31 30 30 30 00 BD 1F 8D |.A$."N".1000....|
00001790: 03 99 22 11 11 05 D0 4C 45 41 53 45 20 49 4E 53 |.."....LEASE INS|
000017A0: 45 52 54 20 41 20 42 4C 41 4E 4B 20 44 49 53 4B |ERT A BLANK DISK|
000017B0: 20 49 4E 54 4F 20 54 48 45 22 3A 8D 31 00 ED 1F | INTO THE":.1...|
000017C0: 8E 03 99 22 44 49 53 4B 20 44 52 49 56 45 20 41 |..."DISK DRIVE A|
000017D0: 4E 44 20 50 52 45 53 53 20 54 48 45 20 42 41 43 |ND PRESS THE BAC|
000017E0: 4B 20 41 52 52 4F 57 20 28 5F 29 2E 22 00 02 20 |K ARROW (_).".. |
000017F0: 8F 03 A1 41 24 3A 8B 41 24 B3 B1 22 5F 22 A7 39 |...A$:.A$.."_".9|
00001800: 31 31 00 30 20 90 03 99 22 11 11 90 C9 54 20 57 |11.0 ..."....T W|
00001810: 49 4C 4C 20 54 41 4B 45 20 41 20 4C 49 54 54 4C |ILL TAKE A LITTL|
00001820: 45 20 57 48 49 4C 45 20 46 4F 52 20 54 48 45 22 |E WHILE FOR THE"|
00001830: 00 4E 20 91 03 99 22 44 49 53 4B 20 54 4F 20 42 |.N ..."DISK TO B|
00001840: 45 20 50 52 45 50 41 52 45 44 2E 2E 2E 22 00 6E |E PREPARED...".n|
00001850: 20 92 03 99 22 11 11 11 05 CD C1 CB C9 CE C7 A0 | ..."...........|
00001860: D4 C8 C5 A0 C6 C9 CC C5 A0 C4 C9 D3 CB 22 00 90 |............."..|
00001870: 20 94 03 9F 31 35 2C 38 2C 31 35 2C 22 4E 30 3A | ...15,8,15,"N0:|
00001880: 52 45 43 4F 52 44 20 46 49 4C 45 53 2C 52 46 22 |RECORD FILES,RF"|
00001890: 00 98 20 95 03 A0 31 35 00 9F 20 96 03 8D 35 00 |.. ...15.. ...5.|
000018A0: CE 20 97 03 99 22 20 28 D0 D2 C5 D3 D3 A0 C1 CE |. ..." (........|
000018B0: D9 A0 CB C5 D9 A0 D4 CF A0 D2 C5 D4 D5 D2 CE A0 |................|
000018C0: D4 CF A0 D4 C8 C5 A0 CD C5 CE D5 2E 29 22 00 E1 |............)"..|
000018D0: 20 98 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 39 32 | ...A$:.A$."".92|
000018E0: 30 00 EB 20 99 03 89 31 30 30 30 00 F1 20 E6 03 |0.. ...1000.. ..|
000018F0: 80 00 05 21 E7 03 8F 20 2A 20 4D 41 49 4E 20 4D |...!... * MAIN M|
00001900: 45 4E 55 20 2A 00 1B 21 E8 03 97 35 33 32 38 30 |ENU *..!...53280|
00001910: 2C 38 3A 97 35 33 32 38 31 2C 30 00 2A 21 E9 03 |,8:.53281,0.*!..|
00001920: 99 C7 28 31 34 29 C7 28 38 29 00 5D 21 EA 03 99 |..(14).(8).]!...|
00001930: 22 81 93 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |"..=============|
00001940: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001950: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3B 00 8D 21 |===========";..!|
00001960: EB 03 99 22 05 20 D2 45 43 4F 52 44 20 C6 49 4E |...". .ECORD .IN|
00001970: 44 45 52 20 2D 20 C1 4E 20 C5 41 53 59 20 D4 4F |DER - .N .ASY .O|
00001980: 20 D5 53 45 20 CC D0 20 C6 49 4C 45 22 00 BF 21 | .SE .. .ILE"..!|
00001990: EC 03 99 22 81 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |...".===========|
000019A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000019B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3B 00 |=============";.|
000019C0: ED 21 ED 03 99 22 11 11 9E D0 CC C5 C1 D3 C5 A0 |.!..."..........|
000019D0: C3 C8 CF CF D3 C5 A0 CF CE C5 A0 CF C6 A0 D4 C8 |................|
000019E0: C5 A0 C6 CF CC CC CF D7 C9 CE C7 3A 22 00 15 22 |...........:".."|
000019F0: EE 03 99 22 11 1D 1D 05 C6 31 9F 20 2D 2D 2D 3E |...".....1. --->|
00001A00: 20 96 C3 52 45 41 54 45 20 C1 20 C6 49 4C 45 20 | ..REATE . .ILE |
00001A10: C4 49 53 4B 22 00 3F 22 EF 03 99 22 11 1D 1D 05 |.ISK".?"..."....|
00001A20: C6 32 9F 20 2D 2D 2D 3E 20 96 C5 4E 54 45 52 20 |.2. ---> ..NTER |
00001A30: CC D0 27 53 20 49 4E 54 4F 20 C6 49 4C 45 22 00 |..'S INTO .ILE".|
00001A40: 6A 22 F0 03 99 22 11 1D 1D 05 C6 33 9F 20 2D 2D |j"...".....3. --|
00001A50: 2D 3E 20 96 C4 45 4C 45 54 45 20 CC D0 27 53 20 |-> ..ELETE ..'S |
00001A60: 46 52 4F 4D 20 C6 49 4C 45 22 00 91 22 F1 03 99 |FROM .ILE".."...|
00001A70: 22 11 1D 1D 05 C6 34 9F 20 2D 2D 2D 3E 20 96 CC |".....4. ---> ..|
00001A80: 4F 4F 4B 20 D4 48 52 4F 55 47 48 20 C6 49 4C 45 |OOK .HROUGH .ILE|
00001A90: 22 00 B8 22 F2 03 99 22 11 1D 1D 05 C6 35 9F 20 |".."...".....5. |
00001AA0: 2D 2D 2D 3E 20 96 D3 41 56 45 20 4F 52 20 CC 4F |---> ..AVE OR .O|
00001AB0: 41 44 20 C6 49 4C 45 22 00 D2 22 F3 03 99 22 11 |AD .ILE".."...".|
00001AC0: 1D 1D 05 C6 37 9F 20 2D 2D 2D 3E 20 96 C8 45 4C |....7. ---> ..EL|
00001AD0: 50 22 00 F5 22 F4 03 99 22 11 1D 05 D2 2F D3 9F |P".."..."..../..|
00001AE0: 20 2D 2D 2D 3E 20 96 C5 58 49 54 20 D4 4F 20 C2 | ---> ..XIT .O .|
00001AF0: 41 53 49 43 22 00 17 23 F5 03 A1 41 24 3A 8B 41 |ASIC"..#...A$:.A|
00001B00: 24 B3 C7 28 31 33 33 29 B0 41 24 B1 C7 28 31 33 |$..(133).A$..(13|
00001B10: 38 29 A7 31 30 31 33 00 27 23 F6 03 41 B2 C6 28 |8).1013.'#..A..(|
00001B20: 41 24 29 AB 31 33 32 00 46 23 F7 03 91 41 89 39 |A$).132.F#...A.9|
00001B30: 30 30 2C 38 30 30 2C 37 30 30 2C 36 30 30 2C 35 |00,800,700,600,5|
00001B40: 30 30 2C 34 30 30 00 50 23 F8 03 89 31 30 31 33 |00,400.P#...1013|
00001B50: 00 73 23 28 23 8F 20 20 4C 49 53 54 20 4F 46 20 |.s#(#. LIST OF |
00001B60: 49 4D 50 4F 52 54 41 4E 54 20 56 41 52 49 41 42 |IMPORTANT VARIAB|
00001B70: 4C 45 53 00 97 23 29 23 8F 20 2D 2D 2D 2D 2D 2D |LES..#)#. ------|
00001B80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001B90: 2D 2D 2D 2D 2D 2D 2D 00 BA 23 2A 23 8F 20 20 20 |-------..#*#. |
00001BA0: 20 20 20 20 20 54 20 2D 2D 2D 20 54 4F 54 41 4C | T --- TOTAL|
00001BB0: 20 4F 46 20 41 4C 42 55 4D 53 00 DB 23 2B 23 8F | OF ALBUMS..#+#.|
00001BC0: 20 20 20 47 52 24 28 49 29 20 2D 2D 2D 20 4E 41 | GR$(I) --- NA|
00001BD0: 4D 45 20 4F 46 20 47 52 4F 55 50 00 FC 23 2C 23 |ME OF GROUP..#,#|
00001BE0: 8F 20 20 20 20 54 24 28 49 29 20 2D 2D 2D 20 4E |. T$(I) --- N|
00001BF0: 41 4D 45 20 4F 46 20 41 4C 42 55 4D 00 1F 24 2D |AME OF ALBUM..$-|
00001C00: 23 8F 20 20 20 20 53 4E 28 49 29 20 2D 2D 2D 20 |#. SN(I) --- |
00001C10: 4E 55 4D 42 45 52 20 4F 46 20 53 4F 4E 47 53 00 |NUMBER OF SONGS.|
00001C20: 3E 24 2E 23 8F 20 53 4E 24 28 49 2C 4A 29 20 2D |>$.#. SN$(I,J) -|
00001C30: 2D 2D 20 53 4F 4E 47 20 54 49 54 4C 45 53 00 62 |-- SONG TITLES.b|
00001C40: 24 2F 23 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |$/#. -----------|
00001C50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001C60: 2D 2D 00 68 24 30 23 8F 00 8A 24 31 23 8F 20 54 |--.h$0#...$1#. T|
00001C70: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 41 53 20 |HIS PROGRAM WAS |
00001C80: 57 52 49 54 54 45 4E 20 42 59 00 9C 24 32 23 8F |WRITTEN BY..$2#.|
00001C90: 20 4A 2E 20 52 45 58 20 42 41 59 53 00 B0 24 33 | J. REX BAYS..$3|
00001CA0: 23 8F 20 52 54 2E 20 33 20 42 4F 58 20 35 32 33 |#. RT. 3 BOX 523|
00001CB0: 00 D0 24 34 23 8F 20 50 4F 4E 43 41 20 43 49 54 |..$4#. PONCA CIT|
00001CC0: 59 2C 20 4F 4B 20 37 34 36 30 31 2D 39 30 33 36 |Y, OK 74601-9036|
00001CD0: 00 D6 24 35 23 8F 00 FA 24 36 23 8F 20 2D 2D 2D |..$5#...$6#. ---|
00001CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 44 25 37 23 8F |----------.D%7#.|
00001D00: 20 50 4C 45 41 53 45 20 47 49 56 45 20 54 48 49 | PLEASE GIVE THI|
00001D10: 53 20 50 52 4F 47 52 41 4D 20 54 4F 20 20 20 20 |S PROGRAM TO |
00001D20: 39 30 31 36 20 52 45 4D 20 45 56 45 52 59 4F 4E |9016 REM EVERYON|
00001D30: 45 20 59 4F 55 20 4B 4E 4F 57 2E 2E 2E 2E 2E 2E |E YOU KNOW......|
00001D40: 2E 2E 2E 2E 00 67 25 38 23 8F 20 49 46 20 59 4F |.....g%8#. IF YO|
00001D50: 55 20 41 44 44 20 54 4F 20 49 54 20 50 4C 45 41 |U ADD TO IT PLEA|
00001D60: 53 45 20 53 45 4E 44 00 89 25 39 23 8F 20 54 48 |SE SEND..%9#. TH|
00001D70: 45 20 4E 45 57 20 56 45 52 53 49 4F 4E 20 54 4F |E NEW VERSION TO|
00001D80: 20 4D 45 2E 2E 2E 2E 2E 2E 00 00 00 2D 2D 2D 2D | ME.........----|
00001D90: 2D 2D 2D 00 BA 23 2A 23 8F 20 20 20 20 20 20 20 |---..#*#. |
00001DA0: 20 54 20 2D 2D 2D 20 54 4F 54 41 4C 20 4F 46 20 | T --- TOTAL OF |
00001DB0: 41 4C 42 55 4D 53 00 DB 23 2B 23 8F 20 20 20 47 |ALBUMS..#+#. G|
00001DC0: 52 24 28 49 |R$(I |
.......:.:.30:.1000.6... 15:.15,8,15:. I
NITIALIZE DISK.C....15,"I0".K... 15.Q...
..U... 15:.15,8,15:. CHECK FOR ERRORS...
...15,A,A$,B,C..... 15:.A.0..".OKAY IT W
ORKED!!":..Z....".FOR SOME REASON THE DI
SK DRIVE REPORTED"......"AN ERROR.":."TR
Y AGAIN..":..!.... SCRATCH ALL FILES ON
DATA DISK.2... 15:.15,8,15.O....15,"S0:T
OTAL OF ALBUMS".L....15,"S0:GROUP AND TI
TLE"......15,"S0:NUMBER OF SONGS"......1
5,"S0:TITLES OF SONGS"..... 15,8,15.....
.......GR$(200),TI$(200),SN(200),SN$(200
,20),A4$(20)...(.....D.."..GROUP NAME.
: "GR$(G)...E..".ALBUM NAME. : "T$(G).B
.F..".SONG TITLES. : ";:.H(SN$(G,1),24):
.I.2.SN(G)...G.." "H(SN$(G,
I),24):....H........"THE FILE IS FULL, E
ITHER START ANOTHER"......"FILE DISK OR
DELETE A FILE..."......"..PRESS ANY KEY
TO RETURN TO THE MAIN MENU".&....A$:.A$.
"".133.0....1000.L.... * LOOK THROUGH FI
LE *.C....53280,0:.53281,11......"..====
====================================";..
.....9)".LOOK THROUGH THE FILE"......".
========================================
."......"DO YOU WANT TO LOOK FOR A".2...
.".S.ONG, .G.ROUP,.A.LL OR .Q.UIT"._....
A$:.A$.."S".A$.."G".A$.."A".A$.."Q".406.
V....A$."A".A$."Q".470......A$."G".450..
...."WHAT SONG ARE YOU LOOKING FOR???"..
....A$.A....I.1.T.P....J.1.SN(I)......A$
.SN$(I,J).415......J,I:."I CAN NOT FIND
THE SONG YOU TYPED IN":.404.4...G.I:I.T:
J.SN(I):.J,I.=. ..100.F.....7)"..(PRESS
ANY KEY TO CONTINUE.)".Y....A$:.A$."".41
8......400...B.."WHAT GROUP ARE YOU LOOK
ING FOR???":.A$...C..I.1.T.M.D..A$.GR$(I
).454...E..I:."I CAN NOT FIND THE GROUP
YOU TYPED IN":.404...F.G.I:I.T:.I...H..1
00.C.I...7)"..(PRESS ANY KEY TO CONTINUE
.)".V.J..A$:.A$."".458._.K..400.E.U...V.
V..A$."Q".1000...W..I.1.T...X.G.I:.100..
.Y...7)"..(PRESS ANY KEY TO CONTINUE.)".
J.Z..A$:.A$."".474.U....:.400...........
. * ENTER LP'S INTO FILE *......53280,6:
.53281,1.C...."..=======================
=================";.E.....9)".ENTER ALBU
MS INTO FILE"......".===================
=====================":.T.199.130.Q...."
ARE YOU SURE YOU WANT TO ENTER AN ALBUM?
"......A$:.A$.."Y".A$.."N".505......A$."
N".1000......"..ENTER THE ALBUM NAME".&.
...A1$.Q....".ENTER THE GROUP OR PERFORM
ERS NAME".Z....A2$.|....".ENTER THE NUMB
ER OF SONGS"......A3:.A3.20.."NO MORE TH
AN 20.":.511.H....A3.1.."NO LESS THAN ON
E.":.511.T....I.1.A3......".ENTER SONG #
";I......A4$(I)......."...."WAS ALL THE
DATA CORRECT (Y/N).?....A$:.A$.."Y".A$..
"N".519.O....A$."N".504.W...T.T.1:GR$(T)
.A2$:T$(T).A1$:SN(T).A3......I.1.SN(T)..
...SN$(T,I).A4$(I). .........."OKAY...".
X...."HIT ANY KEY TO CONTINUE PLEASE..."
......A$:.A$."".528......500...V.....W..
* HELP *...X..53280,5:.53281,0.R.Y.."..
========================================
";.C.Z...18)".HELP"...[..".=============
===========================".E.\.."BEFOR
E ENTERING ANY ALBUMS INTO THE FILE";...
].."YOU WILL NEED TO MAKE A FILE DISK.".
..^.."THEN YOU CAN ENTER YOUR ALBUMS BY"
.@._.."CHOOSING F2 OR ERASE AN ALBUM BY"
.O.`.."CHOOSING F3. TO FIND WHAT ALBUM
A SONG"...A.."IS ON PRESS F4. YOU CAN A
LSO LOOK".E.B.."FOR ALBUMS BY A GROUP OR
LOOK AT ALL"...C.."OF THE ALBUMS ON THE
FILE."...D.."TO SAVE THE FILE OF ALBUMS
YOU HAVE MADE";.E.E.."PRESS F5. NOTE:
YOU MUST LOAD A FILE".T.F.."BEFORE ENTER
ING THE DATA IF YOU WANT TO"...G.."KEEP
THE ALBUMS ALREADY ON FILE."...H.."TO LO
AD THE FILE PRESS F5.."...I..".. (PRESS
ANY KEY TO RETURN TO THE MENU.)"...J..A$
:.A$."".618...K..1000.+.... * SAVE OR LO
AD A FILE *.A....53280,7:.53281,1.T...."
..======================================
==";.......10)".LOAD OR SAVE A FILE".G.
...".===================================
=====";......".ARE YOU SURE YOU WANT TO
USE THE DISK?"...A..A$:.A$.."Y".A$.."N".
705.$.B..A$."N".1000.V.C..".DO YOU WANT
TO .L.OAD OR .S.AVE THE FILE?".S.D..A$:.
A$.."L".A$.."S".708...E..A$."L".750...F.
.1:."WRITING THE NUMBER OF ALBUMS TO THE
DISK":.10...G..2,8,2,"0:TOTAL OF ALBUMS
,S,W"...H..2,T...I. 2./.J..5:.".WRITING
THE ALBUM GROUP AND TITLES TO THE DISK
...":.1.R.K..2,8,2,"0:GROUP AND TITLE,S,
W".].L..I.1.T.K.M..2,GR$(I).X.N..2,T$(I)
.~.O.....P. 2.G.Q..5:.".WRITING THE NUMB
ER OF SONG TITLES TO THE DISK...":.1.
..R..2,8,2,"0:NUMBER OF SONGS,S,W"...S..
I.1.T...T..2,SN(I)...U. 2...V..5:.1.=.W.
."WRITING THE SONG TITLES TO DISK...".`.
X..2,8,2,"0:TITLES OF SONGS,S,W".K.Y..I.
1.T.Z.Z..J.1.SN(I)......2,SN$(I,J)......
J,I..... 2......5:.1.I...."OKAY...EVERYT
HING IS SAVED!!!"......".. (PRESS ANY KE
Y TO RETURN TO THE MENU.)"......A$:.A$."
".737......1000.......O....1:."READING T
HE NUMBER OF ALBUMS FROM DISK.".R....2,8
,2,"0:TOTAL OF ALBUMS,S,R".{....2,T.....
2.D....5:.".READING THE ALBUM GROUP AND
TITLES FROM THE DISK...":.1......2,8,2,
"0:GROUP AND TITLE,S,R"......I.1.T......
2,GR$(I)......2,T$(I)........... 2.\....
5:.".READING THE NUMBER OF SONG TITLES F
ROM THE DISK...":.1.....2,8,2,"0:NUMBE
R OF SONGS,S,R"......I.1.T......2,SN(I).
.... 2......5:.1.T...."READING THE SONG
TITLES FROM DISK..."......2,8,2,"0:TITLE
S OF SONGS,S,R"......I.1.T......J.1.SN(I
).!....2,SN$(I,J).*....J,I.1... 2.;....5
:.1.A...."OKAY...EVERYTHING IS LOADED!!!
"......".. (PRESS ANY KEY TO RETURN TO T
HE MENU.)"......A$:.A$."".777......1000.
......U.... * DELETE LP'S FROM FILE *...
..53280,6:.53281,14...".."..===========
=============================";.<.#...12
)".DELETE AN ALBUM".N.$..".============
============================";...&.."ARE
YOU SURE YOU WANT TO DELETE AN ALB
UM??? (Y-N)".I.'..A$:.A$.."Y".A$.."N".80
7.Z.(..A$."N".1000...)..".ENTER THE ALBU
MS NAME PLEASE"...*..R$. .+..I.1.T:.R$.T
$(T).813.K.,..:."I CAN NOT FIND THAT ALB
UM...":.806.R.-.."FOUND IT AND AM NOW DE
LETING...".....G.I:I.T:..../..I.G.T...0.
GR$(I).GR$(I.1)...1.T$(I).T$(I.1).C.2.SN
(I).SN(I.1).R.3..B.1.SN(I)...4.SN$(I,B).
SN$(I.1,B)...5..B...6..B.SN(I).20:SN$(I,
B)."":.B...7..I.!.8.T.T.1.:.9.."DONE DEL
ETING....".C.:..806.I.....F.... * CREATE
A FILE DISK *.}....53280,6:.53281,14...
..."..==================================
======";.M.....12)".MAKE A FILE DISK"...
...".===================================
=====";.L....".MAKING A FILE DISK INVOLV
ES ERASING AN ENTIRE DISK. DO YOU WANT
T";.^...."O DO THIS?".{....A$:.A$.."Y".
A$.."N".907......A$."N".1000......"...PL
EASE INSERT A BLANK DISK INTO THE":.1...
..."DISK DRIVE AND PRESS THE BACK ARROW
(_).".. ...A$:.A$.."_".911.0 ..."...IT W
ILL TAKE A LITTLE WHILE FOR THE".N ..."D
ISK TO BE PREPARED...".N ..."....MAKING
THE FILE DISK".. ...15,8,15,"N0:RECORD F
ILES,RF".. .. 15.. ...5.N ..." (PRESS AN
Y KEY TO RETURN TO THE MENU.)".. ...A$:.
A$."".920.. ...1000.. .....!... * MAIN M
ENU *..!...53280,8:.53281,0.*!...G(14)G(
8).]!..."..=============================
===========";..!...". RECORD FINDER - AN
EASY TO USE LP FILE"..!...".===========
=============================";..!..."..
.PLEASE CHOOSE ONE OF THE FOLLOWING:".."
..."....F1. ---> .CREATE A FILE DISK".?"
..."....F2. ---> .ENTER LP'S INTO FILE".
J"..."....F3. ---> .DELETE LP'S FROM FIL
E".."..."....F4. ---> .LOOK THROUGH FILE
".."..."....F5. ---> .SAVE OR LOAD FILE"
.R"..."....F7. ---> .HELP".."..."...R/S.
---> .EXIT TO BASIC"..#...A$:.A$.G(133)
.A$.G(138).1013.'#..A.F(A$).132.F#...A.9
00,800,700,600,500,400.P#...1013.S#(#.
LIST OF IMPORTANT VARIABLES..#)#. ------
-----------------------..#*#. T -
-- TOTAL OF ALBUMS..#+#. GR$(I) --- NA
ME OF GROUP..#,#. T$(I) --- NAME OF A
LBUM..$-#. SN(I) --- NUMBER OF SONGS.
>$.#. SN$(I,J) --- SONG TITLES.B$/#. ---
--------------------------.H$0#...$1#. T
HIS PROGRAM WAS WRITTEN BY..$2#. J. REX
BAYS..$3#. RT. 3 BOX 523.P$4#. PONCA CIT
Y, OK 74601-9036.V$5#...$6#. -----------
------------------.D%7#. PLEASE GIVE THI
S PROGRAM TO 9016 REM EVERYONE YOU KN
OW...........G%8#. IF YOU ADD TO IT PLEA
SE SEND..%9#. THE NEW VERSION TO ME.....
....-------..#*#. T --- TOTAL OF
ALBUMS..#+#. GR$(I
> CLICK IMAGE PREVIEW FOR FULL MODAL