A� > <Format$Dir>.!RunImage background floppy formatter V 0.05
	�init
� � �error(�,�$)
(�
23 ș "Wimp_PollIdle",poll_mask%,event% � action%
< �despatch_poll
F� �
P:
Z� �abort
d�tidy_up
n�report("Aborted")
x�
�:
�� �check_disc
�� flag%
�2ș "XADFS_DescribeDisc",�drive%,q% � R0%;flag%
�� flag% � 1 �
� �report(�string0(R0%+4))
� = �
��
� � state% � blank% �
�  � this_format%=2 �
�/   flag%=(!q%=!disc_rec% � q%!16=&5A5A5A00)
�  �
�M   flag%=(!q%=!disc_rec% � q%!16=disc_rec%!16 �(q%!20 � q%!24 � q%!28)=0)

  �

 �


  flag%=�

"  � I%=0 � 28 � 4

,&   � q%!I%<>disc_rec%!I% � flag%=�

6
  � I%

@ �

J> � � flag% �report("Please insert disc in drive "+�drive%)

T = flag%

^�

h:

r� �despatch_poll

|Ȏ action% �

� � 0:�null

�% � 2:ș "Wimp_OpenWindow",,event%

�1 � 3:ș "Wimp_CloseWindow",,event%:�terminate

�H � 6:�mouse(!event%,event%!4,event%!8,event%!12,event%!16,event%!20)

�' � 8:ș "Wimp_ProcessKey",event%!24

� � 17,18:�receive

��

��

�:

�� �disc_add(track%,side%)

�� heads%=1 �

�) = (track%+side%*tracks%)*track_size%

��
# = (track%*2+side%)*track_size%
�
:
&� �moan(report$)
0� &20000,report$
::
D� �error(err%, report$)
N� state% �tidy_up
XV� (err%<&10100 � err%>&20000) � err%<>17 � report$=report$+" internal error "+�(�)
b!q% = err%
l$(q%+4)=report$
v�zero_terminate(q%+4)
�*ș "Wimp_ReportError", q%, 1, "Format"
��
�:
�
� �format
�this_format%=format%
�Qș "XADFS_DiscOp",,op_verify% � (disc_rec%<<6),drive%<<29,0,&400 � R0%;flags%
�=� (flags% � 1)=0 � ș"XOS_CLI","ADFS:DISMOUNT :"+�~drive%
��
�� I%=0 � this_format%
� � � A$
� � A$="Format"
�� I%
�K� Log2SecSize%, sectors%, heads%, skew%, density%, G1%,G2%,G3%,Sec0Gap%
SecSize%=2^Log2SecSize%
?disc_rec%=Log2SecSize%
disc_rec%?1=sectors%
 disc_rec%?2=heads%
*disc_rec%?3=density%
4� this_format%=0 �
> disc_rec%!4=&0001070F
H disc_rec%!8=&05200100
R disc_rec%!12=&203
\�
f disc_rec%!4=0
p disc_rec%!8=0
z � this_format%=1 �
�  disc_rec%!12=&400
� �
�  disc_rec%!12=&200
� �
��
�!track_size%=SecSize%*sectors%
�$disc_size%=track_size%*tracks%*2
�disc_rec%!16=disc_size%
�0$(disc_rec%+22)=$(�icon_add(icon_discname%))
�(� �$(disc_rec%+22)<2 state%=no_name%
�� state% � no_name% �
�
 !q%=3
� ș "OS_Word",14,q%
8 ș "OS_ConvertDateAndTime",q%,buf%,10,"%24_%MI_%W3"
# $(disc_rec%+22)=�string0(buf%)
0 �set_string(icon_discname%,$(disc_rec%+22))
$�
.disc_rec%?34=drive%
8/retries%=�("0"+$(�icon_add(icon_retries%)))
B(�set_string(icon_retries%,�retries%)
Ldisc_add%=0
V
defect%=0
`tries%=0
jstart_sector%=0
tside%=0
~track%=0
�
cyl%=0
�
ptr%=0
��NPut(&4E, G1%+Sec0Gap%)
�� PhysSec%=0 � sectors%-1
� �NPut(0, 12)
� �NPut(&F5, 3)
� �Put(&FE)
� header%(PhysSec%)=ptr%
� �NPut(0, 3)
� �Put(Log2SecSize%-7)
� �Put(&F7)
� �NPut(&4E, G2%)
 �NPut(0, 12)

 �NPut(&F5, 3)
 �Put(&FB)
 �NPut(&5A, SecSize%)
( �Put(&F7)
2= � PhysSec%<>sectors%-1 �NPut(&4E, G3%) � �NPut(&4E, �G4)
<� PhysSec%
FDstate%=state% � formatting% � blank%:poll_mask%=poll_mask% � � 1
P�op(op_restore%,0,0,0)
Z�write_track
d*ș"XOS_CLI","ADFS:DISMOUNT :"+�~drive%
n�
x:
�� �help(help$)
�!help%=256
�help%!12=event%!8
�help%!16=&503
�$(help%+20)=help$
�.ș "Wimp_SendMessage", 17, help%, event%!4
��
�:
�� �icon_add(icon%)
�
!q%=main%
�q%!4=icon%
�ș "Wimp_GetIconState",,q%
�
=q%!28
:
� �init
state%=0
"drive%=0
,
format%=0
6max_track%=6250*1.10
@tracks%=80
Jop_verify%=0
Top_write_sectors%=2
^op_write_track%=4
hop_restore%=6
rI� buf% max_track%, disc_rec% 64, header%(15), dlist% tracks%*2*16*4+4
|icon_drv0%=0
�icon_Eformat%=4
�icon_Dformat%=5
�icon_Lformat%=6
�icon_discname%=8
�icon_retries%=10
�icon_format%=11
�icon_abort%=12
�icon_report%=13
�icon_verify%=14
�idle%=0
�formatting%=1
�verifying%=2
�blank%=4
no_name%=8
poll_mask%=�(&6014C)
maxbuf%=&400
&E� q% &400, curbuf% maxbuf%, event% &100, help% &100, icon_buf% 40
0endbuf%=curbuf%+maxbuf%
:$buf%="TASK"
D+ș "Wimp_Initialise",200,!buf%,"Format"
N4ș "Wimp_OpenTemplate",,"<Format$dir>.Templates"
Xmain% = �window("main")
bș "Wimp_CloseTemplate"
lș "ADFS_Drives" � ,I%
vȕ I%<4
�E �set_icon_state(icon_drv0%+I%,(1<<23) � (1<<7),(1<<23) � (1<<7))
�
 I%+=1
��
�
!q%=main%
�)ș "Wimp_GetWindowState",,q%:q%!28=-1
�ș "Wimp_OpenWindow",,q%
��
�:
�@� �mouse(mousex%,mousey%,buttons%,handle%,icon%,oldbuttons%)
�� buttons% � 5 �
� Ȏ icon% �
�9  � icon_drv0%,icon_drv0%+1,icon_drv0%+2,icon_drv0%+3
�   �select_icon(icon%,1)
   drive%=icon%-icon_drv0%
1  � icon_Eformat%,icon_Dformat%,icon_Lformat%
   �select_icon(icon%,1)
 "   format%=icon%-icon_Eformat%
*)  � icon_format%:� state%=0 � �format
4#  � icon_abort%:� state% �abort
>)  � icon_verify%:� state%=0 � �verify
H �
R�
\�
f:
p� �next
z;start_sector%=(start_sector%+sectors%-skew%) � sectors%
�� heads%=1 �
� track%+=1
�) � track%=tracks% � track%=0:side%+=1
� = (side%=2)
��
�
 side%+=1
�" � side%=2 � side%=0:track%+=1
� = (track%=tracks%)
��
�:
�� �null
�� �check_disc �
� � state% � formatting% �
	  �write_track
	 �
	  �verify_track
	$ �
	.�
	8�
	B:
	L� �op(b%, c%, D%, E%)
	V� B%,C%
	`B%=b%+64*disc_rec%
	jC%=c% � (drive%<<29)
	t"ș "ADFS_DiscOp",0,B%,C%,D%,E%
	~�
	�:
	�� �receive
	�Ȏ event%!16 �
	� � 0:�terminate
	� � &502
	�  � state% �
	�   Ȏ event%!36 �
	�    � icon_abort%
	�+     �help("Click to abort operation.")
	�   �
	�  �
	�   Ȏ event%!36 �
;    � icon_drv0%,icon_drv0%+1,icon_drv0%+2,icon_drv0%+3

(     �help("Click to select drive.")
3    � icon_Eformat%,icon_Dformat%,icon_Lformat%
)     �help("Click to select format.")
(    � icon_discname%
2X     �help("Enter a disc name, or leave blank to have one generated from the date.")
<    � icon_retries%
F5     �help("Enter number of retries to perform.")
P    � icon_format%
Z=     �help("Click to format the disc in selected drive.")
d    � icon_verify%
nA     �help("Click to verify the disc in the selected drive.")
x   �
�  �
��
��
�:
�� �report(report$)
�*�set_string(icon_report%,�report$,40))
��
�:
�� �select_icon(icon%,s%)
�'�set_icon_state(icon%,s%<<21,1<<21)
��
�:
�)� �set_icon_state(icon%, eor%, mask%)
!icon_buf%=main%
icon_buf%!4=icon%
icon_buf%!8=eor%
"icon_buf%!12=mask%
,%ș "Wimp_SetIconState",,icon_buf%
6�
@:
J� �set_string(icon%,s$)
T� S%
^S%=�icon_add(icon%)
h
$S%=s$
r�set_icon_state(icon%,0,0)
|�
�:
�� �string0(s%)
�� s$
�ȕ?s%:s$+=�?s%:s%+=1:�
�=s$
�:
�� �structure
�� free%,opt%,defect$
�Ȏ this_format% �
� � 0:opt%=0
� � 1:opt%=&40
� � 2:opt%=&C0
��
dlist%!defect%=1<<29
Gș "FileCore_FloppyStructure",buf%,disc_rec%,opt%,dlist% � ,,,size%
'�op(op_write_sectors%,0,buf%,size%)
&*ș"XOS_CLI","ADFS:DISMOUNT :"+�~drive%
0&ș"ADFS_FreeSpace",�drive% � free%
:� defect% �
D/ defect$=", "+�(defect%/4)+" defects found"
N�
X defect$=""
b�
l8�report("Formatted "+�(free%/1024)+"K free"+defect$)
v�
�:
�� �terminate
�� state% �tidy_up
�ș "Wimp_CloseDown"
��
�:
�� �tidy_up
�poll_mask%=poll_mask% � 1
�8� state% � no_name% � �set_string(icon_discname%,"")
�state%=0
��
�:
�
� �verify

,ș "ADFS_DescribeDisc",�drive%,disc_rec%

)track_size%=disc_rec%?1 << ?disc_rec%

disc_size%=disc_rec%!&10

 disc_add%=0

*state%=verifying%

4poll_mask%=poll_mask% � � 1

>�

H:

R� �verify_track

\� last%

flast%=disc_add%

p1�report("Verifying "+�(disc_add% � 1024)+"K")

z�ș "XADFS_DiscOp",,op_verify% � (disc_rec%<<6),disc_add% � (drive%<<29),0,track_size% - disc_add% � track_size% � disc_error%,,disc_add%;flags%

�disc_add%-=drive%<<29

�!� disc_add%<>last% � tries%=0

