�     >!RunImage  - !Save
� by  Tim Howard
� For 32-bit machines
(� � AU March 1994
2::
<ț "<Obey$Dir>.!Library"
F�Customise
P	�Init
Z
�InitThis
d�WindowsIconsandMenus
n	�Poll
x�
�::
���Customise
�Name$="Save"
�:TotalWindowSpace%=2000:� Change this if problems ocour
�TotalIconSpace%=9000:�
���InitThis
�Lock%=�
�newpath$="ADFS::0.$"
�X=�("<Save$Dir>.Data")
��#X,newpath$,Lock%
��#X
�path$=newpath$
��

::

��WindowsIconsandMenus

!BarIcon%=�IconBar(-1,"!Save")

"Info%=�WindowLoad("Info")

,Pane%=�WindowLoad("Pane")

6Main%=�WindowLoad("Main")

@ �MakeMenu("Save",BarMenu%,2)

J� Lock%=� �

T�IconIn(Pane%,2,"Locked")

^�

h�IconIn(Pane%,2,"Unlocked")

r�

|�FillInIcon

��

�::

�� MENU>,Save

�� Info,Info%,0

�� Quit,-1,&80

�::

�(��Click(x%,y%,button%,window%,icon%)

�2� window%=Info% � icon%=7 � �OpenWindow(Main%)

�Ȏ window% �

�� -2:�BarWindow_MouseClick

�!� Main%:�MainWindowMouseClick

�� Pane%:�PaneClick

��
�
::
��PaneClick
&� �
02� � � � �:�MessageBox("Error from Save:",�$):�
:Ȏ icon% �
D5� 1:X=�("<Save$Dir>.Data"):�#X,newpath$,Lock%:�#X
N� 2:
X� Lock%=� �
b�IconIn(Pane%,2,"Unlocked")
lLock%=�
v�
��IconIn(Pane%,2,"Locked")
�Lock%=�
��
��
�� �
��
���MainWindowMouseClick
�B� icon%=1 � button%=64 � �StartDrag(window%,icon%,"directory")
��
�::
���BarWindow_MouseClick
�Ȏ button% �
�&� 4:� Lock%=� � �OpenWindow(Main%)
(� 2:�OpenMenuOverIcon(BarMenu%,x%,2)
�
�
 ::
*��Menu(menu%)
4Ȏ menu% �
>� BarMenu%:
H Ȏ q%!0 �
R   � 1:running%=�
\ �
f�
pș"Wimp_GetPointerInfo",,q%
z-� q%!8=1 � ș"Wimp_CreateMenu",,menu%,0,0
��
�::
���Key(key%)
��
�::
���LoadFile(file$,type%)
��
�::
���SaveFile(file$)
�newpath$=file$
�a%=�(newpath$)
�newpath$=�file$,(a%-2))
�path$=newpath$
�
::
��FillInIcon
$�IconIn(Main%,2,newpath$)
.�
8::
B��SaveFilePart1
L�SaveFilePart2("�",&1000)
V�
`::
jݤWindowHelp(window%,icon%)
tc%=�
~Ȏ window% �
�
:c%=�
��
�=""
�::
�ݤMenuHelp(menu%,item%)
�Ȏ menu% �
��
�=""
�::
� ��OpenWindowWarning(window%)
�/� window%=Main% � �PlacePane(Main%,Pane%,2)
��
::

!��CloseWindowWarning(window%)
)� window%=Main% � �CloseWindow(Pane%)
�
(::
2��UpdateWindow(window%)
<�
�

00000000  0d 00 0a 1d f4 20 20 20  20 20 3e 21 52 75 6e 49  |.....     >!RunI|
00000010  6d 61 67 65 20 20 2d 20  21 53 61 76 65 0d 00 14  |mage  - !Save...|
00000020  14 f4 20 62 79 20 20 54  69 6d 20 48 6f 77 61 72  |.. by  Tim Howar|
00000030  64 0d 00 1e 19 f4 20 46  6f 72 20 33 32 2d 62 69  |d..... For 32-bi|
00000040  74 20 6d 61 63 68 69 6e  65 73 0d 00 28 15 f4 20  |t machines..(.. |
00000050  a9 20 41 55 20 4d 61 72  63 68 20 31 39 39 34 0d  |. AU March 1994.|
00000060  00 32 06 3a 3a 0d 00 3c  1c c8 9b 20 22 3c 4f 62  |.2.::..<... "<Ob|
00000070  65 79 24 44 69 72 3e 2e  21 4c 69 62 72 61 72 79  |ey$Dir>.!Library|
00000080  22 0d 00 46 0e f2 43 75  73 74 6f 6d 69 73 65 0d  |"..F..Customise.|
00000090  00 50 09 f2 49 6e 69 74  0d 00 5a 0d f2 49 6e 69  |.P..Init..Z..Ini|
000000a0  74 54 68 69 73 0d 00 64  19 f2 57 69 6e 64 6f 77  |tThis..d..Window|
000000b0  73 49 63 6f 6e 73 61 6e  64 4d 65 6e 75 73 0d 00  |sIconsandMenus..|
000000c0  6e 09 f2 50 6f 6c 6c 0d  00 78 05 e0 0d 00 82 06  |n..Poll..x......|
000000d0  3a 3a 0d 00 8c 0f dd f2  43 75 73 74 6f 6d 69 73  |::......Customis|
000000e0  65 0d 00 96 10 4e 61 6d  65 24 3d 22 53 61 76 65  |e....Name$="Save|
000000f0  22 0d 00 a0 3a 54 6f 74  61 6c 57 69 6e 64 6f 77  |"...:TotalWindow|
00000100  53 70 61 63 65 25 3d 32  30 30 30 3a f4 20 43 68  |Space%=2000:. Ch|
00000110  61 6e 67 65 20 74 68 69  73 20 69 66 20 70 72 6f  |ange this if pro|
00000120  62 6c 65 6d 73 20 6f 63  6f 75 72 0d 00 aa 1a 54  |blems ocour....T|
00000130  6f 74 61 6c 49 63 6f 6e  53 70 61 63 65 25 3d 39  |otalIconSpace%=9|
00000140  30 30 30 3a e1 0d 00 b4  0e dd f2 49 6e 69 74 54  |000:.......InitT|
00000150  68 69 73 0d 00 be 0b 4c  6f 63 6b 25 3d a3 0d 00  |his....Lock%=...|
00000160  c8 18 6e 65 77 70 61 74  68 24 3d 22 41 44 46 53  |..newpath$="ADFS|
00000170  3a 3a 30 2e 24 22 0d 00  d2 1a 58 3d 8e 28 22 3c  |::0.$"....X=.("<|
00000180  53 61 76 65 24 44 69 72  3e 2e 44 61 74 61 22 29  |Save$Dir>.Data")|
00000190  0d 00 dc 16 e8 23 58 2c  6e 65 77 70 61 74 68 24  |.....#X,newpath$|
000001a0  2c 4c 6f 63 6b 25 0d 00  e6 07 d9 23 58 0d 00 f0  |,Lock%.....#X...|
000001b0  12 70 61 74 68 24 3d 6e  65 77 70 61 74 68 24 0d  |.path$=newpath$.|
000001c0  00 fa 05 e1 0d 01 04 06  3a 3a 0d 01 0e 1a dd f2  |........::......|
000001d0  57 69 6e 64 6f 77 73 49  63 6f 6e 73 61 6e 64 4d  |WindowsIconsandM|
000001e0  65 6e 75 73 0d 01 18 21  42 61 72 49 63 6f 6e 25  |enus...!BarIcon%|
000001f0  3d a4 49 63 6f 6e 42 61  72 28 2d 31 2c 22 21 53  |=.IconBar(-1,"!S|
00000200  61 76 65 22 29 0d 01 22  1d 49 6e 66 6f 25 3d a4  |ave")..".Info%=.|
00000210  57 69 6e 64 6f 77 4c 6f  61 64 28 22 49 6e 66 6f  |WindowLoad("Info|
00000220  22 29 0d 01 2c 1d 50 61  6e 65 25 3d a4 57 69 6e  |")..,.Pane%=.Win|
00000230  64 6f 77 4c 6f 61 64 28  22 50 61 6e 65 22 29 0d  |dowLoad("Pane").|
00000240  01 36 1d 4d 61 69 6e 25  3d a4 57 69 6e 64 6f 77  |.6.Main%=.Window|
00000250  4c 6f 61 64 28 22 4d 61  69 6e 22 29 0d 01 40 20  |Load("Main")..@ |
00000260  f2 4d 61 6b 65 4d 65 6e  75 28 22 53 61 76 65 22  |.MakeMenu("Save"|
00000270  2c 42 61 72 4d 65 6e 75  25 2c 32 29 0d 01 4a 0f  |,BarMenu%,2)..J.|
00000280  e7 20 4c 6f 63 6b 25 3d  b9 20 8c 0d 01 54 1d f2  |. Lock%=. ...T..|
00000290  49 63 6f 6e 49 6e 28 50  61 6e 65 25 2c 32 2c 22  |IconIn(Pane%,2,"|
000002a0  4c 6f 63 6b 65 64 22 29  0d 01 5e 05 cc 0d 01 68  |Locked")..^....h|
000002b0  1f f2 49 63 6f 6e 49 6e  28 50 61 6e 65 25 2c 32  |..IconIn(Pane%,2|
000002c0  2c 22 55 6e 6c 6f 63 6b  65 64 22 29 0d 01 72 05  |,"Unlocked")..r.|
000002d0  cd 0d 01 7c 0f f2 46 69  6c 6c 49 6e 49 63 6f 6e  |...|..FillInIcon|
000002e0  0d 01 86 05 e1 0d 01 90  06 3a 3a 0d 01 9a 10 dc  |.........::.....|
000002f0  20 4d 45 4e 55 3e 2c 53  61 76 65 0d 01 a4 12 dc  | MENU>,Save.....|
00000300  20 49 6e 66 6f 2c 49 6e  66 6f 25 2c 30 0d 01 ae  | Info,Info%,0...|
00000310  11 dc 20 51 75 69 74 2c  2d 31 2c 26 38 30 0d 01  |.. Quit,-1,&80..|
00000320  b8 06 3a 3a 0d 01 c2 28  dd f2 43 6c 69 63 6b 28  |..::...(..Click(|
00000330  78 25 2c 79 25 2c 62 75  74 74 6f 6e 25 2c 77 69  |x%,y%,button%,wi|
00000340  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 01 cc 32  |ndow%,icon%)...2|
00000350  e7 20 77 69 6e 64 6f 77  25 3d 49 6e 66 6f 25 20  |. window%=Info% |
00000360  80 20 69 63 6f 6e 25 3d  37 20 8c 20 f2 4f 70 65  |. icon%=7 . .Ope|
00000370  6e 57 69 6e 64 6f 77 28  4d 61 69 6e 25 29 0d 01  |nWindow(Main%)..|
00000380  d6 10 c8 8e 20 77 69 6e  64 6f 77 25 20 ca 0d 01  |.... window% ...|
00000390  e0 1e c9 20 2d 32 3a f2  42 61 72 57 69 6e 64 6f  |... -2:.BarWindo|
000003a0  77 5f 4d 6f 75 73 65 43  6c 69 63 6b 0d 01 ea 21  |w_MouseClick...!|
000003b0  c9 20 4d 61 69 6e 25 3a  f2 4d 61 69 6e 57 69 6e  |. Main%:.MainWin|
000003c0  64 6f 77 4d 6f 75 73 65  43 6c 69 63 6b 0d 01 f4  |dowMouseClick...|
000003d0  16 c9 20 50 61 6e 65 25  3a f2 50 61 6e 65 43 6c  |.. Pane%:.PaneCl|
000003e0  69 63 6b 0d 01 fe 05 cb  0d 02 08 05 e1 0d 02 12  |ick.............|
000003f0  06 3a 3a 0d 02 1c 0f dd  f2 50 61 6e 65 43 6c 69  |.::......PaneCli|
00000400  63 6b 0d 02 26 07 ea 20  85 0d 02 30 32 ee 20 85  |ck..&.. ...02. .|
00000410  20 ea 20 f7 20 85 3a f2  4d 65 73 73 61 67 65 42  | . . .:.MessageB|
00000420  6f 78 28 22 45 72 72 6f  72 20 66 72 6f 6d 20 53  |ox("Error from S|
00000430  61 76 65 3a 22 2c f6 24  29 3a e1 0d 02 3a 0e c8  |ave:",.$):...:..|
00000440  8e 20 69 63 6f 6e 25 20  ca 0d 02 44 35 c9 20 31  |. icon% ...D5. 1|
00000450  3a 58 3d ae 28 22 3c 53  61 76 65 24 44 69 72 3e  |:X=.("<Save$Dir>|
00000460  2e 44 61 74 61 22 29 3a  f1 23 58 2c 6e 65 77 70  |.Data"):.#X,newp|
00000470  61 74 68 24 2c 4c 6f 63  6b 25 3a d9 23 58 0d 02  |ath$,Lock%:.#X..|
00000480  4e 08 c9 20 32 3a 0d 02  58 0f e7 20 4c 6f 63 6b  |N.. 2:..X.. Lock|
00000490  25 3d b9 20 8c 0d 02 62  1f f2 49 63 6f 6e 49 6e  |%=. ...b..IconIn|
000004a0  28 50 61 6e 65 25 2c 32  2c 22 55 6e 6c 6f 63 6b  |(Pane%,2,"Unlock|
000004b0  65 64 22 29 0d 02 6c 0b  4c 6f 63 6b 25 3d a3 0d  |ed")..l.Lock%=..|
000004c0  02 76 05 cc 0d 02 80 1d  f2 49 63 6f 6e 49 6e 28  |.v.......IconIn(|
000004d0  50 61 6e 65 25 2c 32 2c  22 4c 6f 63 6b 65 64 22  |Pane%,2,"Locked"|
000004e0  29 0d 02 8a 0b 4c 6f 63  6b 25 3d b9 0d 02 94 05  |)....Lock%=.....|
000004f0  cd 0d 02 9e 05 cb 0d 02  a8 07 f7 20 85 0d 02 b2  |........... ....|
00000500  05 e1 0d 02 bc 1a dd f2  4d 61 69 6e 57 69 6e 64  |........MainWind|
00000510  6f 77 4d 6f 75 73 65 43  6c 69 63 6b 0d 02 c6 42  |owMouseClick...B|
00000520  e7 20 69 63 6f 6e 25 3d  31 20 80 20 62 75 74 74  |. icon%=1 . butt|
00000530  6f 6e 25 3d 36 34 20 8c  20 f2 53 74 61 72 74 44  |on%=64 . .StartD|
00000540  72 61 67 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |rag(window%,icon|
00000550  25 2c 22 64 69 72 65 63  74 6f 72 79 22 29 0d 02  |%,"directory")..|
00000560  d0 05 e1 0d 02 da 06 3a  3a 0d 02 e4 1a dd f2 42  |.......::......B|
00000570  61 72 57 69 6e 64 6f 77  5f 4d 6f 75 73 65 43 6c  |arWindow_MouseCl|
00000580  69 63 6b 0d 02 ee 10 c8  8e 20 62 75 74 74 6f 6e  |ick...... button|
00000590  25 20 ca 0d 02 f8 26 c9  20 34 3a e7 20 4c 6f 63  |% ....&. 4:. Loc|
000005a0  6b 25 3d a3 20 8c 20 f2  4f 70 65 6e 57 69 6e 64  |k%=. . .OpenWind|
000005b0  6f 77 28 4d 61 69 6e 25  29 0d 03 02 28 c9 20 32  |ow(Main%)...(. 2|
000005c0  3a f2 4f 70 65 6e 4d 65  6e 75 4f 76 65 72 49 63  |:.OpenMenuOverIc|
000005d0  6f 6e 28 42 61 72 4d 65  6e 75 25 2c 78 25 2c 32  |on(BarMenu%,x%,2|
000005e0  29 0d 03 0c 05 cb 0d 03  16 05 e1 0d 03 20 06 3a  |)............ .:|
000005f0  3a 0d 03 2a 11 dd f2 4d  65 6e 75 28 6d 65 6e 75  |:..*...Menu(menu|
00000600  25 29 0d 03 34 0e c8 8e  20 6d 65 6e 75 25 20 ca  |%)..4... menu% .|
00000610  0d 03 3e 0f c9 20 42 61  72 4d 65 6e 75 25 3a 0d  |..>.. BarMenu%:.|
00000620  03 48 0e 20 c8 8e 20 71  25 21 30 20 ca 0d 03 52  |.H. .. q%!0 ...R|
00000630  15 20 20 20 c9 20 31 3a  72 75 6e 6e 69 6e 67 25  |.   . 1:running%|
00000640  3d a3 0d 03 5c 06 20 cb  0d 03 66 05 cb 0d 03 70  |=...\. ...f....p|
00000650  1f c8 99 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |..."Wimp_GetPoin|
00000660  74 65 72 49 6e 66 6f 22  2c 2c 71 25 0d 03 7a 2d  |terInfo",,q%..z-|
00000670  e7 20 71 25 21 38 3d 31  20 8c 20 c8 99 22 57 69  |. q%!8=1 . .."Wi|
00000680  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00000690  6d 65 6e 75 25 2c 30 2c  30 0d 03 84 05 e1 0d 03  |menu%,0,0.......|
000006a0  8e 06 3a 3a 0d 03 98 0f  dd f2 4b 65 79 28 6b 65  |..::......Key(ke|
000006b0  79 25 29 0d 03 a2 05 e1  0d 03 ac 06 3a 3a 0d 03  |y%).........::..|
000006c0  b6 1b dd f2 4c 6f 61 64  46 69 6c 65 28 66 69 6c  |....LoadFile(fil|
000006d0  65 24 2c 74 79 70 65 25  29 0d 03 c0 05 e1 0d 03  |e$,type%).......|
000006e0  ca 06 3a 3a 0d 03 d4 15  dd f2 53 61 76 65 46 69  |..::......SaveFi|
000006f0  6c 65 28 66 69 6c 65 24  29 0d 03 de 12 6e 65 77  |le(file$)....new|
00000700  70 61 74 68 24 3d 66 69  6c 65 24 0d 03 e8 12 61  |path$=file$....a|
00000710  25 3d a9 28 6e 65 77 70  61 74 68 24 29 0d 03 f2  |%=.(newpath$)...|
00000720  1b 6e 65 77 70 61 74 68  24 3d c0 66 69 6c 65 24  |.newpath$=.file$|
00000730  2c 28 61 25 2d 32 29 29  0d 03 fc 12 70 61 74 68  |,(a%-2))....path|
00000740  24 3d 6e 65 77 70 61 74  68 24 0d 04 06 05 e1 0d  |$=newpath$......|
00000750  04 10 06 3a 3a 0d 04 1a  10 dd f2 46 69 6c 6c 49  |...::......FillI|
00000760  6e 49 63 6f 6e 0d 04 24  1d f2 49 63 6f 6e 49 6e  |nIcon..$..IconIn|
00000770  28 4d 61 69 6e 25 2c 32  2c 6e 65 77 70 61 74 68  |(Main%,2,newpath|
00000780  24 29 0d 04 2e 05 e1 0d  04 38 06 3a 3a 0d 04 42  |$).......8.::..B|
00000790  13 dd f2 53 61 76 65 46  69 6c 65 50 61 72 74 31  |...SaveFilePart1|
000007a0  0d 04 4c 1d f2 53 61 76  65 46 69 6c 65 50 61 72  |..L..SaveFilePar|
000007b0  74 32 28 22 a0 22 2c 26  31 30 30 30 29 0d 04 56  |t2(".",&1000)..V|
000007c0  05 e1 0d 04 60 06 3a 3a  0d 04 6a 1f dd a4 57 69  |....`.::..j...Wi|
000007d0  6e 64 6f 77 48 65 6c 70  28 77 69 6e 64 6f 77 25  |ndowHelp(window%|
000007e0  2c 69 63 6f 6e 25 29 0d  04 74 08 63 25 3d b9 0d  |,icon%)..t.c%=..|
000007f0  04 7e 10 c8 8e 20 77 69  6e 64 6f 77 25 20 ca 0d  |.~... window% ..|
00000800  04 88 0a 7f 3a 63 25 3d  a3 0d 04 92 05 cb 0d 04  |....:c%=........|
00000810  9c 07 3d 22 22 0d 04 a6  06 3a 3a 0d 04 b0 1b dd  |..=""....::.....|
00000820  a4 4d 65 6e 75 48 65 6c  70 28 6d 65 6e 75 25 2c  |.MenuHelp(menu%,|
00000830  69 74 65 6d 25 29 0d 04  ba 0e c8 8e 20 6d 65 6e  |item%)...... men|
00000840  75 25 20 ca 0d 04 c4 05  cb 0d 04 ce 07 3d 22 22  |u% ..........=""|
00000850  0d 04 d8 06 3a 3a 0d 04  e2 20 dd f2 4f 70 65 6e  |....::... ..Open|
00000860  57 69 6e 64 6f 77 57 61  72 6e 69 6e 67 28 77 69  |WindowWarning(wi|
00000870  6e 64 6f 77 25 29 0d 04  ec 2f e7 20 77 69 6e 64  |ndow%).../. wind|
00000880  6f 77 25 3d 4d 61 69 6e  25 20 8c 20 f2 50 6c 61  |ow%=Main% . .Pla|
00000890  63 65 50 61 6e 65 28 4d  61 69 6e 25 2c 50 61 6e  |cePane(Main%,Pan|
000008a0  65 25 2c 32 29 0d 04 f6  05 e1 0d 05 00 06 3a 3a  |e%,2).........::|
000008b0  0d 05 0a 21 dd f2 43 6c  6f 73 65 57 69 6e 64 6f  |...!..CloseWindo|
000008c0  77 57 61 72 6e 69 6e 67  28 77 69 6e 64 6f 77 25  |wWarning(window%|
000008d0  29 0d 05 14 29 e7 20 77  69 6e 64 6f 77 25 3d 4d  |)...). window%=M|
000008e0  61 69 6e 25 20 8c 20 f2  43 6c 6f 73 65 57 69 6e  |ain% . .CloseWin|
000008f0  64 6f 77 28 50 61 6e 65  25 29 0d 05 1e 05 e1 0d  |dow(Pane%)......|
00000900  05 28 06 3a 3a 0d 05 32  1b dd f2 55 70 64 61 74  |.(.::..2...Updat|
00000910  65 57 69 6e 64 6f 77 28  77 69 6e 64 6f 77 25 29  |eWindow(window%)|
00000920  0d 05 3c 05 e1 0d ff                              |..<....|
00000927