DISK FORMAT
FILE INFORMATION
FILENAME(S): DISK FORMAT
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 01:07:55
APPEARS ON: 2 disk(s)
FILE HASH
30f199925625746a05d5f40e1be5a7d5b18be50695795354eafd35f85cd0061f
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | DISK FORMAT | PRG | Treasure Chest - Wolfgang Rauprich | 21 | 2 | DOWNLOAD FILE |
| U TILITIE | DISK FORMAT | PRG | Treasure Chest - Wolfgang Rauprich | 21 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..&.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 00 4B 08 14 00 8F 20 2A 20 20 |******.K.... * | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 20 20 2A 00 70 08 1E 00 | *.p...| 00000050: 8F 20 2A 20 20 20 43 2D 36 34 20 41 55 54 4F 20 |. * C-64 AUTO | 00000060: 44 49 53 4B 20 46 4F 52 4D 41 54 20 20 20 20 2A |DISK FORMAT *| 00000070: 00 95 08 28 00 8F 20 2A 20 20 20 20 20 20 20 20 |...(.. * | 00000080: 4A 49 4D 20 20 4A 45 4C 46 20 20 20 20 20 20 20 |JIM JELF | 00000090: 20 20 20 20 2A 00 BA 08 32 00 8F 20 2A 2A 2A 2A | *...2.. ****| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C0 08 3C 00 3A |**********...<.:| 000000C0: 00 C6 08 46 00 3A 00 E9 08 64 00 8F 20 2A 2A 2A |...F.:...d.. ***| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0C 09 6E 00 8F 20 |*********...n.. | 000000F0: 2A 20 20 20 20 56 41 52 49 41 42 4C 45 20 4C 49 |* VARIABLE LI| 00000100: 53 54 20 20 20 20 20 20 20 20 20 2A 00 2F 09 78 |ST *./.x| 00000110: 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.. * | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 00000130: 52 09 82 00 8F 20 2A 20 42 43 20 3D 20 35 33 32 |R.... * BC = 532| 00000140: 38 30 20 42 44 52 20 43 4C 52 20 50 4F 4B 45 20 |80 BDR CLR POKE | 00000150: 20 2A 00 75 09 8C 00 8F 20 2A 20 53 43 20 3D 20 | *.u.... * SC = | 00000160: 35 33 32 38 31 20 53 43 52 20 43 4C 52 20 50 4F |53281 SCR CLR PO| 00000170: 4B 45 20 20 2A 00 98 09 96 00 8F 20 2A 20 54 54 |KE *...... * TT| 00000180: 24 3D 20 43 2D 36 34 20 41 55 54 4F 20 44 49 53 |$= C-64 AUTO DIS| 00000190: 4B 20 46 4F 52 2D 20 2A 00 BB 09 A0 00 8F 20 2A |K FOR- *...... *| 000001A0: 20 20 20 20 20 20 4D 41 54 20 50 52 4F 47 52 41 | MAT PROGRA| 000001B0: 4D 20 20 20 20 20 20 20 20 20 2A 00 DE 09 AA 00 |M *.....| 000001C0: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * | 000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 01 | *..| 000001E0: 0A B4 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |.... * | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000200: 2A 00 07 0A 20 03 3A 00 1B 0A 2A 03 8F 20 53 45 |*... .:...*.. SE| 00000210: 54 20 56 41 52 49 41 42 4C 45 53 00 21 0A 34 03 |T VARIABLES.!.4.| 00000220: 3A 00 37 0A 3E 03 42 43 B2 35 33 32 38 30 3A 53 |:.7.>.BC.53280:S| 00000230: 43 B2 35 33 32 38 31 00 64 0A 48 03 54 54 24 B2 |C.53281.d.H.TT$.| 00000240: 22 43 2D 36 34 20 41 55 54 4F 20 44 49 53 4B 20 |"C-64 AUTO DISK | 00000250: 46 4F 52 4D 41 54 20 50 52 4F 47 52 41 4D 20 4D |FORMAT PROGRAM M| 00000260: 45 4E 55 22 00 74 0A DE 03 8D 31 30 30 30 3A 89 |ENU".t....1000:.| 00000270: 31 30 36 30 00 7A 0A E3 03 3A 00 80 0A E4 03 90 |1060.z...:......| 00000280: 00 86 0A E5 03 3A 00 8C 0A E6 03 3A 00 A5 0A E8 |.....:.....:....| 00000290: 03 99 22 93 22 3B 3A 8F 20 43 4C 45 41 52 20 53 |..".";:. CLEAR S| 000002A0: 43 52 45 45 4E 00 B6 0A F2 03 97 20 53 43 2C 31 |CREEN...... SC,1| 000002B0: 3A 97 42 43 2C 31 00 D1 0A FC 03 81 20 49 B2 31 |:.BC,1...... I.1| 000002C0: 20 A4 20 33 39 3A 99 22 1F 12 20 22 3B 3A 82 20 | . 39:.".. ";:. | 000002D0: 49 00 ED 0A 06 04 81 20 49 B2 31 20 A4 20 32 33 |I...... I.1 . 23| 000002E0: 3A 99 22 12 20 11 9D 22 3B 3A 82 20 49 00 07 0B |:.". ..";:. I...| 000002F0: 10 04 81 20 49 B2 31 20 A4 20 33 39 3A 99 22 12 |... I.1 . 39:.".| 00000300: 20 9D 9D 22 3B 3A 82 00 23 0B 1A 04 81 20 49 B2 | ..";:..#.... I.| 00000310: 31 20 A4 20 32 33 3A 99 22 12 20 91 9D 22 3B 3A |1 . 23:.". ..";:| 00000320: 82 3A 8E 00 42 0B 24 04 99 22 90 22 3B 3A 8F 20 |.:..B.$..".";:. | 00000330: 4C 45 54 54 45 52 49 4E 47 20 54 4F 20 42 4C 41 |LETTERING TO BLA| 00000340: 43 4B 00 4C 0B 2E 04 99 22 13 11 22 00 62 0B 38 |CK.L...."..".b.8| 00000350: 04 99 A3 32 30 AB C3 28 54 54 24 29 AD 32 29 54 |...20..(TT$).2)T| 00000360: 54 24 00 68 0B 42 04 99 00 8A 0B 4C 04 99 A3 30 |T$.h.B.....L...0| 00000370: 38 29 22 3C 20 46 31 20 3E 20 46 4F 52 4D 41 54 |8)"< F1 > FORMAT| 00000380: 20 4E 45 57 20 44 49 53 4B 22 00 AF 0B 56 04 99 | NEW DISK"...V..| 00000390: A3 30 38 29 22 3C 20 46 33 20 3E 20 52 45 2D 46 |.08)"< F3 > RE-F| 000003A0: 4F 52 4D 41 54 20 4F 4C 44 20 44 49 53 4B 22 00 |ORMAT OLD DISK".| 000003B0: CD 0B 60 04 99 A3 30 38 29 22 3C 20 46 35 20 3E |..`...08)"< F5 >| 000003C0: 20 45 58 49 54 20 50 52 4F 47 52 41 4D 00 EA 0B | EXIT PROGRAM...| 000003D0: 6A 04 99 A3 31 32 29 22 11 11 45 4E 54 45 52 20 |j...12)"..ENTER | 000003E0: 53 45 4C 45 43 54 49 4F 4E 22 00 FC 0B 74 04 99 |SELECTION"...t..| 000003F0: A3 31 36 29 22 3C 20 20 20 20 3E 22 00 26 0C 7E |.16)"< >".&.~| 00000400: 04 A1 20 43 24 3A 8B 20 43 24 B3 B1 22 85 22 AF |.. C$:. C$..".".| 00000410: 43 24 B3 B1 22 86 22 AF 43 24 B3 B1 22 87 22 20 |C$..".".C$.."." | 00000420: A7 20 31 31 35 30 00 41 0C 88 04 8B 20 43 24 B2 |. 1150.A.... C$.| 00000430: 22 85 22 20 A7 20 99 A3 31 38 29 22 91 91 46 31 |"." . ..18)"..F1| 00000440: 22 00 5C 0C 92 04 8B 20 43 24 B2 22 86 22 20 A7 |".\.... C$."." .| 00000450: 20 99 A3 31 38 29 22 91 91 46 33 22 00 77 0C 9C | ..18)"..F3".w..| 00000460: 04 8B 20 43 24 B2 22 87 22 20 A7 20 99 A3 31 38 |.. C$."." . ..18| 00000470: 29 22 91 91 46 35 22 00 7D 0C A6 04 3A 00 A9 0C |)"..F5".}...:...| 00000480: B0 04 99 A3 33 29 22 49 53 20 59 4F 55 52 20 53 |....3)"IS YOUR S| 00000490: 45 4C 45 43 54 49 4F 4E 20 43 4F 52 52 45 43 54 |ELECTION CORRECT| 000004A0: 20 3C 20 59 2F 4E 20 3E 22 00 D0 0C BA 04 A1 20 | < Y/N >"...... | 000004B0: 59 4E 24 3A 8B 20 59 4E 24 B3 B1 22 59 22 20 AF |YN$:. YN$.."Y" .| 000004C0: 20 59 4E 24 B3 B1 22 4E 22 20 A7 20 31 32 31 30 | YN$.."N" . 1210| 000004D0: 00 E2 0C C4 04 8B 20 59 4E 24 B2 22 4E 22 20 A7 |...... YN$."N" .| 000004E0: 20 8A 00 00 0D CE 04 8B 20 43 24 B2 22 85 22 A7 | ....... C$.".".| 000004F0: 20 8D 20 31 30 30 30 3A 8D 31 30 30 30 30 3A 8A | . 1000:.10000:.| 00000500: 00 1E 0D D8 04 8B 20 43 24 B2 22 86 22 A7 20 8D |...... C$.".". .| 00000510: 20 31 30 30 30 3A 8D 31 31 30 30 30 3A 8A 00 3C | 1000:.11000:..<| 00000520: 0D E2 04 8B 20 43 24 B2 22 87 22 A7 20 8D 20 31 |.... C$.".". . 1| 00000530: 30 30 30 3A 8D 31 32 30 30 30 3A 8A 00 54 0D 10 |000:.12000:..T..| 00000540: 27 8F 20 46 31 20 53 45 4C 45 43 54 49 4F 4E 20 |'. F1 SELECTION | 00000550: 49 4E 53 54 00 5A 0D 1A 27 3A 00 65 0D 24 27 99 |INST.Z..':.e.$'.| 00000560: 22 90 13 11 22 00 94 0D 2E 27 99 A3 32 29 22 54 |"..."....'..2)"T| 00000570: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL| 00000580: 20 46 4F 52 4D 41 54 20 41 20 4E 45 57 20 44 49 | FORMAT A NEW DI| 00000590: 53 4B 2E 22 00 BF 0D 38 27 99 A3 32 29 22 49 54 |SK."...8'..2)"IT| 000005A0: 20 49 53 20 41 53 53 55 4D 45 44 20 54 48 41 54 | IS ASSUMED THAT| 000005B0: 20 59 4F 55 52 20 44 49 53 4B 20 48 41 53 22 00 | YOUR DISK HAS".| 000005C0: EB 0D 42 27 99 A3 32 29 22 4E 45 56 45 52 20 42 |..B'..2)"NEVER B| 000005D0: 45 45 4E 20 55 53 45 20 42 45 46 4F 52 45 20 41 |EEN USE BEFORE A| 000005E0: 4E 44 20 49 53 20 46 52 45 45 22 00 05 0E 4C 27 |ND IS FREE"...L'| 000005F0: 99 A3 32 29 22 4F 46 20 41 4E 59 20 50 52 4F 47 |..2)"OF ANY PROG| 00000600: 52 41 4D 53 22 00 26 0E 56 27 99 A3 32 30 AB 31 |RAMS".&.V'..20.1| 00000610: 31 AD 32 29 22 11 11 1C 12 2A 20 57 41 52 4E 49 |1.2)"....* WARNI| 00000620: 4E 47 20 2A 90 22 00 4F 0E 60 27 99 A3 32 29 22 |NG *.".O.`'..2)"| 00000630: 11 11 49 46 20 54 48 45 52 45 20 41 52 45 20 41 |..IF THERE ARE A| 00000640: 4E 59 20 50 52 4F 47 52 41 4D 53 20 4F 4E 22 00 |NY PROGRAMS ON".| 00000650: 7C 0E 6A 27 99 A3 32 29 22 54 48 49 53 20 44 49 ||.j'..2)"THIS DI| 00000660: 53 4B 2C 20 54 48 45 59 20 57 49 4C 4C 20 42 45 |SK, THEY WILL BE| 00000670: 20 44 49 53 54 52 4F 59 45 44 2E 22 00 9C 0E 74 | DISTROYED."...t| 00000680: 27 99 A3 31 30 29 22 50 52 45 53 53 20 3C 20 46 |'..10)"PRESS < F| 00000690: 37 20 3E 20 54 4F 20 45 58 49 54 22 00 C1 0E 7E |7 > TO EXIT"...~| 000006A0: 27 99 A3 37 29 22 50 52 45 53 53 20 3C 20 52 45 |'..7)"PRESS < RE| 000006B0: 54 55 52 4E 20 3E 20 54 4F 20 46 4F 52 4D 41 54 |TURN > TO FORMAT| 000006C0: 22 00 E6 0E 88 27 A1 20 43 24 3A 8B 20 43 24 B3 |"....'. C$:. C$.| 000006D0: B1 22 88 22 AF 43 24 B3 B1 C7 28 31 33 29 20 A7 |.".".C$...(13) .| 000006E0: 20 31 30 31 32 30 00 F6 0E 92 27 8B 20 43 24 B2 | 10120....'. C$.| 000006F0: 22 88 22 A7 20 8A 00 00 0F 9C 27 99 22 93 22 3B |".". .....'.".";| 00000700: 00 17 0F A6 27 99 22 45 4E 54 45 52 20 44 49 53 |....'."ENTER DIS| 00000710: 4B 20 4E 41 4D 45 22 00 25 0F B0 27 85 22 3E 20 |K NAME".%..'."> | 00000720: 22 3B 44 4E 24 00 3D 0F BA 27 8B 20 C3 28 44 4E |";DN$.=..'. .(DN| 00000730: 24 29 B1 31 36 20 A7 20 31 30 31 34 30 00 5C 0F |$).16 . 10140.\.| 00000740: CE 27 99 22 45 4E 54 45 52 20 32 20 44 49 47 49 |.'."ENTER 2 DIGI| 00000750: 54 20 49 44 20 4E 55 4D 42 45 52 22 00 6A 0F D8 |T ID NUMBER".j..| 00000760: 27 85 22 3E 20 22 3B 49 44 24 00 81 0F E2 27 8B |'."> ";ID$....'.| 00000770: 20 C3 28 49 44 24 29 B1 32 20 A7 20 31 30 31 34 | .(ID$).2 . 1014| 00000780: 30 00 9C 0F EC 27 8D 20 31 30 30 30 3A 99 22 90 |0....'. 1000:.".| 00000790: 11 22 3A 49 44 B2 C5 28 49 44 24 29 00 CE 0F F6 |.":ID..(ID$)....| 000007A0: 27 99 A3 32 30 AB 33 33 AD 32 29 22 46 4F 52 4D |'..20.33.2)"FORM| 000007B0: 41 54 54 49 4E 47 20 44 49 53 4B 20 2D 20 50 4C |ATTING DISK - PL| 000007C0: 45 41 53 45 20 53 54 41 4E 44 20 42 59 22 00 09 |EASE STAND BY"..| 000007D0: 10 FB 27 48 44 24 B2 22 4E 45 57 30 3A 22 AA 44 |..'HD$."NEW0:".D| 000007E0: 4E 24 AA 22 2C 22 AA C4 28 49 44 29 3A 99 A3 38 |N$.","..(ID):..8| 000007F0: 29 22 44 49 53 4B 20 48 45 41 44 45 52 20 57 49 |)"DISK HEADER WI| 00000800: 4C 4C 20 52 45 41 44 3A 22 00 27 10 FC 27 99 A3 |LL READ:".'..'..| 00000810: 38 29 22 3E 1C 20 22 44 4E 24 AA 22 2C 22 AA C4 |8)">. "DN$.","..| 00000820: 28 49 44 29 22 90 22 00 41 10 00 28 8D 20 32 30 |(ID)".".A..(. 20| 00000830: 30 30 30 3A 8F 20 46 4F 52 4D 41 54 20 44 49 53 |000:. FORMAT DIS| 00000840: 4B 00 47 10 0A 28 3A 00 76 10 14 28 99 A3 32 29 |K.G..(:.v..(..2)| 00000850: 22 44 49 53 4B 20 49 53 20 46 4F 52 4D 41 54 54 |"DISK IS FORMATT| 00000860: 45 44 20 41 4E 44 20 52 45 41 44 59 20 46 4F 52 |ED AND READY FOR| 00000870: 20 55 53 45 2E 22 00 A1 10 1E 28 99 A3 32 29 22 | USE."....(..2)"| 00000880: 11 11 50 52 45 53 53 20 3C 20 46 37 20 3E 20 54 |..PRESS < F7 > T| 00000890: 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 |O RETURN TO MENU| 000008A0: 22 00 BC 10 28 28 A1 20 43 24 3A 8B 20 43 24 B3 |"...((. C$:. C$.| 000008B0: B1 22 88 22 20 A7 20 31 30 32 38 30 00 C4 10 32 |."." . 10280...2| 000008C0: 28 9C 3A 8A 00 DC 10 F8 2A 8F 20 46 32 20 53 45 |(.:.....*. F2 SE| 000008D0: 4C 45 43 54 49 4F 4E 20 49 4E 53 54 00 E2 10 02 |LECTION INST....| 000008E0: 2B 3A 00 ED 10 0C 2B 99 22 90 13 11 22 00 1B 11 |+:....+."..."...| 000008F0: 16 2B 99 A3 32 29 22 54 48 49 53 20 50 52 4F 47 |.+..2)"THIS PROG| 00000900: 52 41 4D 20 57 49 4C 4C 20 52 45 2D 46 4F 52 4D |RAM WILL RE-FORM| 00000910: 41 54 20 41 20 44 49 53 4B 2E 22 00 46 11 20 2B |AT A DISK.".F. +| 00000920: 99 A3 32 29 22 49 54 20 49 53 20 41 53 53 55 4D |..2)"IT IS ASSUM| 00000930: 45 44 20 54 48 41 54 20 59 4F 55 52 20 44 49 53 |ED THAT YOUR DIS| 00000940: 4B 20 48 41 53 22 00 76 11 2A 2B 99 A3 32 29 22 |K HAS".v.*+..2)"| 00000950: 42 45 45 4E 20 46 4F 52 4D 41 54 54 45 44 20 42 |BEEN FORMATTED B| 00000960: 45 46 4F 52 45 20 41 4E 44 20 48 41 53 20 44 41 |EFORE AND HAS DA| 00000970: 54 41 20 4F 52 22 00 A3 11 34 2B 99 A3 32 29 22 |TA OR"...4+..2)"| 00000980: 50 52 4F 47 52 41 4D 53 20 4F 4E 20 49 54 2E 20 |PROGRAMS ON IT. | 00000990: 49 46 20 44 49 53 4B 20 49 53 20 4E 45 57 20 55 |IF DISK IS NEW U| 000009A0: 53 45 22 00 C2 11 39 2B 99 A3 32 29 22 54 48 45 |SE"...9+..2)"THE| 000009B0: 20 3C 20 46 31 20 3E 20 46 55 4E 43 54 49 4F 4E | < F1 > FUNCTION| 000009C0: 2E 22 00 E2 11 3E 2B 99 A3 32 30 AB 31 31 AD 32 |."...>+..20.11.2| 000009D0: 29 22 11 1C 12 2A 20 57 41 52 4E 49 4E 47 20 2A |)"...* WARNING *| 000009E0: 90 22 00 0B 12 48 2B 99 A3 32 29 22 11 11 49 46 |."...H+..2)"..IF| 000009F0: 20 54 48 45 52 45 20 41 52 45 20 41 4E 59 20 50 | THERE ARE ANY P| 00000A00: 52 4F 47 52 41 4D 53 20 4F 4E 22 00 38 12 52 2B |ROGRAMS ON".8.R+| 00000A10: 99 A3 32 29 22 54 48 49 53 20 44 49 53 4B 2C 20 |..2)"THIS DISK, | 00000A20: 54 48 45 59 20 57 49 4C 4C 20 42 45 20 44 49 53 |THEY WILL BE DIS| 00000A30: 54 52 4F 59 45 44 2E 22 00 58 12 5C 2B 99 A3 31 |TROYED.".X.\+..1| 00000A40: 30 29 22 50 52 45 53 53 20 3C 20 46 37 20 3E 20 |0)"PRESS < F7 > | 00000A50: 54 4F 20 45 58 49 54 22 00 7D 12 66 2B 99 A3 37 |TO EXIT".}.f+..7| 00000A60: 29 22 50 52 45 53 53 20 3C 20 52 45 54 55 52 4E |)"PRESS < RETURN| 00000A70: 20 3E 20 54 4F 20 46 4F 52 4D 41 54 22 00 A2 12 | > TO FORMAT"...| 00000A80: 70 2B A1 20 43 24 3A 8B 20 43 24 B3 B1 22 88 22 |p+. C$:. C$.."."| 00000A90: AF 43 24 B3 B1 C7 28 31 33 29 20 A7 20 31 31 31 |.C$...(13) . 111| 00000AA0: 32 30 00 B2 12 7A 2B 8B 20 43 24 B2 22 88 22 A7 |20...z+. C$.".".| 00000AB0: 20 8A 00 BC 12 84 2B 99 22 93 22 3B 00 D3 12 8E | .....+.".";....| 00000AC0: 2B 99 22 45 4E 54 45 52 20 44 49 53 4B 20 4E 41 |+."ENTER DISK NA| 00000AD0: 4D 45 22 00 E1 12 98 2B 85 22 3E 20 22 3B 44 4E |ME"....+."> ";DN| 00000AE0: 24 00 F9 12 A2 2B 8B 20 C3 28 44 4E 24 29 B1 31 |$....+. .(DN$).1| 00000AF0: 36 20 A7 20 31 31 31 34 30 00 0A 13 D4 2B 8D 20 |6 . 11140....+. | 00000B00: 31 30 30 30 3A 99 22 90 11 22 00 3C 13 DE 2B 99 |1000:."..".<..+.| 00000B10: A3 32 30 AB 33 33 AD 32 29 22 46 4F 52 4D 41 54 |.20.33.2)"FORMAT| 00000B20: 54 49 4E 47 20 44 49 53 4B 20 2D 20 50 4C 45 41 |TING DISK - PLEA| 00000B30: 53 45 20 53 54 41 4E 44 20 42 59 22 00 6D 13 E3 |SE STAND BY".m..| 00000B40: 2B 48 44 24 B2 22 4E 45 57 30 3A 22 AA 44 4E 24 |+HD$."NEW0:".DN$| 00000B50: 3A 99 A3 38 29 22 44 49 53 4B 20 48 45 41 44 45 |:..8)"DISK HEADE| 00000B60: 52 20 57 49 4C 4C 20 52 45 41 44 3A 22 00 83 13 |R WILL READ:"...| 00000B70: E4 2B 99 A3 38 29 22 3E 1C 20 22 44 4E 24 3A 99 |.+..8)">. "DN$:.| 00000B80: 22 90 22 00 9D 13 E8 2B 8D 20 32 30 30 30 30 3A |"."....+. 20000:| 00000B90: 8F 20 46 4F 52 4D 41 54 20 44 49 53 4B 00 A3 13 |. FORMAT DISK...| 00000BA0: F2 2B 3A 00 CC 13 FC 2B 99 A3 32 29 22 44 49 53 |.+:....+..2)"DIS| 00000BB0: 4B 20 49 53 20 52 45 2D 46 4F 52 4D 41 54 54 45 |K IS RE-FORMATTE| 00000BC0: 44 20 41 4E 44 20 52 45 41 44 59 22 00 DF 13 01 |D AND READY"....| 00000BD0: 2C 99 A3 32 29 22 46 4F 52 20 55 53 45 2E 22 00 |,..2)"FOR USE.".| 00000BE0: 0A 14 06 2C 99 A3 32 29 22 11 11 50 52 45 53 53 |...,..2)"..PRESS| 00000BF0: 20 3C 20 46 37 20 3E 20 54 4F 20 52 45 54 55 52 | < F7 > TO RETUR| 00000C00: 4E 20 54 4F 20 4D 45 4E 55 22 00 25 14 10 2C A1 |N TO MENU".%..,.| 00000C10: 20 43 24 3A 8B 20 43 24 B3 B1 22 88 22 20 A7 20 | C$:. C$.."." . | 00000C20: 31 31 32 38 30 00 2D 14 1A 2C 9C 3A 8A 00 45 14 |11280.-..,.:..E.| 00000C30: E0 2E 8F 20 46 33 20 53 45 4C 45 43 54 49 4F 4E |... F3 SELECTION| 00000C40: 20 49 4E 53 54 00 4B 14 EA 2E 3A 00 56 14 F4 2E | INST.K...:.V...| 00000C50: 99 22 90 13 11 22 00 8E 14 FE 2E 97 20 35 33 32 |."..."...... 532| 00000C60: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A 99 |81,6:.53280,14:.| 00000C70: C7 28 31 35 34 29 3A 8F 20 52 45 53 45 54 20 43 |.(154):. RESET C| 00000C80: 4F 4C 4F 52 20 54 4F 20 4E 4F 52 4D 41 4C 00 BA |OLOR TO NORMAL..| 00000C90: 14 08 2F 99 22 93 11 11 54 48 45 20 50 52 4F 47 |../."...THE PROG| 00000CA0: 52 41 4D 20 57 49 4C 4C 20 42 45 20 4F 55 54 20 |RAM WILL BE OUT | 00000CB0: 4F 46 20 4D 45 4D 4F 52 59 22 00 D5 14 12 2F 99 |OF MEMORY"..../.| 00000CC0: 22 41 54 20 54 48 45 20 45 4E 44 20 4F 46 20 43 |"AT THE END OF C| 00000CD0: 4F 55 4E 54 22 00 F8 14 1C 2F 99 22 50 52 45 53 |OUNT"..../."PRES| 00000CE0: 53 20 3C 20 41 4E 59 20 4B 45 59 20 3E 20 54 4F |S < ANY KEY > TO| 00000CF0: 20 52 45 53 54 4F 52 45 00 1B 15 26 2F 99 22 50 | RESTORE...&/."P| 00000D00: 52 4F 47 52 41 4D 20 42 45 46 4F 52 45 20 54 49 |ROGRAM BEFORE TI| 00000D10: 4D 45 20 45 58 50 49 52 45 53 22 00 30 15 30 2F |ME EXPIRES".0.0/| 00000D20: 81 20 49 B2 31 30 30 30 20 A4 20 30 20 A9 AB 31 |. I.1000 . 0 ..1| 00000D30: 00 4D 15 3A 2F 99 22 13 11 11 11 11 11 11 22 3A |.M.:/.".......":| 00000D40: 49 24 B2 C4 28 49 29 AA 22 20 20 20 22 00 5E 15 |I$..(I)." ".^.| 00000D50: 44 2F 99 22 13 11 11 11 11 11 11 22 49 24 00 72 |D/."......."I$.r| 00000D60: 15 4E 2F A1 20 43 24 3A 8B 43 24 B3 B1 22 22 A7 |.N/. C$:.C$.."".| 00000D70: 20 8A 00 78 15 58 2F 82 00 8E 15 62 2F 99 22 11 | ..x.X/....b/.".| 00000D80: 11 11 2A 20 41 44 49 4F 53 20 2A 22 3A A2 00 94 |..* ADIOS *":...| 00000D90: 15 6C 2F 3A 00 9A 15 76 2F 80 00 B7 15 38 4A 8F |.l/:...v/....8J.| 00000DA0: 20 46 4F 52 4D 41 54 20 44 49 53 4B 20 52 4F 55 | FORMAT DISK ROU| 00000DB0: 52 4F 55 54 49 4E 45 00 C4 15 20 4E 9F 31 35 2C |ROUTINE... N.15,| 00000DC0: 38 2C 31 35 00 D0 15 34 4E 98 31 35 2C 48 44 24 |8,15...4N.15,HD$| 00000DD0: 00 D8 15 3E 4E A0 31 35 00 DE 15 48 4E 8E 00 00 |...>N.15...HN...| 00000DE0: 00 |. |
..&.... ******************************.K
.... * *.P...
. * C-64 AUTO DISK FORMAT *...(.. *
JIM JELF *...2.. ****
**************************...<.:.F.F.:..
.D.. ****************************...N..
* VARIABLE LIST *./.X.. *
*.R.... * BC = 532
80 BDR CLR POKE *.U.... * SC = 53281 SC
R CLR POKE *...... * TT$= C-64 AUTO DIS
K FOR- *... .. * MAT PROGRAM
*...... * *..
.... * *... .:.
..*.. SET VARIABLES.!.4.:.7.>.BC.53280:S
C.53281.D.H.TT$."C-64 AUTO DISK FORMAT P
ROGRAM MENU".T....1000:.1060.Z...:......
.....:.....:......".";:. CLEAR SCREEN...
... SC,1:.BC,1.Q.... I.1 . 39:.".. ";:.
I...... I.1 . 23:.". ..";:. I...... I.1
. 39:.". ..";:..#.... I.1 . 23:.". ..";:
.:..B.$..".";:. LETTERING TO BLACK.L....
"..".B.8...20.C(TT$).2)TT$.H.B.....L...0
8)"< F1 > FORMAT NEW DISK"...V...08)"< F
3 > RE-FORMAT OLD DISK".M.`...08)"< F5 >
EXIT PROGRAM...J...12)"..ENTER SELECTIO
N"...T...16)"< >".&.~.. C$:. C$..".".
C$..".".C$.."." . 1150.A.... C$."." . ..
18)"..F1".\.... C$."." . ..18)"..F3".W..
.. C$."." . ..18)"..F5".}...:.......3)"I
S YOUR SELECTION CORRECT < Y/N >".P....
YN$:. YN$.."Y" . YN$.."N" . 1210...D.. Y
N$."N" . ....N.. C$.".". . 1000:.10000:.
...X.. C$.".". . 1000:.11000:..<.... C$.
".". . 1000:.12000:..T..'. F1 SELECTION
INST.Z..':.E.$'."..."....'..2)"THIS PROG
RAM WILL FORMAT A NEW DISK."...8'..2)"IT
IS ASSUMED THAT YOUR DISK HAS"...B'..2)
"NEVER BEEN USE BEFORE AND IS FREE"...L'
..2)"OF ANY PROGRAMS".&.V'..20.11.2)"...
.* WARNING *.".O.`'..2)"..IF THERE ARE A
NY PROGRAMS ON".|.J'..2)"THIS DISK, THEY
WILL BE DISTROYED."...T'..10)"PRESS < F
7 > TO EXIT".A.~'..7)"PRESS < RETURN > T
O FORMAT"....'. C$:. C$..".".C$..G(13) .
10120....'. C$.".". .....'.".";....'."E
NTER DISK NAME".%..'."> ";DN$.=..'. C(DN
$).16 . 10140.\.N'."ENTER 2 DIGIT ID NUM
BER".J.X'."> ";ID$....'. C(ID$).2 . 1014
0....'. 1000:."..":ID.E(ID$).N..'..20.33
.2)"FORMATTING DISK - PLEASE STAND BY"..
..'HD$."NEW0:".DN$.",".D(ID):..8)"DISK H
EADER WILL READ:".'..'..8)">. "DN$.",".D
(ID)".".A..(. 20000:. FORMAT DISK.G..(:.
V..(..2)"DISK IS FORMATTED AND READY FOR
USE."....(..2)"..PRESS < F7 > TO RETURN
TO MENU"...((. C$:. C$.."." . 10280.D.2
(.:.....*. F2 SELECTION INST....+:....+.
"..."....+..2)"THIS PROGRAM WILL RE-FORM
AT A DISK.".F. +..2)"IT IS ASSUMED THAT
YOUR DISK HAS".V.*+..2)"BEEN FORMATTED B
EFORE AND HAS DATA OR"...4+..2)"PROGRAMS
ON IT. IF DISK IS NEW USE".B.9+..2)"THE
< F1 > FUNCTION."...>+..20.11.2)"...* W
ARNING *."...H+..2)"..IF THERE ARE ANY P
ROGRAMS ON".8.R+..2)"THIS DISK, THEY WIL
L BE DISTROYED.".X.\+..10)"PRESS < F7 >
TO EXIT".}.F+..7)"PRESS < RETURN > TO FO
RMAT"...P+. C$:. C$..".".C$..G(13) . 111
20...Z+. C$.".". .....+.".";.S..+."ENTER
DISK NAME"....+."> ";DN$....+. C(DN$).1
6 . 11140...T+. 1000:."..".<..+..20.33.2
)"FORMATTING DISK - PLEASE STAND BY".M..
+HD$."NEW0:".DN$:..8)"DISK HEADER WILL R
EAD:"....+..8)">. "DN$:."."....+. 20000:
. FORMAT DISK....+:.L..+..2)"DISK IS RE-
FORMATTED AND READY"....,..2)"FOR USE.".
...,..2)"..PRESS < F7 > TO RETURN TO MEN
U".%..,. C$:. C$.."." . 11280.-..,.:..E.
... F3 SELECTION INST.K...:.V...."..."..
.... 53281,6:.53280,14:.G(154):. RESET C
OLOR TO NORMAL..../."...THE PROGRAM WILL
BE OUT OF MEMORY".U../."AT THE END OF C
OUNT"..../."PRESS < ANY KEY > TO RESTORE
...&/."PROGRAM BEFORE TIME EXPIRES".0.0/
. I.1000 . 0 ..1.M.:/.".......":I$.D(I).
" ".^.D/."......."I$.R.N/. C$:.C$.."".
..X.X/....B/."...* ADIOS *":....L/:...V
/....8J. FORMAT DISK ROUROUTINE.D. N.15,
8,15.P.4N.15,HD$.X.>N 15...HN....
> CLICK IMAGE PREVIEW FOR FULL MODAL