� >PROCmode
.� Same as BASIC MODE "X... Y... C..." etc.
+� but uses a mode selector instead of a
(*� call to WimpMode thus preserving the
2� desktop's mode
<�
F:
P� �mode(mode$)
Z� c$,ex,ey,mode,end
d
� mode 64
nend=mode+20
x!mode=1
�mode!4=��_m(mode$,"X","")
�mode!8=��_m(mode$,"Y","")
�c$=�_m(mode$,"C","*")
�� c$="*" �
� c$=�_m(mode$,"G","")
�' � c$="256" !end=3:end!4=255:end+=8
��
�mode!12=�_bpp(c$)
� mode!16=��_m(mode$,"F","-1")
�ex=��_m(mode$,"EX","-1")
�#� ex<>-1 !end=4:end!4=ex:end+=8
�ey=��_m(mode$,"EY","-1")
�#� ey<>-1 !end=5:end!4=ey:end+=8

!end=-1


� mode

�

"

,� �_m(s$,p$,d$)

6	� i,j

@
i=�s$,p$)

J%� i<1 � d$="" � 490,"Missing "+p$

T� i<1 � =d$

^j=�s$+" "," ",i+1)

h=�s$,i+1,j-i-1)

r

|� �_bpp(n$)

�Ȏ n$ �

�
 � "2":=0

�
 � "4":=1

� � "16":=2

� � "256":=3

�! � "32T","32t","32K","32k":=4

� � "16M","16m":=5

�! : � 490,"Bad parameter "+n$

��
�

00000000  0d 00 0a 0f f4 20 3e 50  52 4f 43 6d 6f 64 65 0d  |..... >PROCmode.|
00000010  00 14 2e f4 20 53 61 6d  65 20 61 73 20 42 41 53  |.... Same as BAS|
00000020  49 43 20 4d 4f 44 45 20  22 58 2e 2e 2e 20 59 2e  |IC MODE "X... Y.|
00000030  2e 2e 20 43 2e 2e 2e 22  20 65 74 63 2e 0d 00 1e  |.. C..." etc....|
00000040  2b f4 20 62 75 74 20 75  73 65 73 20 61 20 6d 6f  |+. but uses a mo|
00000050  64 65 20 73 65 6c 65 63  74 6f 72 20 69 6e 73 74  |de selector inst|
00000060  65 61 64 20 6f 66 20 61  0d 00 28 2a f4 20 63 61  |ead of a..(*. ca|
00000070  6c 6c 20 74 6f 20 57 69  6d 70 4d 6f 64 65 20 74  |ll to WimpMode t|
00000080  68 75 73 20 70 72 65 73  65 72 76 69 6e 67 20 74  |hus preserving t|
00000090  68 65 0d 00 32 14 f4 20  64 65 73 6b 74 6f 70 27  |he..2.. desktop'|
000000a0  73 20 6d 6f 64 65 0d 00  3c 05 e0 0d 00 46 05 3a  |s mode..<....F.:|
000000b0  0d 00 50 12 dd 20 f2 6d  6f 64 65 28 6d 6f 64 65  |..P.. .mode(mode|
000000c0  24 29 0d 00 5a 17 ea 20  63 24 2c 65 78 2c 65 79  |$)..Z.. c$,ex,ey|
000000d0  2c 6d 6f 64 65 2c 65 6e  64 0d 00 64 0d de 20 6d  |,mode,end..d.. m|
000000e0  6f 64 65 20 36 34 0d 00  6e 0f 65 6e 64 3d 6d 6f  |ode 64..n.end=mo|
000000f0  64 65 2b 32 30 0d 00 78  0b 21 6d 6f 64 65 3d 31  |de+20..x.!mode=1|
00000100  0d 00 82 1d 6d 6f 64 65  21 34 3d bb a4 5f 6d 28  |....mode!4=.._m(|
00000110  6d 6f 64 65 24 2c 22 58  22 2c 22 22 29 0d 00 8c  |mode$,"X","")...|
00000120  1d 6d 6f 64 65 21 38 3d  bb a4 5f 6d 28 6d 6f 64  |.mode!8=.._m(mod|
00000130  65 24 2c 22 59 22 2c 22  22 29 0d 00 96 19 63 24  |e$,"Y","")....c$|
00000140  3d a4 5f 6d 28 6d 6f 64  65 24 2c 22 43 22 2c 22  |=._m(mode$,"C","|
00000150  2a 22 29 0d 00 a0 0e e7  20 63 24 3d 22 2a 22 20  |*")..... c$="*" |
00000160  8c 0d 00 aa 19 20 63 24  3d a4 5f 6d 28 6d 6f 64  |..... c$=._m(mod|
00000170  65 24 2c 22 47 22 2c 22  22 29 0d 00 b4 27 20 e7  |e$,"G","")...' .|
00000180  20 63 24 3d 22 32 35 36  22 20 21 65 6e 64 3d 33  | c$="256" !end=3|
00000190  3a 65 6e 64 21 34 3d 32  35 35 3a 65 6e 64 2b 3d  |:end!4=255:end+=|
000001a0  38 0d 00 be 05 cd 0d 00  c8 15 6d 6f 64 65 21 31  |8.........mode!1|
000001b0  32 3d a4 5f 62 70 70 28  63 24 29 0d 00 d2 20 6d  |2=._bpp(c$)... m|
000001c0  6f 64 65 21 31 36 3d bb  a4 5f 6d 28 6d 6f 64 65  |ode!16=.._m(mode|
000001d0  24 2c 22 46 22 2c 22 2d  31 22 29 0d 00 dc 1c 65  |$,"F","-1")....e|
000001e0  78 3d bb a4 5f 6d 28 6d  6f 64 65 24 2c 22 45 58  |x=.._m(mode$,"EX|
000001f0  22 2c 22 2d 31 22 29 0d  00 e6 23 e7 20 65 78 3c  |","-1")...#. ex<|
00000200  3e 2d 31 20 21 65 6e 64  3d 34 3a 65 6e 64 21 34  |>-1 !end=4:end!4|
00000210  3d 65 78 3a 65 6e 64 2b  3d 38 0d 00 f0 1c 65 79  |=ex:end+=8....ey|
00000220  3d bb a4 5f 6d 28 6d 6f  64 65 24 2c 22 45 59 22  |=.._m(mode$,"EY"|
00000230  2c 22 2d 31 22 29 0d 00  fa 23 e7 20 65 79 3c 3e  |,"-1")...#. ey<>|
00000240  2d 31 20 21 65 6e 64 3d  35 3a 65 6e 64 21 34 3d  |-1 !end=5:end!4=|
00000250  65 79 3a 65 6e 64 2b 3d  38 0d 01 04 0b 21 65 6e  |ey:end+=8....!en|
00000260  64 3d 2d 31 0d 01 0e 0a  eb 20 6d 6f 64 65 0d 01  |d=-1..... mode..|
00000270  18 05 e1 0d 01 22 04 0d  01 2c 13 dd 20 a4 5f 6d  |....."...,.. ._m|
00000280  28 73 24 2c 70 24 2c 64  24 29 0d 01 36 09 ea 20  |(s$,p$,d$)..6.. |
00000290  69 2c 6a 0d 01 40 0d 69  3d a7 73 24 2c 70 24 29  |i,j..@.i=.s$,p$)|
000002a0  0d 01 4a 25 e7 20 69 3c  31 20 80 20 64 24 3d 22  |..J%. i<1 . d$="|
000002b0  22 20 85 20 34 39 30 2c  22 4d 69 73 73 69 6e 67  |" . 490,"Missing|
000002c0  20 22 2b 70 24 0d 01 54  0f e7 20 69 3c 31 20 8c  | "+p$..T.. i<1 .|
000002d0  20 3d 64 24 0d 01 5e 16  6a 3d a7 73 24 2b 22 20  | =d$..^.j=.s$+" |
000002e0  22 2c 22 20 22 2c 69 2b  31 29 0d 01 68 13 3d c1  |"," ",i+1)..h.=.|
000002f0  73 24 2c 69 2b 31 2c 6a  2d 69 2d 31 29 0d 01 72  |s$,i+1,j-i-1)..r|
00000300  04 0d 01 7c 0f dd 20 a4  5f 62 70 70 28 6e 24 29  |...|.. ._bpp(n$)|
00000310  0d 01 86 0b c8 8e 20 6e  24 20 ca 0d 01 90 0d 20  |...... n$ ..... |
00000320  c9 20 22 32 22 3a 3d 30  0d 01 9a 0d 20 c9 20 22  |. "2":=0.... . "|
00000330  34 22 3a 3d 31 0d 01 a4  0e 20 c9 20 22 31 36 22  |4":=1.... . "16"|
00000340  3a 3d 32 0d 01 ae 0f 20  c9 20 22 32 35 36 22 3a  |:=2.... . "256":|
00000350  3d 33 0d 01 b8 21 20 c9  20 22 33 32 54 22 2c 22  |=3...! . "32T","|
00000360  33 32 74 22 2c 22 33 32  4b 22 2c 22 33 32 6b 22  |32t","32K","32k"|
00000370  3a 3d 34 0d 01 c2 15 20  c9 20 22 31 36 4d 22 2c  |:=4.... . "16M",|
00000380  22 31 36 6d 22 3a 3d 35  0d 01 cc 21 20 7f 3a 20  |"16m":=5...! .: |
00000390  85 20 34 39 30 2c 22 42  61 64 20 70 61 72 61 6d  |. 490,"Bad param|
000003a0  65 74 65 72 20 22 2b 6e  24 0d 01 d6 05 cb 0d ff  |eter "+n$.......|
000003b0