�� flags% � 1 �

�( � (!disc_error% � &FFFFFF)=&108C7 �

�  tries%+=1

�  �op(op_restore%,0,0,0)

�  � tries%>retries% �

�/   �report("defect found at &"+�~disc_add%)

�-   � this_format%=0 � (state% � blank%) �

�     dlist%!defect%=disc_add%

�    defect%+=4

�    tries%=0

�    disc_add%+=SecSize%
   �
    �tidy_up
   �
$  �
. �
8$  �moan(�string0(disc_error%+4))
B �
L�
V� disc_add%=disc_size% �
` � state% � blank% �
j  �structure
t �
~1  �report("Verified "+�(disc_size%/1024)+"K")
� �
�
 �tidy_up
��
��
�:
�� �window(a$)
�� c%
�Hș "Wimp_LoadTemplate",,q%,curbuf%,endbuf%,-1,a$,0 � ,,curbuf%,,,,c%
�#ș "Wimp_CreateWindow",,q% � c%
�=c%
�:
�� �write_track
� I%=0 � sectors%-1

 H%=header%(I%)+buf%
 ?H%=track%
 H%?1=side%
(& H%?2=(I%+start_sector%)� sectors%
2� I%
<8�report("Formatting track "+�track%+" side "+�side%)
FO�op(op_write_track%,�disc_add(track%,side%),buf%+side%*Sec0Gap%,max_track%)
P
� �next �
Z1 state%=(state% � � formatting%) � verifying%
d �op(op_restore%,0,0,0)
n�
x�
�:
�� �zero_terminate(S%)
�
S%?�$S%=0
��
�:
�� �G4=max_track%-ptr%
�:
�� �Put(byte%)
�buf%?ptr%=byte%
�ptr%+=1
��
�:
�� �NPut(byte%,num%)
� num%=0 �
%� I%=buf%+ptr% � buf%+ptr%+num%-1
 ?I%=byte%
"�
,ptr%+=num%
6�
@:
Jg� 'Format', Log2 sector size, secs per trk, heads, skew, density , Gap 1, Gap 2, Gap3, Sector 0 gap
T/� Format, 10,  5, 2, 0, 2, 32, 22,  90, 271
^/� Format, 10,  5, 2, 0, 2, 32, 22,  90, 271
h/� Format,  8, 16, 1, 4, 2, 42, 22,  57,   0
�

00000000  0d 00 0a 41 f4 20 3e 20  3c 46 6f 72 6d 61 74 24  |...A. > <Format$|
00000010  44 69 72 3e 2e 21 52 75  6e 49 6d 61 67 65 20 62  |Dir>.!RunImage b|
00000020  61 63 6b 67 72 6f 75 6e  64 20 66 6c 6f 70 70 79  |ackground floppy|
00000030  20 66 6f 72 6d 61 74 74  65 72 20 56 20 30 2e 30  | formatter V 0.0|
00000040  35 0d 00 14 09 f2 69 6e  69 74 0d 00 1e 14 ee 20  |5.....init..... |
00000050  85 20 f2 65 72 72 6f 72  28 9f 2c f6 24 29 0d 00  |. .error(.,.$)..|
00000060  28 05 f5 0d 00 32 33 20  c8 99 20 22 57 69 6d 70  |(....23 .. "Wimp|
00000070  5f 50 6f 6c 6c 49 64 6c  65 22 2c 70 6f 6c 6c 5f  |_PollIdle",poll_|
00000080  6d 61 73 6b 25 2c 65 76  65 6e 74 25 20 b8 20 61  |mask%,event% . a|
00000090  63 74 69 6f 6e 25 0d 00  3c 13 20 f2 64 65 73 70  |ction%..<. .desp|
000000a0  61 74 63 68 5f 70 6f 6c  6c 0d 00 46 07 fd 20 a3  |atch_poll..F.. .|
000000b0  0d 00 50 05 3a 0d 00 5a  0c dd 20 f2 61 62 6f 72  |..P.:..Z.. .abor|
000000c0  74 0d 00 64 0c f2 74 69  64 79 5f 75 70 0d 00 6e  |t..d..tidy_up..n|
000000d0  16 f2 72 65 70 6f 72 74  28 22 41 62 6f 72 74 65  |..report("Aborte|
000000e0  64 22 29 0d 00 78 05 e1  0d 00 82 05 3a 0d 00 8c  |d")..x......:...|
000000f0  11 dd 20 a4 63 68 65 63  6b 5f 64 69 73 63 0d 00  |.. .check_disc..|
00000100  96 0b ea 20 66 6c 61 67  25 0d 00 a0 32 c8 99 20  |... flag%...2.. |
00000110  22 58 41 44 46 53 5f 44  65 73 63 72 69 62 65 44  |"XADFS_DescribeD|
00000120  69 73 63 22 2c c3 64 72  69 76 65 25 2c 71 25 20  |isc",.drive%,q% |
00000130  b8 20 52 30 25 3b 66 6c  61 67 25 0d 00 aa 11 e7  |. R0%;flag%.....|
00000140  20 66 6c 61 67 25 20 80  20 31 20 8c 0d 00 b4 1d  | flag% . 1 .....|
00000150  20 f2 72 65 70 6f 72 74  28 a4 73 74 72 69 6e 67  | .report(.string|
00000160  30 28 52 30 25 2b 34 29  29 0d 00 be 08 20 3d 20  |0(R0%+4)).... = |
00000170  a3 0d 00 c8 05 cc 0d 00  d2 18 20 e7 20 73 74 61  |.......... . sta|
00000180  74 65 25 20 80 20 62 6c  61 6e 6b 25 20 8c 0d 00  |te% . blank% ...|
00000190  dc 18 20 20 e7 20 74 68  69 73 5f 66 6f 72 6d 61  |..  . this_forma|
000001a0  74 25 3d 32 20 8c 0d 00  e6 2f 20 20 20 66 6c 61  |t%=2 ..../   fla|
000001b0  67 25 3d 28 21 71 25 3d  21 64 69 73 63 5f 72 65  |g%=(!q%=!disc_re|
000001c0  63 25 20 80 20 71 25 21  31 36 3d 26 35 41 35 41  |c% . q%!16=&5A5A|
000001d0  35 41 30 30 29 0d 00 f0  07 20 20 cc 0d 00 fa 4d  |5A00)....  ....M|
000001e0  20 20 20 66 6c 61 67 25  3d 28 21 71 25 3d 21 64  |   flag%=(!q%=!d|
000001f0  69 73 63 5f 72 65 63 25  20 80 20 71 25 21 31 36  |isc_rec% . q%!16|
00000200  3d 64 69 73 63 5f 72 65  63 25 21 31 36 20 80 28  |=disc_rec%!16 .(|
00000210  71 25 21 32 30 20 84 20  71 25 21 32 34 20 84 20  |q%!20 . q%!24 . |
00000220  71 25 21 32 38 29 3d 30  29 0d 01 04 07 20 20 cd  |q%!28)=0)....  .|
00000230  0d 01 0e 06 20 cc 0d 01  18 0d 20 20 66 6c 61 67  |.... .....  flag|
00000240  25 3d b9 0d 01 22 15 20  20 e3 20 49 25 3d 30 20  |%=...".  . I%=0 |
00000250  b8 20 32 38 20 88 20 34  0d 01 2c 26 20 20 20 e7  |. 28 . 4..,&   .|
00000260  20 71 25 21 49 25 3c 3e  64 69 73 63 5f 72 65 63  | q%!I%<>disc_rec|
00000270  25 21 49 25 20 8c 20 66  6c 61 67 25 3d a3 0d 01  |%!I% . flag%=...|
00000280  36 0a 20 20 ed 20 49 25  0d 01 40 06 20 cd 0d 01  |6.  . I%..@. ...|
00000290  4a 3e 20 e7 20 ac 20 66  6c 61 67 25 20 f2 72 65  |J> . . flag% .re|
000002a0  70 6f 72 74 28 22 50 6c  65 61 73 65 20 69 6e 73  |port("Please ins|
000002b0  65 72 74 20 64 69 73 63  20 69 6e 20 64 72 69 76  |ert disc in driv|
000002c0  65 20 22 2b c3 64 72 69  76 65 25 29 0d 01 54 0c  |e "+.drive%)..T.|
000002d0  20 3d 20 66 6c 61 67 25  0d 01 5e 05 cd 0d 01 68  | = flag%..^....h|
000002e0  05 3a 0d 01 72 14 dd 20  f2 64 65 73 70 61 74 63  |.:..r.. .despatc|
000002f0  68 5f 70 6f 6c 6c 0d 01  7c 10 c8 8e 20 61 63 74  |h_poll..|... act|
00000300  69 6f 6e 25 20 ca 0d 01  86 0e 20 c9 20 30 3a f2  |ion% ..... . 0:.|
00000310  6e 75 6c 6c 0d 01 90 25  20 c9 20 32 3a c8 99 20  |null...% . 2:.. |
00000320  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00000330  22 2c 2c 65 76 65 6e 74  25 0d 01 9a 31 20 c9 20  |",,event%...1 . |
00000340  33 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |3:.. "Wimp_Close|
00000350  57 69 6e 64 6f 77 22 2c  2c 65 76 65 6e 74 25 3a  |Window",,event%:|
00000360  f2 74 65 72 6d 69 6e 61  74 65 0d 01 a4 48 20 c9  |.terminate...H .|
00000370  20 36 3a f2 6d 6f 75 73  65 28 21 65 76 65 6e 74  | 6:.mouse(!event|
00000380  25 2c 65 76 65 6e 74 25  21 34 2c 65 76 65 6e 74  |%,event%!4,event|
00000390  25 21 38 2c 65 76 65 6e  74 25 21 31 32 2c 65 76  |%!8,event%!12,ev|
000003a0  65 6e 74 25 21 31 36 2c  65 76 65 6e 74 25 21 32  |ent%!16,event%!2|
000003b0  30 29 0d 01 ae 27 20 c9  20 38 3a c8 99 20 22 57  |0)...' . 8:.. "W|
000003c0  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
000003d0  65 76 65 6e 74 25 21 32  34 0d 01 b8 15 20 c9 20  |event%!24.... . |
000003e0  31 37 2c 31 38 3a f2 72  65 63 65 69 76 65 0d 01  |17,18:.receive..|
000003f0  c2 05 cb 0d 01 cc 05 e1  0d 01 d6 05 3a 0d 01 e0  |............:...|
00000400  1d dd 20 a4 64 69 73 63  5f 61 64 64 28 74 72 61  |.. .disc_add(tra|
00000410  63 6b 25 2c 73 69 64 65  25 29 0d 01 ea 10 e7 20  |ck%,side%)..... |
00000420  68 65 61 64 73 25 3d 31  20 8c 0d 01 f4 29 20 3d  |heads%=1 ....) =|
00000430  20 28 74 72 61 63 6b 25  2b 73 69 64 65 25 2a 74  | (track%+side%*t|
00000440  72 61 63 6b 73 25 29 2a  74 72 61 63 6b 5f 73 69  |racks%)*track_si|
00000450  7a 65 25 0d 01 fe 05 cc  0d 02 08 23 20 3d 20 28  |ze%........# = (|
00000460  74 72 61 63 6b 25 2a 32  2b 73 69 64 65 25 29 2a  |track%*2+side%)*|
00000470  74 72 61 63 6b 5f 73 69  7a 65 25 0d 02 12 05 cd  |track_size%.....|
00000480  0d 02 1c 05 3a 0d 02 26  14 dd 20 f2 6d 6f 61 6e  |....:..&.. .moan|
00000490  28 72 65 70 6f 72 74 24  29 0d 02 30 14 85 20 26  |(report$)..0.. &|
000004a0  32 30 30 30 30 2c 72 65  70 6f 72 74 24 0d 02 3a  |20000,report$..:|
000004b0  05 3a 0d 02 44 1b dd 20  f2 65 72 72 6f 72 28 65  |.:..D.. .error(e|
000004c0  72 72 25 2c 20 72 65 70  6f 72 74 24 29 0d 02 4e  |rr%, report$)..N|
000004d0  15 e7 20 73 74 61 74 65  25 20 f2 74 69 64 79 5f  |.. state% .tidy_|
000004e0  75 70 0d 02 58 56 e7 20  28 65 72 72 25 3c 26 31  |up..XV. (err%<&1|
000004f0  30 31 30 30 20 84 20 65  72 72 25 3e 26 32 30 30  |0100 . err%>&200|
00000500  30 30 29 20 80 20 65 72  72 25 3c 3e 31 37 20 8c  |00) . err%<>17 .|
00000510  20 72 65 70 6f 72 74 24  3d 72 65 70 6f 72 74 24  | report$=report$|
00000520  2b 22 20 69 6e 74 65 72  6e 61 6c 20 65 72 72 6f  |+" internal erro|
00000530  72 20 22 2b c3 28 9e 29  0d 02 62 0e 21 71 25 20  |r "+.(.)..b.!q% |
00000540  3d 20 65 72 72 25 0d 02  6c 13 24 28 71 25 2b 34  |= err%..l.$(q%+4|
00000550  29 3d 72 65 70 6f 72 74  24 0d 02 76 19 f2 7a 65  |)=report$..v..ze|
00000560  72 6f 5f 74 65 72 6d 69  6e 61 74 65 28 71 25 2b  |ro_terminate(q%+|
00000570  34 29 0d 02 80 2a c8 99  20 22 57 69 6d 70 5f 52  |4)...*.. "Wimp_R|
00000580  65 70 6f 72 74 45 72 72  6f 72 22 2c 20 71 25 2c  |eportError", q%,|
00000590  20 31 2c 20 22 46 6f 72  6d 61 74 22 0d 02 8a 05  | 1, "Format"....|
000005a0  e1 0d 02 94 05 3a 0d 02  9e 0d dd 20 f2 66 6f 72  |.....:..... .for|
000005b0  6d 61 74 0d 02 a8 18 74  68 69 73 5f 66 6f 72 6d  |mat....this_form|
000005c0  61 74 25 3d 66 6f 72 6d  61 74 25 0d 02 b2 51 c8  |at%=format%...Q.|
000005d0  99 20 22 58 41 44 46 53  5f 44 69 73 63 4f 70 22  |. "XADFS_DiscOp"|
000005e0  2c 2c 6f 70 5f 76 65 72  69 66 79 25 20 84 20 28  |,,op_verify% . (|
000005f0  64 69 73 63 5f 72 65 63  25 3c 3c 36 29 2c 64 72  |disc_rec%<<6),dr|
00000600  69 76 65 25 3c 3c 32 39  2c 30 2c 26 34 30 30 20  |ive%<<29,0,&400 |
00000610  b8 20 52 30 25 3b 66 6c  61 67 73 25 0d 02 bc 3d  |. R0%;flags%...=|
00000620  e7 20 28 66 6c 61 67 73  25 20 80 20 31 29 3d 30  |. (flags% . 1)=0|
00000630  20 8c 20 c8 99 22 58 4f  53 5f 43 4c 49 22 2c 22  | . .."XOS_CLI","|
00000640  41 44 46 53 3a 44 49 53  4d 4f 55 4e 54 20 3a 22  |ADFS:DISMOUNT :"|
00000650  2b c3 7e 64 72 69 76 65  25 0d 02 c6 05 f7 0d 02  |+.~drive%.......|
00000660  d0 19 e3 20 49 25 3d 30  20 b8 20 74 68 69 73 5f  |... I%=0 . this_|
00000670  66 6f 72 6d 61 74 25 0d  02 da 0b 20 f5 20 f3 20  |format%.... . . |
00000680  41 24 0d 02 e4 12 20 fd  20 41 24 3d 22 46 6f 72  |A$.... . A$="For|
00000690  6d 61 74 22 0d 02 ee 08  ed 20 49 25 0d 02 f8 4b  |mat"..... I%...K|
000006a0  f3 20 4c 6f 67 32 53 65  63 53 69 7a 65 25 2c 20  |. Log2SecSize%, |
000006b0  73 65 63 74 6f 72 73 25  2c 20 68 65 61 64 73 25  |sectors%, heads%|
000006c0  2c 20 73 6b 65 77 25 2c  20 64 65 6e 73 69 74 79  |, skew%, density|
000006d0  25 2c 20 47 31 25 2c 47  32 25 2c 47 33 25 2c 53  |%, G1%,G2%,G3%,S|
000006e0  65 63 30 47 61 70 25 0d  03 02 1b 53 65 63 53 69  |ec0Gap%....SecSi|
000006f0  7a 65 25 3d 32 5e 4c 6f  67 32 53 65 63 53 69 7a  |ze%=2^Log2SecSiz|
00000700  65 25 0d 03 0c 1b 3f 64  69 73 63 5f 72 65 63 25  |e%....?disc_rec%|
00000710  3d 4c 6f 67 32 53 65 63  53 69 7a 65 25 0d 03 16  |=Log2SecSize%...|
00000720  18 64 69 73 63 5f 72 65  63 25 3f 31 3d 73 65 63  |.disc_rec%?1=sec|
00000730  74 6f 72 73 25 0d 03 20  16 64 69 73 63 5f 72 65  |tors%.. .disc_re|
00000740  63 25 3f 32 3d 68 65 61  64 73 25 0d 03 2a 18 64  |c%?2=heads%..*.d|
00000750  69 73 63 5f 72 65 63 25  3f 33 3d 64 65 6e 73 69  |isc_rec%?3=densi|
00000760  74 79 25 0d 03 34 16 e7  20 74 68 69 73 5f 66 6f  |ty%..4.. this_fo|
00000770  72 6d 61 74 25 3d 30 20  8c 0d 03 3e 1a 20 64 69  |rmat%=0 ...>. di|
00000780  73 63 5f 72 65 63 25 21  34 3d 26 30 30 30 31 30  |sc_rec%!4=&00010|
00000790  37 30 46 0d 03 48 1a 20  64 69 73 63 5f 72 65 63  |70F..H. disc_rec|
000007a0  25 21 38 3d 26 30 35 32  30 30 31 30 30 0d 03 52  |%!8=&05200100..R|
000007b0  16 20 64 69 73 63 5f 72  65 63 25 21 31 32 3d 26  |. disc_rec%!12=&|
000007c0  32 30 33 0d 03 5c 05 cc  0d 03 66 12 20 64 69 73  |203..\....f. dis|
000007d0  63 5f 72 65 63 25 21 34  3d 30 0d 03 70 12 20 64  |c_rec%!4=0..p. d|
000007e0  69 73 63 5f 72 65 63 25  21 38 3d 30 0d 03 7a 17  |isc_rec%!8=0..z.|
000007f0  20 e7 20 74 68 69 73 5f  66 6f 72 6d 61 74 25 3d  | . this_format%=|
00000800  31 20 8c 0d 03 84 17 20  20 64 69 73 63 5f 72 65  |1 .....  disc_re|
00000810  63 25 21 31 32 3d 26 34  30 30 0d 03 8e 06 20 cc  |c%!12=&400.... .|
00000820  0d 03 98 17 20 20 64 69  73 63 5f 72 65 63 25 21  |....  disc_rec%!|
00000830  31 32 3d 26 32 30 30 0d  03 a2 06 20 cd 0d 03 ac  |12=&200.... ....|
00000840  05 cd 0d 03 b6 21 74 72  61 63 6b 5f 73 69 7a 65  |.....!track_size|
00000850  25 3d 53 65 63 53 69 7a  65 25 2a 73 65 63 74 6f  |%=SecSize%*secto|
00000860  72 73 25 0d 03 c0 24 64  69 73 63 5f 73 69 7a 65  |rs%...$disc_size|
00000870  25 3d 74 72 61 63 6b 5f  73 69 7a 65 25 2a 74 72  |%=track_size%*tr|
00000880  61 63 6b 73 25 2a 32 0d  03 ca 1b 64 69 73 63 5f  |acks%*2....disc_|
00000890  72 65 63 25 21 31 36 3d  64 69 73 63 5f 73 69 7a  |rec%!16=disc_siz|
000008a0  65 25 0d 03 d4 30 24 28  64 69 73 63 5f 72 65 63  |e%...0$(disc_rec|
000008b0  25 2b 32 32 29 3d 24 28  a4 69 63 6f 6e 5f 61 64  |%+22)=$(.icon_ad|
000008c0  64 28 69 63 6f 6e 5f 64  69 73 63 6e 61 6d 65 25  |d(icon_discname%|
000008d0  29 29 0d 03 de 28 e7 20  a9 24 28 64 69 73 63 5f  |))...(. .$(disc_|
000008e0  72 65 63 25 2b 32 32 29  3c 32 20 73 74 61 74 65  |rec%+22)<2 state|
000008f0  25 3d 6e 6f 5f 6e 61 6d  65 25 0d 03 e8 19 e7 20  |%=no_name%..... |
00000900  73 74 61 74 65 25 20 80  20 6e 6f 5f 6e 61 6d 65  |state% . no_name|
00000910  25 20 8c 0d 03 f2 0a 20  21 71 25 3d 33 0d 03 fc  |% ..... !q%=3...|
00000920  17 20 c8 99 20 22 4f 53  5f 57 6f 72 64 22 2c 31  |. .. "OS_Word",1|
00000930  34 2c 71 25 0d 04 06 38  20 c8 99 20 22 4f 53 5f  |4,q%...8 .. "OS_|
00000940  43 6f 6e 76 65 72 74 44  61 74 65 41 6e 64 54 69  |ConvertDateAndTi|
00000950  6d 65 22 2c 71 25 2c 62  75 66 25 2c 31 30 2c 22  |me",q%,buf%,10,"|
00000960  25 32 34 5f 25 4d 49 5f  25 57 33 22 0d 04 10 23  |%24_%MI_%W3"...#|
00000970  20 24 28 64 69 73 63 5f  72 65 63 25 2b 32 32 29  | $(disc_rec%+22)|
00000980  3d a4 73 74 72 69 6e 67  30 28 62 75 66 25 29 0d  |=.string0(buf%).|
00000990  04 1a 30 20 f2 73 65 74  5f 73 74 72 69 6e 67 28  |..0 .set_string(|
000009a0  69 63 6f 6e 5f 64 69 73  63 6e 61 6d 65 25 2c 24  |icon_discname%,$|
000009b0  28 64 69 73 63 5f 72 65  63 25 2b 32 32 29 29 0d  |(disc_rec%+22)).|
000009c0  04 24 05 cd 0d 04 2e 17  64 69 73 63 5f 72 65 63  |.$......disc_rec|
000009d0  25 3f 33 34 3d 64 72 69  76 65 25 0d 04 38 2f 72  |%?34=drive%..8/r|
000009e0  65 74 72 69 65 73 25 3d  a0 28 22 30 22 2b 24 28  |etries%=.("0"+$(|
000009f0  a4 69 63 6f 6e 5f 61 64  64 28 69 63 6f 6e 5f 72  |.icon_add(icon_r|
00000a00  65 74 72 69 65 73 25 29  29 29 0d 04 42 28 f2 73  |etries%)))..B(.s|
00000a10  65 74 5f 73 74 72 69 6e  67 28 69 63 6f 6e 5f 72  |et_string(icon_r|
00000a20  65 74 72 69 65 73 25 2c  c3 72 65 74 72 69 65 73  |etries%,.retries|
00000a30  25 29 0d 04 4c 0f 64 69  73 63 5f 61 64 64 25 3d  |%)..L.disc_add%=|
00000a40  30 0d 04 56 0d 64 65 66  65 63 74 25 3d 30 0d 04  |0..V.defect%=0..|
00000a50  60 0c 74 72 69 65 73 25  3d 30 0d 04 6a 13 73 74  |`.tries%=0..j.st|
00000a60  61 72 74 5f 73 65 63 74  6f 72 25 3d 30 0d 04 74  |art_sector%=0..t|
00000a70  0b 73 69 64 65 25 3d 30  0d 04 7e 0c 74 72 61 63  |.side%=0..~.trac|
00000a80  6b 25 3d 30 0d 04 88 0a  63 79 6c 25 3d 30 0d 04  |k%=0....cyl%=0..|
00000a90  92 0a 70 74 72 25 3d 30  0d 04 9c 1c f2 4e 50 75  |..ptr%=0.....NPu|
00000aa0  74 28 26 34 45 2c 20 47  31 25 2b 53 65 63 30 47  |t(&4E, G1%+Sec0G|
00000ab0  61 70 25 29 0d 04 a6 1d  e3 20 50 68 79 73 53 65  |ap%)..... PhysSe|
00000ac0  63 25 3d 30 20 b8 20 73  65 63 74 6f 72 73 25 2d  |c%=0 . sectors%-|
00000ad0  31 0d 04 b0 11 20 f2 4e  50 75 74 28 30 2c 20 31  |1.... .NPut(0, 1|
00000ae0  32 29 0d 04 ba 12 20 f2  4e 50 75 74 28 26 46 35  |2).... .NPut(&F5|
00000af0  2c 20 33 29 0d 04 c4 0e  20 f2 50 75 74 28 26 46  |, 3).... .Put(&F|
00000b00  45 29 0d 04 ce 1b 20 68  65 61 64 65 72 25 28 50  |E).... header%(P|
00000b10  68 79 73 53 65 63 25 29  3d 70 74 72 25 0d 04 d8  |hysSec%)=ptr%...|
00000b20  10 20 f2 4e 50 75 74 28  30 2c 20 33 29 0d 04 e2  |. .NPut(0, 3)...|
00000b30  19 20 f2 50 75 74 28 4c  6f 67 32 53 65 63 53 69  |. .Put(Log2SecSi|
00000b40  7a 65 25 2d 37 29 0d 04  ec 0e 20 f2 50 75 74 28  |ze%-7).... .Put(|
00000b50  26 46 37 29 0d 04 f6 14  20 f2 4e 50 75 74 28 26  |&F7).... .NPut(&|
00000b60  34 45 2c 20 47 32 25 29  0d 05 00 11 20 f2 4e 50  |4E, G2%).... .NP|
00000b70  75 74 28 30 2c 20 31 32  29 0d 05 0a 12 20 f2 4e  |ut(0, 12).... .N|
00000b80  50 75 74 28 26 46 35 2c  20 33 29 0d 05 14 0e 20  |Put(&F5, 3).... |
00000b90  f2 50 75 74 28 26 46 42  29 0d 05 1e 19 20 f2 4e  |.Put(&FB).... .N|
00000ba0  50 75 74 28 26 35 41 2c  20 53 65 63 53 69 7a 65  |Put(&5A, SecSize|
00000bb0  25 29 0d 05 28 0e 20 f2  50 75 74 28 26 46 37 29  |%)..(. .Put(&F7)|
00000bc0  0d 05 32 3d 20 e7 20 50  68 79 73 53 65 63 25 3c  |..2= . PhysSec%<|
00000bd0  3e 73 65 63 74 6f 72 73  25 2d 31 20 f2 4e 50 75  |>sectors%-1 .NPu|
00000be0  74 28 26 34 45 2c 20 47  33 25 29 20 8b 20 f2 4e  |t(&4E, G3%) . .N|
00000bf0  50 75 74 28 26 34 45 2c  20 a4 47 34 29 0d 05 3c  |Put(&4E, .G4)..<|
00000c00  0e ed 20 50 68 79 73 53  65 63 25 0d 05 46 44 73  |.. PhysSec%..FDs|
00000c10  74 61 74 65 25 3d 73 74  61 74 65 25 20 84 20 66  |tate%=state% . f|
00000c20  6f 72 6d 61 74 74 69 6e  67 25 20 84 20 62 6c 61  |ormatting% . bla|
00000c30  6e 6b 25 3a 70 6f 6c 6c  5f 6d 61 73 6b 25 3d 70  |nk%:poll_mask%=p|
00000c40  6f 6c 6c 5f 6d 61 73 6b  25 20 80 20 ac 20 31 0d  |oll_mask% . . 1.|
00000c50  05 50 1a f2 6f 70 28 6f  70 5f 72 65 73 74 6f 72  |.P..op(op_restor|
00000c60  65 25 2c 30 2c 30 2c 30  29 0d 05 5a 10 f2 77 72  |e%,0,0,0)..Z..wr|
00000c70  69 74 65 5f 74 72 61 63  6b 0d 05 64 2a c8 99 22  |ite_track..d*.."|
00000c80  58 4f 53 5f 43 4c 49 22  2c 22 41 44 46 53 3a 44  |XOS_CLI","ADFS:D|
00000c90  49 53 4d 4f 55 4e 54 20  3a 22 2b c3 7e 64 72 69  |ISMOUNT :"+.~dri|
00000ca0  76 65 25 0d 05 6e 05 e1  0d 05 78 05 3a 0d 05 82  |ve%..n....x.:...|
00000cb0  12 dd 20 f2 68 65 6c 70  28 68 65 6c 70 24 29 0d  |.. .help(help$).|
00000cc0  05 8c 0e 21 68 65 6c 70  25 3d 32 35 36 0d 05 96  |...!help%=256...|
00000cd0  15 68 65 6c 70 25 21 31  32 3d 65 76 65 6e 74 25  |.help%!12=event%|
00000ce0  21 38 0d 05 a0 11 68 65  6c 70 25 21 31 36 3d 26  |!8....help%!16=&|
00000cf0  35 30 33 0d 05 aa 15 24  28 68 65 6c 70 25 2b 32  |503....$(help%+2|
00000d00  30 29 3d 68 65 6c 70 24  0d 05 b4 2e c8 99 20 22  |0)=help$...... "|
00000d10  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00000d20  22 2c 20 31 37 2c 20 68  65 6c 70 25 2c 20 65 76  |", 17, help%, ev|
00000d30  65 6e 74 25 21 34 0d 05  be 05 e1 0d 05 c8 05 3a  |ent%!4.........:|
00000d40  0d 05 d2 16 dd 20 a4 69  63 6f 6e 5f 61 64 64 28  |..... .icon_add(|
00000d50  69 63 6f 6e 25 29 0d 05  dc 0d 21 71 25 3d 6d 61  |icon%)....!q%=ma|
00000d60  69 6e 25 0d 05 e6 0e 71  25 21 34 3d 69 63 6f 6e  |in%....q%!4=icon|
00000d70  25 0d 05 f0 1e c8 99 20  22 57 69 6d 70 5f 47 65  |%...... "Wimp_Ge|
00000d80  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00000d90  05 fa 0a 3d 71 25 21 32  38 0d 06 04 05 3a 0d 06  |...=q%!28....:..|
00000da0  0e 0b dd 20 f2 69 6e 69  74 0d 06 18 0c 73 74 61  |... .init....sta|
00000db0  74 65 25 3d 30 0d 06 22  0c 64 72 69 76 65 25 3d  |te%=0..".drive%=|
00000dc0  30 0d 06 2c 0d 66 6f 72  6d 61 74 25 3d 30 0d 06  |0..,.format%=0..|
00000dd0  36 18 6d 61 78 5f 74 72  61 63 6b 25 3d 36 32 35  |6.max_track%=625|
00000de0  30 2a 31 2e 31 30 0d 06  40 0e 74 72 61 63 6b 73  |0*1.10..@.tracks|
00000df0  25 3d 38 30 0d 06 4a 10  6f 70 5f 76 65 72 69 66  |%=80..J.op_verif|
00000e00  79 25 3d 30 0d 06 54 17  6f 70 5f 77 72 69 74 65  |y%=0..T.op_write|
00000e10  5f 73 65 63 74 6f 72 73  25 3d 32 0d 06 5e 15 6f  |_sectors%=2..^.o|
00000e20  70 5f 77 72 69 74 65 5f  74 72 61 63 6b 25 3d 34  |p_write_track%=4|
00000e30  0d 06 68 11 6f 70 5f 72  65 73 74 6f 72 65 25 3d  |..h.op_restore%=|
00000e40  36 0d 06 72 49 de 20 62  75 66 25 20 6d 61 78 5f  |6..rI. buf% max_|
00000e50  74 72 61 63 6b 25 2c 20  64 69 73 63 5f 72 65 63  |track%, disc_rec|
00000e60  25 20 36 34 2c 20 68 65  61 64 65 72 25 28 31 35  |% 64, header%(15|
00000e70  29 2c 20 64 6c 69 73 74  25 20 74 72 61 63 6b 73  |), dlist% tracks|
00000e80  25 2a 32 2a 31 36 2a 34  2b 34 0d 06 7c 10 69 63  |%*2*16*4+4..|.ic|
00000e90  6f 6e 5f 64 72 76 30 25  3d 30 0d 06 86 13 69 63  |on_drv0%=0....ic|
00000ea0  6f 6e 5f 45 66 6f 72 6d  61 74 25 3d 34 0d 06 90  |on_Eformat%=4...|
00000eb0  13 69 63 6f 6e 5f 44 66  6f 72 6d 61 74 25 3d 35  |.icon_Dformat%=5|
00000ec0  0d 06 9a 13 69 63 6f 6e  5f 4c 66 6f 72 6d 61 74  |....icon_Lformat|
00000ed0  25 3d 36 0d 06 a4 14 69  63 6f 6e 5f 64 69 73 63  |%=6....icon_disc|
00000ee0  6e 61 6d 65 25 3d 38 0d  06 ae 14 69 63 6f 6e 5f  |name%=8....icon_|
00000ef0  72 65 74 72 69 65 73 25  3d 31 30 0d 06 b8 13 69  |retries%=10....i|
00000f00  63 6f 6e 5f 66 6f 72 6d  61 74 25 3d 31 31 0d 06  |con_format%=11..|
00000f10  c2 12 69 63 6f 6e 5f 61  62 6f 72 74 25 3d 31 32  |..icon_abort%=12|
00000f20  0d 06 cc 13 69 63 6f 6e  5f 72 65 70 6f 72 74 25  |....icon_report%|
00000f30  3d 31 33 0d 06 d6 13 69  63 6f 6e 5f 76 65 72 69  |=13....icon_veri|
00000f40  66 79 25 3d 31 34 0d 06  e0 0b 69 64 6c 65 25 3d  |fy%=14....idle%=|
00000f50  30 0d 06 ea 11 66 6f 72  6d 61 74 74 69 6e 67 25  |0....formatting%|
00000f60  3d 31 0d 06 f4 10 76 65  72 69 66 79 69 6e 67 25  |=1....verifying%|
00000f70  3d 32 0d 06 fe 0c 62 6c  61 6e 6b 25 3d 34 0d 07  |=2....blank%=4..|
00000f80  08 0e 6e 6f 5f 6e 61 6d  65 25 3d 38 0d 07 12 18  |..no_name%=8....|
00000f90  70 6f 6c 6c 5f 6d 61 73  6b 25 3d ac 28 26 36 30  |poll_mask%=.(&60|
00000fa0  31 34 43 29 0d 07 1c 10  6d 61 78 62 75 66 25 3d  |14C)....maxbuf%=|
00000fb0  26 34 30 30 0d 07 26 45  de 20 71 25 20 26 34 30  |&400..&E. q% &40|
00000fc0  30 2c 20 63 75 72 62 75  66 25 20 6d 61 78 62 75  |0, curbuf% maxbu|
00000fd0  66 25 2c 20 65 76 65 6e  74 25 20 26 31 30 30 2c  |f%, event% &100,|
00000fe0  20 68 65 6c 70 25 20 26  31 30 30 2c 20 69 63 6f  | help% &100, ico|
00000ff0  6e 5f 62 75 66 25 20 34  30 0d 07 30 1b 65 6e 64  |n_buf% 40..0.end|
00001000  62 75 66 25 3d 63 75 72  62 75 66 25 2b 6d 61 78  |buf%=curbuf%+max|
00001010  62 75 66 25 0d 07 3a 10  24 62 75 66 25 3d 22 54  |buf%..:.$buf%="T|
00001020  41 53 4b 22 0d 07 44 2b  c8 99 20 22 57 69 6d 70  |ASK"..D+.. "Wimp|
00001030  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 32 30 30  |_Initialise",200|
00001040  2c 21 62 75 66 25 2c 22  46 6f 72 6d 61 74 22 0d  |,!buf%,"Format".|
00001050  07 4e 34 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.N4.. "Wimp_Open|
00001060  54 65 6d 70 6c 61 74 65  22 2c 2c 22 3c 46 6f 72  |Template",,"<For|
00001070  6d 61 74 24 64 69 72 3e  2e 54 65 6d 70 6c 61 74  |mat$dir>.Templat|
00001080  65 73 22 0d 07 58 1b 6d  61 69 6e 25 20 3d 20 a4  |es"..X.main% = .|
00001090  77 69 6e 64 6f 77 28 22  6d 61 69 6e 22 29 0d 07  |window("main")..|
000010a0  62 1b c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |b... "Wimp_Close|
000010b0  54 65 6d 70 6c 61 74 65  22 0d 07 6c 1a c8 99 20  |Template"..l... |
000010c0  22 41 44 46 53 5f 44 72  69 76 65 73 22 20 b8 20  |"ADFS_Drives" . |
000010d0  2c 49 25 0d 07 76 0b c8  95 20 49 25 3c 34 0d 07  |,I%..v... I%<4..|
000010e0  80 45 20 f2 73 65 74 5f  69 63 6f 6e 5f 73 74 61  |.E .set_icon_sta|
000010f0  74 65 28 69 63 6f 6e 5f  64 72 76 30 25 2b 49 25  |te(icon_drv0%+I%|
00001100  2c 28 31 3c 3c 32 33 29  20 84 20 28 31 3c 3c 37  |,(1<<23) . (1<<7|
00001110  29 2c 28 31 3c 3c 32 33  29 20 84 20 28 31 3c 3c  |),(1<<23) . (1<<|
00001120  37 29 29 0d 07 8a 0a 20  49 25 2b 3d 31 0d 07 94  |7)).... I%+=1...|
00001130  05 ce 0d 07 9e 0d 21 71  25 3d 6d 61 69 6e 25 0d  |......!q%=main%.|
00001140  07 a8 29 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |..).. "Wimp_GetW|
00001150  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 71 25 3a  |indowState",,q%:|
00001160  71 25 21 32 38 3d 2d 31  0d 07 b2 1c c8 99 20 22  |q%!28=-1...... "|
00001170  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00001180  2c 2c 71 25 0d 07 bc 05  e1 0d 07 c6 05 3a 0d 07  |,,q%.........:..|
00001190  d0 40 dd 20 f2 6d 6f 75  73 65 28 6d 6f 75 73 65  |.@. .mouse(mouse|
000011a0  78 25 2c 6d 6f 75 73 65  79 25 2c 62 75 74 74 6f  |x%,mousey%,butto|
000011b0  6e 73 25 2c 68 61 6e 64  6c 65 25 2c 69 63 6f 6e  |ns%,handle%,icon|
000011c0  25 2c 6f 6c 64 62 75 74  74 6f 6e 73 25 29 0d 07  |%,oldbuttons%)..|
000011d0  da 14 e7 20 62 75 74 74  6f 6e 73 25 20 80 20 35  |... buttons% . 5|
000011e0  20 8c 0d 07 e4 0f 20 c8  8e 20 69 63 6f 6e 25 20  | ..... .. icon% |
000011f0  ca 0d 07 ee 39 20 20 c9  20 69 63 6f 6e 5f 64 72  |....9  . icon_dr|
00001200  76 30 25 2c 69 63 6f 6e  5f 64 72 76 30 25 2b 31  |v0%,icon_drv0%+1|
00001210  2c 69 63 6f 6e 5f 64 72  76 30 25 2b 32 2c 69 63  |,icon_drv0%+2,ic|
00001220  6f 6e 5f 64 72 76 30 25  2b 33 0d 07 f8 1c 20 20  |on_drv0%+3....  |
00001230  20 f2 73 65 6c 65 63 74  5f 69 63 6f 6e 28 69 63  | .select_icon(ic|
00001240  6f 6e 25 2c 31 29 0d 08  02 1e 20 20 20 64 72 69  |on%,1)....   dri|
00001250  76 65 25 3d 69 63 6f 6e  25 2d 69 63 6f 6e 5f 64  |ve%=icon%-icon_d|
00001260  72 76 30 25 0d 08 0c 31  20 20 c9 20 69 63 6f 6e  |rv0%...1  . icon|
00001270  5f 45 66 6f 72 6d 61 74  25 2c 69 63 6f 6e 5f 44  |_Eformat%,icon_D|
00001280  66 6f 72 6d 61 74 25 2c  69 63 6f 6e 5f 4c 66 6f  |format%,icon_Lfo|
00001290  72 6d 61 74 25 0d 08 16  1c 20 20 20 f2 73 65 6c  |rmat%....   .sel|
000012a0  65 63 74 5f 69 63 6f 6e  28 69 63 6f 6e 25 2c 31  |ect_icon(icon%,1|
000012b0  29 0d 08 20 22 20 20 20  66 6f 72 6d 61 74 25 3d  |).. "   format%=|
000012c0  69 63 6f 6e 25 2d 69 63  6f 6e 5f 45 66 6f 72 6d  |icon%-icon_Eform|
000012d0  61 74 25 0d 08 2a 29 20  20 c9 20 69 63 6f 6e 5f  |at%..*)  . icon_|
000012e0  66 6f 72 6d 61 74 25 3a  e7 20 73 74 61 74 65 25  |format%:. state%|
000012f0  3d 30 20 8c 20 f2 66 6f  72 6d 61 74 0d 08 34 23  |=0 . .format..4#|
00001300  20 20 c9 20 69 63 6f 6e  5f 61 62 6f 72 74 25 3a  |  . icon_abort%:|
00001310  e7 20 73 74 61 74 65 25  20 f2 61 62 6f 72 74 0d  |. state% .abort.|
00001320  08 3e 29 20 20 c9 20 69  63 6f 6e 5f 76 65 72 69  |.>)  . icon_veri|
00001330  66 79 25 3a e7 20 73 74  61 74 65 25 3d 30 20 8c  |fy%:. state%=0 .|
00001340  20 f2 76 65 72 69 66 79  0d 08 48 06 20 cb 0d 08  | .verify..H. ...|
00001350  52 05 cd 0d 08 5c 05 e1  0d 08 66 05 3a 0d 08 70  |R....\....f.:..p|
00001360  0b dd 20 a4 6e 65 78 74  0d 08 7a 3b 73 74 61 72  |.. .next..z;star|
00001370  74 5f 73 65 63 74 6f 72  25 3d 28 73 74 61 72 74  |t_sector%=(start|
00001380  5f 73 65 63 74 6f 72 25  2b 73 65 63 74 6f 72 73  |_sector%+sectors|
00001390  25 2d 73 6b 65 77 25 29  20 83 20 73 65 63 74 6f  |%-skew%) . secto|
000013a0  72 73 25 0d 08 84 10 e7  20 68 65 61 64 73 25 3d  |rs%..... heads%=|
000013b0  31 20 8c 0d 08 8e 0e 20  74 72 61 63 6b 25 2b 3d  |1 ..... track%+=|
000013c0  31 0d 08 98 29 20 e7 20  74 72 61 63 6b 25 3d 74  |1...) . track%=t|
000013d0  72 61 63 6b 73 25 20 8c  20 74 72 61 63 6b 25 3d  |racks% . track%=|
000013e0  30 3a 73 69 64 65 25 2b  3d 31 0d 08 a2 10 20 3d  |0:side%+=1.... =|
000013f0  20 28 73 69 64 65 25 3d  32 29 0d 08 ac 05 cc 0d  | (side%=2)......|
00001400  08 b6 0d 20 73 69 64 65  25 2b 3d 31 0d 08 c0 22  |... side%+=1..."|
00001410  20 e7 20 73 69 64 65 25  3d 32 20 8c 20 73 69 64  | . side%=2 . sid|
00001420  65 25 3d 30 3a 74 72 61  63 6b 25 2b 3d 31 0d 08  |e%=0:track%+=1..|
00001430  ca 17 20 3d 20 28 74 72  61 63 6b 25 3d 74 72 61  |.. = (track%=tra|
00001440  63 6b 73 25 29 0d 08 d4  05 cd 0d 08 de 05 3a 0d  |cks%).........:.|
00001450  08 e8 0b dd 20 f2 6e 75  6c 6c 0d 08 f2 13 e7 20  |.... .null..... |
00001460  a4 63 68 65 63 6b 5f 64  69 73 63 20 8c 0d 08 fc  |.check_disc ....|
00001470  1d 20 e7 20 73 74 61 74  65 25 20 80 20 66 6f 72  |. . state% . for|
00001480  6d 61 74 74 69 6e 67 25  20 8c 0d 09 06 12 20 20  |matting% .....  |
00001490  f2 77 72 69 74 65 5f 74  72 61 63 6b 0d 09 10 06  |.write_track....|
000014a0  20 cc 0d 09 1a 13 20 20  f2 76 65 72 69 66 79 5f  | .....  .verify_|
000014b0  74 72 61 63 6b 0d 09 24  06 20 cd 0d 09 2e 05 cd  |track..$. ......|
000014c0  0d 09 38 05 e1 0d 09 42  05 3a 0d 09 4c 19 dd 20  |..8....B.:..L.. |
000014d0  f2 6f 70 28 62 25 2c 20  63 25 2c 20 44 25 2c 20  |.op(b%, c%, D%, |
000014e0  45 25 29 0d 09 56 0b ea  20 42 25 2c 43 25 0d 09  |E%)..V.. B%,C%..|
000014f0  60 16 42 25 3d 62 25 2b  36 34 2a 64 69 73 63 5f  |`.B%=b%+64*disc_|
00001500  72 65 63 25 0d 09 6a 18  43 25 3d 63 25 20 84 20  |rec%..j.C%=c% . |
00001510  28 64 72 69 76 65 25 3c  3c 32 39 29 0d 09 74 22  |(drive%<<29)..t"|
00001520  c8 99 20 22 41 44 46 53  5f 44 69 73 63 4f 70 22  |.. "ADFS_DiscOp"|
00001530  2c 30 2c 42 25 2c 43 25  2c 44 25 2c 45 25 0d 09  |,0,B%,C%,D%,E%..|
00001540  7e 05 e1 0d 09 88 05 3a  0d 09 92 0e dd 20 f2 72  |~......:..... .r|
00001550  65 63 65 69 76 65 0d 09  9c 12 c8 8e 20 65 76 65  |eceive...... eve|
00001560  6e 74 25 21 31 36 20 ca  0d 09 a6 13 20 c9 20 30  |nt%!16 ..... . 0|
00001570  3a f2 74 65 72 6d 69 6e  61 74 65 0d 09 b0 0b 20  |:.terminate.... |
00001580  c9 20 26 35 30 32 0d 09  ba 10 20 20 e7 20 73 74  |. &502....  . st|
00001590  61 74 65 25 20 8c 0d 09  c4 15 20 20 20 c8 8e 20  |ate% .....   .. |
000015a0  65 76 65 6e 74 25 21 33  36 20 ca 0d 09 ce 15 20  |event%!36 ..... |
000015b0  20 20 20 c9 20 69 63 6f  6e 5f 61 62 6f 72 74 25  |   . icon_abort%|
000015c0  0d 09 d8 2b 20 20 20 20  20 f2 68 65 6c 70 28 22  |...+     .help("|
000015d0  43 6c 69 63 6b 20 74 6f  20 61 62 6f 72 74 20 6f  |Click to abort o|
000015e0  70 65 72 61 74 69 6f 6e  2e 22 29 0d 09 e2 08 20  |peration.").... |
000015f0  20 20 cb 0d 09 ec 07 20  20 cc 0d 09 f6 15 20 20  |  .....  .....  |
00001600  20 c8 8e 20 65 76 65 6e  74 25 21 33 36 20 ca 0d  | .. event%!36 ..|
00001610  0a 00 3b 20 20 20 20 c9  20 69 63 6f 6e 5f 64 72  |..;    . icon_dr|
00001620  76 30 25 2c 69 63 6f 6e  5f 64 72 76 30 25 2b 31  |v0%,icon_drv0%+1|
00001630  2c 69 63 6f 6e 5f 64 72  76 30 25 2b 32 2c 69 63  |,icon_drv0%+2,ic|
00001640  6f 6e 5f 64 72 76 30 25  2b 33 0d 0a 0a 28 20 20  |on_drv0%+3...(  |
00001650  20 20 20 f2 68 65 6c 70  28 22 43 6c 69 63 6b 20  |   .help("Click |
00001660  74 6f 20 73 65 6c 65 63  74 20 64 72 69 76 65 2e  |to select drive.|
00001670  22 29 0d 0a 14 33 20 20  20 20 c9 20 69 63 6f 6e  |")...3    . icon|
00001680  5f 45 66 6f 72 6d 61 74  25 2c 69 63 6f 6e 5f 44  |_Eformat%,icon_D|
00001690  66 6f 72 6d 61 74 25 2c  69 63 6f 6e 5f 4c 66 6f  |format%,icon_Lfo|
000016a0  72 6d 61 74 25 0d 0a 1e  29 20 20 20 20 20 f2 68  |rmat%...)     .h|
000016b0  65 6c 70 28 22 43 6c 69  63 6b 20 74 6f 20 73 65  |elp("Click to se|
000016c0  6c 65 63 74 20 66 6f 72  6d 61 74 2e 22 29 0d 0a  |lect format.")..|
000016d0  28 18 20 20 20 20 c9 20  69 63 6f 6e 5f 64 69 73  |(.    . icon_dis|
000016e0  63 6e 61 6d 65 25 0d 0a  32 58 20 20 20 20 20 f2  |cname%..2X     .|
000016f0  68 65 6c 70 28 22 45 6e  74 65 72 20 61 20 64 69  |help("Enter a di|
00001700  73 63 20 6e 61 6d 65 2c  20 6f 72 20 6c 65 61 76  |sc name, or leav|
00001710  65 20 62 6c 61 6e 6b 20  74 6f 20 68 61 76 65 20  |e blank to have |
00001720  6f 6e 65 20 67 65 6e 65  72 61 74 65 64 20 66 72  |one generated fr|
00001730  6f 6d 20 74 68 65 20 64  61 74 65 2e 22 29 0d 0a  |om the date.")..|
00001740  3c 17 20 20 20 20 c9 20  69 63 6f 6e 5f 72 65 74  |<.    . icon_ret|
00001750  72 69 65 73 25 0d 0a 46  35 20 20 20 20 20 f2 68  |ries%..F5     .h|
00001760  65 6c 70 28 22 45 6e 74  65 72 20 6e 75 6d 62 65  |elp("Enter numbe|
00001770  72 20 6f 66 20 72 65 74  72 69 65 73 20 74 6f 20  |r of retries to |
00001780  70 65 72 66 6f 72 6d 2e  22 29 0d 0a 50 16 20 20  |perform.")..P.  |
00001790  20 20 c9 20 69 63 6f 6e  5f 66 6f 72 6d 61 74 25  |  . icon_format%|
000017a0  0d 0a 5a 3d 20 20 20 20  20 f2 68 65 6c 70 28 22  |..Z=     .help("|
000017b0  43 6c 69 63 6b 20 74 6f  20 66 6f 72 6d 61 74 20  |Click to format |
000017c0  74 68 65 20 64 69 73 63  20 69 6e 20 73 65 6c 65  |the disc in sele|
000017d0  63 74 65 64 20 64 72 69  76 65 2e 22 29 0d 0a 64  |cted drive.")..d|
000017e0  16 20 20 20 20 c9 20 69  63 6f 6e 5f 76 65 72 69  |.    . icon_veri|
000017f0  66 79 25 0d 0a 6e 41 20  20 20 20 20 f2 68 65 6c  |fy%..nA     .hel|
00001800  70 28 22 43 6c 69 63 6b  20 74 6f 20 76 65 72 69  |p("Click to veri|
00001810  66 79 20 74 68 65 20 64  69 73 63 20 69 6e 20 74  |fy the disc in t|
00001820  68 65 20 73 65 6c 65 63  74 65 64 20 64 72 69 76  |he selected driv|
00001830  65 2e 22 29 0d 0a 78 08  20 20 20 cb 0d 0a 82 07  |e.")..x.   .....|
00001840  20 20 cd 0d 0a 8c 05 cb  0d 0a 96 05 e1 0d 0a a0  |  ..............|
00001850  05 3a 0d 0a aa 16 dd 20  f2 72 65 70 6f 72 74 28  |.:..... .report(|
00001860  72 65 70 6f 72 74 24 29  0d 0a b4 2a f2 73 65 74  |report$)...*.set|
00001870  5f 73 74 72 69 6e 67 28  69 63 6f 6e 5f 72 65 70  |_string(icon_rep|
00001880  6f 72 74 25 2c c0 72 65  70 6f 72 74 24 2c 34 30  |ort%,.report$,40|
00001890  29 29 0d 0a be 05 e1 0d  0a c8 05 3a 0d 0a d2 1c  |)).........:....|
000018a0  dd 20 f2 73 65 6c 65 63  74 5f 69 63 6f 6e 28 69  |. .select_icon(i|
000018b0  63 6f 6e 25 2c 73 25 29  0d 0a dc 27 f2 73 65 74  |con%,s%)...'.set|
000018c0  5f 69 63 6f 6e 5f 73 74  61 74 65 28 69 63 6f 6e  |_icon_state(icon|
000018d0  25 2c 73 25 3c 3c 32 31  2c 31 3c 3c 32 31 29 0d  |%,s%<<21,1<<21).|
000018e0  0a e6 05 e1 0d 0a f0 05  3a 0d 0a fa 29 dd 20 f2  |........:...). .|
000018f0  73 65 74 5f 69 63 6f 6e  5f 73 74 61 74 65 28 69  |set_icon_state(i|
00001900  63 6f 6e 25 2c 20 65 6f  72 25 2c 20 6d 61 73 6b  |con%, eor%, mask|
00001910  25 29 0d 0b 04 14 21 69  63 6f 6e 5f 62 75 66 25  |%)....!icon_buf%|
00001920  3d 6d 61 69 6e 25 0d 0b  0e 15 69 63 6f 6e 5f 62  |=main%....icon_b|
00001930  75 66 25 21 34 3d 69 63  6f 6e 25 0d 0b 18 14 69  |uf%!4=icon%....i|
00001940  63 6f 6e 5f 62 75 66 25  21 38 3d 65 6f 72 25 0d  |con_buf%!8=eor%.|
00001950  0b 22 16 69 63 6f 6e 5f  62 75 66 25 21 31 32 3d  |.".icon_buf%!12=|
00001960  6d 61 73 6b 25 0d 0b 2c  25 c8 99 20 22 57 69 6d  |mask%..,%.. "Wim|
00001970  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00001980  2c 69 63 6f 6e 5f 62 75  66 25 0d 0b 36 05 e1 0d  |,icon_buf%..6...|
00001990  0b 40 05 3a 0d 0b 4a 1b  dd 20 f2 73 65 74 5f 73  |.@.:..J.. .set_s|
000019a0  74 72 69 6e 67 28 69 63  6f 6e 25 2c 73 24 29 0d  |tring(icon%,s$).|
000019b0  0b 54 08 ea 20 53 25 0d  0b 5e 17 53 25 3d a4 69  |.T.. S%..^.S%=.i|
000019c0  63 6f 6e 5f 61 64 64 28  69 63 6f 6e 25 29 0d 0b  |con_add(icon%)..|
000019d0  68 0a 24 53 25 3d 73 24  0d 0b 72 1e f2 73 65 74  |h.$S%=s$..r..set|
000019e0  5f 69 63 6f 6e 5f 73 74  61 74 65 28 69 63 6f 6e  |_icon_state(icon|
000019f0  25 2c 30 2c 30 29 0d 0b  7c 05 e1 0d 0b 86 05 3a  |%,0,0)..|......:|
00001a00  0d 0b 90 12 dd 20 a4 73  74 72 69 6e 67 30 28 73  |..... .string0(s|
00001a10  25 29 0d 0b 9a 08 ea 20  73 24 0d 0b a4 1a c8 95  |%)..... s$......|
00001a20  3f 73 25 3a 73 24 2b 3d  bd 3f 73 25 3a 73 25 2b  |?s%:s$+=.?s%:s%+|
00001a30  3d 31 3a ce 0d 0b ae 07  3d 73 24 0d 0b b8 05 3a  |=1:.....=s$....:|
00001a40  0d 0b c2 10 dd 20 f2 73  74 72 75 63 74 75 72 65  |..... .structure|
00001a50  0d 0b cc 18 ea 20 66 72  65 65 25 2c 6f 70 74 25  |..... free%,opt%|
00001a60  2c 64 65 66 65 63 74 24  0d 0b d6 15 c8 8e 20 74  |,defect$...... t|
00001a70  68 69 73 5f 66 6f 72 6d  61 74 25 20 ca 0d 0b e0  |his_format% ....|
00001a80  0f 20 c9 20 30 3a 6f 70  74 25 3d 30 0d 0b ea 11  |. . 0:opt%=0....|
00001a90  20 c9 20 31 3a 6f 70 74  25 3d 26 34 30 0d 0b f4  | . 1:opt%=&40...|
00001aa0  11 20 c9 20 32 3a 6f 70  74 25 3d 26 43 30 0d 0b  |. . 2:opt%=&C0..|
00001ab0  fe 05 cb 0d 0c 08 18 64  6c 69 73 74 25 21 64 65  |.......dlist%!de|
00001ac0  66 65 63 74 25 3d 31 3c  3c 32 39 0d 0c 12 47 c8  |fect%=1<<29...G.|
00001ad0  99 20 22 46 69 6c 65 43  6f 72 65 5f 46 6c 6f 70  |. "FileCore_Flop|
00001ae0  70 79 53 74 72 75 63 74  75 72 65 22 2c 62 75 66  |pyStructure",buf|
00001af0  25 2c 64 69 73 63 5f 72  65 63 25 2c 6f 70 74 25  |%,disc_rec%,opt%|
00001b00  2c 64 6c 69 73 74 25 20  b8 20 2c 2c 2c 73 69 7a  |,dlist% . ,,,siz|
00001b10  65 25 0d 0c 1c 27 f2 6f  70 28 6f 70 5f 77 72 69  |e%...'.op(op_wri|
00001b20  74 65 5f 73 65 63 74 6f  72 73 25 2c 30 2c 62 75  |te_sectors%,0,bu|
00001b30  66 25 2c 73 69 7a 65 25  29 0d 0c 26 2a c8 99 22  |f%,size%)..&*.."|
00001b40  58 4f 53 5f 43 4c 49 22  2c 22 41 44 46 53 3a 44  |XOS_CLI","ADFS:D|
00001b50  49 53 4d 4f 55 4e 54 20  3a 22 2b c3 7e 64 72 69  |ISMOUNT :"+.~dri|
00001b60  76 65 25 0d 0c 30 26 c8  99 22 41 44 46 53 5f 46  |ve%..0&.."ADFS_F|
00001b70  72 65 65 53 70 61 63 65  22 2c c3 64 72 69 76 65  |reeSpace",.drive|
00001b80  25 20 b8 20 66 72 65 65  25 0d 0c 3a 0f e7 20 64  |% . free%..:.. d|
00001b90  65 66 65 63 74 25 20 8c  0d 0c 44 2f 20 64 65 66  |efect% ...D/ def|
00001ba0  65 63 74 24 3d 22 2c 20  22 2b c3 28 64 65 66 65  |ect$=", "+.(defe|
00001bb0  63 74 25 2f 34 29 2b 22  20 64 65 66 65 63 74 73  |ct%/4)+" defects|
00001bc0  20 66 6f 75 6e 64 22 0d  0c 4e 05 cc 0d 0c 58 0f  | found"..N....X.|
00001bd0  20 64 65 66 65 63 74 24  3d 22 22 0d 0c 62 05 cd  | defect$=""..b..|
00001be0  0d 0c 6c 38 f2 72 65 70  6f 72 74 28 22 46 6f 72  |..l8.report("For|
00001bf0  6d 61 74 74 65 64 20 22  2b c3 28 66 72 65 65 25  |matted "+.(free%|
00001c00  2f 31 30 32 34 29 2b 22  4b 20 66 72 65 65 22 2b  |/1024)+"K free"+|
00001c10  64 65 66 65 63 74 24 29  0d 0c 76 05 e1 0d 0c 80  |defect$)..v.....|
00001c20  05 3a 0d 0c 8a 10 dd 20  f2 74 65 72 6d 69 6e 61  |.:..... .termina|
00001c30  74 65 0d 0c 94 15 e7 20  73 74 61 74 65 25 20 f2  |te..... state% .|
00001c40  74 69 64 79 5f 75 70 0d  0c 9e 17 c8 99 20 22 57  |tidy_up...... "W|
00001c50  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 0d 0c  |imp_CloseDown"..|
00001c60  a8 05 e1 0d 0c b2 05 3a  0d 0c bc 0e dd 20 f2 74  |.......:..... .t|
00001c70  69 64 79 5f 75 70 0d 0c  c6 1d 70 6f 6c 6c 5f 6d  |idy_up....poll_m|
00001c80  61 73 6b 25 3d 70 6f 6c  6c 5f 6d 61 73 6b 25 20  |ask%=poll_mask% |
00001c90  84 20 31 0d 0c d0 38 e7  20 73 74 61 74 65 25 20  |. 1...8. state% |
00001ca0  80 20 6e 6f 5f 6e 61 6d  65 25 20 8c 20 f2 73 65  |. no_name% . .se|
00001cb0  74 5f 73 74 72 69 6e 67  28 69 63 6f 6e 5f 64 69  |t_string(icon_di|
00001cc0  73 63 6e 61 6d 65 25 2c  22 22 29 0d 0c da 0c 73  |scname%,"")....s|
00001cd0  74 61 74 65 25 3d 30 0d  0c e4 05 e1 0d 0c ee 05  |tate%=0.........|
00001ce0  3a 0d 0c f8 0d dd 20 f2  76 65 72 69 66 79 0d 0d  |:..... .verify..|
00001cf0  02 2c c8 99 20 22 41 44  46 53 5f 44 65 73 63 72  |.,.. "ADFS_Descr|
00001d00  69 62 65 44 69 73 63 22  2c c3 64 72 69 76 65 25  |ibeDisc",.drive%|
00001d10  2c 64 69 73 63 5f 72 65  63 25 0d 0d 0c 29 74 72  |,disc_rec%...)tr|
00001d20  61 63 6b 5f 73 69 7a 65  25 3d 64 69 73 63 5f 72  |ack_size%=disc_r|
00001d30  65 63 25 3f 31 20 3c 3c  20 3f 64 69 73 63 5f 72  |ec%?1 << ?disc_r|
00001d40  65 63 25 0d 0d 16 1c 64  69 73 63 5f 73 69 7a 65  |ec%....disc_size|
00001d50  25 3d 64 69 73 63 5f 72  65 63 25 21 26 31 30 0d  |%=disc_rec%!&10.|
00001d60  0d 20 0f 64 69 73 63 5f  61 64 64 25 3d 30 0d 0d  |. .disc_add%=0..|
00001d70  2a 15 73 74 61 74 65 25  3d 76 65 72 69 66 79 69  |*.state%=verifyi|
00001d80  6e 67 25 0d 0d 34 1f 70  6f 6c 6c 5f 6d 61 73 6b  |ng%..4.poll_mask|
00001d90  25 3d 70 6f 6c 6c 5f 6d  61 73 6b 25 20 80 20 ac  |%=poll_mask% . .|
00001da0  20 31 0d 0d 3e 05 e1 0d  0d 48 05 3a 0d 0d 52 13  | 1..>....H.:..R.|
00001db0  dd 20 f2 76 65 72 69 66  79 5f 74 72 61 63 6b 0d  |. .verify_track.|
00001dc0  0d 5c 0b ea 20 6c 61 73  74 25 0d 0d 66 13 6c 61  |.\.. last%..f.la|
00001dd0  73 74 25 3d 64 69 73 63  5f 61 64 64 25 0d 0d 70  |st%=disc_add%..p|
00001de0  31 f2 72 65 70 6f 72 74  28 22 56 65 72 69 66 79  |1.report("Verify|
00001df0  69 6e 67 20 22 2b c3 28  64 69 73 63 5f 61 64 64  |ing "+.(disc_add|
00001e00  25 20 81 20 31 30 32 34  29 2b 22 4b 22 29 0d 0d  |% . 1024)+"K")..|
00001e10  7a 93 c8 99 20 22 58 41  44 46 53 5f 44 69 73 63  |z... "XADFS_Disc|
00001e20  4f 70 22 2c 2c 6f 70 5f  76 65 72 69 66 79 25 20  |Op",,op_verify% |
00001e30  84 20 28 64 69 73 63 5f  72 65 63 25 3c 3c 36 29  |. (disc_rec%<<6)|
00001e40  2c 64 69 73 63 5f 61 64  64 25 20 84 20 28 64 72  |,disc_add% . (dr|
00001e50  69 76 65 25 3c 3c 32 39  29 2c 30 2c 74 72 61 63  |ive%<<29),0,trac|
00001e60  6b 5f 73 69 7a 65 25 20  2d 20 64 69 73 63 5f 61  |k_size% - disc_a|
00001e70  64 64 25 20 83 20 74 72  61 63 6b 5f 73 69 7a 65  |dd% . track_size|
00001e80  25 20 b8 20 64 69 73 63  5f 65 72 72 6f 72 25 2c  |% . disc_error%,|
00001e90  2c 64 69 73 63 5f 61 64  64 25 3b 66 6c 61 67 73  |,disc_add%;flags|
00001ea0  25 0d 0d 84 19 64 69 73  63 5f 61 64 64 25 2d 3d  |%....disc_add%-=|
00001eb0  64 72 69 76 65 25 3c 3c  32 39 0d 0d 8e 21 e7 20  |drive%<<29...!. |
00001ec0  64 69 73 63 5f 61 64 64  25 3c 3e 6c 61 73 74 25  |disc_add%<>last%|
00001ed0  20 8c 20 74 72 69 65 73  25 3d 30 0d 0d 98 12 e7  | . tries%=0.....|
00001ee0  20 66 6c 61 67 73 25 20  80 20 31 20 8c 0d 0d a2  | flags% . 1 ....|
00001ef0  28 20 e7 20 28 21 64 69  73 63 5f 65 72 72 6f 72  |( . (!disc_error|
00001f00  25 20 80 20 26 46 46 46  46 46 46 29 3d 26 31 30  |% . &FFFFFF)=&10|
00001f10  38 43 37 20 8c 0d 0d ac  0f 20 20 74 72 69 65 73  |8C7 .....  tries|
00001f20  25 2b 3d 31 0d 0d b6 1c  20 20 f2 6f 70 28 6f 70  |%+=1....  .op(op|
00001f30  5f 72 65 73 74 6f 72 65  25 2c 30 2c 30 2c 30 29  |_restore%,0,0,0)|
00001f40  0d 0d c0 19 20 20 e7 20  74 72 69 65 73 25 3e 72  |....  . tries%>r|
00001f50  65 74 72 69 65 73 25 20  8c 0d 0d ca 2f 20 20 20  |etries% ..../   |
00001f60  f2 72 65 70 6f 72 74 28  22 64 65 66 65 63 74 20  |.report("defect |
00001f70  66 6f 75 6e 64 20 61 74  20 26 22 2b c3 7e 64 69  |found at &"+.~di|
00001f80  73 63 5f 61 64 64 25 29  0d 0d d4 2d 20 20 20 e7  |sc_add%)...-   .|
00001f90  20 74 68 69 73 5f 66 6f  72 6d 61 74 25 3d 30 20  | this_format%=0 |
00001fa0  80 20 28 73 74 61 74 65  25 20 80 20 62 6c 61 6e  |. (state% . blan|
00001fb0  6b 25 29 20 8c 0d 0d de  20 20 20 20 20 64 6c 69  |k%) ....     dli|
00001fc0  73 74 25 21 64 65 66 65  63 74 25 3d 64 69 73 63  |st%!defect%=disc|
00001fd0  5f 61 64 64 25 0d 0d e8  12 20 20 20 20 64 65 66  |_add%....    def|
00001fe0  65 63 74 25 2b 3d 34 0d  0d f2 10 20 20 20 20 74  |ect%+=4....    t|
00001ff0  72 69 65 73 25 3d 30 0d  0d fc 1b 20 20 20 20 64  |ries%=0....    d|
00002000  69 73 63 5f 61 64 64 25  2b 3d 53 65 63 53 69 7a  |isc_add%+=SecSiz|
00002010  65 25 0d 0e 06 08 20 20  20 cc 0d 0e 10 10 20 20  |e%....   .....  |
00002020  20 20 f2 74 69 64 79 5f  75 70 0d 0e 1a 08 20 20  |  .tidy_up....  |
00002030  20 cd 0d 0e 24 07 20 20  cd 0d 0e 2e 06 20 cc 0d  | ...$.  ..... ..|
00002040  0e 38 24 20 20 f2 6d 6f  61 6e 28 a4 73 74 72 69  |.8$  .moan(.stri|
00002050  6e 67 30 28 64 69 73 63  5f 65 72 72 6f 72 25 2b  |ng0(disc_error%+|
00002060  34 29 29 0d 0e 42 06 20  cd 0d 0e 4c 05 cd 0d 0e  |4))..B. ...L....|
00002070  56 1c e7 20 64 69 73 63  5f 61 64 64 25 3d 64 69  |V.. disc_add%=di|
00002080  73 63 5f 73 69 7a 65 25  20 8c 0d 0e 60 18 20 e7  |sc_size% ...`. .|
00002090  20 73 74 61 74 65 25 20  80 20 62 6c 61 6e 6b 25  | state% . blank%|
000020a0  20 8c 0d 0e 6a 10 20 20  f2 73 74 72 75 63 74 75  | ...j.  .structu|
000020b0  72 65 0d 0e 74 06 20 cc  0d 0e 7e 31 20 20 f2 72  |re..t. ...~1  .r|
000020c0  65 70 6f 72 74 28 22 56  65 72 69 66 69 65 64 20  |eport("Verified |
000020d0  22 2b c3 28 64 69 73 63  5f 73 69 7a 65 25 2f 31  |"+.(disc_size%/1|
000020e0  30 32 34 29 2b 22 4b 22  29 0d 0e 88 06 20 cd 0d  |024)+"K").... ..|
000020f0  0e 92 0d 20 f2 74 69 64  79 5f 75 70 0d 0e 9c 05  |... .tidy_up....|
00002100  cd 0d 0e a6 05 e1 0d 0e  b0 05 3a 0d 0e ba 11 dd  |..........:.....|
00002110  20 a4 77 69 6e 64 6f 77  28 61 24 29 0d 0e c4 08  | .window(a$)....|
00002120  ea 20 63 25 0d 0e ce 48  c8 99 20 22 57 69 6d 70  |. c%...H.. "Wimp|
00002130  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00002140  71 25 2c 63 75 72 62 75  66 25 2c 65 6e 64 62 75  |q%,curbuf%,endbu|
00002150  66 25 2c 2d 31 2c 61 24  2c 30 20 b8 20 2c 2c 63  |f%,-1,a$,0 . ,,c|
00002160  75 72 62 75 66 25 2c 2c  2c 2c 63 25 0d 0e d8 23  |urbuf%,,,,c%...#|
00002170  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00002180  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 63 25 0d  |indow",,q% . c%.|
00002190  0e e2 07 3d 63 25 0d 0e  ec 05 3a 0d 0e f6 12 dd  |...=c%....:.....|
000021a0  20 f2 77 72 69 74 65 5f  74 72 61 63 6b 0d 0f 00  | .write_track...|
000021b0  17 e3 20 49 25 3d 30 20  b8 20 73 65 63 74 6f 72  |.. I%=0 . sector|
000021c0  73 25 2d 31 0d 0f 0a 18  20 48 25 3d 68 65 61 64  |s%-1.... H%=head|
000021d0  65 72 25 28 49 25 29 2b  62 75 66 25 0d 0f 14 0f  |er%(I%)+buf%....|
000021e0  20 3f 48 25 3d 74 72 61  63 6b 25 0d 0f 1e 0f 20  | ?H%=track%.... |
000021f0  48 25 3f 31 3d 73 69 64  65 25 0d 0f 28 26 20 48  |H%?1=side%..(& H|
00002200  25 3f 32 3d 28 49 25 2b  73 74 61 72 74 5f 73 65  |%?2=(I%+start_se|
00002210  63 74 6f 72 25 29 83 20  73 65 63 74 6f 72 73 25  |ctor%). sectors%|
00002220  0d 0f 32 08 ed 20 49 25  0d 0f 3c 38 f2 72 65 70  |..2.. I%..<8.rep|
00002230  6f 72 74 28 22 46 6f 72  6d 61 74 74 69 6e 67 20  |ort("Formatting |
00002240  74 72 61 63 6b 20 22 2b  c3 74 72 61 63 6b 25 2b  |track "+.track%+|
00002250  22 20 73 69 64 65 20 22  2b c3 73 69 64 65 25 29  |" side "+.side%)|
00002260  0d 0f 46 4f f2 6f 70 28  6f 70 5f 77 72 69 74 65  |..FO.op(op_write|
00002270  5f 74 72 61 63 6b 25 2c  a4 64 69 73 63 5f 61 64  |_track%,.disc_ad|
00002280  64 28 74 72 61 63 6b 25  2c 73 69 64 65 25 29 2c  |d(track%,side%),|
00002290  62 75 66 25 2b 73 69 64  65 25 2a 53 65 63 30 47  |buf%+side%*Sec0G|
000022a0  61 70 25 2c 6d 61 78 5f  74 72 61 63 6b 25 29 0d  |ap%,max_track%).|
000022b0  0f 50 0d e7 20 a4 6e 65  78 74 20 8c 0d 0f 5a 31  |.P.. .next ...Z1|
000022c0  20 73 74 61 74 65 25 3d  28 73 74 61 74 65 25 20  | state%=(state% |
000022d0  80 20 ac 20 66 6f 72 6d  61 74 74 69 6e 67 25 29  |. . formatting%)|
000022e0  20 84 20 76 65 72 69 66  79 69 6e 67 25 0d 0f 64  | . verifying%..d|
000022f0  1b 20 f2 6f 70 28 6f 70  5f 72 65 73 74 6f 72 65  |. .op(op_restore|
00002300  25 2c 30 2c 30 2c 30 29  0d 0f 6e 05 cd 0d 0f 78  |%,0,0,0)..n....x|
00002310  05 e1 0d 0f 82 05 3a 0d  0f 8c 19 dd 20 f2 7a 65  |......:..... .ze|
00002320  72 6f 5f 74 65 72 6d 69  6e 61 74 65 28 53 25 29  |ro_terminate(S%)|
00002330  0d 0f 96 0d 53 25 3f a9  24 53 25 3d 30 0d 0f a0  |....S%?.$S%=0...|
00002340  05 e1 0d 0f aa 05 3a 0d  0f b4 19 dd 20 a4 47 34  |......:..... .G4|
00002350  3d 6d 61 78 5f 74 72 61  63 6b 25 2d 70 74 72 25  |=max_track%-ptr%|
00002360  0d 0f be 05 3a 0d 0f c8  11 dd 20 f2 50 75 74 28  |....:..... .Put(|
00002370  62 79 74 65 25 29 0d 0f  d2 13 62 75 66 25 3f 70  |byte%)....buf%?p|
00002380  74 72 25 3d 62 79 74 65  25 0d 0f dc 0b 70 74 72  |tr%=byte%....ptr|
00002390  25 2b 3d 31 0d 0f e6 05  e1 0d 0f f0 05 3a 0d 0f  |%+=1.........:..|
000023a0  fa 17 dd 20 f2 4e 50 75  74 28 62 79 74 65 25 2c  |... .NPut(byte%,|
000023b0  6e 75 6d 25 29 0d 10 04  0e e7 20 6e 75 6d 25 3d  |num%)..... num%=|
000023c0  30 20 e1 0d 10 0e 25 e3  20 49 25 3d 62 75 66 25  |0 ....%. I%=buf%|
000023d0  2b 70 74 72 25 20 b8 20  62 75 66 25 2b 70 74 72  |+ptr% . buf%+ptr|
000023e0  25 2b 6e 75 6d 25 2d 31  0d 10 18 0e 20 3f 49 25  |%+num%-1.... ?I%|
000023f0  3d 62 79 74 65 25 0d 10  22 05 ed 0d 10 2c 0e 70  |=byte%.."....,.p|
00002400  74 72 25 2b 3d 6e 75 6d  25 0d 10 36 05 e1 0d 10  |tr%+=num%..6....|
00002410  40 05 3a 0d 10 4a 67 f4  20 27 46 6f 72 6d 61 74  |@.:..Jg. 'Format|
00002420  27 2c 20 4c 6f 67 32 20  73 65 63 74 6f 72 20 73  |', Log2 sector s|
00002430  69 7a 65 2c 20 73 65 63  73 20 70 65 72 20 74 72  |ize, secs per tr|
00002440  6b 2c 20 68 65 61 64 73  2c 20 73 6b 65 77 2c 20  |k, heads, skew, |
00002450  64 65 6e 73 69 74 79 20  2c 20 47 61 70 20 31 2c  |density , Gap 1,|
00002460  20 47 61 70 20 32 2c 20  47 61 70 33 2c 20 53 65  | Gap 2, Gap3, Se|
00002470  63 74 6f 72 20 30 20 67  61 70 0d 10 54 2f dc 20  |ctor 0 gap..T/. |
00002480  46 6f 72 6d 61 74 2c 20  31 30 2c 20 20 35 2c 20  |Format, 10,  5, |
00002490  32 2c 20 30 2c 20 32 2c  20 33 32 2c 20 32 32 2c  |2, 0, 2, 32, 22,|
000024a0  20 20 39 30 2c 20 32 37  31 0d 10 5e 2f dc 20 46  |  90, 271..^/. F|
000024b0  6f 72 6d 61 74 2c 20 31  30 2c 20 20 35 2c 20 32  |ormat, 10,  5, 2|
000024c0  2c 20 30 2c 20 32 2c 20  33 32 2c 20 32 32 2c 20  |, 0, 2, 32, 22, |
000024d0  20 39 30 2c 20 32 37 31  0d 10 68 2f dc 20 46 6f  | 90, 271..h/. Fo|
000024e0  72 6d 61 74 2c 20 20 38  2c 20 31 36 2c 20 31 2c  |rmat,  8, 16, 1,|
000024f0  20 34 2c 20 32 2c 20 34  32 2c 20 32 32 2c 20 20  | 4, 2, 42, 22,  |
00002500  35 37 2c 20 20 20 30 0d  ff                       |57,   0..|
00002509