$� >Director:Menus.Modes.ByColour
� � � �$;" at line ";�:�
ș "OS_GetEnv" � in$
%log2bpp=�(�arg(in$,"-lbpp","-1"))
block_size = 1024
� block block_size
"ș "OS_ScreenMode",2 � ,,modes
modes=-modes
	

%menu=�swi_number("Director_Menu")
+endmenu=�swi_number("Director_EndMenu")
)option=�swi_number("Director_Option")

+command=�swi_number("Director_Command")
%dash=�swi_number("Director_Dash")



� bpp$(5)
)bpp$()="2","4","16","256","32T","16M"
"menu$=bpp$(log2bpp)+" Colours"
index=0
3ș "OS_CLI","Menu """+menu$+""" Modelist -temp"

lastx=0:lasty=0
�
B ș "OS_ScreenMode",2,,index,,,,block,block_size � ,ok,,,,,end
 a=block
 ȕ a<>end
  x=a!8
  y=a!12
  bpp=a!16

  fr=a!20
    � log2bpp=a!16 � a?24<>0 �
!   � x<>lastx � y<>lasty �
"-    ș option,""""+�c(x)+" x "+�c(y)+""""
#=    ș command,"WimpMode X"+�(x)+" Y"+�(y)+" C"+bpp$(bpp)
$   �
%   lastx=x
&   lasty=y
'  �
(  a+=!a
)  index+=1
* �
+� ok<>0
,ș endmenu
-1� index<>modes � 1,"Peculiar number of modes"
.*Set Director$Menu Modelist
/�
0
1� �arg(str$,arg$,def$)
2	� i,j
3i=�str$,arg$)
4� i=0 � =def$
5i+=�arg$+1
6j=�str$+" <"," ",i)
7=�str$,i,j-i)
8
9� �swi_number(swi$)
:,ș "OS_SWINumberFromString",,swi$ � swi%
;	=swi%
<
=� �c(n)
>=�"    "+�n,4)
�

00000000  0d 00 01 24 f4 20 3e 44  69 72 65 63 74 6f 72 3a  |...$. >Director:|
00000010  4d 65 6e 75 73 2e 4d 6f  64 65 73 2e 42 79 43 6f  |Menus.Modes.ByCo|
00000020  6c 6f 75 72 0d 00 02 1c  ee 20 85 20 f1 20 f6 24  |lour..... . . .$|
00000030  3b 22 20 61 74 20 6c 69  6e 65 20 22 3b 9e 3a e0  |;" at line ";.:.|
00000040  0d 00 03 18 c8 99 20 22  4f 53 5f 47 65 74 45 6e  |...... "OS_GetEn|
00000050  76 22 20 b8 20 69 6e 24  0d 00 04 25 6c 6f 67 32  |v" . in$...%log2|
00000060  62 70 70 3d a0 28 a4 61  72 67 28 69 6e 24 2c 22  |bpp=.(.arg(in$,"|
00000070  2d 6c 62 70 70 22 2c 22  2d 31 22 29 29 0d 00 05  |-lbpp","-1"))...|
00000080  15 62 6c 6f 63 6b 5f 73  69 7a 65 20 3d 20 31 30  |.block_size = 10|
00000090  32 34 0d 00 06 16 de 20  62 6c 6f 63 6b 20 62 6c  |24..... block bl|
000000a0  6f 63 6b 5f 73 69 7a 65  0d 00 07 22 c8 99 20 22  |ock_size...".. "|
000000b0  4f 53 5f 53 63 72 65 65  6e 4d 6f 64 65 22 2c 32  |OS_ScreenMode",2|
000000c0  20 b8 20 2c 2c 6d 6f 64  65 73 0d 00 08 10 6d 6f  | . ,,modes....mo|
000000d0  64 65 73 3d 2d 6d 6f 64  65 73 0d 00 09 04 0d 00  |des=-modes......|
000000e0  0a 25 6d 65 6e 75 3d a4  73 77 69 5f 6e 75 6d 62  |.%menu=.swi_numb|
000000f0  65 72 28 22 44 69 72 65  63 74 6f 72 5f 4d 65 6e  |er("Director_Men|
00000100  75 22 29 0d 00 0b 2b 65  6e 64 6d 65 6e 75 3d a4  |u")...+endmenu=.|
00000110  73 77 69 5f 6e 75 6d 62  65 72 28 22 44 69 72 65  |swi_number("Dire|
00000120  63 74 6f 72 5f 45 6e 64  4d 65 6e 75 22 29 0d 00  |ctor_EndMenu")..|
00000130  0c 29 6f 70 74 69 6f 6e  3d a4 73 77 69 5f 6e 75  |.)option=.swi_nu|
00000140  6d 62 65 72 28 22 44 69  72 65 63 74 6f 72 5f 4f  |mber("Director_O|
00000150  70 74 69 6f 6e 22 29 0d  00 0d 2b 63 6f 6d 6d 61  |ption")...+comma|
00000160  6e 64 3d a4 73 77 69 5f  6e 75 6d 62 65 72 28 22  |nd=.swi_number("|
00000170  44 69 72 65 63 74 6f 72  5f 43 6f 6d 6d 61 6e 64  |Director_Command|
00000180  22 29 0d 00 0e 25 64 61  73 68 3d a4 73 77 69 5f  |")...%dash=.swi_|
00000190  6e 75 6d 62 65 72 28 22  44 69 72 65 63 74 6f 72  |number("Director|
000001a0  5f 44 61 73 68 22 29 0d  00 0f 04 0d 00 10 04 0d  |_Dash").........|
000001b0  00 11 0d de 20 62 70 70  24 28 35 29 0d 00 12 29  |.... bpp$(5)...)|
000001c0  62 70 70 24 28 29 3d 22  32 22 2c 22 34 22 2c 22  |bpp$()="2","4","|
000001d0  31 36 22 2c 22 32 35 36  22 2c 22 33 32 54 22 2c  |16","256","32T",|
000001e0  22 31 36 4d 22 0d 00 13  22 6d 65 6e 75 24 3d 62  |"16M"..."menu$=b|
000001f0  70 70 24 28 6c 6f 67 32  62 70 70 29 2b 22 20 43  |pp$(log2bpp)+" C|
00000200  6f 6c 6f 75 72 73 22 0d  00 14 0b 69 6e 64 65 78  |olours"....index|
00000210  3d 30 0d 00 15 33 c8 99  20 22 4f 53 5f 43 4c 49  |=0...3.. "OS_CLI|
00000220  22 2c 22 4d 65 6e 75 20  22 22 22 2b 6d 65 6e 75  |","Menu """+menu|
00000230  24 2b 22 22 22 20 4d 6f  64 65 6c 69 73 74 20 2d  |$+""" Modelist -|
00000240  74 65 6d 70 22 0d 00 16  04 0d 00 17 13 6c 61 73  |temp"........las|
00000250  74 78 3d 30 3a 6c 61 73  74 79 3d 30 0d 00 18 05  |tx=0:lasty=0....|
00000260  f5 0d 00 19 42 20 c8 99  20 22 4f 53 5f 53 63 72  |....B .. "OS_Scr|
00000270  65 65 6e 4d 6f 64 65 22  2c 32 2c 2c 69 6e 64 65  |eenMode",2,,inde|
00000280  78 2c 2c 2c 2c 62 6c 6f  63 6b 2c 62 6c 6f 63 6b  |x,,,,block,block|
00000290  5f 73 69 7a 65 20 b8 20  2c 6f 6b 2c 2c 2c 2c 2c  |_size . ,ok,,,,,|
000002a0  65 6e 64 0d 00 1a 0c 20  61 3d 62 6c 6f 63 6b 0d  |end.... a=block.|
000002b0  00 1b 0e 20 c8 95 20 61  3c 3e 65 6e 64 0d 00 1c  |... .. a<>end...|
000002c0  0b 20 20 78 3d 61 21 38  0d 00 1d 0c 20 20 79 3d  |.  x=a!8....  y=|
000002d0  61 21 31 32 0d 00 1e 0e  20 20 62 70 70 3d 61 21  |a!12....  bpp=a!|
000002e0  31 36 0d 00 1f 0d 20 20  66 72 3d 61 21 32 30 0d  |16....  fr=a!20.|
000002f0  00 20 20 20 20 e7 20 6c  6f 67 32 62 70 70 3d 61  |.    . log2bpp=a|
00000300  21 31 36 20 80 20 61 3f  32 34 3c 3e 30 20 8c 0d  |!16 . a?24<>0 ..|
00000310  00 21 1e 20 20 20 e7 20  78 3c 3e 6c 61 73 74 78  |.!.   . x<>lastx|
00000320  20 84 20 79 3c 3e 6c 61  73 74 79 20 8c 0d 00 22  | . y<>lasty ..."|
00000330  2d 20 20 20 20 c8 99 20  6f 70 74 69 6f 6e 2c 22  |-    .. option,"|
00000340  22 22 22 2b a4 63 28 78  29 2b 22 20 78 20 22 2b  |"""+.c(x)+" x "+|
00000350  a4 63 28 79 29 2b 22 22  22 22 0d 00 23 3d 20 20  |.c(y)+""""..#=  |
00000360  20 20 c8 99 20 63 6f 6d  6d 61 6e 64 2c 22 57 69  |  .. command,"Wi|
00000370  6d 70 4d 6f 64 65 20 58  22 2b c3 28 78 29 2b 22  |mpMode X"+.(x)+"|
00000380  20 59 22 2b c3 28 79 29  2b 22 20 43 22 2b 62 70  | Y"+.(y)+" C"+bp|
00000390  70 24 28 62 70 70 29 0d  00 24 08 20 20 20 cd 0d  |p$(bpp)..$.   ..|
000003a0  00 25 0e 20 20 20 6c 61  73 74 78 3d 78 0d 00 26  |.%.   lastx=x..&|
000003b0  0e 20 20 20 6c 61 73 74  79 3d 79 0d 00 27 07 20  |.   lasty=y..'. |
000003c0  20 cd 0d 00 28 0b 20 20  61 2b 3d 21 61 0d 00 29  | ...(.  a+=!a..)|
000003d0  0e 20 20 69 6e 64 65 78  2b 3d 31 0d 00 2a 06 20  |.  index+=1..*. |
000003e0  ce 0d 00 2b 0b fd 20 6f  6b 3c 3e 30 0d 00 2c 0e  |...+.. ok<>0..,.|
000003f0  c8 99 20 65 6e 64 6d 65  6e 75 0d 00 2d 31 e7 20  |.. endmenu..-1. |
00000400  69 6e 64 65 78 3c 3e 6d  6f 64 65 73 20 85 20 31  |index<>modes . 1|
00000410  2c 22 50 65 63 75 6c 69  61 72 20 6e 75 6d 62 65  |,"Peculiar numbe|
00000420  72 20 6f 66 20 6d 6f 64  65 73 22 0d 00 2e 1f 2a  |r of modes"....*|
00000430  53 65 74 20 44 69 72 65  63 74 6f 72 24 4d 65 6e  |Set Director$Men|
00000440  75 20 4d 6f 64 65 6c 69  73 74 0d 00 2f 05 e0 0d  |u Modelist../...|
00000450  00 30 04 0d 00 31 1a dd  20 a4 61 72 67 28 73 74  |.0...1.. .arg(st|
00000460  72 24 2c 61 72 67 24 2c  64 65 66 24 29 0d 00 32  |r$,arg$,def$)..2|
00000470  09 ea 20 69 2c 6a 0d 00  33 11 69 3d a7 73 74 72  |.. i,j..3.i=.str|
00000480  24 2c 61 72 67 24 29 0d  00 34 11 e7 20 69 3d 30  |$,arg$)..4.. i=0|
00000490  20 8c 20 3d 64 65 66 24  0d 00 35 0e 69 2b 3d a9  | . =def$..5.i+=.|
000004a0  61 72 67 24 2b 31 0d 00  36 17 6a 3d a7 73 74 72  |arg$+1..6.j=.str|
000004b0  24 2b 22 20 3c 22 2c 22  20 22 2c 69 29 0d 00 37  |$+" <"," ",i)..7|
000004c0  11 3d c1 73 74 72 24 2c  69 2c 6a 2d 69 29 0d 00  |.=.str$,i,j-i)..|
000004d0  38 04 0d 00 39 17 dd 20  a4 73 77 69 5f 6e 75 6d  |8...9.. .swi_num|
000004e0  62 65 72 28 73 77 69 24  29 0d 00 3a 2c c8 99 20  |ber(swi$)..:,.. |
000004f0  22 4f 53 5f 53 57 49 4e  75 6d 62 65 72 46 72 6f  |"OS_SWINumberFro|
00000500  6d 53 74 72 69 6e 67 22  2c 2c 73 77 69 24 20 b8  |mString",,swi$ .|
00000510  20 73 77 69 25 0d 00 3b  09 3d 73 77 69 25 0d 00  | swi%..;.=swi%..|
00000520  3c 04 0d 00 3d 0b dd 20  a4 63 28 6e 29 0d 00 3e  |<...=.. .c(n)..>|
00000530  12 3d c2 22 20 20 20 20  22 2b c3 6e 2c 34 29 0d  |.=."    "+.n,4).|
00000540  ff                                                |.|
00000541