>� > <BasicSave$Dir>.!RunImage Quick Menu Thing VERSION 1.2
� by Steve Turnbull
� (c) Acorn Computing
(
23�12:�:*Run arcfs#<thismonth>:Resources.!Palette
<
F8sprites=�load("arcfs#<thismonth>:Resources.AC-Logo")
P
� 128+7:�
Z�plot(100,600)
d�wait(300)
n
x/*Filer_OpenDir arcfs#<thismonth>:$.Programs
�*DESKTOP
�
�ݤload(s$)
�� L%,S%,X%
� ș "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
�ș "OS_SpriteOp",256+9,S%
�!ș "OS_SpriteOp",256+10,S%,s$
�=S%
�

��plot(X%,Y%)

5ș "OS_SpriteOp",256+34,sprites,"ac-logo",X%,Y%,8

�

"

,��wait(T%):T%+=�

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

@�

J

T��print(t$,Y%)

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

h�
�

00000000  0d 00 0a 3e f4 20 3e 20  3c 42 61 73 69 63 53 61  |...>. > <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 20 56 45 52 53 49  4f 4e 20 31 2e 32 0d 00  |ng VERSION 1.2..|
00000040  14 17 f4 20 62 79 20 53  74 65 76 65 20 54 75 72  |... by Steve Tur|
00000050  6e 62 75 6c 6c 0d 00 1e  19 f4 20 28 63 29 20 41  |nbull..... (c) A|
00000060  63 6f 72 6e 20 43 6f 6d  70 75 74 69 6e 67 0d 00  |corn Computing..|
00000070  28 04 0d 00 32 33 eb 31  32 3a 87 3a 2a 52 75 6e  |(...23.12:.:*Run|
00000080  20 61 72 63 66 73 23 3c  74 68 69 73 6d 6f 6e 74  | arcfs#<thismont|
00000090  68 3e 3a 52 65 73 6f 75  72 63 65 73 2e 21 50 61  |h>:Resources.!Pa|
000000a0  6c 65 74 74 65 0d 00 3c  04 0d 00 46 38 73 70 72  |lette..<...F8spr|
000000b0  69 74 65 73 3d a4 6c 6f  61 64 28 22 61 72 63 66  |ites=.load("arcf|
000000c0  73 23 3c 74 68 69 73 6d  6f 6e 74 68 3e 3a 52 65  |s#<thismonth>:Re|
000000d0  73 6f 75 72 63 65 73 2e  41 43 2d 4c 6f 67 6f 22  |sources.AC-Logo"|
000000e0  29 0d 00 50 0d e6 20 31  32 38 2b 37 3a da 0d 00  |)..P.. 128+7:...|
000000f0  5a 12 f2 70 6c 6f 74 28  31 30 30 2c 36 30 30 29  |Z..plot(100,600)|
00000100  0d 00 64 0e f2 77 61 69  74 28 33 30 30 29 0d 00  |..d..wait(300)..|
00000110  6e 04 0d 00 78 2f 2a 46  69 6c 65 72 5f 4f 70 65  |n...x/*Filer_Ope|
00000120  6e 44 69 72 20 61 72 63  66 73 23 3c 74 68 69 73  |nDir arcfs#<this|
00000130  6d 6f 6e 74 68 3e 3a 24  2e 50 72 6f 67 72 61 6d  |month>:$.Program|
00000140  73 0d 00 82 0c 2a 44 45  53 4b 54 4f 50 0d 00 8c  |s....*DESKTOP...|
00000150  04 0d 00 96 0e dd a4 6c  6f 61 64 28 73 24 29 0d  |.......load(s$).|
00000160  00 a0 0e ea 20 4c 25 2c  53 25 2c 58 25 0d 00 aa  |.... L%,S%,X%...|
00000170  20 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 35 2c  | .. "OS_File",5,|
00000180  73 24 20 b8 20 58 25 2c  2c 2c 2c 4c 25 0d 00 b4  |s$ . X%,,,,L%...|
00000190  29 e7 20 58 25 3d 30 20  85 20 39 39 2c 22 46 69  |). X%=0 . 99,"Fi|
000001a0  6c 65 20 27 22 2b 73 24  2b 22 27 20 6e 6f 74 20  |le '"+s$+"' not |
000001b0  66 6f 75 6e 64 22 0d 00  be 0e de 20 53 25 20 4c  |found"..... S% L|
000001c0  25 2b 36 34 0d 00 c8 15  53 25 21 30 3d 4c 25 2b  |%+64....S%!0=L%+|
000001d0  36 34 3a 53 25 21 34 3d  30 0d 00 d2 14 53 25 21  |64:S%!4=0....S%!|
000001e0  38 3d 31 36 3a 53 25 21  31 32 3d 31 36 0d 00 dc  |8=16:S%!12=16...|
000001f0  1d c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |... "OS_SpriteOp|
00000200  22 2c 32 35 36 2b 39 2c  53 25 0d 00 e6 21 c8 99  |",256+9,S%...!..|
00000210  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  | "OS_SpriteOp",2|
00000220  35 36 2b 31 30 2c 53 25  2c 73 24 0d 00 f0 07 3d  |56+10,S%,s$....=|
00000230  53 25 0d 00 fa 04 0d 01  04 11 dd f2 70 6c 6f 74  |S%..........plot|
00000240  28 58 25 2c 59 25 29 0d  01 0e 35 c8 99 20 22 4f  |(X%,Y%)...5.. "O|
00000250  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 35 36 2b  |S_SpriteOp",256+|
00000260  33 34 2c 73 70 72 69 74  65 73 2c 22 61 63 2d 6c  |34,sprites,"ac-l|
00000270  6f 67 6f 22 2c 58 25 2c  59 25 2c 38 0d 01 18 05  |ogo",X%,Y%,8....|
00000280  e1 0d 01 22 04 0d 01 2c  14 dd f2 77 61 69 74 28  |..."...,...wait(|
00000290  54 25 29 3a 54 25 2b 3d  91 0d 01 36 2a f5 20 c8  |T%):T%+=...6*. .|
000002a0  97 20 58 25 2c 59 25 2c  42 25 3a fd 20 91 3e 54  |. X%,Y%,B%:. .>T|
000002b0  25 20 84 20 28 a6 30 3e  2d 31 29 20 84 20 42 25  |% . (.0>-1) . B%|
000002c0  3c 3e 30 0d 01 40 05 e1  0d 01 4a 04 0d 01 54 12  |<>0..@....J...T.|
000002d0  dd f2 70 72 69 6e 74 28  74 24 2c 59 25 29 0d 01  |..print(t$,Y%)..|
000002e0  5e 14 f1 8a 34 30 2d a9  74 24 2f 32 2c 59 25 29  |^...40-.t$/2,Y%)|
000002f0  74 24 0d 01 68 05 e1 0d  ff                       |t$..h....|
000002f9