Home » Archimedes archive » Micro User » MU 1991-12.adf » PD-Stuff » Utils/!CopyOpts/!Run

Utils/!CopyOpts/!Run

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Micro User » MU 1991-12.adf » PD-Stuff
Filename: Utils/!CopyOpts/!Run
Read OK: ✔
File size: 0C9F bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM ><Current$Dir>.!Run
   20REM Program   Copy & Rename
   30REM Version   1.01
   40REM Author    Edouard Poor
   50REM Written   October 1989
   60REM Program   Subject to Copyright
   70:
   80
   90*UnSet Alias$Copy
  100
  110ON ERROR PROCError
  120
  130DIM Block 1024
  140EventRecord=Block
  150DIM Menu  128
  160
  170$Block="TASK"
  180SYS "Wimp_Initialise",200,!Block,"Copy Options" TO ,TaskID
  190
  200Copy=FNIconBar1
  210Move=FNIconBar2
  220
  230Finished=FALSE                :REM Don't End Yet
  240Mask=1                        :REM No Null Events ???
  250END = END + 2000              :REM Get Rid Of Excess Memory
  260
  270REPEAT
  280  ReasonCode = FNWimpPoll(Mask,EventRecord)
  290  PROCPollAction(EventRecord,ReasonCode)
  300UNTIL Finished
  310
  320SYS "Wimp_CloseDown"
  330*UnSet Alias$Copy
  340END
  350
  360
  370
  380
  390
  400DEF FNWimpPoll(Mask,EventRecord)
  410
  420LOCAL ReasonCode
  430
  440SYS "Wimp_Poll" , Mask , EventRecord TO ReasonCode
  450
  460=ReasonCode
  470
  480
  490
  500
  510
  520DEF PROCPollAction(Block,Reason)
  530
  540CASE Reason OF
  550  WHEN 1     :REM PROCredraw(!Block)
  560  WHEN 2     :REM SYS "Wimp_OpenWindow",,Block
  570  WHEN 3     :REM SYS "Wimp_CloseWindow",,Block
  580  WHEN 4     :REM (Pointer Leaving Window)
  590  WHEN 5     :REM (Pointer Entering Window)
  600  WHEN 6     :    PROCMouse(Block)
  610  WHEN 7     :REM PROCsave
  620  WHEN 8     :REM PROCKey(Block)
  630  WHEN 9     :    PROCMenu
  640  WHEN 17,18 :    PROCreceive(Block)
  650ENDCASE
  660
  670ENDPROC
  680
  690
  700
  710
  720
  730DEF PROCMouse(Block)
  740
  750Button=Block!8
  760
  770IF Button AND 2 THEN
  780  PROCCreateMenu
  790ELSE
  800  Block!0  = -2
  810  Block!4  =  Move
  820  SYS &400CE ,,Block
  830  Flags    =  Block!24
  840  IF Flags AND %1000000000000000000000 THEN
  850           REM  *^   ^   ^   ^   ^   ^
  860    *Set Alias$Copy Rename %0 %1 <13> || %2
  870  ELSE
  880    *UnSet Alias$Copy
  890  ENDIF
  900ENDIF
  910ENDPROC
  920
  930
  940
  950
  960
  970DEF PROCCreateMenu
  980
  990X = Block!0
 1000Y = Block!4
 1010
 1020$Menu   = "Copy Opts"
 1030Menu?12 =  7
 1040Menu?13 =  2
 1050Menu?14 =  7
 1060Menu?15 =  0
 1070Menu!16 =  128
 1080Menu!20 =  40
 1090Menu!24 =  0
 1100Menu!28 = &80
 1110Menu!32 = -1
 1120Menu!36 =  (7<<24)+1
 1130$(Menu+40) = "Quit"
 1140
 1150SYS"Wimp_CreateMenu",,Menu,X-64,136
 1160
 1170ENDPROC
 1171
 1172
 1173
 1174
 1175
 1176DEF PROCMenu
 1177
 1178Finished = TRUE
 1179
 1180ENDPROC
 1190
 1200
 1210
 1220
 1221
 1230DEF PROCreceive(Block)
 1240
 1250CASE Block!16 OF
 1260  WHEN 0   : Finished=TRUE
 1270ENDCASE
 1280
 1290ENDPROC
 1300
 1310
 1320
 1330
 1340DEF PROCError
 1350
 1360ERROR EXT ERR,REPORT$+" (Internal Code "+STR$ERL+")."
 1370
 1380ENDPROC
 1390
 1400
 1410
 1420
 1430
 1440DEF FNIconBar1
 1450
 1460Block!0   = -2           :REM Icon Bar Left ( -1 = Icon Bar Right )
 1470Block!4   =  0
 1480Block!8   =  0  - 16
 1490Block!12  =  64
 1500Block!16  =  80 - 16
 1510Block!20  = %00010111001000010111000100001011
 1520       REM      ^   ^  *^   ^   ^   ^   ^   ^
 1530
 1540DIM Block!24 256
 1550$(Block!24)="COPY"
 1560
 1570DIM Block!28 256
 1580$(Block!28)="Sradiooff,radioon"
 1590
 1600Block!32  =  5
 1610
 1620SYS "Wimp_CreateIcon",,Block TO icon
 1630
 1640=icon
 1650
 1660
 1670
 1680
 1690
 1700DEF FNIconBar2
 1710
 1720Block!0   = -2           :REM Icon Bar Left ( -1 = Icon Bar Right )
 1730Block!4   =  0
 1740Block!8   =  0  -16
 1750Block!12  =  64
 1760Block!16  =  80 -16
 1770Block!20  = %00010111000000010111000100001011        :REM Flags
 1780       REM      ^   ^  *^   ^   ^   ^   ^   ^
 1790
 1800
 1810DIM Block!24 256
 1820$(Block!24)="MOVE"
 1830
 1840DIM Block!28 256
 1850$(Block!28)="Sradiooff,radioon"
 1860
 1870Block!32  =  5
 1880
 1890SYS "Wimp_CreateIcon",,Block TO icon
 1900
 1910=icon
 1920
 1930
 1940
 1950


