� >!Runimage
/� -----------------------------------------
/� --   !Xenon2 - For the Archimedes      --
(/� --    ver.   - 1.2DT                   --
2/� --   date    - 28.07.93                --
</� -- authors   - S.Annetts & A.Neville   --
F/� -- modified  - J.P. Tribbeck           --
P/� -----------------------------------------
Z�
d� block% &200
n
xquit%=�:$block%="TASK"
�
�?ș "Wimp_Initialise",200,!block%,"Xenon 2" � version%,task%
�
�3ș "OS_File",5,"<Xenon2$Dir>.Sprites2" � ,,,,L%
��S%L%+16,PX%16,TR%16
�%!S%=L%+16:S%!4=0:S%!8=16:S%!12=16
�ș "OS_SpriteOp",&109,S%
�4ș "OS_SpriteOp",&10A,S%,"<Xenon2$Dir>.Sprites2"
�:ș "Wimp_ReadPixTrans",&100,S%,"infobox",0,0,0,PX%,TR%
�/ș "OS_ReadModeVariable",-1,11 � ,,screenx%
�/ș "OS_ReadModeVariable",-1,12 � ,,screeny%
�+ș "OS_ReadModeVariable",-1,5 � ,,yeig%
�+ș "OS_ReadModeVariable",-1,4 � ,,xeig%

9screenx%=screenx%*2*xeig%:screeny%=screeny%*(2*yeig%)

screenx%=(screenx% � 2)-455

screeny%=(screeny% � 2)-258

"

,Bș "OS_SpriteOp",&134,S%,"infobox",screenx%,screeny%,0,PX%,TR%

6

@*SET xenon2$run "Yo!"

J(ș "OS_ReadMonotonicTime" � oldtime%

T@�ș "OS_ReadMonotonicTime" � newtime%:�newtime%-oldtime%>300

^Pș "Wimp_ForceRedraw",-1,screenx%,screeny%,screenx%+455*2+8,screeny%+258*2+8

hș "Wimp_CloseDown"

rȘ
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 69 6d 61 67 65  |..... >!Runimage|
00000010  0d 00 14 2f f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.../. ----------|
00000020  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000030  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00000040  00 1e 2f f4 20 2d 2d 20  20 20 21 58 65 6e 6f 6e  |../. --   !Xenon|
00000050  32 20 2d 20 46 6f 72 20  74 68 65 20 41 72 63 68  |2 - For the Arch|
00000060  69 6d 65 64 65 73 20 20  20 20 20 20 2d 2d 0d 00  |imedes      --..|
00000070  28 2f f4 20 2d 2d 20 20  20 20 76 65 72 2e 20 20  |(/. --    ver.  |
00000080  20 2d 20 31 2e 32 44 54  20 20 20 20 20 20 20 20  | - 1.2DT        |
00000090  20 20 20 20 20 20 20 20  20 20 20 2d 2d 0d 00 32  |           --..2|
000000a0  2f f4 20 2d 2d 20 20 20  64 61 74 65 20 20 20 20  |/. --   date    |
000000b0  2d 20 32 38 2e 30 37 2e  39 33 20 20 20 20 20 20  |- 28.07.93      |
000000c0  20 20 20 20 20 20 20 20  20 20 2d 2d 0d 00 3c 2f  |          --..</|
000000d0  f4 20 2d 2d 20 61 75 74  68 6f 72 73 20 20 20 2d  |. -- authors   -|
000000e0  20 53 2e 41 6e 6e 65 74  74 73 20 26 20 41 2e 4e  | S.Annetts & A.N|
000000f0  65 76 69 6c 6c 65 20 20  20 2d 2d 0d 00 46 2f f4  |eville   --..F/.|
00000100  20 2d 2d 20 6d 6f 64 69  66 69 65 64 20 20 2d 20  | -- modified  - |
00000110  4a 2e 50 2e 20 54 72 69  62 62 65 63 6b 20 20 20  |J.P. Tribbeck   |
00000120  20 20 20 20 20 20 20 20  2d 2d 0d 00 50 2f f4 20  |        --..P/. |
00000130  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000150  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 00 5a 05 f4 0d 00  |---------..Z....|
00000160  64 11 de 20 62 6c 6f 63  6b 25 20 26 32 30 30 0d  |d.. block% &200.|
00000170  00 6e 04 0d 00 78 1a 71  75 69 74 25 3d a3 3a 24  |.n...x.quit%=.:$|
00000180  62 6c 6f 63 6b 25 3d 22  54 41 53 4b 22 0d 00 82  |block%="TASK"...|
00000190  04 0d 00 8c 3f c8 99 20  22 57 69 6d 70 5f 49 6e  |....?.. "Wimp_In|
000001a0  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 21 62  |itialise",200,!b|
000001b0  6c 6f 63 6b 25 2c 22 58  65 6e 6f 6e 20 32 22 20  |lock%,"Xenon 2" |
000001c0  b8 20 76 65 72 73 69 6f  6e 25 2c 74 61 73 6b 25  |. version%,task%|
000001d0  0d 00 96 04 0d 00 a0 33  c8 99 20 22 4f 53 5f 46  |.......3.. "OS_F|
000001e0  69 6c 65 22 2c 35 2c 22  3c 58 65 6e 6f 6e 32 24  |ile",5,"<Xenon2$|
000001f0  44 69 72 3e 2e 53 70 72  69 74 65 73 32 22 20 b8  |Dir>.Sprites2" .|
00000200  20 2c 2c 2c 2c 4c 25 0d  00 aa 18 de 53 25 4c 25  | ,,,,L%.....S%L%|
00000210  2b 31 36 2c 50 58 25 31  36 2c 54 52 25 31 36 0d  |+16,PX%16,TR%16.|
00000220  00 b4 25 21 53 25 3d 4c  25 2b 31 36 3a 53 25 21  |..%!S%=L%+16:S%!|
00000230  34 3d 30 3a 53 25 21 38  3d 31 36 3a 53 25 21 31  |4=0:S%!8=16:S%!1|
00000240  32 3d 31 36 0d 00 be 1c  c8 99 20 22 4f 53 5f 53  |2=16...... "OS_S|
00000250  70 72 69 74 65 4f 70 22  2c 26 31 30 39 2c 53 25  |priteOp",&109,S%|
00000260  0d 00 c8 34 c8 99 20 22  4f 53 5f 53 70 72 69 74  |...4.. "OS_Sprit|
00000270  65 4f 70 22 2c 26 31 30  41 2c 53 25 2c 22 3c 58  |eOp",&10A,S%,"<X|
00000280  65 6e 6f 6e 32 24 44 69  72 3e 2e 53 70 72 69 74  |enon2$Dir>.Sprit|
00000290  65 73 32 22 0d 00 d2 3a  c8 99 20 22 57 69 6d 70  |es2"...:.. "Wimp|
000002a0  5f 52 65 61 64 50 69 78  54 72 61 6e 73 22 2c 26  |_ReadPixTrans",&|
000002b0  31 30 30 2c 53 25 2c 22  69 6e 66 6f 62 6f 78 22  |100,S%,"infobox"|
000002c0  2c 30 2c 30 2c 30 2c 50  58 25 2c 54 52 25 0d 00  |,0,0,0,PX%,TR%..|
000002d0  dc 2f c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 64  |./.. "OS_ReadMod|
000002e0  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 31 31  |eVariable",-1,11|
000002f0  20 b8 20 2c 2c 73 63 72  65 65 6e 78 25 0d 00 e6  | . ,,screenx%...|
00000300  2f c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |/.. "OS_ReadMode|
00000310  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 31 32 20  |Variable",-1,12 |
00000320  b8 20 2c 2c 73 63 72 65  65 6e 79 25 0d 00 f0 2b  |. ,,screeny%...+|
00000330  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |.. "OS_ReadModeV|
00000340  61 72 69 61 62 6c 65 22  2c 2d 31 2c 35 20 b8 20  |ariable",-1,5 . |
00000350  2c 2c 79 65 69 67 25 0d  00 fa 2b c8 99 20 22 4f  |,,yeig%...+.. "O|
00000360  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00000370  6c 65 22 2c 2d 31 2c 34  20 b8 20 2c 2c 78 65 69  |le",-1,4 . ,,xei|
00000380  67 25 0d 01 04 39 73 63  72 65 65 6e 78 25 3d 73  |g%...9screenx%=s|
00000390  63 72 65 65 6e 78 25 2a  32 2a 78 65 69 67 25 3a  |creenx%*2*xeig%:|
000003a0  73 63 72 65 65 6e 79 25  3d 73 63 72 65 65 6e 79  |screeny%=screeny|
000003b0  25 2a 28 32 2a 79 65 69  67 25 29 0d 01 0e 1f 73  |%*(2*yeig%)....s|
000003c0  63 72 65 65 6e 78 25 3d  28 73 63 72 65 65 6e 78  |creenx%=(screenx|
000003d0  25 20 81 20 32 29 2d 34  35 35 0d 01 18 1f 73 63  |% . 2)-455....sc|
000003e0  72 65 65 6e 79 25 3d 28  73 63 72 65 65 6e 79 25  |reeny%=(screeny%|
000003f0  20 81 20 32 29 2d 32 35  38 0d 01 22 04 0d 01 2c  | . 2)-258.."...,|
00000400  42 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |B.. "OS_SpriteOp|
00000410  22 2c 26 31 33 34 2c 53  25 2c 22 69 6e 66 6f 62  |",&134,S%,"infob|
00000420  6f 78 22 2c 73 63 72 65  65 6e 78 25 2c 73 63 72  |ox",screenx%,scr|
00000430  65 65 6e 79 25 2c 30 2c  50 58 25 2c 54 52 25 0d  |eeny%,0,PX%,TR%.|
00000440  01 36 04 0d 01 40 19 2a  53 45 54 20 78 65 6e 6f  |.6...@.*SET xeno|
00000450  6e 32 24 72 75 6e 20 22  59 6f 21 22 0d 01 4a 28  |n2$run "Yo!"..J(|
00000460  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 6e 6f 74  |.. "OS_ReadMonot|
00000470  6f 6e 69 63 54 69 6d 65  22 20 b8 20 6f 6c 64 74  |onicTime" . oldt|
00000480  69 6d 65 25 0d 01 54 40  f5 c8 99 20 22 4f 53 5f  |ime%..T@... "OS_|
00000490  52 65 61 64 4d 6f 6e 6f  74 6f 6e 69 63 54 69 6d  |ReadMonotonicTim|
000004a0  65 22 20 b8 20 6e 65 77  74 69 6d 65 25 3a fd 6e  |e" . newtime%:.n|
000004b0  65 77 74 69 6d 65 25 2d  6f 6c 64 74 69 6d 65 25  |ewtime%-oldtime%|
000004c0  3e 33 30 30 0d 01 5e 50  c8 99 20 22 57 69 6d 70  |>300..^P.. "Wimp|
000004d0  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 2d 31  |_ForceRedraw",-1|
000004e0  2c 73 63 72 65 65 6e 78  25 2c 73 63 72 65 65 6e  |,screenx%,screen|
000004f0  79 25 2c 73 63 72 65 65  6e 78 25 2b 34 35 35 2a  |y%,screenx%+455*|
00000500  32 2b 38 2c 73 63 72 65  65 6e 79 25 2b 32 35 38  |2+8,screeny%+258|
00000510  2a 32 2b 38 0d 01 68 17  c8 99 20 22 57 69 6d 70  |*2+8..h... "Wimp|
00000520  5f 43 6c 6f 73 65 44 6f  77 6e 22 0d 01 72 06 c8  |_CloseDown"..r..|
00000530  98 0d ff                                          |...|
00000533