Home » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » Regulars » StarInfo/Summers/!Scroller/!RunImage

StarInfo/Summers/!Scroller/!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 » Acorn User » AU 1997-Xmas B.adf » Regulars
Filename: StarInfo/Summers/!Scroller/!RunImage
Read OK:
File size: 0AD0 bytes
Load address: 0000
Exec address: 0000
File contents
   10DIMa%256,g%1536,m%1280,n%1280,c%512,z%256,d%20,k%8,o%2:SYS"Wimp_Initialise",200,&4B534154,"Desktop Scroller":SYS"Wimp_OpenTemplate",,"<Obey$Dir>.Templates":SYS"Wimp_LoadTemplate",,m%,g%,g%+256,-1,"Info":SYS"Wimp_CreateWindow",,m%TOq%
   20SYS"Wimp_LoadTemplate",,n%,g%+256,g%+1280,-1,"Main":SYS"Wimp_CreateWindow",,n%TOf%:SYS"Wimp_CloseTemplate"
   30$(k%)="0,0":$(o%)="R1":!a%=-1:a%!4=0:a%!8=12:a%!12=128:a%!16=56:a%!20=(7<<24)+(1<<28)+317:a%!24=k%:a%!32=8:a%!28=o%:SYS"Wimp_CreateIcon",,a%TOp%:h%=1:b%=f%:x%=0:y%=0:i%=5
   40!a%=4:a%!4=5:a%!8=11:a%!12=12:a%!16=-1:SYS49,a%,a%+20:e%=a%!28+1<<a%!20:l%=a%!32+1<<a%!24:!a%=f%:a%!4=-256:a%!8=-256:a%!12=-256:a%!16=-256:SYS"Wimp_OpenWindow",,a%:REPEAT:SYS"Wimp_Poll",0,a%TOr%:CASEr%OF
   50WHEN0:IFh%=1PROCd
   60WHEN2:SYS"Wimp_OpenWindow",,a%
   70WHEN3:SYS"Wimp_CloseWindow",,a%
   80WHEN6:PROCe
   90WHEN8:SYS"Wimp_ProcessKey",a%!24
  100WHEN9:PROCf
  110WHEN17,18:PROCg
  120ENDCASE
  130UNTILFALSE
  140DEFPROCg:CASEa%!16OF
  150WHEN0:SYS"Wimp_CloseDown":END
  160WHEN262337:!a%=4:a%!4=5:a%!8=11:a%!12=12:a%!16=-1:SYS49,a%,a%+20:e%=a%!28+1<<a%!20:l%=a%!32+1<<a%!24
  170ENDCASE
  180ENDPROC
  190DEFPROCd:SYS"Wimp_GetPointerInfo",,d%:IF!d%=0ANDx%>-i%THEN
  200x%-=1:PROCa:REPEAT:LOCALERROR:ONERRORLOCALb%=f%:RESTOREERROR:ENDPROC
  210!a%=b%:SYS"Wimp_GetWindowState",,a%:b%=a%!28:IFb%=-1ERROR
  220!a%=b%:SYS"Wimp_GetWindowState",,a%:a%!4+=e%:a%!12+=e%:MOUSETO(e%-4),d%!4:SYS"Wimp_SendMessage",2,a%,b%:UNTILFALSE
  230ENDIF
  240IF!d%>=(e%-4)ANDx%<i%THEN
  250x%+=1:PROCa:REPEAT:LOCALERROR:ONERRORLOCALb%=f%:RESTOREERROR:ENDPROC
  260!a%=b%:SYS"Wimp_GetWindowState",,a%:b%=a%!28:IFb%=-1ERROR
  270!a%=b%:SYS"Wimp_GetWindowState",,a%:a%!4-=e%:a%!12-=e%:MOUSETO0,d%!4:SYS"Wimp_SendMessage",2,a%,b%:UNTILFALSE
  280ENDIF
  290IFd%!4=0ANDy%>-i%THEN
  300y%-=1:PROCa:REPEAT:LOCALERROR:ONERRORLOCALb%=f%:RESTOREERROR:ENDPROC
  310!a%=b%:SYS"Wimp_GetWindowState",,a%:b%=a%!28:IFb%=-1ERROR
  320!a%=b%:SYS"Wimp_GetWindowState",,a%:a%!8+=e%:a%!16+=e%:MOUSETO!d%,(l%-4):SYS"Wimp_SendMessage",2,a%,b%:UNTILFALSE
  330ENDIF
  340IFd%!4>=(l%-4)ANDy%<i%THEN
  350y%+=1:PROCa:REPEAT:LOCALERROR:ONERRORLOCALb%=f%:RESTOREERROR:ENDPROC
  360!a%=b%:SYS"Wimp_GetWindowState",,a%:b%=a%!28:IFb%=-1ERROR
  370!a%=b%:SYS"Wimp_GetWindowState",,a%:a%!8-=e%:a%!16-=e%:MOUSETO!d%,0:SYS"Wimp_SendMessage",2,a%,b%:UNTILFALSE
  380ENDIF
  390ENDPROC
  400DEFPROCe:s%=!a%:A%=a%!4:t%=a%!8:CASEt%OF
  410WHEN2:IFa%!16=p%PROCc
  420ENDCASE
  430ENDPROC
  440DEFPROCc:$c%="Scroller":c%?12=7:c%?13=2:c%?14=7:c%?15=0:c%!16=124:c%!20=44:c%!24=0:PROCb(c%+28,0,q%,((7<<24)+17),"Info"):IFh%=1PROCb(c%+52,1,-1,((7<<24)+17),"Scroll")ELSEPROCb(c%+52,0,-1,((7<<24)+17),"Scroll")
  450PROCb(c%+76,0,-1,((7<<24)+17),"Restore"):PROCb(c%+100,128,-1,((7<<24)+17),"Quit"):SYS"Wimp_CreateMenu",,c%,s%-64,272:ENDPROC
  460DEFPROCb(j%,u%,v%,w%,a$):!j%=u%:j%!4=v%:j%!8=w%:$(j%+12)=a$:ENDPROC
  470DEFPROCf:CASE!a%OF
  480WHEN1:h%=h%EOR1
  490WHEN2:PROCh
  500WHEN3:SYS"Wimp_CloseDown":END
  510ENDCASE
  520SYS"Wimp_GetPointerInfo",,d%:IFd%!8=1PROCc
  530ENDPROC
  540DEFPROCh:b%=f%:x%=0:y%=0:PROCa:REPEAT:LOCALERROR:ONERRORLOCALb%=f%:RESTOREERROR:ENDPROC
  550!a%=b%:SYS"Wimp_GetWindowState",,a%:b%=a%!28:IFb%=-1ERROR
  560!a%=b%:SYS"Wimp_GetWindowState",,a%:a%!12-=a%!4:a%!4=0:a%!16-=a%!8:a%!8=0:SYS"Wimp_SendMessage",2,a%,b%:UNTILFALSE:ENDPROC
  570DEFPROCa:$(k%)=STR$(x%)+","+STR$(y%):!a%=-2:a%!4=p%:SYS"Wimp_GetIconState",,a%:a%!8=0:a%!12=0:SYS"Wimp_SetIconState",,a%:ENDPROC

