AMUSING/!Bar-Ani/!RunImage

Home » Archimedes archive » Micro User » MU 1992-03.adf » PD » AMUSING/!Bar-Ani/!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 » Micro User » MU 1992-03.adf » PD
Filename:	AMUSING/!Bar-Ani/!RunImage
Read OK:	✔
File size:	0E7D bytes
Load address:	0000
Exec address:	0000

Duplicates

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

Archimedes archive » Micro User » MU 1992-03.adf » PD » AMUSING/!Bar-Ani/!RunImage
Archimedes archive » Micro User » MU 1992-05.adf » PD » Bits/!Bar-Ani/!RunImage

File contents

   10REM> !RunImage
   20REM Sorry about not quitting from Task Manager.  Confused me!
   30REM (C) ABYSS Software - Nothing may be sold or changed in this application but copying lending is allowed.  In other words its Public Domain.
   40
   50DIMq% 1900,k% 200:m%=k%+300:e%=0:c%=q%+300:d%=c%+300:f%=0
   60SYS"OS_File",5,"<files$Dir>.Spare-1" TO c:IF c=1 THEN f%=1 ELSE f%=0
   70
   80TIME=0:g%=1:i%=0:l%=FALSE:s%=FALSE:b=0:d=0:a=0:SYS"Wimp_Initialise",200,&4B534154,"Box Animation"TOe%:PROCb:PROCc:PROCd:PROCe:SYS"OS_ReadMonotonicTime"TOi%:WHILE(i%-b)>0:b=i%+100:ENDWHILE:REPEAT:SYS"Wimp_PollIdle",0,q%,bTOA%:CASEA%OF
   90WHEN0:IFb>300THENPROCf:PROCg
  100WHEN2:SYS"Wimp_OpenWindow",,q%
  110WHEN6:PROCh(q%)
  120WHEN9:PROCi(q%)
  130WHEN 17,18 :PROCreceive(q%)
  140ENDCASE
  150UNTILl%:SYS"Wimp_CloseDown",e%,&4B534154:END
  160DEFPROCk:!q%=ERR:$(q%+4)=REPORT$+" (internal code "+STR$ERL+"/"+STR$~ERR+")."+CHR$0:SYS"Wimp_ReportError",q%,1,"Icon Box":SYS"Wimp_CloseDown",e%,&4B534154:END
  170ENDPROC
  180DEFPROCb:SYS"Wimp_OpenTemplate",,"<files$Dir>.^.Templates":SYS"Wimp_LoadTemplate",,q%,k%,m%,-1,"ICONBOX",0:q%!24=-1:q%!28=q%!28OR2:SYS"Wimp_CreateWindow",,q%TOn%:SYS"Wimp_CloseTemplate":ENDPROC
  190DEFPROCj(c$):$h%=(c$)+CHR$0:q%!0=-1:q%!4=r%:q%!8=0:q%!12=0:SYS"Wimp_SetIconState",,q%:WAIT:WAIT:ENDPROC
  200DEFPROCc:DIMa% 37120:!a%=37120:a%!4=0::a%!8=16::a%!12=16:PROCa("BOX"):DIMh% 4::$h%="screen1"+CHR$0+CHR$0:q%!0=-1:q%!4=-20:q%!8=-22:q%!12=152:q%!16=168:q%!20=-16764670:q%!24=h%::q%!28=a%:q%!32=LEN($h%)+1:SYS"Wimp_CreateIcon",,q%TOr%:ENDPROC
  210DEFPROCi(q%):LOCALj%,a$:a$=STRING$(255," "):SYS"Wimp_DecodeMenu",,c%,q%,a$TO,,,a$:SYS"Wimp_GetPointerInfo",,q%:j%=(q%!8=1):CASEa$OF
  220WHEN"Others.Box":                  PROCa("Box")
  230WHEN"Others.Slope":                PROCa("Slope")
  240WHEN"Others.Twirl":                PROCa("Twirl")
  250WHEN"Others.CW":                   PROCa("CW")
  260WHEN"Others.Spare-1":IF f%>0 THEN :PROCa("Spare-1")
  270WHEN"Quit":l%=TRUE:j%=FALSE
  280ENDCASE:IFj%THENSYS"Wimp_CreateMenu",,c%,q%!0,q%!4
  290ENDPROC
  300DEFPROCd:LOCALp%,o%:$c%="Animation":c%!12=459271:c%!16=160:c%!20=40:c%!24=0:p%=c%+28:p%!0=0:p%!4=n%:p%!8=&7000021:$(p%+12)="Info":p%+=24:p%!0=0:p%!4=d%:p%!8=&7000021:$(p%+12)="Others":p%+=24
  310p%!0=128:p%!4=-1:p%!8=&7000021:$(p%+12)="Quit":p%+=24:$d%="More":d%!12=459271:d%!16=160:d%!20=40:d%!24=0:o%=d%+28:o%!0=0:o%!4=-1:o%!8=&7000021:$(o%+12)="Box":o%+=24:o%!0=0:o%!4=-1:o%!8=&7000021:$(o%+12)="Slope":o%+=24
  320o%!0=0:o%!4=-1:o%!8=&7000021:$(o%+12)="Twirl":o%+=24:o%!0=0:o%!4=-1:o%!8=&7000021:$(o%+12)="CW":o%+=24:o%!0=&80:o%!4=-1:o%!8=&7000021:$(o%+12)="Spare-1":o%+=24:ENDPROC
  330DEFPROCh(q%):IFq%!8=2ANDq%!12=-2THENSYS"Wimp_CreateMenu",,c%,q%!0-64,218:ENDPROC
  340ENDIF
  350ENDIF:ELSE
  360A=RND(5):IFA=1$(q%+4)="Oy! that hurt.  How would you like it if I stuck a big Pointy thing in you!":SYS"Wimp_ReportError",q%,0,"Icon Box"
  370IFA=2$(q%+4)="Will you leave me alone!  Pick on someone your own size!":SYS"Wimp_ReportError",q%,0,"Icon Box"
  380IFA=3$(q%+4)="Poke the Icon next to me.  But please leave me alone!!":SYS"Wimp_ReportError",q%,0,"Icon Box"
  390IFA=4$(q%+4)="Not now I've got a head Ache":SYS"Wimp_ReportError",q%,0,"Icon Box"
  400IFA=5$(q%+4)="Stop it or I'll do a 'FILECORE IN USE' on you!":SYS"Wimp_ReportError",q%,0,"Icon Box"
  410ENDPROC
  420DEFPROCf:PROCj("screen"+STR$g%):g%=g%+1:IFg%>=11THENg%=1
  430ENDPROC
  440DEFPROCa(b$)
  450ONERROR:ONERROROFF:IFb$="Spare-1" THEN ENDPROC ELSE ONERROROFF
  460SYS"OS_SpriteOp",256+9,a%
  470!a%=37120:a%!4=0::a%!8=16::a%!12=16
  480SYS"OS_File",255,"<files$Dir>."+b$,a%+4
  490ENDPROC
  500DEFPROCe:SYS"OS_ReadModeVariable",-1,3TO,,b%:IFb%=63THENENDPROCELSE
  510$(q%+4)="I'deally suited to MODE 15.  Going to change from mode "+STR$MODE+" to Mode 15"+CHR$0:SYS"Wimp_ReportError",q%,19,"Icon Box"TO,a:IFa=2THENSYS"Wimp_CloseDown",e%,&4B534154:END
  520IFa=1THENSYS"Wimp_SetMode",15
  530ENDPROC
  540DEFPROCg:SYS"OS_ReadModeVariable",-1,3TO,,b%:IFb%=63THENENDPROCELSE
  550IFb%<>63THEN$(q%+4)="Don't look my best in this Mode! Okay to continue but lose me, Cancel to go to mode 15."+CHR$0:SYS"Wimp_ReportError",q%,19,"Icon Box"TO,a:IFa=1THENSYS"Wimp_CloseDown",e%,&4B534154:END
  560IFa=2THENSYS"Wimp_SetMode",15
  570ENDPROC
  580DEFPROCreceive(q%)
  590CASE q%!16 OF
  600WHEN 0 :l%=TRUE
  610ENDCASE
  620ENDPROC


