!NewApp5/!Runimage

Home » Archimedes archive » Archimedes World » AW_Vol15_Issue7 CD ROM Index Disc.adf » !wimp-4_wimp » !NewApp5/!Runimage

!NewApp5/!Runimage

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 » Archimedes World » AW_Vol15_Issue7 CD ROM Index Disc.adf » !wimp-4_wimp
Filename:	!NewApp5/!Runimage
Read OK:	✔
File size:	0D97 bytes
Load address:	0000
Exec address:	0000

File contents

   10  REM> Prog4 for Just4Wimps
   20  ON ERROR:REPORT:PRINT ERL:END
   30  DIM block%1000,ws%1000,Text%12,Text2%30,IconSprite%12,IconSprite1%12,IconSprite2%255
   50  SYS "Wimp_Initialise",200,&4B534154,"Windows and Icons" TO ,TaskHandle%
   60  PROCCreateWindow
   70  PROCWindowIcon
   70  PROCWindowIcon2
   80
   70  PROCIconBarIcon
   80  !block%=wh%
   90  PROCOpenWindow
  100  REPEAT
  110  SYS "Wimp_Poll",0,block%,0 TO Reason%
  120  CASE Reason% OF
  130  WHEN2:SYS"Wimp_OpenWindow",,block%
  140  WHEN3:N%=TRUE
  150  WHEN17,18:PROCMessage
  160  ENDCASE
  170  MOUSE X%,Y%,Z%
  180  PROCProg
  190  UNTIL Z%=5 OR N%=TRUE
  200  SYS"Wimp_CloseDown",TaskHandle%
  210  END
  220 
  230  DEF PROCIconBarIcon
  240  $Text%="NewApp 5"
  250  $IconSprite%="s"+"!NewApp5"
  260  !block%=-1
  270  block%!4=0
  280  block%!8=-16
  290  block%!12=128
  300  block%!16=88
  310  block%!20=&1700310B
  320  block%!24=Text%
  330  block%!28=IconSprite%
  340  block%!32=20
  350  SYS"Wimp_CreateIcon",,block%
  360  ENDPROC
  370  
  380  DEF PROCMessage
  390  CASE block%!16 OF
  400  WHEN 0:N%=TRUE
  410  ENDCASE
  420  ENDPROC
  430
  440  DEF PROCProg
  450  REM IF $ind%<>TIME$ THEN $ind%=TIME$:REM PROCSetIcon_State(wh%,0,0)
  460  ENDPROC
  470  
  480  DEF PROCOpenWindow
  490  SYS "Wimp_GetWindowState",,block%
  500  SYS "Wimp_OpenWindow",,block%
  510  ENDPROC
  520
  530  DEF PROCSetIcon_State(WindowHandle%,Icon%,State%)
  540  !block%=WindowHandle%
  550  block%!4=Icon%:
  560  IF State%=1 Clear%=&200000:Eor%=&200000:REM BIT 21 SET
  570  IF State%=0 Clear%=&200000:Eor%=&000000
  580  block%!8=Eor%
  590  block%!12=Clear%
  600  SYS"Wimp_SetIconState",,block%
  610  ENDPROC
  620
  630 DEF PROCCreateWindow
  640 block%!0=200:REM Visible area xmin
  650 block%!4=400:REM Visible area ymin
  660 block%!8=800:REM Visible area xmax
  670 block%!12=900:REM Visible area ymax
  680 block%!16=100:REM Scroll x offset wrt work area origin
  690 block%!20=-100:REM Scroll y offset wrt work area origin
  700 block%!24=-1:REM set if window is on top or behind all the others
  710 block%!28=&FF030012:REM very complicated window flags
  720 block%?32=7:REM Colour of title bar foreground
  730 block%?33=2:REM Colour of title bar background
  740 block%?34=7:REM Colour of work area foreground
  750 block%?35=13:REM Colour of work area background
  760 block%?36=3:REM Colour of scroll bar well
  770 block%?37=1:REM Colour of scroll bar slider
  780 block%?38=12:REM Colour of title bar background when highlighted
  790 block%?39=0:REM Must always be set to 0 (just padding?)
  800 block%!40=0:REM Work area min x
  810 block%!44=-700:REM Work area min y
  820 block%!48=1000:REM Work area max x
  830 block%!52=0:REM Work area max y
  840 block%!56=&3D:REM Title bar's icon flags
  850 block%!60=&3000:REM Work area's even more complex icon flags
  860 block%!64=1:REM contol block pointer for Sprites, 1 for Wimp
  870 block%!68=4:REM minimum size of window
  880 $(block%+72)="The hard way":REM window name
  890 block%!84=1:REM number of icons in this window
  900 SYS "Wimp_CreateWindow",,block% TO wh%
  910 ENDPROC
  920
  930  DEF PROCWindowIcon
  240  $Text%="Arc World"
  250  $IconSprite1%="s"+"ArcWorld"
  260  !block%=wh%
  270  block%!4=200  :REM relative xmin
  280  block%!8=-400 :REM relative ymin
  290  block%!12=380 :REM relative xmax
  300  block%!16=-290:REM relative ymax
  310  block%!20=&1700310B
  320  block%!24=Text%
  330  block%!28=IconSprite1%
  340  block%!32=20
  350  SYS"Wimp_CreateIcon",,block%
  360  ENDPROC
  930  DEF PROCWindowIcon2
  240  $Text2%="Gratuitous kid pic"
  250  $IconSprite2%="s"+"katie"
  260  !block%=wh%
  270  block%!4=450  :REM relative xmin
  280  block%!8=-500 :REM relative ymin
  290  block%!12=700 :REM relative xmax
  300  block%!16=-110:REM relative ymax
  310  block%!20=&1700310B
  320  block%!24=Text2%
  330  block%!28=IconSprite2%
  340  block%!32=20
  350  SYS"Wimp_CreateIcon",,block%
  360  ENDPROC


  �> Prog4 for Just4Wimps
  � �:�:� �:�
