2� > <BasicSave$Dir>.!RunImage Quick Menu Thing
� by Steve Turnbull
� (c) Acorn Computing
(
2	�12:�
<	�init
Fsprites=�load("AC-Logo")
P
Z�("Run "+dir$+".!Palette")
d
� 128+7:�
n�plot(100,400)
x
��wait(500)
�*DESKTOP
�
�
��init
�resname$="Resources"
�(resources$="<AC-Menu$Dir>."+resname$
�"ș "ArcFS_OpenArc",,resources$
�dir$ = "arcfs#Resources:$"
��
�
�ݤload(s$)
�� L%,S%,X%
�s$=dir$+"."+s$

 ș "OS_File",5,s$ � X%,,,,L%

)� X%=0 � 99,"File '"+s$+"' not found"

� S% L%+64

"S%!0=L%+64:S%!4=0

,S%!8=16:S%!12=16

6ș "OS_SpriteOp",256+9,S%

@!ș "OS_SpriteOp",256+10,S%,s$

J=S%

T

^��plot(X%,Y%)

h4ș "OS_SpriteOp",256+34,sprites,"screen",X%,Y%,8

r�

|

���wait(T%)�B%,X%,Y%:T%+=�

�.� ȗ X%,Y%,B%:� (�>T%) � (�0>-1) � (B%<>0)

��

�

���print(t$,Y%)

��40-�t$/2,Y%)t$

��
�

00000000  0d 00 0a 32 f4 20 3e 20  3c 42 61 73 69 63 53 61  |...2. > <BasicSa|
00000010  76 65 24 44 69 72 3e 2e  21 52 75 6e 49 6d 61 67  |ve$Dir>.!RunImag|
00000020  65 20 51 75 69 63 6b 20  4d 65 6e 75 20 54 68 69  |e Quick Menu Thi|
00000030  6e 67 0d 00 14 17 f4 20  62 79 20 53 74 65 76 65  |ng..... by Steve|
00000040  20 54 75 72 6e 62 75 6c  6c 0d 00 1e 19 f4 20 28  | Turnbull..... (|
00000050  63 29 20 41 63 6f 72 6e  20 43 6f 6d 70 75 74 69  |c) Acorn Computi|
00000060  6e 67 0d 00 28 04 0d 00  32 09 eb 31 32 3a 87 0d  |ng..(...2..12:..|
00000070  00 3c 09 f2 69 6e 69 74  0d 00 46 1c 73 70 72 69  |.<..init..F.spri|
00000080  74 65 73 3d a4 6c 6f 61  64 28 22 41 43 2d 4c 6f  |tes=.load("AC-Lo|
00000090  67 6f 22 29 0d 00 50 04  0d 00 5a 1e ff 28 22 52  |go")..P...Z..("R|
000000a0  75 6e 20 22 2b 64 69 72  24 2b 22 2e 21 50 61 6c  |un "+dir$+".!Pal|
000000b0  65 74 74 65 22 29 0d 00  64 0d e6 20 31 32 38 2b  |ette")..d.. 128+|
000000c0  37 3a da 0d 00 6e 12 f2  70 6c 6f 74 28 31 30 30  |7:...n..plot(100|
000000d0  2c 34 30 30 29 0d 00 78  04 0d 00 82 0e f2 77 61  |,400)..x......wa|
000000e0  69 74 28 35 30 30 29 0d  00 8c 0c 2a 44 45 53 4b  |it(500)....*DESK|
000000f0  54 4f 50 0d 00 96 04 0d  00 a0 0a dd f2 69 6e 69  |TOP..........ini|
00000100  74 0d 00 aa 18 72 65 73  6e 61 6d 65 24 3d 22 52  |t....resname$="R|
00000110  65 73 6f 75 72 63 65 73  22 0d 00 b4 28 72 65 73  |esources"...(res|
00000120  6f 75 72 63 65 73 24 3d  22 3c 41 43 2d 4d 65 6e  |ources$="<AC-Men|
00000130  75 24 44 69 72 3e 2e 22  2b 72 65 73 6e 61 6d 65  |u$Dir>."+resname|
00000140  24 0d 00 be 22 c8 99 20  22 41 72 63 46 53 5f 4f  |$...".. "ArcFS_O|
00000150  70 65 6e 41 72 63 22 2c  2c 72 65 73 6f 75 72 63  |penArc",,resourc|
00000160  65 73 24 0d 00 c8 1e 64  69 72 24 20 3d 20 22 61  |es$....dir$ = "a|
00000170  72 63 66 73 23 52 65 73  6f 75 72 63 65 73 3a 24  |rcfs#Resources:$|
00000180  22 0d 00 d2 05 e1 0d 00  dc 04 0d 00 e6 0e dd a4  |"...............|
00000190  6c 6f 61 64 28 73 24 29  0d 00 f0 0e ea 20 4c 25  |load(s$)..... L%|
000001a0  2c 53 25 2c 58 25 0d 00  fa 12 73 24 3d 64 69 72  |,S%,X%....s$=dir|
000001b0  24 2b 22 2e 22 2b 73 24  0d 01 04 20 c8 99 20 22  |$+"."+s$... .. "|
000001c0  4f 53 5f 46 69 6c 65 22  2c 35 2c 73 24 20 b8 20  |OS_File",5,s$ . |
000001d0  58 25 2c 2c 2c 2c 4c 25  0d 01 0e 29 e7 20 58 25  |X%,,,,L%...). X%|
000001e0  3d 30 20 85 20 39 39 2c  22 46 69 6c 65 20 27 22  |=0 . 99,"File '"|
000001f0  2b 73 24 2b 22 27 20 6e  6f 74 20 66 6f 75 6e 64  |+s$+"' not found|
00000200  22 0d 01 18 0e de 20 53  25 20 4c 25 2b 36 34 0d  |"..... S% L%+64.|
00000210  01 22 15 53 25 21 30 3d  4c 25 2b 36 34 3a 53 25  |.".S%!0=L%+64:S%|
00000220  21 34 3d 30 0d 01 2c 14  53 25 21 38 3d 31 36 3a  |!4=0..,.S%!8=16:|
00000230  53 25 21 31 32 3d 31 36  0d 01 36 1d c8 99 20 22  |S%!12=16..6... "|
00000240  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 35 36  |OS_SpriteOp",256|
00000250  2b 39 2c 53 25 0d 01 40  21 c8 99 20 22 4f 53 5f  |+9,S%..@!.. "OS_|
00000260  53 70 72 69 74 65 4f 70  22 2c 32 35 36 2b 31 30  |SpriteOp",256+10|
00000270  2c 53 25 2c 73 24 0d 01  4a 07 3d 53 25 0d 01 54  |,S%,s$..J.=S%..T|
00000280  04 0d 01 5e 11 dd f2 70  6c 6f 74 28 58 25 2c 59  |...^...plot(X%,Y|
00000290  25 29 0d 01 68 34 c8 99  20 22 4f 53 5f 53 70 72  |%)..h4.. "OS_Spr|
000002a0  69 74 65 4f 70 22 2c 32  35 36 2b 33 34 2c 73 70  |iteOp",256+34,sp|
000002b0  72 69 74 65 73 2c 22 73  63 72 65 65 6e 22 2c 58  |rites,"screen",X|
000002c0  25 2c 59 25 2c 38 0d 01  72 05 e1 0d 01 7c 04 0d  |%,Y%,8..r....|..|
000002d0  01 86 1d dd f2 77 61 69  74 28 54 25 29 ea 42 25  |.....wait(T%).B%|
000002e0  2c 58 25 2c 59 25 3a 54  25 2b 3d 91 0d 01 90 2e  |,X%,Y%:T%+=.....|
000002f0  f5 20 c8 97 20 58 25 2c  59 25 2c 42 25 3a fd 20  |. .. X%,Y%,B%:. |
00000300  28 91 3e 54 25 29 20 84  20 28 a6 30 3e 2d 31 29  |(.>T%) . (.0>-1)|
00000310  20 84 20 28 42 25 3c 3e  30 29 0d 01 9a 05 e1 0d  | . (B%<>0)......|
00000320  01 a4 04 0d 01 ae 12 dd  f2 70 72 69 6e 74 28 74  |.........print(t|
00000330  24 2c 59 25 29 0d 01 b8  14 f1 8a 34 30 2d a9 74  |$,Y%)......40-.t|
00000340  24 2f 32 2c 59 25 29 74  24 0d 01 c2 05 e1 0d ff  |$/2,Y%)t$.......|
00000350