1541 UTILITY
FILE INFORMATION
FILENAME(S): 1541 UTILITY
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 18:12:50
APPEARS ON: 1 disk(s)
FILE HASH
281d44cf0ec22c6bb0f5dd23cda270f8d21098142c46ce3b1d12cc3131ede0ce
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | 1541 UTILITY | PRG | Sailor, Ganheden | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 0A 00 8F 20 44 49 53 4B 20 55 54 49 |....... DISK UTI|
00000010: 4C 49 54 59 00 2A 08 14 00 8F 20 42 59 20 4D 41 |LITY.*.... BY MA|
00000020: 52 4B 20 53 57 45 45 4E 45 59 00 4F 08 1E 00 8F |RK SWEENEY.O....|
00000030: 20 53 45 51 20 52 45 41 44 20 52 4F 55 54 49 4E | SEQ READ ROUTIN|
00000040: 45 20 42 59 20 52 41 59 4D 4F 4E 44 20 53 2E 00 |E BY RAYMOND S..|
00000050: 5E 08 28 00 8F 20 31 31 2F 32 33 2F 38 33 00 64 |^.(.. 11/23/83.d|
00000060: 08 32 00 3A 00 85 08 64 00 8F 20 2A 2A 2A 2A 20 |.2.:...d.. **** |
00000070: 20 4F 50 45 4E 49 4E 47 20 53 43 52 45 45 4E 20 | OPENING SCREEN |
00000080: 20 2A 2A 2A 2A 00 8F 08 69 00 99 C7 28 38 29 00 | ****...i...(8).|
00000090: AD 08 6E 00 99 C7 28 31 34 32 29 3A 97 35 33 32 |..n...(142):.532|
000000A0: 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 F1 08 |80,0:.53281,0...|
000000B0: 78 00 99 22 93 05 11 11 11 11 11 11 11 11 11 11 |x.."............|
000000C0: 11 11 11 11 11 11 11 11 11 11 20 20 20 12 20 20 |.......... . |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 22 00 1F 09 82 00 99 22 20 20 20 12 20 20 20 20 |"......" . |
00000100: 20 20 20 20 20 20 20 44 49 53 4B 20 55 54 49 4C | DISK UTIL|
00000110: 49 54 59 20 20 20 20 20 20 20 20 20 20 20 22 00 |ITY ".|
00000120: 4D 09 8C 00 99 22 20 20 20 12 20 20 20 20 20 20 |M...." . |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 5C 09 | ".\.|
00000150: 96 00 99 A3 31 39 29 22 11 42 59 22 00 75 09 A0 |....19)".BY".u..|
00000160: 00 99 A3 31 34 29 22 11 4D 41 52 4B 20 53 57 45 |...14)".MARK SWE|
00000170: 45 4E 45 59 22 00 91 09 AA 00 81 58 B2 31 A4 35 |ENEY"......X.1.5|
00000180: 3A 99 3A 81 54 B2 31 A4 35 30 30 3A 82 54 3A 82 |:.:.T.1.500:.T:.|
00000190: 58 00 B6 09 B4 00 99 A3 39 29 22 50 52 45 53 53 |X.......9)"PRESS|
000001A0: 20 27 52 45 54 55 52 4E 27 20 54 4F 20 42 45 47 | 'RETURN' TO BEG|
000001B0: 49 4E 22 2C 41 24 00 CD 09 BE 00 A1 41 24 3A 8B |IN",A$......A$:.|
000001C0: 41 24 B3 B1 C7 28 31 33 29 A7 31 39 30 00 D3 09 |A$...(13).190...|
000001D0: C8 00 3A 00 EF 09 F4 01 8F 20 2A 2A 2A 2A 20 20 |..:...... **** |
000001E0: 4D 45 4E 55 20 53 55 42 20 20 2A 2A 2A 2A 2A 00 |MENU SUB *****.|
000001F0: F8 09 FE 01 99 22 93 22 00 21 0A 08 02 99 22 11 |.....".".!....".|
00000200: 22 A3 37 29 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |".7)"***********|
00000210: 20 4D 45 4E 55 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | MENU **********|
00000220: 22 00 2B 0A 12 02 99 22 11 11 22 00 47 0A 1C 02 |".+...."..".G...|
00000230: 99 A3 31 33 29 22 31 29 20 44 49 53 4B 20 43 41 |..13)"1) DISK CA|
00000240: 54 41 4C 4F 47 11 22 00 62 0A 26 02 99 A3 31 33 |TALOG.".b.&...13|
00000250: 29 22 32 29 20 44 45 4C 45 54 45 20 46 49 4C 45 |)"2) DELETE FILE|
00000260: 11 22 00 7C 0A 30 02 99 A3 31 33 29 22 33 29 20 |.".|.0...13)"3) |
00000270: 4C 4F 41 44 20 46 49 4C 45 20 11 22 00 99 0A 3A |LOAD FILE ."...:|
00000280: 02 99 A3 31 33 29 22 34 29 20 56 41 4C 49 44 41 |...13)"4) VALIDA|
00000290: 54 45 20 44 49 53 4B 11 22 00 B4 0A 44 02 99 A3 |TE DISK."...D...|
000002A0: 31 33 29 22 35 29 20 46 4F 52 4D 41 54 20 44 49 |13)"5) FORMAT DI|
000002B0: 53 4B 11 22 00 CF 0A 49 02 99 A3 31 33 29 22 36 |SK."...I...13)"6|
000002C0: 29 20 52 45 4E 41 4D 45 20 46 49 4C 45 11 22 00 |) RENAME FILE.".|
000002D0: EC 0A 4A 02 99 A3 31 33 29 22 37 29 20 45 58 49 |..J...13)"7) EXI|
000002E0: 54 20 54 4F 20 42 41 53 49 43 11 22 00 09 0B 4B |T TO BASIC."...K|
000002F0: 02 99 A3 31 33 29 22 38 29 20 52 45 41 44 20 53 |...13)"8) READ S|
00000300: 45 51 20 46 49 4C 45 11 22 00 0F 0B 4E 02 3A 00 |EQ FILE."...N.:.|
00000310: 2D 0B 58 02 8F 20 2A 2A 2A 2A 20 20 4D 45 4E 55 |-.X.. **** MENU|
00000320: 20 53 45 4C 45 43 54 20 20 2A 2A 2A 2A 00 4D 0B | SELECT ****.M.|
00000330: 62 02 99 A3 31 33 29 3A 85 22 45 4E 54 45 52 20 |b...13):."ENTER |
00000340: 53 45 4C 45 43 54 49 4F 4E 3A 22 3B 42 00 5E 0B |SELECTION:";B.^.|
00000350: 6C 02 8B 42 B3 31 B0 42 B1 38 A7 35 30 30 00 8D |l..B.1.B.8.500..|
00000360: 0B 76 02 91 42 89 31 30 30 30 2C 32 30 30 30 2C |.v..B.1000,2000,|
00000370: 33 30 30 30 2C 34 30 30 30 2C 35 30 30 30 2C 36 |3000,4000,5000,6|
00000380: 30 30 30 2C 37 30 30 30 2C 38 30 30 30 00 B0 0B |000,7000,8000...|
00000390: E8 03 8F 20 2A 2A 2A 2A 20 20 44 49 53 4B 20 43 |... **** DISK C|
000003A0: 41 54 41 4C 4F 47 20 53 55 42 20 20 2A 2A 2A 2A |ATALOG SUB ****|
000003B0: 00 B6 0B F2 03 3A 00 E4 0B FC 03 99 22 93 20 20 |.....:......". |
000003C0: 20 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...............|
000003D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003E0: C0 C0 C0 22 00 0B 0C 06 04 99 22 20 20 20 20 20 |..."......" |
000003F0: 42 4C 4F 43 4B 53 20 20 20 20 20 20 20 20 50 52 |BLOCKS PR|
00000400: 4F 47 52 41 4D 20 4E 41 4D 45 22 00 48 0C 10 04 |OGRAM NAME".H...|
00000410: 99 22 20 20 20 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |." ...........|
00000420: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000430: C0 C0 C0 C0 C0 C0 C0 22 3A 8B 44 B2 31 A7 44 B2 |.......":.D.1.D.|
00000440: 30 3A 43 4E B2 30 3A 8E 00 54 0C B0 04 9F 32 2C |0:CN.0:..T....2,|
00000450: 38 2C 31 35 00 64 0C C4 04 9F 31 2C 38 2C 30 2C |8,15.d....1,8,0,|
00000460: 22 24 30 22 00 72 0C CE 04 A1 23 31 2C 41 24 2C |"$0".r....#1,A$,|
00000470: 42 24 00 80 0C D8 04 A1 23 31 2C 41 24 2C 42 24 |B$......#1,A$,B$|
00000480: 00 8E 0C E2 04 A1 23 31 2C 41 24 2C 42 24 00 96 |......#1,A$,B$..|
00000490: 0C EC 04 43 B2 30 00 AD 0C F6 04 8B 20 41 24 B3 |...C.0...... A$.|
000004A0: B1 22 22 20 A7 20 43 B2 C6 28 41 24 29 00 CA 0C |."" . C..(A$)...|
000004B0: 00 05 8B 20 42 24 B3 B1 22 22 20 A7 20 43 B2 43 |... B$.."" . C.C|
000004C0: AA C6 28 42 24 29 AC 32 35 36 00 ED 0C 0A 05 99 |..(B$).256......|
000004D0: A3 36 29 22 28 22 CA 28 C4 28 43 29 2C 32 29 3B |.6)"(".(.(C),2);|
000004E0: 22 29 22 3B A3 31 39 29 3B 22 92 22 3B 00 07 0D |")";.19);".";...|
000004F0: 14 05 A1 23 31 2C 42 24 3A 8B 20 53 54 B3 B1 30 |...#1,B$:. ST..0|
00000500: 20 A7 20 31 33 39 30 00 1E 0D 1E 05 8B 20 42 24 | . 1390...... B$|
00000510: B3 B1 C7 28 33 34 29 20 A7 20 31 33 30 30 00 41 |...(34) . 1300.A|
00000520: 0D 28 05 A1 23 31 2C 42 24 3A 8B 20 42 24 B3 B1 |.(..#1,B$:. B$..|
00000530: C7 28 33 34 29 A7 20 99 42 24 3B 3A 89 31 33 32 |.(34). .B$;:.132|
00000540: 30 00 5E 0D 32 05 A1 23 31 2C 42 24 3A 8B 20 42 |0.^.2..#1,B$:. B|
00000550: 24 B2 C7 28 33 32 29 20 A7 20 31 33 33 30 00 70 |$..(32) . 1330.p|
00000560: 0D 3C 05 99 20 A3 31 38 29 3B 3A 43 24 B2 22 22 |.<.. .18);:C$.""|
00000570: 00 95 0D 46 05 43 24 B2 43 24 AA 42 24 3A A1 23 |...F.C$.C$.B$:.#|
00000580: 31 2C 42 24 3A 8B 20 42 24 B3 B1 22 22 20 20 A7 |1,B$:. B$.."" .|
00000590: 20 31 33 35 30 00 B8 0D 50 05 99 22 20 22 3A 43 | 1350...P.." ":C|
000005A0: 4E B2 43 4E AA 31 3A 8B 43 4E B1 B2 31 35 A7 44 |N.CN.1:.CN..15.D|
000005B0: B2 31 3A 8D 31 30 30 30 00 C1 0D 5A 05 A1 20 54 |.1:.1000...Z.. T|
000005C0: 24 00 D3 0D 64 05 8B 20 53 54 B2 30 20 A7 20 31 |$...d.. ST.0 . 1|
000005D0: 32 34 30 00 E6 0D 6E 05 99 22 42 4C 4F 43 4B 53 |240...n.."BLOCKS|
000005E0: 20 46 52 45 45 22 00 F0 0D 78 05 A0 31 3A A0 32 | FREE"...x..1:.2|
000005F0: 00 1A 0E 82 05 99 22 11 11 20 20 20 20 20 20 20 |......".. |
00000600: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
00000610: 20 43 4F 4E 54 49 4E 55 45 22 00 2E 0E 8C 05 A1 | CONTINUE"......|
00000620: 41 24 3A 8B 41 24 B2 22 22 A7 31 34 32 30 00 3C |A$:.A$."".1420.<|
00000630: 0E 96 05 43 4E B2 30 3A 89 35 30 30 00 5E 0E D0 |...CN.0:.500.^..|
00000640: 07 8F 20 2A 2A 2A 2A 20 20 44 45 4C 45 54 45 20 |.. **** DELETE |
00000650: 46 49 4C 45 20 53 55 42 20 20 2A 2A 2A 2A 00 88 |FILE SUB ****..|
00000660: 0E DA 07 99 22 93 22 3A 99 22 11 11 11 11 22 A3 |....".":."....".|
00000670: 31 30 29 3A 85 22 44 45 4C 45 54 45 20 46 49 4C |10):."DELETE FIL|
00000680: 45 3A 20 22 3B 46 49 24 00 A3 0E E4 07 99 A3 31 |E: ";FI$.......1|
00000690: 30 29 22 11 11 11 44 45 4C 45 54 49 4E 47 20 22 |0)"...DELETING "|
000006A0: 46 49 24 00 B4 0E EE 07 9F 31 35 2C 38 2C 31 35 |FI$......15,8,15|
000006B0: 2C 22 49 22 00 C5 0E F8 07 98 31 35 2C 22 53 30 |,"I"......15,"S0|
000006C0: 3A 22 46 49 24 00 DE 0E 02 08 A0 31 35 3A 81 54 |:"FI$......15:.T|
000006D0: B2 31 A4 35 30 30 3A 82 54 3A 89 35 30 30 00 02 |.1.500:.T:.500..|
000006E0: 0F B8 0B 8F 20 2A 2A 2A 2A 20 20 4C 4F 41 44 20 |.... **** LOAD |
000006F0: 50 52 4F 47 52 41 4D 20 20 53 55 42 20 20 2A 2A |PROGRAM SUB **|
00000700: 2A 2A 00 2A 0F C2 0B 99 22 93 22 3A 99 22 11 11 |**.*....".":."..|
00000710: 11 11 22 A3 31 30 29 3A 85 22 4C 4F 41 44 20 46 |..".10):."LOAD F|
00000720: 49 4C 45 3A 20 22 3B 46 49 24 00 47 0F CC 0B 99 |ILE: ";FI$.G....|
00000730: A3 31 30 29 22 11 11 11 4C 4F 41 44 49 4E 47 20 |.10)"...LOADING |
00000740: 22 46 49 24 22 90 22 00 5A 0F D6 0B 97 36 33 31 |"FI$".".Z....631|
00000750: 2C 31 33 3A 97 31 39 38 2C 31 00 7F 0F E0 0B 99 |,13:.198,1......|
00000760: 22 4C 4F 41 44 22 AA C7 28 33 34 29 AA 46 49 24 |"LOAD"..(34).FI$|
00000770: AA C7 28 33 34 29 AA 22 2C 38 91 91 91 91 22 00 |..(34).",8....".|
00000780: 8A 0F EA 0B 99 22 90 22 3A 80 00 AA 0F A0 0F 8F |.....".":.......|
00000790: 20 2A 2A 2A 2A 20 20 56 41 4C 49 44 41 54 45 20 | **** VALIDATE |
000007A0: 44 49 53 4B 20 20 2A 2A 2A 2A 00 D4 0F AA 0F 99 |DISK ****......|
000007B0: 22 93 22 3A 99 22 11 11 11 11 22 A3 39 29 22 2A |".":."....".9)"*|
000007C0: 2A 2A 2A 20 56 41 4C 49 44 41 54 49 4E 47 20 2A |*** VALIDATING *|
000007D0: 2A 2A 2A 22 00 F0 0F B4 0F 99 22 11 11 11 11 22 |***"......"...."|
000007E0: A3 31 34 29 22 42 45 20 50 41 54 49 45 4E 54 22 |.14)"BE PATIENT"|
000007F0: 00 01 10 BE 0F 9F 31 35 2C 38 2C 31 35 2C 22 56 |......15,8,15,"V|
00000800: 22 00 13 10 C8 0F 81 54 B2 31 A4 33 35 30 30 30 |"......T.1.35000|
00000810: 3A 82 54 00 1C 10 D2 0F 89 35 30 30 00 3E 10 88 |:.T......500.>..|
00000820: 13 8F 20 2A 2A 2A 2A 20 20 46 4F 52 4D 41 54 20 |.. **** FORMAT |
00000830: 44 49 53 4B 20 53 55 42 20 20 2A 2A 2A 2A 00 67 |DISK SUB ****.g|
00000840: 10 92 13 99 22 93 22 3A 99 22 11 11 22 A3 39 29 |....".":."..".9)|
00000850: 22 2A 2A 2A 2A 20 44 49 53 4B 20 46 4F 52 4D 41 |"**** DISK FORMA|
00000860: 54 20 2A 2A 2A 2A 22 00 A6 10 9C 13 99 22 11 11 |T ****"......"..|
00000870: 11 54 48 49 53 20 52 4F 55 54 49 4E 45 20 57 49 |.THIS ROUTINE WI|
00000880: 4C 4C 20 45 52 41 53 45 20 41 4C 4C 20 49 4E 46 |LL ERASE ALL INF|
00000890: 4F 52 4D 41 54 49 4F 4E 20 4F 4E 20 54 48 45 20 |ORMATION ON THE |
000008A0: 44 49 53 4B 2E 22 00 CD 10 A6 13 99 22 11 11 22 |DISK."......".."|
000008B0: A3 38 29 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 |.8)"DO YOU WANT |
000008C0: 54 4F 20 43 4F 4E 54 49 4E 55 45 3F 22 00 E1 10 |TO CONTINUE?"...|
000008D0: B0 13 A1 53 24 3A 8B 53 24 B2 22 22 A7 35 30 34 |...S$:.S$."".504|
000008E0: 30 00 F2 10 BA 13 8B 53 24 B2 22 59 22 A7 35 30 |0......S$."Y".50|
000008F0: 37 30 00 FB 10 C4 13 89 35 30 30 00 18 11 CE 13 |70......500.....|
00000900: 99 A3 38 29 3A 85 22 11 11 11 44 49 53 4B 20 4E |..8):."...DISK N|
00000910: 41 4D 45 22 3B 44 4E 24 00 34 11 D8 13 99 A3 38 |AME";DN$.4.....8|
00000920: 29 3A 85 22 11 11 44 49 53 4B 20 49 44 23 20 22 |):."..DISK ID# "|
00000930: 3B 49 44 24 00 45 11 E2 13 9F 31 35 2C 38 2C 31 |;ID$.E....15,8,1|
00000940: 35 2C 22 49 22 00 5C 11 EC 13 98 31 35 2C 22 4E |5,"I".\....15,"N|
00000950: 30 3A 22 44 4E 24 22 2C 22 49 44 24 00 6E 11 F6 |0:"DN$","ID$.n..|
00000960: 13 81 54 B2 31 A4 34 35 30 30 30 3A 82 54 00 77 |..T.1.45000:.T.w|
00000970: 11 00 14 89 35 30 30 00 94 11 70 17 8F 20 2A 2A |....500...p.. **|
00000980: 2A 2A 20 20 52 45 4E 41 4D 45 20 53 55 42 20 20 |** RENAME SUB |
00000990: 2A 2A 2A 2A 00 BA 11 7A 17 99 22 93 11 11 22 A3 |****...z.."...".|
000009A0: 39 29 3A 85 22 52 45 4E 41 4D 45 20 50 52 4F 47 |9):."RENAME PROG|
000009B0: 52 41 4D 3A 20 22 3B 45 4E 24 00 D9 11 84 17 99 |RAM: ";EN$......|
000009C0: 22 11 11 22 A3 39 29 3A 85 22 4E 45 57 20 4E 41 |"..".9):."NEW NA|
000009D0: 4D 45 3A 20 22 3B 4E 4E 24 00 EA 11 8E 17 9F 31 |ME: ";NN$......1|
000009E0: 35 2C 38 2C 31 35 2C 22 49 22 00 01 12 98 17 98 |5,8,15,"I"......|
000009F0: 31 35 2C 22 52 30 3A 22 4E 4E 24 22 3D 22 45 4E |15,"R0:"NN$"="EN|
00000A00: 24 00 0E 12 A2 17 A0 31 35 3A 89 35 30 30 00 32 |$......15:.500.2|
00000A10: 12 58 1B 8F 20 2A 2A 2A 2A 20 20 45 58 49 54 20 |.X.. **** EXIT |
00000A20: 54 4F 20 42 41 53 49 43 20 53 55 42 20 20 2A 2A |TO BASIC SUB **|
00000A30: 2A 2A 00 38 12 62 1B 3A 00 43 12 6C 1B 99 22 93 |**.8.b.:.C.l..".|
00000A40: 11 11 22 00 60 12 76 1B 99 A3 31 30 29 22 4E 45 |..".`.v...10)"NE|
00000A50: 57 20 50 52 4F 47 52 41 4D 20 28 59 2F 4E 29 22 |W PROGRAM (Y/N)"|
00000A60: 00 74 12 7B 1B A1 41 24 3A 8B 41 24 B2 22 22 A7 |.t.{..A$:.A$."".|
00000A70: 37 30 33 35 00 88 12 80 1B 8B 41 24 B3 B1 22 4E |7035......A$.."N|
00000A80: 22 A7 9E 36 34 37 33 38 00 93 12 8A 1B 99 22 93 |"..64738......".|
00000A90: 22 3A 80 00 B2 12 40 1F 8F 20 2A 2A 2A 2A 20 20 |":....@.. **** |
00000AA0: 53 45 51 20 52 45 41 44 20 53 55 42 20 20 2A 2A |SEQ READ SUB **|
00000AB0: 2A 2A 00 D5 12 45 1F 99 22 05 93 11 11 22 A3 31 |**...E.."....".1|
00000AC0: 30 29 22 12 D3 C5 D1 A0 D2 C5 C1 C4 A0 D2 CF D5 |0)".............|
00000AD0: D4 C9 CE C5 22 00 F2 12 4A 1F 52 24 B2 C7 28 31 |...."...J.R$..(1|
00000AE0: 33 29 3A 97 35 33 32 38 31 2C 30 3A 99 C7 28 31 |3):.53281,0:..(1|
00000AF0: 34 29 00 35 13 54 1F 99 22 11 11 D0 4C 45 41 53 |4).5.T.."...LEAS|
00000B00: 45 20 45 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D |E ENTER FILE NAM|
00000B10: 45 2C 20 4F 52 20 3C 52 45 54 55 52 4E 3E 20 46 |E, OR <RETURN> F|
00000B20: 4F 52 22 3A 99 22 27 4C 49 53 54 49 4E 47 27 22 |OR":."'LISTING'"|
00000B30: 3A 85 20 42 24 00 63 13 5E 1F 54 24 B2 22 20 20 |:. B$.c.^.T$." |
00000B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00000B50: 8B 42 24 B2 22 22 A7 42 24 B2 22 4C 49 53 54 49 |.B$."".B$."LISTI|
00000B60: 4E 47 22 00 9C 13 68 1F 99 22 93 11 11 11 11 22 |NG"...h.."....."|
00000B70: 54 24 22 CF D0 D4 C9 CF CE D3 3A 22 3A 99 54 24 |T$".......:":.T$|
00000B80: 22 11 11 3C D3 3E 43 52 45 45 4E 22 3A 99 54 24 |"..<.>CREEN":.T$|
00000B90: 22 11 3C D0 3E 52 49 4E 54 45 52 22 00 BA 13 72 |".<.>RINTER"...r|
00000BA0: 1F 99 54 24 22 11 3C C8 3E 45 4C 50 22 3A 99 54 |..T$".<.>ELP":.T|
00000BB0: 24 22 11 3C D1 3E 55 49 54 22 00 CE 13 7C 1F A1 |$".<.>UIT"...|..|
00000BC0: 47 24 3A 8B 47 24 B2 22 22 A7 38 30 36 30 00 DF |G$:.G$."".8060..|
00000BD0: 13 86 1F 8B 47 24 B2 22 51 22 A7 38 34 34 30 00 |....G$."Q".8440.|
00000BE0: F0 13 90 1F 8B 47 24 B2 22 53 22 89 38 31 32 30 |.....G$."S".8120|
00000BF0: 00 01 14 9A 1F 8B 47 24 B2 22 3F 22 A7 38 33 31 |......G$."?".831|
00000C00: 30 00 13 14 A4 1F 8B 47 24 B3 B1 22 50 22 A7 38 |0......G$.."P".8|
00000C10: 30 36 30 00 22 14 AE 1F 9F 31 2C 34 2C 37 3A 51 |060."....1,4,7:Q|
00000C20: B2 31 00 3D 14 B8 1F 9F 35 2C 38 2C 35 2C 42 24 |.1.=....5,8,5,B$|
00000C30: AA 22 2C 53 2C 52 22 3A 8D 38 32 38 30 00 74 14 |.",S,R":.8280.t.|
00000C40: C2 1F 99 22 93 11 D0 52 45 53 53 20 41 4E 59 20 |..."...RESS ANY |
00000C50: 4B 45 59 20 54 4F 20 50 41 55 53 45 2C 22 3A 99 |KEY TO PAUSE,":.|
00000C60: 22 50 52 45 53 53 20 41 47 41 49 4E 20 54 4F 20 |"PRESS AGAIN TO |
00000C70: 43 4F 22 3B 00 99 14 CC 1F 99 22 4E 54 49 4E 55 |CO";......"NTINU|
00000C80: 45 2E 22 3A 99 22 27 51 27 20 45 4E 44 53 20 50 |E.":."'Q' ENDS P|
00000C90: 52 4F 47 52 41 4D 22 52 24 00 A4 14 D6 1F A1 23 |ROGRAM"R$......#|
00000CA0: 35 2C 46 24 00 B3 14 E0 1F 8B 53 54 B2 30 A7 38 |5,F$......ST.0.8|
00000CB0: 31 38 30 00 C3 14 EA 1F 8B 53 54 B2 36 34 A7 38 |180......ST.64.8|
00000CC0: 32 37 30 00 D8 14 F4 1F 8B 51 B3 B1 31 A7 99 46 |270......Q..1..F|
00000CD0: 24 3B 3A 89 38 32 30 30 00 E3 14 FE 1F 98 31 2C |$;:.8200......1,|
00000CE0: 46 24 3B 00 EB 14 08 20 A1 41 24 00 FD 14 12 20 |F$;.... .A$.... |
00000CF0: 8B 41 24 B3 B1 22 22 A7 8D 38 32 33 30 00 07 15 |.A$..""..8230...|
00000D00: 1C 20 89 38 31 35 30 00 18 15 26 20 8B 41 24 B2 |. .8150...& .A$.|
00000D10: 22 51 22 A7 38 34 31 30 00 2C 15 30 20 A1 41 24 |"Q".8410.,.0 .A$|
00000D20: 3A 8B 41 24 B2 22 22 A7 38 32 34 30 00 3D 15 3A |:.A$."".8240.=.:|
00000D30: 20 8B 41 24 B2 22 51 22 A7 38 34 31 30 00 43 15 | .A$."Q".8410.C.|
00000D40: 44 20 8E 00 4D 15 4E 20 89 38 34 31 30 00 6B 15 |D ..M.N .8410.k.|
00000D50: 58 20 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 3A 84 |X .15:.15,8,15:.|
00000D60: 31 35 2C 44 2C 45 24 2C 46 2C 47 00 A9 15 62 20 |15,D,E$,F,G...b |
00000D70: 8B 44 B1 30 A7 99 22 11 D4 48 45 52 45 20 49 53 |.D.0.."..HERE IS|
00000D80: 20 41 20 46 49 4C 45 20 41 43 43 45 53 53 20 50 | A FILE ACCESS P|
00000D90: 52 4F 42 4C 45 4D 3A 22 52 24 3B 44 3B 45 24 3A |ROBLEM:"R$;D;E$:|
00000DA0: A0 31 35 3A 89 38 34 31 30 00 AF 15 6C 20 8E 00 |.15:.8410...l ..|
00000DB0: F5 15 76 20 99 22 93 11 11 D4 48 49 53 20 50 52 |..v ."....HIS PR|
00000DC0: 4F 47 52 41 4D 20 49 53 20 41 20 44 49 53 4B 20 |OGRAM IS A DISK |
00000DD0: 46 49 4C 45 20 52 45 41 44 20 50 52 4F 47 52 41 |FILE READ PROGRA|
00000DE0: 4D 22 52 24 22 49 54 20 57 49 4C 4C 20 52 45 41 |M"R$"IT WILL REA|
00000DF0: 44 20 41 22 3B 00 42 16 80 20 99 22 4E 59 20 12 |D A";.B.. ."NY .|
00000E00: 53 45 51 55 45 4E 54 49 41 4C 92 20 46 49 4C 45 |SEQUENTIAL. FILE|
00000E10: 20 4F 4E 20 41 4E 59 22 52 24 22 44 49 53 4B 20 | ON ANY"R$"DISK |
00000E20: 46 4F 52 4D 41 54 54 45 44 20 46 4F 52 20 54 48 |FORMATTED FOR TH|
00000E30: 45 20 43 2D 36 34 20 4F 52 20 56 49 43 2D 32 30 |E C-64 OR VIC-20|
00000E40: 2E 22 00 91 16 8A 20 99 52 24 22 54 4F 20 55 53 |.".... .R$"TO US|
00000E50: 45 2C 20 53 49 4D 50 4C 59 20 54 59 50 45 20 49 |E, SIMPLY TYPE I|
00000E60: 4E 20 54 48 45 20 4E 41 4D 45 20 4F 46 20 54 48 |N THE NAME OF TH|
00000E70: 45 22 52 24 22 46 49 4C 45 20 59 4F 55 20 57 49 |E"R$"FILE YOU WI|
00000E80: 53 48 20 54 4F 20 53 45 45 2E 20 54 48 45 4E 22 |SH TO SEE. THEN"|
00000E90: 3B 00 DF 16 94 20 99 22 20 43 48 4F 4F 53 45 22 |;.... ." CHOOSE"|
00000EA0: 52 24 22 57 48 45 54 48 45 52 20 59 4F 55 20 57 |R$"WHETHER YOU W|
00000EB0: 41 4E 54 20 54 48 45 20 46 49 4C 45 20 53 45 4E |ANT THE FILE SEN|
00000EC0: 54 20 54 4F 20 54 48 45 22 52 24 22 50 52 49 4E |T TO THE"R$"PRIN|
00000ED0: 54 45 52 20 4F 52 20 53 43 52 45 45 4E 2E 22 00 |TER OR SCREEN.".|
00000EE0: 2E 17 9E 20 99 52 24 52 24 22 57 48 49 4C 45 20 |... .R$R$"WHILE |
00000EF0: 54 48 45 20 46 49 4C 45 20 49 53 20 42 45 49 4E |THE FILE IS BEIN|
00000F00: 47 20 53 48 4F 57 4E 2C 20 59 4F 55 20 4D 41 59 |G SHOWN, YOU MAY|
00000F10: 22 52 24 22 50 52 45 53 53 20 41 4E 59 20 4B 45 |"R$"PRESS ANY KE|
00000F20: 59 20 28 45 58 43 45 50 54 20 27 51 22 3B 00 7D |Y (EXCEPT 'Q";.}|
00000F30: 17 A8 20 99 22 27 29 20 54 4F 20 46 52 45 45 5A |.. ."') TO FREEZ|
00000F40: 45 20 54 48 45 20 44 49 53 50 4C 41 59 20 28 4F |E THE DISPLAY (O|
00000F50: 52 20 50 52 49 4E 54 45 52 29 2E 22 52 24 22 50 |R PRINTER)."R$"P|
00000F60: 52 45 53 53 49 4E 47 20 27 51 27 20 57 49 4C 4C |RESSING 'Q' WILL|
00000F70: 20 45 4E 44 20 54 48 45 20 50 52 22 3B 00 8B 17 | END THE PR";...|
00000F80: B2 20 99 22 4F 47 52 41 4D 2E 22 00 B1 17 BC 20 |. ."OGRAM.".... |
00000F90: 99 22 11 11 11 12 50 52 45 53 53 20 41 4E 59 20 |."....PRESS ANY |
00000FA0: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 |KEY TO CONTINUE.|
00000FB0: 22 00 C5 17 C6 20 A1 41 24 3A 8B 41 24 B2 22 22 |".... .A$:.A$.""|
00000FC0: A7 38 33 39 30 00 CF 17 D0 20 89 38 30 34 30 00 |.8390.... .8040.|
00000FD0: 0E 18 DA 20 51 B2 30 3A A0 31 3A A0 35 3A 99 52 |... Q.0:.1:.5:.R|
00000FE0: 24 22 11 C4 4F 20 59 4F 55 20 57 49 53 48 20 54 |$"..O YOU WISH T|
00000FF0: 4F 20 52 45 41 44 22 52 24 22 41 4E 4F 54 48 45 |O READ"R$"ANOTHE|
00001000: 52 20 46 49 4C 45 20 28 59 2F 4E 29 3F 22 00 22 |R FILE (Y/N)?"."|
00001010: 18 E4 20 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 34 |.. .A$:.A$."".84|
00001020: 32 30 00 42 18 EE 20 8B 41 24 B2 22 59 22 A7 99 |20.B.. .A$."Y"..|
00001030: C7 28 31 34 37 29 3A 42 24 B2 22 22 3A 89 38 30 |.(147):B$."":.80|
00001040: 32 30 00 57 18 F8 20 99 C7 28 31 34 32 29 22 09 |20.W.. ..(142)".|
00001050: 91 22 3A 89 35 30 30 00 00 00 |.":.500... |
....... DISK UTILITY.*.... BY MARK SWEEN
EY.O.... SEQ READ ROUTINE BY RAYMOND S..
^.(.. 11/23/83.D.2.:...D.. **** OPENING
SCREEN ****...I..G(8)...N..G(142):.532
80,0:.53281,0...X.."....................
.. .
"......" . DISK UTILITY
".M...." .
".\.....19)".BY".U. ...14)".
MARK SWEENEY"......X.1.5:.:.T.1.500:.T:.
X.......9)"PRESS 'RETURN' TO BEGIN",A$.M
....A$:.A$..G(13).190.S.H.:...... ****
MENU SUB *****......".".!....".".7)"***
******** MENU **********".+...."..".G...
..13)"1) DISK CATALOG.".B.&...13)"2) DEL
ETE FILE.".|.0...13)"3) LOAD FILE ."...:
...13)"4) VALIDATE DISK."...D...13)"5) F
ORMAT DISK.".O.I...13)"6) RENAME FILE.".
..J...13)"7) EXIT TO BASIC."...K...13)"8
) READ SEQ FILE."...N.:.-.X.. **** MENU
SELECT ****.M.B...13):."ENTER SELECTIO
N:";B.^.L..B.1.B.8.500...V..B.1000,2000,
3000,4000,5000,6000,7000,8000...... ****
DISK CATALOG SUB ****.....:......".
.................................."....
.." BLOCKS PROGRAM NAME".H...
." .................................."
:.D.1.D.0:CN.0:..T....2,8,15.D.D..1,8,0,
"$0".R.N..#1,A$,B$...X..#1,A$,B$......#1
,A$,B$.....C.0...... A$.."" . C.F(A$).J.
... B$.."" . C.C.F(B$).256.......6)"("J(
D(C),2);")";.19);".";......#1,B$:. ST..0
. 1390...... B$..G(34) . 1300.A.(..#1,B
$:. B$..G(34). .B$;:.1320.^.2..#1,B$:. B
$.G(32) . 1330.P.<.. .18);:C$.""...F.C$.
C$.B$:.#1,B$:. B$.."" . 1350...P.." ":C
N.CN.1:.CN..15.D.1:.1000.A.Z.. T$.S.D..
ST.0 . 1240...N.."BLOCKS FREE"...X. 1: 2
......".. PRESS ANY KEY TO CONTINU
E"......A$:.A$."".1420.<...CN.0:.500.^.P
.. **** DELETE FILE SUB ****...Z..".":
."....".10):."DELETE FILE: ";FI$.......1
0)"...DELETING "FI$......15,8,15,"I".E..
..15,"S0:"FI$..... 15:.T.1.500:.T:.500..
.... **** LOAD PROGRAM SUB ****.*.B..
".":."....".10):."LOAD FILE: ";FI$.G.L..
.10)"...LOADING "FI$".".Z.V..631,13:.198
,1....."LOAD".G(34).FI$.G(34).",8....".
.....".":.... .. **** VALIDATE DISK **
**.T....".":."....".9)"**** VALIDATING *
***"......"....".14)"BE PATIENT"......15
,8,15,"V"...H..T.1.35000:.T...R..500.>..
.. **** FORMAT DISK SUB ****.G....".":
."..".9)"**** DISK FORMAT ****"......"..
.THIS ROUTINE WILL ERASE ALL INFORMATION
ON THE DISK.".M...."..".8)"DO YOU WANT
TO CONTINUE?"......S$:.S$."".5040......S
$."Y".5070...D..500...N...8):."...DISK N
AME";DN$.4.X...8):."..DISK ID# ";ID$.E..
..15,8,15,"I".\....15,"N0:"DN$","ID$.N..
..T.1.45000:.T.W....500...P.. **** RENA
ME SUB ****...Z.."...".9):."RENAME PROG
RAM: ";EN$.Y...."..".9):."NEW NAME: ";NN
$......15,8,15,"I"......15,"R0:"NN$"="EN
$..... 15:.500.2.X.. **** EXIT TO BASIC
SUB ****.8.B.:.C.L.."...".`.V...10)"NE
W PROGRAM (Y/N)".T.{..A$:.A$."".7035....
..A$.."N"..64738......".":....@.. ****
SEQ READ SUB ****.U.E.."....".10)".SEQ
READ ROUTINE"...J.R$.G(13):.53281,0:.G(1
4).5.T.."..PLEASE ENTER FILE NAME, OR <R
ETURN> FOR":."'LISTING'":. B$.C.^.T$."
":.B$."".B$."LISTING"...H.
."....."T$"OPTIONS:":.T$"..<S>CREEN":.T$
".<P>RINTER"...R..T$".<H>ELP":.T$".<Q>UI
T".N.|..G$:.G$."".8060......G$."Q".8440.
.....G$."S".8120......G$."?".8310......G
$.."P".8060."....1,4,7:Q.1.=....5,8,5,B$
.",S,R":.8280.T.B.."..PRESS ANY KEY TO P
AUSE,":."PRESS AGAIN TO CO";...L.."NTINU
E.":."'Q' ENDS PROGRAM"R$...V..#5,F$....
..ST.0.8180.C....ST.64.8270.X....Q..1..F
$;:.8200......1,F$;.... .A$.... .A$.."".
.8230.... .8150...& .A$."Q".8410.,.0 .A$
:.A$."".8240.=.: .A$."Q".8410.C.D ..M.N
.8410.K.X 15:.15,8,15:.15,D,E$,F,G...B
.D.0..".THERE IS A FILE ACCESS PROBLEM:"
R$;D;E$: 15:.8410...L ....V ."...THIS PR
OGRAM IS A DISK FILE READ PROGRAM"R$"IT
WILL READ A";.B.. ."NY .SEQUENTIAL. FILE
ON ANY"R$"DISK FORMATTED FOR THE C-64 O
R VIC-20.".... .R$"TO USE, SIMPLY TYPE I
N THE NAME OF THE"R$"FILE YOU WISH TO SE
E. THEN";.... ." CHOOSE"R$"WHETHER YOU W
ANT THE FILE SENT TO THE"R$"PRINTER OR S
CREEN.".... .R$R$"WHILE THE FILE IS BEIN
G SHOWN, YOU MAY"R$"PRESS ANY KEY (EXCEP
T 'Q";.}.. ."') TO FREEZE THE DISPLAY (O
R PRINTER)."R$"PRESSING 'Q' WILL END THE
PR";.... ."OGRAM.".... ."....PRESS ANY
KEY TO CONTINUE.".E.F .A$:.A$."".8390.O.
P .8040...Z Q.0: 1: 5:.R$".DO YOU WISH T
O READ"R$"ANOTHER FILE (Y/N)?".".. .A$:.
A$."".8420.B.. .A$."Y"..G(147):B$."":.80
20.W.. .G(142)"..":.500...
> CLICK IMAGE PREVIEW FOR FULL MODAL