X  � block%1000,ws%1000,Text%12,Text2%30,IconSprite%12,IconSprite1%12,IconSprite2%255
2K  ș "Wimp_Initialise",200,&4B534154,"Windows and Icons" � ,TaskHandle%
<  �CreateWindow
F  �WindowIcon
F  �WindowIcon2
P
F  �IconBarIcon
P  !block%=wh%
Z  �OpenWindow
d  �
n)  ș "Wimp_Poll",0,block%,0 � Reason%
x  Ȏ Reason% �
�$  �2:ș"Wimp_OpenWindow",,block%
�
  �3:N%=�
�  �17,18:�Message
�  �
�  ȗ X%,Y%,Z%
�  �Prog
�  � Z%=5 � N%=�
�$  ș"Wimp_CloseDown",TaskHandle%
�  �
� 
�  � �IconBarIcon
�  $Text%="NewApp 5"
�!  $IconSprite%="s"+"!NewApp5"
  !block%=-1
  block%!4=0
  block%!8=-16
"  block%!12=128
,  block%!16=88
6  block%!20=&1700310B
@  block%!24=Text%
J  block%!28=IconSprite%
T  block%!32=20
^!  ș"Wimp_CreateIcon",,block%
h  �
r  
|  � �Message
�  Ȏ block%!16 �
�  � 0:N%=�
�  �
�  �
�
�
  � �Prog
�G  � IF $ind%<>TIME$ THEN $ind%=TIME$:REM PROCSetIcon_State(wh%,0,0)
�  �
�  
�  � �OpenWindow
�&  ș "Wimp_GetWindowState",,block%
�"  ș "Wimp_OpenWindow",,block%
�  �

2  � �SetIcon_State(WindowHandle%,Icon%,State%)
  !block%=WindowHandle%
&  block%!4=Icon%:
09  � State%=1 Clear%=&200000:Eor%=&200000:� BIT 21 SET
:,  � State%=0 Clear%=&200000:Eor%=&000000
D  block%!8=Eor%
N  block%!12=Clear%
X#  ș"Wimp_SetIconState",,block%
b  �
l
v � �CreateWindow
�% block%!0=200:� Visible area xmin
�% block%!4=400:� Visible area ymin
�% block%!8=800:� Visible area xmax
�& block%!12=900:� Visible area ymax
�9 block%!16=100:� Scroll x offset wrt work area origin
�: block%!20=-100:� Scroll y offset wrt work area origin
�D block%!24=-1:� set if window is on top or behind all the others
�8 block%!28=&FF030012:� very complicated window flags
�1 block%?32=7:� Colour of title bar foreground
�1 block%?33=2:� Colour of title bar background
�1 block%?34=7:� Colour of work area foreground
�2 block%?35=13:� Colour of work area background
�, block%?36=3:� Colour of scroll bar well
. block%?37=1:� Colour of scroll bar slider
C block%?38=12:� Colour of title bar background when highlighted
: block%?39=0:� Must always be set to 0 (just padding?)
 " block%!40=0:� Work area min x
*% block%!44=-700:� Work area min y
4% block%!48=1000:� Work area max x
>" block%!52=0:� Work area max y
H+ block%!56=&3D:� Title bar's icon flags
R? block%!60=&3000:� Work area's even more complex icon flags
\? block%!64=1:� contol block pointer for Sprites, 1 for Wimp
f) block%!68=4:� minimum size of window
p. $(block%+72)="The hard way":� window name
z1 block%!84=1:� number of icons in this window
�) ș "Wimp_CreateWindow",,block% � wh%
� �
�
�  � �WindowIcon
�  $Text%="Arc World"
�"  $IconSprite1%="s"+"ArcWorld"
  !block%=wh%
$  block%!4=200  :� relative xmin
$  block%!8=-400 :� relative ymin
"$  block%!12=380 :� relative xmax
,$  block%!16=-290:� relative ymax
6  block%!20=&1700310B
@  block%!24=Text%
J  block%!28=IconSprite1%
T  block%!32=20
^!  ș"Wimp_CreateIcon",,block%
h  �
�  � �WindowIcon2
�"  $Text2%="Gratuitous kid pic"
�  $IconSprite2%="s"+"katie"
  !block%=wh%
$  block%!4=450  :� relative xmin
$  block%!8=-500 :� relative ymin
"$  block%!12=700 :� relative xmax
,$  block%!16=-110:� relative ymax
6  block%!20=&1700310B
@  block%!24=Text2%
J  block%!28=IconSprite2%
T  block%!32=20
^!  ș"Wimp_CreateIcon",,block%
h  �
�

00000000  0d 00 0a 1d 20 20 f4 3e  20 50 72 6f 67 34 20 66  |....  .> Prog4 f|
00000010  6f 72 20 4a 75 73 74 34  57 69 6d 70 73 0d 00 14  |or Just4Wimps...|
00000020  11 20 20 ee 20 85 3a f6  3a f1 20 9e 3a e0 0d 00  |.  . .:.:. .:...|
00000030  1e 58 20 20 de 20 62 6c  6f 63 6b 25 31 30 30 30  |.X  . block%1000|
00000040  2c 77 73 25 31 30 30 30  2c 54 65 78 74 25 31 32  |,ws%1000,Text%12|
00000050  2c 54 65 78 74 32 25 33  30 2c 49 63 6f 6e 53 70  |,Text2%30,IconSp|
00000060  72 69 74 65 25 31 32 2c  49 63 6f 6e 53 70 72 69  |rite%12,IconSpri|
00000070  74 65 31 25 31 32 2c 49  63 6f 6e 53 70 72 69 74  |te1%12,IconSprit|
00000080  65 32 25 32 35 35 0d 00  32 4b 20 20 c8 99 20 22  |e2%255..2K  .. "|
00000090  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
000000a0  2c 32 30 30 2c 26 34 42  35 33 34 31 35 34 2c 22  |,200,&4B534154,"|
000000b0  57 69 6e 64 6f 77 73 20  61 6e 64 20 49 63 6f 6e  |Windows and Icon|
000000c0  73 22 20 b8 20 2c 54 61  73 6b 48 61 6e 64 6c 65  |s" . ,TaskHandle|
000000d0  25 0d 00 3c 13 20 20 f2  43 72 65 61 74 65 57 69  |%..<.  .CreateWi|
000000e0  6e 64 6f 77 0d 00 46 11  20 20 f2 57 69 6e 64 6f  |ndow..F.  .Windo|
000000f0  77 49 63 6f 6e 0d 00 46  12 20 20 f2 57 69 6e 64  |wIcon..F.  .Wind|
00000100  6f 77 49 63 6f 6e 32 0d  00 50 04 0d 00 46 12 20  |owIcon2..P...F. |
00000110  20 f2 49 63 6f 6e 42 61  72 49 63 6f 6e 0d 00 50  | .IconBarIcon..P|
00000120  11 20 20 21 62 6c 6f 63  6b 25 3d 77 68 25 0d 00  |.  !block%=wh%..|
00000130  5a 11 20 20 f2 4f 70 65  6e 57 69 6e 64 6f 77 0d  |Z.  .OpenWindow.|
00000140  00 64 07 20 20 f5 0d 00  6e 29 20 20 c8 99 20 22  |.d.  ...n)  .. "|
00000150  57 69 6d 70 5f 50 6f 6c  6c 22 2c 30 2c 62 6c 6f  |Wimp_Poll",0,blo|
00000160  63 6b 25 2c 30 20 b8 20  52 65 61 73 6f 6e 25 0d  |ck%,0 . Reason%.|
00000170  00 78 12 20 20 c8 8e 20  52 65 61 73 6f 6e 25 20  |.x.  .. Reason% |
00000180  ca 0d 00 82 24 20 20 c9  32 3a c8 99 22 57 69 6d  |....$  .2:.."Wim|
00000190  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
000001a0  6c 6f 63 6b 25 0d 00 8c  0d 20 20 c9 33 3a 4e 25  |lock%....  .3:N%|
000001b0  3d b9 0d 00 96 15 20 20  c9 31 37 2c 31 38 3a f2  |=.....  .17,18:.|
000001c0  4d 65 73 73 61 67 65 0d  00 a0 07 20 20 cb 0d 00  |Message....  ...|
000001d0  aa 11 20 20 c8 97 20 58  25 2c 59 25 2c 5a 25 0d  |..  .. X%,Y%,Z%.|
000001e0  00 b4 0b 20 20 f2 50 72  6f 67 0d 00 be 13 20 20  |...  .Prog....  |
000001f0  fd 20 5a 25 3d 35 20 84  20 4e 25 3d b9 0d 00 c8  |. Z%=5 . N%=....|
00000200  24 20 20 c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |$  .."Wimp_Close|
00000210  44 6f 77 6e 22 2c 54 61  73 6b 48 61 6e 64 6c 65  |Down",TaskHandle|
00000220  25 0d 00 d2 07 20 20 e0  0d 00 dc 05 20 0d 00 e6  |%....  ..... ...|
00000230  14 20 20 dd 20 f2 49 63  6f 6e 42 61 72 49 63 6f  |.  . .IconBarIco|
00000240  6e 0d 00 f0 17 20 20 24  54 65 78 74 25 3d 22 4e  |n....  $Text%="N|
00000250  65 77 41 70 70 20 35 22  0d 00 fa 21 20 20 24 49  |ewApp 5"...!  $I|
00000260  63 6f 6e 53 70 72 69 74  65 25 3d 22 73 22 2b 22  |conSprite%="s"+"|
00000270  21 4e 65 77 41 70 70 35  22 0d 01 04 10 20 20 21  |!NewApp5"....  !|
00000280  62 6c 6f 63 6b 25 3d 2d  31 0d 01 0e 10 20 20 62  |block%=-1....  b|
00000290  6c 6f 63 6b 25 21 34 3d  30 0d 01 18 12 20 20 62  |lock%!4=0....  b|
000002a0  6c 6f 63 6b 25 21 38 3d  2d 31 36 0d 01 22 13 20  |lock%!8=-16..". |
000002b0  20 62 6c 6f 63 6b 25 21  31 32 3d 31 32 38 0d 01  | block%!12=128..|
000002c0  2c 12 20 20 62 6c 6f 63  6b 25 21 31 36 3d 38 38  |,.  block%!16=88|
000002d0  0d 01 36 19 20 20 62 6c  6f 63 6b 25 21 32 30 3d  |..6.  block%!20=|
000002e0  26 31 37 30 30 33 31 30  42 0d 01 40 15 20 20 62  |&1700310B..@.  b|
000002f0  6c 6f 63 6b 25 21 32 34  3d 54 65 78 74 25 0d 01  |lock%!24=Text%..|
00000300  4a 1b 20 20 62 6c 6f 63  6b 25 21 32 38 3d 49 63  |J.  block%!28=Ic|
00000310  6f 6e 53 70 72 69 74 65  25 0d 01 54 12 20 20 62  |onSprite%..T.  b|
00000320  6c 6f 63 6b 25 21 33 32  3d 32 30 0d 01 5e 21 20  |lock%!32=20..^! |
00000330  20 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 49  | .."Wimp_CreateI|
00000340  63 6f 6e 22 2c 2c 62 6c  6f 63 6b 25 0d 01 68 07  |con",,block%..h.|
00000350  20 20 e1 0d 01 72 06 20  20 0d 01 7c 10 20 20 dd  |  ...r.  ..|.  .|
00000360  20 f2 4d 65 73 73 61 67  65 0d 01 86 14 20 20 c8  | .Message....  .|
00000370  8e 20 62 6c 6f 63 6b 25  21 31 36 20 ca 0d 01 90  |. block%!16 ....|
00000380  0e 20 20 c9 20 30 3a 4e  25 3d b9 0d 01 9a 07 20  |.  . 0:N%=..... |
00000390  20 cb 0d 01 a4 07 20 20  e1 0d 01 ae 04 0d 01 b8  | .....  ........|
000003a0  0d 20 20 dd 20 f2 50 72  6f 67 0d 01 c2 47 20 20  |.  . .Prog...G  |
000003b0  f4 20 49 46 20 24 69 6e  64 25 3c 3e 54 49 4d 45  |. IF $ind%<>TIME|
000003c0  24 20 54 48 45 4e 20 24  69 6e 64 25 3d 54 49 4d  |$ THEN $ind%=TIM|
000003d0  45 24 3a 52 45 4d 20 50  52 4f 43 53 65 74 49 63  |E$:REM PROCSetIc|
000003e0  6f 6e 5f 53 74 61 74 65  28 77 68 25 2c 30 2c 30  |on_State(wh%,0,0|
000003f0  29 0d 01 cc 07 20 20 e1  0d 01 d6 06 20 20 0d 01  |)....  .....  ..|
00000400  e0 13 20 20 dd 20 f2 4f  70 65 6e 57 69 6e 64 6f  |..  . .OpenWindo|
00000410  77 0d 01 ea 26 20 20 c8  99 20 22 57 69 6d 70 5f  |w...&  .. "Wimp_|
00000420  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00000430  2c 62 6c 6f 63 6b 25 0d  01 f4 22 20 20 c8 99 20  |,block%..."  .. |
00000440  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00000450  22 2c 2c 62 6c 6f 63 6b  25 0d 01 fe 07 20 20 e1  |",,block%....  .|
00000460  0d 02 08 04 0d 02 12 32  20 20 dd 20 f2 53 65 74  |.......2  . .Set|
00000470  49 63 6f 6e 5f 53 74 61  74 65 28 57 69 6e 64 6f  |Icon_State(Windo|
00000480  77 48 61 6e 64 6c 65 25  2c 49 63 6f 6e 25 2c 53  |wHandle%,Icon%,S|
00000490  74 61 74 65 25 29 0d 02  1c 1b 20 20 21 62 6c 6f  |tate%)....  !blo|
000004a0  63 6b 25 3d 57 69 6e 64  6f 77 48 61 6e 64 6c 65  |ck%=WindowHandle|
000004b0  25 0d 02 26 15 20 20 62  6c 6f 63 6b 25 21 34 3d  |%..&.  block%!4=|
000004c0  49 63 6f 6e 25 3a 0d 02  30 39 20 20 e7 20 53 74  |Icon%:..09  . St|
000004d0  61 74 65 25 3d 31 20 43  6c 65 61 72 25 3d 26 32  |ate%=1 Clear%=&2|
000004e0  30 30 30 30 30 3a 45 6f  72 25 3d 26 32 30 30 30  |00000:Eor%=&2000|
000004f0  30 30 3a f4 20 42 49 54  20 32 31 20 53 45 54 0d  |00:. BIT 21 SET.|
00000500  02 3a 2c 20 20 e7 20 53  74 61 74 65 25 3d 30 20  |.:,  . State%=0 |
00000510  43 6c 65 61 72 25 3d 26  32 30 30 30 30 30 3a 45  |Clear%=&200000:E|
00000520  6f 72 25 3d 26 30 30 30  30 30 30 0d 02 44 13 20  |or%=&000000..D. |
00000530  20 62 6c 6f 63 6b 25 21  38 3d 45 6f 72 25 0d 02  | block%!8=Eor%..|
00000540  4e 16 20 20 62 6c 6f 63  6b 25 21 31 32 3d 43 6c  |N.  block%!12=Cl|
00000550  65 61 72 25 0d 02 58 23  20 20 c8 99 22 57 69 6d  |ear%..X#  .."Wim|
00000560  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00000570  2c 62 6c 6f 63 6b 25 0d  02 62 07 20 20 e1 0d 02  |,block%..b.  ...|
00000580  6c 04 0d 02 76 14 20 dd  20 f2 43 72 65 61 74 65  |l...v. . .Create|
00000590  57 69 6e 64 6f 77 0d 02  80 25 20 62 6c 6f 63 6b  |Window...% block|
000005a0  25 21 30 3d 32 30 30 3a  f4 20 56 69 73 69 62 6c  |%!0=200:. Visibl|
000005b0  65 20 61 72 65 61 20 78  6d 69 6e 0d 02 8a 25 20  |e area xmin...% |
000005c0  62 6c 6f 63 6b 25 21 34  3d 34 30 30 3a f4 20 56  |block%!4=400:. V|
000005d0  69 73 69 62 6c 65 20 61  72 65 61 20 79 6d 69 6e  |isible area ymin|
000005e0  0d 02 94 25 20 62 6c 6f  63 6b 25 21 38 3d 38 30  |...% block%!8=80|
000005f0  30 3a f4 20 56 69 73 69  62 6c 65 20 61 72 65 61  |0:. Visible area|
00000600  20 78 6d 61 78 0d 02 9e  26 20 62 6c 6f 63 6b 25  | xmax...& block%|
00000610  21 31 32 3d 39 30 30 3a  f4 20 56 69 73 69 62 6c  |!12=900:. Visibl|
00000620  65 20 61 72 65 61 20 79  6d 61 78 0d 02 a8 39 20  |e area ymax...9 |
00000630  62 6c 6f 63 6b 25 21 31  36 3d 31 30 30 3a f4 20  |block%!16=100:. |
00000640  53 63 72 6f 6c 6c 20 78  20 6f 66 66 73 65 74 20  |Scroll x offset |
00000650  77 72 74 20 77 6f 72 6b  20 61 72 65 61 20 6f 72  |wrt work area or|
00000660  69 67 69 6e 0d 02 b2 3a  20 62 6c 6f 63 6b 25 21  |igin...: block%!|
00000670  32 30 3d 2d 31 30 30 3a  f4 20 53 63 72 6f 6c 6c  |20=-100:. Scroll|
00000680  20 79 20 6f 66 66 73 65  74 20 77 72 74 20 77 6f  | y offset wrt wo|
00000690  72 6b 20 61 72 65 61 20  6f 72 69 67 69 6e 0d 02  |rk area origin..|
000006a0  bc 44 20 62 6c 6f 63 6b  25 21 32 34 3d 2d 31 3a  |.D block%!24=-1:|
000006b0  f4 20 73 65 74 20 69 66  20 77 69 6e 64 6f 77 20  |. set if window |
000006c0  69 73 20 6f 6e 20 74 6f  70 20 6f 72 20 62 65 68  |is on top or beh|
000006d0  69 6e 64 20 61 6c 6c 20  74 68 65 20 6f 74 68 65  |ind all the othe|
000006e0  72 73 0d 02 c6 38 20 62  6c 6f 63 6b 25 21 32 38  |rs...8 block%!28|
000006f0  3d 26 46 46 30 33 30 30  31 32 3a f4 20 76 65 72  |=&FF030012:. ver|
00000700  79 20 63 6f 6d 70 6c 69  63 61 74 65 64 20 77 69  |y complicated wi|
00000710  6e 64 6f 77 20 66 6c 61  67 73 0d 02 d0 31 20 62  |ndow flags...1 b|
00000720  6c 6f 63 6b 25 3f 33 32  3d 37 3a f4 20 43 6f 6c  |lock%?32=7:. Col|
00000730  6f 75 72 20 6f 66 20 74  69 74 6c 65 20 62 61 72  |our of title bar|
00000740  20 66 6f 72 65 67 72 6f  75 6e 64 0d 02 da 31 20  | foreground...1 |
00000750  62 6c 6f 63 6b 25 3f 33  33 3d 32 3a f4 20 43 6f  |block%?33=2:. Co|
00000760  6c 6f 75 72 20 6f 66 20  74 69 74 6c 65 20 62 61  |lour of title ba|
00000770  72 20 62 61 63 6b 67 72  6f 75 6e 64 0d 02 e4 31  |r background...1|
00000780  20 62 6c 6f 63 6b 25 3f  33 34 3d 37 3a f4 20 43  | block%?34=7:. C|
00000790  6f 6c 6f 75 72 20 6f 66  20 77 6f 72 6b 20 61 72  |olour of work ar|
000007a0  65 61 20 66 6f 72 65 67  72 6f 75 6e 64 0d 02 ee  |ea foreground...|
000007b0  32 20 62 6c 6f 63 6b 25  3f 33 35 3d 31 33 3a f4  |2 block%?35=13:.|
000007c0  20 43 6f 6c 6f 75 72 20  6f 66 20 77 6f 72 6b 20  | Colour of work |
000007d0  61 72 65 61 20 62 61 63  6b 67 72 6f 75 6e 64 0d  |area background.|
000007e0  02 f8 2c 20 62 6c 6f 63  6b 25 3f 33 36 3d 33 3a  |.., block%?36=3:|
000007f0  f4 20 43 6f 6c 6f 75 72  20 6f 66 20 73 63 72 6f  |. Colour of scro|
00000800  6c 6c 20 62 61 72 20 77  65 6c 6c 0d 03 02 2e 20  |ll bar well.... |
00000810  62 6c 6f 63 6b 25 3f 33  37 3d 31 3a f4 20 43 6f  |block%?37=1:. Co|
00000820  6c 6f 75 72 20 6f 66 20  73 63 72 6f 6c 6c 20 62  |lour of scroll b|
00000830  61 72 20 73 6c 69 64 65  72 0d 03 0c 43 20 62 6c  |ar slider...C bl|
00000840  6f 63 6b 25 3f 33 38 3d  31 32 3a f4 20 43 6f 6c  |ock%?38=12:. Col|
00000850  6f 75 72 20 6f 66 20 74  69 74 6c 65 20 62 61 72  |our of title bar|
00000860  20 62 61 63 6b 67 72 6f  75 6e 64 20 77 68 65 6e  | background when|
00000870  20 68 69 67 68 6c 69 67  68 74 65 64 0d 03 16 3a  | highlighted...:|
00000880  20 62 6c 6f 63 6b 25 3f  33 39 3d 30 3a f4 20 4d  | block%?39=0:. M|
00000890  75 73 74 20 61 6c 77 61  79 73 20 62 65 20 73 65  |ust always be se|
000008a0  74 20 74 6f 20 30 20 28  6a 75 73 74 20 70 61 64  |t to 0 (just pad|
000008b0  64 69 6e 67 3f 29 0d 03  20 22 20 62 6c 6f 63 6b  |ding?).. " block|
000008c0  25 21 34 30 3d 30 3a f4  20 57 6f 72 6b 20 61 72  |%!40=0:. Work ar|
000008d0  65 61 20 6d 69 6e 20 78  0d 03 2a 25 20 62 6c 6f  |ea min x..*% blo|
000008e0  63 6b 25 21 34 34 3d 2d  37 30 30 3a f4 20 57 6f  |ck%!44=-700:. Wo|
000008f0  72 6b 20 61 72 65 61 20  6d 69 6e 20 79 0d 03 34  |rk area min y..4|
00000900  25 20 62 6c 6f 63 6b 25  21 34 38 3d 31 30 30 30  |% block%!48=1000|
00000910  3a f4 20 57 6f 72 6b 20  61 72 65 61 20 6d 61 78  |:. Work area max|
00000920  20 78 0d 03 3e 22 20 62  6c 6f 63 6b 25 21 35 32  | x..>" block%!52|
00000930  3d 30 3a f4 20 57 6f 72  6b 20 61 72 65 61 20 6d  |=0:. Work area m|
00000940  61 78 20 79 0d 03 48 2b  20 62 6c 6f 63 6b 25 21  |ax y..H+ block%!|
00000950  35 36 3d 26 33 44 3a f4  20 54 69 74 6c 65 20 62  |56=&3D:. Title b|
00000960  61 72 27 73 20 69 63 6f  6e 20 66 6c 61 67 73 0d  |ar's icon flags.|
00000970  03 52 3f 20 62 6c 6f 63  6b 25 21 36 30 3d 26 33  |.R? block%!60=&3|
00000980  30 30 30 3a f4 20 57 6f  72 6b 20 61 72 65 61 27  |000:. Work area'|
00000990  73 20 65 76 65 6e 20 6d  6f 72 65 20 63 6f 6d 70  |s even more comp|
000009a0  6c 65 78 20 69 63 6f 6e  20 66 6c 61 67 73 0d 03  |lex icon flags..|
000009b0  5c 3f 20 62 6c 6f 63 6b  25 21 36 34 3d 31 3a f4  |\? block%!64=1:.|
000009c0  20 63 6f 6e 74 6f 6c 20  62 6c 6f 63 6b 20 70 6f  | contol block po|
000009d0  69 6e 74 65 72 20 66 6f  72 20 53 70 72 69 74 65  |inter for Sprite|
000009e0  73 2c 20 31 20 66 6f 72  20 57 69 6d 70 0d 03 66  |s, 1 for Wimp..f|
000009f0  29 20 62 6c 6f 63 6b 25  21 36 38 3d 34 3a f4 20  |) block%!68=4:. |
00000a00  6d 69 6e 69 6d 75 6d 20  73 69 7a 65 20 6f 66 20  |minimum size of |
00000a10  77 69 6e 64 6f 77 0d 03  70 2e 20 24 28 62 6c 6f  |window..p. $(blo|
00000a20  63 6b 25 2b 37 32 29 3d  22 54 68 65 20 68 61 72  |ck%+72)="The har|
00000a30  64 20 77 61 79 22 3a f4  20 77 69 6e 64 6f 77 20  |d way":. window |
00000a40  6e 61 6d 65 0d 03 7a 31  20 62 6c 6f 63 6b 25 21  |name..z1 block%!|
00000a50  38 34 3d 31 3a f4 20 6e  75 6d 62 65 72 20 6f 66  |84=1:. number of|
00000a60  20 69 63 6f 6e 73 20 69  6e 20 74 68 69 73 20 77  | icons in this w|
00000a70  69 6e 64 6f 77 0d 03 84  29 20 c8 99 20 22 57 69  |indow...) .. "Wi|
00000a80  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000a90  2c 2c 62 6c 6f 63 6b 25  20 b8 20 77 68 25 0d 03  |,,block% . wh%..|
00000aa0  8e 06 20 e1 0d 03 98 04  0d 03 a2 13 20 20 dd 20  |.. .........  . |
00000ab0  f2 57 69 6e 64 6f 77 49  63 6f 6e 0d 00 f0 18 20  |.WindowIcon.... |
00000ac0  20 24 54 65 78 74 25 3d  22 41 72 63 20 57 6f 72  | $Text%="Arc Wor|
00000ad0  6c 64 22 0d 00 fa 22 20  20 24 49 63 6f 6e 53 70  |ld"..."  $IconSp|
00000ae0  72 69 74 65 31 25 3d 22  73 22 2b 22 41 72 63 57  |rite1%="s"+"ArcW|
00000af0  6f 72 6c 64 22 0d 01 04  11 20 20 21 62 6c 6f 63  |orld"....  !bloc|
00000b00  6b 25 3d 77 68 25 0d 01  0e 24 20 20 62 6c 6f 63  |k%=wh%...$  bloc|
00000b10  6b 25 21 34 3d 32 30 30  20 20 3a f4 20 72 65 6c  |k%!4=200  :. rel|
00000b20  61 74 69 76 65 20 78 6d  69 6e 0d 01 18 24 20 20  |ative xmin...$  |
00000b30  62 6c 6f 63 6b 25 21 38  3d 2d 34 30 30 20 3a f4  |block%!8=-400 :.|
00000b40  20 72 65 6c 61 74 69 76  65 20 79 6d 69 6e 0d 01  | relative ymin..|
00000b50  22 24 20 20 62 6c 6f 63  6b 25 21 31 32 3d 33 38  |"$  block%!12=38|
00000b60  30 20 3a f4 20 72 65 6c  61 74 69 76 65 20 78 6d  |0 :. relative xm|
00000b70  61 78 0d 01 2c 24 20 20  62 6c 6f 63 6b 25 21 31  |ax..,$  block%!1|
00000b80  36 3d 2d 32 39 30 3a f4  20 72 65 6c 61 74 69 76  |6=-290:. relativ|
00000b90  65 20 79 6d 61 78 0d 01  36 19 20 20 62 6c 6f 63  |e ymax..6.  bloc|
00000ba0  6b 25 21 32 30 3d 26 31  37 30 30 33 31 30 42 0d  |k%!20=&1700310B.|
00000bb0  01 40 15 20 20 62 6c 6f  63 6b 25 21 32 34 3d 54  |.@.  block%!24=T|
00000bc0  65 78 74 25 0d 01 4a 1c  20 20 62 6c 6f 63 6b 25  |ext%..J.  block%|
00000bd0  21 32 38 3d 49 63 6f 6e  53 70 72 69 74 65 31 25  |!28=IconSprite1%|
00000be0  0d 01 54 12 20 20 62 6c  6f 63 6b 25 21 33 32 3d  |..T.  block%!32=|
00000bf0  32 30 0d 01 5e 21 20 20  c8 99 22 57 69 6d 70 5f  |20..^!  .."Wimp_|
00000c00  43 72 65 61 74 65 49 63  6f 6e 22 2c 2c 62 6c 6f  |CreateIcon",,blo|
00000c10  63 6b 25 0d 01 68 07 20  20 e1 0d 03 a2 14 20 20  |ck%..h.  .....  |
00000c20  dd 20 f2 57 69 6e 64 6f  77 49 63 6f 6e 32 0d 00  |. .WindowIcon2..|
00000c30  f0 22 20 20 24 54 65 78  74 32 25 3d 22 47 72 61  |."  $Text2%="Gra|
00000c40  74 75 69 74 6f 75 73 20  6b 69 64 20 70 69 63 22  |tuitous kid pic"|
00000c50  0d 00 fa 1f 20 20 24 49  63 6f 6e 53 70 72 69 74  |....  $IconSprit|
00000c60  65 32 25 3d 22 73 22 2b  22 6b 61 74 69 65 22 0d  |e2%="s"+"katie".|
00000c70  01 04 11 20 20 21 62 6c  6f 63 6b 25 3d 77 68 25  |...  !block%=wh%|
00000c80  0d 01 0e 24 20 20 62 6c  6f 63 6b 25 21 34 3d 34  |...$  block%!4=4|
00000c90  35 30 20 20 3a f4 20 72  65 6c 61 74 69 76 65 20  |50  :. relative |
00000ca0  78 6d 69 6e 0d 01 18 24  20 20 62 6c 6f 63 6b 25  |xmin...$  block%|
00000cb0  21 38 3d 2d 35 30 30 20  3a f4 20 72 65 6c 61 74  |!8=-500 :. relat|
00000cc0  69 76 65 20 79 6d 69 6e  0d 01 22 24 20 20 62 6c  |ive ymin.."$  bl|
00000cd0  6f 63 6b 25 21 31 32 3d  37 30 30 20 3a f4 20 72  |ock%!12=700 :. r|
00000ce0  65 6c 61 74 69 76 65 20  78 6d 61 78 0d 01 2c 24  |elative xmax..,$|
00000cf0  20 20 62 6c 6f 63 6b 25  21 31 36 3d 2d 31 31 30  |  block%!16=-110|
00000d00  3a f4 20 72 65 6c 61 74  69 76 65 20 79 6d 61 78  |:. relative ymax|
00000d10  0d 01 36 19 20 20 62 6c  6f 63 6b 25 21 32 30 3d  |..6.  block%!20=|
00000d20  26 31 37 30 30 33 31 30  42 0d 01 40 16 20 20 62  |&1700310B..@.  b|
00000d30  6c 6f 63 6b 25 21 32 34  3d 54 65 78 74 32 25 0d  |lock%!24=Text2%.|
00000d40  01 4a 1c 20 20 62 6c 6f  63 6b 25 21 32 38 3d 49  |.J.  block%!28=I|
00000d50  63 6f 6e 53 70 72 69 74  65 32 25 0d 01 54 12 20  |conSprite2%..T. |
00000d60  20 62 6c 6f 63 6b 25 21  33 32 3d 32 30 0d 01 5e  | block%!32=20..^|
00000d70  21 20 20 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |!  .."Wimp_Creat|
00000d80  65 49 63 6f 6e 22 2c 2c  62 6c 6f 63 6b 25 0d 01  |eIcon",,block%..|
00000d90  68 07 20 20 e1 0d ff                              |h.  ...|
00000d97

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