!Mode/!RunImage

Home » Archimedes archive » Acorn User » Acorn User - Shareware Collection (1993).adf » Mode » !Mode/!RunImage

!Mode/!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 » Acorn User - Shareware Collection (1993).adf » Mode
Filename:	!Mode/!RunImage
Read OK:	✔
File size:	0F42 bytes
Load address:	0000
Exec address:	0000

File contents

    1ON ERROR PRINT "Error : "+REPORT$+" at line "+STR$ERL:END
    2DIM m% 288,indr% 206,q% 512,mbuf% 9:indr_end%=indr%+206:finished%=FALSE:minx%=88:miny%=52:maxx%=156:maxy%=208:corner%=FALSE:stuck%=FALSE:mtbc%=FALSE
    3SYS "Wimp_Initialise",200,&4B534154,"Mode" TO ,taskh%
    4
    5SYS "Wimp_OpenTemplate",,"<Mode$Dir>.Templates"
    6prog_info%=FNcreatewindow("prog_info")
    7main%=FNcreatewindow("main")
    8SYS "Wimp_CloseTemplate"
    9
   10OSCLI "Load <Mode$Dir>.Menus "+STR$~m%:m%!32=prog_info%:m%!56=m%+128:m%!80=m%+184:$mbuf%="a0-9":$(mbuf%+5)="":m%!168=mbuf%+5:m%!172=mbuf%:m%!176=4
   11
   12SYS "OS_GetEnv" TO s$
   13p%=INSTR(s$,"-minx"):IF p%>0 minx%=VALMID$(s$,p%+5)
   14p%=INSTR(s$,"-miny"):IF p%>0 miny%=VALMID$(s$,p%+5)
   15p%=INSTR(s$,"-maxx"):IF p%>0 maxx%=VALMID$(s$,p%+5)
   16p%=INSTR(s$,"-maxy"):IF p%>0 maxy%=VALMID$(s$,p%+5)
   17IF INSTR(s$,"-corner")>0 corner%=TRUE:m%!188=m%!188OR1
   18IF INSTR(s$,"-stuck")>0 stuck%=TRUE:m%!236=m%!236OR1
   19
   20entry%=0:REPEAT:SYS "OS_GBPB",10,"<Mode$Dir>.Modes",q%,1,entry%,2048,"*" TO ,,,,entry%:IF entry%<>-1 SYS "Wimp_StartTask","<Mode$Dir>.Modes."+$(q%+20):UNTIL entry%=-1
   21
   22PROCreadcmos:PROCshowmode:PROCopenup(1)
   23
   24ONERROR PROCerror
   25REPEAT
   26SYS "Wimp_Poll",49,q% TO reason%
   27CASE reason% OF
   28WHEN 1:SYS "Wimp_RedrawWindow",,q% TO more%:WHILE more%:SYS "Interface_Render3dWindow",,q%:SYS "Wimp_GetRectangle",,q% TO more%:ENDWHILE
   29WHEN 2:CASE !q% OF
   30WHEN main%:IF NOTstuck% maxx%=q%!12-q%!4:maxy%=q%!16-q%!8:SYS "Wimp_OpenWindow",,q%
   31IF mtbc% PROCopenup(0):mtbc%=FALSE
   32WHEN prog_info%:SYS "Wimp_OpenWindow",,q%
   33ENDCASE
   34WHEN 6:CASE q%!12 OF
   35WHEN main%:CASE q%!8 OF
   36WHEN 4:IF q%!16>0 THEN
   37SYS "Interface_SlabButton",,q%:SYS "Wimp_SetMode",VAL($FNtextaddr(q%!12,q%!16)):q%!8=0:SYS "Interface_SlabButton",,q%
   38ELSE IF NOTstuck% !q%=main%:q%!4=1:SYS "Wimp_DragBox",,q%
   39ENDIF
   40WHEN 2:wi%=q%!12:ic%=q%!16:IF ic%<0 m%!60=&7400021 ELSE m%!60=&7000021
   41IF ic%<>0 SYS "Wimp_CreateMenu",,m%,!q%-48,q%!4
   42WHEN 1:IF q%!16>0 AND q%!16<9 q%!4=2 ELSE q%!4=1
   43IF NOTstuck% !q%=main%:SYS "Wimp_DragBox",,q%
   44ENDCASE
   45ENDCASE
   46WHEN 9:CASE !q% OF
   47WHEN 1:mode$=$(mbuf%+5):IF mode$<>"" AND VALmode$<128 $FNtextaddr(wi%,ic%)=mode$:PROCseticonstate(wi%,ic%,0,0):SYS "OS_Byte",162,ic%+35,VALmode$:PROCshowmode
   48$(mbuf%+5)=""
   49WHEN 2:CASE q%!4 OF
   50WHEN 0:m%!212=m%!212EOR1:corner%=NOTcorner%:IF corner% PROCopenup(0)
   51WHEN 1:m%!236=m%!236EOR1:stuck%=NOTstuck%
   52ENDCASE
   53WHEN 3:finished%=TRUE
   54ENDCASE
   55SYS "Wimp_GetPointerInfo",,q%+256:IF q%!264=1 SYS "Wimp_CreateMenu",,m%,(q%!256)-48,q%!260
   56WHEN 17,18:CASE q%!16 OF
   57WHEN 0:finished%=TRUE
   58WHEN 10:PROCdesktopsave
   59WHEN &400C1:PROCshowmode:IF corner% mtbc%=TRUE
   60ENDCASE
   61ENDCASE
   62UNTIL finished%
   63SYS "Wimp_CloseDown",taskh%,&4B534154
   64END
   65
   66DEF PROCreadcmos:FOR b%=1 TO 8:SYS "OS_Byte",161,b%+35 TO ,,a%:$FNtextaddr(main%,b%)=STR$a%:NEXT:ENDPROC
   67
   68DEF PROCshowmode:FOR icn%=1 TO 8:IF MODE=VAL($FNtextaddr(main%,icn%)) PROCseticonstate(main%,icn%,&8000000,&C000000) ELSE PROCseticonstate(main%,icn%,&4000000,&C000000)
   69NEXT:ENDPROC
   70
   71DEF PROCdesktopsave
   72SYS "OS_ReadVarVal","Mode$Dir",q%+256,256,0,3 TO ,,e%:?(q%+256+e%)=13
   73BPUT#q%!20,"Run "+$(q%+256)+" -minx88 -miny52 -maxx"+STR$maxx%+" -maxy"+STR$maxy%;
   74IF corner% BPUT#q%!20," -corner";
   75IF stuck% BPUT#q%!20," -stuck";
   76BPUT#q%!20,""
   77ENDPROC
   78
   79DEF PROCopenup(t%)
   80q%!256=4:q%!260=5:q%!264=11:q%!268=12:q%!272=-1:SYS "OS_ReadVduVariables",q%+256,q%+256:osx%=(q%!264+1)<<q%!256:osy%=(q%!268+1)<<q%!260
   81q%!256=main%:SYS "Wimp_GetWindowState",,q%+256:q%!260=osx%-maxx%-2:q%!264=osy%-maxy%-4:q%!268=osx%-2:q%!272=osy%-4:IF t%=1 q%!284=-1
   82SYS "Wimp_OpenWindow",,q%+256
   83ENDPROC
   84
   85DEF PROCseticonstate(wind%,icon%,eor%,clear%):q%!256=wind%:q%!260=icon%:q%!264=eor%:q%!268=clear%:SYS "Wimp_SetIconState",,q%+256:ENDPROC
   86
   87DEF FNtextaddr(wind%,icon%):q%!256=wind%:q%!260=icon%:SYS "Wimp_GetIconState",,q%+256:=q%!284
   88
   89DEF FNcreatewindow(temp$):SYS "Wimp_LoadTemplate",,q%,indr%,indr_end%,-1,temp$,0 TO ,,indr%:IF temp$="main" q%?68=minx%MOD256:q%?69=minx%DIV256:q%?70=miny%MOD256:q%?71=miny%DIV256
   90SYS "Wimp_CreateWindow",,q% TO hand%:=hand%
   91
   92DEF PROCerror:flg%=3:IF ERR=668 flg%=1:q%!8=0:SYS "Interface_SlabButton",,q%
   93!q%=ERR:$(q%+4)=REPORT$+" (IEC "+STR$ERL+")"+CHR$0:SYS "Wimp_ReportError",q%,flg%,"Mode" TO ,b%:IF b%=2 SYS "Wimp_CloseDown",taskh%,&4B534154:END
   94ENDPROC

(� � � "Error : "+�$+" at line "+Þ:�
�� m% 288,indr% 206,q% 512,mbuf% 9:indr_end%=indr%+206:finished%=�:minx%=88:miny%=52:maxx%=156:maxy%=208:corner%=�:stuck%=�:mtbc%=�
7ș "Wimp_Initialise",200,&4B534154,"Mode" � ,taskh%

2ș "Wimp_OpenTemplate",,"<Mode$Dir>.Templates"
)prog_info%=�createwindow("prog_info")
main%=�createwindow("main")
ș "Wimp_CloseTemplate"
	

�� "Load <Mode$Dir>.Menus "+�~m%:m%!32=prog_info%:m%!56=m%+128:m%!80=m%+184:$mbuf%="a0-9":$(mbuf%+5)="":m%!168=mbuf%+5:m%!172=mbuf%:m%!176=4

ș "OS_GetEnv" � s$

+p%=�s$,"-minx"):� p%>0 minx%=��s$,p%+5)
+p%=�s$,"-miny"):� p%>0 miny%=��s$,p%+5)
+p%=�s$,"-maxx"):� p%>0 maxx%=��s$,p%+5)
+p%=�s$,"-maxy"):� p%>0 maxy%=��s$,p%+5)
0� �s$,"-corner")>0 corner%=�:m%!188=m%!188�1
.� �s$,"-stuck")>0 stuck%=�:m%!236=m%!236�1

�entry%=0:�:ș "OS_GBPB",10,"<Mode$Dir>.Modes",q%,1,entry%,2048,"*" � ,,,,entry%:� entry%<>-1 ș "Wimp_StartTask","<Mode$Dir>.Modes."+$(q%+20):� entry%=-1

"�readcmos:�showmode:�openup(1)


� �error
�
"ș "Wimp_Poll",49,q% � reason%
Ȏ reason% �
z� 1:ș "Wimp_RedrawWindow",,q% � more%:ȕ more%:ș "Interface_Render3dWindow",,q%:ș "Wimp_GetRectangle",,q% � more%:�
� 2:Ȏ !q% �
P� main%:� �stuck% maxx%=q%!12-q%!4:maxy%=q%!16-q%!8:ș "Wimp_OpenWindow",,q%
� mtbc% �openup(0):mtbc%=�
 )� prog_info%:ș "Wimp_OpenWindow",,q%
!�
"� 6:Ȏ q%!12 �
#� main%:Ȏ q%!8 �
$� 4:� q%!16>0 �
%sș "Interface_SlabButton",,q%:ș "Wimp_SetMode",�($�textaddr(q%!12,q%!16)):q%!8=0:ș "Interface_SlabButton",,q%
&6� � �stuck% !q%=main%:q%!4=1:ș "Wimp_DragBox",,q%
'�
(C� 2:wi%=q%!12:ic%=q%!16:� ic%<0 m%!60=&7400021 � m%!60=&7000021
)1� ic%<>0 ș "Wimp_CreateMenu",,m%,!q%-48,q%!4
*+� 1:� q%!16>0 � q%!16<9 q%!4=2 � q%!4=1
+-� �stuck% !q%=main%:ș "Wimp_DragBox",,q%
,�
-�
.� 9:Ȏ !q% �
/�� 1:mode$=$(mbuf%+5):� mode$<>"" � �mode$<128 $�textaddr(wi%,ic%)=mode$:�seticonstate(wi%,ic%,0,0):ș "OS_Byte",162,ic%+35,�mode$:�showmode
0$(mbuf%+5)=""
1� 2:Ȏ q%!4 �
2=� 0:m%!212=m%!212�1:corner%=�corner%:� corner% �openup(0)
3&� 1:m%!236=m%!236�1:stuck%=�stuck%
4�
5� 3:finished%=�
6�
7[ș "Wimp_GetPointerInfo",,q%+256:� q%!264=1 ș "Wimp_CreateMenu",,m%,(q%!256)-48,q%!260
8� 17,18:Ȏ q%!16 �
9� 0:finished%=�
:� 10:�desktopsave
;(� &400C1:�showmode:� corner% mtbc%=�
<�
=�
>� finished%
?(ș "Wimp_CloseDown",taskh%,&4B534154
@�
A
BU� �readcmos:� b%=1 � 8:ș "OS_Byte",161,b%+35 � ,,a%:$�textaddr(main%,b%)=�a%:�:�
C
D�� �showmode:� icn%=1 � 8:� �=�($�textaddr(main%,icn%)) �seticonstate(main%,icn%,&8000000,&C000000) � �seticonstate(main%,icn%,&4000000,&C000000)
E�:�
F
G� �desktopsave
HGș "OS_ReadVarVal","Mode$Dir",q%+256,256,0,3 � ,,e%:?(q%+256+e%)=13
IM�#q%!20,"Run "+$(q%+256)+" -minx88 -miny52 -maxx"+�maxx%+" -maxy"+�maxy%;
J!� corner% �#q%!20," -corner";
K� stuck% �#q%!20," -stuck";
L�#q%!20,""
M�
N
O� �openup(t%)
P�q%!256=4:q%!260=5:q%!264=11:q%!268=12:q%!272=-1:ș "OS_ReadVduVariables",q%+256,q%+256:osx%=(q%!264+1)<<q%!256:osy%=(q%!268+1)<<q%!260
Q�q%!256=main%:ș "Wimp_GetWindowState",,q%+256:q%!260=osx%-maxx%-2:q%!264=osy%-maxy%-4:q%!268=osx%-2:q%!272=osy%-4:� t%=1 q%!284=-1
R ș "Wimp_OpenWindow",,q%+256
S�
T
U�� �seticonstate(wind%,icon%,eor%,clear%):q%!256=wind%:q%!260=icon%:q%!264=eor%:q%!268=clear%:ș "Wimp_SetIconState",,q%+256:�
V
W]� �textaddr(wind%,icon%):q%!256=wind%:q%!260=icon%:ș "Wimp_GetIconState",,q%+256:=q%!284
X
Y�� �createwindow(temp$):ș "Wimp_LoadTemplate",,q%,indr%,indr_end%,-1,temp$,0 � ,,indr%:� temp$="main" q%?68=minx%�256:q%?69=minx%�256:q%?70=miny%�256:q%?71=miny%�256
Z-ș "Wimp_CreateWindow",,q% � hand%:=hand%
[
\G� �error:flg%=3:� �=668 flg%=1:q%!8=0:ș "Interface_SlabButton",,q%
]�!q%=�:$(q%+4)=�$+" (IEC "+Þ+")"+�0:ș "Wimp_ReportError",q%,flg%,"Mode" � ,b%:� b%=2 ș "Wimp_CloseDown",taskh%,&4B534154:�
^�
�

00000000  0d 00 01 28 ee 20 85 20  f1 20 22 45 72 72 6f 72  |...(. . . "Error|
00000010  20 3a 20 22 2b f6 24 2b  22 20 61 74 20 6c 69 6e  | : "+.$+" at lin|
00000020  65 20 22 2b c3 9e 3a e0  0d 00 02 86 de 20 6d 25  |e "+..:...... m%|
00000030  20 32 38 38 2c 69 6e 64  72 25 20 32 30 36 2c 71  | 288,indr% 206,q|
00000040  25 20 35 31 32 2c 6d 62  75 66 25 20 39 3a 69 6e  |% 512,mbuf% 9:in|
00000050  64 72 5f 65 6e 64 25 3d  69 6e 64 72 25 2b 32 30  |dr_end%=indr%+20|
00000060  36 3a 66 69 6e 69 73 68  65 64 25 3d a3 3a 6d 69  |6:finished%=.:mi|
00000070  6e 78 25 3d 38 38 3a 6d  69 6e 79 25 3d 35 32 3a  |nx%=88:miny%=52:|
00000080  6d 61 78 78 25 3d 31 35  36 3a 6d 61 78 79 25 3d  |maxx%=156:maxy%=|
00000090  32 30 38 3a 63 6f 72 6e  65 72 25 3d a3 3a 73 74  |208:corner%=.:st|
000000a0  75 63 6b 25 3d a3 3a 6d  74 62 63 25 3d a3 0d 00  |uck%=.:mtbc%=...|
000000b0  03 37 c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |.7.. "Wimp_Initi|
000000c0  61 6c 69 73 65 22 2c 32  30 30 2c 26 34 42 35 33  |alise",200,&4B53|
000000d0  34 31 35 34 2c 22 4d 6f  64 65 22 20 b8 20 2c 74  |4154,"Mode" . ,t|
000000e0  61 73 6b 68 25 0d 00 04  04 0d 00 05 32 c8 99 20  |askh%.......2.. |
000000f0  22 57 69 6d 70 5f 4f 70  65 6e 54 65 6d 70 6c 61  |"Wimp_OpenTempla|
00000100  74 65 22 2c 2c 22 3c 4d  6f 64 65 24 44 69 72 3e  |te",,"<Mode$Dir>|
00000110  2e 54 65 6d 70 6c 61 74  65 73 22 0d 00 06 29 70  |.Templates"...)p|
00000120  72 6f 67 5f 69 6e 66 6f  25 3d a4 63 72 65 61 74  |rog_info%=.creat|
00000130  65 77 69 6e 64 6f 77 28  22 70 72 6f 67 5f 69 6e  |ewindow("prog_in|
00000140  66 6f 22 29 0d 00 07 1f  6d 61 69 6e 25 3d a4 63  |fo")....main%=.c|
00000150  72 65 61 74 65 77 69 6e  64 6f 77 28 22 6d 61 69  |reatewindow("mai|
00000160  6e 22 29 0d 00 08 1b c8  99 20 22 57 69 6d 70 5f  |n")...... "Wimp_|
00000170  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 0d 00  |CloseTemplate"..|
00000180  09 04 0d 00 0a 8f ff 20  22 4c 6f 61 64 20 3c 4d  |....... "Load <M|
00000190  6f 64 65 24 44 69 72 3e  2e 4d 65 6e 75 73 20 22  |ode$Dir>.Menus "|
000001a0  2b c3 7e 6d 25 3a 6d 25  21 33 32 3d 70 72 6f 67  |+.~m%:m%!32=prog|
000001b0  5f 69 6e 66 6f 25 3a 6d  25 21 35 36 3d 6d 25 2b  |_info%:m%!56=m%+|
000001c0  31 32 38 3a 6d 25 21 38  30 3d 6d 25 2b 31 38 34  |128:m%!80=m%+184|
000001d0  3a 24 6d 62 75 66 25 3d  22 61 30 2d 39 22 3a 24  |:$mbuf%="a0-9":$|
000001e0  28 6d 62 75 66 25 2b 35  29 3d 22 22 3a 6d 25 21  |(mbuf%+5)="":m%!|
000001f0  31 36 38 3d 6d 62 75 66  25 2b 35 3a 6d 25 21 31  |168=mbuf%+5:m%!1|
00000200  37 32 3d 6d 62 75 66 25  3a 6d 25 21 31 37 36 3d  |72=mbuf%:m%!176=|
00000210  34 0d 00 0b 04 0d 00 0c  17 c8 99 20 22 4f 53 5f  |4.......... "OS_|
00000220  47 65 74 45 6e 76 22 20  b8 20 73 24 0d 00 0d 2b  |GetEnv" . s$...+|
00000230  70 25 3d a7 73 24 2c 22  2d 6d 69 6e 78 22 29 3a  |p%=.s$,"-minx"):|
00000240  e7 20 70 25 3e 30 20 6d  69 6e 78 25 3d bb c1 73  |. p%>0 minx%=..s|
00000250  24 2c 70 25 2b 35 29 0d  00 0e 2b 70 25 3d a7 73  |$,p%+5)...+p%=.s|
00000260  24 2c 22 2d 6d 69 6e 79  22 29 3a e7 20 70 25 3e  |$,"-miny"):. p%>|
00000270  30 20 6d 69 6e 79 25 3d  bb c1 73 24 2c 70 25 2b  |0 miny%=..s$,p%+|
00000280  35 29 0d 00 0f 2b 70 25  3d a7 73 24 2c 22 2d 6d  |5)...+p%=.s$,"-m|
00000290  61 78 78 22 29 3a e7 20  70 25 3e 30 20 6d 61 78  |axx"):. p%>0 max|
000002a0  78 25 3d bb c1 73 24 2c  70 25 2b 35 29 0d 00 10  |x%=..s$,p%+5)...|
000002b0  2b 70 25 3d a7 73 24 2c  22 2d 6d 61 78 79 22 29  |+p%=.s$,"-maxy")|
000002c0  3a e7 20 70 25 3e 30 20  6d 61 78 79 25 3d bb c1  |:. p%>0 maxy%=..|
000002d0  73 24 2c 70 25 2b 35 29  0d 00 11 30 e7 20 a7 73  |s$,p%+5)...0. .s|
000002e0  24 2c 22 2d 63 6f 72 6e  65 72 22 29 3e 30 20 63  |$,"-corner")>0 c|
000002f0  6f 72 6e 65 72 25 3d b9  3a 6d 25 21 31 38 38 3d  |orner%=.:m%!188=|
00000300  6d 25 21 31 38 38 84 31  0d 00 12 2e e7 20 a7 73  |m%!188.1..... .s|
00000310  24 2c 22 2d 73 74 75 63  6b 22 29 3e 30 20 73 74  |$,"-stuck")>0 st|
00000320  75 63 6b 25 3d b9 3a 6d  25 21 32 33 36 3d 6d 25  |uck%=.:m%!236=m%|
00000330  21 32 33 36 84 31 0d 00  13 04 0d 00 14 9d 65 6e  |!236.1........en|
00000340  74 72 79 25 3d 30 3a f5  3a c8 99 20 22 4f 53 5f  |try%=0:.:.. "OS_|
00000350  47 42 50 42 22 2c 31 30  2c 22 3c 4d 6f 64 65 24  |GBPB",10,"<Mode$|
00000360  44 69 72 3e 2e 4d 6f 64  65 73 22 2c 71 25 2c 31  |Dir>.Modes",q%,1|
00000370  2c 65 6e 74 72 79 25 2c  32 30 34 38 2c 22 2a 22  |,entry%,2048,"*"|
00000380  20 b8 20 2c 2c 2c 2c 65  6e 74 72 79 25 3a e7 20  | . ,,,,entry%:. |
00000390  65 6e 74 72 79 25 3c 3e  2d 31 20 c8 99 20 22 57  |entry%<>-1 .. "W|
000003a0  69 6d 70 5f 53 74 61 72  74 54 61 73 6b 22 2c 22  |imp_StartTask","|
000003b0  3c 4d 6f 64 65 24 44 69  72 3e 2e 4d 6f 64 65 73  |<Mode$Dir>.Modes|
000003c0  2e 22 2b 24 28 71 25 2b  32 30 29 3a fd 20 65 6e  |."+$(q%+20):. en|
000003d0  74 72 79 25 3d 2d 31 0d  00 15 04 0d 00 16 22 f2  |try%=-1.......".|
000003e0  72 65 61 64 63 6d 6f 73  3a f2 73 68 6f 77 6d 6f  |readcmos:.showmo|
000003f0  64 65 3a f2 6f 70 65 6e  75 70 28 31 29 0d 00 17  |de:.openup(1)...|
00000400  04 0d 00 18 0d ee 85 20  f2 65 72 72 6f 72 0d 00  |....... .error..|
00000410  19 05 f5 0d 00 1a 22 c8  99 20 22 57 69 6d 70 5f  |......".. "Wimp_|
00000420  50 6f 6c 6c 22 2c 34 39  2c 71 25 20 b8 20 72 65  |Poll",49,q% . re|
00000430  61 73 6f 6e 25 0d 00 1b  10 c8 8e 20 72 65 61 73  |ason%...... reas|
00000440  6f 6e 25 20 ca 0d 00 1c  7a c9 20 31 3a c8 99 20  |on% ....z. 1:.. |
00000450  22 57 69 6d 70 5f 52 65  64 72 61 77 57 69 6e 64  |"Wimp_RedrawWind|
00000460  6f 77 22 2c 2c 71 25 20  b8 20 6d 6f 72 65 25 3a  |ow",,q% . more%:|
00000470  c8 95 20 6d 6f 72 65 25  3a c8 99 20 22 49 6e 74  |.. more%:.. "Int|
00000480  65 72 66 61 63 65 5f 52  65 6e 64 65 72 33 64 57  |erface_Render3dW|
00000490  69 6e 64 6f 77 22 2c 2c  71 25 3a c8 99 20 22 57  |indow",,q%:.. "W|
000004a0  69 6d 70 5f 47 65 74 52  65 63 74 61 6e 67 6c 65  |imp_GetRectangle|
000004b0  22 2c 2c 71 25 20 b8 20  6d 6f 72 65 25 3a ce 0d  |",,q% . more%:..|
000004c0  00 1d 10 c9 20 32 3a c8  8e 20 21 71 25 20 ca 0d  |.... 2:.. !q% ..|
000004d0  00 1e 50 c9 20 6d 61 69  6e 25 3a e7 20 ac 73 74  |..P. main%:. .st|
000004e0  75 63 6b 25 20 6d 61 78  78 25 3d 71 25 21 31 32  |uck% maxx%=q%!12|
000004f0  2d 71 25 21 34 3a 6d 61  78 79 25 3d 71 25 21 31  |-q%!4:maxy%=q%!1|
00000500  36 2d 71 25 21 38 3a c8  99 20 22 57 69 6d 70 5f  |6-q%!8:.. "Wimp_|
00000510  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |OpenWindow",,q%.|
00000520  00 1f 1e e7 20 6d 74 62  63 25 20 f2 6f 70 65 6e  |.... mtbc% .open|
00000530  75 70 28 30 29 3a 6d 74  62 63 25 3d a3 0d 00 20  |up(0):mtbc%=... |
00000540  29 c9 20 70 72 6f 67 5f  69 6e 66 6f 25 3a c8 99  |). prog_info%:..|
00000550  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000560  77 22 2c 2c 71 25 0d 00  21 05 cb 0d 00 22 12 c9  |w",,q%..!...."..|
00000570  20 36 3a c8 8e 20 71 25  21 31 32 20 ca 0d 00 23  | 6:.. q%!12 ...#|
00000580  15 c9 20 6d 61 69 6e 25  3a c8 8e 20 71 25 21 38  |.. main%:.. q%!8|
00000590  20 ca 0d 00 24 13 c9 20  34 3a e7 20 71 25 21 31  | ...$.. 4:. q%!1|
000005a0  36 3e 30 20 8c 0d 00 25  73 c8 99 20 22 49 6e 74  |6>0 ...%s.. "Int|
000005b0  65 72 66 61 63 65 5f 53  6c 61 62 42 75 74 74 6f  |erface_SlabButto|
000005c0  6e 22 2c 2c 71 25 3a c8  99 20 22 57 69 6d 70 5f  |n",,q%:.. "Wimp_|
000005d0  53 65 74 4d 6f 64 65 22  2c bb 28 24 a4 74 65 78  |SetMode",.($.tex|
000005e0  74 61 64 64 72 28 71 25  21 31 32 2c 71 25 21 31  |taddr(q%!12,q%!1|
000005f0  36 29 29 3a 71 25 21 38  3d 30 3a c8 99 20 22 49  |6)):q%!8=0:.. "I|
00000600  6e 74 65 72 66 61 63 65  5f 53 6c 61 62 42 75 74  |nterface_SlabBut|
00000610  74 6f 6e 22 2c 2c 71 25  0d 00 26 36 cc 20 e7 20  |ton",,q%..&6. . |
00000620  ac 73 74 75 63 6b 25 20  21 71 25 3d 6d 61 69 6e  |.stuck% !q%=main|
00000630  25 3a 71 25 21 34 3d 31  3a c8 99 20 22 57 69 6d  |%:q%!4=1:.. "Wim|
00000640  70 5f 44 72 61 67 42 6f  78 22 2c 2c 71 25 0d 00  |p_DragBox",,q%..|
00000650  27 05 cd 0d 00 28 43 c9  20 32 3a 77 69 25 3d 71  |'....(C. 2:wi%=q|
00000660  25 21 31 32 3a 69 63 25  3d 71 25 21 31 36 3a e7  |%!12:ic%=q%!16:.|
00000670  20 69 63 25 3c 30 20 6d  25 21 36 30 3d 26 37 34  | ic%<0 m%!60=&74|
00000680  30 30 30 32 31 20 8b 20  6d 25 21 36 30 3d 26 37  |00021 . m%!60=&7|
00000690  30 30 30 30 32 31 0d 00  29 31 e7 20 69 63 25 3c  |000021..)1. ic%<|
000006a0  3e 30 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |>0 .. "Wimp_Crea|
000006b0  74 65 4d 65 6e 75 22 2c  2c 6d 25 2c 21 71 25 2d  |teMenu",,m%,!q%-|
000006c0  34 38 2c 71 25 21 34 0d  00 2a 2b c9 20 31 3a e7  |48,q%!4..*+. 1:.|
000006d0  20 71 25 21 31 36 3e 30  20 80 20 71 25 21 31 36  | q%!16>0 . q%!16|
000006e0  3c 39 20 71 25 21 34 3d  32 20 8b 20 71 25 21 34  |<9 q%!4=2 . q%!4|
000006f0  3d 31 0d 00 2b 2d e7 20  ac 73 74 75 63 6b 25 20  |=1..+-. .stuck% |
00000700  21 71 25 3d 6d 61 69 6e  25 3a c8 99 20 22 57 69  |!q%=main%:.. "Wi|
00000710  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 71 25 0d  |mp_DragBox",,q%.|
00000720  00 2c 05 cb 0d 00 2d 05  cb 0d 00 2e 10 c9 20 39  |.,....-....... 9|
00000730  3a c8 8e 20 21 71 25 20  ca 0d 00 2f 8f c9 20 31  |:.. !q% .../.. 1|
00000740  3a 6d 6f 64 65 24 3d 24  28 6d 62 75 66 25 2b 35  |:mode$=$(mbuf%+5|
00000750  29 3a e7 20 6d 6f 64 65  24 3c 3e 22 22 20 80 20  |):. mode$<>"" . |
00000760  bb 6d 6f 64 65 24 3c 31  32 38 20 24 a4 74 65 78  |.mode$<128 $.tex|
00000770  74 61 64 64 72 28 77 69  25 2c 69 63 25 29 3d 6d  |taddr(wi%,ic%)=m|
00000780  6f 64 65 24 3a f2 73 65  74 69 63 6f 6e 73 74 61  |ode$:.seticonsta|
00000790  74 65 28 77 69 25 2c 69  63 25 2c 30 2c 30 29 3a  |te(wi%,ic%,0,0):|
000007a0  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 36 32  |.. "OS_Byte",162|
000007b0  2c 69 63 25 2b 33 35 2c  bb 6d 6f 64 65 24 3a f2  |,ic%+35,.mode$:.|
000007c0  73 68 6f 77 6d 6f 64 65  0d 00 30 11 24 28 6d 62  |showmode..0.$(mb|
000007d0  75 66 25 2b 35 29 3d 22  22 0d 00 31 11 c9 20 32  |uf%+5)=""..1.. 2|
000007e0  3a c8 8e 20 71 25 21 34  20 ca 0d 00 32 3d c9 20  |:.. q%!4 ...2=. |
000007f0  30 3a 6d 25 21 32 31 32  3d 6d 25 21 32 31 32 82  |0:m%!212=m%!212.|
00000800  31 3a 63 6f 72 6e 65 72  25 3d ac 63 6f 72 6e 65  |1:corner%=.corne|
00000810  72 25 3a e7 20 63 6f 72  6e 65 72 25 20 f2 6f 70  |r%:. corner% .op|
00000820  65 6e 75 70 28 30 29 0d  00 33 26 c9 20 31 3a 6d  |enup(0)..3&. 1:m|
00000830  25 21 32 33 36 3d 6d 25  21 32 33 36 82 31 3a 73  |%!236=m%!236.1:s|
00000840  74 75 63 6b 25 3d ac 73  74 75 63 6b 25 0d 00 34  |tuck%=.stuck%..4|
00000850  05 cb 0d 00 35 13 c9 20  33 3a 66 69 6e 69 73 68  |....5.. 3:finish|
00000860  65 64 25 3d b9 0d 00 36  05 cb 0d 00 37 5b c8 99  |ed%=...6....7[..|
00000870  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
00000880  72 49 6e 66 6f 22 2c 2c  71 25 2b 32 35 36 3a e7  |rInfo",,q%+256:.|
00000890  20 71 25 21 32 36 34 3d  31 20 c8 99 20 22 57 69  | q%!264=1 .. "Wi|
000008a0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
000008b0  6d 25 2c 28 71 25 21 32  35 36 29 2d 34 38 2c 71  |m%,(q%!256)-48,q|
000008c0  25 21 32 36 30 0d 00 38  16 c9 20 31 37 2c 31 38  |%!260..8.. 17,18|
000008d0  3a c8 8e 20 71 25 21 31  36 20 ca 0d 00 39 13 c9  |:.. q%!16 ...9..|
000008e0  20 30 3a 66 69 6e 69 73  68 65 64 25 3d b9 0d 00  | 0:finished%=...|
000008f0  3a 15 c9 20 31 30 3a f2  64 65 73 6b 74 6f 70 73  |:.. 10:.desktops|
00000900  61 76 65 0d 00 3b 28 c9  20 26 34 30 30 43 31 3a  |ave..;(. &400C1:|
00000910  f2 73 68 6f 77 6d 6f 64  65 3a e7 20 63 6f 72 6e  |.showmode:. corn|
00000920  65 72 25 20 6d 74 62 63  25 3d b9 0d 00 3c 05 cb  |er% mtbc%=...<..|
00000930  0d 00 3d 05 cb 0d 00 3e  0f fd 20 66 69 6e 69 73  |..=....>.. finis|
00000940  68 65 64 25 0d 00 3f 28  c8 99 20 22 57 69 6d 70  |hed%..?(.. "Wimp|
00000950  5f 43 6c 6f 73 65 44 6f  77 6e 22 2c 74 61 73 6b  |_CloseDown",task|
00000960  68 25 2c 26 34 42 35 33  34 31 35 34 0d 00 40 05  |h%,&4B534154..@.|
00000970  e0 0d 00 41 04 0d 00 42  55 dd 20 f2 72 65 61 64  |...A...BU. .read|
00000980  63 6d 6f 73 3a e3 20 62  25 3d 31 20 b8 20 38 3a  |cmos:. b%=1 . 8:|
00000990  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 36 31  |.. "OS_Byte",161|
000009a0  2c 62 25 2b 33 35 20 b8  20 2c 2c 61 25 3a 24 a4  |,b%+35 . ,,a%:$.|
000009b0  74 65 78 74 61 64 64 72  28 6d 61 69 6e 25 2c 62  |textaddr(main%,b|
000009c0  25 29 3d c3 61 25 3a ed  3a e1 0d 00 43 04 0d 00  |%)=.a%:.:...C...|
000009d0  44 94 dd 20 f2 73 68 6f  77 6d 6f 64 65 3a e3 20  |D.. .showmode:. |
000009e0  69 63 6e 25 3d 31 20 b8  20 38 3a e7 20 eb 3d bb  |icn%=1 . 8:. .=.|
000009f0  28 24 a4 74 65 78 74 61  64 64 72 28 6d 61 69 6e  |($.textaddr(main|
00000a00  25 2c 69 63 6e 25 29 29  20 f2 73 65 74 69 63 6f  |%,icn%)) .setico|
00000a10  6e 73 74 61 74 65 28 6d  61 69 6e 25 2c 69 63 6e  |nstate(main%,icn|
00000a20  25 2c 26 38 30 30 30 30  30 30 2c 26 43 30 30 30  |%,&8000000,&C000|
00000a30  30 30 30 29 20 8b 20 f2  73 65 74 69 63 6f 6e 73  |000) . .seticons|
00000a40  74 61 74 65 28 6d 61 69  6e 25 2c 69 63 6e 25 2c  |tate(main%,icn%,|
00000a50  26 34 30 30 30 30 30 30  2c 26 43 30 30 30 30 30  |&4000000,&C00000|
00000a60  30 29 0d 00 45 07 ed 3a  e1 0d 00 46 04 0d 00 47  |0)..E..:...F...G|
00000a70  12 dd 20 f2 64 65 73 6b  74 6f 70 73 61 76 65 0d  |.. .desktopsave.|
00000a80  00 48 47 c8 99 20 22 4f  53 5f 52 65 61 64 56 61  |.HG.. "OS_ReadVa|
00000a90  72 56 61 6c 22 2c 22 4d  6f 64 65 24 44 69 72 22  |rVal","Mode$Dir"|
00000aa0  2c 71 25 2b 32 35 36 2c  32 35 36 2c 30 2c 33 20  |,q%+256,256,0,3 |
00000ab0  b8 20 2c 2c 65 25 3a 3f  28 71 25 2b 32 35 36 2b  |. ,,e%:?(q%+256+|
00000ac0  65 25 29 3d 31 33 0d 00  49 4d d5 23 71 25 21 32  |e%)=13..IM.#q%!2|
00000ad0  30 2c 22 52 75 6e 20 22  2b 24 28 71 25 2b 32 35  |0,"Run "+$(q%+25|
00000ae0  36 29 2b 22 20 2d 6d 69  6e 78 38 38 20 2d 6d 69  |6)+" -minx88 -mi|
00000af0  6e 79 35 32 20 2d 6d 61  78 78 22 2b c3 6d 61 78  |ny52 -maxx"+.max|
00000b00  78 25 2b 22 20 2d 6d 61  78 79 22 2b c3 6d 61 78  |x%+" -maxy"+.max|
00000b10  79 25 3b 0d 00 4a 21 e7  20 63 6f 72 6e 65 72 25  |y%;..J!. corner%|
00000b20  20 d5 23 71 25 21 32 30  2c 22 20 2d 63 6f 72 6e  | .#q%!20," -corn|
00000b30  65 72 22 3b 0d 00 4b 1f  e7 20 73 74 75 63 6b 25  |er";..K.. stuck%|
00000b40  20 d5 23 71 25 21 32 30  2c 22 20 2d 73 74 75 63  | .#q%!20," -stuc|
00000b50  6b 22 3b 0d 00 4c 0e d5  23 71 25 21 32 30 2c 22  |k";..L..#q%!20,"|
00000b60  22 0d 00 4d 05 e1 0d 00  4e 04 0d 00 4f 11 dd 20  |"..M....N...O.. |
00000b70  f2 6f 70 65 6e 75 70 28  74 25 29 0d 00 50 8a 71  |.openup(t%)..P.q|
00000b80  25 21 32 35 36 3d 34 3a  71 25 21 32 36 30 3d 35  |%!256=4:q%!260=5|
00000b90  3a 71 25 21 32 36 34 3d  31 31 3a 71 25 21 32 36  |:q%!264=11:q%!26|
00000ba0  38 3d 31 32 3a 71 25 21  32 37 32 3d 2d 31 3a c8  |8=12:q%!272=-1:.|
00000bb0  99 20 22 4f 53 5f 52 65  61 64 56 64 75 56 61 72  |. "OS_ReadVduVar|
00000bc0  69 61 62 6c 65 73 22 2c  71 25 2b 32 35 36 2c 71  |iables",q%+256,q|
00000bd0  25 2b 32 35 36 3a 6f 73  78 25 3d 28 71 25 21 32  |%+256:osx%=(q%!2|
00000be0  36 34 2b 31 29 3c 3c 71  25 21 32 35 36 3a 6f 73  |64+1)<<q%!256:os|
00000bf0  79 25 3d 28 71 25 21 32  36 38 2b 31 29 3c 3c 71  |y%=(q%!268+1)<<q|
00000c00  25 21 32 36 30 0d 00 51  86 71 25 21 32 35 36 3d  |%!260..Q.q%!256=|
00000c10  6d 61 69 6e 25 3a c8 99  20 22 57 69 6d 70 5f 47  |main%:.. "Wimp_G|
00000c20  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00000c30  71 25 2b 32 35 36 3a 71  25 21 32 36 30 3d 6f 73  |q%+256:q%!260=os|
00000c40  78 25 2d 6d 61 78 78 25  2d 32 3a 71 25 21 32 36  |x%-maxx%-2:q%!26|
00000c50  34 3d 6f 73 79 25 2d 6d  61 78 79 25 2d 34 3a 71  |4=osy%-maxy%-4:q|
00000c60  25 21 32 36 38 3d 6f 73  78 25 2d 32 3a 71 25 21  |%!268=osx%-2:q%!|
00000c70  32 37 32 3d 6f 73 79 25  2d 34 3a e7 20 74 25 3d  |272=osy%-4:. t%=|
00000c80  31 20 71 25 21 32 38 34  3d 2d 31 0d 00 52 20 c8  |1 q%!284=-1..R .|
00000c90  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00000ca0  6f 77 22 2c 2c 71 25 2b  32 35 36 0d 00 53 05 e1  |ow",,q%+256..S..|
00000cb0  0d 00 54 04 0d 00 55 81  dd 20 f2 73 65 74 69 63  |..T...U.. .setic|
00000cc0  6f 6e 73 74 61 74 65 28  77 69 6e 64 25 2c 69 63  |onstate(wind%,ic|
00000cd0  6f 6e 25 2c 65 6f 72 25  2c 63 6c 65 61 72 25 29  |on%,eor%,clear%)|
00000ce0  3a 71 25 21 32 35 36 3d  77 69 6e 64 25 3a 71 25  |:q%!256=wind%:q%|
00000cf0  21 32 36 30 3d 69 63 6f  6e 25 3a 71 25 21 32 36  |!260=icon%:q%!26|
00000d00  34 3d 65 6f 72 25 3a 71  25 21 32 36 38 3d 63 6c  |4=eor%:q%!268=cl|
00000d10  65 61 72 25 3a c8 99 20  22 57 69 6d 70 5f 53 65  |ear%:.. "Wimp_Se|
00000d20  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 2b  |tIconState",,q%+|
00000d30  32 35 36 3a e1 0d 00 56  04 0d 00 57 5d dd 20 a4  |256:...V...W]. .|
00000d40  74 65 78 74 61 64 64 72  28 77 69 6e 64 25 2c 69  |textaddr(wind%,i|
00000d50  63 6f 6e 25 29 3a 71 25  21 32 35 36 3d 77 69 6e  |con%):q%!256=win|
00000d60  64 25 3a 71 25 21 32 36  30 3d 69 63 6f 6e 25 3a  |d%:q%!260=icon%:|
00000d70  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00000d80  53 74 61 74 65 22 2c 2c  71 25 2b 32 35 36 3a 3d  |State",,q%+256:=|
00000d90  71 25 21 32 38 34 0d 00  58 04 0d 00 59 a9 dd 20  |q%!284..X...Y.. |
00000da0  a4 63 72 65 61 74 65 77  69 6e 64 6f 77 28 74 65  |.createwindow(te|
00000db0  6d 70 24 29 3a c8 99 20  22 57 69 6d 70 5f 4c 6f  |mp$):.. "Wimp_Lo|
00000dc0  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 71 25 2c  |adTemplate",,q%,|
00000dd0  69 6e 64 72 25 2c 69 6e  64 72 5f 65 6e 64 25 2c  |indr%,indr_end%,|
00000de0  2d 31 2c 74 65 6d 70 24  2c 30 20 b8 20 2c 2c 69  |-1,temp$,0 . ,,i|
00000df0  6e 64 72 25 3a e7 20 74  65 6d 70 24 3d 22 6d 61  |ndr%:. temp$="ma|
00000e00  69 6e 22 20 71 25 3f 36  38 3d 6d 69 6e 78 25 83  |in" q%?68=minx%.|
00000e10  32 35 36 3a 71 25 3f 36  39 3d 6d 69 6e 78 25 81  |256:q%?69=minx%.|
00000e20  32 35 36 3a 71 25 3f 37  30 3d 6d 69 6e 79 25 83  |256:q%?70=miny%.|
00000e30  32 35 36 3a 71 25 3f 37  31 3d 6d 69 6e 79 25 81  |256:q%?71=miny%.|
00000e40  32 35 36 0d 00 5a 2d c8  99 20 22 57 69 6d 70 5f  |256..Z-.. "Wimp_|
00000e50  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 71  |CreateWindow",,q|
00000e60  25 20 b8 20 68 61 6e 64  25 3a 3d 68 61 6e 64 25  |% . hand%:=hand%|
00000e70  0d 00 5b 04 0d 00 5c 47  dd 20 f2 65 72 72 6f 72  |..[...\G. .error|
00000e80  3a 66 6c 67 25 3d 33 3a  e7 20 9f 3d 36 36 38 20  |:flg%=3:. .=668 |
00000e90  66 6c 67 25 3d 31 3a 71  25 21 38 3d 30 3a c8 99  |flg%=1:q%!8=0:..|
00000ea0  20 22 49 6e 74 65 72 66  61 63 65 5f 53 6c 61 62  | "Interface_Slab|
00000eb0  42 75 74 74 6f 6e 22 2c  2c 71 25 0d 00 5d 80 21  |Button",,q%..].!|
00000ec0  71 25 3d 9f 3a 24 28 71  25 2b 34 29 3d f6 24 2b  |q%=.:$(q%+4)=.$+|
00000ed0  22 20 28 49 45 43 20 22  2b c3 9e 2b 22 29 22 2b  |" (IEC "+..+")"+|
00000ee0  bd 30 3a c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |.0:.. "Wimp_Repo|
00000ef0  72 74 45 72 72 6f 72 22  2c 71 25 2c 66 6c 67 25  |rtError",q%,flg%|
00000f00  2c 22 4d 6f 64 65 22 20  b8 20 2c 62 25 3a e7 20  |,"Mode" . ,b%:. |
00000f10  62 25 3d 32 20 c8 99 20  22 57 69 6d 70 5f 43 6c  |b%=2 .. "Wimp_Cl|
00000f20  6f 73 65 44 6f 77 6e 22  2c 74 61 73 6b 68 25 2c  |oseDown",taskh%,|
00000f30  26 34 42 35 33 34 31 35  34 3a e0 0d 00 5e 05 e1  |&4B534154:...^..|
00000f40  0d ff                                             |..|
00000f42

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