00000000: 01 1C 2E 1C 0A 00 8F 20 20 2A 2D 2D 2D 2D 2D 2D |....... *------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 00 5B |-------------*.[|
00000030: 1C 14 00 8F 20 20 2A 20 20 20 20 20 20 20 20 20 |.... * |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 20 20 20 20 20 20 20 20 2A 00 88 1C 1E 00 | *.....|
00000060: 8F 20 20 2A 20 46 4F 52 4D 41 54 20 50 52 4F 47 |. * FORMAT PROG|
00000070: 52 41 4D 20 46 4F 52 20 54 48 45 20 31 35 37 31 |RAM FOR THE 1571|
00000080: 20 4D 46 4D 20 20 20 2A 00 B5 1C 28 00 8F 20 20 | MFM *...(.. |
00000090: 2A 20 57 52 49 54 54 45 4E 20 33 2F 32 36 2F 38 |* WRITTEN 3/26/8|
000000A0: 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |6 |
000000B0: 20 20 20 20 2A 00 E2 1C 32 00 8F 20 20 2A 20 42 | *...2.. * B|
000000C0: 59 20 54 4F 4D 20 44 41 56 49 53 2C 20 37 32 34 |Y TOM DAVIS, 724|
000000D0: 32 36 2C 32 33 31 32 20 28 43 49 53 29 20 20 20 |26,2312 (CIS) |
000000E0: 20 2A 00 0F 1D 3C 00 8F 20 20 2A 20 20 20 20 20 | *...<.. * |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000110: 3C 1D 46 00 8F 20 20 2A 2D 2D 2D 2D 2D 2D 2D 2D |<.F.. *--------|
00000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 00 4B 1D 5A |-----------*.K.Z|
00000140: 00 86 20 41 24 28 31 30 2C 32 29 00 7E 1D 64 00 |.. A$(10,2).~.d.|
00000150: 99 20 22 93 11 11 11 D0 4C 45 41 53 45 20 D7 41 |. ".....LEASE .A|
00000160: 49 54 2E 2E 20 D3 45 54 54 49 4E 47 20 D5 50 20 |IT.. .ETTING .P |
00000170: 44 41 54 41 20 54 41 42 4C 45 53 2E 2E 22 00 88 |DATA TABLES.."..|
00000180: 1D 6E 00 8C 3A 49 B2 31 00 9C 1D 78 00 58 B2 58 |.n..:I.1...x.X.X|
00000190: AA 31 3A 87 20 41 24 28 58 2C 30 29 00 B8 1D 7D |.1:. A$(X,0)...}|
000001A0: 00 8B 20 41 24 28 58 2C 30 29 20 B2 20 22 45 4E |.. A$(X,0) . "EN|
000001B0: 44 22 20 A7 20 32 30 30 00 E8 1D 82 00 87 20 41 |D" . 200...... A|
000001C0: 3A 20 8B 20 41 20 B2 B1 20 30 20 A7 20 41 24 28 |: . A .. 0 . A$(|
000001D0: 58 2C 49 29 B2 41 24 28 58 2C 49 29 AA C7 28 41 |X,I).A$(X,I)..(A|
000001E0: 29 3A 20 89 20 31 33 30 00 FF 1D 8C 00 8B 20 41 |): . 130...... A|
000001F0: B2 AB 32 20 A7 20 49 B2 32 3A 89 20 31 33 30 00 |..2 . I.2:. 130.|
00000200: 09 1E 96 00 89 20 31 32 30 00 3C 1E C8 00 99 20 |..... 120.<.... |
00000210: 22 93 11 11 11 09 C6 4F 4C 4C 4F 57 49 4E 47 20 |"......OLLOWING |
00000220: C6 4F 52 4D 41 54 53 20 41 52 45 20 41 56 41 49 |.ORMATS ARE AVAI|
00000230: 4C 41 42 4C 45 20 2D 22 3A 99 3A 99 00 63 1E D2 |LABLE -":.:..c..|
00000240: 00 81 20 49 20 B2 20 31 20 A4 20 58 AB 31 3A 99 |.. I . 1 . X.1:.|
00000250: 20 22 09 09 09 22 49 2C 41 24 28 49 2C 30 29 3A | "..."I,A$(I,0):|
00000260: 82 3A 99 00 9E 1E DC 00 99 20 22 D0 4C 45 41 53 |.:....... ".LEAS|
00000270: 45 20 C3 48 4F 49 43 45 20 4F 4E 45 20 42 59 20 |E .HOICE ONE BY |
00000280: 4E 55 4D 42 45 52 20 22 3B 3A 85 20 41 3A 8B 41 |NUMBER ";:. A:.A|
00000290: B1 33 20 B0 20 41 B3 31 20 A7 20 32 30 30 00 CA |.3 . A.1 . 200..|
000002A0: 1E E6 00 99 22 93 11 11 11 C6 4F 52 4D 41 54 49 |....".....ORMATI|
000002B0: 4E 47 20 C6 4F 52 20 2D 2D 3D 3E 3E 20 12 22 41 |NG .OR --=>> ."A|
000002C0: 24 28 41 2C 30 29 20 22 92 22 00 1D 1F F0 00 99 |$(A,0) "."......|
000002D0: 3A 99 3A 99 20 22 D0 4C 45 41 53 45 20 D0 4C 41 |:.:. ".LEASE .LA|
000002E0: 43 45 20 44 49 53 4B 20 54 4F 20 46 4F 52 4D 41 |CE DISK TO FORMA|
000002F0: 54 20 49 4E 20 44 52 49 56 45 20 23 38 22 3A 99 |T IN DRIVE #8":.|
00000300: 20 22 D0 52 45 53 53 20 12 3C D2 C5 D4 D5 D2 CE | ".RESS .<......|
00000310: 3E 92 20 54 4F 20 46 4F 52 4D 41 54 22 00 36 1F |>. TO FORMAT".6.|
00000320: FA 00 A1 F9 20 41 24 3A 8B 41 24 B3 B1 C7 28 31 |.... A$:.A$...(1|
00000330: 33 29 A7 32 35 30 00 7B 1F 04 01 49 B2 31 3A 99 |3).250.{...I.1:.|
00000340: 20 22 11 11 D0 4C 45 41 53 45 20 D7 41 49 54 2E | "...LEASE .AIT.|
00000350: 20 20 C6 4F 52 4D 41 54 49 4E 47 20 C4 49 53 4B | .ORMATING .ISK|
00000360: 2E 2E 2E 22 3A 99 20 22 C4 52 49 56 45 20 D3 54 |...":. ".RIVE .T|
00000370: 41 54 55 53 20 3D 20 22 44 53 24 00 D1 1F 0E 01 |ATUS = "DS$.....|
00000380: 9F 31 35 2C 38 2C 31 35 2C 22 55 30 22 AA 41 24 |.15,8,15,"U0".A$|
00000390: 28 41 2C 49 29 3A 8B 44 53 B3 B1 30 A7 99 22 C5 |(A,I):.DS..0..".|
000003A0: 52 52 4F 52 21 20 C1 42 4F 52 54 49 4E 47 20 C6 |RROR! .BORTING .|
000003B0: 4F 52 4D 41 54 2E 2E 22 3A 99 20 22 C4 52 49 56 |ORMAT..":. ".RIV|
000003C0: 45 20 D3 54 41 54 55 53 20 3D 20 22 44 53 24 3A |E .TATUS = "DS$:|
000003D0: 80 00 09 20 13 01 A0 31 35 3A 8B 41 B2 33 AF 49 |... ...15:.A.3.I|
000003E0: B2 31 A7 49 B2 32 3A 99 22 C6 4F 52 4D 41 54 49 |.1.I.2:.".ORMATI|
000003F0: 4E 47 20 C2 41 43 4B 20 D3 49 44 45 20 CE 4F 57 |NG .ACK .IDE .OW|
00000400: 2E 2E 22 3A 89 20 32 37 30 00 36 20 18 01 99 22 |..":. 270.6 ..."|
00000410: 11 11 C4 4F 4E 45 20 46 4F 52 4D 41 54 49 4E 47 |...ONE FORMATING|
00000420: 2E 2E 20 C4 52 49 56 45 20 D3 54 41 54 55 53 20 |.. .RIVE .TATUS |
00000430: 3D 20 22 44 53 24 00 78 20 1D 01 99 22 11 C4 4F |= "DS$.x ..."..O|
00000440: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 46 4F 52 | YOU WISH TO FOR|
00000450: 4D 41 54 20 41 4E 4F 54 48 45 52 3F 20 D0 52 45 |MAT ANOTHER? .RE|
00000460: 53 53 20 D9 20 46 4F 52 20 59 45 53 2C 20 CE 20 |SS . FOR YES, . |
00000470: 46 4F 52 20 4E 4F 2E 22 00 9A 20 22 01 A1 F9 20 |FOR NO.".. "... |
00000480: 41 24 3A 8B 41 24 B2 22 59 22 B0 20 41 24 B2 22 |A$:.A$."Y". A$."|
00000490: D9 22 A7 20 8A 3A 20 D5 20 80 00 D6 20 D0 07 83 |.". .: . ... ...|
000004A0: 20 22 CF 53 42 4F 52 4E 45 20 31 20 C4 C4 D3 D3 | ".SBORNE 1 ....|
000004B0: 22 2C 37 30 2C 31 39 32 2C 30 2C 33 2C 33 39 2C |",70,192,0,3,39,|
000004C0: 35 2C 30 2C 30 2C 32 32 39 2C 31 2C 32 2C 33 2C |5,0,0,229,1,2,3,|
000004D0: 34 2C 35 2C 2D 31 00 1D 21 DA 07 83 20 22 CB 41 |4,5,-1..!... ".A|
000004E0: 59 50 52 4F 20 C9 C9 20 C4 C4 D3 D3 22 2C 37 30 |YPRO .. ....",70|
000004F0: 2C 31 39 32 2C 30 2C 32 2C 33 39 2C 31 30 2C 30 |,192,0,2,39,10,0|
00000500: 2C 30 2C 32 32 39 2C 30 2C 31 2C 32 2C 33 2C 34 |,0,229,0,1,2,3,4|
00000510: 2C 35 2C 36 2C 37 2C 38 2C 39 2C 2D 31 00 9E 21 |,5,6,7,8,9,-1..!|
00000520: E4 07 83 20 22 CB 41 59 50 52 4F 20 C9 D6 20 C4 |... ".AYPRO .. .|
00000530: C4 C4 D3 22 2C 37 30 2C 31 39 32 2C 30 2C 32 2C |...",70,192,0,2,|
00000540: 33 39 2C 31 30 2C 30 2C 30 2C 32 32 39 2C 30 2C |39,10,0,0,229,0,|
00000550: 31 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C |1,2,3,4,5,6,7,8,|
00000560: 39 2C 2D 32 2C 38 36 2C 31 39 32 2C 30 2C 32 2C |9,-2,86,192,0,2,|
00000570: 33 39 2C 31 30 2C 30 2C 30 2C 32 32 39 2C 31 30 |39,10,0,0,229,10|
00000580: 2C 31 31 2C 31 32 2C 31 33 2C 31 34 2C 31 35 2C |,11,12,13,14,15,|
00000590: 31 36 2C 31 37 2C 31 38 2C 31 39 2C 2D 31 00 AA |16,17,18,19,-1..|
000005A0: 21 EE 07 83 20 22 45 4E 44 22 00 00 00 1A 1A 1A |!... "END"......|
000005B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
000005C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
000005D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
000005E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
000005F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
....... *------------------------------
-----*.[.... *
*...... * FORMAT PROGRAM FOR
THE 1571 MFM *...(.. * WRITTEN 3/26/8
6 *...2.. * BY TOM DA
VIS, 72426,2312 (CIS) *...<.. *
*.<.F.. *
-----------------------------------*.K.Z
.. A$(10,2).~.D.. "....PLEASE WAIT.. SET
TING UP DATA TABLES.."...N..:I.1...X.X.X
.1:. A$(X,0)...}.. A$(X,0) . "END" . 200
...... A: . A .. 0 . A$(X,I).A$(X,I).G(A
): . 130...... A..2 . I.2:. 130...... 12
0.<.H.. ".....FOLLOWING FORMATS ARE AVAI
LABLE -":.:..C.R.. I . 1 . X.1:. "..."I,
A$(I,0):.:....... "PLEASE CHOICE ONE BY
NUMBER ";:. A:.A.3 . A.1 . 200.J...."...
.FORMATING FOR --=>> ."A$(A,0) "."......
:.:. "PLEASE PLACE DISK TO FORMAT IN DRI
VE #8":. "PRESS .<RETURN>. TO FORMAT".6.
.... A$:.A$..G(13).250.{...I.1:. "..PLEA
SE WAIT. FORMATING DISK...":. "DRIVE ST
ATUS = "DS$.Q....15,8,15,"U0".A$(A,I):.D
S..0.."ERROR! ABORTING FORMAT..":. "DRIV
E STATUS = "DS$:... .. 15:.A.3.I.1.I.2:.
"FORMATING BACK SIDE NOW..":. 270.6 ..."
..DONE FORMATING.. DRIVE STATUS = "DS$.X
...".DO YOU WISH TO FORMAT ANOTHER? PRE
SS Y FOR YES, N FOR NO.".. "... A$:.A$."
Y". A$."Y". .: U ..V P.. "OSBORNE 1 DDSS
",70,192,0,3,39,5,0,0,229,1,2,3,4,5,-1..
!Z.. "KAYPRO II DDSS",70,192,0,2,39,10,0
,0,229,0,1,2,3,4,5,6,7,8,9,-1..!... "KAY
PRO IV DDDS",70,192,0,2,39,10,0,0,229,0,
1,2,3,4,5,6,7,8,9,-2,86,192,0,2,39,10,0,
0,229,10,11,12,13,14,15,16,17,18,19,-1..
!... "END"..............................
........................................
................
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL