!FEMS/!RunImage

Home » Archimedes archive » Acorn User » AU 1994-01.adf » !FEMS_App_FEMS_App » !FEMS/!RunImage

!FEMS/!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 1994-01.adf » !FEMS_App_FEMS_App
Filename:	!FEMS/!RunImage
Read OK:	✔
File size:	06CB bytes
Load address:	0000
Exec address:	0000

File contents

    1REM >!RunImage
    2REM Simple desktop fron end for FEMS
    3REM adapted from EasyDel by Nicholas Marriott
    4REM for 32-bit machines
    5REM (c) BAU November 1992
    6:
    7ON ERROR PROCerr
    8DIM b% &300,in% &100,err% &200,m% &80
    9$b%="TASK"
   10SYS "Wimp_Initialise",200,!b%,"FEMS loader"+CHR$0
   11SYS "Wimp_OpenTemplate",,"<FEMS$Dir>.Templates"
   12SYS "Wimp_LoadTemplate",,b%,in%,in%+&100,-1,"Info",0
   13SYS "Wimp_CreateWindow",,b% TO infowin%
   14SYS "Wimp_CloseTemplate"
   15PROCmenu
   16icon%=FNiconbar
   17ON ERROR PROCerr
   18REPEAT
   19 SYS "Wimp_Poll",&FFF9FDBD,b% TO e%
   20 CASE e% OF
   21  WHEN 2:SYS "Wimp_OpenWindow",,b%
   22  WHEN 6:IF b%!12=-2 AND b%!16=icon% PROCmouse(b%)
   23  WHEN 9:IF !b%=1 SYS "Wimp_CloseDown":END
   24  WHEN 17,18:
   25   CASE b%!16 OF
   26    WHEN 0:SYS "Wimp_CloseDown":END
   27    WHEN 3,5:IF b%!12=0 PROCstart(b%!20,b%!24,b%!40)
   28   ENDCASE
   29 ENDCASE
   30UNTIL FALSE
   31:
   32DEF PROCmouse(b%)
   33IF b%!8=2 SYS"Wimp_CreateMenu",,m%,!b%-60,176
   34ENDPROC
   35:
   36DEF FNiconbar
   37LOCAL i%
   38b%!0=-1
   39b%!4=0
   40b%!8=0
   41b%!12=78
   42b%!16=696
   43b%!20=&2002
   44$(b%+24)="!FEMS"
   45SYS "Wimp_CreateIcon",,b% TO i%
   46=i%
   47:
   48DEF PROCmenu
   49$m%="FEMS"
   50m%!12=&70207
   51m%!16=&50
   52m%!20=40
   53m%!24=0
   54m%!28=0
   55m%!32=infowin%
   56m%!36=&7000019
   57$(m%+40)="Info"
   58m%!52=128
   59m%!56=0
   60m%!60=&7000019
   61$(m%+64)="Quit"
   62ENDPROC
   63:
   64DEF PROCerr
   65SYS "XWimp_CreateMenu",,-1
   66!err%=ERR
   67$(err%+4)=REPORT$+CHR$0
   68SYS "Wimp_ReportError",err%,1,"FEMS" TO,j%
   69IF j%=2 SYS "Wimp_CloseDown":END
   70ENDPROC
   71:
   72DEF PROCstart(wi%,ic%,type%)   
   73IF type%<>&FFF AND type%<>&3C7 THEN ENDPROC
   74IF type%=&FFF AND (wi%<>-2 OR ic%<>icon%) THEN ENDPROC 
   75REM send DataLoadAck message
   76b%!12=b%!8:b%!16=4:!b%=64:SYS "Wimp_SendMessage",17,b%,b%!4
   77LOCAL f%,n$
   78f%=b%+44
   79n$=""
   80WHILE?f%>31
   81 n$+=CHR$(?f%)
   82 f%+=1
   83ENDWHILE
   84OSCLI("WimpTask Basic -chain <FEMS$Dir>.FEMS2p21 -file "+n$)
   85ENDPROC

� >!RunImage
&� Simple desktop fron end for FEMS
/� adapted from EasyDel by Nicholas Marriott
� for 32-bit machines
� (c) BAU November 1992
:
� � �err
'� b% &300,in% &100,err% &200,m% &80
	$b%="TASK"