��a%256,g%1536,m%1280,n%1280,c%512,z%256,d%20,k%8,o%2:ș"Wimp_Initialise",200,&4B534154,"Desktop Scroller":ș"Wimp_OpenTemplate",,"<Obey$Dir>.Templates":ș"Wimp_LoadTemplate",,m%,g%,g%+256,-1,"Info":ș"Wimp_CreateWindow",,m%�q%
jș"Wimp_LoadTemplate",,n%,g%+256,g%+1280,-1,"Main":ș"Wimp_CreateWindow",,n%�f%:ș"Wimp_CloseTemplate"
�$(k%)="0,0":$(o%)="R1":!a%=-1:a%!4=0:a%!8=12:a%!12=128:a%!16=56:a%!20=(7<<24)+(1<<28)+317:a%!24=k%:a%!32=8:a%!28=o%:ș"Wimp_CreateIcon",,a%�p%:h%=1:b%=f%:x%=0:y%=0:i%=5
(�!a%=4:a%!4=5:a%!8=11:a%!12=12:a%!16=-1:ș49,a%,a%+20:e%=a%!28+1<<a%!20:l%=a%!32+1<<a%!24:!a%=f%:a%!4=-256:a%!8=-256:a%!12=-256:a%!16=-256:ș"Wimp_OpenWindow",,a%:�:ș"Wimp_Poll",0,a%�r%:Ȏr%�
2�0:�h%=1�d
<�2:ș"Wimp_OpenWindow",,a%
F�3:ș"Wimp_CloseWindow",,a%
P	�6:�e
Z �8:ș"Wimp_ProcessKey",a%!24
d	�9:�f
n
�17,18:�g
x�
���
���g:Ȏa%!16�
��0:ș"Wimp_CloseDown":�
�d�262337:!a%=4:a%!4=5:a%!8=11:a%!12=12:a%!16=-1:ș49,a%,a%+20:e%=a%!28+1<<a%!20:l%=a%!32+1<<a%!24
��
��
�2��d:ș"Wimp_GetPointerInfo",,d%:�!d%=0�x%>-i%�
�x%-=1:�a:�:�:��b%=f%:��:�
�7!a%=b%:ș"Wimp_GetWindowState",,a%:b%=a%!28:�b%=-1�
�h!a%=b%:ș"Wimp_GetWindowState",,a%:a%!4+=e%:a%!12+=e%:ȗ�(e%-4),d%!4:ș"Wimp_SendMessage",2,a%,b%:��
��
��!d%>=(e%-4)�x%<i%�
�x%+=1:�a:�:�:��b%=f%:��:�
7!a%=b%:ș"Wimp_GetWindowState",,a%:b%=a%!28:�b%=-1�
c!a%=b%:ș"Wimp_GetWindowState",,a%:a%!4-=e%:a%!12-=e%:ȗ�0,d%!4:ș"Wimp_SendMessage",2,a%,b%:��
�
"�d%!4=0�y%>-i%�
,y%-=1:�a:�:�:��b%=f%:��:�
67!a%=b%:ș"Wimp_GetWindowState",,a%:b%=a%!28:�b%=-1�
@g!a%=b%:ș"Wimp_GetWindowState",,a%:a%!8+=e%:a%!16+=e%:ȗ�!d%,(l%-4):ș"Wimp_SendMessage",2,a%,b%:��
J�
T�d%!4>=(l%-4)�y%<i%�
^y%+=1:�a:�:�:��b%=f%:��:�
h7!a%=b%:ș"Wimp_GetWindowState",,a%:b%=a%!28:�b%=-1�
rb!a%=b%:ș"Wimp_GetWindowState",,a%:a%!8-=e%:a%!16-=e%:ȗ�!d%,0:ș"Wimp_SendMessage",2,a%,b%:��
|�
��
�$��e:s%=!a%:A%=a%!4:t%=a%!8:Ȏt%�
��2:�a%!16=p%�c
��
��
����c:$c%="Scroller":c%?12=7:c%?13=2:c%?14=7:c%?15=0:c%!16=124:c%!20=44:c%!24=0:�b(c%+28,0,q%,((7<<24)+17),"Info"):�h%=1�b(c%+52,1,-1,((7<<24)+17),"Scroll")��b(c%+52,0,-1,((7<<24)+17),"Scroll")
�s�b(c%+76,0,-1,((7<<24)+17),"Restore"):�b(c%+100,128,-1,((7<<24)+17),"Quit"):ș"Wimp_CreateMenu",,c%,s%-64,272:�
�<��b(j%,u%,v%,w%,a$):!j%=u%:j%!4=v%:j%!8=w%:$(j%+12)=a$:�
���f:Ȏ!a%�
��1:h%=h%�1
�	�2:�h
��3:ș"Wimp_CloseDown":�
��
)ș"Wimp_GetPointerInfo",,d%:�d%!8=1�c
�
-��h:b%=f%:x%=0:y%=0:�a:�:�:��b%=f%:��:�
&7!a%=b%:ș"Wimp_GetWindowState",,a%:b%=a%!28:�b%=-1�
0n!a%=b%:ș"Wimp_GetWindowState",,a%:a%!12-=a%!4:a%!4=0:a%!16-=a%!8:a%!8=0:ș"Wimp_SendMessage",2,a%,b%:��:�
:q��a:$(k%)=�(x%)+","+�(y%):!a%=-2:a%!4=p%:ș"Wimp_GetIconState",,a%:a%!8=0:a%!12=0:ș"Wimp_SetIconState",,a%:�
�
00000000  0d 00 0a e6 de 61 25 32  35 36 2c 67 25 31 35 33  |.....a%256,g%153|
00000010  36 2c 6d 25 31 32 38 30  2c 6e 25 31 32 38 30 2c  |6,m%1280,n%1280,|
00000020  63 25 35 31 32 2c 7a 25  32 35 36 2c 64 25 32 30  |c%512,z%256,d%20|
00000030  2c 6b 25 38 2c 6f 25 32  3a c8 99 22 57 69 6d 70  |,k%8,o%2:.."Wimp|
00000040  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 32 30 30  |_Initialise",200|
00000050  2c 26 34 42 35 33 34 31  35 34 2c 22 44 65 73 6b  |,&4B534154,"Desk|
00000060  74 6f 70 20 53 63 72 6f  6c 6c 65 72 22 3a c8 99  |top Scroller":..|
00000070  22 57 69 6d 70 5f 4f 70  65 6e 54 65 6d 70 6c 61  |"Wimp_OpenTempla|
00000080  74 65 22 2c 2c 22 3c 4f  62 65 79 24 44 69 72 3e  |te",,"<Obey$Dir>|
00000090  2e 54 65 6d 70 6c 61 74  65 73 22 3a c8 99 22 57  |.Templates":.."W|
000000a0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
000000b0  22 2c 2c 6d 25 2c 67 25  2c 67 25 2b 32 35 36 2c  |",,m%,g%,g%+256,|
000000c0  2d 31 2c 22 49 6e 66 6f  22 3a c8 99 22 57 69 6d  |-1,"Info":.."Wim|
000000d0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
000000e0  2c 6d 25 b8 71 25 0d 00  14 6a c8 99 22 57 69 6d  |,m%.q%...j.."Wim|
000000f0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000100  2c 6e 25 2c 67 25 2b 32  35 36 2c 67 25 2b 31 32  |,n%,g%+256,g%+12|
00000110  38 30 2c 2d 31 2c 22 4d  61 69 6e 22 3a c8 99 22  |80,-1,"Main":.."|
00000120  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00000130  77 22 2c 2c 6e 25 b8 66  25 3a c8 99 22 57 69 6d  |w",,n%.f%:.."Wim|
00000140  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00000150  0d 00 1e ac 24 28 6b 25  29 3d 22 30 2c 30 22 3a  |....$(k%)="0,0":|
00000160  24 28 6f 25 29 3d 22 52  31 22 3a 21 61 25 3d 2d  |$(o%)="R1":!a%=-|
00000170  31 3a 61 25 21 34 3d 30  3a 61 25 21 38 3d 31 32  |1:a%!4=0:a%!8=12|
00000180  3a 61 25 21 31 32 3d 31  32 38 3a 61 25 21 31 36  |:a%!12=128:a%!16|
00000190  3d 35 36 3a 61 25 21 32  30 3d 28 37 3c 3c 32 34  |=56:a%!20=(7<<24|
000001a0  29 2b 28 31 3c 3c 32 38  29 2b 33 31 37 3a 61 25  |)+(1<<28)+317:a%|
000001b0  21 32 34 3d 6b 25 3a 61  25 21 33 32 3d 38 3a 61  |!24=k%:a%!32=8:a|
000001c0  25 21 32 38 3d 6f 25 3a  c8 99 22 57 69 6d 70 5f  |%!28=o%:.."Wimp_|
000001d0  43 72 65 61 74 65 49 63  6f 6e 22 2c 2c 61 25 b8  |CreateIcon",,a%.|
000001e0  70 25 3a 68 25 3d 31 3a  62 25 3d 66 25 3a 78 25  |p%:h%=1:b%=f%:x%|
000001f0  3d 30 3a 79 25 3d 30 3a  69 25 3d 35 0d 00 28 c3  |=0:y%=0:i%=5..(.|
00000200  21 61 25 3d 34 3a 61 25  21 34 3d 35 3a 61 25 21  |!a%=4:a%!4=5:a%!|
00000210  38 3d 31 31 3a 61 25 21  31 32 3d 31 32 3a 61 25  |8=11:a%!12=12:a%|
00000220  21 31 36 3d 2d 31 3a c8  99 34 39 2c 61 25 2c 61  |!16=-1:..49,a%,a|
00000230  25 2b 32 30 3a 65 25 3d  61 25 21 32 38 2b 31 3c  |%+20:e%=a%!28+1<|
00000240  3c 61 25 21 32 30 3a 6c  25 3d 61 25 21 33 32 2b  |<a%!20:l%=a%!32+|
00000250  31 3c 3c 61 25 21 32 34  3a 21 61 25 3d 66 25 3a  |1<<a%!24:!a%=f%:|
00000260  61 25 21 34 3d 2d 32 35  36 3a 61 25 21 38 3d 2d  |a%!4=-256:a%!8=-|
00000270  32 35 36 3a 61 25 21 31  32 3d 2d 32 35 36 3a 61  |256:a%!12=-256:a|
00000280  25 21 31 36 3d 2d 32 35  36 3a c8 99 22 57 69 6d  |%!16=-256:.."Wim|
00000290  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 61  |p_OpenWindow",,a|
000002a0  25 3a f5 3a c8 99 22 57  69 6d 70 5f 50 6f 6c 6c  |%:.:.."Wimp_Poll|
000002b0  22 2c 30 2c 61 25 b8 72  25 3a c8 8e 72 25 ca 0d  |",0,a%.r%:..r%..|
000002c0  00 32 0e c9 30 3a e7 68  25 3d 31 f2 64 0d 00 3c  |.2..0:.h%=1.d..<|
000002d0  1e c9 32 3a c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |..2:.."Wimp_Open|
000002e0  57 69 6e 64 6f 77 22 2c  2c 61 25 0d 00 46 1f c9  |Window",,a%..F..|
000002f0  33 3a c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |3:.."Wimp_CloseW|
00000300  69 6e 64 6f 77 22 2c 2c  61 25 0d 00 50 09 c9 36  |indow",,a%..P..6|
00000310  3a f2 65 0d 00 5a 20 c9  38 3a c8 99 22 57 69 6d  |:.e..Z .8:.."Wim|
00000320  70 5f 50 72 6f 63 65 73  73 4b 65 79 22 2c 61 25  |p_ProcessKey",a%|
00000330  21 32 34 0d 00 64 09 c9  39 3a f2 66 0d 00 6e 0d  |!24..d..9:.f..n.|
00000340  c9 31 37 2c 31 38 3a f2  67 0d 00 78 05 cb 0d 00  |.17,18:.g..x....|
00000350  82 06 fd a3 0d 00 8c 10  dd f2 67 3a c8 8e 61 25  |..........g:..a%|
00000360  21 31 36 ca 0d 00 96 1b  c9 30 3a c8 99 22 57 69  |!16......0:.."Wi|
00000370  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 3a e0 0d  |mp_CloseDown":..|
00000380  00 a0 64 c9 32 36 32 33  33 37 3a 21 61 25 3d 34  |..d.262337:!a%=4|
00000390  3a 61 25 21 34 3d 35 3a  61 25 21 38 3d 31 31 3a  |:a%!4=5:a%!8=11:|
000003a0  61 25 21 31 32 3d 31 32  3a 61 25 21 31 36 3d 2d  |a%!12=12:a%!16=-|
000003b0  31 3a c8 99 34 39 2c 61  25 2c 61 25 2b 32 30 3a  |1:..49,a%,a%+20:|
000003c0  65 25 3d 61 25 21 32 38  2b 31 3c 3c 61 25 21 32  |e%=a%!28+1<<a%!2|
000003d0  30 3a 6c 25 3d 61 25 21  33 32 2b 31 3c 3c 61 25  |0:l%=a%!32+1<<a%|
000003e0  21 32 34 0d 00 aa 05 cb  0d 00 b4 05 e1 0d 00 be  |!24.............|
000003f0  32 dd f2 64 3a c8 99 22  57 69 6d 70 5f 47 65 74  |2..d:.."Wimp_Get|
00000400  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 64 25  |PointerInfo",,d%|
00000410  3a e7 21 64 25 3d 30 80  78 25 3e 2d 69 25 8c 0d  |:.!d%=0.x%>-i%..|
00000420  00 c8 1f 78 25 2d 3d 31  3a f2 61 3a f5 3a ea 85  |...x%-=1:.a:.:..|
00000430  3a ee 85 ea 62 25 3d 66  25 3a f7 85 3a e1 0d 00  |:...b%=f%:..:...|
00000440  d2 37 21 61 25 3d 62 25  3a c8 99 22 57 69 6d 70  |.7!a%=b%:.."Wimp|
00000450  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00000460  2c 2c 61 25 3a 62 25 3d  61 25 21 32 38 3a e7 62  |,,a%:b%=a%!28:.b|
00000470  25 3d 2d 31 85 0d 00 dc  68 21 61 25 3d 62 25 3a  |%=-1....h!a%=b%:|
00000480  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00000490  77 53 74 61 74 65 22 2c  2c 61 25 3a 61 25 21 34  |wState",,a%:a%!4|
000004a0  2b 3d 65 25 3a 61 25 21  31 32 2b 3d 65 25 3a c8  |+=e%:a%!12+=e%:.|
000004b0  97 b8 28 65 25 2d 34 29  2c 64 25 21 34 3a c8 99  |..(e%-4),d%!4:..|
000004c0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
000004d0  65 22 2c 32 2c 61 25 2c  62 25 3a fd a3 0d 00 e6  |e",2,a%,b%:.....|
000004e0  05 cd 0d 00 f0 17 e7 21  64 25 3e 3d 28 65 25 2d  |.......!d%>=(e%-|
000004f0  34 29 80 78 25 3c 69 25  8c 0d 00 fa 1f 78 25 2b  |4).x%<i%.....x%+|
00000500  3d 31 3a f2 61 3a f5 3a  ea 85 3a ee 85 ea 62 25  |=1:.a:.:..:...b%|
00000510  3d 66 25 3a f7 85 3a e1  0d 01 04 37 21 61 25 3d  |=f%:..:....7!a%=|
00000520  62 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |b%:.."Wimp_GetWi|
00000530  6e 64 6f 77 53 74 61 74  65 22 2c 2c 61 25 3a 62  |ndowState",,a%:b|
00000540  25 3d 61 25 21 32 38 3a  e7 62 25 3d 2d 31 85 0d  |%=a%!28:.b%=-1..|
00000550  01 0e 63 21 61 25 3d 62  25 3a c8 99 22 57 69 6d  |..c!a%=b%:.."Wim|
00000560  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00000570  22 2c 2c 61 25 3a 61 25  21 34 2d 3d 65 25 3a 61  |",,a%:a%!4-=e%:a|
00000580  25 21 31 32 2d 3d 65 25  3a c8 97 b8 30 2c 64 25  |%!12-=e%:...0,d%|
00000590  21 34 3a c8 99 22 57 69  6d 70 5f 53 65 6e 64 4d  |!4:.."Wimp_SendM|
000005a0  65 73 73 61 67 65 22 2c  32 2c 61 25 2c 62 25 3a  |essage",2,a%,b%:|
000005b0  fd a3 0d 01 18 05 cd 0d  01 22 13 e7 64 25 21 34  |........."..d%!4|
000005c0  3d 30 80 79 25 3e 2d 69  25 8c 0d 01 2c 1f 79 25  |=0.y%>-i%...,.y%|
000005d0  2d 3d 31 3a f2 61 3a f5  3a ea 85 3a ee 85 ea 62  |-=1:.a:.:..:...b|
000005e0  25 3d 66 25 3a f7 85 3a  e1 0d 01 36 37 21 61 25  |%=f%:..:...67!a%|
000005f0  3d 62 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |=b%:.."Wimp_GetW|
00000600  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 61 25 3a  |indowState",,a%:|
00000610  62 25 3d 61 25 21 32 38  3a e7 62 25 3d 2d 31 85  |b%=a%!28:.b%=-1.|
00000620  0d 01 40 67 21 61 25 3d  62 25 3a c8 99 22 57 69  |..@g!a%=b%:.."Wi|
00000630  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000640  65 22 2c 2c 61 25 3a 61  25 21 38 2b 3d 65 25 3a  |e",,a%:a%!8+=e%:|
00000650  61 25 21 31 36 2b 3d 65  25 3a c8 97 b8 21 64 25  |a%!16+=e%:...!d%|
00000660  2c 28 6c 25 2d 34 29 3a  c8 99 22 57 69 6d 70 5f  |,(l%-4):.."Wimp_|
00000670  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 32 2c 61  |SendMessage",2,a|
00000680  25 2c 62 25 3a fd a3 0d  01 4a 05 cd 0d 01 54 18  |%,b%:....J....T.|
00000690  e7 64 25 21 34 3e 3d 28  6c 25 2d 34 29 80 79 25  |.d%!4>=(l%-4).y%|
000006a0  3c 69 25 8c 0d 01 5e 1f  79 25 2b 3d 31 3a f2 61  |<i%...^.y%+=1:.a|
000006b0  3a f5 3a ea 85 3a ee 85  ea 62 25 3d 66 25 3a f7  |:.:..:...b%=f%:.|
000006c0  85 3a e1 0d 01 68 37 21  61 25 3d 62 25 3a c8 99  |.:...h7!a%=b%:..|
000006d0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000006e0  74 61 74 65 22 2c 2c 61  25 3a 62 25 3d 61 25 21  |tate",,a%:b%=a%!|
000006f0  32 38 3a e7 62 25 3d 2d  31 85 0d 01 72 62 21 61  |28:.b%=-1...rb!a|
00000700  25 3d 62 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |%=b%:.."Wimp_Get|
00000710  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 61 25  |WindowState",,a%|
00000720  3a 61 25 21 38 2d 3d 65  25 3a 61 25 21 31 36 2d  |:a%!8-=e%:a%!16-|
00000730  3d 65 25 3a c8 97 b8 21  64 25 2c 30 3a c8 99 22  |=e%:...!d%,0:.."|
00000740  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00000750  22 2c 32 2c 61 25 2c 62  25 3a fd a3 0d 01 7c 05  |",2,a%,b%:....|.|
00000760  cd 0d 01 86 05 e1 0d 01  90 24 dd f2 65 3a 73 25  |.........$..e:s%|
00000770  3d 21 61 25 3a 41 25 3d  61 25 21 34 3a 74 25 3d  |=!a%:A%=a%!4:t%=|
00000780  61 25 21 38 3a c8 8e 74  25 ca 0d 01 9a 12 c9 32  |a%!8:..t%......2|
00000790  3a e7 61 25 21 31 36 3d  70 25 f2 63 0d 01 a4 05  |:.a%!16=p%.c....|
000007a0  cb 0d 01 ae 05 e1 0d 01  b8 c3 dd f2 63 3a 24 63  |............c:$c|
000007b0  25 3d 22 53 63 72 6f 6c  6c 65 72 22 3a 63 25 3f  |%="Scroller":c%?|
000007c0  31 32 3d 37 3a 63 25 3f  31 33 3d 32 3a 63 25 3f  |12=7:c%?13=2:c%?|
000007d0  31 34 3d 37 3a 63 25 3f  31 35 3d 30 3a 63 25 21  |14=7:c%?15=0:c%!|
000007e0  31 36 3d 31 32 34 3a 63  25 21 32 30 3d 34 34 3a  |16=124:c%!20=44:|
000007f0  63 25 21 32 34 3d 30 3a  f2 62 28 63 25 2b 32 38  |c%!24=0:.b(c%+28|
00000800  2c 30 2c 71 25 2c 28 28  37 3c 3c 32 34 29 2b 31  |,0,q%,((7<<24)+1|
00000810  37 29 2c 22 49 6e 66 6f  22 29 3a e7 68 25 3d 31  |7),"Info"):.h%=1|
00000820  f2 62 28 63 25 2b 35 32  2c 31 2c 2d 31 2c 28 28  |.b(c%+52,1,-1,((|
00000830  37 3c 3c 32 34 29 2b 31  37 29 2c 22 53 63 72 6f  |7<<24)+17),"Scro|
00000840  6c 6c 22 29 8b f2 62 28  63 25 2b 35 32 2c 30 2c  |ll")..b(c%+52,0,|
00000850  2d 31 2c 28 28 37 3c 3c  32 34 29 2b 31 37 29 2c  |-1,((7<<24)+17),|
00000860  22 53 63 72 6f 6c 6c 22  29 0d 01 c2 73 f2 62 28  |"Scroll")...s.b(|
00000870  63 25 2b 37 36 2c 30 2c  2d 31 2c 28 28 37 3c 3c  |c%+76,0,-1,((7<<|
00000880  32 34 29 2b 31 37 29 2c  22 52 65 73 74 6f 72 65  |24)+17),"Restore|
00000890  22 29 3a f2 62 28 63 25  2b 31 30 30 2c 31 32 38  |"):.b(c%+100,128|
000008a0  2c 2d 31 2c 28 28 37 3c  3c 32 34 29 2b 31 37 29  |,-1,((7<<24)+17)|
000008b0  2c 22 51 75 69 74 22 29  3a c8 99 22 57 69 6d 70  |,"Quit"):.."Wimp|
000008c0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 63 25  |_CreateMenu",,c%|
000008d0  2c 73 25 2d 36 34 2c 32  37 32 3a e1 0d 01 cc 3c  |,s%-64,272:....<|
000008e0  dd f2 62 28 6a 25 2c 75  25 2c 76 25 2c 77 25 2c  |..b(j%,u%,v%,w%,|
000008f0  61 24 29 3a 21 6a 25 3d  75 25 3a 6a 25 21 34 3d  |a$):!j%=u%:j%!4=|
00000900  76 25 3a 6a 25 21 38 3d  77 25 3a 24 28 6a 25 2b  |v%:j%!8=w%:$(j%+|
00000910  31 32 29 3d 61 24 3a e1  0d 01 d6 0e dd f2 66 3a  |12)=a$:.......f:|
00000920  c8 8e 21 61 25 ca 0d 01  e0 0e c9 31 3a 68 25 3d  |..!a%......1:h%=|
00000930  68 25 82 31 0d 01 ea 09  c9 32 3a f2 68 0d 01 f4  |h%.1.....2:.h...|
00000940  1b c9 33 3a c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |..3:.."Wimp_Clos|
00000950  65 44 6f 77 6e 22 3a e0  0d 01 fe 05 cb 0d 02 08  |eDown":.........|
00000960  29 c8 99 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |).."Wimp_GetPoin|
00000970  74 65 72 49 6e 66 6f 22  2c 2c 64 25 3a e7 64 25  |terInfo",,d%:.d%|
00000980  21 38 3d 31 f2 63 0d 02  12 05 e1 0d 02 1c 2d dd  |!8=1.c........-.|
00000990  f2 68 3a 62 25 3d 66 25  3a 78 25 3d 30 3a 79 25  |.h:b%=f%:x%=0:y%|
000009a0  3d 30 3a f2 61 3a f5 3a  ea 85 3a ee 85 ea 62 25  |=0:.a:.:..:...b%|
000009b0  3d 66 25 3a f7 85 3a e1  0d 02 26 37 21 61 25 3d  |=f%:..:...&7!a%=|
000009c0  62 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |b%:.."Wimp_GetWi|
000009d0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 61 25 3a 62  |ndowState",,a%:b|
000009e0  25 3d 61 25 21 32 38 3a  e7 62 25 3d 2d 31 85 0d  |%=a%!28:.b%=-1..|
000009f0  02 30 6e 21 61 25 3d 62  25 3a c8 99 22 57 69 6d  |.0n!a%=b%:.."Wim|
00000a00  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00000a10  22 2c 2c 61 25 3a 61 25  21 31 32 2d 3d 61 25 21  |",,a%:a%!12-=a%!|
00000a20  34 3a 61 25 21 34 3d 30  3a 61 25 21 31 36 2d 3d  |4:a%!4=0:a%!16-=|
00000a30  61 25 21 38 3a 61 25 21  38 3d 30 3a c8 99 22 57  |a%!8:a%!8=0:.."W|
00000a40  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00000a50  2c 32 2c 61 25 2c 62 25  3a fd a3 3a e1 0d 02 3a  |,2,a%,b%:..:...:|
00000a60  71 dd f2 61 3a 24 28 6b  25 29 3d c3 28 78 25 29  |q..a:$(k%)=.(x%)|
00000a70  2b 22 2c 22 2b c3 28 79  25 29 3a 21 61 25 3d 2d  |+","+.(y%):!a%=-|
00000a80  32 3a 61 25 21 34 3d 70  25 3a c8 99 22 57 69 6d  |2:a%!4=p%:.."Wim|
00000a90  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00000aa0  2c 61 25 3a 61 25 21 38  3d 30 3a 61 25 21 31 32  |,a%:a%!8=0:a%!12|
00000ab0  3d 30 3a c8 99 22 57 69  6d 70 5f 53 65 74 49 63  |=0:.."Wimp_SetIc|
00000ac0  6f 6e 53 74 61 74 65 22  2c 2c 61 25 3a e1 0d ff  |onState",,a%:...|
00000ad0