� >Fractals
/� -----------------------------------------
'� Program.......: Fractal Landscape
(� Version.......: V2.00
2/� Author........: Andrew Jones & Shane Hope
< � Developed by..: Shane Hope
F-� Copyright.....: Equinosis Software 1991
P/� -----------------------------------------
Z� {NOESCAPECHECK}
d� {NOSTACKCHECK}
n� {TYPE = SINGLE}
x� {HEAP = 500000}
�� {NOLIST}
��Initialise
��Define_Palette
��
� �Interface
� �ControlLoop
� �Landscape
�� �
��
�� -------------------------
�� Initialising Code Routine
�� -------------------------
���Initialise

filename$="FractalPic"

,� ArmPalette%(8,1,11),ArmDither%(7,11,3)

&� Palette%(27,1,8),Dither%(26,8,3)

"� matrix%(256,256)

, origseed%=�(1)*4096:mode%=15

6Dhratio=1.7:height%=135:under%=210:sea%=0:midpoint=0.5:rough=1.25

@>Lratio1=1:Lratio2=0:Lratio3=1:iteration%=5:olditeration%=6

J�

T� -----------------

^� Interface Routine

h� -----------------

r��Interface

|
�15:�:ȗ�

�#�Tile(14,1266,1012,12,13,1,0,1)

�"�Tile(60,1220,880,60,21,1,0,1)

�@�Text(-1,970,"Fractal Mountain Generator V2.0",3,0,1,21,1,0)

�i�Text(-1,100,"Written by Andrew Jones and Shane Hope "+�169+" 1991 - Equinosis Software",6,0,0,0,0,0)

�#�Tile(350,940,840,760,21,1,1,1)

�.�Text(380,818,"Random Seed:",7,0,1,21,1,0)

�M�Text(600,818,�"000000000",10-�(�(origseed%)))+�(origseed%),7,0,1,21,1,0)

�%�Text(860,818,"NEW",7,0,1,21,1,0)

�$�Tile(270,1020,696,596,21,1,1,1)

�-�Text(300,660,"Iterations:",7,0,1,21,1,0)

��xloop%=1 � 8

�3�Text(xloop%*64+460,660,�(xloop%),7,0,1,21,1,0)

��xloop%
;�Text(iteration%*64+460,660,�(iteration%),7,0,1,21,1,1)
$�Tile(128,1154,530,440,21,1,1,1)
,�Text(154,500,"Sea Level:",7,0,1,21,1,0)
&$�Tile(354,1134,510,460,21,1,0,1)
03�Tile(358,((sea%+50)*7.8)+358,506,464,25,1,1,2)
:3�Tile(((sea%+50)*7.8)+358,1126,506,464,6,0,1,2)
D$�Tile(128,1154,390,300,21,1,1,1)
N,�Text(154,360,"Roughness:",7,0,1,21,1,0)
X$�Tile(354,1134,370,320,21,1,0,1)
b5�Tile(358,((rough-0.5)*520)+358,366,324,25,1,1,2)
l5�Tile(((rough-0.5)*520)+358,1126,366,324,6,0,1,2)
v$�Tile(128,1154,250,160,21,1,1,1)
�,�Text(154,222,"Mid Point:",7,0,1,21,1,0)
�$�Tile(354,1134,230,180,21,1,0,1)
�9�Tile(358,((midpoint-0.3)*1950)+358,226,184,25,1,1,2)
�9�Tile(((midpoint-0.3)*1950)+358,1126,226,184,6,0,1,2)
��
�� ----------------------
�� Display Status Routine
�� ----------------------
���DisplayStats
�M�Text(600,818,�"000000000",10-�(�(origseed%)))+�(origseed%),7,0,1,21,1,0)
�E�Tile(olditeration%*64+452,olditeration%*64+486,664,624,21,1,0,3)
�?�Tile(iteration%*64+452,iteration%*64+486,664,624,21,1,1,4)
�3�Tile(358,((sea%+50)*7.8)+358,506,464,25,1,1,2)
3�Tile(((sea%+50)*7.8)+358,1126,506,464,6,0,1,2)
5�Tile(358,((rough-0.5)*520)+358,366,324,25,1,1,2)
5�Tile(((rough-0.5)*520)+358,1126,366,324,6,0,1,2)
 9�Tile(358,((midpoint-0.3)*1950)+358,226,184,25,1,1,2)
*9�Tile(((midpoint-0.3)*1950)+358,1126,226,184,6,0,1,2)
4�
>� -------------------------
H� Main Control Loop Routine
R� -------------------------
\��ControlLoop
fș"OS_Byte",21,9
pȕ �
z�:ȗmx%,my%,mb%
��mb%=4 � �alterstatus
��mb%=1 � �
�� �(0)=81 � �12:�
�� �
�� ,,,,,,,,,,,,,,,,,,,,
�� Alter Status Routine
�� ''''''''''''''''''''
���alterstatus
�� my%>782 � my%<824 �
� � mx%>592 � mx%<770 �
�  �Input
� �
�/  � mx%>852 � mx%<918 � origseed%=�(1)*4096
 �
�
 � my%>624 � my%<664 �
$  � mx%>516 � mx%<990 �
.   temp_val=(mx%-516)/64
8X   � temp_val-�(temp_val)<.53125 � olditeration%=iteration%:iteration%=�(temp_val+1)
B  �
L �
V  � my%>464 � my%<506 �
`3   � mx%>358 � mx%<1126 � sea%=(mx%-358)/7.8-50
j  �
t   � my%>324 � my%<366 �
~5    � mx%>358 � mx%<1126 � rough=(mx%-358)/520+.5
�   �
�    � my%>184 � my%<226 �
�:     � mx%>358 � mx%<1126 � midpoint=(mx%-358)/1950+.3
�	    �
�   �
�  �
� �
��
��DisplayStats
�ȕmb%=4:ȗmx%,my%,mb%:�
��
�%� -------------------------------
%� Setup Fractal Landscape Routine

%� -------------------------------
��Landscape
  seed%=origseed%:constant%=0
( �:matrix%()=0
2 matrix_width%=256
< � loopi%=1 � iteration%
FX  �Text(-1,550,"Calculating Iteration "+�(loopi%)+" of "+�(iteration%),3,0,1,21,1,0)
P,  �Doppler:matrix_width%=matrix_width%/2
Z �
d9 �mode%=32 � �32:�:scale=6.6:ȑ(1432-256*scale)/2,900
n7 �mode%=15 � �15:�:scale=6:ȑ(1250-256*scale)/2,900
x ș"OS_Byte",21,9
� �Sky:�Draw_Fractal
� ș"OS_Byte",21,9
� ȕ mb%<>4:ȗmx%,my%,mb%
�1 �(0)=83 � �"MOUNT":�"SCREENSAVE "+filename$
� �(0)=81 � �12:�
� �
�' �mb%=4 � ȕmb%>0:ȗmx%,my%,mb%:�:�
�6 key=�:�key=83 � �"MOUNT":�"SCREENSAVE "+filename$
� �key=81 � �12:�
��
�"� ----------------------------
�"� Main Fractal Drawing Routine
�"� ----------------------------
��Draw_Fractal
fswidth=4.92*matrix_width%:sheight=0.8*swidth:sratio3=swidth*sheight:sratio_squared=sratio3*sratio3
max_height%=0
"1�loopx%=0 � 256-matrix_width% � matrix_width%
,2 �loopy%=0 � 256-matrix_width% � matrix_width%
6O  � matrix%(loopx%,loopy%)>max_height% � max_height%=matrix%(loopx%,loopy%)
@ �
J�
T(max_height%=(�(sea%)+max_height%)/32
^rnd_factor%=max_height%/2
h2� loopy%=0 � 255-matrix_width% � matrix_width%
rc tri_width=(loopy%+matrix_width%)*hratio+under%-height%:tri_height=loopy%*hratio+under%-height%
|3 � loopx%=0 � 256-matrix_width% � matrix_width%
�J  height_1%=matrix%(loopx%,loopy%)/8:� height_1%<sea% � height_1%=sea%
�X  height_2%=matrix%(loopx%+matrix_width%,loopy%)/8:� height_2%<sea% � height_2%=sea%
�f  height_3%=matrix%(loopx%+matrix_width%,loopy%+matrix_width%)/8:� height_3%<sea% � height_3%=sea%
�X  height_4%=matrix%(loopx%,loopy%+matrix_width%)/8:� height_4%<sea% � height_4%=sea%
�_  sratio1=-sheight*(height_3%-height_1%):sratio2=swidth*((height_1%+height_3%)/2-height_2%)
�>  length=�(sratio1*sratio1+sratio2*sratio2+sratio_squared)
�N   colour%=�(((Lratio1*sratio1+Lratio2*sratio2+Lratio3*sratio3)/length)*9)
�  �colour%<0 � colour%=0
�< mid_height%=(height_1%+height_2%+height_3%+height_4%)/4
�E  � mid_height% < sea%+max_height%+(�Seed-midpoint)*rnd_factor% �
�   �Colour(4,colour%,1)
�  �
�H   � mid_height% < sea%+max_height%*2+(�Seed-midpoint)*rnd_factor% �
    �Colour(17,colour%,1)
   �
I    � mid_height% < sea%+max_height%*3+(�Seed-midpoint)*rnd_factor% �
&     �Colour(13,colour%,1)
0	    �
:     �Colour(7,colour%+9,0)
D	    �
N   �
X  �
b �
l`  � height_4%<=sea% � height_3%<=sea% � height_2%<=sea% � height_1%<=sea% � �Colour(21,14,1)
v9  � loopx%*scale+128-loopy%,-(tri_height-height_1%)*2
�I  � (loopx%+matrix_width%)*scale+128-loopy%,-(tri_height-height_2%)*2
�I  � 85,loopx%*scale+128-loopy%-matrix_width%,-(tri_width-height_4%)*2
�Y  � 85,(loopx%+matrix_width%)*scale+128-loopy%-matrix_width%,-(tri_width-height_3%)*2
�  ȗmx%,my%,mb%:�mb%=2 � �
� �
��
��
�� ---------------
�� Doppler Routine
�� ---------------
�
��Doppler
�Eheight_offset%=matrix_width%*10*rough:temp_width%=matrix_width%/2
�1� loop%=0 � 256-matrix_width% � matrix_width%
F b_offset%=(matrix%(256,loop%)+matrix%(256,loop%+matrix_width%))/2
l matrix%(256,loop%+temp_width%)=matrix%(256,loop%+temp_width%)+b_offset%+(�Seed-midpoint)*height_offset%
F b_offset%=(matrix%(loop%,256)+matrix%(loop%+matrix_width%,256))/2
 l matrix%(loop%+temp_width%,256)=matrix%(loop%+temp_width%,256)+b_offset%+(�Seed-midpoint)*height_offset%
*�
4$� loopy%=0 � 255 � matrix_width%
>% � loopx%=0 � 255 � matrix_width%
HO  b_offset%=(matrix%(loopx%,loopy%)+matrix%(loopx%,loopy%+matrix_width%))/2
Ru  matrix%(loopx%,loopy%+temp_width%)=matrix%(loopx%,loopy%+temp_width%)+b_offset%+(�Seed-midpoint)*height_offset%
\O  b_offset%=(matrix%(loopx%,loopy%)+matrix%(loopx%+matrix_width%,loopy%))/2
fu  matrix%(loopx%+temp_width%,loopy%)=matrix%(loopx%+temp_width%,loopy%)+b_offset%+(�Seed-midpoint)*height_offset%
p�  b_offset%=(matrix%(loopx%,loopy%)+matrix%(loopx%+matrix_width%,loopy%)+matrix%(loopx%+matrix_width%,loopy%+matrix_width%)+matrix%(loopx%,loopy%+matrix_width%))/4
z�  matrix%(loopx%+temp_width%,loopy%+temp_width%)=matrix%(loopx%+temp_width%,loopy%+temp_width%)+b_offset%+(�Seed-midpoint)*height_offset%
� �
��
��
�&� --------------------------------
�&� Randomize Seed Generator Routine
�&� --------------------------------
�
ݤSeed
�<constant%+=1:seed%=1687*(seed%+(constant% � 256)) � 4096
�=seed%/4096
�!� ---------------------------
�!� Draw Sky Background Routine
�!� ---------------------------
�	��Sky
	
� colour%
	�yloop%=-184 � 188 � 16
	�Colour(4,colour%,0)
	$ȓȐ0,yloop%,1600,16
	.colour%+=1
	8�yloop%
	B�
	L� -----------------------
	V� Draw Basic Tile Routine
	`� -----------------------
	j:��Tile(xl%,xr%,yt%,yb%,colour%,palette%,opcode%,flag%)
	t�palette%=0 �
	~ low%=8:mid%=16:high%=22
	��
	� low%=4:mid%=11:high%=14
	��
	�S� flag%<>3 � flag%<>4 � �Colour(colour%,mid%,palette%):�68,xl%,yb%:�101,xr%,yt%
	��flag%=2 � �
	�Q�opcode%=0 � �Colour(colour%,high%,palette%) � �Colour(colour%,low%,palette%)
	�1�68,xl%-2,yb%-4:�101,xl%,yt%+4:�5,xr%+2,yt%+4
	�Q�opcode%=0 � �Colour(colour%,low%,palette%) � �Colour(colour%,high%,palette%)
	�1�68,xr%+2,yt%:�101,xr%+0,yb%-4:�5,xl%-2,yb%-4
	�Q�opcode%=0 � �Colour(colour%,high%,palette%) � �Colour(colour%,low%,palette%)
	�3�68,xl%-4,yb%-8:�101,xl%-2,yt%+8:�5,xr%+4,yt%+8
	�Q�opcode%=0 � �Colour(colour%,low%,palette%) � �Colour(colour%,high%,palette%)
3�68,xl%-2,yb%-8:�5,xr%+4,yb%-8:�101,xr%+2,yt%+4

�
/� -----------------------------------------
/� Define Colour palette in an Array Routine
(0� ------------------------------------------
2��Define_Palette
<�Define_8_Colours
F�Define_28_Colours
P�Define_Dithers
Z�
d,� ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
n,� 12 Intensity - 8 Colour Series routine
x,� ''''''''''''''''''''''''''''''''''''''
���Define_8_Colours
�� colour%:colour%=0:tint%=0
��b%=0 � 1:� g%=0 � 1
��r%=0 � 1:� int%=0 � 11
�%col%=�shades(r%,g%,b%,int%,tint%)
�IArmPalette%(colour%,0,int%)=col%:ArmPalette%(colour%,1,int%)=tint%*64
� � int%:colour%+=1:� r%,g%,b%
��
�,� ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
�,� 8 Intensity - 28 Colour Series routine
�,� ''''''''''''''''''''''''''''''''''''''
���Define_28_Colours
�� colour%:colour%=0:tint%=0
�b%=0 � 2:� g%=0 � 2
�r%=0 � 2:� int%=0 � 7
%col%=�shades(r%,g%,b%,int%,tint%)
"CPalette%(colour%,0,int%)=col%:Palette%(colour%,1,int%)=tint%*64
, � int%:colour%+=1:� r%,g%,b%
6�
@$� ------------------------------
J$� Define Colour Function Routine
T$� ------------------------------
^#ݤshades(r%,g%,b%,int%,� tint%)
h
� vol%
rtint%=int% � 4
|vol%=int% � 4+1
�$r%=r%*vol%:g%=g%*vol%:b%=b%*vol%
�� r%=4 � r%=3
�� g%=4 � g%=3
�� b%=4 � b%=3
�=b%*16+g%*4+r%
�$� ------------------------------
�$� Define Dither Patterns Routine
�$� ------------------------------
���Define_Dithers
��shade%,loop%
��loop%=0 � 7:�shade%=0 � 10
�<ArmDither%(loop%,shade%,0)=ArmPalette%(loop%,0,shade%+1)
�<ArmDither%(loop%,shade%,1)=ArmPalette%(loop%,1,shade%+1)
:ArmDither%(loop%,shade%,2)=ArmPalette%(loop%,0,shade%)
:ArmDither%(loop%,shade%,3)=ArmPalette%(loop%,1,shade%)
�shade%,loop%
&�loop%=0 � 26:�shade%=0 � 7
06Dither%(loop%,shade%,0)=Palette%(loop%,0,shade%+1)
:6Dither%(loop%,shade%,1)=Palette%(loop%,1,shade%+1)
D4Dither%(loop%,shade%,2)=Palette%(loop%,0,shade%)
N4Dither%(loop%,shade%,3)=Palette%(loop%,1,shade%)
X�shade%,loop%
b�
l$� ------------------------------
v$� Define Colour Function Routine
�$� ------------------------------
�#ݤshades(r%,g%,b%,int%,� tint%)
�
� vol%
�tint%=int% � 4
�vol%=int% � 4+1
�$r%=r%*vol%:g%=g%*vol%:b%=b%*vol%
�� r%=4 � r%=3
�� g%=4 � g%=3
�� b%=4 � b%=3
�=b%*16+g%*4+r%
�#� -----------------------------
�#� Mix Colour, Dithering Routine
�#� -----------------------------

��Mix(Ac,At,Bc,Bt)

	� A,B

1A=At � 64+(Ac � 33)*4+(Ac � 14)*8+(Ac � 16)/2

 1B=Bt � 64+(Bc � 33)*4+(Bc � 14)*8+(Bc � 16)/2

*�23,2,A,B,A,B,A,B,A,B

4�23,3,B,A,B,A,B,A,B,A

>�23,4,A,B,A,B,A,B,A,B

H�23,5,B,A,B,A,B,A,B,A

R	�80,0

\�

f� ---------------------

p� Change Colour Routine

z� ---------------------

�#��Colour(color%,tint%,palette%)

�K� <Colour Ranges> - [ArmPalette = (0-7,0-22)] - [Palette = (0-26,0-14)]

�Ȏ palette% �

� � 0 : �(tint%� 2)=0 �

�           tint%=tint%/2

�K           � ArmPalette%(color%,0,tint%) Ȝ ArmPalette%(color%,1,tint%)

�          �

�"           tint%=(tint%/2)-0.5

Ԁ           �Mix(ArmDither%(color%,tint%,0),ArmDither%(color%,tint%,1),ArmDither%(color%,tint%,2),ArmDither%(color%,tint%,3))

�          �

� � 1 : �(tint%� 2)=0 �

�           tint%=tint%/2

�E           � Palette%(color%,0,tint%) Ȝ Palette%(color%,1,tint%)
          �
"           tint%=(tint%/2)-0.5
t           �Mix(Dither%(color%,tint%,0),Dither%(color%,tint%,1),Dither%(color%,tint%,2),Dither%(color%,tint%,3))
$          �
.�
8�
B� ------------------
L� Print Text Routine
V� ------------------
`G��Text(x%,y%,text$,colour%,palette%,flag%,boxcol%,boxpal%,boxflag%)
j-�5:� max%:�palette%=0 � max%=22 � max%=14
t$�x%=-1 � x%=(1280-�(text$)*16)/2
~R�flag%=1 � �Tile(x%-8,�(text$)*16+x%+10,y%+4,y%-36,boxcol%,boxpal%,boxflag%,1)
��x%,y%:�0Ȝ0:�text$
�4�x%+4,y%-4:�Colour(colour%,max%,palette%):�text$
��4:�
��
�� -----------------------
�� Character Input Routine
�� -----------------------
���Input
�!� mainstring$,length%,keyget%
�mainstring$="":length%=0
�+�Text(600,818,"|"+�9,�32),7,0,1,21,1,0)
�ȕ �
Q �Text(600,818,mainstring$+"|"+�9-�(mainstring$),�32),7,0,1,21,1,0):keyget%=�

 ȕ keyget%=�:keyget%=�(0)
 �
 Ȏ keyget% �
