� >MENU
� (C) Paul Vigay
� Writtem by Paul Vigay
(� (C) 16/11/89
2� Version 1.1b
<)� latest version dated: 23rd May 1990
F�
P6�128Ȝ0:�31:�28,0,31,79,18:�:�$;" at line ";�:�
Zsize%=110*1024
droot$="<Menu$Path>.^"
n� sprites% size%
x,� buffer% 1000,names$(80),menunames$(80)
�
�getnames
��
�
� 15:�
�� 15:�32,10);"Paul Vigay"
�� 12:�33,12);"presents"
�� 56:�34,14);"DISC 1"
�@ș "OS_SpriteOp",&109,sprites%:sprites%!0=size%:sprites%!8=0
�8ș "OS_SpriteOp",&10A,sprites%,"<Menu$Path>.Sprites"
��
�� N%=0 � 150 � 20
�  Ȗ
�/  ș "OS_SpriteOp",&134,sprites%,"0",N%,600
�3  ș "OS_SpriteOp",&134,sprites%,"0",300-N%,600

� N%

�3,31 Ȝ 193

� N%=1279 � 476 � -16

"  Ȗ

,  � N%,468,N%+308,468

6  � N%+16,468,N%+324,468

@� N%

J� N%=1 � 8

T  Ȗ

^3  ș"OS_SpriteOp",&122,sprites%,�(N%),476,476,8

h� N%

rX%=20:Y%=304

|X1%=4:Y1%=20

��129Ȝ128:�31

�n%=0

�� N%=1 � num%

�0  ș"OS_SpriteOp",&122,sprites%,"10",X%,Y%,8

�  �X1%,Y1%);names$(N%)

�  Y%-=128:Y1%+=4

�  � Y1%>=32 �

�    X1%+=20:Y1%=20

�    X%+=320:Y%=304

�  �

�  n%+=1

�  � n%=12 N%=num%

�� N%
*POINTER 1
x1%=-1:y1%=-1
S%=0
&�
0  �
:    ȗ X%,Y%,B%
D     x%=X%/322:y%=(Y%-30)/128
N    S%=x%*3+(3-y%)
X:    � y%>=0 � y%<=2 � (x%<>x1% � y%<>y1%) � S%<=num% �
b0      �4,0:ȓ Ȑ x%*320+24,y%*128+56,272,108
l2      �4,0:ȓ Ȑ x1%*320+24,y1%*128+56,272,108
v      x1%=x%:y1%=y%
�	    �
�  � B% � 4
�  �:ȗ X%,Y%,B%:� B%=0
�  time%=�+20
�'  �:ȗ X%,Y%,B%:� B% � 4 � �>=time%
�� �<time% � S%<=num%
�"�("RUN "+root$+"."+names$(S%))
��
�
���getnames
�� p%,p1%,N%
�5ș"OS_GBPB",9,root$,buffer%,99,0,1000,0 � ,,,num%
�p1%=buffer%
N%=1
ȕ N%<=num%
  p%=p1%
   ȕ ?p%<>0:p%+=1:�:?p%=13
*  names$(N%)=$p1%
4  p1%=p%+1:N%+=1
>�
H�
�

00000000  0d 00 0a 0b f4 20 3e 4d  45 4e 55 0d 00 14 14 f4  |..... >MENU.....|
00000010  20 28 43 29 20 50 61 75  6c 20 56 69 67 61 79 0d  | (C) Paul Vigay.|
00000020  00 1e 1b f4 20 57 72 69  74 74 65 6d 20 62 79 20  |.... Writtem by |
00000030  50 61 75 6c 20 56 69 67  61 79 0d 00 28 12 f4 20  |Paul Vigay..(.. |
00000040  28 43 29 20 31 36 2f 31  31 2f 38 39 0d 00 32 12  |(C) 16/11/89..2.|
00000050  f4 20 56 65 72 73 69 6f  6e 20 31 2e 31 62 0d 00  |. Version 1.1b..|
00000060  3c 29 f4 20 6c 61 74 65  73 74 20 76 65 72 73 69  |<). latest versi|
00000070  6f 6e 20 64 61 74 65 64  3a 20 32 33 72 64 20 4d  |on dated: 23rd M|
00000080  61 79 20 31 39 39 30 0d  00 46 05 f4 0d 00 50 36  |ay 1990..F....P6|
00000090  ee 85 fb 31 32 38 c8 9c  30 3a fb 33 31 3a ef 32  |...128..0:.31:.2|
000000a0  38 2c 30 2c 33 31 2c 37  39 2c 31 38 3a db 3a f1  |8,0,31,79,18:.:.|
000000b0  f6 24 3b 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |.$;" at line ";.|
000000c0  3a e0 0d 00 5a 12 73 69  7a 65 25 3d 31 31 30 2a  |:...Z.size%=110*|
000000d0  31 30 32 34 0d 00 64 19  72 6f 6f 74 24 3d 22 3c  |1024..d.root$="<|
000000e0  4d 65 6e 75 24 50 61 74  68 3e 2e 5e 22 0d 00 6e  |Menu$Path>.^"..n|
000000f0  14 de 20 73 70 72 69 74  65 73 25 20 73 69 7a 65  |.. sprites% size|
00000100  25 0d 00 78 2c de 20 62  75 66 66 65 72 25 20 31  |%..x,. buffer% 1|
00000110  30 30 30 2c 6e 61 6d 65  73 24 28 38 30 29 2c 6d  |000,names$(80),m|
00000120  65 6e 75 6e 61 6d 65 73  24 28 38 30 29 0d 00 82  |enunames$(80)...|
00000130  0d f2 67 65 74 6e 61 6d  65 73 0d 00 8c 05 db 0d  |..getnames......|
00000140  00 96 0a eb 20 31 35 3a  87 0d 00 a0 1e fb 20 31  |.... 15:...... 1|
00000150  35 3a f1 8a 33 32 2c 31  30 29 3b 22 50 61 75 6c  |5:..32,10);"Paul|
00000160  20 56 69 67 61 79 22 0d  00 aa 1c fb 20 31 32 3a  | Vigay"..... 12:|
00000170  f1 8a 33 33 2c 31 32 29  3b 22 70 72 65 73 65 6e  |..33,12);"presen|
00000180  74 73 22 0d 00 b4 1a fb  20 35 36 3a f1 8a 33 34  |ts"..... 56:..34|
00000190  2c 31 34 29 3b 22 44 49  53 43 20 31 22 0d 00 be  |,14);"DISC 1"...|
000001a0  40 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |@.. "OS_SpriteOp|
000001b0  22 2c 26 31 30 39 2c 73  70 72 69 74 65 73 25 3a  |",&109,sprites%:|
000001c0  73 70 72 69 74 65 73 25  21 30 3d 73 69 7a 65 25  |sprites%!0=size%|
000001d0  3a 73 70 72 69 74 65 73  25 21 38 3d 30 0d 00 c8  |:sprites%!8=0...|
000001e0  38 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |8.. "OS_SpriteOp|
000001f0  22 2c 26 31 30 41 2c 73  70 72 69 74 65 73 25 2c  |",&10A,sprites%,|
00000200  22 3c 4d 65 6e 75 24 50  61 74 68 3e 2e 53 70 72  |"<Menu$Path>.Spr|
00000210  69 74 65 73 22 0d 00 d2  05 db 0d 00 dc 15 e3 20  |ites".......... |
00000220  4e 25 3d 30 20 b8 20 31  35 30 20 88 20 32 30 0d  |N%=0 . 150 . 20.|
00000230  00 e6 08 20 20 c8 96 0d  00 f0 2f 20 20 c8 99 20  |...  ...../  .. |
00000240  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000250  33 34 2c 73 70 72 69 74  65 73 25 2c 22 30 22 2c  |34,sprites%,"0",|
00000260  4e 25 2c 36 30 30 0d 00  fa 33 20 20 c8 99 20 22  |N%,600...3  .. "|
00000270  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00000280  34 2c 73 70 72 69 74 65  73 25 2c 22 30 22 2c 33  |4,sprites%,"0",3|
00000290  30 30 2d 4e 25 2c 36 30  30 0d 01 04 08 ed 20 4e  |00-N%,600..... N|
000002a0  25 0d 01 0e 10 e6 33 2c  33 31 20 c8 9c 20 31 39  |%.....3,31 .. 19|
000002b0  33 0d 01 18 19 e3 20 4e  25 3d 31 32 37 39 20 b8  |3..... N%=1279 .|
000002c0  20 34 37 36 20 88 20 2d  31 36 0d 01 22 08 20 20  | 476 . -16..".  |
000002d0  c8 96 0d 01 2c 19 20 20  86 20 4e 25 2c 34 36 38  |....,.  . N%,468|
000002e0  2c 4e 25 2b 33 30 38 2c  34 36 38 0d 01 36 1c 20  |,N%+308,468..6. |
000002f0  20 86 20 4e 25 2b 31 36  2c 34 36 38 2c 4e 25 2b  | . N%+16,468,N%+|
00000300  33 32 34 2c 34 36 38 0d  01 40 08 ed 20 4e 25 0d  |324,468..@.. N%.|
00000310  01 4a 0e e3 20 4e 25 3d  31 20 b8 20 38 0d 01 54  |.J.. N%=1 . 8..T|
00000320  08 20 20 c8 96 0d 01 5e  33 20 20 c8 99 22 4f 53  |.  ....^3  .."OS|
00000330  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 32 2c  |_SpriteOp",&122,|
00000340  73 70 72 69 74 65 73 25  2c c3 28 4e 25 29 2c 34  |sprites%,.(N%),4|
00000350  37 36 2c 34 37 36 2c 38  0d 01 68 08 ed 20 4e 25  |76,476,8..h.. N%|
00000360  0d 01 72 10 58 25 3d 32  30 3a 59 25 3d 33 30 34  |..r.X%=20:Y%=304|
00000370  0d 01 7c 10 58 31 25 3d  34 3a 59 31 25 3d 32 30  |..|.X1%=4:Y1%=20|
00000380  0d 01 86 11 fb 31 32 39  c8 9c 31 32 38 3a fb 33  |.....129..128:.3|
00000390  31 0d 01 90 08 6e 25 3d  30 0d 01 9a 11 e3 20 4e  |1....n%=0..... N|
000003a0  25 3d 31 20 b8 20 6e 75  6d 25 0d 01 a4 30 20 20  |%=1 . num%...0  |
000003b0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000003c0  26 31 32 32 2c 73 70 72  69 74 65 73 25 2c 22 31  |&122,sprites%,"1|
000003d0  30 22 2c 58 25 2c 59 25  2c 38 0d 01 ae 1b 20 20  |0",X%,Y%,8....  |
000003e0  f1 8a 58 31 25 2c 59 31  25 29 3b 6e 61 6d 65 73  |..X1%,Y1%);names|
000003f0  24 28 4e 25 29 0d 01 b8  14 20 20 59 25 2d 3d 31  |$(N%)....  Y%-=1|
00000400  32 38 3a 59 31 25 2b 3d  34 0d 01 c2 11 20 20 e7  |28:Y1%+=4....  .|
00000410  20 59 31 25 3e 3d 33 32  20 8c 0d 01 cc 16 20 20  | Y1%>=32 .....  |
00000420  20 20 58 31 25 2b 3d 32  30 3a 59 31 25 3d 32 30  |  X1%+=20:Y1%=20|
00000430  0d 01 d6 16 20 20 20 20  58 25 2b 3d 33 32 30 3a  |....    X%+=320:|
00000440  59 25 3d 33 30 34 0d 01  e0 07 20 20 cd 0d 01 ea  |Y%=304....  ....|
00000450  0b 20 20 6e 25 2b 3d 31  0d 01 f4 15 20 20 e7 20  |.  n%+=1....  . |
00000460  6e 25 3d 31 32 20 4e 25  3d 6e 75 6d 25 0d 01 fe  |n%=12 N%=num%...|
00000470  08 ed 20 4e 25 0d 02 08  0e 2a 50 4f 49 4e 54 45  |.. N%....*POINTE|
00000480  52 20 31 0d 02 12 11 78  31 25 3d 2d 31 3a 79 31  |R 1....x1%=-1:y1|
00000490  25 3d 2d 31 0d 02 1c 08  53 25 3d 30 0d 02 26 05  |%=-1....S%=0..&.|
000004a0  f5 0d 02 30 07 20 20 f5  0d 02 3a 13 20 20 20 20  |...0.  ...:.    |
000004b0  c8 97 20 58 25 2c 59 25  2c 42 25 0d 02 44 20 20  |.. X%,Y%,B%..D  |
000004c0  20 20 20 78 25 3d 58 25  2f 33 32 32 3a 79 25 3d  |   x%=X%/322:y%=|
000004d0  28 59 25 2d 33 30 29 2f  31 32 38 0d 02 4e 16 20  |(Y%-30)/128..N. |
000004e0  20 20 20 53 25 3d 78 25  2a 33 2b 28 33 2d 79 25  |   S%=x%*3+(3-y%|
000004f0  29 0d 02 58 3a 20 20 20  20 e7 20 79 25 3e 3d 30  |)..X:    . y%>=0|
00000500  20 80 20 79 25 3c 3d 32  20 80 20 28 78 25 3c 3e  | . y%<=2 . (x%<>|
00000510  78 31 25 20 84 20 79 25  3c 3e 79 31 25 29 20 80  |x1% . y%<>y1%) .|
00000520  20 53 25 3c 3d 6e 75 6d  25 20 8c 0d 02 62 30 20  | S%<=num% ...b0 |
00000530  20 20 20 20 20 e6 34 2c  30 3a c8 93 20 c8 90 20  |     .4,0:.. .. |
00000540  78 25 2a 33 32 30 2b 32  34 2c 79 25 2a 31 32 38  |x%*320+24,y%*128|
00000550  2b 35 36 2c 32 37 32 2c  31 30 38 0d 02 6c 32 20  |+56,272,108..l2 |
00000560  20 20 20 20 20 e6 34 2c  30 3a c8 93 20 c8 90 20  |     .4,0:.. .. |
00000570  78 31 25 2a 33 32 30 2b  32 34 2c 79 31 25 2a 31  |x1%*320+24,y1%*1|
00000580  32 38 2b 35 36 2c 32 37  32 2c 31 30 38 0d 02 76  |28+56,272,108..v|
00000590  17 20 20 20 20 20 20 78  31 25 3d 78 25 3a 79 31  |.      x1%=x%:y1|
000005a0  25 3d 79 25 0d 02 80 09  20 20 20 20 cd 0d 02 8a  |%=y%....    ....|
000005b0  0e 20 20 fd 20 42 25 20  80 20 34 0d 02 94 1a 20  |.  . B% . 4.... |
000005c0  20 f5 3a c8 97 20 58 25  2c 59 25 2c 42 25 3a fd  | .:.. X%,Y%,B%:.|
000005d0  20 42 25 3d 30 0d 02 9e  10 20 20 74 69 6d 65 25  | B%=0....  time%|
000005e0  3d 91 2b 32 30 0d 02 a8  27 20 20 f5 3a c8 97 20  |=.+20...'  .:.. |
000005f0  58 25 2c 59 25 2c 42 25  3a fd 20 42 25 20 80 20  |X%,Y%,B%:. B% . |
00000600  34 20 84 20 91 3e 3d 74  69 6d 65 25 0d 02 b2 18  |4 . .>=time%....|
00000610  fd 20 91 3c 74 69 6d 65  25 20 80 20 53 25 3c 3d  |. .<time% . S%<=|
00000620  6e 75 6d 25 0d 02 bc 22  ff 28 22 52 55 4e 20 22  |num%...".("RUN "|
00000630  2b 72 6f 6f 74 24 2b 22  2e 22 2b 6e 61 6d 65 73  |+root$+"."+names|
00000640  24 28 53 25 29 29 0d 02  c6 05 e0 0d 02 d0 04 0d  |$(S%))..........|
00000650  02 da 0e dd f2 67 65 74  6e 61 6d 65 73 0d 02 e4  |.....getnames...|
00000660  0f ea 20 70 25 2c 70 31  25 2c 4e 25 0d 02 ee 35  |.. p%,p1%,N%...5|
00000670  c8 99 22 4f 53 5f 47 42  50 42 22 2c 39 2c 72 6f  |.."OS_GBPB",9,ro|
00000680  6f 74 24 2c 62 75 66 66  65 72 25 2c 39 39 2c 30  |ot$,buffer%,99,0|
00000690  2c 31 30 30 30 2c 30 20  b8 20 2c 2c 2c 6e 75 6d  |,1000,0 . ,,,num|
000006a0  25 0d 02 f8 0f 70 31 25  3d 62 75 66 66 65 72 25  |%....p1%=buffer%|
000006b0  0d 03 02 08 4e 25 3d 31  0d 03 0c 0f c8 95 20 4e  |....N%=1...... N|
000006c0  25 3c 3d 6e 75 6d 25 0d  03 16 0c 20 20 70 25 3d  |%<=num%....  p%=|
000006d0  70 31 25 0d 03 20 1e 20  20 c8 95 20 3f 70 25 3c  |p1%.. .  .. ?p%<|
000006e0  3e 30 3a 70 25 2b 3d 31  3a ce 3a 3f 70 25 3d 31  |>0:p%+=1:.:?p%=1|
000006f0  33 0d 03 2a 15 20 20 6e  61 6d 65 73 24 28 4e 25  |3..*.  names$(N%|
00000700  29 3d 24 70 31 25 0d 03  34 14 20 20 70 31 25 3d  |)=$p1%..4.  p1%=|
00000710  70 25 2b 31 3a 4e 25 2b  3d 31 0d 03 3e 05 ce 0d  |p%+1:N%+=1..>...|
00000720  03 48 05 e1 0d ff                                 |.H....|
00000726