�> !RunImage
?� Sorry about not quitting from Task Manager.  Confused me!
�� (C) ABYSS Software - Nothing may be sold or changed in this application but copying lending is allowed.  In other words its Public Domain.
(
2;�q% 1900,k% 200:m%=k%+300:e%=0:c%=q%+300:d%=c%+300:f%=0
<?ș"OS_File",5,"<files$Dir>.Spare-1" � c:� c=1 � f%=1 � f%=0
F
P��=0:g%=1:i%=0:l%=�:s%=�:b=0:d=0:a=0:ș"Wimp_Initialise",200,&4B534154,"Box Animation"�e%:�b:�c:�d:�e:ș"OS_ReadMonotonicTime"�i%:ȕ(i%-b)>0:b=i%+100:�:�:ș"Wimp_PollIdle",0,q%,b�A%:ȎA%�
Z�0:�b>300��f:�g
d�2:ș"Wimp_OpenWindow",,q%
n
�6:�h(q%)
x
�9:�i(q%)
�� 17,18 :�receive(q%)
��
�)�l%:ș"Wimp_CloseDown",e%,&4B534154:�
����k:!q%=�:$(q%+4)=�$+" (internal code "+Þ+"/"+�~�+")."+�0:ș"Wimp_ReportError",q%,1,"Icon Box":ș"Wimp_CloseDown",e%,&4B534154:�
��
����b:ș"Wimp_OpenTemplate",,"<files$Dir>.^.Templates":ș"Wimp_LoadTemplate",,q%,k%,m%,-1,"ICONBOX",0:q%!24=-1:q%!28=q%!28�2:ș"Wimp_CreateWindow",,q%�n%:ș"Wimp_CloseTemplate":�
�X��j(c$):$h%=(c$)+�0:q%!0=-1:q%!4=r%:q%!8=0:q%!12=0:ș"Wimp_SetIconState",,q%:Ȗ:Ȗ:�
����c:�a% 37120:!a%=37120:a%!4=0::a%!8=16::a%!12=16:�a("BOX"):�h% 4::$h%="screen1"+�0+�0:q%!0=-1:q%!4=-20:q%!8=-22:q%!12=152:q%!16=168:q%!20=-16764670:q%!24=h%::q%!28=a%:q%!32=�($h%)+1:ș"Wimp_CreateIcon",,q%�r%:�
�q��i(q%):�j%,a$:a$=�255," "):ș"Wimp_DecodeMenu",,c%,q%,a$�,,,a$:ș"Wimp_GetPointerInfo",,q%:j%=(q%!8=1):Ȏa$�
�-�"Others.Box":                  �a("Box")
�/�"Others.Slope":                �a("Slope")
�/�"Others.Twirl":                �a("Twirl")
�,�"Others.CW":                   �a("CW")
-�"Others.Spare-1":� f%>0 � :�a("Spare-1")
�"Quit":l%=�:j%=�
+�:�j%�ș"Wimp_CreateMenu",,c%,q%!0,q%!4
"�
,���d:�p%,o%:$c%="Animation":c%!12=459271:c%!16=160:c%!20=40:c%!24=0:p%=c%+28:p%!0=0:p%!4=n%:p%!8=&7000021:$(p%+12)="Info":p%+=24:p%!0=0:p%!4=d%:p%!8=&7000021:$(p%+12)="Others":p%+=24
6�p%!0=128:p%!4=-1:p%!8=&7000021:$(p%+12)="Quit":p%+=24:$d%="More":d%!12=459271:d%!16=160:d%!20=40:d%!24=0:o%=d%+28:o%!0=0:o%!4=-1:o%!8=&7000021:$(o%+12)="Box":o%+=24:o%!0=0:o%!4=-1:o%!8=&7000021:$(o%+12)="Slope":o%+=24
@�o%!0=0:o%!4=-1:o%!8=&7000021:$(o%+12)="Twirl":o%+=24:o%!0=0:o%!4=-1:o%!8=&7000021:$(o%+12)="CW":o%+=24:o%!0=&80:o%!4=-1:o%!8=&7000021:$(o%+12)="Spare-1":o%+=24:�
JB��h(q%):�q%!8=2�q%!12=-2�ș"Wimp_CreateMenu",,c%,q%!0-64,218:�
T�
^�:�
h�A=�(5):�A=1$(q%+4)="Oy! that hurt.  How would you like it if I stuck a big Pointy thing in you!":ș"Wimp_ReportError",q%,0,"Icon Box"
ro�A=2$(q%+4)="Will you leave me alone!  Pick on someone your own size!":ș"Wimp_ReportError",q%,0,"Icon Box"
|m�A=3$(q%+4)="Poke the Icon next to me.  But please leave me alone!!":ș"Wimp_ReportError",q%,0,"Icon Box"
�S�A=4$(q%+4)="Not now I've got a head Ache":ș"Wimp_ReportError",q%,0,"Icon Box"
�e�A=5$(q%+4)="Stop it or I'll do a 'FILECORE IN USE' on you!":ș"Wimp_ReportError",q%,0,"Icon Box"
��
�-��f:�j("screen"+�g%):g%=g%+1:�g%>=11�g%=1
��
���a(b$)
�"�::�b$="Spare-1" � � � 
�ș"OS_SpriteOp",256+9,a%
�'!a%=37120:a%!4=0::a%!8=16::a%!12=16
�*ș"OS_File",255,"<files$Dir>."+b$,a%+4
��
�3��e:ș"OS_ReadModeVariable",-1,3�,,b%:�b%=63��
��$(q%+4)="I'deally suited to MODE 15.  Going to change from mode "+��+" to Mode 15"+�0:ș"Wimp_ReportError",q%,19,"Icon Box"�,a:�a=2�ș"Wimp_CloseDown",e%,&4B534154:�
�a=1�ș"Wimp_SetMode",15
�
3��g:ș"OS_ReadModeVariable",-1,3�,,b%:�b%=63��
&��b%<>63�$(q%+4)="Don't look my best in this Mode! Okay to continue but lose me, Cancel to go to mode 15."+�0:ș"Wimp_ReportError",q%,19,"Icon Box"�,a:�a=1�ș"Wimp_CloseDown",e%,&4B534154:�
0�a=2�ș"Wimp_SetMode",15
:�
D��receive(q%)
NȎ q%!16 �
X
� 0 :l%=�
b�
l�
�

00000000  0d 00 0a 10 f4 3e 20 21  52 75 6e 49 6d 61 67 65  |.....> !RunImage|
00000010  0d 00 14 3f f4 20 53 6f  72 72 79 20 61 62 6f 75  |...?. Sorry abou|
00000020  74 20 6e 6f 74 20 71 75  69 74 74 69 6e 67 20 66  |t not quitting f|
00000030  72 6f 6d 20 54 61 73 6b  20 4d 61 6e 61 67 65 72  |rom Task Manager|
00000040  2e 20 20 43 6f 6e 66 75  73 65 64 20 6d 65 21 0d  |.  Confused me!.|
00000050  00 1e 90 f4 20 28 43 29  20 41 42 59 53 53 20 53  |.... (C) ABYSS S|
00000060  6f 66 74 77 61 72 65 20  2d 20 4e 6f 74 68 69 6e  |oftware - Nothin|
00000070  67 20 6d 61 79 20 62 65  20 73 6f 6c 64 20 6f 72  |g may be sold or|
00000080  20 63 68 61 6e 67 65 64  20 69 6e 20 74 68 69 73  | changed in this|
00000090  20 61 70 70 6c 69 63 61  74 69 6f 6e 20 62 75 74  | application but|
000000a0  20 63 6f 70 79 69 6e 67  20 6c 65 6e 64 69 6e 67  | copying lending|
000000b0  20 69 73 20 61 6c 6c 6f  77 65 64 2e 20 20 49 6e  | is allowed.  In|
000000c0  20 6f 74 68 65 72 20 77  6f 72 64 73 20 69 74 73  | other words its|
000000d0  20 50 75 62 6c 69 63 20  44 6f 6d 61 69 6e 2e 0d  | Public Domain..|
000000e0  00 28 04 0d 00 32 3b de  71 25 20 31 39 30 30 2c  |.(...2;.q% 1900,|
000000f0  6b 25 20 32 30 30 3a 6d  25 3d 6b 25 2b 33 30 30  |k% 200:m%=k%+300|
00000100  3a 65 25 3d 30 3a 63 25  3d 71 25 2b 33 30 30 3a  |:e%=0:c%=q%+300:|
00000110  64 25 3d 63 25 2b 33 30  30 3a 66 25 3d 30 0d 00  |d%=c%+300:f%=0..|
00000120  3c 3f c8 99 22 4f 53 5f  46 69 6c 65 22 2c 35 2c  |<?.."OS_File",5,|
00000130  22 3c 66 69 6c 65 73 24  44 69 72 3e 2e 53 70 61  |"<files$Dir>.Spa|
00000140  72 65 2d 31 22 20 b8 20  63 3a e7 20 63 3d 31 20  |re-1" . c:. c=1 |
00000150  8c 20 66 25 3d 31 20 8b  20 66 25 3d 30 0d 00 46  |. f%=1 . f%=0..F|
00000160  04 0d 00 50 be d1 3d 30  3a 67 25 3d 31 3a 69 25  |...P..=0:g%=1:i%|
00000170  3d 30 3a 6c 25 3d a3 3a  73 25 3d a3 3a 62 3d 30  |=0:l%=.:s%=.:b=0|
00000180  3a 64 3d 30 3a 61 3d 30  3a c8 99 22 57 69 6d 70  |:d=0:a=0:.."Wimp|
00000190  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 32 30 30  |_Initialise",200|
000001a0  2c 26 34 42 35 33 34 31  35 34 2c 22 42 6f 78 20  |,&4B534154,"Box |
000001b0  41 6e 69 6d 61 74 69 6f  6e 22 b8 65 25 3a f2 62  |Animation".e%:.b|
000001c0  3a f2 63 3a f2 64 3a f2  65 3a c8 99 22 4f 53 5f  |:.c:.d:.e:.."OS_|
000001d0  52 65 61 64 4d 6f 6e 6f  74 6f 6e 69 63 54 69 6d  |ReadMonotonicTim|
000001e0  65 22 b8 69 25 3a c8 95  28 69 25 2d 62 29 3e 30  |e".i%:..(i%-b)>0|
000001f0  3a 62 3d 69 25 2b 31 30  30 3a ce 3a f5 3a c8 99  |:b=i%+100:.:.:..|
00000200  22 57 69 6d 70 5f 50 6f  6c 6c 49 64 6c 65 22 2c  |"Wimp_PollIdle",|
00000210  30 2c 71 25 2c 62 b8 41  25 3a c8 8e 41 25 ca 0d  |0,q%,b.A%:..A%..|
00000220  00 5a 13 c9 30 3a e7 62  3e 33 30 30 8c f2 66 3a  |.Z..0:.b>300..f:|
00000230  f2 67 0d 00 64 1e c9 32  3a c8 99 22 57 69 6d 70  |.g..d..2:.."Wimp|
00000240  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 71 25  |_OpenWindow",,q%|
00000250  0d 00 6e 0d c9 36 3a f2  68 28 71 25 29 0d 00 78  |..n..6:.h(q%)..x|
00000260  0d c9 39 3a f2 69 28 71  25 29 0d 00 82 19 c9 20  |..9:.i(q%)..... |
00000270  31 37 2c 31 38 20 3a f2  72 65 63 65 69 76 65 28  |17,18 :.receive(|
00000280  71 25 29 0d 00 8c 05 cb  0d 00 96 29 fd 6c 25 3a  |q%)........).l%:|
00000290  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |.."Wimp_CloseDow|
000002a0  6e 22 2c 65 25 2c 26 34  42 35 33 34 31 35 34 3a  |n",e%,&4B534154:|
000002b0  e0 0d 00 a0 85 dd f2 6b  3a 21 71 25 3d 9f 3a 24  |.......k:!q%=.:$|
000002c0  28 71 25 2b 34 29 3d f6  24 2b 22 20 28 69 6e 74  |(q%+4)=.$+" (int|
000002d0  65 72 6e 61 6c 20 63 6f  64 65 20 22 2b c3 9e 2b  |ernal code "+..+|
000002e0  22 2f 22 2b c3 7e 9f 2b  22 29 2e 22 2b bd 30 3a  |"/"+.~.+")."+.0:|
000002f0  c8 99 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |.."Wimp_ReportEr|
00000300  72 6f 72 22 2c 71 25 2c  31 2c 22 49 63 6f 6e 20  |ror",q%,1,"Icon |
00000310  42 6f 78 22 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  |Box":.."Wimp_Clo|
00000320  73 65 44 6f 77 6e 22 2c  65 25 2c 26 34 42 35 33  |seDown",e%,&4B53|
00000330  34 31 35 34 3a e0 0d 00  aa 05 e1 0d 00 b4 b4 dd  |4154:...........|
00000340  f2 62 3a c8 99 22 57 69  6d 70 5f 4f 70 65 6e 54  |.b:.."Wimp_OpenT|
00000350  65 6d 70 6c 61 74 65 22  2c 2c 22 3c 66 69 6c 65  |emplate",,"<file|
00000360  73 24 44 69 72 3e 2e 5e  2e 54 65 6d 70 6c 61 74  |s$Dir>.^.Templat|
00000370  65 73 22 3a c8 99 22 57  69 6d 70 5f 4c 6f 61 64  |es":.."Wimp_Load|
00000380  54 65 6d 70 6c 61 74 65  22 2c 2c 71 25 2c 6b 25  |Template",,q%,k%|
00000390  2c 6d 25 2c 2d 31 2c 22  49 43 4f 4e 42 4f 58 22  |,m%,-1,"ICONBOX"|
000003a0  2c 30 3a 71 25 21 32 34  3d 2d 31 3a 71 25 21 32  |,0:q%!24=-1:q%!2|
000003b0  38 3d 71 25 21 32 38 84  32 3a c8 99 22 57 69 6d  |8=q%!28.2:.."Wim|
000003c0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
000003d0  2c 71 25 b8 6e 25 3a c8  99 22 57 69 6d 70 5f 43  |,q%.n%:.."Wimp_C|
000003e0  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 3a e1 0d  |loseTemplate":..|
000003f0  00 be 58 dd f2 6a 28 63  24 29 3a 24 68 25 3d 28  |..X..j(c$):$h%=(|
00000400  63 24 29 2b bd 30 3a 71  25 21 30 3d 2d 31 3a 71  |c$)+.0:q%!0=-1:q|
00000410  25 21 34 3d 72 25 3a 71  25 21 38 3d 30 3a 71 25  |%!4=r%:q%!8=0:q%|
00000420  21 31 32 3d 30 3a c8 99  22 57 69 6d 70 5f 53 65  |!12=0:.."Wimp_Se|
00000430  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 3a  |tIconState",,q%:|
00000440  c8 96 3a c8 96 3a e1 0d  00 c8 d7 dd f2 63 3a de  |..:..:.......c:.|
00000450  61 25 20 33 37 31 32 30  3a 21 61 25 3d 33 37 31  |a% 37120:!a%=371|
00000460  32 30 3a 61 25 21 34 3d  30 3a 3a 61 25 21 38 3d  |20:a%!4=0::a%!8=|
00000470  31 36 3a 3a 61 25 21 31  32 3d 31 36 3a f2 61 28  |16::a%!12=16:.a(|
00000480  22 42 4f 58 22 29 3a de  68 25 20 34 3a 3a 24 68  |"BOX"):.h% 4::$h|
00000490  25 3d 22 73 63 72 65 65  6e 31 22 2b bd 30 2b bd  |%="screen1"+.0+.|
000004a0  30 3a 71 25 21 30 3d 2d  31 3a 71 25 21 34 3d 2d  |0:q%!0=-1:q%!4=-|
000004b0  32 30 3a 71 25 21 38 3d  2d 32 32 3a 71 25 21 31  |20:q%!8=-22:q%!1|
000004c0  32 3d 31 35 32 3a 71 25  21 31 36 3d 31 36 38 3a  |2=152:q%!16=168:|
000004d0  71 25 21 32 30 3d 2d 31  36 37 36 34 36 37 30 3a  |q%!20=-16764670:|
000004e0  71 25 21 32 34 3d 68 25  3a 3a 71 25 21 32 38 3d  |q%!24=h%::q%!28=|
000004f0  61 25 3a 71 25 21 33 32  3d a9 28 24 68 25 29 2b  |a%:q%!32=.($h%)+|
00000500  31 3a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |1:.."Wimp_Create|
00000510  49 63 6f 6e 22 2c 2c 71  25 b8 72 25 3a e1 0d 00  |Icon",,q%.r%:...|
00000520  d2 71 dd f2 69 28 71 25  29 3a ea 6a 25 2c 61 24  |.q..i(q%):.j%,a$|
00000530  3a 61 24 3d c4 32 35 35  2c 22 20 22 29 3a c8 99  |:a$=.255," "):..|
00000540  22 57 69 6d 70 5f 44 65  63 6f 64 65 4d 65 6e 75  |"Wimp_DecodeMenu|
00000550  22 2c 2c 63 25 2c 71 25  2c 61 24 b8 2c 2c 2c 61  |",,c%,q%,a$.,,,a|
00000560  24 3a c8 99 22 57 69 6d  70 5f 47 65 74 50 6f 69  |$:.."Wimp_GetPoi|
00000570  6e 74 65 72 49 6e 66 6f  22 2c 2c 71 25 3a 6a 25  |nterInfo",,q%:j%|
00000580  3d 28 71 25 21 38 3d 31  29 3a c8 8e 61 24 ca 0d  |=(q%!8=1):..a$..|
00000590  00 dc 2d c9 22 4f 74 68  65 72 73 2e 42 6f 78 22  |..-."Others.Box"|
000005a0  3a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |:               |
000005b0  20 20 20 f2 61 28 22 42  6f 78 22 29 0d 00 e6 2f  |   .a("Box").../|
000005c0  c9 22 4f 74 68 65 72 73  2e 53 6c 6f 70 65 22 3a  |."Others.Slope":|
000005d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000005e0  f2 61 28 22 53 6c 6f 70  65 22 29 0d 00 f0 2f c9  |.a("Slope").../.|
000005f0  22 4f 74 68 65 72 73 2e  54 77 69 72 6c 22 3a 20  |"Others.Twirl": |
00000600  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 f2  |               .|
00000610  61 28 22 54 77 69 72 6c  22 29 0d 00 fa 2c c9 22  |a("Twirl")...,."|
00000620  4f 74 68 65 72 73 2e 43  57 22 3a 20 20 20 20 20  |Others.CW":     |
00000630  20 20 20 20 20 20 20 20  20 20 20 20 20 20 f2 61  |              .a|
00000640  28 22 43 57 22 29 0d 01  04 2d c9 22 4f 74 68 65  |("CW")...-."Othe|
00000650  72 73 2e 53 70 61 72 65  2d 31 22 3a e7 20 66 25  |rs.Spare-1":. f%|
00000660  3e 30 20 8c 20 3a f2 61  28 22 53 70 61 72 65 2d  |>0 . :.a("Spare-|
00000670  31 22 29 0d 01 0e 15 c9  22 51 75 69 74 22 3a 6c  |1")....."Quit":l|
00000680  25 3d b9 3a 6a 25 3d a3  0d 01 18 2b cb 3a e7 6a  |%=.:j%=....+.:.j|
00000690  25 8c c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |%..."Wimp_Create|
000006a0  4d 65 6e 75 22 2c 2c 63  25 2c 71 25 21 30 2c 71  |Menu",,c%,q%!0,q|
000006b0  25 21 34 0d 01 22 05 e1  0d 01 2c b9 dd f2 64 3a  |%!4.."....,...d:|
000006c0  ea 70 25 2c 6f 25 3a 24  63 25 3d 22 41 6e 69 6d  |.p%,o%:$c%="Anim|
000006d0  61 74 69 6f 6e 22 3a 63  25 21 31 32 3d 34 35 39  |ation":c%!12=459|
000006e0  32 37 31 3a 63 25 21 31  36 3d 31 36 30 3a 63 25  |271:c%!16=160:c%|
000006f0  21 32 30 3d 34 30 3a 63  25 21 32 34 3d 30 3a 70  |!20=40:c%!24=0:p|
00000700  25 3d 63 25 2b 32 38 3a  70 25 21 30 3d 30 3a 70  |%=c%+28:p%!0=0:p|
00000710  25 21 34 3d 6e 25 3a 70  25 21 38 3d 26 37 30 30  |%!4=n%:p%!8=&700|
00000720  30 30 32 31 3a 24 28 70  25 2b 31 32 29 3d 22 49  |0021:$(p%+12)="I|
00000730  6e 66 6f 22 3a 70 25 2b  3d 32 34 3a 70 25 21 30  |nfo":p%+=24:p%!0|
00000740  3d 30 3a 70 25 21 34 3d  64 25 3a 70 25 21 38 3d  |=0:p%!4=d%:p%!8=|
00000750  26 37 30 30 30 30 32 31  3a 24 28 70 25 2b 31 32  |&7000021:$(p%+12|
00000760  29 3d 22 4f 74 68 65 72  73 22 3a 70 25 2b 3d 32  |)="Others":p%+=2|
00000770  34 0d 01 36 dd 70 25 21  30 3d 31 32 38 3a 70 25  |4..6.p%!0=128:p%|
00000780  21 34 3d 2d 31 3a 70 25  21 38 3d 26 37 30 30 30  |!4=-1:p%!8=&7000|
00000790  30 32 31 3a 24 28 70 25  2b 31 32 29 3d 22 51 75  |021:$(p%+12)="Qu|
000007a0  69 74 22 3a 70 25 2b 3d  32 34 3a 24 64 25 3d 22  |it":p%+=24:$d%="|
000007b0  4d 6f 72 65 22 3a 64 25  21 31 32 3d 34 35 39 32  |More":d%!12=4592|
000007c0  37 31 3a 64 25 21 31 36  3d 31 36 30 3a 64 25 21  |71:d%!16=160:d%!|
000007d0  32 30 3d 34 30 3a 64 25  21 32 34 3d 30 3a 6f 25  |20=40:d%!24=0:o%|
000007e0  3d 64 25 2b 32 38 3a 6f  25 21 30 3d 30 3a 6f 25  |=d%+28:o%!0=0:o%|
000007f0  21 34 3d 2d 31 3a 6f 25  21 38 3d 26 37 30 30 30  |!4=-1:o%!8=&7000|
00000800  30 32 31 3a 24 28 6f 25  2b 31 32 29 3d 22 42 6f  |021:$(o%+12)="Bo|
00000810  78 22 3a 6f 25 2b 3d 32  34 3a 6f 25 21 30 3d 30  |x":o%+=24:o%!0=0|
00000820  3a 6f 25 21 34 3d 2d 31  3a 6f 25 21 38 3d 26 37  |:o%!4=-1:o%!8=&7|
00000830  30 30 30 30 32 31 3a 24  28 6f 25 2b 31 32 29 3d  |000021:$(o%+12)=|
00000840  22 53 6c 6f 70 65 22 3a  6f 25 2b 3d 32 34 0d 01  |"Slope":o%+=24..|
00000850  40 a5 6f 25 21 30 3d 30  3a 6f 25 21 34 3d 2d 31  |@.o%!0=0:o%!4=-1|
00000860  3a 6f 25 21 38 3d 26 37  30 30 30 30 32 31 3a 24  |:o%!8=&7000021:$|
00000870  28 6f 25 2b 31 32 29 3d  22 54 77 69 72 6c 22 3a  |(o%+12)="Twirl":|
00000880  6f 25 2b 3d 32 34 3a 6f  25 21 30 3d 30 3a 6f 25  |o%+=24:o%!0=0:o%|
00000890  21 34 3d 2d 31 3a 6f 25  21 38 3d 26 37 30 30 30  |!4=-1:o%!8=&7000|
000008a0  30 32 31 3a 24 28 6f 25  2b 31 32 29 3d 22 43 57  |021:$(o%+12)="CW|
000008b0  22 3a 6f 25 2b 3d 32 34  3a 6f 25 21 30 3d 26 38  |":o%+=24:o%!0=&8|
000008c0  30 3a 6f 25 21 34 3d 2d  31 3a 6f 25 21 38 3d 26  |0:o%!4=-1:o%!8=&|
000008d0  37 30 30 30 30 32 31 3a  24 28 6f 25 2b 31 32 29  |7000021:$(o%+12)|
000008e0  3d 22 53 70 61 72 65 2d  31 22 3a 6f 25 2b 3d 32  |="Spare-1":o%+=2|
000008f0  34 3a e1 0d 01 4a 42 dd  f2 68 28 71 25 29 3a e7  |4:...JB..h(q%):.|
00000900  71 25 21 38 3d 32 80 71  25 21 31 32 3d 2d 32 8c  |q%!8=2.q%!12=-2.|
00000910  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |.."Wimp_CreateMe|
00000920  6e 75 22 2c 2c 63 25 2c  71 25 21 30 2d 36 34 2c  |nu",,c%,q%!0-64,|
00000930  32 31 38 3a e1 0d 01 54  05 cd 0d 01 5e 07 cd 3a  |218:...T....^..:|
00000940  8b 0d 01 68 89 41 3d b3  28 35 29 3a e7 41 3d 31  |...h.A=.(5):.A=1|
00000950  24 28 71 25 2b 34 29 3d  22 4f 79 21 20 74 68 61  |$(q%+4)="Oy! tha|
00000960  74 20 68 75 72 74 2e 20  20 48 6f 77 20 77 6f 75  |t hurt.  How wou|
00000970  6c 64 20 79 6f 75 20 6c  69 6b 65 20 69 74 20 69  |ld you like it i|
00000980  66 20 49 20 73 74 75 63  6b 20 61 20 62 69 67 20  |f I stuck a big |
00000990  50 6f 69 6e 74 79 20 74  68 69 6e 67 20 69 6e 20  |Pointy thing in |
000009a0  79 6f 75 21 22 3a c8 99  22 57 69 6d 70 5f 52 65  |you!":.."Wimp_Re|
000009b0  70 6f 72 74 45 72 72 6f  72 22 2c 71 25 2c 30 2c  |portError",q%,0,|
000009c0  22 49 63 6f 6e 20 42 6f  78 22 0d 01 72 6f e7 41  |"Icon Box"..ro.A|
000009d0  3d 32 24 28 71 25 2b 34  29 3d 22 57 69 6c 6c 20  |=2$(q%+4)="Will |
000009e0  79 6f 75 20 6c 65 61 76  65 20 6d 65 20 61 6c 6f  |you leave me alo|
000009f0  6e 65 21 20 20 50 69 63  6b 20 6f 6e 20 73 6f 6d  |ne!  Pick on som|
00000a00  65 6f 6e 65 20 79 6f 75  72 20 6f 77 6e 20 73 69  |eone your own si|
00000a10  7a 65 21 22 3a c8 99 22  57 69 6d 70 5f 52 65 70  |ze!":.."Wimp_Rep|
00000a20  6f 72 74 45 72 72 6f 72  22 2c 71 25 2c 30 2c 22  |ortError",q%,0,"|
00000a30  49 63 6f 6e 20 42 6f 78  22 0d 01 7c 6d e7 41 3d  |Icon Box"..|m.A=|
00000a40  33 24 28 71 25 2b 34 29  3d 22 50 6f 6b 65 20 74  |3$(q%+4)="Poke t|
00000a50  68 65 20 49 63 6f 6e 20  6e 65 78 74 20 74 6f 20  |he Icon next to |
00000a60  6d 65 2e 20 20 42 75 74  20 70 6c 65 61 73 65 20  |me.  But please |
00000a70  6c 65 61 76 65 20 6d 65  20 61 6c 6f 6e 65 21 21  |leave me alone!!|
00000a80  22 3a c8 99 22 57 69 6d  70 5f 52 65 70 6f 72 74  |":.."Wimp_Report|
00000a90  45 72 72 6f 72 22 2c 71  25 2c 30 2c 22 49 63 6f  |Error",q%,0,"Ico|
00000aa0  6e 20 42 6f 78 22 0d 01  86 53 e7 41 3d 34 24 28  |n Box"...S.A=4$(|
00000ab0  71 25 2b 34 29 3d 22 4e  6f 74 20 6e 6f 77 20 49  |q%+4)="Not now I|
00000ac0  27 76 65 20 67 6f 74 20  61 20 68 65 61 64 20 41  |'ve got a head A|
00000ad0  63 68 65 22 3a c8 99 22  57 69 6d 70 5f 52 65 70  |che":.."Wimp_Rep|
00000ae0  6f 72 74 45 72 72 6f 72  22 2c 71 25 2c 30 2c 22  |ortError",q%,0,"|
00000af0  49 63 6f 6e 20 42 6f 78  22 0d 01 90 65 e7 41 3d  |Icon Box"...e.A=|
00000b00  35 24 28 71 25 2b 34 29  3d 22 53 74 6f 70 20 69  |5$(q%+4)="Stop i|
00000b10  74 20 6f 72 20 49 27 6c  6c 20 64 6f 20 61 20 27  |t or I'll do a '|
00000b20  46 49 4c 45 43 4f 52 45  20 49 4e 20 55 53 45 27  |FILECORE IN USE'|
00000b30  20 6f 6e 20 79 6f 75 21  22 3a c8 99 22 57 69 6d  | on you!":.."Wim|
00000b40  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c 71  |p_ReportError",q|
00000b50  25 2c 30 2c 22 49 63 6f  6e 20 42 6f 78 22 0d 01  |%,0,"Icon Box"..|
00000b60  9a 05 e1 0d 01 a4 2d dd  f2 66 3a f2 6a 28 22 73  |......-..f:.j("s|
00000b70  63 72 65 65 6e 22 2b c3  67 25 29 3a 67 25 3d 67  |creen"+.g%):g%=g|
00000b80  25 2b 31 3a e7 67 25 3e  3d 31 31 8c 67 25 3d 31  |%+1:.g%>=11.g%=1|
00000b90  0d 01 ae 05 e1 0d 01 b8  0b dd f2 61 28 62 24 29  |...........a(b$)|
00000ba0  0d 01 c2 22 ee 85 3a ee  85 87 3a e7 62 24 3d 22  |..."..:...:.b$="|
00000bb0  53 70 61 72 65 2d 31 22  20 8c 20 e1 20 8b 20 ee  |Spare-1" . . . .|
00000bc0  85 87 0d 01 cc 1c c8 99  22 4f 53 5f 53 70 72 69  |........"OS_Spri|
00000bd0  74 65 4f 70 22 2c 32 35  36 2b 39 2c 61 25 0d 01  |teOp",256+9,a%..|
00000be0  d6 27 21 61 25 3d 33 37  31 32 30 3a 61 25 21 34  |.'!a%=37120:a%!4|
00000bf0  3d 30 3a 3a 61 25 21 38  3d 31 36 3a 3a 61 25 21  |=0::a%!8=16::a%!|
00000c00  31 32 3d 31 36 0d 01 e0  2a c8 99 22 4f 53 5f 46  |12=16...*.."OS_F|
00000c10  69 6c 65 22 2c 32 35 35  2c 22 3c 66 69 6c 65 73  |ile",255,"<files|
00000c20  24 44 69 72 3e 2e 22 2b  62 24 2c 61 25 2b 34 0d  |$Dir>."+b$,a%+4.|
00000c30  01 ea 05 e1 0d 01 f4 33  dd f2 65 3a c8 99 22 4f  |.......3..e:.."O|
00000c40  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00000c50  6c 65 22 2c 2d 31 2c 33  b8 2c 2c 62 25 3a e7 62  |le",-1,3.,,b%:.b|
00000c60  25 3d 36 33 8c e1 8b 0d  01 fe a9 24 28 71 25 2b  |%=63.......$(q%+|
00000c70  34 29 3d 22 49 27 64 65  61 6c 6c 79 20 73 75 69  |4)="I'deally sui|
00000c80  74 65 64 20 74 6f 20 4d  4f 44 45 20 31 35 2e 20  |ted to MODE 15. |
00000c90  20 47 6f 69 6e 67 20 74  6f 20 63 68 61 6e 67 65  | Going to change|
00000ca0  20 66 72 6f 6d 20 6d 6f  64 65 20 22 2b c3 eb 2b  | from mode "+..+|
00000cb0  22 20 74 6f 20 4d 6f 64  65 20 31 35 22 2b bd 30  |" to Mode 15"+.0|
00000cc0  3a c8 99 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |:.."Wimp_ReportE|
00000cd0  72 72 6f 72 22 2c 71 25  2c 31 39 2c 22 49 63 6f  |rror",q%,19,"Ico|
00000ce0  6e 20 42 6f 78 22 b8 2c  61 3a e7 61 3d 32 8c c8  |n Box".,a:.a=2..|
00000cf0  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
00000d00  22 2c 65 25 2c 26 34 42  35 33 34 31 35 34 3a e0  |",e%,&4B534154:.|
00000d10  0d 02 08 1c e7 61 3d 31  8c c8 99 22 57 69 6d 70  |.....a=1..."Wimp|
00000d20  5f 53 65 74 4d 6f 64 65  22 2c 31 35 0d 02 12 05  |_SetMode",15....|
00000d30  e1 0d 02 1c 33 dd f2 67  3a c8 99 22 4f 53 5f 52  |....3..g:.."OS_R|
00000d40  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00000d50  2c 2d 31 2c 33 b8 2c 2c  62 25 3a e7 62 25 3d 36  |,-1,3.,,b%:.b%=6|
00000d60  33 8c e1 8b 0d 02 26 c0  e7 62 25 3c 3e 36 33 8c  |3.....&..b%<>63.|
00000d70  24 28 71 25 2b 34 29 3d  22 44 6f 6e 27 74 20 6c  |$(q%+4)="Don't l|
00000d80  6f 6f 6b 20 6d 79 20 62  65 73 74 20 69 6e 20 74  |ook my best in t|
00000d90  68 69 73 20 4d 6f 64 65  21 20 4f 6b 61 79 20 74  |his Mode! Okay t|
00000da0  6f 20 63 6f 6e 74 69 6e  75 65 20 62 75 74 20 6c  |o continue but l|
00000db0  6f 73 65 20 6d 65 2c 20  43 61 6e 63 65 6c 20 74  |ose me, Cancel t|
00000dc0  6f 20 67 6f 20 74 6f 20  6d 6f 64 65 20 31 35 2e  |o go to mode 15.|
00000dd0  22 2b bd 30 3a c8 99 22  57 69 6d 70 5f 52 65 70  |"+.0:.."Wimp_Rep|
00000de0  6f 72 74 45 72 72 6f 72  22 2c 71 25 2c 31 39 2c  |ortError",q%,19,|
00000df0  22 49 63 6f 6e 20 42 6f  78 22 b8 2c 61 3a e7 61  |"Icon Box".,a:.a|
00000e00  3d 31 8c c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |=1..."Wimp_Close|
00000e10  44 6f 77 6e 22 2c 65 25  2c 26 34 42 35 33 34 31  |Down",e%,&4B5341|
00000e20  35 34 3a e0 0d 02 30 1c  e7 61 3d 32 8c c8 99 22  |54:...0..a=2..."|
00000e30  57 69 6d 70 5f 53 65 74  4d 6f 64 65 22 2c 31 35  |Wimp_SetMode",15|
00000e40  0d 02 3a 05 e1 0d 02 44  11 dd f2 72 65 63 65 69  |..:....D...recei|
00000e50  76 65 28 71 25 29 0d 02  4e 0e c8 8e 20 71 25 21  |ve(q%)..N... q%!|
00000e60  31 36 20 ca 0d 02 58 0d  c9 20 30 20 3a 6c 25 3d  |16 ...X.. 0 :l%=|
00000e70  b9 0d 02 62 05 cb 0d 02  6c 05 e1 0d ff           |...b....l....|
00000e7d

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