1ș "Wimp_Initialise",200,!b%,"FEMS loader"+�0
2ș "Wimp_OpenTemplate",,"<FEMS$Dir>.Templates"
7ș "Wimp_LoadTemplate",,b%,in%,in%+&100,-1,"Info",0

)ș "Wimp_CreateWindow",,b% � infowin%
ș "Wimp_CloseTemplate"
	�menu
icon%=�iconbar
� � �err
�
% ș "Wimp_Poll",&FFF9FDBD,b% � e%
 Ȏ e% �
"  � 2:ș "Wimp_OpenWindow",,b%
-  � 6:� b%!12=-2 � b%!16=icon% �mouse(b%)
'  � 9:� !b%=1 ș "Wimp_CloseDown":�
  � 17,18:
   Ȏ b%!16 �
!    � 0:ș "Wimp_CloseDown":�
1    � 3,5:� b%!12=0 �start(b%!20,b%!24,b%!40)
   �
 �
� �
:
 � �mouse(b%)
!/� b%!8=2 ș"Wimp_CreateMenu",,m%,!b%-60,176
"�
#:
$� �iconbar
%� i%
&b%!0=-1
'
b%!4=0
(
b%!8=0
)b%!12=78
*
b%!16=696
+b%!20=&2002
,$(b%+24)="!FEMS"
-!ș "Wimp_CreateIcon",,b% � i%
.=i%
/:
0� �menu
1$m%="FEMS"
2m%!12=&70207
3
m%!16=&50
4m%!20=40
5m%!24=0
6m%!28=0
7m%!32=infowin%
8m%!36=&7000019
9$(m%+40)="Info"
:
m%!52=128
;m%!56=0
<m%!60=&7000019
=$(m%+64)="Quit"
>�
?:
@
� �err
Aș "XWimp_CreateMenu",,-1
B!err%=�
C$(err%+4)=�$+�0
D,ș "Wimp_ReportError",err%,1,"FEMS" �,j%
E � j%=2 ș "Wimp_CloseDown":�
F�
G:
H� �start(wi%,ic%,type%)   
I#� type%<>&FFF � type%<>&3C7 � �
J.� type%=&FFF � (wi%<>-2 � ic%<>icon%) � � 
K� send DataLoadAck message
L>b%!12=b%!8:b%!16=4:!b%=64:ș "Wimp_SendMessage",17,b%,b%!4
M� f%,n$
Nf%=b%+44
O	n$=""
Pȕ?f%>31
Q n$+=�(?f%)
R
 f%+=1
S�
T<�("WimpTask Basic -chain <FEMS$Dir>.FEMS2p21 -file "+n$)
U�
�

00000000  0d 00 01 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 02 26 f4 20 53 69  6d 70 6c 65 20 64 65 73  |...&. Simple des|
00000020  6b 74 6f 70 20 66 72 6f  6e 20 65 6e 64 20 66 6f  |ktop fron end fo|
00000030  72 20 46 45 4d 53 0d 00  03 2f f4 20 61 64 61 70  |r FEMS.../. adap|
00000040  74 65 64 20 66 72 6f 6d  20 45 61 73 79 44 65 6c  |ted from EasyDel|
00000050  20 62 79 20 4e 69 63 68  6f 6c 61 73 20 4d 61 72  | by Nicholas Mar|
00000060  72 69 6f 74 74 0d 00 04  19 f4 20 66 6f 72 20 33  |riott..... for 3|
00000070  32 2d 62 69 74 20 6d 61  63 68 69 6e 65 73 0d 00  |2-bit machines..|
00000080  05 1b f4 20 28 63 29 20  42 41 55 20 4e 6f 76 65  |... (c) BAU Nove|
00000090  6d 62 65 72 20 31 39 39  32 0d 00 06 05 3a 0d 00  |mber 1992....:..|
000000a0  07 0c ee 20 85 20 f2 65  72 72 0d 00 08 27 de 20  |... . .err...'. |
000000b0  62 25 20 26 33 30 30 2c  69 6e 25 20 26 31 30 30  |b% &300,in% &100|
000000c0  2c 65 72 72 25 20 26 32  30 30 2c 6d 25 20 26 38  |,err% &200,m% &8|
000000d0  30 0d 00 09 0e 24 62 25  3d 22 54 41 53 4b 22 0d  |0....$b%="TASK".|
000000e0  00 0a 31 c8 99 20 22 57  69 6d 70 5f 49 6e 69 74  |..1.. "Wimp_Init|
000000f0  69 61 6c 69 73 65 22 2c  32 30 30 2c 21 62 25 2c  |ialise",200,!b%,|
00000100  22 46 45 4d 53 20 6c 6f  61 64 65 72 22 2b bd 30  |"FEMS loader"+.0|
00000110  0d 00 0b 32 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |...2.. "Wimp_Ope|
00000120  6e 54 65 6d 70 6c 61 74  65 22 2c 2c 22 3c 46 45  |nTemplate",,"<FE|
00000130  4d 53 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |MS$Dir>.Template|
00000140  73 22 0d 00 0c 37 c8 99  20 22 57 69 6d 70 5f 4c  |s"...7.. "Wimp_L|
00000150  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 25  |oadTemplate",,b%|
00000160  2c 69 6e 25 2c 69 6e 25  2b 26 31 30 30 2c 2d 31  |,in%,in%+&100,-1|
00000170  2c 22 49 6e 66 6f 22 2c  30 0d 00 0d 29 c8 99 20  |,"Info",0...).. |
00000180  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000190  6f 77 22 2c 2c 62 25 20  b8 20 69 6e 66 6f 77 69  |ow",,b% . infowi|
000001a0  6e 25 0d 00 0e 1b c8 99  20 22 57 69 6d 70 5f 43  |n%...... "Wimp_C|
000001b0  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 00 0f  |loseTemplate"...|
000001c0  09 f2 6d 65 6e 75 0d 00  10 12 69 63 6f 6e 25 3d  |..menu....icon%=|
000001d0  a4 69 63 6f 6e 62 61 72  0d 00 11 0c ee 20 85 20  |.iconbar..... . |
000001e0  f2 65 72 72 0d 00 12 05  f5 0d 00 13 25 20 c8 99  |.err........% ..|
000001f0  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 26 46 46  | "Wimp_Poll",&FF|
00000200  46 39 46 44 42 44 2c 62  25 20 b8 20 65 25 0d 00  |F9FDBD,b% . e%..|
00000210  14 0c 20 c8 8e 20 65 25  20 ca 0d 00 15 22 20 20  |.. .. e% ...."  |
00000220  c9 20 32 3a c8 99 20 22  57 69 6d 70 5f 4f 70 65  |. 2:.. "Wimp_Ope|
00000230  6e 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 00 16 2d  |nWindow",,b%...-|
00000240  20 20 c9 20 36 3a e7 20  62 25 21 31 32 3d 2d 32  |  . 6:. b%!12=-2|
00000250  20 80 20 62 25 21 31 36  3d 69 63 6f 6e 25 20 f2  | . b%!16=icon% .|
00000260  6d 6f 75 73 65 28 62 25  29 0d 00 17 27 20 20 c9  |mouse(b%)...'  .|
00000270  20 39 3a e7 20 21 62 25  3d 31 20 c8 99 20 22 57  | 9:. !b%=1 .. "W|
00000280  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 3a e0  |imp_CloseDown":.|
00000290  0d 00 18 0e 20 20 c9 20  31 37 2c 31 38 3a 0d 00  |....  . 17,18:..|
000002a0  19 11 20 20 20 c8 8e 20  62 25 21 31 36 20 ca 0d  |..   .. b%!16 ..|
000002b0  00 1a 21 20 20 20 20 c9  20 30 3a c8 99 20 22 57  |..!    . 0:.. "W|
000002c0  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 3a e0  |imp_CloseDown":.|
000002d0  0d 00 1b 31 20 20 20 20  c9 20 33 2c 35 3a e7 20  |...1    . 3,5:. |
000002e0  62 25 21 31 32 3d 30 20  f2 73 74 61 72 74 28 62  |b%!12=0 .start(b|
000002f0  25 21 32 30 2c 62 25 21  32 34 2c 62 25 21 34 30  |%!20,b%!24,b%!40|
00000300  29 0d 00 1c 08 20 20 20  cb 0d 00 1d 06 20 cb 0d  |)....   ..... ..|
00000310  00 1e 07 fd 20 a3 0d 00  1f 05 3a 0d 00 20 10 dd  |.... .....:.. ..|
00000320  20 f2 6d 6f 75 73 65 28  62 25 29 0d 00 21 2f e7  | .mouse(b%)..!/.|
00000330  20 62 25 21 38 3d 32 20  c8 99 22 57 69 6d 70 5f  | b%!8=2 .."Wimp_|
00000340  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 25 2c  |CreateMenu",,m%,|
00000350  21 62 25 2d 36 30 2c 31  37 36 0d 00 22 05 e1 0d  |!b%-60,176.."...|
00000360  00 23 05 3a 0d 00 24 0e  dd 20 a4 69 63 6f 6e 62  |.#.:..$.. .iconb|
00000370  61 72 0d 00 25 08 ea 20  69 25 0d 00 26 0b 62 25  |ar..%.. i%..&.b%|
00000380  21 30 3d 2d 31 0d 00 27  0a 62 25 21 34 3d 30 0d  |!0=-1..'.b%!4=0.|
00000390  00 28 0a 62 25 21 38 3d  30 0d 00 29 0c 62 25 21  |.(.b%!8=0..).b%!|
000003a0  31 32 3d 37 38 0d 00 2a  0d 62 25 21 31 36 3d 36  |12=78..*.b%!16=6|
000003b0  39 36 0d 00 2b 0f 62 25  21 32 30 3d 26 32 30 30  |96..+.b%!20=&200|
000003c0  32 0d 00 2c 14 24 28 62  25 2b 32 34 29 3d 22 21  |2..,.$(b%+24)="!|
000003d0  46 45 4d 53 22 0d 00 2d  21 c8 99 20 22 57 69 6d  |FEMS"..-!.. "Wim|
000003e0  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 62  |p_CreateIcon",,b|
000003f0  25 20 b8 20 69 25 0d 00  2e 07 3d 69 25 0d 00 2f  |% . i%....=i%../|
00000400  05 3a 0d 00 30 0b dd 20  f2 6d 65 6e 75 0d 00 31  |.:..0.. .menu..1|
00000410  0e 24 6d 25 3d 22 46 45  4d 53 22 0d 00 32 10 6d  |.$m%="FEMS"..2.m|
00000420  25 21 31 32 3d 26 37 30  32 30 37 0d 00 33 0d 6d  |%!12=&70207..3.m|
00000430  25 21 31 36 3d 26 35 30  0d 00 34 0c 6d 25 21 32  |%!16=&50..4.m%!2|
00000440  30 3d 34 30 0d 00 35 0b  6d 25 21 32 34 3d 30 0d  |0=40..5.m%!24=0.|
00000450  00 36 0b 6d 25 21 32 38  3d 30 0d 00 37 12 6d 25  |.6.m%!28=0..7.m%|
00000460  21 33 32 3d 69 6e 66 6f  77 69 6e 25 0d 00 38 12  |!32=infowin%..8.|
00000470  6d 25 21 33 36 3d 26 37  30 30 30 30 31 39 0d 00  |m%!36=&7000019..|
00000480  39 13 24 28 6d 25 2b 34  30 29 3d 22 49 6e 66 6f  |9.$(m%+40)="Info|
00000490  22 0d 00 3a 0d 6d 25 21  35 32 3d 31 32 38 0d 00  |"..:.m%!52=128..|
000004a0  3b 0b 6d 25 21 35 36 3d  30 0d 00 3c 12 6d 25 21  |;.m%!56=0..<.m%!|
000004b0  36 30 3d 26 37 30 30 30  30 31 39 0d 00 3d 13 24  |60=&7000019..=.$|
000004c0  28 6d 25 2b 36 34 29 3d  22 51 75 69 74 22 0d 00  |(m%+64)="Quit"..|
000004d0  3e 05 e1 0d 00 3f 05 3a  0d 00 40 0a dd 20 f2 65  |>....?.:..@.. .e|
000004e0  72 72 0d 00 41 1d c8 99  20 22 58 57 69 6d 70 5f  |rr..A... "XWimp_|
000004f0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 0d  |CreateMenu",,-1.|
00000500  00 42 0b 21 65 72 72 25  3d 9f 0d 00 43 13 24 28  |.B.!err%=...C.$(|
00000510  65 72 72 25 2b 34 29 3d  f6 24 2b bd 30 0d 00 44  |err%+4)=.$+.0..D|
00000520  2c c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |,.. "Wimp_Report|
00000530  45 72 72 6f 72 22 2c 65  72 72 25 2c 31 2c 22 46  |Error",err%,1,"F|
00000540  45 4d 53 22 20 b8 2c 6a  25 0d 00 45 20 e7 20 6a  |EMS" .,j%..E . j|
00000550  25 3d 32 20 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |%=2 .. "Wimp_Clo|
00000560  73 65 44 6f 77 6e 22 3a  e0 0d 00 46 05 e1 0d 00  |seDown":...F....|
00000570  47 05 3a 0d 00 48 1e dd  20 f2 73 74 61 72 74 28  |G.:..H.. .start(|
00000580  77 69 25 2c 69 63 25 2c  74 79 70 65 25 29 20 20  |wi%,ic%,type%)  |
00000590  20 0d 00 49 23 e7 20 74  79 70 65 25 3c 3e 26 46  | ..I#. type%<>&F|
000005a0  46 46 20 80 20 74 79 70  65 25 3c 3e 26 33 43 37  |FF . type%<>&3C7|
000005b0  20 8c 20 e1 0d 00 4a 2e  e7 20 74 79 70 65 25 3d  | . ...J.. type%=|
000005c0  26 46 46 46 20 80 20 28  77 69 25 3c 3e 2d 32 20  |&FFF . (wi%<>-2 |
000005d0  84 20 69 63 25 3c 3e 69  63 6f 6e 25 29 20 8c 20  |. ic%<>icon%) . |
000005e0  e1 20 0d 00 4b 1e f4 20  73 65 6e 64 20 44 61 74  |. ..K.. send Dat|
000005f0  61 4c 6f 61 64 41 63 6b  20 6d 65 73 73 61 67 65  |aLoadAck message|
00000600  0d 00 4c 3e 62 25 21 31  32 3d 62 25 21 38 3a 62  |..L>b%!12=b%!8:b|
00000610  25 21 31 36 3d 34 3a 21  62 25 3d 36 34 3a c8 99  |%!16=4:!b%=64:..|
00000620  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00000630  67 65 22 2c 31 37 2c 62  25 2c 62 25 21 34 0d 00  |ge",17,b%,b%!4..|
00000640  4d 0b ea 20 66 25 2c 6e  24 0d 00 4e 0c 66 25 3d  |M.. f%,n$..N.f%=|
00000650  62 25 2b 34 34 0d 00 4f  09 6e 24 3d 22 22 0d 00  |b%+44..O.n$=""..|
00000660  50 0c c8 95 3f 66 25 3e  33 31 0d 00 51 0f 20 6e  |P...?f%>31..Q. n|
00000670  24 2b 3d bd 28 3f 66 25  29 0d 00 52 0a 20 66 25  |$+=.(?f%)..R. f%|
00000680  2b 3d 31 0d 00 53 05 ce  0d 00 54 3c ff 28 22 57  |+=1..S....T<.("W|
00000690  69 6d 70 54 61 73 6b 20  42 61 73 69 63 20 2d 63  |impTask Basic -c|
000006a0  68 61 69 6e 20 3c 46 45  4d 53 24 44 69 72 3e 2e  |hain <FEMS$Dir>.|
000006b0  46 45 4d 53 32 70 32 31  20 2d 66 69 6c 65 20 22  |FEMS2p21 -file "|
000006c0  2b 6e 24 29 0d 00 55 05  e1 0d ff                 |+n$)..U....|
000006cb

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