,� > TUNNEL     *** Jan Vibe may 1996 ***

<� This program is only for Risc PC's or computers fitted
(� with graphic enhancement.
2�
<7� Mode 103 is a 800 by 600 resolution mode with 256
F� redefinable colours.
P
Z�mode("X800 Y600 G256"):�
d.� CX(180),CY(180),RGB%(3,126),G%(3),CH%(3)
n7�N%=1�180:T=�(2*N%):CX(N%)=1000*�T:CY(N%)=1000*�T:�
x
�8�N%=1�63:RGB%(1,N%)=255:RGB%(2,N%)=4*N%:RGB%(3,N%)=0
�� N%,255,4*N%,0:�
�C�N%=1�63:RGB%(1,N%+63)=255:RGB%(2,N%+63)=255:RGB%(3,N%+63)=4*N%
�� N%+63,255,255,4*N%:�
�
�$�I%=1�126:ș "OS_SetColour",0,I%
��800+CX(180),600+CY(180)
�
�N%=1�180
�D=1-�(1)/30
�&�800,600:�85,800+CX(N%),600+CY(N%)
�#CX(N%)=CX(N%)*D:CY(N%)=CY(N%)*D
��,
�

�

IK%=�(7):G%(1)=RGB%(1,126):G%(2)=RGB%(2,126):G%(3)=RGB%(3,126):CH%()=0

(�K%�1 CH%(1)=4:� G%(1)>128 CH%(1)=-4

"(�K%�2 CH%(2)=4:� G%(2)>128 CH%(2)=-4

,(�K%�4 CH%(3)=4:� G%(3)>128 CH%(3)=-4

6�I%=1�63

@2�N%=2�126:�M%=1�3:RGB%(M%,N%-1)=RGB%(M%,N%):�,

J-G%(1)+=CH%(1):G%(2)+=CH%(2):G%(3)+=CH%(3)

T9RGB%(1,126)=G%(1):RGB%(2,126)=G%(2):RGB%(3,126)=G%(3)

^4�N%=1�126:�N%,RGB%(1,N%),RGB%(2,N%),RGB%(3,N%):�

h�

r�0

s

|� �mode(mode$)

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

�
� mode 64

�end=mode+20

�!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
0!end=-1
:
� mode
D�
N
X� �_m(s$,p$,d$)
b	� i,j
l
i=�s$,p$)
v%� i<1 � d$="" � 490,"Missing "+p$
�� i<1 � =d$
�j=�s$+" "," ",i+1)
�=�s$,i+1,j-i-1)
�
�� �_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 2c f4 20 3e 20  54 55 4e 4e 45 4c 20 20  |...,. > TUNNEL  |
00000010  20 20 20 2a 2a 2a 20 4a  61 6e 20 56 69 62 65 20  |   *** Jan Vibe |
00000020  6d 61 79 20 31 39 39 36  20 2a 2a 2a 0d 00 14 04  |may 1996 ***....|
00000030  0d 00 1e 3c f4 20 54 68  69 73 20 70 72 6f 67 72  |...<. This progr|
00000040  61 6d 20 69 73 20 6f 6e  6c 79 20 66 6f 72 20 52  |am is only for R|
00000050  69 73 63 20 50 43 27 73  20 6f 72 20 63 6f 6d 70  |isc PC's or comp|
00000060  75 74 65 72 73 20 66 69  74 74 65 64 0d 00 28 1f  |uters fitted..(.|
00000070  f4 20 77 69 74 68 20 67  72 61 70 68 69 63 20 65  |. with graphic e|
00000080  6e 68 61 6e 63 65 6d 65  6e 74 2e 0d 00 32 05 f4  |nhancement...2..|
00000090  0d 00 3c 37 f4 20 4d 6f  64 65 20 31 30 33 20 69  |..<7. Mode 103 i|
000000a0  73 20 61 20 38 30 30 20  62 79 20 36 30 30 20 72  |s a 800 by 600 r|
000000b0  65 73 6f 6c 75 74 69 6f  6e 20 6d 6f 64 65 20 77  |esolution mode w|
000000c0  69 74 68 20 32 35 36 0d  00 46 1a f4 20 72 65 64  |ith 256..F.. red|
000000d0  65 66 69 6e 61 62 6c 65  20 63 6f 6c 6f 75 72 73  |efinable colours|
000000e0  2e 0d 00 50 04 0d 00 5a  1d f2 6d 6f 64 65 28 22  |...P...Z..mode("|
000000f0  58 38 30 30 20 59 36 30  30 20 47 32 35 36 22 29  |X800 Y600 G256")|
00000100  3a 87 0d 00 64 2e de 20  43 58 28 31 38 30 29 2c  |:...d.. CX(180),|
00000110  43 59 28 31 38 30 29 2c  52 47 42 25 28 33 2c 31  |CY(180),RGB%(3,1|
00000120  32 36 29 2c 47 25 28 33  29 2c 43 48 25 28 33 29  |26),G%(3),CH%(3)|
00000130  0d 00 6e 37 e3 4e 25 3d  31 b8 31 38 30 3a 54 3d  |..n7.N%=1.180:T=|
00000140  b2 28 32 2a 4e 25 29 3a  43 58 28 4e 25 29 3d 31  |.(2*N%):CX(N%)=1|
00000150  30 30 30 2a b5 54 3a 43  59 28 4e 25 29 3d 31 30  |000*.T:CY(N%)=10|
00000160  30 30 2a 9b 54 3a ed 0d  00 78 04 0d 00 82 38 e3  |00*.T:...x....8.|
00000170  4e 25 3d 31 b8 36 33 3a  52 47 42 25 28 31 2c 4e  |N%=1.63:RGB%(1,N|
00000180  25 29 3d 32 35 35 3a 52  47 42 25 28 32 2c 4e 25  |%)=255:RGB%(2,N%|
00000190  29 3d 34 2a 4e 25 3a 52  47 42 25 28 33 2c 4e 25  |)=4*N%:RGB%(3,N%|
000001a0  29 3d 30 0d 00 8c 15 fb  20 4e 25 2c 32 35 35 2c  |)=0..... N%,255,|
000001b0  34 2a 4e 25 2c 30 3a ed  0d 00 96 43 e3 4e 25 3d  |4*N%,0:....C.N%=|
000001c0  31 b8 36 33 3a 52 47 42  25 28 31 2c 4e 25 2b 36  |1.63:RGB%(1,N%+6|
000001d0  33 29 3d 32 35 35 3a 52  47 42 25 28 32 2c 4e 25  |3)=255:RGB%(2,N%|
000001e0  2b 36 33 29 3d 32 35 35  3a 52 47 42 25 28 33 2c  |+63)=255:RGB%(3,|
000001f0  4e 25 2b 36 33 29 3d 34  2a 4e 25 0d 00 a0 1a fb  |N%+63)=4*N%.....|
00000200  20 4e 25 2b 36 33 2c 32  35 35 2c 32 35 35 2c 34  | N%+63,255,255,4|
00000210  2a 4e 25 3a ed 0d 00 aa  04 0d 00 b4 24 e3 49 25  |*N%:........$.I%|
00000220  3d 31 b8 31 32 36 3a c8  99 20 22 4f 53 5f 53 65  |=1.126:.. "OS_Se|
00000230  74 43 6f 6c 6f 75 72 22  2c 30 2c 49 25 0d 00 be  |tColour",0,I%...|
00000240  1c ec 38 30 30 2b 43 58  28 31 38 30 29 2c 36 30  |..800+CX(180),60|
00000250  30 2b 43 59 28 31 38 30  29 0d 00 c8 0d e3 4e 25  |0+CY(180).....N%|
00000260  3d 31 b8 31 38 30 0d 00  d2 0f 44 3d 31 2d b3 28  |=1.180....D=1-.(|
00000270  31 29 2f 33 30 0d 00 dc  26 ec 38 30 30 2c 36 30  |1)/30...&.800,60|
00000280  30 3a f0 38 35 2c 38 30  30 2b 43 58 28 4e 25 29  |0:.85,800+CX(N%)|
00000290  2c 36 30 30 2b 43 59 28  4e 25 29 0d 00 e6 23 43  |,600+CY(N%)...#C|
000002a0  58 28 4e 25 29 3d 43 58  28 4e 25 29 2a 44 3a 43  |X(N%)=CX(N%)*D:C|
000002b0  59 28 4e 25 29 3d 43 59  28 4e 25 29 2a 44 0d 00  |Y(N%)=CY(N%)*D..|
000002c0  f0 06 ed 2c 0d 00 fa 04  0d 01 04 05 f5 0d 01 0e  |...,............|
000002d0  49 4b 25 3d b3 28 37 29  3a 47 25 28 31 29 3d 52  |IK%=.(7):G%(1)=R|
000002e0  47 42 25 28 31 2c 31 32  36 29 3a 47 25 28 32 29  |GB%(1,126):G%(2)|
000002f0  3d 52 47 42 25 28 32 2c  31 32 36 29 3a 47 25 28  |=RGB%(2,126):G%(|
00000300  33 29 3d 52 47 42 25 28  33 2c 31 32 36 29 3a 43  |3)=RGB%(3,126):C|
00000310  48 25 28 29 3d 30 0d 01  18 28 e7 4b 25 80 31 20  |H%()=0...(.K%.1 |
00000320  43 48 25 28 31 29 3d 34  3a e7 20 47 25 28 31 29  |CH%(1)=4:. G%(1)|
00000330  3e 31 32 38 20 43 48 25  28 31 29 3d 2d 34 0d 01  |>128 CH%(1)=-4..|
00000340  22 28 e7 4b 25 80 32 20  43 48 25 28 32 29 3d 34  |"(.K%.2 CH%(2)=4|
00000350  3a e7 20 47 25 28 32 29  3e 31 32 38 20 43 48 25  |:. G%(2)>128 CH%|
00000360  28 32 29 3d 2d 34 0d 01  2c 28 e7 4b 25 80 34 20  |(2)=-4..,(.K%.4 |
00000370  43 48 25 28 33 29 3d 34  3a e7 20 47 25 28 33 29  |CH%(3)=4:. G%(3)|
00000380  3e 31 32 38 20 43 48 25  28 33 29 3d 2d 34 0d 01  |>128 CH%(3)=-4..|
00000390  36 0c e3 49 25 3d 31 b8  36 33 0d 01 40 32 e3 4e  |6..I%=1.63..@2.N|
000003a0  25 3d 32 b8 31 32 36 3a  e3 4d 25 3d 31 b8 33 3a  |%=2.126:.M%=1.3:|
000003b0  52 47 42 25 28 4d 25 2c  4e 25 2d 31 29 3d 52 47  |RGB%(M%,N%-1)=RG|
000003c0  42 25 28 4d 25 2c 4e 25  29 3a ed 2c 0d 01 4a 2d  |B%(M%,N%):.,..J-|
000003d0  47 25 28 31 29 2b 3d 43  48 25 28 31 29 3a 47 25  |G%(1)+=CH%(1):G%|
000003e0  28 32 29 2b 3d 43 48 25  28 32 29 3a 47 25 28 33  |(2)+=CH%(2):G%(3|
000003f0  29 2b 3d 43 48 25 28 33  29 0d 01 54 39 52 47 42  |)+=CH%(3)..T9RGB|
00000400  25 28 31 2c 31 32 36 29  3d 47 25 28 31 29 3a 52  |%(1,126)=G%(1):R|
00000410  47 42 25 28 32 2c 31 32  36 29 3d 47 25 28 32 29  |GB%(2,126)=G%(2)|
00000420  3a 52 47 42 25 28 33 2c  31 32 36 29 3d 47 25 28  |:RGB%(3,126)=G%(|
00000430  33 29 0d 01 5e 34 e3 4e  25 3d 31 b8 31 32 36 3a  |3)..^4.N%=1.126:|
00000440  fb 4e 25 2c 52 47 42 25  28 31 2c 4e 25 29 2c 52  |.N%,RGB%(1,N%),R|
00000450  47 42 25 28 32 2c 4e 25  29 2c 52 47 42 25 28 33  |GB%(2,N%),RGB%(3|
00000460  2c 4e 25 29 3a ed 0d 01  68 05 ed 0d 01 72 06 fd  |,N%):...h....r..|
00000470  30 0d 01 73 04 0d 01 7c  12 dd 20 f2 6d 6f 64 65  |0..s...|.. .mode|
00000480  28 6d 6f 64 65 24 29 0d  01 86 17 ea 20 63 24 2c  |(mode$)..... c$,|
00000490  65 78 2c 65 79 2c 6d 6f  64 65 2c 65 6e 64 0d 01  |ex,ey,mode,end..|
000004a0  90 0d de 20 6d 6f 64 65  20 36 34 0d 01 9a 0f 65  |... mode 64....e|
000004b0  6e 64 3d 6d 6f 64 65 2b  32 30 0d 01 a4 0b 21 6d  |nd=mode+20....!m|
000004c0  6f 64 65 3d 31 0d 01 ae  1d 6d 6f 64 65 21 34 3d  |ode=1....mode!4=|
000004d0  bb a4 5f 6d 28 6d 6f 64  65 24 2c 22 58 22 2c 22  |.._m(mode$,"X","|
000004e0  22 29 0d 01 b8 1d 6d 6f  64 65 21 38 3d bb a4 5f  |")....mode!8=.._|
000004f0  6d 28 6d 6f 64 65 24 2c  22 59 22 2c 22 22 29 0d  |m(mode$,"Y","").|
00000500  01 c2 19 63 24 3d a4 5f  6d 28 6d 6f 64 65 24 2c  |...c$=._m(mode$,|
00000510  22 43 22 2c 22 2a 22 29  0d 01 cc 0e e7 20 63 24  |"C","*")..... c$|
00000520  3d 22 2a 22 20 8c 0d 01  d6 19 20 63 24 3d a4 5f  |="*" ..... c$=._|
00000530  6d 28 6d 6f 64 65 24 2c  22 47 22 2c 22 22 29 0d  |m(mode$,"G","").|
00000540  01 e0 27 20 e7 20 63 24  3d 22 32 35 36 22 20 21  |..' . c$="256" !|
00000550  65 6e 64 3d 33 3a 65 6e  64 21 34 3d 32 35 35 3a  |end=3:end!4=255:|
00000560  65 6e 64 2b 3d 38 0d 01  ea 05 cd 0d 01 f4 15 6d  |end+=8.........m|
00000570  6f 64 65 21 31 32 3d a4  5f 62 70 70 28 63 24 29  |ode!12=._bpp(c$)|
00000580  0d 01 fe 20 6d 6f 64 65  21 31 36 3d bb a4 5f 6d  |... mode!16=.._m|
00000590  28 6d 6f 64 65 24 2c 22  46 22 2c 22 2d 31 22 29  |(mode$,"F","-1")|
000005a0  0d 02 08 1c 65 78 3d bb  a4 5f 6d 28 6d 6f 64 65  |....ex=.._m(mode|
000005b0  24 2c 22 45 58 22 2c 22  2d 31 22 29 0d 02 12 23  |$,"EX","-1")...#|
000005c0  e7 20 65 78 3c 3e 2d 31  20 21 65 6e 64 3d 34 3a  |. ex<>-1 !end=4:|
000005d0  65 6e 64 21 34 3d 65 78  3a 65 6e 64 2b 3d 38 0d  |end!4=ex:end+=8.|
000005e0  02 1c 1c 65 79 3d bb a4  5f 6d 28 6d 6f 64 65 24  |...ey=.._m(mode$|
000005f0  2c 22 45 59 22 2c 22 2d  31 22 29 0d 02 26 23 e7  |,"EY","-1")..&#.|
00000600  20 65 79 3c 3e 2d 31 20  21 65 6e 64 3d 35 3a 65  | ey<>-1 !end=5:e|
00000610  6e 64 21 34 3d 65 79 3a  65 6e 64 2b 3d 38 0d 02  |nd!4=ey:end+=8..|
00000620  30 0b 21 65 6e 64 3d 2d  31 0d 02 3a 0a eb 20 6d  |0.!end=-1..:.. m|
00000630  6f 64 65 0d 02 44 05 e1  0d 02 4e 04 0d 02 58 13  |ode..D....N...X.|
00000640  dd 20 a4 5f 6d 28 73 24  2c 70 24 2c 64 24 29 0d  |. ._m(s$,p$,d$).|
00000650  02 62 09 ea 20 69 2c 6a  0d 02 6c 0d 69 3d a7 73  |.b.. i,j..l.i=.s|
00000660  24 2c 70 24 29 0d 02 76  25 e7 20 69 3c 31 20 80  |$,p$)..v%. i<1 .|
00000670  20 64 24 3d 22 22 20 85  20 34 39 30 2c 22 4d 69  | d$="" . 490,"Mi|
00000680  73 73 69 6e 67 20 22 2b  70 24 0d 02 80 0f e7 20  |ssing "+p$..... |
00000690  69 3c 31 20 8c 20 3d 64  24 0d 02 8a 16 6a 3d a7  |i<1 . =d$....j=.|
000006a0  73 24 2b 22 20 22 2c 22  20 22 2c 69 2b 31 29 0d  |s$+" "," ",i+1).|
000006b0  02 94 13 3d c1 73 24 2c  69 2b 31 2c 6a 2d 69 2d  |...=.s$,i+1,j-i-|
000006c0  31 29 0d 02 9e 04 0d 02  a8 0f dd 20 a4 5f 62 70  |1)......... ._bp|
000006d0  70 28 6e 24 29 0d 02 b2  0b c8 8e 20 6e 24 20 ca  |p(n$)...... n$ .|
000006e0  0d 02 bc 0d 20 c9 20 22  32 22 3a 3d 30 0d 02 c6  |.... . "2":=0...|
000006f0  0d 20 c9 20 22 34 22 3a  3d 31 0d 02 d0 0e 20 c9  |. . "4":=1.... .|
00000700  20 22 31 36 22 3a 3d 32  0d 02 da 0f 20 c9 20 22  | "16":=2.... . "|
00000710  32 35 36 22 3a 3d 33 0d  02 e4 21 20 c9 20 22 33  |256":=3...! . "3|
00000720  32 54 22 2c 22 33 32 74  22 2c 22 33 32 4b 22 2c  |2T","32t","32K",|
00000730  22 33 32 6b 22 3a 3d 34  0d 02 ee 15 20 c9 20 22  |"32k":=4.... . "|
00000740  31 36 4d 22 2c 22 31 36  6d 22 3a 3d 35 0d 02 f8  |16M","16m":=5...|
00000750  21 20 7f 3a 20 85 20 34  39 30 2c 22 42 61 64 20  |! .: . 490,"Bad |
00000760  70 61 72 61 6d 65 74 65  72 20 22 2b 6e 24 0d 03  |parameter "+n$..|
00000770  02 05 cb 0d ff                                    |.....|
00000775