('  � 13 : origseed%=�(mainstring$):�
2  � 8 � length%=0 : �
<  � 8 : length%-=1
F0           mainstring$=�mainstring$,length%)
PQ           �Text(600,818,mainstring$+"|"+�9-�(mainstring$),�32),7,0,1,21,1,0)
Z �
d" � keyget%<48 � keyget%>57 � �
n �length%>=6 � �
x1 mainstring$+=�keyget%:length%=�(mainstring$)
��
��
�

00000000  0d 00 0a 0f f4 20 3e 46  72 61 63 74 61 6c 73 0d  |..... >Fractals.|
00000010  00 14 2f f4 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |../. -----------|
00000020  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000030  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 00  |--------------..|
00000040  1e 27 f4 20 50 72 6f 67  72 61 6d 2e 2e 2e 2e 2e  |.'. Program.....|
00000050  2e 2e 3a 20 46 72 61 63  74 61 6c 20 4c 61 6e 64  |..: Fractal Land|
00000060  73 63 61 70 65 0d 00 28  1b f4 20 56 65 72 73 69  |scape..(.. Versi|
00000070  6f 6e 2e 2e 2e 2e 2e 2e  2e 3a 20 56 32 2e 30 30  |on.......: V2.00|
00000080  0d 00 32 2f f4 20 41 75  74 68 6f 72 2e 2e 2e 2e  |..2/. Author....|
00000090  2e 2e 2e 2e 3a 20 41 6e  64 72 65 77 20 4a 6f 6e  |....: Andrew Jon|
000000a0  65 73 20 26 20 53 68 61  6e 65 20 48 6f 70 65 0d  |es & Shane Hope.|
000000b0  00 3c 20 f4 20 44 65 76  65 6c 6f 70 65 64 20 62  |.< . Developed b|
000000c0  79 2e 2e 3a 20 53 68 61  6e 65 20 48 6f 70 65 0d  |y..: Shane Hope.|
000000d0  00 46 2d f4 20 43 6f 70  79 72 69 67 68 74 2e 2e  |.F-. Copyright..|
000000e0  2e 2e 2e 3a 20 45 71 75  69 6e 6f 73 69 73 20 53  |...: Equinosis S|
000000f0  6f 66 74 77 61 72 65 20  31 39 39 31 0d 00 50 2f  |oftware 1991..P/|
00000100  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00000110  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000120  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 00 5a 15 f4  |-----------..Z..|
00000130  20 7b 4e 4f 45 53 43 41  50 45 43 48 45 43 4b 7d  | {NOESCAPECHECK}|
00000140  0d 00 64 14 f4 20 7b 4e  4f 53 54 41 43 4b 43 48  |..d.. {NOSTACKCH|
00000150  45 43 4b 7d 0d 00 6e 15  f4 20 7b 54 59 50 45 20  |ECK}..n.. {TYPE |
00000160  3d 20 53 49 4e 47 4c 45  7d 0d 00 78 15 f4 20 7b  |= SINGLE}..x.. {|
00000170  48 45 41 50 20 3d 20 35  30 30 30 30 30 7d 0d 00  |HEAP = 500000}..|
00000180  82 0e f4 20 7b 4e 4f 4c  49 53 54 7d 0d 00 8c 0f  |... {NOLIST}....|
00000190  f2 49 6e 69 74 69 61 6c  69 73 65 0d 00 96 13 f2  |.Initialise.....|
000001a0  44 65 66 69 6e 65 5f 50  61 6c 65 74 74 65 0d 00  |Define_Palette..|
000001b0  a0 05 f5 0d 00 aa 0f 20  f2 49 6e 74 65 72 66 61  |....... .Interfa|
000001c0  63 65 0d 00 b4 11 20 f2  43 6f 6e 74 72 6f 6c 4c  |ce.... .ControlL|
000001d0  6f 6f 70 0d 00 be 0f 20  f2 4c 61 6e 64 73 63 61  |oop.... .Landsca|
000001e0  70 65 0d 00 c8 07 fd 20  a3 0d 00 d2 05 e0 0d 00  |pe..... ........|
000001f0  dc 1f f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |... ------------|
00000200  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 00 e6  |-------------...|
00000210  1f f4 20 49 6e 69 74 69  61 6c 69 73 69 6e 67 20  |.. Initialising |
00000220  43 6f 64 65 20 52 6f 75  74 69 6e 65 0d 00 f0 1f  |Code Routine....|
00000230  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00000240  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 00 fa 10 dd  |-----------.....|
00000250  f2 49 6e 69 74 69 61 6c  69 73 65 0d 01 04 1a 66  |.Initialise....f|
00000260  69 6c 65 6e 61 6d 65 24  3d 22 46 72 61 63 74 61  |ilename$="Fracta|
00000270  6c 50 69 63 22 0d 01 0e  2c de 20 41 72 6d 50 61  |lPic"...,. ArmPa|
00000280  6c 65 74 74 65 25 28 38  2c 31 2c 31 31 29 2c 41  |lette%(8,1,11),A|
00000290  72 6d 44 69 74 68 65 72  25 28 37 2c 31 31 2c 33  |rmDither%(7,11,3|
000002a0  29 0d 01 18 26 de 20 50  61 6c 65 74 74 65 25 28  |)...&. Palette%(|
000002b0  32 37 2c 31 2c 38 29 2c  44 69 74 68 65 72 25 28  |27,1,8),Dither%(|
000002c0  32 36 2c 38 2c 33 29 0d  01 22 16 de 20 6d 61 74  |26,8,3)..".. mat|
000002d0  72 69 78 25 28 32 35 36  2c 32 35 36 29 0d 01 2c  |rix%(256,256)..,|
000002e0  20 6f 72 69 67 73 65 65  64 25 3d b3 28 31 29 2a  | origseed%=.(1)*|
000002f0  34 30 39 36 3a 6d 6f 64  65 25 3d 31 35 0d 01 36  |4096:mode%=15..6|
00000300  44 68 72 61 74 69 6f 3d  31 2e 37 3a 68 65 69 67  |Dhratio=1.7:heig|
00000310  68 74 25 3d 31 33 35 3a  75 6e 64 65 72 25 3d 32  |ht%=135:under%=2|
00000320  31 30 3a 73 65 61 25 3d  30 3a 6d 69 64 70 6f 69  |10:sea%=0:midpoi|
00000330  6e 74 3d 30 2e 35 3a 72  6f 75 67 68 3d 31 2e 32  |nt=0.5:rough=1.2|
00000340  35 0d 01 40 3e 4c 72 61  74 69 6f 31 3d 31 3a 4c  |5..@>Lratio1=1:L|
00000350  72 61 74 69 6f 32 3d 30  3a 4c 72 61 74 69 6f 33  |ratio2=0:Lratio3|
00000360  3d 31 3a 69 74 65 72 61  74 69 6f 6e 25 3d 35 3a  |=1:iteration%=5:|
00000370  6f 6c 64 69 74 65 72 61  74 69 6f 6e 25 3d 36 0d  |olditeration%=6.|
00000380  01 4a 05 e1 0d 01 54 17  f4 20 2d 2d 2d 2d 2d 2d  |.J....T.. ------|
00000390  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 01 5e 17 f4  |-----------..^..|
000003a0  20 49 6e 74 65 72 66 61  63 65 20 52 6f 75 74 69  | Interface Routi|
000003b0  6e 65 0d 01 68 17 f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |ne..h.. --------|
000003c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 01 72 0f dd f2 49  |---------..r...I|
000003d0  6e 74 65 72 66 61 63 65  0d 01 7c 0d eb 31 35 3a  |nterface..|..15:|
000003e0  87 3a c8 97 ee 0d 01 86  23 f2 54 69 6c 65 28 31  |.:......#.Tile(1|
000003f0  34 2c 31 32 36 36 2c 31  30 31 32 2c 31 32 2c 31  |4,1266,1012,12,1|
00000400  33 2c 31 2c 30 2c 31 29  0d 01 90 22 f2 54 69 6c  |3,1,0,1)...".Til|
00000410  65 28 36 30 2c 31 32 32  30 2c 38 38 30 2c 36 30  |e(60,1220,880,60|
00000420  2c 32 31 2c 31 2c 30 2c  31 29 0d 01 9a 40 f2 54  |,21,1,0,1)...@.T|
00000430  65 78 74 28 2d 31 2c 39  37 30 2c 22 46 72 61 63  |ext(-1,970,"Frac|
00000440  74 61 6c 20 4d 6f 75 6e  74 61 69 6e 20 47 65 6e  |tal Mountain Gen|
00000450  65 72 61 74 6f 72 20 56  32 2e 30 22 2c 33 2c 30  |erator V2.0",3,0|
00000460  2c 31 2c 32 31 2c 31 2c  30 29 0d 01 a4 69 f2 54  |,1,21,1,0)...i.T|
00000470  65 78 74 28 2d 31 2c 31  30 30 2c 22 57 72 69 74  |ext(-1,100,"Writ|
00000480  74 65 6e 20 62 79 20 41  6e 64 72 65 77 20 4a 6f  |ten by Andrew Jo|
00000490  6e 65 73 20 61 6e 64 20  53 68 61 6e 65 20 48 6f  |nes and Shane Ho|
000004a0  70 65 20 22 2b bd 31 36  39 2b 22 20 31 39 39 31  |pe "+.169+" 1991|
000004b0  20 2d 20 45 71 75 69 6e  6f 73 69 73 20 53 6f 66  | - Equinosis Sof|
000004c0  74 77 61 72 65 22 2c 36  2c 30 2c 30 2c 30 2c 30  |tware",6,0,0,0,0|
000004d0  2c 30 29 0d 01 ae 23 f2  54 69 6c 65 28 33 35 30  |,0)...#.Tile(350|
000004e0  2c 39 34 30 2c 38 34 30  2c 37 36 30 2c 32 31 2c  |,940,840,760,21,|
000004f0  31 2c 31 2c 31 29 0d 01  b8 2e f2 54 65 78 74 28  |1,1,1).....Text(|
00000500  33 38 30 2c 38 31 38 2c  22 52 61 6e 64 6f 6d 20  |380,818,"Random |
00000510  53 65 65 64 3a 22 2c 37  2c 30 2c 31 2c 32 31 2c  |Seed:",7,0,1,21,|
00000520  31 2c 30 29 0d 01 c2 4d  f2 54 65 78 74 28 36 30  |1,0)...M.Text(60|
00000530  30 2c 38 31 38 2c c0 22  30 30 30 30 30 30 30 30  |0,818,."00000000|
00000540  30 22 2c 31 30 2d a9 28  c3 28 6f 72 69 67 73 65  |0",10-.(.(origse|
00000550  65 64 25 29 29 29 2b c3  28 6f 72 69 67 73 65 65  |ed%)))+.(origsee|
00000560  64 25 29 2c 37 2c 30 2c  31 2c 32 31 2c 31 2c 30  |d%),7,0,1,21,1,0|
00000570  29 0d 01 cc 25 f2 54 65  78 74 28 38 36 30 2c 38  |)...%.Text(860,8|
00000580  31 38 2c 22 4e 45 57 22  2c 37 2c 30 2c 31 2c 32  |18,"NEW",7,0,1,2|
00000590  31 2c 31 2c 30 29 0d 01  d6 24 f2 54 69 6c 65 28  |1,1,0)...$.Tile(|
000005a0  32 37 30 2c 31 30 32 30  2c 36 39 36 2c 35 39 36  |270,1020,696,596|
000005b0  2c 32 31 2c 31 2c 31 2c  31 29 0d 01 e0 2d f2 54  |,21,1,1,1)...-.T|
000005c0  65 78 74 28 33 30 30 2c  36 36 30 2c 22 49 74 65  |ext(300,660,"Ite|
000005d0  72 61 74 69 6f 6e 73 3a  22 2c 37 2c 30 2c 31 2c  |rations:",7,0,1,|
000005e0  32 31 2c 31 2c 30 29 0d  01 ea 11 e3 78 6c 6f 6f  |21,1,0).....xloo|
000005f0  70 25 3d 31 20 b8 20 38  0d 01 f4 33 f2 54 65 78  |p%=1 . 8...3.Tex|
00000600  74 28 78 6c 6f 6f 70 25  2a 36 34 2b 34 36 30 2c  |t(xloop%*64+460,|
00000610  36 36 30 2c c3 28 78 6c  6f 6f 70 25 29 2c 37 2c  |660,.(xloop%),7,|
00000620  30 2c 31 2c 32 31 2c 31  2c 30 29 0d 01 fe 0b ed  |0,1,21,1,0).....|
00000630  78 6c 6f 6f 70 25 0d 02  08 3b f2 54 65 78 74 28  |xloop%...;.Text(|
00000640  69 74 65 72 61 74 69 6f  6e 25 2a 36 34 2b 34 36  |iteration%*64+46|
00000650  30 2c 36 36 30 2c c3 28  69 74 65 72 61 74 69 6f  |0,660,.(iteratio|
00000660  6e 25 29 2c 37 2c 30 2c  31 2c 32 31 2c 31 2c 31  |n%),7,0,1,21,1,1|
00000670  29 0d 02 12 24 f2 54 69  6c 65 28 31 32 38 2c 31  |)...$.Tile(128,1|
00000680  31 35 34 2c 35 33 30 2c  34 34 30 2c 32 31 2c 31  |154,530,440,21,1|
00000690  2c 31 2c 31 29 0d 02 1c  2c f2 54 65 78 74 28 31  |,1,1)...,.Text(1|
000006a0  35 34 2c 35 30 30 2c 22  53 65 61 20 4c 65 76 65  |54,500,"Sea Leve|
000006b0  6c 3a 22 2c 37 2c 30 2c  31 2c 32 31 2c 31 2c 30  |l:",7,0,1,21,1,0|
000006c0  29 0d 02 26 24 f2 54 69  6c 65 28 33 35 34 2c 31  |)..&$.Tile(354,1|
000006d0  31 33 34 2c 35 31 30 2c  34 36 30 2c 32 31 2c 31  |134,510,460,21,1|
000006e0  2c 30 2c 31 29 0d 02 30  33 f2 54 69 6c 65 28 33  |,0,1)..03.Tile(3|
000006f0  35 38 2c 28 28 73 65 61  25 2b 35 30 29 2a 37 2e  |58,((sea%+50)*7.|
00000700  38 29 2b 33 35 38 2c 35  30 36 2c 34 36 34 2c 32  |8)+358,506,464,2|
00000710  35 2c 31 2c 31 2c 32 29  0d 02 3a 33 f2 54 69 6c  |5,1,1,2)..:3.Til|
00000720  65 28 28 28 73 65 61 25  2b 35 30 29 2a 37 2e 38  |e(((sea%+50)*7.8|
00000730  29 2b 33 35 38 2c 31 31  32 36 2c 35 30 36 2c 34  |)+358,1126,506,4|
00000740  36 34 2c 36 2c 30 2c 31  2c 32 29 0d 02 44 24 f2  |64,6,0,1,2)..D$.|
00000750  54 69 6c 65 28 31 32 38  2c 31 31 35 34 2c 33 39  |Tile(128,1154,39|
00000760  30 2c 33 30 30 2c 32 31  2c 31 2c 31 2c 31 29 0d  |0,300,21,1,1,1).|
00000770  02 4e 2c f2 54 65 78 74  28 31 35 34 2c 33 36 30  |.N,.Text(154,360|
00000780  2c 22 52 6f 75 67 68 6e  65 73 73 3a 22 2c 37 2c  |,"Roughness:",7,|
00000790  30 2c 31 2c 32 31 2c 31  2c 30 29 0d 02 58 24 f2  |0,1,21,1,0)..X$.|
000007a0  54 69 6c 65 28 33 35 34  2c 31 31 33 34 2c 33 37  |Tile(354,1134,37|
000007b0  30 2c 33 32 30 2c 32 31  2c 31 2c 30 2c 31 29 0d  |0,320,21,1,0,1).|
000007c0  02 62 35 f2 54 69 6c 65  28 33 35 38 2c 28 28 72  |.b5.Tile(358,((r|
000007d0  6f 75 67 68 2d 30 2e 35  29 2a 35 32 30 29 2b 33  |ough-0.5)*520)+3|
000007e0  35 38 2c 33 36 36 2c 33  32 34 2c 32 35 2c 31 2c  |58,366,324,25,1,|
000007f0  31 2c 32 29 0d 02 6c 35  f2 54 69 6c 65 28 28 28  |1,2)..l5.Tile(((|
00000800  72 6f 75 67 68 2d 30 2e  35 29 2a 35 32 30 29 2b  |rough-0.5)*520)+|
00000810  33 35 38 2c 31 31 32 36  2c 33 36 36 2c 33 32 34  |358,1126,366,324|
00000820  2c 36 2c 30 2c 31 2c 32  29 0d 02 76 24 f2 54 69  |,6,0,1,2)..v$.Ti|
00000830  6c 65 28 31 32 38 2c 31  31 35 34 2c 32 35 30 2c  |le(128,1154,250,|
00000840  31 36 30 2c 32 31 2c 31  2c 31 2c 31 29 0d 02 80  |160,21,1,1,1)...|
00000850  2c f2 54 65 78 74 28 31  35 34 2c 32 32 32 2c 22  |,.Text(154,222,"|
00000860  4d 69 64 20 50 6f 69 6e  74 3a 22 2c 37 2c 30 2c  |Mid Point:",7,0,|
00000870  31 2c 32 31 2c 31 2c 30  29 0d 02 8a 24 f2 54 69  |1,21,1,0)...$.Ti|
00000880  6c 65 28 33 35 34 2c 31  31 33 34 2c 32 33 30 2c  |le(354,1134,230,|
00000890  31 38 30 2c 32 31 2c 31  2c 30 2c 31 29 0d 02 94  |180,21,1,0,1)...|
000008a0  39 f2 54 69 6c 65 28 33  35 38 2c 28 28 6d 69 64  |9.Tile(358,((mid|
000008b0  70 6f 69 6e 74 2d 30 2e  33 29 2a 31 39 35 30 29  |point-0.3)*1950)|
000008c0  2b 33 35 38 2c 32 32 36  2c 31 38 34 2c 32 35 2c  |+358,226,184,25,|
000008d0  31 2c 31 2c 32 29 0d 02  9e 39 f2 54 69 6c 65 28  |1,1,2)...9.Tile(|
000008e0  28 28 6d 69 64 70 6f 69  6e 74 2d 30 2e 33 29 2a  |((midpoint-0.3)*|
000008f0  31 39 35 30 29 2b 33 35  38 2c 31 31 32 36 2c 32  |1950)+358,1126,2|
00000900  32 36 2c 31 38 34 2c 36  2c 30 2c 31 2c 32 29 0d  |26,184,6,0,1,2).|
00000910  02 a8 05 e1 0d 02 b2 1c  f4 20 2d 2d 2d 2d 2d 2d  |......... ------|
00000920  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000930  0d 02 bc 1c f4 20 44 69  73 70 6c 61 79 20 53 74  |..... Display St|
00000940  61 74 75 73 20 52 6f 75  74 69 6e 65 0d 02 c6 1c  |atus Routine....|
00000950  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00000960  2d 2d 2d 2d 2d 2d 2d 2d  0d 02 d0 12 dd f2 44 69  |--------......Di|
00000970  73 70 6c 61 79 53 74 61  74 73 0d 02 da 4d f2 54  |splayStats...M.T|
00000980  65 78 74 28 36 30 30 2c  38 31 38 2c c0 22 30 30  |ext(600,818,."00|
00000990  30 30 30 30 30 30 30 22  2c 31 30 2d a9 28 c3 28  |0000000",10-.(.(|
000009a0  6f 72 69 67 73 65 65 64  25 29 29 29 2b c3 28 6f  |origseed%)))+.(o|
000009b0  72 69 67 73 65 65 64 25  29 2c 37 2c 30 2c 31 2c  |rigseed%),7,0,1,|
000009c0  32 31 2c 31 2c 30 29 0d  02 e4 45 f2 54 69 6c 65  |21,1,0)...E.Tile|
000009d0  28 6f 6c 64 69 74 65 72  61 74 69 6f 6e 25 2a 36  |(olditeration%*6|
000009e0  34 2b 34 35 32 2c 6f 6c  64 69 74 65 72 61 74 69  |4+452,olditerati|
000009f0  6f 6e 25 2a 36 34 2b 34  38 36 2c 36 36 34 2c 36  |on%*64+486,664,6|
00000a00  32 34 2c 32 31 2c 31 2c  30 2c 33 29 0d 02 ee 3f  |24,21,1,0,3)...?|
00000a10  f2 54 69 6c 65 28 69 74  65 72 61 74 69 6f 6e 25  |.Tile(iteration%|
00000a20  2a 36 34 2b 34 35 32 2c  69 74 65 72 61 74 69 6f  |*64+452,iteratio|
00000a30  6e 25 2a 36 34 2b 34 38  36 2c 36 36 34 2c 36 32  |n%*64+486,664,62|
00000a40  34 2c 32 31 2c 31 2c 31  2c 34 29 0d 02 f8 33 f2  |4,21,1,1,4)...3.|
00000a50  54 69 6c 65 28 33 35 38  2c 28 28 73 65 61 25 2b  |Tile(358,((sea%+|
00000a60  35 30 29 2a 37 2e 38 29  2b 33 35 38 2c 35 30 36  |50)*7.8)+358,506|
00000a70  2c 34 36 34 2c 32 35 2c  31 2c 31 2c 32 29 0d 03  |,464,25,1,1,2)..|
00000a80  02 33 f2 54 69 6c 65 28  28 28 73 65 61 25 2b 35  |.3.Tile(((sea%+5|
00000a90  30 29 2a 37 2e 38 29 2b  33 35 38 2c 31 31 32 36  |0)*7.8)+358,1126|
00000aa0  2c 35 30 36 2c 34 36 34  2c 36 2c 30 2c 31 2c 32  |,506,464,6,0,1,2|
00000ab0  29 0d 03 0c 35 f2 54 69  6c 65 28 33 35 38 2c 28  |)...5.Tile(358,(|
00000ac0  28 72 6f 75 67 68 2d 30  2e 35 29 2a 35 32 30 29  |(rough-0.5)*520)|
00000ad0  2b 33 35 38 2c 33 36 36  2c 33 32 34 2c 32 35 2c  |+358,366,324,25,|
00000ae0  31 2c 31 2c 32 29 0d 03  16 35 f2 54 69 6c 65 28  |1,1,2)...5.Tile(|
00000af0  28 28 72 6f 75 67 68 2d  30 2e 35 29 2a 35 32 30  |((rough-0.5)*520|
00000b00  29 2b 33 35 38 2c 31 31  32 36 2c 33 36 36 2c 33  |)+358,1126,366,3|
00000b10  32 34 2c 36 2c 30 2c 31  2c 32 29 0d 03 20 39 f2  |24,6,0,1,2).. 9.|
00000b20  54 69 6c 65 28 33 35 38  2c 28 28 6d 69 64 70 6f  |Tile(358,((midpo|
00000b30  69 6e 74 2d 30 2e 33 29  2a 31 39 35 30 29 2b 33  |int-0.3)*1950)+3|
00000b40  35 38 2c 32 32 36 2c 31  38 34 2c 32 35 2c 31 2c  |58,226,184,25,1,|
00000b50  31 2c 32 29 0d 03 2a 39  f2 54 69 6c 65 28 28 28  |1,2)..*9.Tile(((|
00000b60  6d 69 64 70 6f 69 6e 74  2d 30 2e 33 29 2a 31 39  |midpoint-0.3)*19|
00000b70  35 30 29 2b 33 35 38 2c  31 31 32 36 2c 32 32 36  |50)+358,1126,226|
00000b80  2c 31 38 34 2c 36 2c 30  2c 31 2c 32 29 0d 03 34  |,184,6,0,1,2)..4|
00000b90  05 e1 0d 03 3e 1f f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |....>.. --------|
00000ba0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000bb0  2d 0d 03 48 1f f4 20 4d  61 69 6e 20 43 6f 6e 74  |-..H.. Main Cont|
00000bc0  72 6f 6c 20 4c 6f 6f 70  20 52 6f 75 74 69 6e 65  |rol Loop Routine|
00000bd0  0d 03 52 1f f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..R.. ----------|
00000be0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00000bf0  03 5c 11 dd f2 43 6f 6e  74 72 6f 6c 4c 6f 6f 70  |.\...ControlLoop|
00000c00  0d 03 66 14 c8 99 22 4f  53 5f 42 79 74 65 22 2c  |..f..."OS_Byte",|
00000c10  32 31 2c 39 0d 03 70 08  c8 95 20 b9 0d 03 7a 13  |21,9..p... ...z.|
00000c20  f5 3a c8 97 6d 78 25 2c  6d 79 25 2c 6d 62 25 0d  |.:..mx%,my%,mb%.|
00000c30  03 84 19 e7 6d 62 25 3d  34 20 8c 20 f2 61 6c 74  |....mb%=4 . .alt|
00000c40  65 72 73 74 61 74 75 73  0d 03 8e 0e e7 6d 62 25  |erstatus.....mb%|
00000c50  3d 31 20 8c 20 e1 0d 03  98 15 e7 20 a6 28 30 29  |=1 . ...... .(0)|
00000c60  3d 38 31 20 8c 20 eb 31  32 3a e0 0d 03 a2 07 fd  |=81 . .12:......|
00000c70  20 a3 0d 03 ac 1a f4 20  2c 2c 2c 2c 2c 2c 2c 2c  | ...... ,,,,,,,,|
00000c80  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 0d 03 b6 1a  |,,,,,,,,,,,,....|
00000c90  f4 20 41 6c 74 65 72 20  53 74 61 74 75 73 20 52  |. Alter Status R|
00000ca0  6f 75 74 69 6e 65 0d 03  c0 1a f4 20 27 27 27 27  |outine..... ''''|
00000cb0  27 27 27 27 27 27 27 27  27 27 27 27 27 27 27 27  |''''''''''''''''|
00000cc0  0d 03 ca 11 dd f2 61 6c  74 65 72 73 74 61 74 75  |......alterstatu|
00000cd0  73 0d 03 d4 19 e7 20 6d  79 25 3e 37 38 32 20 80  |s..... my%>782 .|
00000ce0  20 6d 79 25 3c 38 32 34  20 8c 0d 03 de 1a 20 e7  | my%<824 ..... .|
00000cf0  20 6d 78 25 3e 35 39 32  20 80 20 6d 78 25 3c 37  | mx%>592 . mx%<7|
00000d00  37 30 20 8c 0d 03 e8 0c  20 20 f2 49 6e 70 75 74  |70 .....  .Input|
00000d10  0d 03 f2 06 20 cc 0d 03  fc 2f 20 20 e7 20 6d 78  |.... ..../  . mx|
00000d20  25 3e 38 35 32 20 80 20  6d 78 25 3c 39 31 38 20  |%>852 . mx%<918 |
00000d30  8c 20 6f 72 69 67 73 65  65 64 25 3d b3 28 31 29  |. origseed%=.(1)|
00000d40  2a 34 30 39 36 0d 04 06  06 20 cd 0d 04 10 05 cc  |*4096.... ......|
00000d50  0d 04 1a 1a 20 e7 20 6d  79 25 3e 36 32 34 20 80  |.... . my%>624 .|
00000d60  20 6d 79 25 3c 36 36 34  20 8c 0d 04 24 1b 20 20  | my%<664 ...$.  |
00000d70  e7 20 6d 78 25 3e 35 31  36 20 80 20 6d 78 25 3c  |. mx%>516 . mx%<|
00000d80  39 39 30 20 8c 0d 04 2e  1c 20 20 20 74 65 6d 70  |990 .....   temp|
00000d90  5f 76 61 6c 3d 28 6d 78  25 2d 35 31 36 29 2f 36  |_val=(mx%-516)/6|
00000da0  34 0d 04 38 58 20 20 20  e7 20 74 65 6d 70 5f 76  |4..8X   . temp_v|
00000db0  61 6c 2d a8 28 74 65 6d  70 5f 76 61 6c 29 3c 2e  |al-.(temp_val)<.|
00000dc0  35 33 31 32 35 20 8c 20  6f 6c 64 69 74 65 72 61  |53125 . olditera|
00000dd0  74 69 6f 6e 25 3d 69 74  65 72 61 74 69 6f 6e 25  |tion%=iteration%|
00000de0  3a 69 74 65 72 61 74 69  6f 6e 25 3d a8 28 74 65  |:iteration%=.(te|
00000df0  6d 70 5f 76 61 6c 2b 31  29 0d 04 42 07 20 20 cd  |mp_val+1)..B.  .|
00000e00  0d 04 4c 06 20 cc 0d 04  56 1b 20 20 e7 20 6d 79  |..L. ...V.  . my|
00000e10  25 3e 34 36 34 20 80 20  6d 79 25 3c 35 30 36 20  |%>464 . my%<506 |
00000e20  8c 0d 04 60 33 20 20 20  e7 20 6d 78 25 3e 33 35  |...`3   . mx%>35|
00000e30  38 20 80 20 6d 78 25 3c  31 31 32 36 20 8c 20 73  |8 . mx%<1126 . s|
00000e40  65 61 25 3d 28 6d 78 25  2d 33 35 38 29 2f 37 2e  |ea%=(mx%-358)/7.|
00000e50  38 2d 35 30 0d 04 6a 07  20 20 cc 0d 04 74 1c 20  |8-50..j.  ...t. |
00000e60  20 20 e7 20 6d 79 25 3e  33 32 34 20 80 20 6d 79  |  . my%>324 . my|
00000e70  25 3c 33 36 36 20 8c 0d  04 7e 35 20 20 20 20 e7  |%<366 ...~5    .|
00000e80  20 6d 78 25 3e 33 35 38  20 80 20 6d 78 25 3c 31  | mx%>358 . mx%<1|
00000e90  31 32 36 20 8c 20 72 6f  75 67 68 3d 28 6d 78 25  |126 . rough=(mx%|
00000ea0  2d 33 35 38 29 2f 35 32  30 2b 2e 35 0d 04 88 08  |-358)/520+.5....|
00000eb0  20 20 20 cc 0d 04 92 1d  20 20 20 20 e7 20 6d 79  |   .....    . my|
00000ec0  25 3e 31 38 34 20 80 20  6d 79 25 3c 32 32 36 20  |%>184 . my%<226 |
00000ed0  8c 0d 04 9c 3a 20 20 20  20 20 e7 20 6d 78 25 3e  |....:     . mx%>|
00000ee0  33 35 38 20 80 20 6d 78  25 3c 31 31 32 36 20 8c  |358 . mx%<1126 .|
00000ef0  20 6d 69 64 70 6f 69 6e  74 3d 28 6d 78 25 2d 33  | midpoint=(mx%-3|
00000f00  35 38 29 2f 31 39 35 30  2b 2e 33 0d 04 a6 09 20  |58)/1950+.3.... |
00000f10  20 20 20 cd 0d 04 b0 08  20 20 20 cd 0d 04 ba 07  |   .....   .....|
00000f20  20 20 cd 0d 04 c4 06 20  cd 0d 04 ce 05 cd 0d 04  |  ..... ........|
00000f30  d8 11 f2 44 69 73 70 6c  61 79 53 74 61 74 73 0d  |...DisplayStats.|
00000f40  04 e2 1b c8 95 6d 62 25  3d 34 3a c8 97 6d 78 25  |.....mb%=4:..mx%|
00000f50  2c 6d 79 25 2c 6d 62 25  3a ce 0d 04 ec 05 e1 0d  |,my%,mb%:.......|
00000f60  04 f6 25 f4 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..%. -----------|
00000f70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000f80  2d 2d 2d 2d 0d 05 00 25  f4 20 53 65 74 75 70 20  |----...%. Setup |
00000f90  46 72 61 63 74 61 6c 20  4c 61 6e 64 73 63 61 70  |Fractal Landscap|
00000fa0  65 20 52 6f 75 74 69 6e  65 0d 05 0a 25 f4 20 2d  |e Routine...%. -|
00000fb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000fc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 05  |--------------..|
00000fd0  14 0f dd f2 4c 61 6e 64  73 63 61 70 65 0d 05 1e  |....Landscape...|
00000fe0  20 20 73 65 65 64 25 3d  6f 72 69 67 73 65 65 64  |  seed%=origseed|
00000ff0  25 3a 63 6f 6e 73 74 61  6e 74 25 3d 30 0d 05 28  |%:constant%=0..(|
00001000  12 20 db 3a 6d 61 74 72  69 78 25 28 29 3d 30 0d  |. .:matrix%()=0.|
00001010  05 32 16 20 6d 61 74 72  69 78 5f 77 69 64 74 68  |.2. matrix_width|
00001020  25 3d 32 35 36 0d 05 3c  1c 20 e3 20 6c 6f 6f 70  |%=256..<. . loop|
00001030  69 25 3d 31 20 b8 20 69  74 65 72 61 74 69 6f 6e  |i%=1 . iteration|
00001040  25 0d 05 46 58 20 20 f2  54 65 78 74 28 2d 31 2c  |%..FX  .Text(-1,|
00001050  35 35 30 2c 22 43 61 6c  63 75 6c 61 74 69 6e 67  |550,"Calculating|
00001060  20 49 74 65 72 61 74 69  6f 6e 20 22 2b c3 28 6c  | Iteration "+.(l|
00001070  6f 6f 70 69 25 29 2b 22  20 6f 66 20 22 2b c3 28  |oopi%)+" of "+.(|
00001080  69 74 65 72 61 74 69 6f  6e 25 29 2c 33 2c 30 2c  |iteration%),3,0,|
00001090  31 2c 32 31 2c 31 2c 30  29 0d 05 50 2c 20 20 f2  |1,21,1,0)..P,  .|
000010a0  44 6f 70 70 6c 65 72 3a  6d 61 74 72 69 78 5f 77  |Doppler:matrix_w|
000010b0  69 64 74 68 25 3d 6d 61  74 72 69 78 5f 77 69 64  |idth%=matrix_wid|
000010c0  74 68 25 2f 32 0d 05 5a  06 20 ed 0d 05 64 39 20  |th%/2..Z. ...d9 |
000010d0  e7 6d 6f 64 65 25 3d 33  32 20 8c 20 eb 33 32 3a  |.mode%=32 . .32:|
000010e0  87 3a 73 63 61 6c 65 3d  36 2e 36 3a c8 91 28 31  |.:scale=6.6:..(1|
000010f0  34 33 32 2d 32 35 36 2a  73 63 61 6c 65 29 2f 32  |432-256*scale)/2|
00001100  2c 39 30 30 0d 05 6e 37  20 e7 6d 6f 64 65 25 3d  |,900..n7 .mode%=|
00001110  31 35 20 8c 20 eb 31 35  3a 87 3a 73 63 61 6c 65  |15 . .15:.:scale|
00001120  3d 36 3a c8 91 28 31 32  35 30 2d 32 35 36 2a 73  |=6:..(1250-256*s|
00001130  63 61 6c 65 29 2f 32 2c  39 30 30 0d 05 78 15 20  |cale)/2,900..x. |
00001140  c8 99 22 4f 53 5f 42 79  74 65 22 2c 32 31 2c 39  |.."OS_Byte",21,9|
00001150  0d 05 82 17 20 f2 53 6b  79 3a f2 44 72 61 77 5f  |.... .Sky:.Draw_|
00001160  46 72 61 63 74 61 6c 0d  05 8c 15 20 c8 99 22 4f  |Fractal.... .."O|
00001170  53 5f 42 79 74 65 22 2c  32 31 2c 39 0d 05 96 1c  |S_Byte",21,9....|
00001180  20 c8 95 20 6d 62 25 3c  3e 34 3a c8 97 6d 78 25  | .. mb%<>4:..mx%|
00001190  2c 6d 79 25 2c 6d 62 25  0d 05 a0 31 20 e7 a6 28  |,my%,mb%...1 ..(|
000011a0  30 29 3d 38 33 20 8c 20  ff 22 4d 4f 55 4e 54 22  |0)=83 . ."MOUNT"|
000011b0  3a ff 22 53 43 52 45 45  4e 53 41 56 45 20 22 2b  |:."SCREENSAVE "+|
000011c0  66 69 6c 65 6e 61 6d 65  24 0d 05 aa 15 20 e7 a6  |filename$.... ..|
000011d0  28 30 29 3d 38 31 20 8c  20 eb 31 32 3a e0 0d 05  |(0)=81 . .12:...|
000011e0  b4 06 20 ce 0d 05 be 27  20 e7 6d 62 25 3d 34 20  |.. ....' .mb%=4 |
000011f0  8c 20 c8 95 6d 62 25 3e  30 3a c8 97 6d 78 25 2c  |. ..mb%>0:..mx%,|
00001200  6d 79 25 2c 6d 62 25 3a  ce 3a e1 0d 05 c8 36 20  |my%,mb%:.:....6 |
00001210  6b 65 79 3d a5 3a e7 6b  65 79 3d 38 33 20 8c 20  |key=.:.key=83 . |
00001220  ff 22 4d 4f 55 4e 54 22  3a ff 22 53 43 52 45 45  |."MOUNT":."SCREE|
00001230  4e 53 41 56 45 20 22 2b  66 69 6c 65 6e 61 6d 65  |NSAVE "+filename|
00001240  24 0d 05 d2 14 20 e7 6b  65 79 3d 38 31 20 8c 20  |$.... .key=81 . |
00001250  eb 31 32 3a e0 0d 05 dc  05 e1 0d 05 e6 22 f4 20  |.12:.........". |
00001260  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001270  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 05 f0 22  |------------..."|
00001280  f4 20 4d 61 69 6e 20 46  72 61 63 74 61 6c 20 44  |. Main Fractal D|
00001290  72 61 77 69 6e 67 20 52  6f 75 74 69 6e 65 0d 05  |rawing Routine..|
000012a0  fa 22 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.". ------------|
000012b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000012c0  0d 06 04 12 dd f2 44 72  61 77 5f 46 72 61 63 74  |......Draw_Fract|
000012d0  61 6c 0d 06 0e 66 73 77  69 64 74 68 3d 34 2e 39  |al...fswidth=4.9|
000012e0  32 2a 6d 61 74 72 69 78  5f 77 69 64 74 68 25 3a  |2*matrix_width%:|
000012f0  73 68 65 69 67 68 74 3d  30 2e 38 2a 73 77 69 64  |sheight=0.8*swid|
00001300  74 68 3a 73 72 61 74 69  6f 33 3d 73 77 69 64 74  |th:sratio3=swidt|
00001310  68 2a 73 68 65 69 67 68  74 3a 73 72 61 74 69 6f  |h*sheight:sratio|
00001320  5f 73 71 75 61 72 65 64  3d 73 72 61 74 69 6f 33  |_squared=sratio3|
00001330  2a 73 72 61 74 69 6f 33  0d 06 18 11 6d 61 78 5f  |*sratio3....max_|
00001340  68 65 69 67 68 74 25 3d  30 0d 06 22 31 e3 6c 6f  |height%=0.."1.lo|
00001350  6f 70 78 25 3d 30 20 b8  20 32 35 36 2d 6d 61 74  |opx%=0 . 256-mat|
00001360  72 69 78 5f 77 69 64 74  68 25 20 88 20 6d 61 74  |rix_width% . mat|
00001370  72 69 78 5f 77 69 64 74  68 25 0d 06 2c 32 20 e3  |rix_width%..,2 .|
00001380  6c 6f 6f 70 79 25 3d 30  20 b8 20 32 35 36 2d 6d  |loopy%=0 . 256-m|
00001390  61 74 72 69 78 5f 77 69  64 74 68 25 20 88 20 6d  |atrix_width% . m|
000013a0  61 74 72 69 78 5f 77 69  64 74 68 25 0d 06 36 4f  |atrix_width%..6O|
000013b0  20 20 e7 20 6d 61 74 72  69 78 25 28 6c 6f 6f 70  |  . matrix%(loop|
000013c0  78 25 2c 6c 6f 6f 70 79  25 29 3e 6d 61 78 5f 68  |x%,loopy%)>max_h|
000013d0  65 69 67 68 74 25 20 8c  20 6d 61 78 5f 68 65 69  |eight% . max_hei|
000013e0  67 68 74 25 3d 6d 61 74  72 69 78 25 28 6c 6f 6f  |ght%=matrix%(loo|
000013f0  70 78 25 2c 6c 6f 6f 70  79 25 29 0d 06 40 06 20  |px%,loopy%)..@. |
00001400  ed 0d 06 4a 05 ed 0d 06  54 28 6d 61 78 5f 68 65  |...J....T(max_he|
00001410  69 67 68 74 25 3d 28 94  28 73 65 61 25 29 2b 6d  |ight%=(.(sea%)+m|
00001420  61 78 5f 68 65 69 67 68  74 25 29 2f 33 32 0d 06  |ax_height%)/32..|
00001430  5e 1d 72 6e 64 5f 66 61  63 74 6f 72 25 3d 6d 61  |^.rnd_factor%=ma|
00001440  78 5f 68 65 69 67 68 74  25 2f 32 0d 06 68 32 e3  |x_height%/2..h2.|
00001450  20 6c 6f 6f 70 79 25 3d  30 20 b8 20 32 35 35 2d  | loopy%=0 . 255-|
00001460  6d 61 74 72 69 78 5f 77  69 64 74 68 25 20 88 20  |matrix_width% . |
00001470  6d 61 74 72 69 78 5f 77  69 64 74 68 25 0d 06 72  |matrix_width%..r|
00001480  63 20 74 72 69 5f 77 69  64 74 68 3d 28 6c 6f 6f  |c tri_width=(loo|
00001490  70 79 25 2b 6d 61 74 72  69 78 5f 77 69 64 74 68  |py%+matrix_width|
000014a0  25 29 2a 68 72 61 74 69  6f 2b 75 6e 64 65 72 25  |%)*hratio+under%|
000014b0  2d 68 65 69 67 68 74 25  3a 74 72 69 5f 68 65 69  |-height%:tri_hei|
000014c0  67 68 74 3d 6c 6f 6f 70  79 25 2a 68 72 61 74 69  |ght=loopy%*hrati|
000014d0  6f 2b 75 6e 64 65 72 25  2d 68 65 69 67 68 74 25  |o+under%-height%|
000014e0  0d 06 7c 33 20 e3 20 6c  6f 6f 70 78 25 3d 30 20  |..|3 . loopx%=0 |
000014f0  b8 20 32 35 36 2d 6d 61  74 72 69 78 5f 77 69 64  |. 256-matrix_wid|
00001500  74 68 25 20 88 20 6d 61  74 72 69 78 5f 77 69 64  |th% . matrix_wid|
00001510  74 68 25 0d 06 86 4a 20  20 68 65 69 67 68 74 5f  |th%...J  height_|
00001520  31 25 3d 6d 61 74 72 69  78 25 28 6c 6f 6f 70 78  |1%=matrix%(loopx|
00001530  25 2c 6c 6f 6f 70 79 25  29 2f 38 3a e7 20 68 65  |%,loopy%)/8:. he|
00001540  69 67 68 74 5f 31 25 3c  73 65 61 25 20 8c 20 68  |ight_1%<sea% . h|
00001550  65 69 67 68 74 5f 31 25  3d 73 65 61 25 0d 06 90  |eight_1%=sea%...|
00001560  58 20 20 68 65 69 67 68  74 5f 32 25 3d 6d 61 74  |X  height_2%=mat|
00001570  72 69 78 25 28 6c 6f 6f  70 78 25 2b 6d 61 74 72  |rix%(loopx%+matr|
00001580  69 78 5f 77 69 64 74 68  25 2c 6c 6f 6f 70 79 25  |ix_width%,loopy%|
00001590  29 2f 38 3a e7 20 68 65  69 67 68 74 5f 32 25 3c  |)/8:. height_2%<|
000015a0  73 65 61 25 20 8c 20 68  65 69 67 68 74 5f 32 25  |sea% . height_2%|
000015b0  3d 73 65 61 25 0d 06 9a  66 20 20 68 65 69 67 68  |=sea%...f  heigh|
000015c0  74 5f 33 25 3d 6d 61 74  72 69 78 25 28 6c 6f 6f  |t_3%=matrix%(loo|
000015d0  70 78 25 2b 6d 61 74 72  69 78 5f 77 69 64 74 68  |px%+matrix_width|
000015e0  25 2c 6c 6f 6f 70 79 25  2b 6d 61 74 72 69 78 5f  |%,loopy%+matrix_|
000015f0  77 69 64 74 68 25 29 2f  38 3a e7 20 68 65 69 67  |width%)/8:. heig|
00001600  68 74 5f 33 25 3c 73 65  61 25 20 8c 20 68 65 69  |ht_3%<sea% . hei|
00001610  67 68 74 5f 33 25 3d 73  65 61 25 0d 06 a4 58 20  |ght_3%=sea%...X |
00001620  20 68 65 69 67 68 74 5f  34 25 3d 6d 61 74 72 69  | height_4%=matri|
00001630  78 25 28 6c 6f 6f 70 78  25 2c 6c 6f 6f 70 79 25  |x%(loopx%,loopy%|
00001640  2b 6d 61 74 72 69 78 5f  77 69 64 74 68 25 29 2f  |+matrix_width%)/|
00001650  38 3a e7 20 68 65 69 67  68 74 5f 34 25 3c 73 65  |8:. height_4%<se|
00001660  61 25 20 8c 20 68 65 69  67 68 74 5f 34 25 3d 73  |a% . height_4%=s|
00001670  65 61 25 0d 06 ae 5f 20  20 73 72 61 74 69 6f 31  |ea%..._  sratio1|
00001680  3d 2d 73 68 65 69 67 68  74 2a 28 68 65 69 67 68  |=-sheight*(heigh|
00001690  74 5f 33 25 2d 68 65 69  67 68 74 5f 31 25 29 3a  |t_3%-height_1%):|
000016a0  73 72 61 74 69 6f 32 3d  73 77 69 64 74 68 2a 28  |sratio2=swidth*(|
000016b0  28 68 65 69 67 68 74 5f  31 25 2b 68 65 69 67 68  |(height_1%+heigh|
000016c0  74 5f 33 25 29 2f 32 2d  68 65 69 67 68 74 5f 32  |t_3%)/2-height_2|
000016d0  25 29 0d 06 b8 3e 20 20  6c 65 6e 67 74 68 3d b6  |%)...>  length=.|
000016e0  28 73 72 61 74 69 6f 31  2a 73 72 61 74 69 6f 31  |(sratio1*sratio1|
000016f0  2b 73 72 61 74 69 6f 32  2a 73 72 61 74 69 6f 32  |+sratio2*sratio2|
00001700  2b 73 72 61 74 69 6f 5f  73 71 75 61 72 65 64 29  |+sratio_squared)|
00001710  0d 06 c2 4e 20 20 20 63  6f 6c 6f 75 72 25 3d a8  |...N   colour%=.|
00001720  28 28 28 4c 72 61 74 69  6f 31 2a 73 72 61 74 69  |(((Lratio1*srati|
00001730  6f 31 2b 4c 72 61 74 69  6f 32 2a 73 72 61 74 69  |o1+Lratio2*srati|
00001740  6f 32 2b 4c 72 61 74 69  6f 33 2a 73 72 61 74 69  |o2+Lratio3*srati|
00001750  6f 33 29 2f 6c 65 6e 67  74 68 29 2a 39 29 0d 06  |o3)/length)*9)..|
00001760  cc 1c 20 20 e7 63 6f 6c  6f 75 72 25 3c 30 20 8c  |..  .colour%<0 .|
00001770  20 63 6f 6c 6f 75 72 25  3d 30 0d 06 d6 3c 20 6d  | colour%=0...< m|
00001780  69 64 5f 68 65 69 67 68  74 25 3d 28 68 65 69 67  |id_height%=(heig|
00001790  68 74 5f 31 25 2b 68 65  69 67 68 74 5f 32 25 2b  |ht_1%+height_2%+|
000017a0  68 65 69 67 68 74 5f 33  25 2b 68 65 69 67 68 74  |height_3%+height|
000017b0  5f 34 25 29 2f 34 0d 06  e0 45 20 20 e7 20 6d 69  |_4%)/4...E  . mi|
000017c0  64 5f 68 65 69 67 68 74  25 20 3c 20 73 65 61 25  |d_height% < sea%|
000017d0  2b 6d 61 78 5f 68 65 69  67 68 74 25 2b 28 a4 53  |+max_height%+(.S|
000017e0  65 65 64 2d 6d 69 64 70  6f 69 6e 74 29 2a 72 6e  |eed-midpoint)*rn|
000017f0  64 5f 66 61 63 74 6f 72  25 20 8c 0d 06 ea 1b 20  |d_factor% ..... |
00001800  20 20 f2 43 6f 6c 6f 75  72 28 34 2c 63 6f 6c 6f  |  .Colour(4,colo|
00001810  75 72 25 2c 31 29 0d 06  f4 07 20 20 cc 0d 06 fe  |ur%,1)....  ....|
00001820  48 20 20 20 e7 20 6d 69  64 5f 68 65 69 67 68 74  |H   . mid_height|
00001830  25 20 3c 20 73 65 61 25  2b 6d 61 78 5f 68 65 69  |% < sea%+max_hei|
00001840  67 68 74 25 2a 32 2b 28  a4 53 65 65 64 2d 6d 69  |ght%*2+(.Seed-mi|
00001850  64 70 6f 69 6e 74 29 2a  72 6e 64 5f 66 61 63 74  |dpoint)*rnd_fact|
00001860  6f 72 25 20 8c 0d 07 08  1d 20 20 20 20 f2 43 6f  |or% .....    .Co|
00001870  6c 6f 75 72 28 31 37 2c  63 6f 6c 6f 75 72 25 2c  |lour(17,colour%,|
00001880  31 29 0d 07 12 08 20 20  20 cc 0d 07 1c 49 20 20  |1)....   ....I  |
00001890  20 20 e7 20 6d 69 64 5f  68 65 69 67 68 74 25 20  |  . mid_height% |
000018a0  3c 20 73 65 61 25 2b 6d  61 78 5f 68 65 69 67 68  |< sea%+max_heigh|
000018b0  74 25 2a 33 2b 28 a4 53  65 65 64 2d 6d 69 64 70  |t%*3+(.Seed-midp|
000018c0  6f 69 6e 74 29 2a 72 6e  64 5f 66 61 63 74 6f 72  |oint)*rnd_factor|
000018d0  25 20 8c 0d 07 26 1e 20  20 20 20 20 f2 43 6f 6c  |% ...&.     .Col|
000018e0  6f 75 72 28 31 33 2c 63  6f 6c 6f 75 72 25 2c 31  |our(13,colour%,1|
000018f0  29 0d 07 30 09 20 20 20  20 cc 0d 07 3a 1f 20 20  |)..0.    ...:.  |
00001900  20 20 20 f2 43 6f 6c 6f  75 72 28 37 2c 63 6f 6c  |   .Colour(7,col|
00001910  6f 75 72 25 2b 39 2c 30  29 0d 07 44 09 20 20 20  |our%+9,0)..D.   |
00001920  20 cd 0d 07 4e 08 20 20  20 cd 0d 07 58 07 20 20  | ...N.   ...X.  |
00001930  cd 0d 07 62 06 20 cd 0d  07 6c 60 20 20 e7 20 68  |...b. ...l`  . h|
00001940  65 69 67 68 74 5f 34 25  3c 3d 73 65 61 25 20 80  |eight_4%<=sea% .|
00001950  20 68 65 69 67 68 74 5f  33 25 3c 3d 73 65 61 25  | height_3%<=sea%|
00001960  20 80 20 68 65 69 67 68  74 5f 32 25 3c 3d 73 65  | . height_2%<=se|
00001970  61 25 20 80 20 68 65 69  67 68 74 5f 31 25 3c 3d  |a% . height_1%<=|
00001980  73 65 61 25 20 8c 20 f2  43 6f 6c 6f 75 72 28 32  |sea% . .Colour(2|
00001990  31 2c 31 34 2c 31 29 0d  07 76 39 20 20 ec 20 6c  |1,14,1)..v9  . l|
000019a0  6f 6f 70 78 25 2a 73 63  61 6c 65 2b 31 32 38 2d  |oopx%*scale+128-|
000019b0  6c 6f 6f 70 79 25 2c 2d  28 74 72 69 5f 68 65 69  |loopy%,-(tri_hei|
000019c0  67 68 74 2d 68 65 69 67  68 74 5f 31 25 29 2a 32  |ght-height_1%)*2|
000019d0  0d 07 80 49 20 20 ec 20  28 6c 6f 6f 70 78 25 2b  |...I  . (loopx%+|
000019e0  6d 61 74 72 69 78 5f 77  69 64 74 68 25 29 2a 73  |matrix_width%)*s|
000019f0  63 61 6c 65 2b 31 32 38  2d 6c 6f 6f 70 79 25 2c  |cale+128-loopy%,|
00001a00  2d 28 74 72 69 5f 68 65  69 67 68 74 2d 68 65 69  |-(tri_height-hei|
00001a10  67 68 74 5f 32 25 29 2a  32 0d 07 8a 49 20 20 f0  |ght_2%)*2...I  .|
00001a20  20 38 35 2c 6c 6f 6f 70  78 25 2a 73 63 61 6c 65  | 85,loopx%*scale|
00001a30  2b 31 32 38 2d 6c 6f 6f  70 79 25 2d 6d 61 74 72  |+128-loopy%-matr|
00001a40  69 78 5f 77 69 64 74 68  25 2c 2d 28 74 72 69 5f  |ix_width%,-(tri_|
00001a50  77 69 64 74 68 2d 68 65  69 67 68 74 5f 34 25 29  |width-height_4%)|
00001a60  2a 32 0d 07 94 59 20 20  f0 20 38 35 2c 28 6c 6f  |*2...Y  . 85,(lo|
00001a70  6f 70 78 25 2b 6d 61 74  72 69 78 5f 77 69 64 74  |opx%+matrix_widt|
00001a80  68 25 29 2a 73 63 61 6c  65 2b 31 32 38 2d 6c 6f  |h%)*scale+128-lo|
00001a90  6f 70 79 25 2d 6d 61 74  72 69 78 5f 77 69 64 74  |opy%-matrix_widt|
00001aa0  68 25 2c 2d 28 74 72 69  5f 77 69 64 74 68 2d 68  |h%,-(tri_width-h|
00001ab0  65 69 67 68 74 5f 33 25  29 2a 32 0d 07 9e 1e 20  |eight_3%)*2.... |
00001ac0  20 c8 97 6d 78 25 2c 6d  79 25 2c 6d 62 25 3a e7  | ..mx%,my%,mb%:.|
00001ad0  6d 62 25 3d 32 20 8c 20  e1 0d 07 a8 06 20 ed 0d  |mb%=2 . ..... ..|
00001ae0  07 b2 05 ed 0d 07 bc 05  e1 0d 07 c6 15 f4 20 2d  |.............. -|
00001af0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 07  |--------------..|
00001b00  d0 15 f4 20 44 6f 70 70  6c 65 72 20 52 6f 75 74  |... Doppler Rout|
00001b10  69 6e 65 0d 07 da 15 f4  20 2d 2d 2d 2d 2d 2d 2d  |ine..... -------|
00001b20  2d 2d 2d 2d 2d 2d 2d 2d  0d 07 e4 0d dd f2 44 6f  |--------......Do|
00001b30  70 70 6c 65 72 0d 07 ee  45 68 65 69 67 68 74 5f  |ppler...Eheight_|
00001b40  6f 66 66 73 65 74 25 3d  6d 61 74 72 69 78 5f 77  |offset%=matrix_w|
00001b50  69 64 74 68 25 2a 31 30  2a 72 6f 75 67 68 3a 74  |idth%*10*rough:t|
00001b60  65 6d 70 5f 77 69 64 74  68 25 3d 6d 61 74 72 69  |emp_width%=matri|
00001b70  78 5f 77 69 64 74 68 25  2f 32 0d 07 f8 31 e3 20  |x_width%/2...1. |
00001b80  6c 6f 6f 70 25 3d 30 20  b8 20 32 35 36 2d 6d 61  |loop%=0 . 256-ma|
00001b90  74 72 69 78 5f 77 69 64  74 68 25 20 88 20 6d 61  |trix_width% . ma|
00001ba0  74 72 69 78 5f 77 69 64  74 68 25 0d 08 02 46 20  |trix_width%...F |
00001bb0  62 5f 6f 66 66 73 65 74  25 3d 28 6d 61 74 72 69  |b_offset%=(matri|
00001bc0  78 25 28 32 35 36 2c 6c  6f 6f 70 25 29 2b 6d 61  |x%(256,loop%)+ma|
00001bd0  74 72 69 78 25 28 32 35  36 2c 6c 6f 6f 70 25 2b  |trix%(256,loop%+|
00001be0  6d 61 74 72 69 78 5f 77  69 64 74 68 25 29 29 2f  |matrix_width%))/|
00001bf0  32 0d 08 0c 6c 20 6d 61  74 72 69 78 25 28 32 35  |2...l matrix%(25|
00001c00  36 2c 6c 6f 6f 70 25 2b  74 65 6d 70 5f 77 69 64  |6,loop%+temp_wid|
00001c10  74 68 25 29 3d 6d 61 74  72 69 78 25 28 32 35 36  |th%)=matrix%(256|
00001c20  2c 6c 6f 6f 70 25 2b 74  65 6d 70 5f 77 69 64 74  |,loop%+temp_widt|
00001c30  68 25 29 2b 62 5f 6f 66  66 73 65 74 25 2b 28 a4  |h%)+b_offset%+(.|
00001c40  53 65 65 64 2d 6d 69 64  70 6f 69 6e 74 29 2a 68  |Seed-midpoint)*h|
00001c50  65 69 67 68 74 5f 6f 66  66 73 65 74 25 0d 08 16  |eight_offset%...|
00001c60  46 20 62 5f 6f 66 66 73  65 74 25 3d 28 6d 61 74  |F b_offset%=(mat|
00001c70  72 69 78 25 28 6c 6f 6f  70 25 2c 32 35 36 29 2b  |rix%(loop%,256)+|
00001c80  6d 61 74 72 69 78 25 28  6c 6f 6f 70 25 2b 6d 61  |matrix%(loop%+ma|
00001c90  74 72 69 78 5f 77 69 64  74 68 25 2c 32 35 36 29  |trix_width%,256)|
00001ca0  29 2f 32 0d 08 20 6c 20  6d 61 74 72 69 78 25 28  |)/2.. l matrix%(|
00001cb0  6c 6f 6f 70 25 2b 74 65  6d 70 5f 77 69 64 74 68  |loop%+temp_width|
00001cc0  25 2c 32 35 36 29 3d 6d  61 74 72 69 78 25 28 6c  |%,256)=matrix%(l|
00001cd0  6f 6f 70 25 2b 74 65 6d  70 5f 77 69 64 74 68 25  |oop%+temp_width%|
00001ce0  2c 32 35 36 29 2b 62 5f  6f 66 66 73 65 74 25 2b  |,256)+b_offset%+|
00001cf0  28 a4 53 65 65 64 2d 6d  69 64 70 6f 69 6e 74 29  |(.Seed-midpoint)|
00001d00  2a 68 65 69 67 68 74 5f  6f 66 66 73 65 74 25 0d  |*height_offset%.|
00001d10  08 2a 05 ed 0d 08 34 24  e3 20 6c 6f 6f 70 79 25  |.*....4$. loopy%|
00001d20  3d 30 20 b8 20 32 35 35  20 88 20 6d 61 74 72 69  |=0 . 255 . matri|
00001d30  78 5f 77 69 64 74 68 25  0d 08 3e 25 20 e3 20 6c  |x_width%..>% . l|
00001d40  6f 6f 70 78 25 3d 30 20  b8 20 32 35 35 20 88 20  |oopx%=0 . 255 . |
00001d50  6d 61 74 72 69 78 5f 77  69 64 74 68 25 0d 08 48  |matrix_width%..H|
00001d60  4f 20 20 62 5f 6f 66 66  73 65 74 25 3d 28 6d 61  |O  b_offset%=(ma|
00001d70  74 72 69 78 25 28 6c 6f  6f 70 78 25 2c 6c 6f 6f  |trix%(loopx%,loo|
00001d80  70 79 25 29 2b 6d 61 74  72 69 78 25 28 6c 6f 6f  |py%)+matrix%(loo|
00001d90  70 78 25 2c 6c 6f 6f 70  79 25 2b 6d 61 74 72 69  |px%,loopy%+matri|
00001da0  78 5f 77 69 64 74 68 25  29 29 2f 32 0d 08 52 75  |x_width%))/2..Ru|
00001db0  20 20 6d 61 74 72 69 78  25 28 6c 6f 6f 70 78 25  |  matrix%(loopx%|
00001dc0  2c 6c 6f 6f 70 79 25 2b  74 65 6d 70 5f 77 69 64  |,loopy%+temp_wid|
00001dd0  74 68 25 29 3d 6d 61 74  72 69 78 25 28 6c 6f 6f  |th%)=matrix%(loo|
00001de0  70 78 25 2c 6c 6f 6f 70  79 25 2b 74 65 6d 70 5f  |px%,loopy%+temp_|
00001df0  77 69 64 74 68 25 29 2b  62 5f 6f 66 66 73 65 74  |width%)+b_offset|
00001e00  25 2b 28 a4 53 65 65 64  2d 6d 69 64 70 6f 69 6e  |%+(.Seed-midpoin|
00001e10  74 29 2a 68 65 69 67 68  74 5f 6f 66 66 73 65 74  |t)*height_offset|
00001e20  25 0d 08 5c 4f 20 20 62  5f 6f 66 66 73 65 74 25  |%..\O  b_offset%|
00001e30  3d 28 6d 61 74 72 69 78  25 28 6c 6f 6f 70 78 25  |=(matrix%(loopx%|
00001e40  2c 6c 6f 6f 70 79 25 29  2b 6d 61 74 72 69 78 25  |,loopy%)+matrix%|
00001e50  28 6c 6f 6f 70 78 25 2b  6d 61 74 72 69 78 5f 77  |(loopx%+matrix_w|
00001e60  69 64 74 68 25 2c 6c 6f  6f 70 79 25 29 29 2f 32  |idth%,loopy%))/2|
00001e70  0d 08 66 75 20 20 6d 61  74 72 69 78 25 28 6c 6f  |..fu  matrix%(lo|
00001e80  6f 70 78 25 2b 74 65 6d  70 5f 77 69 64 74 68 25  |opx%+temp_width%|
00001e90  2c 6c 6f 6f 70 79 25 29  3d 6d 61 74 72 69 78 25  |,loopy%)=matrix%|
00001ea0  28 6c 6f 6f 70 78 25 2b  74 65 6d 70 5f 77 69 64  |(loopx%+temp_wid|
00001eb0  74 68 25 2c 6c 6f 6f 70  79 25 29 2b 62 5f 6f 66  |th%,loopy%)+b_of|
00001ec0  66 73 65 74 25 2b 28 a4  53 65 65 64 2d 6d 69 64  |fset%+(.Seed-mid|
00001ed0  70 6f 69 6e 74 29 2a 68  65 69 67 68 74 5f 6f 66  |point)*height_of|
00001ee0  66 73 65 74 25 0d 08 70  a7 20 20 62 5f 6f 66 66  |fset%..p.  b_off|
00001ef0  73 65 74 25 3d 28 6d 61  74 72 69 78 25 28 6c 6f  |set%=(matrix%(lo|
00001f00  6f 70 78 25 2c 6c 6f 6f  70 79 25 29 2b 6d 61 74  |opx%,loopy%)+mat|
00001f10  72 69 78 25 28 6c 6f 6f  70 78 25 2b 6d 61 74 72  |rix%(loopx%+matr|
00001f20  69 78 5f 77 69 64 74 68  25 2c 6c 6f 6f 70 79 25  |ix_width%,loopy%|
00001f30  29 2b 6d 61 74 72 69 78  25 28 6c 6f 6f 70 78 25  |)+matrix%(loopx%|
00001f40  2b 6d 61 74 72 69 78 5f  77 69 64 74 68 25 2c 6c  |+matrix_width%,l|
00001f50  6f 6f 70 79 25 2b 6d 61  74 72 69 78 5f 77 69 64  |oopy%+matrix_wid|
00001f60  74 68 25 29 2b 6d 61 74  72 69 78 25 28 6c 6f 6f  |th%)+matrix%(loo|
00001f70  70 78 25 2c 6c 6f 6f 70  79 25 2b 6d 61 74 72 69  |px%,loopy%+matri|
00001f80  78 5f 77 69 64 74 68 25  29 29 2f 34 0d 08 7a 8d  |x_width%))/4..z.|
00001f90  20 20 6d 61 74 72 69 78  25 28 6c 6f 6f 70 78 25  |  matrix%(loopx%|
00001fa0  2b 74 65 6d 70 5f 77 69  64 74 68 25 2c 6c 6f 6f  |+temp_width%,loo|
00001fb0  70 79 25 2b 74 65 6d 70  5f 77 69 64 74 68 25 29  |py%+temp_width%)|
00001fc0  3d 6d 61 74 72 69 78 25  28 6c 6f 6f 70 78 25 2b  |=matrix%(loopx%+|
00001fd0  74 65 6d 70 5f 77 69 64  74 68 25 2c 6c 6f 6f 70  |temp_width%,loop|
00001fe0  79 25 2b 74 65 6d 70 5f  77 69 64 74 68 25 29 2b  |y%+temp_width%)+|
00001ff0  62 5f 6f 66 66 73 65 74  25 2b 28 a4 53 65 65 64  |b_offset%+(.Seed|
00002000  2d 6d 69 64 70 6f 69 6e  74 29 2a 68 65 69 67 68  |-midpoint)*heigh|
00002010  74 5f 6f 66 66 73 65 74  25 0d 08 84 06 20 ed 0d  |t_offset%.... ..|
00002020  08 8e 05 ed 0d 08 98 05  e1 0d 08 a2 26 f4 20 2d  |............&. -|
00002030  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002040  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00002050  08 ac 26 f4 20 52 61 6e  64 6f 6d 69 7a 65 20 53  |..&. Randomize S|
00002060  65 65 64 20 47 65 6e 65  72 61 74 6f 72 20 52 6f  |eed Generator Ro|
00002070  75 74 69 6e 65 0d 08 b6  26 f4 20 2d 2d 2d 2d 2d  |utine...&. -----|
00002080  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002090  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 08 c0 0a dd  |-----------.....|
000020a0  a4 53 65 65 64 0d 08 ca  3c 63 6f 6e 73 74 61 6e  |.Seed...<constan|
000020b0  74 25 2b 3d 31 3a 73 65  65 64 25 3d 31 36 38 37  |t%+=1:seed%=1687|
000020c0  2a 28 73 65 65 64 25 2b  28 63 6f 6e 73 74 61 6e  |*(seed%+(constan|
000020d0  74 25 20 83 20 32 35 36  29 29 20 83 20 34 30 39  |t% . 256)) . 409|
000020e0  36 0d 08 d4 0f 3d 73 65  65 64 25 2f 34 30 39 36  |6....=seed%/4096|
000020f0  0d 08 de 21 f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...!. ----------|
00002100  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002110  2d 0d 08 e8 21 f4 20 44  72 61 77 20 53 6b 79 20  |-...!. Draw Sky |
00002120  42 61 63 6b 67 72 6f 75  6e 64 20 52 6f 75 74 69  |Background Routi|
00002130  6e 65 0d 08 f2 21 f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |ne...!. --------|
00002140  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002150  2d 2d 2d 0d 08 fc 09 dd  f2 53 6b 79 0d 09 06 0d  |---......Sky....|
00002160  ea 20 63 6f 6c 6f 75 72  25 0d 09 10 1b e3 79 6c  |. colour%.....yl|
00002170  6f 6f 70 25 3d 2d 31 38  34 20 b8 20 31 38 38 20  |oop%=-184 . 188 |
00002180  88 20 31 36 0d 09 1a 18  f2 43 6f 6c 6f 75 72 28  |. 16.....Colour(|
00002190  34 2c 63 6f 6c 6f 75 72  25 2c 30 29 0d 09 24 18  |4,colour%,0)..$.|
000021a0  c8 93 c8 90 30 2c 79 6c  6f 6f 70 25 2c 31 36 30  |....0,yloop%,160|
000021b0  30 2c 31 36 0d 09 2e 0e  63 6f 6c 6f 75 72 25 2b  |0,16....colour%+|
000021c0  3d 31 0d 09 38 0b ed 79  6c 6f 6f 70 25 0d 09 42  |=1..8..yloop%..B|
000021d0  05 e1 0d 09 4c 1d f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |....L.. --------|
000021e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
000021f0  09 56 1d f4 20 44 72 61  77 20 42 61 73 69 63 20  |.V.. Draw Basic |
00002200  54 69 6c 65 20 52 6f 75  74 69 6e 65 0d 09 60 1d  |Tile Routine..`.|
00002210  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00002220  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 09 6a 3a dd f2 54  |---------..j:..T|
00002230  69 6c 65 28 78 6c 25 2c  78 72 25 2c 79 74 25 2c  |ile(xl%,xr%,yt%,|
00002240  79 62 25 2c 63 6f 6c 6f  75 72 25 2c 70 61 6c 65  |yb%,colour%,pale|
00002250  74 74 65 25 2c 6f 70 63  6f 64 65 25 2c 66 6c 61  |tte%,opcode%,fla|
00002260  67 25 29 0d 09 74 11 e7  70 61 6c 65 74 74 65 25  |g%)..t..palette%|
00002270  3d 30 20 8c 0d 09 7e 1c  20 6c 6f 77 25 3d 38 3a  |=0 ...~. low%=8:|
00002280  6d 69 64 25 3d 31 36 3a  68 69 67 68 25 3d 32 32  |mid%=16:high%=22|
00002290  0d 09 88 05 cc 0d 09 92  1c 20 6c 6f 77 25 3d 34  |......... low%=4|
000022a0  3a 6d 69 64 25 3d 31 31  3a 68 69 67 68 25 3d 31  |:mid%=11:high%=1|
000022b0  34 0d 09 9c 05 cd 0d 09  a6 53 e7 20 66 6c 61 67  |4........S. flag|
000022c0  25 3c 3e 33 20 80 20 66  6c 61 67 25 3c 3e 34 20  |%<>3 . flag%<>4 |
000022d0  8c 20 f2 43 6f 6c 6f 75  72 28 63 6f 6c 6f 75 72  |. .Colour(colour|
000022e0  25 2c 6d 69 64 25 2c 70  61 6c 65 74 74 65 25 29  |%,mid%,palette%)|
000022f0  3a f0 36 38 2c 78 6c 25  2c 79 62 25 3a f0 31 30  |:.68,xl%,yb%:.10|
00002300  31 2c 78 72 25 2c 79 74  25 0d 09 b0 10 e7 66 6c  |1,xr%,yt%.....fl|
00002310  61 67 25 3d 32 20 8c 20  e1 0d 09 ba 51 e7 6f 70  |ag%=2 . ....Q.op|
00002320  63 6f 64 65 25 3d 30 20  8c 20 f2 43 6f 6c 6f 75  |code%=0 . .Colou|
00002330  72 28 63 6f 6c 6f 75 72  25 2c 68 69 67 68 25 2c  |r(colour%,high%,|
00002340  70 61 6c 65 74 74 65 25  29 20 8b 20 f2 43 6f 6c  |palette%) . .Col|
00002350  6f 75 72 28 63 6f 6c 6f  75 72 25 2c 6c 6f 77 25  |our(colour%,low%|
00002360  2c 70 61 6c 65 74 74 65  25 29 0d 09 c4 31 f0 36  |,palette%)...1.6|
00002370  38 2c 78 6c 25 2d 32 2c  79 62 25 2d 34 3a f0 31  |8,xl%-2,yb%-4:.1|
00002380  30 31 2c 78 6c 25 2c 79  74 25 2b 34 3a f0 35 2c  |01,xl%,yt%+4:.5,|
00002390  78 72 25 2b 32 2c 79 74  25 2b 34 0d 09 ce 51 e7  |xr%+2,yt%+4...Q.|
000023a0  6f 70 63 6f 64 65 25 3d  30 20 8c 20 f2 43 6f 6c  |opcode%=0 . .Col|
000023b0  6f 75 72 28 63 6f 6c 6f  75 72 25 2c 6c 6f 77 25  |our(colour%,low%|
000023c0  2c 70 61 6c 65 74 74 65  25 29 20 8b 20 f2 43 6f  |,palette%) . .Co|
000023d0  6c 6f 75 72 28 63 6f 6c  6f 75 72 25 2c 68 69 67  |lour(colour%,hig|
000023e0  68 25 2c 70 61 6c 65 74  74 65 25 29 0d 09 d8 31  |h%,palette%)...1|
000023f0  f0 36 38 2c 78 72 25 2b  32 2c 79 74 25 3a f0 31  |.68,xr%+2,yt%:.1|
00002400  30 31 2c 78 72 25 2b 30  2c 79 62 25 2d 34 3a f0  |01,xr%+0,yb%-4:.|
00002410  35 2c 78 6c 25 2d 32 2c  79 62 25 2d 34 0d 09 e2  |5,xl%-2,yb%-4...|
00002420  51 e7 6f 70 63 6f 64 65  25 3d 30 20 8c 20 f2 43  |Q.opcode%=0 . .C|
00002430  6f 6c 6f 75 72 28 63 6f  6c 6f 75 72 25 2c 68 69  |olour(colour%,hi|
00002440  67 68 25 2c 70 61 6c 65  74 74 65 25 29 20 8b 20  |gh%,palette%) . |
00002450  f2 43 6f 6c 6f 75 72 28  63 6f 6c 6f 75 72 25 2c  |.Colour(colour%,|
00002460  6c 6f 77 25 2c 70 61 6c  65 74 74 65 25 29 0d 09  |low%,palette%)..|
00002470  ec 33 f0 36 38 2c 78 6c  25 2d 34 2c 79 62 25 2d  |.3.68,xl%-4,yb%-|
00002480  38 3a f0 31 30 31 2c 78  6c 25 2d 32 2c 79 74 25  |8:.101,xl%-2,yt%|
00002490  2b 38 3a f0 35 2c 78 72  25 2b 34 2c 79 74 25 2b  |+8:.5,xr%+4,yt%+|
000024a0  38 0d 09 f6 51 e7 6f 70  63 6f 64 65 25 3d 30 20  |8...Q.opcode%=0 |
000024b0  8c 20 f2 43 6f 6c 6f 75  72 28 63 6f 6c 6f 75 72  |. .Colour(colour|
000024c0  25 2c 6c 6f 77 25 2c 70  61 6c 65 74 74 65 25 29  |%,low%,palette%)|
000024d0  20 8b 20 f2 43 6f 6c 6f  75 72 28 63 6f 6c 6f 75  | . .Colour(colou|
000024e0  72 25 2c 68 69 67 68 25  2c 70 61 6c 65 74 74 65  |r%,high%,palette|
000024f0  25 29 0d 0a 00 33 f0 36  38 2c 78 6c 25 2d 32 2c  |%)...3.68,xl%-2,|
00002500  79 62 25 2d 38 3a f0 35  2c 78 72 25 2b 34 2c 79  |yb%-8:.5,xr%+4,y|
00002510  62 25 2d 38 3a f0 31 30  31 2c 78 72 25 2b 32 2c  |b%-8:.101,xr%+2,|
00002520  79 74 25 2b 34 0d 0a 0a  05 e1 0d 0a 14 2f f4 20  |yt%+4......../. |
00002530  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002550  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 0a 1e 2f f4 20 44  |---------.../. D|
00002560  65 66 69 6e 65 20 43 6f  6c 6f 75 72 20 70 61 6c  |efine Colour pal|
00002570  65 74 74 65 20 69 6e 20  61 6e 20 41 72 72 61 79  |ette in an Array|
00002580  20 52 6f 75 74 69 6e 65  0d 0a 28 30 f4 20 2d 2d  | Routine..(0. --|
00002590  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000025b0  2d 2d 2d 2d 2d 2d 2d 2d  0d 0a 32 14 dd f2 44 65  |--------..2...De|
000025c0  66 69 6e 65 5f 50 61 6c  65 74 74 65 0d 0a 3c 15  |fine_Palette..<.|
000025d0  f2 44 65 66 69 6e 65 5f  38 5f 43 6f 6c 6f 75 72  |.Define_8_Colour|
000025e0  73 0d 0a 46 16 f2 44 65  66 69 6e 65 5f 32 38 5f  |s..F..Define_28_|
000025f0  43 6f 6c 6f 75 72 73 0d  0a 50 13 f2 44 65 66 69  |Colours..P..Defi|
00002600  6e 65 5f 44 69 74 68 65  72 73 0d 0a 5a 05 e1 0d  |ne_Dithers..Z...|
00002610  0a 64 2c f4 20 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |.d,. ,,,,,,,,,,,|
00002620  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
00002630  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 0d 0a 6e 2c f4  |,,,,,,,,,,,..n,.|
00002640  20 31 32 20 49 6e 74 65  6e 73 69 74 79 20 2d 20  | 12 Intensity - |
00002650  38 20 43 6f 6c 6f 75 72  20 53 65 72 69 65 73 20  |8 Colour Series |
00002660  72 6f 75 74 69 6e 65 0d  0a 78 2c f4 20 27 27 27  |routine..x,. '''|
00002670  27 27 27 27 27 27 27 27  27 27 27 27 27 27 27 27  |''''''''''''''''|
*
00002690  27 27 27 0d 0a 82 16 dd  f2 44 65 66 69 6e 65 5f  |'''......Define_|
000026a0  38 5f 43 6f 6c 6f 75 72  73 0d 0a 8c 1f ea 20 63  |8_Colours..... c|
000026b0  6f 6c 6f 75 72 25 3a 63  6f 6c 6f 75 72 25 3d 30  |olour%:colour%=0|
000026c0  3a 74 69 6e 74 25 3d 30  0d 0a 96 18 e3 62 25 3d  |:tint%=0.....b%=|
000026d0  30 20 b8 20 31 3a e3 20  67 25 3d 30 20 b8 20 31  |0 . 1:. g%=0 . 1|
000026e0  0d 0a a0 1b e3 72 25 3d  30 20 b8 20 31 3a e3 20  |.....r%=0 . 1:. |
000026f0  69 6e 74 25 3d 30 20 b8  20 31 31 0d 0a aa 25 63  |int%=0 . 11...%c|
00002700  6f 6c 25 3d a4 73 68 61  64 65 73 28 72 25 2c 67  |ol%=.shades(r%,g|
00002710  25 2c 62 25 2c 69 6e 74  25 2c 74 69 6e 74 25 29  |%,b%,int%,tint%)|
00002720  0d 0a b4 49 41 72 6d 50  61 6c 65 74 74 65 25 28  |...IArmPalette%(|
00002730  63 6f 6c 6f 75 72 25 2c  30 2c 69 6e 74 25 29 3d  |colour%,0,int%)=|
00002740  63 6f 6c 25 3a 41 72 6d  50 61 6c 65 74 74 65 25  |col%:ArmPalette%|
00002750  28 63 6f 6c 6f 75 72 25  2c 31 2c 69 6e 74 25 29  |(colour%,1,int%)|
00002760  3d 74 69 6e 74 25 2a 36  34 0d 0a be 20 ed 20 69  |=tint%*64... . i|
00002770  6e 74 25 3a 63 6f 6c 6f  75 72 25 2b 3d 31 3a ed  |nt%:colour%+=1:.|
00002780  20 72 25 2c 67 25 2c 62  25 0d 0a c8 05 e1 0d 0a  | r%,g%,b%.......|
00002790  d2 2c f4 20 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |.,. ,,,,,,,,,,,,|
000027a0  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
000027b0  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 0d 0a dc 2c f4 20  |,,,,,,,,,,...,. |
000027c0  38 20 49 6e 74 65 6e 73  69 74 79 20 2d 20 32 38  |8 Intensity - 28|
000027d0  20 43 6f 6c 6f 75 72 20  53 65 72 69 65 73 20 72  | Colour Series r|
000027e0  6f 75 74 69 6e 65 0d 0a  e6 2c f4 20 27 27 27 27  |outine...,. ''''|
000027f0  27 27 27 27 27 27 27 27  27 27 27 27 27 27 27 27  |''''''''''''''''|
*
00002810  27 27 0d 0a f0 17 dd f2  44 65 66 69 6e 65 5f 32  |''......Define_2|
00002820  38 5f 43 6f 6c 6f 75 72  73 0d 0a fa 1f ea 20 63  |8_Colours..... c|
00002830  6f 6c 6f 75 72 25 3a 63  6f 6c 6f 75 72 25 3d 30  |olour%:colour%=0|
00002840  3a 74 69 6e 74 25 3d 30  0d 0b 04 18 e3 62 25 3d  |:tint%=0.....b%=|
00002850  30 20 b8 20 32 3a e3 20  67 25 3d 30 20 b8 20 32  |0 . 2:. g%=0 . 2|
00002860  0d 0b 0e 1a e3 72 25 3d  30 20 b8 20 32 3a e3 20  |.....r%=0 . 2:. |
00002870  69 6e 74 25 3d 30 20 b8  20 37 0d 0b 18 25 63 6f  |int%=0 . 7...%co|
00002880  6c 25 3d a4 73 68 61 64  65 73 28 72 25 2c 67 25  |l%=.shades(r%,g%|
00002890  2c 62 25 2c 69 6e 74 25  2c 74 69 6e 74 25 29 0d  |,b%,int%,tint%).|
000028a0  0b 22 43 50 61 6c 65 74  74 65 25 28 63 6f 6c 6f  |."CPalette%(colo|
000028b0  75 72 25 2c 30 2c 69 6e  74 25 29 3d 63 6f 6c 25  |ur%,0,int%)=col%|
000028c0  3a 50 61 6c 65 74 74 65  25 28 63 6f 6c 6f 75 72  |:Palette%(colour|
000028d0  25 2c 31 2c 69 6e 74 25  29 3d 74 69 6e 74 25 2a  |%,1,int%)=tint%*|
000028e0  36 34 0d 0b 2c 20 ed 20  69 6e 74 25 3a 63 6f 6c  |64.., . int%:col|
000028f0  6f 75 72 25 2b 3d 31 3a  ed 20 72 25 2c 67 25 2c  |our%+=1:. r%,g%,|
00002900  62 25 0d 0b 36 05 e1 0d  0b 40 24 f4 20 2d 2d 2d  |b%..6....@$. ---|
00002910  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002920  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 0b 4a 24 f4  |-----------..J$.|
00002930  20 44 65 66 69 6e 65 20  43 6f 6c 6f 75 72 20 46  | Define Colour F|
00002940  75 6e 63 74 69 6f 6e 20  52 6f 75 74 69 6e 65 0d  |unction Routine.|
00002950  0b 54 24 f4 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.T$. -----------|
00002960  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002970  2d 2d 2d 0d 0b 5e 23 dd  a4 73 68 61 64 65 73 28  |---..^#..shades(|
00002980  72 25 2c 67 25 2c 62 25  2c 69 6e 74 25 2c f8 20  |r%,g%,b%,int%,. |
00002990  74 69 6e 74 25 29 0d 0b  68 0a ea 20 76 6f 6c 25  |tint%)..h.. vol%|
000029a0  0d 0b 72 12 74 69 6e 74  25 3d 69 6e 74 25 20 83  |..r.tint%=int% .|
000029b0  20 34 0d 0b 7c 13 76 6f  6c 25 3d 69 6e 74 25 20  | 4..|.vol%=int% |
000029c0  81 20 34 2b 31 0d 0b 86  24 72 25 3d 72 25 2a 76  |. 4+1...$r%=r%*v|
000029d0  6f 6c 25 3a 67 25 3d 67  25 2a 76 6f 6c 25 3a 62  |ol%:g%=g%*vol%:b|
000029e0  25 3d 62 25 2a 76 6f 6c  25 0d 0b 90 11 e7 20 72  |%=b%*vol%..... r|
000029f0  25 3d 34 20 8c 20 72 25  3d 33 0d 0b 9a 11 e7 20  |%=4 . r%=3..... |
00002a00  67 25 3d 34 20 8c 20 67  25 3d 33 0d 0b a4 11 e7  |g%=4 . g%=3.....|
00002a10  20 62 25 3d 34 20 8c 20  62 25 3d 33 0d 0b ae 12  | b%=4 . b%=3....|
00002a20  3d 62 25 2a 31 36 2b 67  25 2a 34 2b 72 25 0d 0b  |=b%*16+g%*4+r%..|
00002a30  b8 24 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.$. ------------|
00002a40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002a50  2d 2d 0d 0b c2 24 f4 20  44 65 66 69 6e 65 20 44  |--...$. Define D|
00002a60  69 74 68 65 72 20 50 61  74 74 65 72 6e 73 20 52  |ither Patterns R|
00002a70  6f 75 74 69 6e 65 0d 0b  cc 24 f4 20 2d 2d 2d 2d  |outine...$. ----|
00002a80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002a90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 0b d6 14 dd f2  |----------......|
00002aa0  44 65 66 69 6e 65 5f 44  69 74 68 65 72 73 0d 0b  |Define_Dithers..|
00002ab0  e0 11 ea 73 68 61 64 65  25 2c 6c 6f 6f 70 25 0d  |...shade%,loop%.|
00002ac0  0b ea 1f e3 6c 6f 6f 70  25 3d 30 20 b8 20 37 3a  |....loop%=0 . 7:|
00002ad0  e3 73 68 61 64 65 25 3d  30 20 b8 20 31 30 0d 0b  |.shade%=0 . 10..|
00002ae0  f4 3c 41 72 6d 44 69 74  68 65 72 25 28 6c 6f 6f  |.<ArmDither%(loo|
00002af0  70 25 2c 73 68 61 64 65  25 2c 30 29 3d 41 72 6d  |p%,shade%,0)=Arm|
00002b00  50 61 6c 65 74 74 65 25  28 6c 6f 6f 70 25 2c 30  |Palette%(loop%,0|
00002b10  2c 73 68 61 64 65 25 2b  31 29 0d 0b fe 3c 41 72  |,shade%+1)...<Ar|
00002b20  6d 44 69 74 68 65 72 25  28 6c 6f 6f 70 25 2c 73  |mDither%(loop%,s|
00002b30  68 61 64 65 25 2c 31 29  3d 41 72 6d 50 61 6c 65  |hade%,1)=ArmPale|
00002b40  74 74 65 25 28 6c 6f 6f  70 25 2c 31 2c 73 68 61  |tte%(loop%,1,sha|
00002b50  64 65 25 2b 31 29 0d 0c  08 3a 41 72 6d 44 69 74  |de%+1)...:ArmDit|
00002b60  68 65 72 25 28 6c 6f 6f  70 25 2c 73 68 61 64 65  |her%(loop%,shade|
00002b70  25 2c 32 29 3d 41 72 6d  50 61 6c 65 74 74 65 25  |%,2)=ArmPalette%|
00002b80  28 6c 6f 6f 70 25 2c 30  2c 73 68 61 64 65 25 29  |(loop%,0,shade%)|
00002b90  0d 0c 12 3a 41 72 6d 44  69 74 68 65 72 25 28 6c  |...:ArmDither%(l|
00002ba0  6f 6f 70 25 2c 73 68 61  64 65 25 2c 33 29 3d 41  |oop%,shade%,3)=A|
00002bb0  72 6d 50 61 6c 65 74 74  65 25 28 6c 6f 6f 70 25  |rmPalette%(loop%|
00002bc0  2c 31 2c 73 68 61 64 65  25 29 0d 0c 1c 11 ed 73  |,1,shade%).....s|
00002bd0  68 61 64 65 25 2c 6c 6f  6f 70 25 0d 0c 26 1f e3  |hade%,loop%..&..|
00002be0  6c 6f 6f 70 25 3d 30 20  b8 20 32 36 3a e3 73 68  |loop%=0 . 26:.sh|
00002bf0  61 64 65 25 3d 30 20 b8  20 37 0d 0c 30 36 44 69  |ade%=0 . 7..06Di|
00002c00  74 68 65 72 25 28 6c 6f  6f 70 25 2c 73 68 61 64  |ther%(loop%,shad|
00002c10  65 25 2c 30 29 3d 50 61  6c 65 74 74 65 25 28 6c  |e%,0)=Palette%(l|
00002c20  6f 6f 70 25 2c 30 2c 73  68 61 64 65 25 2b 31 29  |oop%,0,shade%+1)|
00002c30  0d 0c 3a 36 44 69 74 68  65 72 25 28 6c 6f 6f 70  |..:6Dither%(loop|
00002c40  25 2c 73 68 61 64 65 25  2c 31 29 3d 50 61 6c 65  |%,shade%,1)=Pale|
00002c50  74 74 65 25 28 6c 6f 6f  70 25 2c 31 2c 73 68 61  |tte%(loop%,1,sha|
00002c60  64 65 25 2b 31 29 0d 0c  44 34 44 69 74 68 65 72  |de%+1)..D4Dither|
00002c70  25 28 6c 6f 6f 70 25 2c  73 68 61 64 65 25 2c 32  |%(loop%,shade%,2|
00002c80  29 3d 50 61 6c 65 74 74  65 25 28 6c 6f 6f 70 25  |)=Palette%(loop%|
00002c90  2c 30 2c 73 68 61 64 65  25 29 0d 0c 4e 34 44 69  |,0,shade%)..N4Di|
00002ca0  74 68 65 72 25 28 6c 6f  6f 70 25 2c 73 68 61 64  |ther%(loop%,shad|
00002cb0  65 25 2c 33 29 3d 50 61  6c 65 74 74 65 25 28 6c  |e%,3)=Palette%(l|
00002cc0  6f 6f 70 25 2c 31 2c 73  68 61 64 65 25 29 0d 0c  |oop%,1,shade%)..|
00002cd0  58 11 ed 73 68 61 64 65  25 2c 6c 6f 6f 70 25 0d  |X..shade%,loop%.|
00002ce0  0c 62 05 e1 0d 0c 6c 24  f4 20 2d 2d 2d 2d 2d 2d  |.b....l$. ------|
00002cf0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002d00  2d 2d 2d 2d 2d 2d 2d 2d  0d 0c 76 24 f4 20 44 65  |--------..v$. De|
00002d10  66 69 6e 65 20 43 6f 6c  6f 75 72 20 46 75 6e 63  |fine Colour Func|
00002d20  74 69 6f 6e 20 52 6f 75  74 69 6e 65 0d 0c 80 24  |tion Routine...$|
00002d30  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00002d40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002d50  0d 0c 8a 23 dd a4 73 68  61 64 65 73 28 72 25 2c  |...#..shades(r%,|
00002d60  67 25 2c 62 25 2c 69 6e  74 25 2c f8 20 74 69 6e  |g%,b%,int%,. tin|
00002d70  74 25 29 0d 0c 94 0a ea  20 76 6f 6c 25 0d 0c 9e  |t%)..... vol%...|
00002d80  12 74 69 6e 74 25 3d 69  6e 74 25 20 83 20 34 0d  |.tint%=int% . 4.|
00002d90  0c a8 13 76 6f 6c 25 3d  69 6e 74 25 20 81 20 34  |...vol%=int% . 4|
00002da0  2b 31 0d 0c b2 24 72 25  3d 72 25 2a 76 6f 6c 25  |+1...$r%=r%*vol%|
00002db0  3a 67 25 3d 67 25 2a 76  6f 6c 25 3a 62 25 3d 62  |:g%=g%*vol%:b%=b|
00002dc0  25 2a 76 6f 6c 25 0d 0c  bc 11 e7 20 72 25 3d 34  |%*vol%..... r%=4|
00002dd0  20 8c 20 72 25 3d 33 0d  0c c6 11 e7 20 67 25 3d  | . r%=3..... g%=|
00002de0  34 20 8c 20 67 25 3d 33  0d 0c d0 11 e7 20 62 25  |4 . g%=3..... b%|
00002df0  3d 34 20 8c 20 62 25 3d  33 0d 0c da 12 3d 62 25  |=4 . b%=3....=b%|
00002e00  2a 31 36 2b 67 25 2a 34  2b 72 25 0d 0c e4 23 f4  |*16+g%*4+r%...#.|
00002e10  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00002e20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 0c  |--------------..|
00002e30  ee 23 f4 20 4d 69 78 20  43 6f 6c 6f 75 72 2c 20  |.#. Mix Colour, |
00002e40  44 69 74 68 65 72 69 6e  67 20 52 6f 75 74 69 6e  |Dithering Routin|
00002e50  65 0d 0c f8 23 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |e...#. ---------|
00002e60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002e70  2d 2d 2d 2d 0d 0d 02 16  dd f2 4d 69 78 28 41 63  |----......Mix(Ac|
00002e80  2c 41 74 2c 42 63 2c 42  74 29 0d 0d 0c 09 ea 20  |,At,Bc,Bt)..... |
00002e90  41 2c 42 0d 0d 16 31 41  3d 41 74 20 81 20 36 34  |A,B...1A=At . 64|
00002ea0  2b 28 41 63 20 80 20 33  33 29 2a 34 2b 28 41 63  |+(Ac . 33)*4+(Ac|
00002eb0  20 80 20 31 34 29 2a 38  2b 28 41 63 20 80 20 31  | . 14)*8+(Ac . 1|
00002ec0  36 29 2f 32 0d 0d 20 31  42 3d 42 74 20 81 20 36  |6)/2.. 1B=Bt . 6|
00002ed0  34 2b 28 42 63 20 80 20  33 33 29 2a 34 2b 28 42  |4+(Bc . 33)*4+(B|
00002ee0  63 20 80 20 31 34 29 2a  38 2b 28 42 63 20 80 20  |c . 14)*8+(Bc . |
00002ef0  31 36 29 2f 32 0d 0d 2a  19 ef 32 33 2c 32 2c 41  |16)/2..*..23,2,A|
00002f00  2c 42 2c 41 2c 42 2c 41  2c 42 2c 41 2c 42 0d 0d  |,B,A,B,A,B,A,B..|
00002f10  34 19 ef 32 33 2c 33 2c  42 2c 41 2c 42 2c 41 2c  |4..23,3,B,A,B,A,|
00002f20  42 2c 41 2c 42 2c 41 0d  0d 3e 19 ef 32 33 2c 34  |B,A,B,A..>..23,4|
00002f30  2c 41 2c 42 2c 41 2c 42  2c 41 2c 42 2c 41 2c 42  |,A,B,A,B,A,B,A,B|
00002f40  0d 0d 48 19 ef 32 33 2c  35 2c 42 2c 41 2c 42 2c  |..H..23,5,B,A,B,|
00002f50  41 2c 42 2c 41 2c 42 2c  41 0d 0d 52 09 e6 38 30  |A,B,A,B,A..R..80|
00002f60  2c 30 0d 0d 5c 05 e1 0d  0d 66 1b f4 20 2d 2d 2d  |,0..\....f.. ---|
00002f70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002f80  2d 2d 0d 0d 70 1b f4 20  43 68 61 6e 67 65 20 43  |--..p.. Change C|
00002f90  6f 6c 6f 75 72 20 52 6f  75 74 69 6e 65 0d 0d 7a  |olour Routine..z|
00002fa0  1b f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.. -------------|
00002fb0  2d 2d 2d 2d 2d 2d 2d 2d  0d 0d 84 23 dd f2 43 6f  |--------...#..Co|
00002fc0  6c 6f 75 72 28 63 6f 6c  6f 72 25 2c 74 69 6e 74  |lour(color%,tint|
00002fd0  25 2c 70 61 6c 65 74 74  65 25 29 0d 0d 8e 4b f4  |%,palette%)...K.|
00002fe0  20 3c 43 6f 6c 6f 75 72  20 52 61 6e 67 65 73 3e  | <Colour Ranges>|
00002ff0  20 2d 20 5b 41 72 6d 50  61 6c 65 74 74 65 20 3d  | - [ArmPalette =|
00003000  20 28 30 2d 37 2c 30 2d  32 32 29 5d 20 2d 20 5b  | (0-7,0-22)] - [|
00003010  50 61 6c 65 74 74 65 20  3d 20 28 30 2d 32 36 2c  |Palette = (0-26,|
00003020  30 2d 31 34 29 5d 0d 0d  98 11 c8 8e 20 70 61 6c  |0-14)]...... pal|
00003030  65 74 74 65 25 20 ca 0d  0d a2 1a 20 c9 20 30 20  |ette% ..... . 0 |
00003040  3a 20 e7 28 74 69 6e 74  25 83 20 32 29 3d 30 20  |: .(tint%. 2)=0 |
00003050  8c 0d 0d ac 1c 20 20 20  20 20 20 20 20 20 20 20  |.....           |
00003060  74 69 6e 74 25 3d 74 69  6e 74 25 2f 32 0d 0d b6  |tint%=tint%/2...|
00003070  4b 20 20 20 20 20 20 20  20 20 20 20 e6 20 41 72  |K           . Ar|
00003080  6d 50 61 6c 65 74 74 65  25 28 63 6f 6c 6f 72 25  |mPalette%(color%|
00003090  2c 30 2c 74 69 6e 74 25  29 20 c8 9c 20 41 72 6d  |,0,tint%) .. Arm|
000030a0  50 61 6c 65 74 74 65 25  28 63 6f 6c 6f 72 25 2c  |Palette%(color%,|
000030b0  31 2c 74 69 6e 74 25 29  0d 0d c0 0f 20 20 20 20  |1,tint%)....    |
000030c0  20 20 20 20 20 20 cc 0d  0d ca 22 20 20 20 20 20  |      ...."     |
000030d0  20 20 20 20 20 20 74 69  6e 74 25 3d 28 74 69 6e  |      tint%=(tin|
000030e0  74 25 2f 32 29 2d 30 2e  35 0d 0d d4 80 20 20 20  |t%/2)-0.5....   |
000030f0  20 20 20 20 20 20 20 20  f2 4d 69 78 28 41 72 6d  |        .Mix(Arm|
00003100  44 69 74 68 65 72 25 28  63 6f 6c 6f 72 25 2c 74  |Dither%(color%,t|
00003110  69 6e 74 25 2c 30 29 2c  41 72 6d 44 69 74 68 65  |int%,0),ArmDithe|
00003120  72 25 28 63 6f 6c 6f 72  25 2c 74 69 6e 74 25 2c  |r%(color%,tint%,|
00003130  31 29 2c 41 72 6d 44 69  74 68 65 72 25 28 63 6f  |1),ArmDither%(co|
00003140  6c 6f 72 25 2c 74 69 6e  74 25 2c 32 29 2c 41 72  |lor%,tint%,2),Ar|
00003150  6d 44 69 74 68 65 72 25  28 63 6f 6c 6f 72 25 2c  |mDither%(color%,|
00003160  74 69 6e 74 25 2c 33 29  29 0d 0d de 0f 20 20 20  |tint%,3))....   |
00003170  20 20 20 20 20 20 20 cd  0d 0d e8 1a 20 c9 20 31  |       ..... . 1|
00003180  20 3a 20 e7 28 74 69 6e  74 25 83 20 32 29 3d 30  | : .(tint%. 2)=0|
00003190  20 8c 0d 0d f2 1c 20 20  20 20 20 20 20 20 20 20  | .....          |
000031a0  20 74 69 6e 74 25 3d 74  69 6e 74 25 2f 32 0d 0d  | tint%=tint%/2..|
000031b0  fc 45 20 20 20 20 20 20  20 20 20 20 20 e6 20 50  |.E           . P|
000031c0  61 6c 65 74 74 65 25 28  63 6f 6c 6f 72 25 2c 30  |alette%(color%,0|
000031d0  2c 74 69 6e 74 25 29 20  c8 9c 20 50 61 6c 65 74  |,tint%) .. Palet|
000031e0  74 65 25 28 63 6f 6c 6f  72 25 2c 31 2c 74 69 6e  |te%(color%,1,tin|
000031f0  74 25 29 0d 0e 06 0f 20  20 20 20 20 20 20 20 20  |t%)....         |
00003200  20 cc 0d 0e 10 22 20 20  20 20 20 20 20 20 20 20  | ...."          |
00003210  20 74 69 6e 74 25 3d 28  74 69 6e 74 25 2f 32 29  | tint%=(tint%/2)|
00003220  2d 30 2e 35 0d 0e 1a 74  20 20 20 20 20 20 20 20  |-0.5...t        |
00003230  20 20 20 f2 4d 69 78 28  44 69 74 68 65 72 25 28  |   .Mix(Dither%(|
00003240  63 6f 6c 6f 72 25 2c 74  69 6e 74 25 2c 30 29 2c  |color%,tint%,0),|
00003250  44 69 74 68 65 72 25 28  63 6f 6c 6f 72 25 2c 74  |Dither%(color%,t|
00003260  69 6e 74 25 2c 31 29 2c  44 69 74 68 65 72 25 28  |int%,1),Dither%(|
00003270  63 6f 6c 6f 72 25 2c 74  69 6e 74 25 2c 32 29 2c  |color%,tint%,2),|
00003280  44 69 74 68 65 72 25 28  63 6f 6c 6f 72 25 2c 74  |Dither%(color%,t|
00003290  69 6e 74 25 2c 33 29 29  0d 0e 24 0f 20 20 20 20  |int%,3))..$.    |
000032a0  20 20 20 20 20 20 cd 0d  0e 2e 05 cb 0d 0e 38 05  |      ........8.|
000032b0  e1 0d 0e 42 18 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...B.. ---------|
000032c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 0e 4c 18 f4 20 50  |---------..L.. P|
000032d0  72 69 6e 74 20 54 65 78  74 20 52 6f 75 74 69 6e  |rint Text Routin|
000032e0  65 0d 0e 56 18 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |e..V.. ---------|
000032f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 0e 60 47 dd f2 54  |---------..`G..T|
00003300  65 78 74 28 78 25 2c 79  25 2c 74 65 78 74 24 2c  |ext(x%,y%,text$,|
00003310  63 6f 6c 6f 75 72 25 2c  70 61 6c 65 74 74 65 25  |colour%,palette%|
00003320  2c 66 6c 61 67 25 2c 62  6f 78 63 6f 6c 25 2c 62  |,flag%,boxcol%,b|
00003330  6f 78 70 61 6c 25 2c 62  6f 78 66 6c 61 67 25 29  |oxpal%,boxflag%)|
00003340  0d 0e 6a 2d ef 35 3a ea  20 6d 61 78 25 3a e7 70  |..j-.5:. max%:.p|
00003350  61 6c 65 74 74 65 25 3d  30 20 8c 20 6d 61 78 25  |alette%=0 . max%|
00003360  3d 32 32 20 8b 20 6d 61  78 25 3d 31 34 0d 0e 74  |=22 . max%=14..t|
00003370  24 e7 78 25 3d 2d 31 20  8c 20 78 25 3d 28 31 32  |$.x%=-1 . x%=(12|
00003380  38 30 2d a9 28 74 65 78  74 24 29 2a 31 36 29 2f  |80-.(text$)*16)/|
00003390  32 0d 0e 7e 52 e7 66 6c  61 67 25 3d 31 20 8c 20  |2..~R.flag%=1 . |
000033a0  f2 54 69 6c 65 28 78 25  2d 38 2c a9 28 74 65 78  |.Tile(x%-8,.(tex|
000033b0  74 24 29 2a 31 36 2b 78  25 2b 31 30 2c 79 25 2b  |t$)*16+x%+10,y%+|
000033c0  34 2c 79 25 2d 33 36 2c  62 6f 78 63 6f 6c 25 2c  |4,y%-36,boxcol%,|
000033d0  62 6f 78 70 61 6c 25 2c  62 6f 78 66 6c 61 67 25  |boxpal%,boxflag%|
000033e0  2c 31 29 0d 0e 88 17 ec  78 25 2c 79 25 3a e6 30  |,1).....x%,y%:.0|
000033f0  c8 9c 30 3a f1 74 65 78  74 24 0d 0e 92 34 ec 78  |..0:.text$...4.x|
00003400  25 2b 34 2c 79 25 2d 34  3a f2 43 6f 6c 6f 75 72  |%+4,y%-4:.Colour|
00003410  28 63 6f 6c 6f 75 72 25  2c 6d 61 78 25 2c 70 61  |(colour%,max%,pa|
00003420  6c 65 74 74 65 25 29 3a  f1 74 65 78 74 24 0d 0e  |lette%):.text$..|
00003430  9c 08 ef 34 3a 87 0d 0e  a6 05 e1 0d 0e b0 1d f4  |...4:...........|
00003440  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00003450  2d 2d 2d 2d 2d 2d 2d 2d  0d 0e ba 1d f4 20 43 68  |--------..... Ch|
00003460  61 72 61 63 74 65 72 20  49 6e 70 75 74 20 52 6f  |aracter Input Ro|
00003470  75 74 69 6e 65 0d 0e c4  1d f4 20 2d 2d 2d 2d 2d  |utine..... -----|
00003480  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003490  2d 2d 0d 0e ce 0b dd f2  49 6e 70 75 74 0d 0e d8  |--......Input...|
000034a0  21 ea 20 6d 61 69 6e 73  74 72 69 6e 67 24 2c 6c  |!. mainstring$,l|
000034b0  65 6e 67 74 68 25 2c 6b  65 79 67 65 74 25 0d 0e  |ength%,keyget%..|
000034c0  e2 1c 6d 61 69 6e 73 74  72 69 6e 67 24 3d 22 22  |..mainstring$=""|
000034d0  3a 6c 65 6e 67 74 68 25  3d 30 0d 0e ec 2b f2 54  |:length%=0...+.T|
000034e0  65 78 74 28 36 30 30 2c  38 31 38 2c 22 7c 22 2b  |ext(600,818,"|"+|
000034f0  c4 39 2c bd 33 32 29 2c  37 2c 30 2c 31 2c 32 31  |.9,.32),7,0,1,21|
00003500  2c 31 2c 30 29 0d 0e f6  08 c8 95 20 b9 0d 0f 00  |,1,0)...... ....|
00003510  51 20 f2 54 65 78 74 28  36 30 30 2c 38 31 38 2c  |Q .Text(600,818,|
00003520  6d 61 69 6e 73 74 72 69  6e 67 24 2b 22 7c 22 2b  |mainstring$+"|"+|
00003530  c4 39 2d a9 28 6d 61 69  6e 73 74 72 69 6e 67 24  |.9-.(mainstring$|
00003540  29 2c bd 33 32 29 2c 37  2c 30 2c 31 2c 32 31 2c  |),.32),7,0,1,21,|
00003550  31 2c 30 29 3a 6b 65 79  67 65 74 25 3d b9 0d 0f  |1,0):keyget%=...|
00003560  0a 1e 20 c8 95 20 6b 65  79 67 65 74 25 3d b9 3a  |.. .. keyget%=.:|
00003570  6b 65 79 67 65 74 25 3d  a6 28 30 29 0d 0f 14 06  |keyget%=.(0)....|
00003580  20 ce 0d 0f 1e 11 20 c8  8e 20 6b 65 79 67 65 74  | ..... .. keyget|
00003590  25 20 ca 0d 0f 28 27 20  20 c9 20 31 33 20 3a 20  |% ...('  . 13 : |
000035a0  6f 72 69 67 73 65 65 64  25 3d bb 28 6d 61 69 6e  |origseed%=.(main|
000035b0  73 74 72 69 6e 67 24 29  3a e1 0d 0f 32 19 20 20  |string$):...2.  |
000035c0  c9 20 38 20 80 20 6c 65  6e 67 74 68 25 3d 30 20  |. 8 . length%=0 |
000035d0  3a 20 ce 0d 0f 3c 16 20  20 c9 20 38 20 3a 20 6c  |: ...<.  . 8 : l|
000035e0  65 6e 67 74 68 25 2d 3d  31 0d 0f 46 30 20 20 20  |ength%-=1..F0   |
000035f0  20 20 20 20 20 20 20 20  6d 61 69 6e 73 74 72 69  |        mainstri|
00003600  6e 67 24 3d c0 6d 61 69  6e 73 74 72 69 6e 67 24  |ng$=.mainstring$|
00003610  2c 6c 65 6e 67 74 68 25  29 0d 0f 50 51 20 20 20  |,length%)..PQ   |
00003620  20 20 20 20 20 20 20 20  f2 54 65 78 74 28 36 30  |        .Text(60|
00003630  30 2c 38 31 38 2c 6d 61  69 6e 73 74 72 69 6e 67  |0,818,mainstring|
00003640  24 2b 22 7c 22 2b c4 39  2d a9 28 6d 61 69 6e 73  |$+"|"+.9-.(mains|
00003650  74 72 69 6e 67 24 29 2c  bd 33 32 29 2c 37 2c 30  |tring$),.32),7,0|
00003660  2c 31 2c 32 31 2c 31 2c  30 29 0d 0f 5a 06 20 cb  |,1,21,1,0)..Z. .|
00003670  0d 0f 64 22 20 e7 20 6b  65 79 67 65 74 25 3c 34  |..d" . keyget%<4|
00003680  38 20 84 20 6b 65 79 67  65 74 25 3e 35 37 20 8c  |8 . keyget%>57 .|
00003690  20 ce 0d 0f 6e 14 20 e7  6c 65 6e 67 74 68 25 3e  | ...n. .length%>|
000036a0  3d 36 20 8c 20 ce 0d 0f  78 31 20 6d 61 69 6e 73  |=6 . ...x1 mains|
000036b0  74 72 69 6e 67 24 2b 3d  bd 6b 65 79 67 65 74 25  |tring$+=.keyget%|
000036c0  3a 6c 65 6e 67 74 68 25  3d a9 28 6d 61 69 6e 73  |:length%=.(mains|
000036d0  74 72 69 6e 67 24 29 0d  0f 82 05 ce 0d 0f 8c 05  |tring$).........|
000036e0  e1 0d ff                                          |...|
000036e3