!NewApp4/!Runimage

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

!NewApp4/!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:	!NewApp4/!Runimage
Read OK:	✔
File size:	0A43 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,IconSprite%12
   50  SYS "Wimp_Initialise",200,&4B534154,"An empty window" TO ,TaskHandle%
   60  PROCCreateWindow
   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 4"
  250  $IconSprite%="s"+"!NewApp4"
  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=1: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 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)="Just 4 Wimps":REM window name
  890 block%!84=0:REM number of icons in this window
  900 SYS "Wimp_CreateWindow",,block% TO wh%
  910 ENDPROC


  �> Prog4 for Just4Wimps
  � �:�:� �:�
0  � block%1000,ws%1000,Text%12,IconSprite%12
2I  ș "Wimp_Initialise",200,&4B534154,"An empty window" � ,TaskHandle%
<  �CreateWindow
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 4"
�!  $IconSprite%="s"+"!NewApp4"
  !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
�1 block%?35=1:� 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 icon flags
\? block%!64=1:� contol block pointer for Sprites, 1 for Wimp
f) block%!68=4:� minimum size of window
p. $(block%+72)="Just 4 Wimps":� window name
z1 block%!84=0:� number of icons in this window
�) ș "Wimp_CreateWindow",,block% � wh%
� � 
�

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 30 20 20 de 20 62 6c  6f 63 6b 25 31 30 30 30  |.0  . 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 49 63 6f 6e 53 70 72  69 74 65 25 31 32 0d 00  |,IconSprite%12..|
00000060  32 49 20 20 c8 99 20 22  57 69 6d 70 5f 49 6e 69  |2I  .. "Wimp_Ini|
00000070  74 69 61 6c 69 73 65 22  2c 32 30 30 2c 26 34 42  |tialise",200,&4B|
00000080  35 33 34 31 35 34 2c 22  41 6e 20 65 6d 70 74 79  |534154,"An empty|
00000090  20 77 69 6e 64 6f 77 22  20 b8 20 2c 54 61 73 6b  | window" . ,Task|
000000a0  48 61 6e 64 6c 65 25 0d  00 3c 13 20 20 f2 43 72  |Handle%..<.  .Cr|
000000b0  65 61 74 65 57 69 6e 64  6f 77 0d 00 46 12 20 20  |eateWindow..F.  |
000000c0  f2 49 63 6f 6e 42 61 72  49 63 6f 6e 0d 00 50 11  |.IconBarIcon..P.|
000000d0  20 20 21 62 6c 6f 63 6b  25 3d 77 68 25 0d 00 5a  |  !block%=wh%..Z|
000000e0  11 20 20 f2 4f 70 65 6e  57 69 6e 64 6f 77 0d 00  |.  .OpenWindow..|
000000f0  64 07 20 20 f5 0d 00 6e  29 20 20 c8 99 20 22 57  |d.  ...n)  .. "W|
00000100  69 6d 70 5f 50 6f 6c 6c  22 2c 30 2c 62 6c 6f 63  |imp_Poll",0,bloc|
00000110  6b 25 2c 30 20 b8 20 52  65 61 73 6f 6e 25 0d 00  |k%,0 . Reason%..|
00000120  78 12 20 20 c8 8e 20 52  65 61 73 6f 6e 25 20 ca  |x.  .. Reason% .|
00000130  0d 00 82 24 20 20 c9 32  3a c8 99 22 57 69 6d 70  |...$  .2:.."Wimp|
00000140  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 62 6c  |_OpenWindow",,bl|
00000150  6f 63 6b 25 0d 00 8c 0d  20 20 c9 33 3a 4e 25 3d  |ock%....  .3:N%=|
00000160  b9 0d 00 96 15 20 20 c9  31 37 2c 31 38 3a f2 4d  |.....  .17,18:.M|
00000170  65 73 73 61 67 65 0d 00  a0 07 20 20 cb 0d 00 aa  |essage....  ....|
00000180  11 20 20 c8 97 20 58 25  2c 59 25 2c 5a 25 0d 00  |.  .. X%,Y%,Z%..|
00000190  b4 0b 20 20 f2 50 72 6f  67 0d 00 be 13 20 20 fd  |..  .Prog....  .|
000001a0  20 5a 25 3d 35 20 84 20  4e 25 3d b9 0d 00 c8 24  | Z%=5 . N%=....$|
000001b0  20 20 c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |  .."Wimp_CloseD|
000001c0  6f 77 6e 22 2c 54 61 73  6b 48 61 6e 64 6c 65 25  |own",TaskHandle%|
000001d0  0d 00 d2 07 20 20 e0 0d  00 dc 05 20 0d 00 e6 14  |....  ..... ....|
000001e0  20 20 dd 20 f2 49 63 6f  6e 42 61 72 49 63 6f 6e  |  . .IconBarIcon|
000001f0  0d 00 f0 17 20 20 24 54  65 78 74 25 3d 22 4e 65  |....  $Text%="Ne|
00000200  77 41 70 70 20 34 22 0d  00 fa 21 20 20 24 49 63  |wApp 4"...!  $Ic|
00000210  6f 6e 53 70 72 69 74 65  25 3d 22 73 22 2b 22 21  |onSprite%="s"+"!|
00000220  4e 65 77 41 70 70 34 22  0d 01 04 10 20 20 21 62  |NewApp4"....  !b|
00000230  6c 6f 63 6b 25 3d 2d 31  0d 01 0e 10 20 20 62 6c  |lock%=-1....  bl|
00000240  6f 63 6b 25 21 34 3d 30  0d 01 18 12 20 20 62 6c  |ock%!4=0....  bl|
00000250  6f 63 6b 25 21 38 3d 2d  31 36 0d 01 22 13 20 20  |ock%!8=-16..".  |
00000260  62 6c 6f 63 6b 25 21 31  32 3d 31 32 38 0d 01 2c  |block%!12=128..,|
00000270  12 20 20 62 6c 6f 63 6b  25 21 31 36 3d 38 38 0d  |.  block%!16=88.|
00000280  01 36 19 20 20 62 6c 6f  63 6b 25 21 32 30 3d 26  |.6.  block%!20=&|
00000290  31 37 30 30 33 31 30 42  0d 01 40 15 20 20 62 6c  |1700310B..@.  bl|
000002a0  6f 63 6b 25 21 32 34 3d  54 65 78 74 25 0d 01 4a  |ock%!24=Text%..J|
000002b0  1b 20 20 62 6c 6f 63 6b  25 21 32 38 3d 49 63 6f  |.  block%!28=Ico|
000002c0  6e 53 70 72 69 74 65 25  0d 01 54 12 20 20 62 6c  |nSprite%..T.  bl|
000002d0  6f 63 6b 25 21 33 32 3d  32 30 0d 01 5e 21 20 20  |ock%!32=20..^!  |
000002e0  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |.."Wimp_CreateIc|
000002f0  6f 6e 22 2c 2c 62 6c 6f  63 6b 25 0d 01 68 07 20  |on",,block%..h. |
00000300  20 e1 0d 01 72 06 20 20  0d 01 7c 10 20 20 dd 20  | ...r.  ..|.  . |
00000310  f2 4d 65 73 73 61 67 65  0d 01 86 14 20 20 c8 8e  |.Message....  ..|
00000320  20 62 6c 6f 63 6b 25 21  31 36 20 ca 0d 01 90 0e  | block%!16 .....|
00000330  20 20 c9 20 30 3a 4e 25  3d b9 0d 01 9a 07 20 20  |  . 0:N%=.....  |
00000340  cb 0d 01 a4 07 20 20 e1  0d 01 ae 04 0d 01 b8 0d  |.....  .........|
00000350  20 20 dd 20 f2 50 72 6f  67 0d 01 c2 47 20 20 f4  |  . .Prog...G  .|
00000360  20 49 46 20 24 69 6e 64  25 3c 3e 54 49 4d 45 24  | IF $ind%<>TIME$|
00000370  20 54 48 45 4e 20 24 69  6e 64 25 3d 54 49 4d 45  | THEN $ind%=TIME|
00000380  24 3a 52 45 4d 20 50 52  4f 43 53 65 74 49 63 6f  |$:REM PROCSetIco|
00000390  6e 5f 53 74 61 74 65 28  77 68 25 2c 30 2c 30 29  |n_State(wh%,0,0)|
000003a0  0d 01 cc 07 20 20 e1 0d  01 d6 06 20 20 0d 01 e0  |....  .....  ...|
000003b0  13 20 20 dd 20 f2 4f 70  65 6e 57 69 6e 64 6f 77  |.  . .OpenWindow|
000003c0  0d 01 ea 26 20 20 c8 99  20 22 57 69 6d 70 5f 47  |...&  .. "Wimp_G|
000003d0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
000003e0  62 6c 6f 63 6b 25 0d 01  f4 22 20 20 c8 99 20 22  |block%..."  .. "|
000003f0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000400  2c 2c 62 6c 6f 63 6b 25  0d 01 fe 07 20 20 e1 0d  |,,block%....  ..|
00000410  02 08 04 0d 02 12 32 20  20 dd 20 f2 53 65 74 49  |......2  . .SetI|
00000420  63 6f 6e 5f 53 74 61 74  65 28 57 69 6e 64 6f 77  |con_State(Window|
00000430  48 61 6e 64 6c 65 25 2c  49 63 6f 6e 25 2c 53 74  |Handle%,Icon%,St|
00000440  61 74 65 25 29 0d 02 1c  1b 20 20 21 62 6c 6f 63  |ate%)....  !bloc|
00000450  6b 25 3d 57 69 6e 64 6f  77 48 61 6e 64 6c 65 25  |k%=WindowHandle%|
00000460  0d 02 26 15 20 20 62 6c  6f 63 6b 25 21 34 3d 49  |..&.  block%!4=I|
00000470  63 6f 6e 25 3a 0d 02 30  39 20 20 e7 20 53 74 61  |con%:..09  . Sta|
00000480  74 65 25 3d 31 20 43 6c  65 61 72 25 3d 26 32 30  |te%=1 Clear%=&20|
00000490  30 30 30 30 3a 45 6f 72  25 3d 26 32 30 30 30 30  |0000:Eor%=&20000|
000004a0  30 3a f4 20 42 49 54 20  32 31 20 53 45 54 0d 02  |0:. BIT 21 SET..|
000004b0  3a 2c 20 20 e7 20 53 74  61 74 65 25 3d 30 20 43  |:,  . State%=0 C|
000004c0  6c 65 61 72 25 3d 26 32  30 30 30 30 30 3a 45 6f  |lear%=&200000:Eo|
000004d0  72 25 3d 26 30 30 30 30  30 30 0d 02 44 13 20 20  |r%=&000000..D.  |
000004e0  62 6c 6f 63 6b 25 21 38  3d 45 6f 72 25 0d 02 4e  |block%!8=Eor%..N|
000004f0  16 20 20 62 6c 6f 63 6b  25 21 31 32 3d 43 6c 65  |.  block%!12=Cle|
00000500  61 72 25 0d 02 58 23 20  20 c8 99 22 57 69 6d 70  |ar%..X#  .."Wimp|
00000510  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00000520  62 6c 6f 63 6b 25 0d 02  62 07 20 20 e1 0d 02 6c  |block%..b.  ...l|
00000530  04 0d 02 76 14 20 dd 20  f2 43 72 65 61 74 65 57  |...v. . .CreateW|
00000540  69 6e 64 6f 77 0d 02 80  25 20 62 6c 6f 63 6b 25  |indow...% block%|
00000550  21 30 3d 32 30 30 3a f4  20 56 69 73 69 62 6c 65  |!0=200:. Visible|
00000560  20 61 72 65 61 20 78 6d  69 6e 0d 02 8a 25 20 62  | area xmin...% b|
00000570  6c 6f 63 6b 25 21 34 3d  34 30 30 3a f4 20 56 69  |lock%!4=400:. Vi|
00000580  73 69 62 6c 65 20 61 72  65 61 20 79 6d 69 6e 0d  |sible area ymin.|
00000590  02 94 25 20 62 6c 6f 63  6b 25 21 38 3d 38 30 30  |..% block%!8=800|
000005a0  3a f4 20 56 69 73 69 62  6c 65 20 61 72 65 61 20  |:. Visible area |
000005b0  78 6d 61 78 0d 02 9e 26  20 62 6c 6f 63 6b 25 21  |xmax...& block%!|
000005c0  31 32 3d 39 30 30 3a f4  20 56 69 73 69 62 6c 65  |12=900:. Visible|
000005d0  20 61 72 65 61 20 79 6d  61 78 0d 02 a8 39 20 62  | area ymax...9 b|
000005e0  6c 6f 63 6b 25 21 31 36  3d 31 30 30 3a f4 20 53  |lock%!16=100:. S|
000005f0  63 72 6f 6c 6c 20 78 20  6f 66 66 73 65 74 20 77  |croll x offset w|
00000600  72 74 20 77 6f 72 6b 20  61 72 65 61 20 6f 72 69  |rt work area ori|
00000610  67 69 6e 0d 02 b2 3a 20  62 6c 6f 63 6b 25 21 32  |gin...: block%!2|
00000620  30 3d 2d 31 30 30 3a f4  20 53 63 72 6f 6c 6c 20  |0=-100:. Scroll |
00000630  79 20 6f 66 66 73 65 74  20 77 72 74 20 77 6f 72  |y offset wrt wor|
00000640  6b 20 61 72 65 61 20 6f  72 69 67 69 6e 0d 02 bc  |k area origin...|
00000650  44 20 62 6c 6f 63 6b 25  21 32 34 3d 2d 31 3a f4  |D block%!24=-1:.|
00000660  20 73 65 74 20 69 66 20  77 69 6e 64 6f 77 20 69  | set if window i|
00000670  73 20 6f 6e 20 74 6f 70  20 6f 72 20 62 65 68 69  |s on top or behi|
00000680  6e 64 20 61 6c 6c 20 74  68 65 20 6f 74 68 65 72  |nd all the other|
00000690  73 0d 02 c6 38 20 62 6c  6f 63 6b 25 21 32 38 3d  |s...8 block%!28=|
000006a0  26 46 46 30 33 30 30 31  32 3a f4 20 76 65 72 79  |&FF030012:. very|
000006b0  20 63 6f 6d 70 6c 69 63  61 74 65 64 20 77 69 6e  | complicated win|
000006c0  64 6f 77 20 66 6c 61 67  73 0d 02 d0 31 20 62 6c  |dow flags...1 bl|
000006d0  6f 63 6b 25 3f 33 32 3d  37 3a f4 20 43 6f 6c 6f  |ock%?32=7:. Colo|
000006e0  75 72 20 6f 66 20 74 69  74 6c 65 20 62 61 72 20  |ur of title bar |
000006f0  66 6f 72 65 67 72 6f 75  6e 64 0d 02 da 31 20 62  |foreground...1 b|
00000700  6c 6f 63 6b 25 3f 33 33  3d 32 3a f4 20 43 6f 6c  |lock%?33=2:. Col|
00000710  6f 75 72 20 6f 66 20 74  69 74 6c 65 20 62 61 72  |our of title bar|
00000720  20 62 61 63 6b 67 72 6f  75 6e 64 0d 02 e4 31 20  | background...1 |
00000730  62 6c 6f 63 6b 25 3f 33  34 3d 37 3a f4 20 43 6f  |block%?34=7:. Co|
00000740  6c 6f 75 72 20 6f 66 20  77 6f 72 6b 20 61 72 65  |lour of work are|
00000750  61 20 66 6f 72 65 67 72  6f 75 6e 64 0d 02 ee 31  |a foreground...1|
00000760  20 62 6c 6f 63 6b 25 3f  33 35 3d 31 3a f4 20 43  | block%?35=1:. C|
00000770  6f 6c 6f 75 72 20 6f 66  20 77 6f 72 6b 20 61 72  |olour of work ar|
00000780  65 61 20 62 61 63 6b 67  72 6f 75 6e 64 0d 02 f8  |ea background...|
00000790  2c 20 62 6c 6f 63 6b 25  3f 33 36 3d 33 3a f4 20  |, block%?36=3:. |
000007a0  43 6f 6c 6f 75 72 20 6f  66 20 73 63 72 6f 6c 6c  |Colour of scroll|
000007b0  20 62 61 72 20 77 65 6c  6c 0d 03 02 2e 20 62 6c  | bar well.... bl|
000007c0  6f 63 6b 25 3f 33 37 3d  31 3a f4 20 43 6f 6c 6f  |ock%?37=1:. Colo|
000007d0  75 72 20 6f 66 20 73 63  72 6f 6c 6c 20 62 61 72  |ur of scroll bar|
000007e0  20 73 6c 69 64 65 72 0d  03 0c 43 20 62 6c 6f 63  | slider...C bloc|
000007f0  6b 25 3f 33 38 3d 31 32  3a f4 20 43 6f 6c 6f 75  |k%?38=12:. Colou|
00000800  72 20 6f 66 20 74 69 74  6c 65 20 62 61 72 20 62  |r of title bar b|
00000810  61 63 6b 67 72 6f 75 6e  64 20 77 68 65 6e 20 68  |ackground when h|
00000820  69 67 68 6c 69 67 68 74  65 64 0d 03 16 3a 20 62  |ighlighted...: b|
00000830  6c 6f 63 6b 25 3f 33 39  3d 30 3a f4 20 4d 75 73  |lock%?39=0:. Mus|
00000840  74 20 61 6c 77 61 79 73  20 62 65 20 73 65 74 20  |t always be set |
00000850  74 6f 20 30 20 28 6a 75  73 74 20 70 61 64 64 69  |to 0 (just paddi|
00000860  6e 67 3f 29 0d 03 20 22  20 62 6c 6f 63 6b 25 21  |ng?).. " block%!|
00000870  34 30 3d 30 3a f4 20 57  6f 72 6b 20 61 72 65 61  |40=0:. Work area|
00000880  20 6d 69 6e 20 78 0d 03  2a 25 20 62 6c 6f 63 6b  | min x..*% block|
00000890  25 21 34 34 3d 2d 37 30  30 3a f4 20 57 6f 72 6b  |%!44=-700:. Work|
000008a0  20 61 72 65 61 20 6d 69  6e 20 79 0d 03 34 25 20  | area min y..4% |
000008b0  62 6c 6f 63 6b 25 21 34  38 3d 31 30 30 30 3a f4  |block%!48=1000:.|
000008c0  20 57 6f 72 6b 20 61 72  65 61 20 6d 61 78 20 78  | Work area max x|
000008d0  0d 03 3e 22 20 62 6c 6f  63 6b 25 21 35 32 3d 30  |..>" block%!52=0|
000008e0  3a f4 20 57 6f 72 6b 20  61 72 65 61 20 6d 61 78  |:. Work area max|
000008f0  20 79 0d 03 48 2b 20 62  6c 6f 63 6b 25 21 35 36  | y..H+ block%!56|
00000900  3d 26 33 44 3a f4 20 54  69 74 6c 65 20 62 61 72  |=&3D:. Title bar|
00000910  27 73 20 69 63 6f 6e 20  66 6c 61 67 73 0d 03 52  |'s icon flags..R|
00000920  2d 20 62 6c 6f 63 6b 25  21 36 30 3d 26 33 30 30  |- block%!60=&300|
00000930  30 3a f4 20 57 6f 72 6b  20 61 72 65 61 27 73 20  |0:. Work area's |
00000940  69 63 6f 6e 20 66 6c 61  67 73 0d 03 5c 3f 20 62  |icon flags..\? b|
00000950  6c 6f 63 6b 25 21 36 34  3d 31 3a f4 20 63 6f 6e  |lock%!64=1:. con|
00000960  74 6f 6c 20 62 6c 6f 63  6b 20 70 6f 69 6e 74 65  |tol block pointe|
00000970  72 20 66 6f 72 20 53 70  72 69 74 65 73 2c 20 31  |r for Sprites, 1|
00000980  20 66 6f 72 20 57 69 6d  70 0d 03 66 29 20 62 6c  | for Wimp..f) bl|
00000990  6f 63 6b 25 21 36 38 3d  34 3a f4 20 6d 69 6e 69  |ock%!68=4:. mini|
000009a0  6d 75 6d 20 73 69 7a 65  20 6f 66 20 77 69 6e 64  |mum size of wind|
000009b0  6f 77 0d 03 70 2e 20 24  28 62 6c 6f 63 6b 25 2b  |ow..p. $(block%+|
000009c0  37 32 29 3d 22 4a 75 73  74 20 34 20 57 69 6d 70  |72)="Just 4 Wimp|
000009d0  73 22 3a f4 20 77 69 6e  64 6f 77 20 6e 61 6d 65  |s":. window name|
000009e0  0d 03 7a 31 20 62 6c 6f  63 6b 25 21 38 34 3d 30  |..z1 block%!84=0|
000009f0  3a f4 20 6e 75 6d 62 65  72 20 6f 66 20 69 63 6f  |:. number of ico|
00000a00  6e 73 20 69 6e 20 74 68  69 73 20 77 69 6e 64 6f  |ns in this windo|
00000a10  77 0d 03 84 29 20 c8 99  20 22 57 69 6d 70 5f 43  |w...) .. "Wimp_C|
00000a20  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
00000a30  6f 63 6b 25 20 b8 20 77  68 25 0d 03 8e 07 20 e1  |ock% . wh%.... .|
00000a40  20 0d ff                                          | ..|
00000a43

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