� ><Current$Dir>.!Run
� Program   Copy & Rename
� Version   1.01
(� Author    Edouard Poor
2� Written   October 1989
<$� Program   Subject to Copyright
F:
P
Z*UnSet Alias$Copy
d
n� � �Error
x
�� Block 1024
�EventRecord=Block
�� Menu  128
�
�$Block="TASK"
�<ș "Wimp_Initialise",200,!Block,"Copy Options" � ,TaskID
�
�Copy=�IconBar1
�Move=�IconBar2
�
�.Finished=�                :� Don't End Yet
�7Mask=1                        :� No Null Events ???
�9� = � + 2000              :� Get Rid Of Excess Memory

�
.  ReasonCode = �WimpPoll(Mask,EventRecord)
")  �PollAction(EventRecord,ReasonCode)
,� Finished
6
@ș "Wimp_CloseDown"
J*UnSet Alias$Copy
T�
^
h
r
|
�
�!� �WimpPoll(Mask,EventRecord)
�
�� ReasonCode
�
�4ș "Wimp_Poll" , Mask , EventRecord � ReasonCode
�
�=ReasonCode
�
�
�
�
�
� �PollAction(Block,Reason)

Ȏ Reason �
&#  � 1     :� PROCredraw(!Block)
0-  � 2     :� SYS "Wimp_OpenWindow",,Block
:.  � 3     :� SYS "Wimp_CloseWindow",,Block
D)  � 4     :� (Pointer Leaving Window)
N*  � 5     :� (Pointer Entering Window)
X   � 6     :    �Mouse(Block)
b  � 7     :� PROCsave
l  � 8     :� PROCKey(Block)
v  � 9     :    �Menu
�"  � 17,18 :    �receive(Block)
��
�
��
�
�
�
�
�
�� �Mouse(Block)
�
�Button=Block!8
�
� Button � 2 �
  �CreateMenu
�
   Block!0  = -2
