�     >ColourCube
� by  Jan Vibe
� (Risc PC version)

� (c) AU May 1995

�mode("X640 Y480 C32K"):�
(*POINTER
2ȗ ȓ 48,40,0,767
<.�N%=0�31:� 8*N%,0,0:ȓ Ȑ 40,25*N%,24,30:�
FY%=-100
P�
ZYG%=Y%:ȗ X%,Y%,B%
d
� YG%<>Y%
nR%=(Y%-40)/3
x�B%=0�31:YB%=24*B%+40
��G%=0�31:XG%=24*G%+192
�� R%,8*G%,8*B%
�ȓ Ȑ XG%,YB%,24
��,
��
��0
��
�:

@� �mode(mode$)

J� c$,ex,ey,mode,end

T
� mode 64

^end=mode+20

h!mode=1

rmode!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$)
&	� i,j
0
i=�s$,p$)
:%� i<1 � d$="" � 490,"Missing "+p$
D� i<1 � =d$
Nj=�s$+" "," ",i+1)
X=�s$,i+1,j-i-1)
b
l� �_bpp(n$)
vȎ 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 15 f4 20 20 20  20 20 3e 43 6f 6c 6f 75  |.....     >Colou|
00000010  72 43 75 62 65 0d 00 0b  12 f4 20 62 79 20 20 4a  |rCube..... by  J|
00000020  61 6e 20 56 69 62 65 0d  00 0c 17 f4 20 28 52 69  |an Vibe..... (Ri|
00000030  73 63 20 50 43 20 76 65  72 73 69 6f 6e 29 0d 00  |sc PC version)..|
00000040  0d 15 f4 20 28 63 29 20  41 55 20 4d 61 79 20 31  |... (c) AU May 1|
00000050  39 39 35 0d 00 14 04 0d  00 1e 1d f2 6d 6f 64 65  |995.........mode|
00000060  28 22 58 36 34 30 20 59  34 38 30 20 43 33 32 4b  |("X640 Y480 C32K|
00000070  22 29 3a 87 0d 00 28 0c  2a 50 4f 49 4e 54 45 52  |"):...(.*POINTER|
00000080  0d 00 32 15 c8 97 20 c8  93 20 34 38 2c 34 30 2c  |..2... .. 48,40,|
00000090  30 2c 37 36 37 0d 00 3c  2e e3 4e 25 3d 30 b8 33  |0,767..<..N%=0.3|
000000a0  31 3a e6 20 38 2a 4e 25  2c 30 2c 30 3a c8 93 20  |1:. 8*N%,0,0:.. |
000000b0  c8 90 20 34 30 2c 32 35  2a 4e 25 2c 32 34 2c 33  |.. 40,25*N%,24,3|
000000c0  30 3a ed 0d 00 46 0b 59  25 3d 2d 31 30 30 0d 00  |0:...F.Y%=-100..|
000000d0  50 05 f5 0d 00 5a 16 59  47 25 3d 59 25 3a c8 97  |P....Z.YG%=Y%:..|
000000e0  20 58 25 2c 59 25 2c 42  25 0d 00 64 0d e7 20 59  | X%,Y%,B%..d.. Y|
000000f0  47 25 3c 3e 59 25 0d 00  6e 10 52 25 3d 28 59 25  |G%<>Y%..n.R%=(Y%|
00000100  2d 34 30 29 2f 33 0d 00  78 19 e3 42 25 3d 30 b8  |-40)/3..x..B%=0.|
00000110  33 31 3a 59 42 25 3d 32  34 2a 42 25 2b 34 30 0d  |31:YB%=24*B%+40.|
00000120  00 82 1a e3 47 25 3d 30  b8 33 31 3a 58 47 25 3d  |....G%=0.31:XG%=|
00000130  32 34 2a 47 25 2b 31 39  32 0d 00 8c 12 e6 20 52  |24*G%+192..... R|
00000140  25 2c 38 2a 47 25 2c 38  2a 42 25 0d 00 96 14 c8  |%,8*G%,8*B%.....|
00000150  93 20 c8 90 20 58 47 25  2c 59 42 25 2c 32 34 0d  |. .. XG%,YB%,24.|
00000160  00 a0 06 ed 2c 0d 00 aa  05 cd 0d 00 b4 06 fd 30  |....,..........0|
00000170  0d 00 be 05 e0 0d 00 c8  05 3a 0d 01 40 12 dd 20  |.........:..@.. |
00000180  f2 6d 6f 64 65 28 6d 6f  64 65 24 29 0d 01 4a 17  |.mode(mode$)..J.|
00000190  ea 20 63 24 2c 65 78 2c  65 79 2c 6d 6f 64 65 2c  |. c$,ex,ey,mode,|
000001a0  65 6e 64 0d 01 54 0d de  20 6d 6f 64 65 20 36 34  |end..T.. mode 64|
000001b0  0d 01 5e 0f 65 6e 64 3d  6d 6f 64 65 2b 32 30 0d  |..^.end=mode+20.|
000001c0  01 68 0b 21 6d 6f 64 65  3d 31 0d 01 72 1d 6d 6f  |.h.!mode=1..r.mo|
000001d0  64 65 21 34 3d bb a4 5f  6d 28 6d 6f 64 65 24 2c  |de!4=.._m(mode$,|
000001e0  22 58 22 2c 22 22 29 0d  01 7c 1d 6d 6f 64 65 21  |"X","")..|.mode!|
000001f0  38 3d bb a4 5f 6d 28 6d  6f 64 65 24 2c 22 59 22  |8=.._m(mode$,"Y"|
00000200  2c 22 22 29 0d 01 86 19  63 24 3d a4 5f 6d 28 6d  |,"")....c$=._m(m|
00000210  6f 64 65 24 2c 22 43 22  2c 22 2a 22 29 0d 01 90  |ode$,"C","*")...|
00000220  0e e7 20 63 24 3d 22 2a  22 20 8c 0d 01 9a 19 20  |.. c$="*" ..... |
00000230  63 24 3d a4 5f 6d 28 6d  6f 64 65 24 2c 22 47 22  |c$=._m(mode$,"G"|
00000240  2c 22 22 29 0d 01 a4 27  20 e7 20 63 24 3d 22 32  |,"")...' . c$="2|
00000250  35 36 22 20 21 65 6e 64  3d 33 3a 65 6e 64 21 34  |56" !end=3:end!4|
00000260  3d 32 35 35 3a 65 6e 64  2b 3d 38 0d 01 ae 05 cd  |=255:end+=8.....|
00000270  0d 01 b8 15 6d 6f 64 65  21 31 32 3d a4 5f 62 70  |....mode!12=._bp|
00000280  70 28 63 24 29 0d 01 c2  20 6d 6f 64 65 21 31 36  |p(c$)... mode!16|
00000290  3d bb a4 5f 6d 28 6d 6f  64 65 24 2c 22 46 22 2c  |=.._m(mode$,"F",|
000002a0  22 2d 31 22 29 0d 01 cc  1c 65 78 3d bb a4 5f 6d  |"-1")....ex=.._m|
000002b0  28 6d 6f 64 65 24 2c 22  45 58 22 2c 22 2d 31 22  |(mode$,"EX","-1"|
000002c0  29 0d 01 d6 23 e7 20 65  78 3c 3e 2d 31 20 21 65  |)...#. ex<>-1 !e|
000002d0  6e 64 3d 34 3a 65 6e 64  21 34 3d 65 78 3a 65 6e  |nd=4:end!4=ex:en|
000002e0  64 2b 3d 38 0d 01 e0 1c  65 79 3d bb a4 5f 6d 28  |d+=8....ey=.._m(|
000002f0  6d 6f 64 65 24 2c 22 45  59 22 2c 22 2d 31 22 29  |mode$,"EY","-1")|
00000300  0d 01 ea 23 e7 20 65 79  3c 3e 2d 31 20 21 65 6e  |...#. ey<>-1 !en|
00000310  64 3d 35 3a 65 6e 64 21  34 3d 65 79 3a 65 6e 64  |d=5:end!4=ey:end|
00000320  2b 3d 38 0d 01 f4 0b 21  65 6e 64 3d 2d 31 0d 01  |+=8....!end=-1..|
00000330  fe 0a eb 20 6d 6f 64 65  0d 02 08 05 e1 0d 02 12  |... mode........|
00000340  04 0d 02 1c 13 dd 20 a4  5f 6d 28 73 24 2c 70 24  |...... ._m(s$,p$|
00000350  2c 64 24 29 0d 02 26 09  ea 20 69 2c 6a 0d 02 30  |,d$)..&.. i,j..0|
00000360  0d 69 3d a7 73 24 2c 70  24 29 0d 02 3a 25 e7 20  |.i=.s$,p$)..:%. |
00000370  69 3c 31 20 80 20 64 24  3d 22 22 20 85 20 34 39  |i<1 . d$="" . 49|
00000380  30 2c 22 4d 69 73 73 69  6e 67 20 22 2b 70 24 0d  |0,"Missing "+p$.|
00000390  02 44 0f e7 20 69 3c 31  20 8c 20 3d 64 24 0d 02  |.D.. i<1 . =d$..|
000003a0  4e 16 6a 3d a7 73 24 2b  22 20 22 2c 22 20 22 2c  |N.j=.s$+" "," ",|
000003b0  69 2b 31 29 0d 02 58 13  3d c1 73 24 2c 69 2b 31  |i+1)..X.=.s$,i+1|
000003c0  2c 6a 2d 69 2d 31 29 0d  02 62 04 0d 02 6c 0f dd  |,j-i-1)..b...l..|
000003d0  20 a4 5f 62 70 70 28 6e  24 29 0d 02 76 0b c8 8e  | ._bpp(n$)..v...|
000003e0  20 6e 24 20 ca 0d 02 80  0d 20 c9 20 22 32 22 3a  | n$ ..... . "2":|
000003f0  3d 30 0d 02 8a 0d 20 c9  20 22 34 22 3a 3d 31 0d  |=0.... . "4":=1.|
00000400  02 94 0e 20 c9 20 22 31  36 22 3a 3d 32 0d 02 9e  |... . "16":=2...|
00000410  0f 20 c9 20 22 32 35 36  22 3a 3d 33 0d 02 a8 21  |. . "256":=3...!|
00000420  20 c9 20 22 33 32 54 22  2c 22 33 32 74 22 2c 22  | . "32T","32t","|
00000430  33 32 4b 22 2c 22 33 32  6b 22 3a 3d 34 0d 02 b2  |32K","32k":=4...|
00000440  15 20 c9 20 22 31 36 4d  22 2c 22 31 36 6d 22 3a  |. . "16M","16m":|
00000450  3d 35 0d 02 bc 21 20 7f  3a 20 85 20 34 39 30 2c  |=5...! .: . 490,|
00000460  22 42 61 64 20 70 61 72  61 6d 65 74 65 72 20 22  |"Bad parameter "|
00000470  2b 6e 24 0d 02 c6 05 cb  0d ff                    |+n$.......|
0000047a