DOS
FILE INFORMATION
FILENAME(S): DOS
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-11-30 21:23:45
APPEARS ON: 1 disk(s)
FILE HASH
37b8e1fa6a2bff25b1e222fe098b911160150bd9b3a9658961b26b776c59835a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 25 1 | DOS | PRG | DuncanTwain | 21 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 99 22 93 22 3A 97 35 33 32 38 |..(....".":.5328|
00000010: 30 2C 30 3A 97 35 33 32 38 31 2C 31 3A 86 41 45 |0,0:.53281,1:.AE|
00000020: 24 28 32 30 30 29 3A 99 00 3A 08 14 00 99 A3 31 |$(200):..:.....1|
00000030: 30 29 3B 22 1F 12 A9 20 20 22 00 50 08 19 00 99 |0);"... ".P....|
00000040: A3 31 30 29 3B 22 12 20 92 20 20 12 20 92 A9 22 |.10);". . . .."|
00000050: 00 73 08 1E 00 99 A3 31 30 29 3B 22 12 20 92 20 |.s.....10);". . |
00000060: 20 12 20 DF 92 4F 4D 4D 4F 44 4F 52 45 20 C3 20 | . ..OMMODORE . |
00000070: 36 34 22 00 84 08 23 00 99 A3 31 30 29 3B 22 DF |64"...#...10);".|
00000080: 12 20 20 22 00 94 08 28 00 81 41 B2 31 A4 33 3A |. "...(..A.1.3:|
00000090: 99 3A 82 41 00 A8 08 2D 00 99 A3 37 29 3B 22 1C |.:.A...-...7);".|
000000A0: 44 20 49 20 53 20 4B 22 00 C8 08 32 00 99 A3 31 |D I S K"...2...1|
000000B0: 31 29 3B 22 11 1C 4F 20 50 20 45 20 52 20 41 20 |1);"..O P E R A |
000000C0: 54 20 49 20 4E 20 47 22 00 E3 08 37 00 99 A3 32 |T I N G"...7...2|
000000D0: 31 29 3B 22 11 1C 20 53 20 59 20 53 20 54 20 45 |1);".. S Y S T E|
000000E0: 20 4D 22 00 F3 08 3C 00 81 41 B2 31 A4 34 3A 99 | M"...<..A.1.4:.|
000000F0: 3A 82 41 00 18 09 46 00 99 A3 38 29 3B 22 1F 44 |:.A...F...8);".D|
00000100: 45 53 49 47 4E 45 44 20 42 59 2E 2E 2E 42 4F 42 |ESIGNED BY...BOB|
00000110: 20 4C 4C 4F 52 45 54 22 00 3A 09 50 00 99 A3 31 | LLORET".:.P...1|
00000120: 31 29 22 11 9C 43 4F 50 59 52 49 47 48 54 20 90 |1)"..COPYRIGHT .|
00000130: 28 43 29 20 9C 31 39 38 34 22 00 4B 09 5A 00 81 |(C) .1984".K.Z..|
00000140: 44 B2 31 A4 32 35 30 30 3A 82 44 00 66 09 64 00 |D.1.2500:.D.f.d.|
00000150: 99 22 93 22 3A 97 35 33 32 38 30 2C 30 3A 97 35 |.".":.53280,0:.5|
00000160: 33 32 38 31 2C 36 00 9A 09 6E 00 99 22 05 11 20 |3281,6...n..".. |
00000170: D5 C3 C3 C3 C3 12 20 44 49 53 4B 20 4F 50 45 52 |...... DISK OPER|
00000180: 41 54 49 4E 47 20 53 59 53 54 45 4D 20 56 33 2E |ATING SYSTEM V3.|
00000190: 30 20 92 C3 C3 C3 C3 C9 20 22 00 AD 09 73 00 99 |0 ...... "...s..|
000001A0: 22 91 20 C2 22 3B A6 33 36 29 22 C2 22 00 BF 09 |". .";.36)"."...|
000001B0: 74 00 99 22 20 C2 22 3B A6 33 36 29 22 C2 22 00 |t.." .";.36)".".|
000001C0: F2 09 78 00 99 22 20 C2 20 12 5B 31 5D 92 20 46 |..x.." . .[1]. F|
000001D0: 4F 52 4D 41 54 20 44 49 53 4B 20 20 20 20 20 20 |ORMAT DISK |
000001E0: 12 5B 34 5D 92 20 45 52 41 53 45 20 50 52 47 20 |.[4]. ERASE PRG |
000001F0: C2 22 00 04 0A 7D 00 99 22 20 C2 22 3B A3 33 38 |."...}.." .";.38|
00000200: 29 22 C2 22 00 37 0A 82 00 99 22 20 C2 20 12 5B |)".".7...." . .[|
00000210: 32 5D 92 20 52 45 4E 41 4D 45 20 46 49 4C 45 20 |2]. RENAME FILE |
00000220: 20 20 20 20 20 12 5B 35 5D 92 20 57 52 49 54 45 | .[5]. WRITE|
00000230: 20 44 4F 53 20 C2 22 00 49 0A 87 00 99 22 20 C2 | DOS .".I...." .|
00000240: 22 3B A3 33 38 29 22 C2 22 00 7C 0A 8C 00 99 22 |";.38)".".|...."|
00000250: 20 C2 20 12 5B 33 5D 92 20 56 41 4C 49 44 41 54 | . .[3]. VALIDAT|
00000260: 45 20 44 49 53 4B 20 20 20 20 12 5B 36 5D 92 20 |E DISK .[6]. |
00000270: 44 49 52 45 43 54 4F 52 59 20 C2 22 00 8E 0A 8D |DIRECTORY ."....|
00000280: 00 99 22 20 C2 22 3B A3 33 38 29 22 C2 22 00 BF |.." .";.38)"."..|
00000290: 0A 8E 00 99 22 20 C2 20 20 20 20 20 20 20 20 20 |...." . |
000002A0: 20 12 5B 37 5D 92 20 48 45 4C 50 20 53 43 52 45 | .[7]. HELP SCRE|
000002B0: 45 4E 20 20 20 20 20 20 20 20 20 20 20 C2 22 00 |EN .".|
000002C0: DB 0A 91 00 81 41 B2 31 A4 31 3A 99 22 20 C2 22 |.....A.1.1:." ."|
000002D0: 3B A3 33 38 29 22 C2 22 3A 82 41 00 10 0B 96 00 |;.38)".":.A.....|
000002E0: 99 22 20 CA C3 C3 C3 C3 C3 C3 C3 C3 3E 59 4F 55 |." .........>YOU|
000002F0: 52 20 43 48 4F 49 43 45 20 3F 12 5B 31 2D 37 5D |R CHOICE ?.[1-7]|
00000300: 92 3C C3 C3 C3 C3 C3 C3 C3 C3 CB 22 3A 99 3A 99 |.<.........":.:.|
00000310: 00 25 0B A0 00 A1 41 4E 24 3A 8B 41 4E 24 B2 22 |.%....AN$:.AN$."|
00000320: 22 A7 31 36 30 00 33 0B AA 00 41 4E B2 C5 28 41 |".160.3...AN..(A|
00000330: 4E 24 29 00 46 0B B4 00 8B 41 4E B3 31 B0 41 4E |N$).F....AN.1.AN|
00000340: B1 37 A7 31 36 30 00 6B 0B BE 00 91 41 4E 89 32 |.7.160.k....AN.2|
00000350: 30 30 2C 33 30 30 2C 34 30 30 2C 35 30 30 2C 36 |00,300,400,500,6|
00000360: 30 30 2C 37 30 30 2C 31 32 30 30 00 71 0B C6 00 |00,700,1200.q...|
00000370: 8F 00 77 0B C7 00 8F 00 AE 0B C8 00 99 A3 38 29 |..w...........8)|
00000380: 3B 22 12 45 4E 54 45 52 20 44 49 53 4B 20 4E 41 |;".ENTER DISK NA|
00000390: 4D 45 20 28 31 36 20 43 48 52 29 22 3A 85 22 1D |ME (16 CHR)":.".|
000003A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 4E 41 24 00 E8 |.........";NA$..|
000003B0: 0B D2 00 99 A3 31 30 29 3B 22 12 45 4E 54 45 52 |.....10);".ENTER|
000003C0: 20 44 49 53 4B 20 49 44 20 28 32 20 43 48 52 29 | DISK ID (2 CHR)|
000003D0: 22 3A 85 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |":."............|
000003E0: 1D 1D 1D 22 3B 49 44 24 00 04 0C DC 00 4E 41 24 |...";ID$.....NA$|
000003F0: B2 22 4E 45 57 30 3A 22 AA 4E 41 24 AA 22 2C 22 |."NEW0:".NA$.","|
00000400: AA 49 44 24 00 28 0C E6 00 99 A3 31 30 29 3B 22 |.ID$.(.....10);"|
00000410: 90 12 20 41 52 45 20 59 4F 55 20 53 55 52 45 20 |.. ARE YOU SURE |
00000420: 28 59 2F 4E 29 20 3F 22 00 3D 0C F0 00 A1 41 4E |(Y/N) ?".=....AN|
00000430: 24 3A 8B 41 4E 24 B2 22 22 A7 32 34 30 00 4E 0C |$:.AN$."".240.N.|
00000440: FA 00 8B 41 4E 24 B2 22 59 22 A7 32 38 30 00 5F |...AN$."Y".280._|
00000450: 0C 04 01 8B 41 4E 24 B2 22 4E 22 A7 31 30 30 00 |....AN$."N".100.|
00000460: 7A 0C 0E 01 8B 41 4E 24 B3 B1 22 59 22 B0 41 4E |z....AN$.."Y".AN|
00000470: 24 B3 B1 22 4E 22 A7 32 34 30 00 8B 0C 18 01 9F |$.."N".240......|
00000480: 31 35 2C 38 2C 31 35 2C 4E 41 24 00 93 0C 22 01 |15,8,15,NA$...".|
00000490: A0 31 35 00 9C 0C 27 01 89 31 30 30 00 A2 0C 2A |.15...'..100...*|
000004A0: 01 8F 00 A8 0C 2B 01 8F 00 E2 0C 2C 01 99 A3 38 |.....+.....,...8|
000004B0: 29 3B 22 12 05 20 45 4E 54 45 52 20 4E 45 57 20 |);".. ENTER NEW |
000004C0: 4E 41 4D 45 20 28 31 36 20 43 48 52 29 22 3A 85 |NAME (16 CHR)":.|
000004D0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 4E |"............";N|
000004E0: 4E 24 00 1D 0D 36 01 99 A3 38 29 3B 22 12 11 20 |N$...6...8);".. |
000004F0: 45 4E 54 45 52 20 4F 4C 44 20 4E 41 4D 45 20 28 |ENTER OLD NAME (|
00000500: 31 36 20 43 48 52 29 22 3A 85 22 1D 1D 1D 1D 1D |16 CHR)":.".....|
00000510: 1D 1D 1D 1D 1D 1D 1D 22 3B 4F 4C 4E 24 00 38 0D |.......";OLN$.8.|
00000520: 40 01 43 48 24 B2 22 52 30 3A 22 AA 4E 4E 24 AA |@.CH$."R0:".NN$.|
00000530: 22 3D 22 AA 4F 4C 4E 24 00 56 0D 4A 01 9F 31 35 |"=".OLN$.V.J..15|
00000540: 2C 38 2C 31 35 2C 43 48 24 3A 81 44 B2 31 A4 31 |,8,15,CH$:.D.1.1|
00000550: 35 30 30 3A 82 44 00 77 0D 54 01 99 A3 31 37 29 |500:.D.w.T...17)|
00000560: 3B 22 12 20 44 4F 4E 45 20 22 3A 81 44 B2 31 A4 |;". DONE ":.D.1.|
00000570: 31 30 30 30 3A 82 44 00 84 0D 5E 01 A0 31 35 3A |1000:.D...^..15:|
00000580: 89 31 30 30 00 8A 0D 8E 01 8F 00 90 0D 8F 01 8F |.100............|
00000590: 00 B1 0D 90 01 99 A3 31 32 29 3B 22 05 12 11 20 |.......12);"... |
000005A0: 56 41 4C 49 44 41 54 49 4E 47 20 44 49 53 4B 20 |VALIDATING DISK |
000005B0: 22 00 C9 0D 9A 01 9F 31 35 2C 38 2C 31 35 2C 22 |"......15,8,15,"|
000005C0: 56 41 4C 49 44 41 54 45 22 00 D6 0D B8 01 A0 31 |VALIDATE"......1|
000005D0: 35 3A 89 31 30 30 00 DC 0D F2 01 8F 00 E2 0D F3 |5:.100..........|
000005E0: 01 8F 00 26 0E F4 01 99 A3 33 29 3B 22 05 12 11 |...&.....3);"...|
000005F0: 20 4E 41 4D 45 20 4F 46 20 50 52 4F 47 52 41 4D | NAME OF PROGRAM|
00000600: 20 54 4F 20 45 52 41 53 45 20 28 31 36 20 43 48 | TO ERASE (16 CH|
00000610: 52 29 22 3A 85 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |R)":."..........|
00000620: 1D 22 3B 50 4E 24 00 38 0E FE 01 45 52 24 B2 22 |.";PN$.8...ER$."|
00000630: 53 30 3A 22 AA 50 4E 24 00 49 0E 08 02 9F 31 35 |S0:".PN$.I....15|
00000640: 2C 38 2C 31 35 2C 45 52 24 00 77 0E 12 02 81 44 |,8,15,ER$.w....D|
00000650: B2 31 A4 35 30 30 3A 82 44 3A 99 A3 31 37 29 3B |.1.500:.D:..17);|
00000660: 22 12 11 20 44 4F 4E 45 20 22 3A 81 44 B2 31 A4 |".. DONE ":.D.1.|
00000670: 31 35 30 30 3A 82 44 00 84 0E 1C 02 A0 31 35 3A |1500:.D......15:|
00000680: 89 31 30 30 00 8A 0E 56 02 8F 00 90 0E 57 02 8F |.100...V.....W..|
00000690: 00 B4 0E 58 02 99 A3 39 29 3B 22 05 12 11 20 57 |...X...9);"... W|
000006A0: 52 49 54 49 4E 47 20 44 20 4F 20 53 20 46 49 4C |RITING D O S FIL|
000006B0: 45 53 20 22 00 C1 0E 62 02 94 22 44 4F 53 22 2C |ES "...b.."DOS",|
000006C0: 38 00 E2 0E 6C 02 99 A3 31 37 29 22 12 11 20 44 |8...l...17)".. D|
000006D0: 4F 4E 45 20 22 3A 81 44 B2 31 A4 31 35 30 30 3A |ONE ":.D.1.1500:|
000006E0: 82 44 00 EF 0E 76 02 A0 31 35 3A 89 31 30 30 00 |.D...v..15:.100.|
000006F0: F5 0E BC 02 8F 00 FB 0E C1 02 8F 00 16 0F C6 02 |................|
00000700: 99 22 93 22 3A 97 35 33 32 38 30 2C 34 3A 97 35 |.".":.53280,4:.5|
00000710: 33 32 38 31 2C 31 00 38 0F D0 02 41 45 24 B2 22 |3281,1.8...AE$."|
00000720: 22 3A 41 4E B2 30 3A 41 30 B2 30 3A 44 45 B2 30 |":AN.0:A0.0:DE.0|
00000730: 3A 44 52 24 B2 22 30 22 00 5E 0F DA 02 45 52 B2 |:DR$."0".^...ER.|
00000740: 30 3A 46 24 B2 22 22 3A 46 4C B2 30 3A 49 B2 30 |0:F$."":FL.0:I.0|
00000750: 3A 4A B2 30 3A 4D 4D B2 30 3A 4D 4E B2 30 00 77 |:J.0:MM.0:MN.0.w|
00000760: 0F EE 02 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C |....15,8,15:.15,|
00000770: 22 49 22 AA 44 52 24 00 82 0F F8 02 84 31 35 2C |"I".DR$......15,|
00000780: 45 52 00 91 0F F9 02 8B 45 52 B2 32 31 A7 38 39 |ER......ER.21.89|
00000790: 30 00 AB 0F 02 03 9F 38 2C 38 2C 38 2C 22 24 22 |0......8,8,8,"$"|
000007A0: AA 44 52 24 AA 22 2C 53 45 51 22 00 C4 0F 0C 03 |.DR$.",SEQ".....|
000007B0: 81 44 45 B2 31 A4 38 3A 46 24 B2 22 22 3A A1 23 |.DE.1.8:F$."":.#|
000007C0: 38 2C 43 24 00 DF 0F 16 03 8B 43 24 B2 C7 28 31 |8,C$......C$..(1|
000007D0: 39 39 29 A7 A0 38 3A A0 31 35 3A 89 39 30 30 00 |99)..8:.15:.900.|
000007E0: F4 0F 20 03 8B 43 24 B2 22 22 A7 4A B2 32 39 3A |.. ..C$."".J.29:|
000007F0: 89 38 36 30 00 0E 10 2A 03 8B C6 28 43 24 29 B3 |.860...*...(C$).|
00000800: B1 31 33 30 A7 4A B2 32 39 3A 89 38 36 30 00 2D |.130.J.29:.860.-|
00000810: 10 34 03 41 4E B2 41 4E AA 31 3A 4A B2 31 31 3A |.4.AN.AN.1:J.11:|
00000820: A1 23 38 2C 43 24 3A A1 23 38 2C 43 24 00 4B 10 |.#8,C$:.#8,C$.K.|
00000830: 3E 03 81 49 B2 31 A4 31 36 3A A1 23 38 2C 43 24 |>..I.1.16:.#8,C$|
00000840: 3A 46 24 B2 46 24 AA 43 24 3A 82 00 6B 10 48 03 |:F$.F$.C$:..k.H.|
00000850: 8B C8 28 46 24 2C 33 29 B2 22 44 4F 53 22 A7 41 |..(F$,3)."DOS".A|
00000860: 4E B2 41 4E AB 31 3A 89 38 36 30 00 82 10 52 03 |N.AN.1:.860...R.|
00000870: 41 45 24 28 41 4E 29 B2 44 52 24 AA 22 3A 22 AA |AE$(AN).DR$.":".|
00000880: 46 24 00 96 10 5C 03 81 49 B2 31 A4 4A 3A A1 23 |F$...\..I.1.J:.#|
00000890: 38 2C 43 24 3A 82 00 AF 10 66 03 8B 44 45 B3 B1 |8,C$:....f..DE..|
000008A0: 38 A7 A1 23 38 2C 43 24 3A A1 23 38 2C 43 24 00 |8..#8,C$:.#8,C$.|
000008B0: BA 10 70 03 82 3A 89 37 38 30 00 F8 10 7A 03 99 |..p..:.780...z..|
000008C0: 22 11 11 11 11 11 12 1C 4E 4F 20 44 49 53 4B 45 |".......NO DISKE|
000008D0: 54 54 45 20 46 4F 55 4E 44 20 49 4E 20 44 52 49 |TTE FOUND IN DRI|
000008E0: 56 45 20 22 3B 44 52 24 3B 22 11 22 3A 81 44 B2 |VE ";DR$;".":.D.|
000008F0: 31 A4 32 35 30 30 3A 82 00 08 11 7B 03 A0 31 35 |1.2500:....{..15|
00000900: 3A A0 38 3A 89 31 30 30 00 43 11 84 03 8B 41 4E |:.8:.100.C....AN|
00000910: B2 30 A7 99 22 90 11 11 11 11 11 1D 1D 12 4E 4F |.0..".........NO|
00000920: 20 50 52 4F 47 52 41 4D 53 20 46 4F 55 4E 44 20 | PROGRAMS FOUND |
00000930: 92 22 3A 81 44 B2 31 A4 32 35 30 30 3A 82 3A 89 |.":.D.1.2500:.:.|
00000940: 31 30 30 00 6C 11 8E 03 99 22 93 22 A3 37 29 22 |100.l....".".7)"|
00000950: 11 9C D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000960: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 22 00 95 11 98 |..........."....|
00000970: 03 4D 4D B2 39 3A 99 A3 37 29 22 C2 20 2A 20 44 |.MM.9:..7)". * D|
00000980: 20 49 20 52 20 45 20 43 20 54 20 4F 20 52 20 59 | I R E C T O R Y|
00000990: 20 2A 20 C2 22 00 C1 11 A2 03 99 A3 37 29 22 9C | * .".......7)".|
000009A0: CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000009B0: C3 C3 C3 C3 C3 C3 C3 C3 CB 22 3A 99 22 11 11 11 |.........":."...|
000009C0: 22 00 EC 11 AC 03 81 49 B2 31 A4 39 3A 8B 41 45 |"......I.1.9:.AE|
000009D0: 24 28 4D 4E AC 39 AA 31 29 B2 22 22 A7 4D 4D B2 |$(MN.9.1)."".MM.|
000009E0: 49 AB 31 3A 49 B2 39 3A 89 39 36 30 00 21 12 B6 |I.1:I.9:.960.!..|
000009F0: 03 99 A3 31 31 29 3B 22 9C 12 5B 22 3B C9 28 C4 |...11);"..[";.(.|
00000A00: 28 49 29 2C 31 29 3B 22 5D 1F 92 20 22 3B CA 28 |(I),1);"].. ";.(|
00000A10: 41 45 24 28 4D 4E AC 39 AA 49 29 2C 33 2C 31 36 |AE$(MN.9.I),3,16|
00000A20: 29 00 44 12 C0 03 82 3A 99 A3 31 31 29 22 9C 11 |).D....:..11)"..|
00000A30: 11 11 59 4F 55 52 20 43 48 4F 49 43 45 20 5B 31 |..YOUR CHOICE [1|
00000A40: 2D 39 5D 22 00 60 12 C5 03 99 A3 31 31 29 22 50 |-9]".`.....11)"P|
00000A50: 52 45 53 53 20 46 31 20 46 4F 52 20 44 4F 53 22 |RESS F1 FOR DOS"|
00000A60: 00 7E 12 CF 03 99 A3 31 31 29 22 4F 52 20 52 45 |.~.....11)"OR RE|
00000A70: 54 55 52 4E 20 46 4F 52 20 4D 4F 52 45 22 00 91 |TURN FOR MORE"..|
00000A80: 12 D4 03 A1 43 24 3A 8B 43 24 B2 22 22 A7 39 38 |....C$:.C$."".98|
00000A90: 30 00 A1 12 D9 03 8B 43 24 B2 22 85 22 A7 31 30 |0......C$.".".10|
00000AA0: 30 00 B5 12 DE 03 8B 43 24 B3 B1 C7 28 31 33 29 |0......C$...(13)|
00000AB0: A7 31 30 32 30 00 D1 12 E8 03 4D 4E B2 4D 4E AA |.1020.....MN.MN.|
00000AC0: 31 3A 8B 4D 4E AC 39 AA 31 B1 41 4E A7 4D 4E B2 |1:.MN.9.1.AN.MN.|
00000AD0: 30 00 DA 12 F2 03 89 39 31 30 00 F4 12 FC 03 8B |0......910......|
00000AE0: C5 28 43 24 29 B3 31 B0 C5 28 43 24 29 B1 4D 4D |.(C$).1..(C$).MM|
00000AF0: A7 39 38 30 00 0C 13 06 04 41 45 24 B2 41 45 24 |.980.....AE$.AE$|
00000B00: 28 4D 4E AC 39 AA C5 28 43 24 29 29 00 43 13 10 |(MN.9..(C$)).C..|
00000B10: 04 99 3A 99 22 93 11 11 11 11 4D 45 4E 55 20 49 |..:.".....MENU I|
00000B20: 54 45 4D 20 43 48 4F 53 45 4E 3A 20 23 22 3B 43 |TEM CHOSEN: #";C|
00000B30: 24 3B 22 20 2D 20 22 3B CA 28 41 45 24 2C 33 2C |$;" - ";.(AE$,3,|
00000B40: 31 36 29 00 57 13 1A 04 81 49 B2 31 38 A4 31 A9 |16).W....I.18.1.|
00000B50: AB 31 3A 46 4C B2 49 00 73 13 24 04 8B C6 28 CA |.1:FL.I.s.$...(.|
00000B60: 28 41 45 24 2C 49 2C 31 29 29 B3 B1 31 36 30 A7 |(AE$,I,1))..160.|
00000B70: 49 B2 31 00 A4 13 2E 04 82 3A 99 22 11 11 11 11 |I.1......:."....|
00000B80: 4C 4F 41 44 22 3B C7 28 33 34 29 3B C8 28 41 45 |LOAD";.(34);.(AE|
00000B90: 24 2C 46 4C 29 3B C7 28 33 34 29 3B 22 2C 38 11 |$,FL);.(34);",8.|
00000BA0: 11 11 11 22 00 BC 13 38 04 99 22 52 55 4E 22 3A |..."...8.."RUN":|
00000BB0: 99 22 91 91 91 91 91 91 91 91 91 22 00 D9 13 42 |."........."...B|
00000BC0: 04 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 |..631,13:.632,13|
00000BD0: 3A 97 31 39 38 2C 32 3A 80 00 F4 13 B0 04 99 22 |:.198,2:......."|
00000BE0: 93 22 3A 97 35 33 32 38 30 2C 30 3A 97 35 33 32 |.":.53280,0:.532|
00000BF0: 38 31 2C 30 00 19 14 BA 04 99 A3 37 29 22 9C 20 |81,0.......7)". |
00000C00: 2A 20 48 20 45 20 4C 20 50 20 20 53 20 43 20 52 |* H E L P S C R|
00000C10: 20 45 20 45 20 4E 20 2A 22 00 63 14 C4 04 99 22 | E E N *".c...."|
00000C20: 1C 11 12 5B 31 5D 92 20 20 50 52 45 53 53 20 23 |...[1]. PRESS #|
00000C30: 31 9A 20 54 4F 20 46 4F 52 4D 41 54 20 41 20 4E |1. TO FORMAT A N|
00000C40: 45 57 20 44 49 53 4B 20 4F 52 20 20 20 20 20 41 |EW DISK OR A|
00000C50: 4E 59 20 44 49 53 4B 20 59 4F 55 20 57 49 53 48 |NY DISK YOU WISH|
00000C60: 20 22 3B 00 7B 14 CE 04 99 22 54 4F 20 54 4F 54 | ";.{...."TO TOT|
00000C70: 41 4C 59 20 45 52 41 53 45 2E 22 00 C2 14 D8 04 |ALY ERASE.".....|
00000C80: 99 22 12 1C 5B 32 5D 92 20 20 50 52 45 53 53 20 |."..[2]. PRESS |
00000C90: 23 32 9A 20 54 4F 20 43 48 41 4E 47 45 20 54 48 |#2. TO CHANGE TH|
00000CA0: 45 20 4E 41 4D 45 20 4F 46 20 41 4E 59 20 50 52 |E NAME OF ANY PR|
00000CB0: 4F 47 52 41 4D 20 4F 4E 20 41 20 44 49 53 4B 2E |OGRAM ON A DISK.|
00000CC0: 22 3B 00 0D 15 E2 04 99 22 20 59 4F 55 20 53 48 |";......" YOU SH|
00000CD0: 4F 55 4C 44 20 41 4C 57 41 59 53 20 20 20 20 4C |OULD ALWAYS L|
00000CE0: 49 53 54 20 54 48 45 20 44 49 53 4B 20 44 49 52 |IST THE DISK DIR|
00000CF0: 45 43 54 4F 52 59 20 46 49 52 53 54 20 54 4F 20 |ECTORY FIRST TO |
00000D00: 4D 41 4B 45 20 20 20 53 55 52 45 22 3B 00 52 15 |MAKE SURE";.R.|
00000D10: EC 04 99 22 20 59 4F 55 20 53 50 45 4C 4C 20 54 |..." YOU SPELL T|
00000D20: 48 45 20 4F 4C 44 20 4E 41 4D 45 20 43 4F 52 52 |HE OLD NAME CORR|
00000D30: 45 43 54 4C 59 20 20 20 54 4F 20 49 4E 53 55 52 |ECTLY TO INSUR|
00000D40: 45 20 4E 4F 20 44 49 53 4B 20 45 52 52 4F 52 53 |E NO DISK ERRORS|
00000D50: 2E 22 00 9C 15 F6 04 99 22 12 1C 5B 33 5D 92 20 |."......"..[3]. |
00000D60: 20 50 52 45 53 53 20 23 33 9A 20 41 46 54 45 52 | PRESS #3. AFTER|
00000D70: 20 59 4F 55 20 48 41 56 45 20 55 53 45 44 20 41 | YOU HAVE USED A|
00000D80: 20 44 49 53 4B 20 20 20 46 4F 52 20 41 20 57 48 | DISK FOR A WH|
00000D90: 49 4C 45 2E 20 54 48 49 53 20 22 3B 00 E0 15 00 |ILE. THIS ";....|
00000DA0: 05 99 22 57 49 4C 4C 20 43 4F 4D 50 41 43 54 20 |.."WILL COMPACT |
00000DB0: 59 4F 55 52 20 20 20 20 20 50 52 4F 47 52 41 4D |YOUR PROGRAM|
00000DC0: 53 20 41 4E 44 20 45 4C 49 4D 49 4E 41 54 45 20 |S AND ELIMINATE |
00000DD0: 55 4E 55 53 45 44 20 42 4C 4F 43 4B 53 20 22 3B |UNUSED BLOCKS ";|
00000DE0: 00 F5 15 0A 05 99 22 20 20 20 4F 4E 20 41 20 44 |......" ON A D|
00000DF0: 49 53 4B 2E 22 00 3F 16 14 05 99 22 12 1C 5B 34 |ISK.".?...."..[4|
00000E00: 5D 92 20 20 50 52 45 53 53 20 23 34 9A 20 57 48 |]. PRESS #4. WH|
00000E10: 45 4E 20 59 4F 55 20 57 49 53 48 20 54 4F 20 45 |EN YOU WISH TO E|
00000E20: 52 41 53 45 20 41 4E 59 20 20 20 50 52 4F 47 52 |RASE ANY PROGR|
00000E30: 41 4D 20 4F 4E 20 41 20 44 49 53 4B 2E 22 3B 00 |AM ON A DISK.";.|
00000E40: 89 16 1E 05 99 22 20 41 4C 57 41 59 53 20 4C 49 |....." ALWAYS LI|
00000E50: 53 54 20 54 48 45 20 20 20 20 20 20 44 49 53 4B |ST THE DISK|
00000E60: 20 44 49 52 45 43 54 4F 52 59 20 54 4F 20 49 4E | DIRECTORY TO IN|
00000E70: 53 55 52 45 20 50 52 4F 50 45 52 20 53 50 45 4C |SURE PROPER SPEL|
00000E80: 4C 20 20 20 49 4E 47 22 3B 00 A1 16 28 05 99 22 |L ING";...(.."|
00000E90: 20 4F 46 20 54 48 45 20 50 52 4F 47 52 41 4D 2E | OF THE PROGRAM.|
00000EA0: 22 00 E8 16 32 05 99 22 12 1C 5B 35 5D 92 20 20 |"...2.."..[5]. |
00000EB0: 50 52 45 53 53 20 23 35 9A 20 54 4F 20 4D 41 4B |PRESS #5. TO MAK|
00000EC0: 45 20 41 20 43 4F 50 59 20 4F 46 20 44 20 4F 20 |E A COPY OF D O |
00000ED0: 53 20 4F 4E 20 20 20 41 4C 4C 20 59 4F 55 52 20 |S ON ALL YOUR |
00000EE0: 44 49 53 4B 53 2E 22 3B 00 23 17 3C 05 99 22 20 |DISKS.";.#.<.." |
00000EF0: 54 48 49 53 20 57 49 4C 4C 20 4D 41 4B 45 20 49 |THIS WILL MAKE I|
00000F00: 54 20 20 20 20 20 20 20 48 41 4E 44 59 20 49 46 |T HANDY IF|
00000F10: 20 59 4F 55 20 45 56 45 52 20 4E 45 45 44 20 49 | YOU EVER NEED I|
00000F20: 54 2E 22 00 6A 17 46 05 99 22 1C 12 5B 36 5D 92 |T.".j.F.."..[6].|
00000F30: 20 20 50 52 45 53 53 20 23 36 9A 20 54 4F 20 4C | PRESS #6. TO L|
00000F40: 49 53 54 20 54 48 45 20 44 49 52 45 43 54 4F 52 |IST THE DIRECTOR|
00000F50: 59 20 41 4E 44 20 20 20 20 52 55 4E 20 41 4E 59 |Y AND RUN ANY|
00000F60: 20 50 52 4F 47 52 41 4D 22 3B 00 7F 17 4B 05 99 | PROGRAM";...K..|
00000F70: 22 20 4F 4E 20 54 48 45 20 44 49 53 4B 2E 22 00 |" ON THE DISK.".|
00000F80: A2 17 50 05 99 A3 31 30 29 22 9E 11 3C 50 52 45 |..P...10)"..<PRE|
00000F90: 53 53 20 46 31 20 46 4F 52 20 44 20 4F 20 53 3E |SS F1 FOR D O S>|
00000FA0: 22 3B 00 B8 17 5A 05 A1 41 4E 24 3A 8B 41 4E 24 |";...Z..AN$:.AN$|
00000FB0: B2 22 22 A7 31 33 37 30 00 C9 17 64 05 8B 41 4E |."".1370...d..AN|
00000FC0: 24 B2 22 85 22 A7 31 30 30 00 DC 17 6E 05 8B 41 |$.".".100...n..A|
00000FD0: 4E 24 B3 B1 22 85 22 A7 31 33 37 30 00 00 00 |N$..".".1370... |
..(....".":.53280,0:.53281,1:.AE$(200):.
.:.....10);"... ".P.....10);". . . .."
.S.....10);". . . ..OMMODORE C 64"...#.
..10);".. "...(..A.1.3:.:.A...-...7);".
D I S K".H.2...11);"..O P E R A T I N G"
...7...21);".. S Y S T E M"...<..A.1.4:.
:.A...F...8);".DESIGNED BY...BOB LLORET"
.:.P...11)"..COPYRIGHT .(C) .1984".K.Z..
D.1.2500:.D.F.D..".":.53280,0:.53281,6..
.N..".. UCCCC. DISK OPERATING SYSTEM V3.
0 .CCCCI "...S..". B";.36)"B"...T.." B";
.36)"B"...X.." B .[1]. FORMAT DISK
.[4]. ERASE PRG B"...}.." B";.38)"B".7..
.." B .[2]. RENAME FILE .[5]. WRITE
DOS B".I...." B";.38)"B".|...." B .[3].
VALIDATE DISK .[6]. DIRECTORY B"....
.." B";.38)"B"......" B .[7]. H
ELP SCREEN B"......A.1.1:." B"
;.38)"B":.A......" JCCCCCCCC>YOUR CHOICE
?.[1-7].<CCCCCCCCK":.:..%. ..AN$:.AN$."
".160.3...AN.E(AN$).F....AN.1.AN.7.160.K
....AN.200,300,400,500,600,700,1200.Q.F.
..W.G.....H...8);".ENTER DISK NAME (16 C
HR)":."..........";NA$...R...10);".ENTER
DISK ID (2 CHR)":."...............";ID$
.....NA$."NEW0:".NA$.",".ID$.(.....10);"
.. ARE YOU SURE (Y/N) ?".=....AN$:.AN$."
".240.N....AN$."Y".280._....AN$."N".100.
Z....AN$.."Y".AN$.."N".240......15,8,15,
NA$...". 15...'..100...*.....+.....,...8
);".. ENTER NEW NAME (16 CHR)":.".......
.....";NN$...6...8);".. ENTER OLD NAME (
16 CHR)":."............";OLN$.8.@.CH$."R
0:".NN$."=".OLN$.V.J..15,8,15,CH$:.D.1.1
500:.D.W.T...17);". DONE ":.D.1.1000:.D.
..^. 15:.100...................12);"...
VALIDATING DISK ".I....15,8,15,"VALIDATE
".V... 15:.100.............&.....3);"...
NAME OF PROGRAM TO ERASE (16 CHR)":."..
.........";PN$.8...ER$."S0:".PN$.I....15
,8,15,ER$.W....D.1.500:.D:..17);".. DONE
":.D.1.1500:.D..... 15:.100...V.....W..
...X...9);"... WRITING D O S FILES ".A.B
.."DOS",8...L...17)".. DONE ":.D.1.1500:
.D...V. 15:.100.........A.....F..".":.53
280,4:.53281,1.8.P.AE$."":AN.0:A0.0:DE.0
:DR$."0".^.Z.ER.0:F$."":FL.0:I.0:J.0:MM.
0:MN.0.W....15,8,15:.15,"I".DR$......15,
ER......ER.21.890......8,8,8,"$".DR$.",S
EQ".D....DE.1.8:F$."":.#8,C$......C$.G(1
99). 8: 15:.900... ..C$."".J.29:.860...*
..F(C$)..130.J.29:.860.-.4.AN.AN.1:J.11:
.#8,C$:.#8,C$.K.>..I.1.16:.#8,C$:F$.F$.C
$:..K.H..H(F$,3)."DOS".AN.AN.1:.860...R.
AE$(AN).DR$.":".F$...\..I.1.J:.#8,C$:...
.F..DE..8..#8,C$:.#8,C$...P..:.780...Z..
".......NO DISKETTE FOUND IN DRIVE ";DR$
;".":.D.1.2500:....{. 15: 8:.100.C....AN
.0..".........NO PROGRAMS FOUND .":.D.1.
2500:.:.100.L....".".7)"..UCCCCCCCCCCCCC
CCCCCCCCCCI".....MM.9:..7)"B * D I R E C
T O R Y * B".A.....7)".JCCCCCCCCCCCCCCC
CCCCCCCCK":."..."......I.1.9:.AE$(MN.9.1
)."".MM.I.1:I.9:.960.!.....11);"..[";I(D
(I),1);"].. ";J(AE$(MN.9.I),3,16).D....:
..11)"....YOUR CHOICE [1-9]".`.E...11)"P
RESS F1 FOR DOS".~.O...11)"OR RETURN FOR
MORE"...T..C$:.C$."".980...Y..C$.".".10
0......C$..G(13).1020.Q...MN.MN.1:.MN.9.
1.AN.MN.0.Z....910......E(C$).1.E(C$).MM
.980.....AE$.AE$(MN.9.E(C$)).C....:."...
..MENU ITEM CHOSEN: #";C$;" - ";J(AE$,3,
16).W....I.18.1..1:FL.I.S.$..F(J(AE$,I,1
))..160.I.1......:."....LOAD";G(34);H(AE
$,FL);G(34);",8...."...8.."RUN":."......
...".Y.B..631,13:.632,13:.198,2:......."
.":.53280,0:.53281,0.......7)". * H E L
P S C R E E N *".C.D.."...[1]. PRESS #
1. TO FORMAT A NEW DISK OR ANY DISK
YOU WISH ";.{.N.."TO TOTALY ERASE.".B.X.
."..[2]. PRESS #2. TO CHANGE THE NAME O
F ANY PROGRAM ON A DISK.";......" YOU SH
OULD ALWAYS LIST THE DISK DIRECTORY F
IRST TO MAKE SURE";.R...." YOU SPELL T
HE OLD NAME CORRECTLY TO INSURE NO DIS
K ERRORS."......"..[3]. PRESS #3. AFTER
YOU HAVE USED A DISK FOR A WHILE. THI
S ";......"WILL COMPACT YOUR PROGRAM
S AND ELIMINATE UNUSED BLOCKS ";......"
ON A DISK.".?...."..[4]. PRESS #4. WH
EN YOU WISH TO ERASE ANY PROGRAM ON A
DISK.";......" ALWAYS LIST THE DISK
DIRECTORY TO INSURE PROPER SPELL ING"
;...(.." OF THE PROGRAM."...2.."..[5].
PRESS #5. TO MAKE A COPY OF D O S ON A
LL YOUR DISKS.";.#.<.." THIS WILL MAKE I
T HANDY IF YOU EVER NEED IT.".J.F.
."..[6]. PRESS #6. TO LIST THE DIRECTOR
Y AND RUN ANY PROGRAM";..K.." ON THE
DISK."...P...10)"..<PRESS F1 FOR D O S>
";...Z..AN$:.AN$."".1370.I.D..AN$.".".10
0...N..AN$..".".1370...
> CLICK IMAGE PREVIEW FOR FULL MODAL