*  Block!4  =  Move
4  ș &400CE ,,Block
>  Flags    =  Block!24
H)  � Flags � %1000000000000000000000 �
R(           �  *^   ^   ^   ^   ^   ^
\/    *Set Alias$Copy Rename %0 %1 <13> || %2
f  �
p    *UnSet Alias$Copy
z  �
��
��
�
�
�
�
�
�� �CreateMenu
�
�X = Block!0
�Y = Block!4
�
�$Menu   = "Copy Opts"
Menu?12 =  7
Menu?13 =  2
Menu?14 =  7
$Menu?15 =  0
.Menu!16 =  128
8Menu!20 =  40
BMenu!24 =  0
LMenu!28 = &80
VMenu!32 = -1
`Menu!36 =  (7<<24)+1
j$(Menu+40) = "Quit"
t
~&ș"Wimp_CreateMenu",,Menu,X-64,136
�
��
�
�
�
�
�
�� �Menu
�
�Finished = �
�
��
�
�
�
�
�
�� �receive(Block)
�
�Ȏ Block!16 �
�  � 0   : Finished=�
��


�


(
2
<� �Error
F
P'� � �,�$+" (Internal Code "+Þ+")."
Z
d�
n
x
�
�
�
�� �IconBar1
�
�EBlock!0   = -2           :� Icon Bar Left ( -1 = Icon Bar Right )
�Block!4   =  0
�Block!8   =  0  - 16
�Block!12  =  64
�Block!16  =  80 - 16
�1Block!20  = %00010111001000010111000100001011
�/       �      ^   ^  *^   ^   ^   ^   ^   ^
�
� Block!24 256
$(Block!24)="COPY"

"� Block!28 256
,#$(Block!28)="Sradiooff,radioon"
6
@Block!32  =  5
J
T&ș "Wimp_CreateIcon",,Block � icon
^
h	=icon
r
|
�
�
�
�� �IconBar2
�
�EBlock!0   = -2           :� Icon Bar Left ( -1 = Icon Bar Right )
�Block!4   =  0
�Block!8   =  0  -16
�Block!12  =  64
�Block!16  =  80 -16
�ABlock!20  = %00010111000000010111000100001011        :� Flags
�/       �      ^   ^  *^   ^   ^   ^   ^   ^
�

� Block!24 256
$(Block!24)="MOVE"
&
0� Block!28 256
:#$(Block!28)="Sradiooff,radioon"
D
NBlock!32  =  5
X
b&ș "Wimp_CreateIcon",,Block � icon
l
v	=icon
�
�
�
�
�
00000000  0d 00 0a 19 f4 20 3e 3c  43 75 72 72 65 6e 74 24  |..... ><Current$|
00000010  44 69 72 3e 2e 21 52 75  6e 0d 00 14 1d f4 20 50  |Dir>.!Run..... P|
00000020  72 6f 67 72 61 6d 20 20  20 43 6f 70 79 20 26 20  |rogram   Copy & |
00000030  52 65 6e 61 6d 65 0d 00  1e 14 f4 20 56 65 72 73  |Rename..... Vers|
00000040  69 6f 6e 20 20 20 31 2e  30 31 0d 00 28 1c f4 20  |ion   1.01..(.. |
00000050  41 75 74 68 6f 72 20 20  20 20 45 64 6f 75 61 72  |Author    Edouar|
00000060  64 20 50 6f 6f 72 0d 00  32 1c f4 20 57 72 69 74  |d Poor..2.. Writ|
00000070  74 65 6e 20 20 20 4f 63  74 6f 62 65 72 20 31 39  |ten   October 19|
00000080  38 39 0d 00 3c 24 f4 20  50 72 6f 67 72 61 6d 20  |89..<$. Program |
00000090  20 20 53 75 62 6a 65 63  74 20 74 6f 20 43 6f 70  |  Subject to Cop|
000000a0  79 72 69 67 68 74 0d 00  46 05 3a 0d 00 50 04 0d  |yright..F.:..P..|
000000b0  00 5a 15 2a 55 6e 53 65  74 20 41 6c 69 61 73 24  |.Z.*UnSet Alias$|
000000c0  43 6f 70 79 0d 00 64 04  0d 00 6e 0e ee 20 85 20  |Copy..d...n.. . |
000000d0  f2 45 72 72 6f 72 0d 00  78 04 0d 00 82 10 de 20  |.Error..x...... |
000000e0  42 6c 6f 63 6b 20 31 30  32 34 0d 00 8c 15 45 76  |Block 1024....Ev|
000000f0  65 6e 74 52 65 63 6f 72  64 3d 42 6c 6f 63 6b 0d  |entRecord=Block.|
00000100  00 96 0f de 20 4d 65 6e  75 20 20 31 32 38 0d 00  |.... Menu  128..|
00000110  a0 04 0d 00 aa 11 24 42  6c 6f 63 6b 3d 22 54 41  |......$Block="TA|
00000120  53 4b 22 0d 00 b4 3c c8  99 20 22 57 69 6d 70 5f  |SK"...<.. "Wimp_|
00000130  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
00000140  21 42 6c 6f 63 6b 2c 22  43 6f 70 79 20 4f 70 74  |!Block,"Copy Opt|
00000150  69 6f 6e 73 22 20 b8 20  2c 54 61 73 6b 49 44 0d  |ions" . ,TaskID.|
00000160  00 be 04 0d 00 c8 12 43  6f 70 79 3d a4 49 63 6f  |.......Copy=.Ico|
00000170  6e 42 61 72 31 0d 00 d2  12 4d 6f 76 65 3d a4 49  |nBar1....Move=.I|
00000180  63 6f 6e 42 61 72 32 0d  00 dc 04 0d 00 e6 2e 46  |conBar2........F|
00000190  69 6e 69 73 68 65 64 3d  a3 20 20 20 20 20 20 20  |inished=.       |
000001a0  20 20 20 20 20 20 20 20  20 3a f4 20 44 6f 6e 27  |         :. Don'|
000001b0  74 20 45 6e 64 20 59 65  74 0d 00 f0 37 4d 61 73  |t End Yet...7Mas|
000001c0  6b 3d 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |k=1             |
000001d0  20 20 20 20 20 20 20 20  20 20 20 3a f4 20 4e 6f  |           :. No|
000001e0  20 4e 75 6c 6c 20 45 76  65 6e 74 73 20 3f 3f 3f  | Null Events ???|
000001f0  0d 00 fa 39 e0 20 3d 20  e0 20 2b 20 32 30 30 30  |...9. = . + 2000|
00000200  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |              :.|
00000210  20 47 65 74 20 52 69 64  20 4f 66 20 45 78 63 65  | Get Rid Of Exce|
00000220  73 73 20 4d 65 6d 6f 72  79 0d 01 04 04 0d 01 0e  |ss Memory.......|
00000230  05 f5 0d 01 18 2e 20 20  52 65 61 73 6f 6e 43 6f  |......  ReasonCo|
00000240  64 65 20 3d 20 a4 57 69  6d 70 50 6f 6c 6c 28 4d  |de = .WimpPoll(M|
00000250  61 73 6b 2c 45 76 65 6e  74 52 65 63 6f 72 64 29  |ask,EventRecord)|
00000260  0d 01 22 29 20 20 f2 50  6f 6c 6c 41 63 74 69 6f  |..")  .PollActio|
00000270  6e 28 45 76 65 6e 74 52  65 63 6f 72 64 2c 52 65  |n(EventRecord,Re|
00000280  61 73 6f 6e 43 6f 64 65  29 0d 01 2c 0e fd 20 46  |asonCode)..,.. F|
00000290  69 6e 69 73 68 65 64 0d  01 36 04 0d 01 40 17 c8  |inished..6...@..|
000002a0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
000002b0  6e 22 0d 01 4a 15 2a 55  6e 53 65 74 20 41 6c 69  |n"..J.*UnSet Ali|
000002c0  61 73 24 43 6f 70 79 0d  01 54 05 e0 0d 01 5e 04  |as$Copy..T....^.|
000002d0  0d 01 68 04 0d 01 72 04  0d 01 7c 04 0d 01 86 04  |..h...r...|.....|
000002e0  0d 01 90 21 dd 20 a4 57  69 6d 70 50 6f 6c 6c 28  |...!. .WimpPoll(|
000002f0  4d 61 73 6b 2c 45 76 65  6e 74 52 65 63 6f 72 64  |Mask,EventRecord|
00000300  29 0d 01 9a 04 0d 01 a4  10 ea 20 52 65 61 73 6f  |)......... Reaso|
00000310  6e 43 6f 64 65 0d 01 ae  04 0d 01 b8 34 c8 99 20  |nCode.......4.. |
00000320  22 57 69 6d 70 5f 50 6f  6c 6c 22 20 2c 20 4d 61  |"Wimp_Poll" , Ma|
00000330  73 6b 20 2c 20 45 76 65  6e 74 52 65 63 6f 72 64  |sk , EventRecord|
00000340  20 b8 20 52 65 61 73 6f  6e 43 6f 64 65 0d 01 c2  | . ReasonCode...|
00000350  04 0d 01 cc 0f 3d 52 65  61 73 6f 6e 43 6f 64 65  |.....=ReasonCode|
00000360  0d 01 d6 04 0d 01 e0 04  0d 01 ea 04 0d 01 f4 04  |................|
00000370  0d 01 fe 04 0d 02 08 1f  dd 20 f2 50 6f 6c 6c 41  |......... .PollA|
00000380  63 74 69 6f 6e 28 42 6c  6f 63 6b 2c 52 65 61 73  |ction(Block,Reas|
00000390  6f 6e 29 0d 02 12 04 0d  02 1c 0f c8 8e 20 52 65  |on).......... Re|
000003a0  61 73 6f 6e 20 ca 0d 02  26 23 20 20 c9 20 31 20  |ason ...&#  . 1 |
000003b0  20 20 20 20 3a f4 20 50  52 4f 43 72 65 64 72 61  |    :. PROCredra|
000003c0  77 28 21 42 6c 6f 63 6b  29 0d 02 30 2d 20 20 c9  |w(!Block)..0-  .|
000003d0  20 32 20 20 20 20 20 3a  f4 20 53 59 53 20 22 57  | 2     :. SYS "W|
000003e0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000003f0  2c 42 6c 6f 63 6b 0d 02  3a 2e 20 20 c9 20 33 20  |,Block..:.  . 3 |
00000400  20 20 20 20 3a f4 20 53  59 53 20 22 57 69 6d 70  |    :. SYS "Wimp|
00000410  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 42  |_CloseWindow",,B|
00000420  6c 6f 63 6b 0d 02 44 29  20 20 c9 20 34 20 20 20  |lock..D)  . 4   |
00000430  20 20 3a f4 20 28 50 6f  69 6e 74 65 72 20 4c 65  |  :. (Pointer Le|
00000440  61 76 69 6e 67 20 57 69  6e 64 6f 77 29 0d 02 4e  |aving Window)..N|
00000450  2a 20 20 c9 20 35 20 20  20 20 20 3a f4 20 28 50  |*  . 5     :. (P|
00000460  6f 69 6e 74 65 72 20 45  6e 74 65 72 69 6e 67 20  |ointer Entering |
00000470  57 69 6e 64 6f 77 29 0d  02 58 20 20 20 c9 20 36  |Window)..X   . 6|
00000480  20 20 20 20 20 3a 20 20  20 20 f2 4d 6f 75 73 65  |     :    .Mouse|
00000490  28 42 6c 6f 63 6b 29 0d  02 62 19 20 20 c9 20 37  |(Block)..b.  . 7|
000004a0  20 20 20 20 20 3a f4 20  50 52 4f 43 73 61 76 65  |     :. PROCsave|
000004b0  0d 02 6c 1f 20 20 c9 20  38 20 20 20 20 20 3a f4  |..l.  . 8     :.|
000004c0  20 50 52 4f 43 4b 65 79  28 42 6c 6f 63 6b 29 0d  | PROCKey(Block).|
000004d0  02 76 18 20 20 c9 20 39  20 20 20 20 20 3a 20 20  |.v.  . 9     :  |
000004e0  20 20 f2 4d 65 6e 75 0d  02 80 22 20 20 c9 20 31  |  .Menu..."  . 1|
000004f0  37 2c 31 38 20 3a 20 20  20 20 f2 72 65 63 65 69  |7,18 :    .recei|
00000500  76 65 28 42 6c 6f 63 6b  29 0d 02 8a 05 cb 0d 02  |ve(Block).......|
00000510  94 04 0d 02 9e 05 e1 0d  02 a8 04 0d 02 b2 04 0d  |................|
00000520  02 bc 04 0d 02 c6 04 0d  02 d0 04 0d 02 da 13 dd  |................|
00000530  20 f2 4d 6f 75 73 65 28  42 6c 6f 63 6b 29 0d 02  | .Mouse(Block)..|
00000540  e4 04 0d 02 ee 12 42 75  74 74 6f 6e 3d 42 6c 6f  |......Button=Blo|
00000550  63 6b 21 38 0d 02 f8 04  0d 03 02 12 e7 20 42 75  |ck!8......... Bu|
00000560  74 74 6f 6e 20 80 20 32  20 8c 0d 03 0c 11 20 20  |tton . 2 .....  |
00000570  f2 43 72 65 61 74 65 4d  65 6e 75 0d 03 16 05 cc  |.CreateMenu.....|
00000580  0d 03 20 13 20 20 42 6c  6f 63 6b 21 30 20 20 3d  |.. .  Block!0  =|
00000590  20 2d 32 0d 03 2a 16 20  20 42 6c 6f 63 6b 21 34  | -2..*.  Block!4|
000005a0  20 20 3d 20 20 4d 6f 76  65 0d 03 34 17 20 20 c8  |  =  Move..4.  .|
000005b0  99 20 26 34 30 30 43 45  20 2c 2c 42 6c 6f 63 6b  |. &400CE ,,Block|
000005c0  0d 03 3e 1a 20 20 46 6c  61 67 73 20 20 20 20 3d  |..>.  Flags    =|
000005d0  20 20 42 6c 6f 63 6b 21  32 34 0d 03 48 29 20 20  |  Block!24..H)  |
000005e0  e7 20 46 6c 61 67 73 20  80 20 25 31 30 30 30 30  |. Flags . %10000|
000005f0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
00000600  30 20 8c 0d 03 52 28 20  20 20 20 20 20 20 20 20  |0 ...R(         |
00000610  20 20 f4 20 20 2a 5e 20  20 20 5e 20 20 20 5e 20  |  .  *^   ^   ^ |
00000620  20 20 5e 20 20 20 5e 20  20 20 5e 0d 03 5c 2f 20  |  ^   ^   ^..\/ |
00000630  20 20 20 2a 53 65 74 20  41 6c 69 61 73 24 43 6f  |   *Set Alias$Co|
00000640  70 79 20 52 65 6e 61 6d  65 20 25 30 20 25 31 20  |py Rename %0 %1 |
00000650  3c 31 33 3e 20 7c 7c 20  25 32 0d 03 66 07 20 20  |<13> || %2..f.  |
00000660  cc 0d 03 70 19 20 20 20  20 2a 55 6e 53 65 74 20  |...p.    *UnSet |
00000670  41 6c 69 61 73 24 43 6f  70 79 0d 03 7a 07 20 20  |Alias$Copy..z.  |
00000680  cd 0d 03 84 05 cd 0d 03  8e 05 e1 0d 03 98 04 0d  |................|
00000690  03 a2 04 0d 03 ac 04 0d  03 b6 04 0d 03 c0 04 0d  |................|
000006a0  03 ca 11 dd 20 f2 43 72  65 61 74 65 4d 65 6e 75  |.... .CreateMenu|
000006b0  0d 03 d4 04 0d 03 de 0f  58 20 3d 20 42 6c 6f 63  |........X = Bloc|
000006c0  6b 21 30 0d 03 e8 0f 59  20 3d 20 42 6c 6f 63 6b  |k!0....Y = Block|
000006d0  21 34 0d 03 f2 04 0d 03  fc 19 24 4d 65 6e 75 20  |!4........$Menu |
000006e0  20 20 3d 20 22 43 6f 70  79 20 4f 70 74 73 22 0d  |  = "Copy Opts".|
000006f0  04 06 10 4d 65 6e 75 3f  31 32 20 3d 20 20 37 0d  |...Menu?12 =  7.|
00000700  04 10 10 4d 65 6e 75 3f  31 33 20 3d 20 20 32 0d  |...Menu?13 =  2.|
00000710  04 1a 10 4d 65 6e 75 3f  31 34 20 3d 20 20 37 0d  |...Menu?14 =  7.|
00000720  04 24 10 4d 65 6e 75 3f  31 35 20 3d 20 20 30 0d  |.$.Menu?15 =  0.|
00000730  04 2e 12 4d 65 6e 75 21  31 36 20 3d 20 20 31 32  |...Menu!16 =  12|
00000740  38 0d 04 38 11 4d 65 6e  75 21 32 30 20 3d 20 20  |8..8.Menu!20 =  |
00000750  34 30 0d 04 42 10 4d 65  6e 75 21 32 34 20 3d 20  |40..B.Menu!24 = |
00000760  20 30 0d 04 4c 11 4d 65  6e 75 21 32 38 20 3d 20  | 0..L.Menu!28 = |
00000770  26 38 30 0d 04 56 10 4d  65 6e 75 21 33 32 20 3d  |&80..V.Menu!32 =|
00000780  20 2d 31 0d 04 60 18 4d  65 6e 75 21 33 36 20 3d  | -1..`.Menu!36 =|
00000790  20 20 28 37 3c 3c 32 34  29 2b 31 0d 04 6a 17 24  |  (7<<24)+1..j.$|
000007a0  28 4d 65 6e 75 2b 34 30  29 20 3d 20 22 51 75 69  |(Menu+40) = "Qui|
000007b0  74 22 0d 04 74 04 0d 04  7e 26 c8 99 22 57 69 6d  |t"..t...~&.."Wim|
000007c0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 4d  |p_CreateMenu",,M|
000007d0  65 6e 75 2c 58 2d 36 34  2c 31 33 36 0d 04 88 04  |enu,X-64,136....|
000007e0  0d 04 92 05 e1 0d 04 93  04 0d 04 94 04 0d 04 95  |................|
000007f0  04 0d 04 96 04 0d 04 97  04 0d 04 98 0b dd 20 f2  |.............. .|
00000800  4d 65 6e 75 0d 04 99 04  0d 04 9a 10 46 69 6e 69  |Menu........Fini|
00000810  73 68 65 64 20 3d 20 b9  0d 04 9b 04 0d 04 9c 05  |shed = .........|
00000820  e1 0d 04 a6 04 0d 04 b0  04 0d 04 ba 04 0d 04 c4  |................|
00000830  04 0d 04 c5 04 0d 04 ce  15 dd 20 f2 72 65 63 65  |.......... .rece|
00000840  69 76 65 28 42 6c 6f 63  6b 29 0d 04 d8 04 0d 04  |ive(Block)......|
00000850  e2 11 c8 8e 20 42 6c 6f  63 6b 21 31 36 20 ca 0d  |.... Block!16 ..|
00000860  04 ec 18 20 20 c9 20 30  20 20 20 3a 20 46 69 6e  |...  . 0   : Fin|
00000870  69 73 68 65 64 3d b9 0d  04 f6 05 cb 0d 05 00 04  |ished=..........|
00000880  0d 05 0a 05 e1 0d 05 14  04 0d 05 1e 04 0d 05 28  |...............(|
00000890  04 0d 05 32 04 0d 05 3c  0c dd 20 f2 45 72 72 6f  |...2...<.. .Erro|
000008a0  72 0d 05 46 04 0d 05 50  27 85 20 a2 20 9f 2c f6  |r..F...P'. . .,.|
000008b0  24 2b 22 20 28 49 6e 74  65 72 6e 61 6c 20 43 6f  |$+" (Internal Co|
000008c0  64 65 20 22 2b c3 9e 2b  22 29 2e 22 0d 05 5a 04  |de "+..+")."..Z.|
000008d0  0d 05 64 05 e1 0d 05 6e  04 0d 05 78 04 0d 05 82  |..d....n...x....|
000008e0  04 0d 05 8c 04 0d 05 96  04 0d 05 a0 0f dd 20 a4  |.............. .|
000008f0  49 63 6f 6e 42 61 72 31  0d 05 aa 04 0d 05 b4 45  |IconBar1.......E|
00000900  42 6c 6f 63 6b 21 30 20  20 20 3d 20 2d 32 20 20  |Block!0   = -2  |
00000910  20 20 20 20 20 20 20 20  20 3a f4 20 49 63 6f 6e  |         :. Icon|
00000920  20 42 61 72 20 4c 65 66  74 20 28 20 2d 31 20 3d  | Bar Left ( -1 =|
00000930  20 49 63 6f 6e 20 42 61  72 20 52 69 67 68 74 20  | Icon Bar Right |
00000940  29 0d 05 be 12 42 6c 6f  63 6b 21 34 20 20 20 3d  |)....Block!4   =|
00000950  20 20 30 0d 05 c8 18 42  6c 6f 63 6b 21 38 20 20  |  0....Block!8  |
00000960  20 3d 20 20 30 20 20 2d  20 31 36 0d 05 d2 13 42  | =  0  - 16....B|
00000970  6c 6f 63 6b 21 31 32 20  20 3d 20 20 36 34 0d 05  |lock!12  =  64..|
00000980  dc 18 42 6c 6f 63 6b 21  31 36 20 20 3d 20 20 38  |..Block!16  =  8|
00000990  30 20 2d 20 31 36 0d 05  e6 31 42 6c 6f 63 6b 21  |0 - 16...1Block!|
000009a0  32 30 20 20 3d 20 25 30  30 30 31 30 31 31 31 30  |20  = %000101110|
000009b0  30 31 30 30 30 30 31 30  31 31 31 30 30 30 31 30  |0100001011100010|
000009c0  30 30 30 31 30 31 31 0d  05 f0 2f 20 20 20 20 20  |0001011.../     |
000009d0  20 20 f4 20 20 20 20 20  20 5e 20 20 20 5e 20 20  |  .      ^   ^  |
000009e0  2a 5e 20 20 20 5e 20 20  20 5e 20 20 20 5e 20 20  |*^   ^   ^   ^  |
000009f0  20 5e 20 20 20 5e 0d 05  fa 04 0d 06 04 12 de 20  | ^   ^......... |
00000a00  42 6c 6f 63 6b 21 32 34  20 32 35 36 0d 06 0e 16  |Block!24 256....|
00000a10  24 28 42 6c 6f 63 6b 21  32 34 29 3d 22 43 4f 50  |$(Block!24)="COP|
00000a20  59 22 0d 06 18 04 0d 06  22 12 de 20 42 6c 6f 63  |Y"......".. Bloc|
00000a30  6b 21 32 38 20 32 35 36  0d 06 2c 23 24 28 42 6c  |k!28 256..,#$(Bl|
00000a40  6f 63 6b 21 32 38 29 3d  22 53 72 61 64 69 6f 6f  |ock!28)="Sradioo|
00000a50  66 66 2c 72 61 64 69 6f  6f 6e 22 0d 06 36 04 0d  |ff,radioon"..6..|
00000a60  06 40 12 42 6c 6f 63 6b  21 33 32 20 20 3d 20 20  |.@.Block!32  =  |
00000a70  35 0d 06 4a 04 0d 06 54  26 c8 99 20 22 57 69 6d  |5..J...T&.. "Wim|
00000a80  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 42  |p_CreateIcon",,B|
00000a90  6c 6f 63 6b 20 b8 20 69  63 6f 6e 0d 06 5e 04 0d  |lock . icon..^..|
00000aa0  06 68 09 3d 69 63 6f 6e  0d 06 72 04 0d 06 7c 04  |.h.=icon..r...|.|
00000ab0  0d 06 86 04 0d 06 90 04  0d 06 9a 04 0d 06 a4 0f  |................|
00000ac0  dd 20 a4 49 63 6f 6e 42  61 72 32 0d 06 ae 04 0d  |. .IconBar2.....|
00000ad0  06 b8 45 42 6c 6f 63 6b  21 30 20 20 20 3d 20 2d  |..EBlock!0   = -|
00000ae0  32 20 20 20 20 20 20 20  20 20 20 20 3a f4 20 49  |2           :. I|
00000af0  63 6f 6e 20 42 61 72 20  4c 65 66 74 20 28 20 2d  |con Bar Left ( -|
00000b00  31 20 3d 20 49 63 6f 6e  20 42 61 72 20 52 69 67  |1 = Icon Bar Rig|
00000b10  68 74 20 29 0d 06 c2 12  42 6c 6f 63 6b 21 34 20  |ht )....Block!4 |
00000b20  20 20 3d 20 20 30 0d 06  cc 17 42 6c 6f 63 6b 21  |  =  0....Block!|
00000b30  38 20 20 20 3d 20 20 30  20 20 2d 31 36 0d 06 d6  |8   =  0  -16...|
00000b40  13 42 6c 6f 63 6b 21 31  32 20 20 3d 20 20 36 34  |.Block!12  =  64|
00000b50  0d 06 e0 17 42 6c 6f 63  6b 21 31 36 20 20 3d 20  |....Block!16  = |
00000b60  20 38 30 20 2d 31 36 0d  06 ea 41 42 6c 6f 63 6b  | 80 -16...ABlock|
00000b70  21 32 30 20 20 3d 20 25  30 30 30 31 30 31 31 31  |!20  = %00010111|
00000b80  30 30 30 30 30 30 30 31  30 31 31 31 30 30 30 31  |0000000101110001|
00000b90  30 30 30 30 31 30 31 31  20 20 20 20 20 20 20 20  |00001011        |
00000ba0  3a f4 20 46 6c 61 67 73  0d 06 f4 2f 20 20 20 20  |:. Flags.../    |
00000bb0  20 20 20 f4 20 20 20 20  20 20 5e 20 20 20 5e 20  |   .      ^   ^ |
00000bc0  20 2a 5e 20 20 20 5e 20  20 20 5e 20 20 20 5e 20  | *^   ^   ^   ^ |
00000bd0  20 20 5e 20 20 20 5e 0d  06 fe 04 0d 07 08 04 0d  |  ^   ^.........|
00000be0  07 12 12 de 20 42 6c 6f  63 6b 21 32 34 20 32 35  |.... Block!24 25|
00000bf0  36 0d 07 1c 16 24 28 42  6c 6f 63 6b 21 32 34 29  |6....$(Block!24)|
00000c00  3d 22 4d 4f 56 45 22 0d  07 26 04 0d 07 30 12 de  |="MOVE"..&...0..|
00000c10  20 42 6c 6f 63 6b 21 32  38 20 32 35 36 0d 07 3a  | Block!28 256..:|
00000c20  23 24 28 42 6c 6f 63 6b  21 32 38 29 3d 22 53 72  |#$(Block!28)="Sr|
00000c30  61 64 69 6f 6f 66 66 2c  72 61 64 69 6f 6f 6e 22  |adiooff,radioon"|
00000c40  0d 07 44 04 0d 07 4e 12  42 6c 6f 63 6b 21 33 32  |..D...N.Block!32|
00000c50  20 20 3d 20 20 35 0d 07  58 04 0d 07 62 26 c8 99  |  =  5..X...b&..|
00000c60  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
00000c70  6e 22 2c 2c 42 6c 6f 63  6b 20 b8 20 69 63 6f 6e  |n",,Block . icon|
00000c80  0d 07 6c 04 0d 07 76 09  3d 69 63 6f 6e 0d 07 80  |..l...v.=icon...|
00000c90  04 0d 07 8a 04 0d 07 94  04 0d 07 9e 04 0d ff     |...............|
00000c9f

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .