!� > <Partition$Dir>.!RunImage

.� Creates a partition for use with ArcDFS.
(
2"� (C) Richard A Averill, 1989.
<
F�
PC� '"Which drive do you wish to use for the partition ? " drive%
Z� drive%>=0 � drive%<=7
d
nZ� '"Ensure your ArcDFS disc is not write-protected."''"Saving partition. Go (Y/N) ? ";
xș "OS_Confirm" � key%
�(� key%=�("y") � � "Yes"; � � "No":Ș
�
�� block% (200*1024)+8
�G$=�128,�(&E5))
�-� A%=block% � block%+(200*1024)-128 � 128
�
$A%=G$
��
�� A%=block% � block%+512-4
�	!A%=0
��
�#block%?&106=&03:block%?&107=&20
�Qș "OS_File",&0A,"<DFS$Dir>.drive"+�(drive%),,&FFD,block%,block%+(200*1024)-1
�� '"Partition saved."
�Ș
�

00000000  0d 00 0a 21 f4 20 3e 20  3c 50 61 72 74 69 74 69  |...!. > <Partiti|
00000010  6f 6e 24 44 69 72 3e 2e  21 52 75 6e 49 6d 61 67  |on$Dir>.!RunImag|
00000020  65 0d 00 14 04 0d 00 1e  2e f4 20 43 72 65 61 74  |e......... Creat|
00000030  65 73 20 61 20 70 61 72  74 69 74 69 6f 6e 20 66  |es a partition f|
00000040  6f 72 20 75 73 65 20 77  69 74 68 20 41 72 63 44  |or use with ArcD|
00000050  46 53 2e 0d 00 28 04 0d  00 32 22 f4 20 28 43 29  |FS...(...2". (C)|
00000060  20 52 69 63 68 61 72 64  20 41 20 41 76 65 72 69  | Richard A Averi|
00000070  6c 6c 2c 20 31 39 38 39  2e 0d 00 3c 04 0d 00 46  |ll, 1989...<...F|
00000080  05 f5 0d 00 50 43 e8 20  27 22 57 68 69 63 68 20  |....PC. '"Which |
00000090  64 72 69 76 65 20 64 6f  20 79 6f 75 20 77 69 73  |drive do you wis|
000000a0  68 20 74 6f 20 75 73 65  20 66 6f 72 20 74 68 65  |h to use for the|
000000b0  20 70 61 72 74 69 74 69  6f 6e 20 3f 20 22 20 64  | partition ? " d|
000000c0  72 69 76 65 25 0d 00 5a  1b fd 20 64 72 69 76 65  |rive%..Z.. drive|
000000d0  25 3e 3d 30 20 80 20 64  72 69 76 65 25 3c 3d 37  |%>=0 . drive%<=7|
000000e0  0d 00 64 04 0d 00 6e 5a  f1 20 27 22 45 6e 73 75  |..d...nZ. '"Ensu|
000000f0  72 65 20 79 6f 75 72 20  41 72 63 44 46 53 20 64  |re your ArcDFS d|
00000100  69 73 63 20 69 73 20 6e  6f 74 20 77 72 69 74 65  |isc is not write|
00000110  2d 70 72 6f 74 65 63 74  65 64 2e 22 27 27 22 53  |-protected."''"S|
00000120  61 76 69 6e 67 20 70 61  72 74 69 74 69 6f 6e 2e  |aving partition.|
00000130  20 47 6f 20 28 59 2f 4e  29 20 3f 20 22 3b 0d 00  | Go (Y/N) ? ";..|
00000140  78 1a c8 99 20 22 4f 53  5f 43 6f 6e 66 69 72 6d  |x... "OS_Confirm|
00000150  22 20 b8 20 6b 65 79 25  0d 00 82 28 e7 20 6b 65  |" . key%...(. ke|
00000160  79 25 3d 97 28 22 79 22  29 20 8c 20 f1 20 22 59  |y%=.("y") . . "Y|
00000170  65 73 22 3b 20 8b 20 f1  20 22 4e 6f 22 3a c8 98  |es"; . . "No":..|
00000180  0d 00 8c 04 0d 00 96 19  de 20 62 6c 6f 63 6b 25  |......... block%|
00000190  20 28 32 30 30 2a 31 30  32 34 29 2b 38 0d 00 a0  | (200*1024)+8...|
000001a0  13 47 24 3d c4 31 32 38  2c bd 28 26 45 35 29 29  |.G$=.128,.(&E5))|
000001b0  0d 00 aa 2d e3 20 41 25  3d 62 6c 6f 63 6b 25 20  |...-. A%=block% |
000001c0  b8 20 62 6c 6f 63 6b 25  2b 28 32 30 30 2a 31 30  |. block%+(200*10|
000001d0  32 34 29 2d 31 32 38 20  88 20 31 32 38 0d 00 b4  |24)-128 . 128...|
000001e0  0a 24 41 25 3d 47 24 0d  00 be 05 ed 0d 00 c8 1e  |.$A%=G$.........|
000001f0  e3 20 41 25 3d 62 6c 6f  63 6b 25 20 b8 20 62 6c  |. A%=block% . bl|
00000200  6f 63 6b 25 2b 35 31 32  2d 34 0d 00 d2 09 21 41  |ock%+512-4....!A|
00000210  25 3d 30 0d 00 dc 05 ed  0d 00 e6 23 62 6c 6f 63  |%=0........#bloc|
00000220  6b 25 3f 26 31 30 36 3d  26 30 33 3a 62 6c 6f 63  |k%?&106=&03:bloc|
00000230  6b 25 3f 26 31 30 37 3d  26 32 30 0d 00 f0 51 c8  |k%?&107=&20...Q.|
00000240  99 20 22 4f 53 5f 46 69  6c 65 22 2c 26 30 41 2c  |. "OS_File",&0A,|
00000250  22 3c 44 46 53 24 44 69  72 3e 2e 64 72 69 76 65  |"<DFS$Dir>.drive|
00000260  22 2b c3 28 64 72 69 76  65 25 29 2c 2c 26 46 46  |"+.(drive%),,&FF|
00000270  44 2c 62 6c 6f 63 6b 25  2c 62 6c 6f 63 6b 25 2b  |D,block%,block%+|
00000280  28 32 30 30 2a 31 30 32  34 29 2d 31 0d 00 f5 19  |(200*1024)-1....|
00000290  f1 20 27 22 50 61 72 74  69 74 69 6f 6e 20 73 61  |. '"Partition sa|
000002a0  76 65 64 2e 22 0d 00 fa  06 c8 98 0d ff           |ved."........|
000002ad