� > !3D_Demo.!RunImage
� Three Dimensional Demo
� By David Hindley.
(� Archimedes/A3000 version.
2� (c) Acorn Computing
<� � �error:�
PȠ 2
Z*CHANNELVOICE 2 2
d�15:�:�
ndis=2:wri=1:�screen:�
xMove=-240:Move2=Move-6
�'�ground:�0,0:�1280,700:*SGET ground
��5,29,640;0;
�� X=0 � 1:� X=1 � �:�clear
�>�centre("THREE DIMENSIONAL DEMONSTRATION",626,�rgb(0,0,1))
�%�centre(�31,"_"),620,�rgb(0,0,1))
�0�centre("by David Hindley.",570,�rgb(1,0,1))
�6�centre(�(169)+" Acorn Computing",516,�rgb(1,0,1))
�)�centre("Keys are:-",470,�rgb(1,1,3))
�-�centre("  P   Pause the display.",420,0)
�/�centre("  B   Change the backdrop.",380,0)
�E�centre(�(136)+" & "+�(137)+" Alter gap between sphere's.",340,0)
�B�centre(�(138)+" & "+�(139)+" Apply height to spheres.",300,0)
�-�centre("Please wait...",250,�rgb(0,0,2))


�screen:�

�26:�screen


�setup

"� Main Loop

,�

6� Size1>100 � Add1-=.35

@� Size1<100 � Add1+=.35

J� Size2>100 � Add2-=.35

T� Size2<100 � Add2+=.35

^Size1+=Add1:Size2+=Add2

h�redraw:�move

r� �

|�

���redraw:�screen

�*� replot � �spr:�&ED,-640,704:replot=�

�M� Y%>704 � Y%-=10:�spr:�&ED,-640,Y%:� Y%=704 � �stars:�29,640;0;:replot=�

�
�clear

��sphere(-150-Shift,Size1)

��sphere(150+Shift,Size2)

�	�text

�Move=Size1-150

��centre("3D Demo",580,16)

��centre("_______",572,16)

��centre("By",520,59)

��centre("David",480,38)

��centre("Hindley",440,38)
�0,0:ȓ Move-8,402,130,190
� � -56 � � � �(1)=-1:A=�
�
&
��move
0!� �>6000 � � -101 � �backdrop
:�bounce
D
�shift
N�
X��bounce:key=�
b*� �-42 � key=�:� Bounce>0 � Bounce-=.1
l,� �-58 � key=�:� Bounce<1.1 � Bounce+=.1
v
� � key �
�  � Bounce<-.1 � Bounce=-.1
�  � Bounce>1.2 � Bounce=1.2
�F  � Bounce<0 � Bounce>1.1 � BAdd=-BAdd:� Bounce<0 � � 2,-8,&1000,1
�  Bounce+=BAdd
��
��
���shift:key=�
�)� �-26 � key=�:� Shift>-70 � Shift-=2
�*� �-122 � key=�:� Shift<-20 � Shift+=2
�
� � key �
�*  � Shift<-70 � Shift>-20 � SAdd=-SAdd
�  Shift+=SAdd
��
�
��sphere(X,Size)
>Y1=640-(Size*2):Y2=640-(Size*3):X1=X+(X*((Shift+Size)/80))
 )Y3=Y2-Y1:Y4=Y1+Y3:Bou=Bounce*(Size+6)
*5�2,42 Ȝ64:� X1,Y4:� X1-Y3,Y4:� &CD,X1,Y1+(Y3 �2)
4� Tint=32 � 224 � 64
>8ShadeX=0:� Tint>32 � ShadeX=(Y3 �4)+((Tint/1500)*Y3)
HX�0,27 Ȝ Tint:� X1+ShadeX,Y1+Bou-ShadeX:� &9D,X1+ShadeX,Y1+(Y3/(Tint/30))+Bou-ShadeX
R�
\�
f��setup
plSize1=0:Add1=0:Size2=202:Add2=0:Bounce=0:Shift=-34:back=0:BAdd=-.1:SAdd=2:replot=�:text=1:time=.1:tAdd=2
z�=0:�sky(0,0,-1):�stars
��moon(192)
��clouds(4,-1)
�)�hills(�rgb(1,1,1),�rgb(0,0,0),70,80)
��sget("night")
��screen
��=0:�sky(-1,0,12):�stars
��moon(0)
�1�0,�rgb(3,1,0):�640,704:�760,704:�&AD,520,704
��clouds(7,0)
�)�hills(�rgb(1,2,0),�rgb(1,1,0),40,50)
��sget("sunset")
��screen
��sky(0,-1,15)
#�0,�rgb(3,3,0):ȏ Ȑ 100,924,95
�clouds(11,-1)
*�hills(�rgb(3,3,0),�rgb(2,2,0),550,60)
$�sget("day")
.0back=2:�screen:�spr:�29,640;0;:�&ED,-640,704
8�=0:Y%=704:�
B��moon(moon%)
Ldummy=�(-1):Old=-1000
V�29,100;924;
`� I=270�450�1.5
jMX%=80*�(�I):Y%=80*�(� I):col=1:� Y%>=Old+4 � Old=Y%:� J%=-X%�X%�2 � �tpD
tcol+=.14
~&Rnd%=�(3-�(col)):� Rnd%<0 � Rnd%=0
�$Rnd2%=Rnd%-1:� Rnd2%<0 � Rnd2%=0
�$�0,�rgb(Rnd%,Rnd%,Rnd2%)Ȝ moon%
�� Rnd%>0 � Ȓ J%,Y%
�� J%
�� I
�	�26,7
��
���clouds(dummy,shade)
�D=�(-dummy)
�� Size=.4 � 1 � .3
�� Cloud=0 � 3
�>X%=�(1280):Y%=700+(Size*80)+�(200*Size):S%=(50+�(42))*Size
� I%=0 � S%+4 �8

(x=X%-I%:x2=X%+I%:rnd=I%*2:y=Y%+S%-I%
%�draw(x-�(rnd),y,x2+�(rnd),shade)
'�draw(x-�(rnd),y+4,x2+�(rnd),shade)
(6�draw(x-�(rnd),Y%-(S% �2)+(I% �2),x2+�(rnd),shade)
2� I%
<� Cloud
F
� Size
P�
Z��draw(X1%,Y1%,X2%,shade)
d
� shade �
n:  Col=950-(Y1%-S%):Ti=(Col � 60)*(256/60):Col=Col � 60
x  � Col<0 �  Col=0:Ti=0
�  Col=3-Col:Ti=255-Ti
�  � Col>2 �  Col=2:Ti=255
��
�  Col=2:Ti=255
��
�$Times=(X2%-X1%)/9:Times2=Times/4
�� C=0 � Col
�T=3:� C=Col � T=Ti �64
�� Tint=0 � T
�M� shade � � 0,�rgb(C+1,C+1,C+1)Ȝ Tint*64 � � 0,�rgb(2,C+1,C+1)Ȝ Tint*64
�G� X1%+(C*Times)+(Tint*Times2),Y1%:� X2%-(C*Times)-(Tint*Times2),Y1%
�� Tint:� C
��
��error
	� � �
ș "OS_UpdateMEMC",0,64
"�12
,ș "OS_Byte",112,1
6ș "OS_Byte",113,1
@*SCREENSIZE 160k
J� �=17 � �
T�:�" at line ";�
^�
h��dis(screen)
rș "OS_Byte",113,screen:�
|��wri(screen)
�ș "OS_Byte",112,screen:�
���screen
�Ȕ dis,wri
��dis(dis):�wri(wri)
��
���clear
�*SCHOOSE ground
��0,0:�&ED,-640,0
��
���ground
��29,640;0;:F=�
�� ground=-613 � 578 � 35
�col=3:tint=3-�(ground � 80)

ȕ tint<0
tint+=3:col-=1
�
&A� F � �0,�rgb(col,0,0)Ȝ tint*64 � �0,�rgb(0,col,0)Ȝ tint*64
0T� ground+14,700:� (ground*30)+14,0:� 85,ground+49,700:� 85,((ground+35)*30)+14,0
:	F=� F
D�
N�26:F=�
XSize=350:�3,�rgb(3,3,0)Ȝ0
b� Y=0 � 700 � 4
l� F � �0,Y:�1280,Y
v$� Y>Size � Size+=250-Y � 3:F=� F
��
�
�trees
��
���stars:dummy=�(-1)
�� back=2 � �
��29,640;0;:� Star=0 � 70
� sX=�(1280)-640:sY=780+�(240)
�Po1=�sX,sY)
�$� �test � �0,63 Ȝ �*32:Ȓ sX,sY
��
�	�26:�
�ݤtest:true=�
�� Col=0 � 3*16 � 16
� Po1=Col � true=�
�
� true � Po1=63 � =�
 =�
*��centre(text$,Y,col)
4 �0,col Ȝ192:� Move,Y:�text$
>�
Hݤrgb(red,green,blue)
R=16*blue+4*green+red
\��sky(re,gr,bl)
fR=re:G=gr:B=bl
p� col=15 � 0 � -1
z&�col:ȓ Ȑ 0,960-(col*16),1280,-14
��
� ȓ Ȑ 0,948-(col*16),1280,60
��
�	��col
�� R=-1 � re=col
�� G=-1 � gr=col
�� B=-1 � bl=col
�r=re �4:g=gr �4:b=bl �4
�tint=re �4+gr �4+bl �4
�� B>-1 � tint=tint �2
�� 0,�rgb(r,g,b)Ȝ tint*64
��
���hills(col,col2,add,size)
		X=0:�
	lineX=�(size):lineY=�(size)
	"� X,704:� X+16+lineX,714+lineY
	$0pos=X+size+�(size):�0,col Ȝ192:� 85,pos,704
	.1�0,col2 Ȝ0:� 85,pos+(size �4)+�(size �5),704
	8"� X,704:� X+16+lineX,714+lineY
	BX+=�(add)+�(size)
	L� X>1300
	V-� add<100 � �hills(col,col2,add+100,size)
	`
�trees
	j�
	t��backdrop:� Y%>704 � �
	~!back=(back+1)�4:Y%=1024:�=0:�
	�	��spr
	�� back=0 � *SCHOOSE night
	�� back=1 � *SCHOOSE sunset
	�� back=2 � *SCHOOSE day
	�� back=3 � *SCHOOSE sunset
	��
	���trees
	��29,640;0;:dummy=�(-2)
	��tree(1,640,200,16)
	��tree(.45,608,530,8)
	��tree(.18,566,654,4)
	�	�26,7
�

��tree(inv,Xpos,Ypos,Size)
#�0,�rgb(1,1,1) Ȝ 0:pos=640*inv
*� Y=Ypos-(Size �2)� Ypos+(Size �2) � 4
(.� -pos+((Y-Ypos-(Size �2))�4),Y:� 21,pos,Y
2�
<�branch(Xpos,Ypos,Size,inv)
F�
P��branch(X,Y,s,inv)
Z� bX,bY,size,tilt
dbX=X:bY=Y:size=s
nVtilt=640-bX+�(15):x1=bX-size:x2=bX-size-tilt:x3=bX-(size �2):x4=bX-((size-tilt)�2)
x� i=-inv � inv � inv*2
��0,�rgb(2,1,0)Ȝ0
�/� bX*i,bY:� x1*i,bY:� &75,x2*i,bY+(size*20)
�"�0,�rgb(0,2,0)Ȝ0:� 21,bX*i,bY
��0,�rgb(2,1,0)Ȝ0
�/� bX*i,bY:� x3*i,bY:� &75,x4*i,bY+(size*20)
�"�0,�rgb(0,2,0)Ȝ0:� 21,bX*i,bY
�� leaves=0 � Size
�:Ȓ (x2*i)+�(Size)-�(Size),bY+(size*20)+�(Size)-�(Size)
�:Ȓ (x4*i)+�(Size)-�(Size),bY+(size*20)+�(Size)-�(Size)
��
��
�size=size/1.9
�,� size>.4 � �branch(bX-size,bY,size,inv)
I� size>2.28-bY/500 � �branch(bX-(size �2)-tilt,bY+(size*38),size,inv)
�
#��sget(name$):�0,704:�1280,1024
"�("SGET "+name$):�
,��text:time+=tAdd
6
� �dLK
@	� max
J8� time<0 � text+=1:time=0:tAdd=2:� text>max � text=1
T� X=1 � text
^� text$
h�
r.tAdd-=�(text$)/550:� �(text$)=0 � tAdd-=.1
|x=(time+.55)*(�(text$)/2)
�� col=0 � 4 � 4
��0,col*15.75
�� X=1 � �(text$)
�<� X*time-x+col,110+col-(time*�((X+time)/2)):�text$,X,1)
��
�	� col
��
�� 33
�,� Welcome to '3D-DEMO' by David Hindley.
�%� "Please hang on to your mouse,"
�*� and fasten your disc drive firmly...
�4� your computer is in for one h**l of a ride!,""
�3� This demo was written to demonstrate the many
?� "graphic routines available in the Archie's environment,"
H� "while being written in comprehensible, good old fashioned BASIC."
;� You can control the standard state of the art spheres
&:� using the cursor keys (the grey arrows on the right)
0C� "The background changes every now and again and WHAT'S MORE,"
:;� you may change it yourself using 'B' on the keyboard.
D� (pretty logical huh?),""
N.� Here comes the compulsory credit list...
X@� Yo to Sharpy ! Thanks for all your encouragement (Ho Ho!);
b8� "A big Hi to my parents, thanks for the Electric;"
l$� Also I'd like to say hi to ...
v � B.I.A. - great demos guys;
�1� all the teachers at Two Trees Highschool...
�0� see U around some time -hopefully not! ...
�;� only kidding! You've been great ... most of the time!
�,� Gu'day to all fellow ex-fifth years...
�8� "good luck in the future, whatever it might be !;"
�9� "Bonjour, to anyone else who knows me; and finally"
�0� thanks to you for watching my brill demo !
�D� "Anyway that's all from me for now, but you may see me again,"
�:� (or at least my programs) in the very near future...
�3� "Heigh-Ho Heigh-Ho, its off to exams I go..."
�� Bye boys and girls !
�$� "Au Revoir, ladies and gents!"
�� "Wave bye-bye !",""
�

00000000  0d 00 0a 1a f4 20 3e 20  21 33 44 5f 44 65 6d 6f  |..... > !3D_Demo|
00000010  2e 21 52 75 6e 49 6d 61  67 65 0d 00 14 1c f4 20  |.!RunImage..... |
00000020  54 68 72 65 65 20 44 69  6d 65 6e 73 69 6f 6e 61  |Three Dimensiona|
00000030  6c 20 44 65 6d 6f 0d 00  1e 17 f4 20 42 79 20 44  |l Demo..... By D|
00000040  61 76 69 64 20 48 69 6e  64 6c 65 79 2e 0d 00 28  |avid Hindley...(|
00000050  1f f4 20 41 72 63 68 69  6d 65 64 65 73 2f 41 33  |.. Archimedes/A3|
00000060  30 30 30 20 76 65 72 73  69 6f 6e 2e 0d 00 32 19  |000 version...2.|
00000070  f4 20 28 63 29 20 41 63  6f 72 6e 20 43 6f 6d 70  |. (c) Acorn Comp|
00000080  75 74 69 6e 67 0d 00 3c  10 ee 20 85 20 f2 65 72  |uting..<.. . .er|
00000090  72 6f 72 3a e0 0d 00 50  08 c8 a0 20 32 0d 00 5a  |ror:...P... 2..Z|
000000a0  15 2a 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 32  |.*CHANNELVOICE 2|
000000b0  20 32 0d 00 64 0b eb 31  35 3a 87 3a db 0d 00 6e  | 2..d..15:.:...n|
000000c0  19 64 69 73 3d 32 3a 77  72 69 3d 31 3a f2 73 63  |.dis=2:wri=1:.sc|
000000d0  72 65 65 6e 3a db 0d 00  78 1a 4d 6f 76 65 3d 2d  |reen:...x.Move=-|
000000e0  32 34 30 3a 4d 6f 76 65  32 3d 4d 6f 76 65 2d 36  |240:Move2=Move-6|
000000f0  0d 00 82 27 f2 67 72 6f  75 6e 64 3a ec 30 2c 30  |...'.ground:.0,0|
00000100  3a ec 31 32 38 30 2c 37  30 30 3a 2a 53 47 45 54  |:.1280,700:*SGET|
00000110  20 67 72 6f 75 6e 64 0d  00 8c 10 ef 35 2c 32 39  | ground.....5,29|
00000120  2c 36 34 30 3b 30 3b 0d  00 96 1e e3 20 58 3d 30  |,640;0;..... X=0|
00000130  20 b8 20 31 3a e7 20 58  3d 31 20 8c 20 db 3a f2  | . 1:. X=1 . .:.|
00000140  63 6c 65 61 72 0d 00 a0  3e f2 63 65 6e 74 72 65  |clear...>.centre|
00000150  28 22 54 48 52 45 45 20  44 49 4d 45 4e 53 49 4f  |("THREE DIMENSIO|
00000160  4e 41 4c 20 44 45 4d 4f  4e 53 54 52 41 54 49 4f  |NAL DEMONSTRATIO|
00000170  4e 22 2c 36 32 36 2c a4  72 67 62 28 30 2c 30 2c  |N",626,.rgb(0,0,|
00000180  31 29 29 0d 00 aa 25 f2  63 65 6e 74 72 65 28 c4  |1))...%.centre(.|
00000190  33 31 2c 22 5f 22 29 2c  36 32 30 2c a4 72 67 62  |31,"_"),620,.rgb|
000001a0  28 30 2c 30 2c 31 29 29  0d 00 b4 30 f2 63 65 6e  |(0,0,1))...0.cen|
000001b0  74 72 65 28 22 62 79 20  44 61 76 69 64 20 48 69  |tre("by David Hi|
000001c0  6e 64 6c 65 79 2e 22 2c  35 37 30 2c a4 72 67 62  |ndley.",570,.rgb|
000001d0  28 31 2c 30 2c 31 29 29  0d 00 be 36 f2 63 65 6e  |(1,0,1))...6.cen|
000001e0  74 72 65 28 bd 28 31 36  39 29 2b 22 20 41 63 6f  |tre(.(169)+" Aco|
000001f0  72 6e 20 43 6f 6d 70 75  74 69 6e 67 22 2c 35 31  |rn Computing",51|
00000200  36 2c a4 72 67 62 28 31  2c 30 2c 31 29 29 0d 00  |6,.rgb(1,0,1))..|
00000210  c8 29 f2 63 65 6e 74 72  65 28 22 4b 65 79 73 20  |.).centre("Keys |
00000220  61 72 65 3a 2d 22 2c 34  37 30 2c a4 72 67 62 28  |are:-",470,.rgb(|
00000230  31 2c 31 2c 33 29 29 0d  00 d2 2d f2 63 65 6e 74  |1,1,3))...-.cent|
00000240  72 65 28 22 20 20 50 20  20 20 50 61 75 73 65 20  |re("  P   Pause |
00000250  74 68 65 20 64 69 73 70  6c 61 79 2e 22 2c 34 32  |the display.",42|
00000260  30 2c 30 29 0d 00 dc 2f  f2 63 65 6e 74 72 65 28  |0,0).../.centre(|
00000270  22 20 20 42 20 20 20 43  68 61 6e 67 65 20 74 68  |"  B   Change th|
00000280  65 20 62 61 63 6b 64 72  6f 70 2e 22 2c 33 38 30  |e backdrop.",380|
00000290  2c 30 29 0d 00 e6 45 f2  63 65 6e 74 72 65 28 bd  |,0)...E.centre(.|
000002a0  28 31 33 36 29 2b 22 20  26 20 22 2b bd 28 31 33  |(136)+" & "+.(13|
000002b0  37 29 2b 22 20 41 6c 74  65 72 20 67 61 70 20 62  |7)+" Alter gap b|
000002c0  65 74 77 65 65 6e 20 73  70 68 65 72 65 27 73 2e  |etween sphere's.|
000002d0  22 2c 33 34 30 2c 30 29  0d 00 f0 42 f2 63 65 6e  |",340,0)...B.cen|
000002e0  74 72 65 28 bd 28 31 33  38 29 2b 22 20 26 20 22  |tre(.(138)+" & "|
000002f0  2b bd 28 31 33 39 29 2b  22 20 41 70 70 6c 79 20  |+.(139)+" Apply |
00000300  68 65 69 67 68 74 20 74  6f 20 73 70 68 65 72 65  |height to sphere|
00000310  73 2e 22 2c 33 30 30 2c  30 29 0d 00 fa 2d f2 63  |s.",300,0)...-.c|
00000320  65 6e 74 72 65 28 22 50  6c 65 61 73 65 20 77 61  |entre("Please wa|
00000330  69 74 2e 2e 2e 22 2c 32  35 30 2c a4 72 67 62 28  |it...",250,.rgb(|
00000340  30 2c 30 2c 32 29 29 0d  01 04 0d f2 73 63 72 65  |0,0,2)).....scre|
00000350  65 6e 3a ed 0d 01 0e 0f  ef 32 36 3a f2 73 63 72  |en:......26:.scr|
00000360  65 65 6e 0d 01 18 0a f2  73 65 74 75 70 0d 01 22  |een.....setup.."|
00000370  0f f4 20 4d 61 69 6e 20  4c 6f 6f 70 0d 01 2c 05  |.. Main Loop..,.|
00000380  f5 0d 01 36 1b e7 20 53  69 7a 65 31 3e 31 30 30  |...6.. Size1>100|
00000390  20 8c 20 41 64 64 31 2d  3d 2e 33 35 0d 01 40 1b  | . Add1-=.35..@.|
000003a0  e7 20 53 69 7a 65 31 3c  31 30 30 20 8c 20 41 64  |. Size1<100 . Ad|
000003b0  64 31 2b 3d 2e 33 35 0d  01 4a 1b e7 20 53 69 7a  |d1+=.35..J.. Siz|
000003c0  65 32 3e 31 30 30 20 8c  20 41 64 64 32 2d 3d 2e  |e2>100 . Add2-=.|
000003d0  33 35 0d 01 54 1b e7 20  53 69 7a 65 32 3c 31 30  |35..T.. Size2<10|
000003e0  30 20 8c 20 41 64 64 32  2b 3d 2e 33 35 0d 01 5e  |0 . Add2+=.35..^|
000003f0  1b 53 69 7a 65 31 2b 3d  41 64 64 31 3a 53 69 7a  |.Size1+=Add1:Siz|
00000400  65 32 2b 3d 41 64 64 32  0d 01 68 11 f2 72 65 64  |e2+=Add2..h..red|
00000410  72 61 77 3a f2 6d 6f 76  65 0d 01 72 07 fd 20 a3  |raw:.move..r.. .|
00000420  0d 01 7c 05 e0 0d 01 86  14 dd f2 72 65 64 72 61  |..|........redra|
00000430  77 3a f2 73 63 72 65 65  6e 0d 01 90 2a e7 20 72  |w:.screen...*. r|
00000440  65 70 6c 6f 74 20 8c 20  f2 73 70 72 3a f0 26 45  |eplot . .spr:.&E|
00000450  44 2c 2d 36 34 30 2c 37  30 34 3a 72 65 70 6c 6f  |D,-640,704:replo|
00000460  74 3d a3 0d 01 9a 4d e7  20 59 25 3e 37 30 34 20  |t=....M. Y%>704 |
00000470  8c 20 59 25 2d 3d 31 30  3a f2 73 70 72 3a f0 26  |. Y%-=10:.spr:.&|
00000480  45 44 2c 2d 36 34 30 2c  59 25 3a e7 20 59 25 3d  |ED,-640,Y%:. Y%=|
00000490  37 30 34 20 8c 20 f2 73  74 61 72 73 3a ef 32 39  |704 . .stars:.29|
000004a0  2c 36 34 30 3b 30 3b 3a  72 65 70 6c 6f 74 3d b9  |,640;0;:replot=.|
000004b0  0d 01 a4 0a f2 63 6c 65  61 72 0d 01 ae 1d f2 73  |.....clear.....s|
000004c0  70 68 65 72 65 28 2d 31  35 30 2d 53 68 69 66 74  |phere(-150-Shift|
000004d0  2c 53 69 7a 65 31 29 0d  01 b8 1c f2 73 70 68 65  |,Size1).....sphe|
000004e0  72 65 28 31 35 30 2b 53  68 69 66 74 2c 53 69 7a  |re(150+Shift,Siz|
000004f0  65 32 29 0d 01 c2 09 f2  74 65 78 74 0d 01 cc 12  |e2).....text....|
00000500  4d 6f 76 65 3d 53 69 7a  65 31 2d 31 35 30 0d 01  |Move=Size1-150..|
00000510  d6 1d f2 63 65 6e 74 72  65 28 22 33 44 20 44 65  |...centre("3D De|
00000520  6d 6f 22 2c 35 38 30 2c  31 36 29 0d 01 e0 1d f2  |mo",580,16).....|
00000530  63 65 6e 74 72 65 28 22  5f 5f 5f 5f 5f 5f 5f 22  |centre("_______"|
00000540  2c 35 37 32 2c 31 36 29  0d 01 ea 18 f2 63 65 6e  |,572,16).....cen|
00000550  74 72 65 28 22 42 79 22  2c 35 32 30 2c 35 39 29  |tre("By",520,59)|
00000560  0d 01 f4 1b f2 63 65 6e  74 72 65 28 22 44 61 76  |.....centre("Dav|
00000570  69 64 22 2c 34 38 30 2c  33 38 29 0d 01 fe 1d f2  |id",480,38).....|
00000580  63 65 6e 74 72 65 28 22  48 69 6e 64 6c 65 79 22  |centre("Hindley"|
00000590  2c 34 34 30 2c 33 38 29  0d 02 08 1e e6 30 2c 30  |,440,38).....0,0|
000005a0  3a c8 93 20 4d 6f 76 65  2d 38 2c 34 30 32 2c 31  |:.. Move-8,402,1|
000005b0  33 30 2c 31 39 30 0d 02  12 1d e7 20 a6 20 2d 35  |30,190..... . -5|
000005c0  36 20 8c 20 f5 20 fd 20  a6 28 31 29 3d 2d 31 3a  |6 . . . .(1)=-1:|
000005d0  41 3d a5 0d 02 1c 05 e1  0d 02 26 0a dd f2 6d 6f  |A=........&...mo|
000005e0  76 65 0d 02 30 21 e7 20  91 3e 36 30 30 30 20 84  |ve..0!. .>6000 .|
000005f0  20 a6 20 2d 31 30 31 20  8c 20 f2 62 61 63 6b 64  | . -101 . .backd|
00000600  72 6f 70 0d 02 3a 0b f2  62 6f 75 6e 63 65 0d 02  |rop..:..bounce..|
00000610  44 0a f2 73 68 69 66 74  0d 02 4e 05 e1 0d 02 58  |D..shift..N....X|
00000620  12 dd f2 62 6f 75 6e 63  65 3a 6b 65 79 3d a3 0d  |...bounce:key=..|
00000630  02 62 2a e7 20 a6 2d 34  32 20 8c 20 6b 65 79 3d  |.b*. .-42 . key=|
00000640  b9 3a e7 20 42 6f 75 6e  63 65 3e 30 20 8c 20 42  |.:. Bounce>0 . B|
00000650  6f 75 6e 63 65 2d 3d 2e  31 0d 02 6c 2c e7 20 a6  |ounce-=.1..l,. .|
00000660  2d 35 38 20 8c 20 6b 65  79 3d b9 3a e7 20 42 6f  |-58 . key=.:. Bo|
00000670  75 6e 63 65 3c 31 2e 31  20 8c 20 42 6f 75 6e 63  |unce<1.1 . Bounc|
00000680  65 2b 3d 2e 31 0d 02 76  0d e7 20 ac 20 6b 65 79  |e+=.1..v.. . key|
00000690  20 8c 0d 02 80 1f 20 20  e7 20 42 6f 75 6e 63 65  | .....  . Bounce|
000006a0  3c 2d 2e 31 20 8c 20 42  6f 75 6e 63 65 3d 2d 2e  |<-.1 . Bounce=-.|
000006b0  31 0d 02 8a 1f 20 20 e7  20 42 6f 75 6e 63 65 3e  |1....  . Bounce>|
000006c0  31 2e 32 20 8c 20 42 6f  75 6e 63 65 3d 31 2e 32  |1.2 . Bounce=1.2|
000006d0  0d 02 94 46 20 20 e7 20  42 6f 75 6e 63 65 3c 30  |...F  . Bounce<0|
000006e0  20 84 20 42 6f 75 6e 63  65 3e 31 2e 31 20 8c 20  | . Bounce>1.1 . |
000006f0  42 41 64 64 3d 2d 42 41  64 64 3a e7 20 42 6f 75  |BAdd=-BAdd:. Bou|
00000700  6e 63 65 3c 30 20 8c 20  d4 20 32 2c 2d 38 2c 26  |nce<0 . . 2,-8,&|
00000710  31 30 30 30 2c 31 0d 02  9e 12 20 20 42 6f 75 6e  |1000,1....  Boun|
00000720  63 65 2b 3d 42 41 64 64  0d 02 a8 05 cd 0d 02 b2  |ce+=BAdd........|
00000730  05 e1 0d 02 bc 11 dd f2  73 68 69 66 74 3a 6b 65  |........shift:ke|
00000740  79 3d a3 0d 02 c6 29 e7  20 a6 2d 32 36 20 8c 20  |y=....). .-26 . |
00000750  6b 65 79 3d b9 3a e7 20  53 68 69 66 74 3e 2d 37  |key=.:. Shift>-7|
00000760  30 20 8c 20 53 68 69 66  74 2d 3d 32 0d 02 d0 2a  |0 . Shift-=2...*|
00000770  e7 20 a6 2d 31 32 32 20  8c 20 6b 65 79 3d b9 3a  |. .-122 . key=.:|
00000780  e7 20 53 68 69 66 74 3c  2d 32 30 20 8c 20 53 68  |. Shift<-20 . Sh|
00000790  69 66 74 2b 3d 32 0d 02  da 0d e7 20 ac 20 6b 65  |ift+=2..... . ke|
000007a0  79 20 8c 0d 02 e4 2a 20  20 e7 20 53 68 69 66 74  |y ....*  . Shift|
000007b0  3c 2d 37 30 20 84 20 53  68 69 66 74 3e 2d 32 30  |<-70 . Shift>-20|
000007c0  20 8c 20 53 41 64 64 3d  2d 53 41 64 64 0d 02 ee  | . SAdd=-SAdd...|
000007d0  11 20 20 53 68 69 66 74  2b 3d 53 41 64 64 0d 02  |.  Shift+=SAdd..|
000007e0  f8 05 cd 0d 03 02 05 e1  0d 03 0c 14 dd f2 73 70  |..............sp|
000007f0  68 65 72 65 28 58 2c 53  69 7a 65 29 0d 03 16 3e  |here(X,Size)...>|
00000800  59 31 3d 36 34 30 2d 28  53 69 7a 65 2a 32 29 3a  |Y1=640-(Size*2):|
00000810  59 32 3d 36 34 30 2d 28  53 69 7a 65 2a 33 29 3a  |Y2=640-(Size*3):|
00000820  58 31 3d 58 2b 28 58 2a  28 28 53 68 69 66 74 2b  |X1=X+(X*((Shift+|
00000830  53 69 7a 65 29 2f 38 30  29 29 0d 03 20 29 59 33  |Size)/80)).. )Y3|
00000840  3d 59 32 2d 59 31 3a 59  34 3d 59 31 2b 59 33 3a  |=Y2-Y1:Y4=Y1+Y3:|
00000850  42 6f 75 3d 42 6f 75 6e  63 65 2a 28 53 69 7a 65  |Bou=Bounce*(Size|
00000860  2b 36 29 0d 03 2a 35 e6  32 2c 34 32 20 c8 9c 36  |+6)..*5.2,42 ..6|
00000870  34 3a ec 20 58 31 2c 59  34 3a ec 20 58 31 2d 59  |4:. X1,Y4:. X1-Y|
00000880  33 2c 59 34 3a f0 20 26  43 44 2c 58 31 2c 59 31  |3,Y4:. &CD,X1,Y1|
00000890  2b 28 59 33 20 81 32 29  0d 03 34 18 e3 20 54 69  |+(Y3 .2)..4.. Ti|
000008a0  6e 74 3d 33 32 20 b8 20  32 32 34 20 88 20 36 34  |nt=32 . 224 . 64|
000008b0  0d 03 3e 38 53 68 61 64  65 58 3d 30 3a e7 20 54  |..>8ShadeX=0:. T|
000008c0  69 6e 74 3e 33 32 20 8c  20 53 68 61 64 65 58 3d  |int>32 . ShadeX=|
000008d0  28 59 33 20 81 34 29 2b  28 28 54 69 6e 74 2f 31  |(Y3 .4)+((Tint/1|
000008e0  35 30 30 29 2a 59 33 29  0d 03 48 58 e6 30 2c 32  |500)*Y3)..HX.0,2|
000008f0  37 20 c8 9c 20 54 69 6e  74 3a ec 20 58 31 2b 53  |7 .. Tint:. X1+S|
00000900  68 61 64 65 58 2c 59 31  2b 42 6f 75 2d 53 68 61  |hadeX,Y1+Bou-Sha|
00000910  64 65 58 3a f0 20 26 39  44 2c 58 31 2b 53 68 61  |deX:. &9D,X1+Sha|
00000920  64 65 58 2c 59 31 2b 28  59 33 2f 28 54 69 6e 74  |deX,Y1+(Y3/(Tint|
00000930  2f 33 30 29 29 2b 42 6f  75 2d 53 68 61 64 65 58  |/30))+Bou-ShadeX|
00000940  0d 03 52 05 ed 0d 03 5c  05 e1 0d 03 66 0b dd f2  |..R....\....f...|
00000950  73 65 74 75 70 0d 03 70  6c 53 69 7a 65 31 3d 30  |setup..plSize1=0|
00000960  3a 41 64 64 31 3d 30 3a  53 69 7a 65 32 3d 32 30  |:Add1=0:Size2=20|
00000970  32 3a 41 64 64 32 3d 30  3a 42 6f 75 6e 63 65 3d  |2:Add2=0:Bounce=|
00000980  30 3a 53 68 69 66 74 3d  2d 33 34 3a 62 61 63 6b  |0:Shift=-34:back|
00000990  3d 30 3a 42 41 64 64 3d  2d 2e 31 3a 53 41 64 64  |=0:BAdd=-.1:SAdd|
000009a0  3d 32 3a 72 65 70 6c 6f  74 3d a3 3a 74 65 78 74  |=2:replot=.:text|
000009b0  3d 31 3a 74 69 6d 65 3d  2e 31 3a 74 41 64 64 3d  |=1:time=.1:tAdd=|
000009c0  32 0d 03 7a 1b d1 3d 30  3a f2 73 6b 79 28 30 2c  |2..z..=0:.sky(0,|
000009d0  30 2c 2d 31 29 3a f2 73  74 61 72 73 0d 03 84 0e  |0,-1):.stars....|
000009e0  f2 6d 6f 6f 6e 28 31 39  32 29 0d 03 8e 11 f2 63  |.moon(192).....c|
000009f0  6c 6f 75 64 73 28 34 2c  2d 31 29 0d 03 98 29 f2  |louds(4,-1)...).|
00000a00  68 69 6c 6c 73 28 a4 72  67 62 28 31 2c 31 2c 31  |hills(.rgb(1,1,1|
00000a10  29 2c a4 72 67 62 28 30  2c 30 2c 30 29 2c 37 30  |),.rgb(0,0,0),70|
00000a20  2c 38 30 29 0d 03 a2 12  f2 73 67 65 74 28 22 6e  |,80).....sget("n|
00000a30  69 67 68 74 22 29 0d 03  ac 0b f2 73 63 72 65 65  |ight").....scree|
00000a40  6e 0d 03 b6 1c d1 3d 30  3a f2 73 6b 79 28 2d 31  |n.....=0:.sky(-1|
00000a50  2c 30 2c 31 32 29 3a f2  73 74 61 72 73 0d 03 c0  |,0,12):.stars...|
00000a60  0c f2 6d 6f 6f 6e 28 30  29 0d 03 ca 31 e6 30 2c  |..moon(0)...1.0,|
00000a70  a4 72 67 62 28 33 2c 31  2c 30 29 3a ec 36 34 30  |.rgb(3,1,0):.640|
00000a80  2c 37 30 34 3a ec 37 36  30 2c 37 30 34 3a f0 26  |,704:.760,704:.&|
00000a90  41 44 2c 35 32 30 2c 37  30 34 0d 03 d4 10 f2 63  |AD,520,704.....c|
00000aa0  6c 6f 75 64 73 28 37 2c  30 29 0d 03 de 29 f2 68  |louds(7,0)...).h|
00000ab0  69 6c 6c 73 28 a4 72 67  62 28 31 2c 32 2c 30 29  |ills(.rgb(1,2,0)|
00000ac0  2c a4 72 67 62 28 31 2c  31 2c 30 29 2c 34 30 2c  |,.rgb(1,1,0),40,|
00000ad0  35 30 29 0d 03 e8 13 f2  73 67 65 74 28 22 73 75  |50).....sget("su|
00000ae0  6e 73 65 74 22 29 0d 03  f2 0b f2 73 63 72 65 65  |nset").....scree|
00000af0  6e 0d 03 fc 11 f2 73 6b  79 28 30 2c 2d 31 2c 31  |n.....sky(0,-1,1|
00000b00  35 29 0d 04 06 23 e6 30  2c a4 72 67 62 28 33 2c  |5)...#.0,.rgb(3,|
00000b10  33 2c 30 29 3a c8 8f 20  c8 90 20 31 30 30 2c 39  |3,0):.. .. 100,9|
00000b20  32 34 2c 39 35 0d 04 10  12 f2 63 6c 6f 75 64 73  |24,95.....clouds|
00000b30  28 31 31 2c 2d 31 29 0d  04 1a 2a f2 68 69 6c 6c  |(11,-1)...*.hill|
00000b40  73 28 a4 72 67 62 28 33  2c 33 2c 30 29 2c a4 72  |s(.rgb(3,3,0),.r|
00000b50  67 62 28 32 2c 32 2c 30  29 2c 35 35 30 2c 36 30  |gb(2,2,0),550,60|
00000b60  29 0d 04 24 10 f2 73 67  65 74 28 22 64 61 79 22  |)..$..sget("day"|
00000b70  29 0d 04 2e 30 62 61 63  6b 3d 32 3a f2 73 63 72  |)...0back=2:.scr|
00000b80  65 65 6e 3a f2 73 70 72  3a ef 32 39 2c 36 34 30  |een:.spr:.29,640|
00000b90  3b 30 3b 3a f0 26 45 44  2c 2d 36 34 30 2c 37 30  |;0;:.&ED,-640,70|
00000ba0  34 0d 04 38 10 d1 3d 30  3a 59 25 3d 37 30 34 3a  |4..8..=0:Y%=704:|
00000bb0  e1 0d 04 42 11 dd f2 6d  6f 6f 6e 28 6d 6f 6f 6e  |...B...moon(moon|
00000bc0  25 29 0d 04 4c 19 64 75  6d 6d 79 3d b3 28 2d 31  |%)..L.dummy=.(-1|
00000bd0  29 3a 4f 6c 64 3d 2d 31  30 30 30 0d 04 56 10 ef  |):Old=-1000..V..|
00000be0  32 39 2c 31 30 30 3b 39  32 34 3b 0d 04 60 13 e3  |29,100;924;..`..|
00000bf0  20 49 3d 32 37 30 b8 34  35 30 88 31 2e 35 0d 04  | I=270.450.1.5..|
00000c00  6a 4d 58 25 3d 38 30 2a  9b 28 b2 49 29 3a 59 25  |jMX%=80*.(.I):Y%|
00000c10  3d 38 30 2a b5 28 b2 20  49 29 3a 63 6f 6c 3d 31  |=80*.(. I):col=1|
00000c20  3a e7 20 59 25 3e 3d 4f  6c 64 2b 34 20 8c 20 4f  |:. Y%>=Old+4 . O|
00000c30  6c 64 3d 59 25 3a e3 20  4a 25 3d 2d 58 25 b8 58  |ld=Y%:. J%=-X%.X|
00000c40  25 88 32 20 8b 20 e5 8d  74 70 44 0d 04 74 0c 63  |%.2 . ..tpD..t.c|
00000c50  6f 6c 2b 3d 2e 31 34 0d  04 7e 26 52 6e 64 25 3d  |ol+=.14..~&Rnd%=|
00000c60  a8 28 33 2d b3 28 63 6f  6c 29 29 3a e7 20 52 6e  |.(3-.(col)):. Rn|
00000c70  64 25 3c 30 20 8c 20 52  6e 64 25 3d 30 0d 04 88  |d%<0 . Rnd%=0...|
00000c80  24 52 6e 64 32 25 3d 52  6e 64 25 2d 31 3a e7 20  |$Rnd2%=Rnd%-1:. |
00000c90  52 6e 64 32 25 3c 30 20  8c 20 52 6e 64 32 25 3d  |Rnd2%<0 . Rnd2%=|
00000ca0  30 0d 04 92 24 e6 30 2c  a4 72 67 62 28 52 6e 64  |0...$.0,.rgb(Rnd|
00000cb0  25 2c 52 6e 64 25 2c 52  6e 64 32 25 29 c8 9c 20  |%,Rnd%,Rnd2%).. |
00000cc0  6d 6f 6f 6e 25 0d 04 9c  17 e7 20 52 6e 64 25 3e  |moon%..... Rnd%>|
00000cd0  30 20 8c 20 c8 92 20 4a  25 2c 59 25 0d 04 a6 08  |0 . .. J%,Y%....|
00000ce0  ed 20 4a 25 0d 04 b0 07  ed 20 49 0d 04 ba 09 ef  |. J%..... I.....|
00000cf0  32 36 2c 37 0d 04 c4 05  e1 0d 04 ce 19 dd f2 63  |26,7...........c|
00000d00  6c 6f 75 64 73 28 64 75  6d 6d 79 2c 73 68 61 64  |louds(dummy,shad|
00000d10  65 29 0d 04 d8 0f 44 3d  b3 28 2d 64 75 6d 6d 79  |e)....D=.(-dummy|
00000d20  29 0d 04 e2 16 e3 20 53  69 7a 65 3d 2e 34 20 b8  |)..... Size=.4 .|
00000d30  20 31 20 88 20 2e 33 0d  04 ec 11 e3 20 43 6c 6f  | 1 . .3..... Clo|
00000d40  75 64 3d 30 20 b8 20 33  0d 04 f6 3e 58 25 3d b3  |ud=0 . 3...>X%=.|
00000d50  28 31 32 38 30 29 3a 59  25 3d 37 30 30 2b 28 53  |(1280):Y%=700+(S|
00000d60  69 7a 65 2a 38 30 29 2b  b3 28 32 30 30 2a 53 69  |ize*80)+.(200*Si|
00000d70  7a 65 29 3a 53 25 3d 28  35 30 2b b3 28 34 32 29  |ze):S%=(50+.(42)|
00000d80  29 2a 53 69 7a 65 0d 05  00 14 e3 20 49 25 3d 30  |)*Size..... I%=0|
00000d90  20 b8 20 53 25 2b 34 20  88 38 0d 05 0a 28 78 3d  | . S%+4 .8...(x=|
00000da0  58 25 2d 49 25 3a 78 32  3d 58 25 2b 49 25 3a 72  |X%-I%:x2=X%+I%:r|
00000db0  6e 64 3d 49 25 2a 32 3a  79 3d 59 25 2b 53 25 2d  |nd=I%*2:y=Y%+S%-|
00000dc0  49 25 0d 05 14 25 f2 64  72 61 77 28 78 2d b3 28  |I%...%.draw(x-.(|
00000dd0  72 6e 64 29 2c 79 2c 78  32 2b b3 28 72 6e 64 29  |rnd),y,x2+.(rnd)|
00000de0  2c 73 68 61 64 65 29 0d  05 1e 27 f2 64 72 61 77  |,shade)...'.draw|
00000df0  28 78 2d b3 28 72 6e 64  29 2c 79 2b 34 2c 78 32  |(x-.(rnd),y+4,x2|
00000e00  2b b3 28 72 6e 64 29 2c  73 68 61 64 65 29 0d 05  |+.(rnd),shade)..|
00000e10  28 36 f2 64 72 61 77 28  78 2d b3 28 72 6e 64 29  |(6.draw(x-.(rnd)|
00000e20  2c 59 25 2d 28 53 25 20  81 32 29 2b 28 49 25 20  |,Y%-(S% .2)+(I% |
00000e30  81 32 29 2c 78 32 2b b3  28 72 6e 64 29 2c 73 68  |.2),x2+.(rnd),sh|
00000e40  61 64 65 29 0d 05 32 08  ed 20 49 25 0d 05 3c 0b  |ade)..2.. I%..<.|
00000e50  ed 20 43 6c 6f 75 64 0d  05 46 0a ed 20 53 69 7a  |. Cloud..F.. Siz|
00000e60  65 0d 05 50 05 e1 0d 05  5a 1d dd f2 64 72 61 77  |e..P....Z...draw|
00000e70  28 58 31 25 2c 59 31 25  2c 58 32 25 2c 73 68 61  |(X1%,Y1%,X2%,sha|
00000e80  64 65 29 0d 05 64 0d e7  20 73 68 61 64 65 20 8c  |de)..d.. shade .|
00000e90  0d 05 6e 3a 20 20 43 6f  6c 3d 39 35 30 2d 28 59  |..n:  Col=950-(Y|
00000ea0  31 25 2d 53 25 29 3a 54  69 3d 28 43 6f 6c 20 83  |1%-S%):Ti=(Col .|
00000eb0  20 36 30 29 2a 28 32 35  36 2f 36 30 29 3a 43 6f  | 60)*(256/60):Co|
00000ec0  6c 3d 43 6f 6c 20 81 20  36 30 0d 05 78 1b 20 20  |l=Col . 60..x.  |
00000ed0  e7 20 43 6f 6c 3c 30 20  8c 20 20 43 6f 6c 3d 30  |. Col<0 .  Col=0|
00000ee0  3a 54 69 3d 30 0d 05 82  19 20 20 43 6f 6c 3d 33  |:Ti=0....  Col=3|
00000ef0  2d 43 6f 6c 3a 54 69 3d  32 35 35 2d 54 69 0d 05  |-Col:Ti=255-Ti..|
00000f00  8c 1d 20 20 e7 20 43 6f  6c 3e 32 20 8c 20 20 43  |..  . Col>2 .  C|
00000f10  6f 6c 3d 32 3a 54 69 3d  32 35 35 0d 05 96 05 cc  |ol=2:Ti=255.....|
00000f20  0d 05 a0 12 20 20 43 6f  6c 3d 32 3a 54 69 3d 32  |....  Col=2:Ti=2|
00000f30  35 35 0d 05 aa 05 cd 0d  05 b4 24 54 69 6d 65 73  |55........$Times|
00000f40  3d 28 58 32 25 2d 58 31  25 29 2f 39 3a 54 69 6d  |=(X2%-X1%)/9:Tim|
00000f50  65 73 32 3d 54 69 6d 65  73 2f 34 0d 05 be 0f e3  |es2=Times/4.....|
00000f60  20 43 3d 30 20 b8 20 43  6f 6c 0d 05 c8 1a 54 3d  | C=0 . Col....T=|
00000f70  33 3a e7 20 43 3d 43 6f  6c 20 8c 20 54 3d 54 69  |3:. C=Col . T=Ti|
00000f80  20 81 36 34 0d 05 d2 10  e3 20 54 69 6e 74 3d 30  | .64..... Tint=0|
00000f90  20 b8 20 54 0d 05 dc 4d  e7 20 73 68 61 64 65 20  | . T...M. shade |
00000fa0  8c 20 e6 20 30 2c a4 72  67 62 28 43 2b 31 2c 43  |. . 0,.rgb(C+1,C|
00000fb0  2b 31 2c 43 2b 31 29 c8  9c 20 54 69 6e 74 2a 36  |+1,C+1).. Tint*6|
00000fc0  34 20 8b 20 e6 20 30 2c  a4 72 67 62 28 32 2c 43  |4 . . 0,.rgb(2,C|
00000fd0  2b 31 2c 43 2b 31 29 c8  9c 20 54 69 6e 74 2a 36  |+1,C+1).. Tint*6|
00000fe0  34 0d 05 e6 47 ec 20 58  31 25 2b 28 43 2a 54 69  |4...G. X1%+(C*Ti|
00000ff0  6d 65 73 29 2b 28 54 69  6e 74 2a 54 69 6d 65 73  |mes)+(Tint*Times|
00001000  32 29 2c 59 31 25 3a df  20 58 32 25 2d 28 43 2a  |2),Y1%:. X2%-(C*|
00001010  54 69 6d 65 73 29 2d 28  54 69 6e 74 2a 54 69 6d  |Times)-(Tint*Tim|
00001020  65 73 32 29 2c 59 31 25  0d 05 f0 0e ed 20 54 69  |es2),Y1%..... Ti|
00001030  6e 74 3a ed 20 43 0d 05  fa 05 e1 0d 06 04 0b dd  |nt:. C..........|
00001040  f2 65 72 72 6f 72 0d 06  0e 09 ee 20 85 20 87 0d  |.error..... . ..|
00001050  06 18 1b c8 99 20 22 4f  53 5f 55 70 64 61 74 65  |..... "OS_Update|
00001060  4d 45 4d 43 22 2c 30 2c  36 34 0d 06 22 07 eb 31  |MEMC",0,64.."..1|
00001070  32 0d 06 2c 16 c8 99 20  22 4f 53 5f 42 79 74 65  |2..,... "OS_Byte|
00001080  22 2c 31 31 32 2c 31 0d  06 36 16 c8 99 20 22 4f  |",112,1..6... "O|
00001090  53 5f 42 79 74 65 22 2c  31 31 33 2c 31 0d 06 40  |S_Byte",113,1..@|
000010a0  14 2a 53 43 52 45 45 4e  53 49 5a 45 20 31 36 30  |.*SCREENSIZE 160|
000010b0  6b 0d 06 4a 0e e7 20 9f  3d 31 37 20 8c 20 e1 0d  |k..J.. .=17 . ..|
000010c0  06 54 14 f6 3a f1 22 20  61 74 20 6c 69 6e 65 20  |.T..:." at line |
000010d0  22 3b 9e 0d 06 5e 05 e1  0d 06 68 11 dd f2 64 69  |";...^....h...di|
000010e0  73 28 73 63 72 65 65 6e  29 0d 06 72 1d c8 99 20  |s(screen)..r... |
000010f0  22 4f 53 5f 42 79 74 65  22 2c 31 31 33 2c 73 63  |"OS_Byte",113,sc|
00001100  72 65 65 6e 3a e1 0d 06  7c 11 dd f2 77 72 69 28  |reen:...|...wri(|
00001110  73 63 72 65 65 6e 29 0d  06 86 1d c8 99 20 22 4f  |screen)...... "O|
00001120  53 5f 42 79 74 65 22 2c  31 31 32 2c 73 63 72 65  |S_Byte",112,scre|
00001130  65 6e 3a e1 0d 06 90 0c  dd f2 73 63 72 65 65 6e  |en:.......screen|
00001140  0d 06 9a 0e c8 94 20 64  69 73 2c 77 72 69 0d 06  |...... dis,wri..|
00001150  a4 17 f2 64 69 73 28 64  69 73 29 3a f2 77 72 69  |...dis(dis):.wri|
00001160  28 77 72 69 29 0d 06 ae  05 e1 0d 06 b8 0b dd f2  |(wri)...........|
00001170  63 6c 65 61 72 0d 06 c2  13 2a 53 43 48 4f 4f 53  |clear....*SCHOOS|
00001180  45 20 67 72 6f 75 6e 64  0d 06 cc 14 e6 30 2c 30  |E ground.....0,0|
00001190  3a f0 26 45 44 2c 2d 36  34 30 2c 30 0d 06 d6 05  |:.&ED,-640,0....|
000011a0  e1 0d 06 e0 0c dd f2 67  72 6f 75 6e 64 0d 06 ea  |.......ground...|
000011b0  12 ef 32 39 2c 36 34 30  3b 30 3b 3a 46 3d b9 0d  |..29,640;0;:F=..|
000011c0  06 f4 1c e3 20 67 72 6f  75 6e 64 3d 2d 36 31 33  |.... ground=-613|
000011d0  20 b8 20 35 37 38 20 88  20 33 35 0d 06 fe 1f 63  | . 578 . 35....c|
000011e0  6f 6c 3d 33 3a 74 69 6e  74 3d 33 2d 94 28 67 72  |ol=3:tint=3-.(gr|
000011f0  6f 75 6e 64 20 81 20 38  30 29 0d 07 08 0d c8 95  |ound . 80)......|
00001200  20 74 69 6e 74 3c 30 0d  07 12 12 74 69 6e 74 2b  | tint<0....tint+|
00001210  3d 33 3a 63 6f 6c 2d 3d  31 0d 07 1c 05 ce 0d 07  |=3:col-=1.......|
00001220  26 41 e7 20 46 20 8c 20  e6 30 2c a4 72 67 62 28  |&A. F . .0,.rgb(|
00001230  63 6f 6c 2c 30 2c 30 29  c8 9c 20 74 69 6e 74 2a  |col,0,0).. tint*|
00001240  36 34 20 8b 20 e6 30 2c  a4 72 67 62 28 30 2c 63  |64 . .0,.rgb(0,c|
00001250  6f 6c 2c 30 29 c8 9c 20  74 69 6e 74 2a 36 34 0d  |ol,0).. tint*64.|
00001260  07 30 54 ec 20 67 72 6f  75 6e 64 2b 31 34 2c 37  |.0T. ground+14,7|
00001270  30 30 3a ec 20 28 67 72  6f 75 6e 64 2a 33 30 29  |00:. (ground*30)|
00001280  2b 31 34 2c 30 3a f0 20  38 35 2c 67 72 6f 75 6e  |+14,0:. 85,groun|
00001290  64 2b 34 39 2c 37 30 30  3a f0 20 38 35 2c 28 28  |d+49,700:. 85,((|
000012a0  67 72 6f 75 6e 64 2b 33  35 29 2a 33 30 29 2b 31  |ground+35)*30)+1|
000012b0  34 2c 30 0d 07 3a 09 46  3d ac 20 46 0d 07 44 05  |4,0..:.F=. F..D.|
000012c0  ed 0d 07 4e 0b ef 32 36  3a 46 3d b9 0d 07 58 1e  |...N..26:F=...X.|
000012d0  53 69 7a 65 3d 33 35 30  3a e6 33 2c a4 72 67 62  |Size=350:.3,.rgb|
000012e0  28 33 2c 33 2c 30 29 c8  9c 30 0d 07 62 13 e3 20  |(3,3,0)..0..b.. |
000012f0  59 3d 30 20 b8 20 37 30  30 20 88 20 34 0d 07 6c  |Y=0 . 700 . 4..l|
00001300  16 e7 20 46 20 8c 20 ec  30 2c 59 3a df 31 32 38  |.. F . .0,Y:.128|
00001310  30 2c 59 0d 07 76 24 e7  20 59 3e 53 69 7a 65 20  |0,Y..v$. Y>Size |
00001320  8c 20 53 69 7a 65 2b 3d  32 35 30 2d 59 20 81 20  |. Size+=250-Y . |
00001330  33 3a 46 3d ac 20 46 0d  07 80 05 ed 0d 07 8a 0a  |3:F=. F.........|
00001340  f2 74 72 65 65 73 0d 07  94 05 e1 0d 07 9e 17 dd  |.trees..........|
00001350  f2 73 74 61 72 73 3a 64  75 6d 6d 79 3d b3 28 2d  |.stars:dummy=.(-|
00001360  31 29 0d 07 a8 10 e7 20  62 61 63 6b 3d 32 20 8c  |1)..... back=2 .|
00001370  20 e1 0d 07 b2 1c ef 32  39 2c 36 34 30 3b 30 3b  | ......29,640;0;|
00001380  3a e3 20 53 74 61 72 3d  30 20 b8 20 37 30 0d 07  |:. Star=0 . 70..|
00001390  bc 20 73 58 3d b3 28 31  32 38 30 29 2d 36 34 30  |. sX=.(1280)-640|
000013a0  3a 73 59 3d 37 38 30 2b  b3 28 32 34 30 29 0d 07  |:sY=780+.(240)..|
000013b0  c6 0f 50 6f 31 3d b0 73  58 2c 73 59 29 0d 07 d0  |..Po1=.sX,sY)...|
000013c0  24 e7 20 a4 74 65 73 74  20 8c 20 e6 30 2c 36 33  |$. .test . .0,63|
000013d0  20 c8 9c 20 91 2a 33 32  3a c8 92 20 73 58 2c 73  | .. .*32:.. sX,s|
000013e0  59 0d 07 da 05 ed 0d 07  e4 09 ef 32 36 3a e1 0d  |Y..........26:..|
000013f0  07 ee 11 dd a4 74 65 73  74 3a 74 72 75 65 3d a3  |.....test:true=.|
00001400  0d 07 f8 17 e3 20 43 6f  6c 3d 30 20 b8 20 33 2a  |..... Col=0 . 3*|
00001410  31 36 20 88 20 31 36 0d  08 02 16 e7 20 50 6f 31  |16 . 16..... Po1|
00001420  3d 43 6f 6c 20 8c 20 74  72 75 65 3d b9 0d 08 0c  |=Col . true=....|
00001430  05 ed 0d 08 16 18 e7 20  74 72 75 65 20 84 20 50  |....... true . P|
00001440  6f 31 3d 36 33 20 8c 20  3d b9 0d 08 20 06 3d a3  |o1=63 . =... .=.|
00001450  0d 08 2a 19 dd f2 63 65  6e 74 72 65 28 74 65 78  |..*...centre(tex|
00001460  74 24 2c 59 2c 63 6f 6c  29 0d 08 34 20 e6 30 2c  |t$,Y,col)..4 .0,|
00001470  63 6f 6c 20 c8 9c 31 39  32 3a ec 20 4d 6f 76 65  |col ..192:. Move|
00001480  2c 59 3a f1 74 65 78 74  24 0d 08 3e 05 e1 0d 08  |,Y:.text$..>....|
00001490  48 19 dd a4 72 67 62 28  72 65 64 2c 67 72 65 65  |H...rgb(red,gree|
000014a0  6e 2c 62 6c 75 65 29 0d  08 52 18 3d 31 36 2a 62  |n,blue)..R.=16*b|
000014b0  6c 75 65 2b 34 2a 67 72  65 65 6e 2b 72 65 64 0d  |lue+4*green+red.|
000014c0  08 5c 13 dd f2 73 6b 79  28 72 65 2c 67 72 2c 62  |.\...sky(re,gr,b|
000014d0  6c 29 0d 08 66 12 52 3d  72 65 3a 47 3d 67 72 3a  |l)..f.R=re:G=gr:|
000014e0  42 3d 62 6c 0d 08 70 15  e3 20 63 6f 6c 3d 31 35  |B=bl..p.. col=15|
000014f0  20 b8 20 30 20 88 20 2d  31 0d 08 7a 26 f2 63 6f  | . 0 . -1..z&.co|
00001500  6c 3a c8 93 20 c8 90 20  30 2c 39 36 30 2d 28 63  |l:.. .. 0,960-(c|
00001510  6f 6c 2a 31 36 29 2c 31  32 38 30 2c 2d 31 34 0d  |ol*16),1280,-14.|
00001520  08 84 05 ed 0d 08 8e 20  c8 93 20 c8 90 20 30 2c  |....... .. .. 0,|
00001530  39 34 38 2d 28 63 6f 6c  2a 31 36 29 2c 31 32 38  |948-(col*16),128|
00001540  30 2c 36 30 0d 08 98 05  e1 0d 08 a2 09 dd f2 63  |0,60...........c|
00001550  6f 6c 0d 08 ac 13 e7 20  52 3d 2d 31 20 8c 20 72  |ol..... R=-1 . r|
00001560  65 3d 63 6f 6c 0d 08 b6  13 e7 20 47 3d 2d 31 20  |e=col..... G=-1 |
00001570  8c 20 67 72 3d 63 6f 6c  0d 08 c0 13 e7 20 42 3d  |. gr=col..... B=|
00001580  2d 31 20 8c 20 62 6c 3d  63 6f 6c 0d 08 ca 1b 72  |-1 . bl=col....r|
00001590  3d 72 65 20 81 34 3a 67  3d 67 72 20 81 34 3a 62  |=re .4:g=gr .4:b|
000015a0  3d 62 6c 20 81 34 0d 08  d4 1a 74 69 6e 74 3d 72  |=bl .4....tint=r|
000015b0  65 20 83 34 2b 67 72 20  83 34 2b 62 6c 20 83 34  |e .4+gr .4+bl .4|
000015c0  0d 08 de 19 e7 20 42 3e  2d 31 20 8c 20 74 69 6e  |..... B>-1 . tin|
000015d0  74 3d 74 69 6e 74 20 81  32 0d 08 e8 1d e6 20 30  |t=tint .2..... 0|
000015e0  2c a4 72 67 62 28 72 2c  67 2c 62 29 c8 9c 20 74  |,.rgb(r,g,b).. t|
000015f0  69 6e 74 2a 36 34 0d 08  f2 05 e1 0d 08 fc 1e dd  |int*64..........|
00001600  f2 68 69 6c 6c 73 28 63  6f 6c 2c 63 6f 6c 32 2c  |.hills(col,col2,|
00001610  61 64 64 2c 73 69 7a 65  29 0d 09 06 09 58 3d 30  |add,size)....X=0|
00001620  3a f5 0d 09 10 1f 6c 69  6e 65 58 3d b3 28 73 69  |:.....lineX=.(si|
00001630  7a 65 29 3a 6c 69 6e 65  59 3d b3 28 73 69 7a 65  |ze):lineY=.(size|
00001640  29 0d 09 1a 22 ec 20 58  2c 37 30 34 3a ec 20 58  |)...". X,704:. X|
00001650  2b 31 36 2b 6c 69 6e 65  58 2c 37 31 34 2b 6c 69  |+16+lineX,714+li|
00001660  6e 65 59 0d 09 24 30 70  6f 73 3d 58 2b 73 69 7a  |neY..$0pos=X+siz|
00001670  65 2b b3 28 73 69 7a 65  29 3a e6 30 2c 63 6f 6c  |e+.(size):.0,col|
00001680  20 c8 9c 31 39 32 3a f0  20 38 35 2c 70 6f 73 2c  | ..192:. 85,pos,|
00001690  37 30 34 0d 09 2e 31 e6  30 2c 63 6f 6c 32 20 c8  |704...1.0,col2 .|
000016a0  9c 30 3a f0 20 38 35 2c  70 6f 73 2b 28 73 69 7a  |.0:. 85,pos+(siz|
000016b0  65 20 81 34 29 2b b3 28  73 69 7a 65 20 81 35 29  |e .4)+.(size .5)|
000016c0  2c 37 30 34 0d 09 38 22  ec 20 58 2c 37 30 34 3a  |,704..8". X,704:|
000016d0  df 20 58 2b 31 36 2b 6c  69 6e 65 58 2c 37 31 34  |. X+16+lineX,714|
000016e0  2b 6c 69 6e 65 59 0d 09  42 15 58 2b 3d b3 28 61  |+lineY..B.X+=.(a|
000016f0  64 64 29 2b b3 28 73 69  7a 65 29 0d 09 4c 0c fd  |dd)+.(size)..L..|
00001700  20 58 3e 31 33 30 30 0d  09 56 2d e7 20 61 64 64  | X>1300..V-. add|
00001710  3c 31 30 30 20 8c 20 f2  68 69 6c 6c 73 28 63 6f  |<100 . .hills(co|
00001720  6c 2c 63 6f 6c 32 2c 61  64 64 2b 31 30 30 2c 73  |l,col2,add+100,s|
00001730  69 7a 65 29 0d 09 60 0a  f2 74 72 65 65 73 0d 09  |ize)..`..trees..|
00001740  6a 05 e1 0d 09 74 1b dd  f2 62 61 63 6b 64 72 6f  |j....t...backdro|
00001750  70 3a e7 20 59 25 3e 37  30 34 20 8c 20 e1 0d 09  |p:. Y%>704 . ...|
00001760  7e 21 62 61 63 6b 3d 28  62 61 63 6b 2b 31 29 83  |~!back=(back+1).|
00001770  34 3a 59 25 3d 31 30 32  34 3a d1 3d 30 3a e1 0d  |4:Y%=1024:.=0:..|
00001780  09 88 09 dd f2 73 70 72  0d 09 92 1d e7 20 62 61  |.....spr..... ba|
00001790  63 6b 3d 30 20 8c 20 2a  53 43 48 4f 4f 53 45 20  |ck=0 . *SCHOOSE |
000017a0  6e 69 67 68 74 0d 09 9c  1e e7 20 62 61 63 6b 3d  |night..... back=|
000017b0  31 20 8c 20 2a 53 43 48  4f 4f 53 45 20 73 75 6e  |1 . *SCHOOSE sun|
000017c0  73 65 74 0d 09 a6 1b e7  20 62 61 63 6b 3d 32 20  |set..... back=2 |
000017d0  8c 20 2a 53 43 48 4f 4f  53 45 20 64 61 79 0d 09  |. *SCHOOSE day..|
000017e0  b0 1e e7 20 62 61 63 6b  3d 33 20 8c 20 2a 53 43  |... back=3 . *SC|
000017f0  48 4f 4f 53 45 20 73 75  6e 73 65 74 0d 09 ba 05  |HOOSE sunset....|
00001800  e1 0d 09 c4 0b dd f2 74  72 65 65 73 0d 09 ce 1a  |.......trees....|
00001810  ef 32 39 2c 36 34 30 3b  30 3b 3a 64 75 6d 6d 79  |.29,640;0;:dummy|
00001820  3d b3 28 2d 32 29 0d 09  d8 17 f2 74 72 65 65 28  |=.(-2).....tree(|
00001830  31 2c 36 34 30 2c 32 30  30 2c 31 36 29 0d 09 e2  |1,640,200,16)...|
00001840  18 f2 74 72 65 65 28 2e  34 35 2c 36 30 38 2c 35  |..tree(.45,608,5|
00001850  33 30 2c 38 29 0d 09 ec  18 f2 74 72 65 65 28 2e  |30,8).....tree(.|
00001860  31 38 2c 35 36 36 2c 36  35 34 2c 34 29 0d 09 f6  |18,566,654,4)...|
00001870  09 ef 32 36 2c 37 0d 0a  00 05 e1 0d 0a 0a 1e dd  |..26,7..........|
00001880  f2 74 72 65 65 28 69 6e  76 2c 58 70 6f 73 2c 59  |.tree(inv,Xpos,Y|
00001890  70 6f 73 2c 53 69 7a 65  29 0d 0a 14 23 e6 30 2c  |pos,Size)...#.0,|
000018a0  a4 72 67 62 28 31 2c 31  2c 31 29 20 c8 9c 20 30  |.rgb(1,1,1) .. 0|
000018b0  3a 70 6f 73 3d 36 34 30  2a 69 6e 76 0d 0a 1e 2a  |:pos=640*inv...*|
000018c0  e3 20 59 3d 59 70 6f 73  2d 28 53 69 7a 65 20 81  |. Y=Ypos-(Size .|
000018d0  32 29 b8 20 59 70 6f 73  2b 28 53 69 7a 65 20 81  |2). Ypos+(Size .|
000018e0  32 29 20 88 20 34 0d 0a  28 2e ec 20 2d 70 6f 73  |2) . 4..(.. -pos|
000018f0  2b 28 28 59 2d 59 70 6f  73 2d 28 53 69 7a 65 20  |+((Y-Ypos-(Size |
00001900  81 32 29 29 81 34 29 2c  59 3a f0 20 32 31 2c 70  |.2)).4),Y:. 21,p|
00001910  6f 73 2c 59 0d 0a 32 05  ed 0d 0a 3c 1f f2 62 72  |os,Y..2....<..br|
00001920  61 6e 63 68 28 58 70 6f  73 2c 59 70 6f 73 2c 53  |anch(Xpos,Ypos,S|
00001930  69 7a 65 2c 69 6e 76 29  0d 0a 46 05 e1 0d 0a 50  |ize,inv)..F....P|
00001940  17 dd f2 62 72 61 6e 63  68 28 58 2c 59 2c 73 2c  |...branch(X,Y,s,|
00001950  69 6e 76 29 0d 0a 5a 15  ea 20 62 58 2c 62 59 2c  |inv)..Z.. bX,bY,|
00001960  73 69 7a 65 2c 74 69 6c  74 0d 0a 64 14 62 58 3d  |size,tilt..d.bX=|
00001970  58 3a 62 59 3d 59 3a 73  69 7a 65 3d 73 0d 0a 6e  |X:bY=Y:size=s..n|
00001980  56 74 69 6c 74 3d 36 34  30 2d 62 58 2b b3 28 31  |Vtilt=640-bX+.(1|
00001990  35 29 3a 78 31 3d 62 58  2d 73 69 7a 65 3a 78 32  |5):x1=bX-size:x2|
000019a0  3d 62 58 2d 73 69 7a 65  2d 74 69 6c 74 3a 78 33  |=bX-size-tilt:x3|
000019b0  3d 62 58 2d 28 73 69 7a  65 20 81 32 29 3a 78 34  |=bX-(size .2):x4|
000019c0  3d 62 58 2d 28 28 73 69  7a 65 2d 74 69 6c 74 29  |=bX-((size-tilt)|
000019d0  81 32 29 0d 0a 78 1a e3  20 69 3d 2d 69 6e 76 20  |.2)..x.. i=-inv |
000019e0  b8 20 69 6e 76 20 88 20  69 6e 76 2a 32 0d 0a 82  |. inv . inv*2...|
000019f0  15 e6 30 2c a4 72 67 62  28 32 2c 31 2c 30 29 c8  |..0,.rgb(2,1,0).|
00001a00  9c 30 0d 0a 8c 2f ec 20  62 58 2a 69 2c 62 59 3a  |.0.../. bX*i,bY:|
00001a10  ec 20 78 31 2a 69 2c 62  59 3a f0 20 26 37 35 2c  |. x1*i,bY:. &75,|
00001a20  78 32 2a 69 2c 62 59 2b  28 73 69 7a 65 2a 32 30  |x2*i,bY+(size*20|
00001a30  29 0d 0a 96 22 e6 30 2c  a4 72 67 62 28 30 2c 32  |)...".0,.rgb(0,2|
00001a40  2c 30 29 c8 9c 30 3a f0  20 32 31 2c 62 58 2a 69  |,0)..0:. 21,bX*i|
00001a50  2c 62 59 0d 0a a0 15 e6  30 2c a4 72 67 62 28 32  |,bY.....0,.rgb(2|
00001a60  2c 31 2c 30 29 c8 9c 30  0d 0a aa 2f ec 20 62 58  |,1,0)..0.../. bX|
00001a70  2a 69 2c 62 59 3a ec 20  78 33 2a 69 2c 62 59 3a  |*i,bY:. x3*i,bY:|
00001a80  f0 20 26 37 35 2c 78 34  2a 69 2c 62 59 2b 28 73  |. &75,x4*i,bY+(s|
00001a90  69 7a 65 2a 32 30 29 0d  0a b4 22 e6 30 2c a4 72  |ize*20)...".0,.r|
00001aa0  67 62 28 30 2c 32 2c 30  29 c8 9c 30 3a f0 20 32  |gb(0,2,0)..0:. 2|
00001ab0  31 2c 62 58 2a 69 2c 62  59 0d 0a be 15 e3 20 6c  |1,bX*i,bY..... l|
00001ac0  65 61 76 65 73 3d 30 20  b8 20 53 69 7a 65 0d 0a  |eaves=0 . Size..|
00001ad0  c8 3a c8 92 20 28 78 32  2a 69 29 2b b3 28 53 69  |.:.. (x2*i)+.(Si|
00001ae0  7a 65 29 2d b3 28 53 69  7a 65 29 2c 62 59 2b 28  |ze)-.(Size),bY+(|
00001af0  73 69 7a 65 2a 32 30 29  2b b3 28 53 69 7a 65 29  |size*20)+.(Size)|
00001b00  2d b3 28 53 69 7a 65 29  0d 0a d2 3a c8 92 20 28  |-.(Size)...:.. (|
00001b10  78 34 2a 69 29 2b b3 28  53 69 7a 65 29 2d b3 28  |x4*i)+.(Size)-.(|
00001b20  53 69 7a 65 29 2c 62 59  2b 28 73 69 7a 65 2a 32  |Size),bY+(size*2|
00001b30  30 29 2b b3 28 53 69 7a  65 29 2d b3 28 53 69 7a  |0)+.(Size)-.(Siz|
00001b40  65 29 0d 0a dc 05 ed 0d  0a e6 05 ed 0d 0a f0 11  |e)..............|
00001b50  73 69 7a 65 3d 73 69 7a  65 2f 31 2e 39 0d 0a fa  |size=size/1.9...|
00001b60  2c e7 20 73 69 7a 65 3e  2e 34 20 8c 20 f2 62 72  |,. size>.4 . .br|
00001b70  61 6e 63 68 28 62 58 2d  73 69 7a 65 2c 62 59 2c  |anch(bX-size,bY,|
00001b80  73 69 7a 65 2c 69 6e 76  29 0d 0b 04 49 e7 20 73  |size,inv)...I. s|
00001b90  69 7a 65 3e 32 2e 32 38  2d 62 59 2f 35 30 30 20  |ize>2.28-bY/500 |
00001ba0  8c 20 f2 62 72 61 6e 63  68 28 62 58 2d 28 73 69  |. .branch(bX-(si|
00001bb0  7a 65 20 81 32 29 2d 74  69 6c 74 2c 62 59 2b 28  |ze .2)-tilt,bY+(|
00001bc0  73 69 7a 65 2a 33 38 29  2c 73 69 7a 65 2c 69 6e  |size*38),size,in|
00001bd0  76 29 0d 0b 0e 05 e1 0d  0b 18 23 dd f2 73 67 65  |v)........#..sge|
00001be0  74 28 6e 61 6d 65 24 29  3a ec 30 2c 37 30 34 3a  |t(name$):.0,704:|
00001bf0  ec 31 32 38 30 2c 31 30  32 34 0d 0b 22 16 ff 28  |.1280,1024.."..(|
00001c00  22 53 47 45 54 20 22 2b  6e 61 6d 65 24 29 3a e1  |"SGET "+name$):.|
00001c10  0d 0b 2c 15 dd f2 74 65  78 74 3a 74 69 6d 65 2b  |..,...text:time+|
00001c20  3d 74 41 64 64 0d 0b 36  0a f7 20 8d 64 4c 4b 0d  |=tAdd..6.. .dLK.|
00001c30  0b 40 09 f3 20 6d 61 78  0d 0b 4a 38 e7 20 74 69  |.@.. max..J8. ti|
00001c40  6d 65 3c 30 20 8c 20 74  65 78 74 2b 3d 31 3a 74  |me<0 . text+=1:t|
00001c50  69 6d 65 3d 30 3a 74 41  64 64 3d 32 3a e7 20 74  |ime=0:tAdd=2:. t|
00001c60  65 78 74 3e 6d 61 78 20  8c 20 74 65 78 74 3d 31  |ext>max . text=1|
00001c70  0d 0b 54 10 e3 20 58 3d  31 20 b8 20 74 65 78 74  |..T.. X=1 . text|
00001c80  0d 0b 5e 0b f3 20 74 65  78 74 24 0d 0b 68 05 ed  |..^.. text$..h..|
00001c90  0d 0b 72 2e 74 41 64 64  2d 3d a9 28 74 65 78 74  |..r.tAdd-=.(text|
00001ca0  24 29 2f 35 35 30 3a e7  20 a9 28 74 65 78 74 24  |$)/550:. .(text$|
00001cb0  29 3d 30 20 8c 20 74 41  64 64 2d 3d 2e 31 0d 0b  |)=0 . tAdd-=.1..|
00001cc0  7c 1d 78 3d 28 74 69 6d  65 2b 2e 35 35 29 2a 28  ||.x=(time+.55)*(|
00001cd0  a9 28 74 65 78 74 24 29  2f 32 29 0d 0b 86 13 e3  |.(text$)/2).....|
00001ce0  20 63 6f 6c 3d 30 20 b8  20 34 20 88 20 34 0d 0b  | col=0 . 4 . 4..|
00001cf0  90 10 e6 30 2c 63 6f 6c  2a 31 35 2e 37 35 0d 0b  |...0,col*15.75..|
00001d00  9a 14 e3 20 58 3d 31 20  b8 20 a9 28 74 65 78 74  |... X=1 . .(text|
00001d10  24 29 0d 0b a4 3c ec 20  58 2a 74 69 6d 65 2d 78  |$)...<. X*time-x|
00001d20  2b 63 6f 6c 2c 31 31 30  2b 63 6f 6c 2d 28 74 69  |+col,110+col-(ti|
00001d30  6d 65 2a b5 28 28 58 2b  74 69 6d 65 29 2f 32 29  |me*.((X+time)/2)|
00001d40  29 3a f1 c1 74 65 78 74  24 2c 58 2c 31 29 0d 0b  |):..text$,X,1)..|
00001d50  ae 05 ed 0d 0b b8 09 ed  20 63 6f 6c 0d 0b c2 05  |........ col....|
00001d60  e1 0d 0b cc 08 dc 20 33  33 0d 0b d6 2c dc 20 57  |...... 33...,. W|
00001d70  65 6c 63 6f 6d 65 20 74  6f 20 27 33 44 2d 44 45  |elcome to '3D-DE|
00001d80  4d 4f 27 20 62 79 20 44  61 76 69 64 20 48 69 6e  |MO' by David Hin|
00001d90  64 6c 65 79 2e 0d 0b e0  25 dc 20 22 50 6c 65 61  |dley....%. "Plea|
00001da0  73 65 20 68 61 6e 67 20  6f 6e 20 74 6f 20 79 6f  |se hang on to yo|
00001db0  75 72 20 6d 6f 75 73 65  2c 22 0d 0b ea 2a dc 20  |ur mouse,"...*. |
00001dc0  61 6e 64 20 66 61 73 74  65 6e 20 79 6f 75 72 20  |and fasten your |
00001dd0  64 69 73 63 20 64 72 69  76 65 20 66 69 72 6d 6c  |disc drive firml|
00001de0  79 2e 2e 2e 0d 0b f4 34  dc 20 79 6f 75 72 20 63  |y......4. your c|
00001df0  6f 6d 70 75 74 65 72 20  69 73 20 69 6e 20 66 6f  |omputer is in fo|
00001e00  72 20 6f 6e 65 20 68 2a  2a 6c 20 6f 66 20 61 20  |r one h**l of a |
00001e10  72 69 64 65 21 2c 22 22  0d 0b fe 33 dc 20 54 68  |ride!,""...3. Th|
00001e20  69 73 20 64 65 6d 6f 20  77 61 73 20 77 72 69 74  |is demo was writ|
00001e30  74 65 6e 20 74 6f 20 64  65 6d 6f 6e 73 74 72 61  |ten to demonstra|
00001e40  74 65 20 74 68 65 20 6d  61 6e 79 0d 0c 08 3f dc  |te the many...?.|
00001e50  20 22 67 72 61 70 68 69  63 20 72 6f 75 74 69 6e  | "graphic routin|
00001e60  65 73 20 61 76 61 69 6c  61 62 6c 65 20 69 6e 20  |es available in |
00001e70  74 68 65 20 41 72 63 68  69 65 27 73 20 65 6e 76  |the Archie's env|
00001e80  69 72 6f 6e 6d 65 6e 74  2c 22 0d 0c 12 48 dc 20  |ironment,"...H. |
00001e90  22 77 68 69 6c 65 20 62  65 69 6e 67 20 77 72 69  |"while being wri|
00001ea0  74 74 65 6e 20 69 6e 20  63 6f 6d 70 72 65 68 65  |tten in comprehe|
00001eb0  6e 73 69 62 6c 65 2c 20  67 6f 6f 64 20 6f 6c 64  |nsible, good old|
00001ec0  20 66 61 73 68 69 6f 6e  65 64 20 42 41 53 49 43  | fashioned BASIC|
00001ed0  2e 22 0d 0c 1c 3b dc 20  59 6f 75 20 63 61 6e 20  |."...;. You can |
00001ee0  63 6f 6e 74 72 6f 6c 20  74 68 65 20 73 74 61 6e  |control the stan|
00001ef0  64 61 72 64 20 73 74 61  74 65 20 6f 66 20 74 68  |dard state of th|
00001f00  65 20 61 72 74 20 73 70  68 65 72 65 73 0d 0c 26  |e art spheres..&|
00001f10  3a dc 20 75 73 69 6e 67  20 74 68 65 20 63 75 72  |:. using the cur|
00001f20  73 6f 72 20 6b 65 79 73  20 28 74 68 65 20 67 72  |sor keys (the gr|
00001f30  65 79 20 61 72 72 6f 77  73 20 6f 6e 20 74 68 65  |ey arrows on the|
00001f40  20 72 69 67 68 74 29 0d  0c 30 43 dc 20 22 54 68  | right)..0C. "Th|
00001f50  65 20 62 61 63 6b 67 72  6f 75 6e 64 20 63 68 61  |e background cha|
00001f60  6e 67 65 73 20 65 76 65  72 79 20 6e 6f 77 20 61  |nges every now a|
00001f70  6e 64 20 61 67 61 69 6e  20 61 6e 64 20 57 48 41  |nd again and WHA|
00001f80  54 27 53 20 4d 4f 52 45  2c 22 0d 0c 3a 3b dc 20  |T'S MORE,"..:;. |
00001f90  79 6f 75 20 6d 61 79 20  63 68 61 6e 67 65 20 69  |you may change i|
00001fa0  74 20 79 6f 75 72 73 65  6c 66 20 75 73 69 6e 67  |t yourself using|
00001fb0  20 27 42 27 20 6f 6e 20  74 68 65 20 6b 65 79 62  | 'B' on the keyb|
00001fc0  6f 61 72 64 2e 0d 0c 44  1e dc 20 28 70 72 65 74  |oard...D.. (pret|
00001fd0  74 79 20 6c 6f 67 69 63  61 6c 20 68 75 68 3f 29  |ty logical huh?)|
00001fe0  2c 22 22 0d 0c 4e 2e dc  20 48 65 72 65 20 63 6f  |,""..N.. Here co|
00001ff0  6d 65 73 20 74 68 65 20  63 6f 6d 70 75 6c 73 6f  |mes the compulso|
00002000  72 79 20 63 72 65 64 69  74 20 6c 69 73 74 2e 2e  |ry credit list..|
00002010  2e 0d 0c 58 40 dc 20 59  6f 20 74 6f 20 53 68 61  |...X@. Yo to Sha|
00002020  72 70 79 20 21 20 54 68  61 6e 6b 73 20 66 6f 72  |rpy ! Thanks for|
00002030  20 61 6c 6c 20 79 6f 75  72 20 65 6e 63 6f 75 72  | all your encour|
00002040  61 67 65 6d 65 6e 74 20  28 48 6f 20 48 6f 21 29  |agement (Ho Ho!)|
00002050  3b 0d 0c 62 38 dc 20 22  41 20 62 69 67 20 48 69  |;..b8. "A big Hi|
00002060  20 74 6f 20 6d 79 20 70  61 72 65 6e 74 73 2c 20  | to my parents, |
00002070  74 68 61 6e 6b 73 20 66  6f 72 20 74 68 65 20 45  |thanks for the E|
00002080  6c 65 63 74 72 69 63 3b  22 0d 0c 6c 24 dc 20 41  |lectric;"..l$. A|
00002090  6c 73 6f 20 49 27 64 20  6c 69 6b 65 20 74 6f 20  |lso I'd like to |
000020a0  73 61 79 20 68 69 20 74  6f 20 2e 2e 2e 0d 0c 76  |say hi to .....v|
000020b0  20 dc 20 42 2e 49 2e 41  2e 20 2d 20 67 72 65 61  | . B.I.A. - grea|
000020c0  74 20 64 65 6d 6f 73 20  67 75 79 73 3b 0d 0c 80  |t demos guys;...|
000020d0  31 dc 20 61 6c 6c 20 74  68 65 20 74 65 61 63 68  |1. all the teach|
000020e0  65 72 73 20 61 74 20 54  77 6f 20 54 72 65 65 73  |ers at Two Trees|
000020f0  20 48 69 67 68 73 63 68  6f 6f 6c 2e 2e 2e 0d 0c  | Highschool.....|
00002100  8a 30 dc 20 73 65 65 20  55 20 61 72 6f 75 6e 64  |.0. see U around|
00002110  20 73 6f 6d 65 20 74 69  6d 65 20 2d 68 6f 70 65  | some time -hope|
00002120  66 75 6c 6c 79 20 6e 6f  74 21 20 2e 2e 2e 0d 0c  |fully not! .....|
00002130  94 3b dc 20 6f 6e 6c 79  20 6b 69 64 64 69 6e 67  |.;. only kidding|
00002140  21 20 59 6f 75 27 76 65  20 62 65 65 6e 20 67 72  |! You've been gr|
00002150  65 61 74 20 2e 2e 2e 20  6d 6f 73 74 20 6f 66 20  |eat ... most of |
00002160  74 68 65 20 74 69 6d 65  21 0d 0c 9e 2c dc 20 47  |the time!...,. G|
00002170  75 27 64 61 79 20 74 6f  20 61 6c 6c 20 66 65 6c  |u'day to all fel|
00002180  6c 6f 77 20 65 78 2d 66  69 66 74 68 20 79 65 61  |low ex-fifth yea|
00002190  72 73 2e 2e 2e 0d 0c a8  38 dc 20 22 67 6f 6f 64  |rs......8. "good|
000021a0  20 6c 75 63 6b 20 69 6e  20 74 68 65 20 66 75 74  | luck in the fut|
000021b0  75 72 65 2c 20 77 68 61  74 65 76 65 72 20 69 74  |ure, whatever it|
000021c0  20 6d 69 67 68 74 20 62  65 20 21 3b 22 0d 0c b2  | might be !;"...|
000021d0  39 dc 20 22 42 6f 6e 6a  6f 75 72 2c 20 74 6f 20  |9. "Bonjour, to |
000021e0  61 6e 79 6f 6e 65 20 65  6c 73 65 20 77 68 6f 20  |anyone else who |
000021f0  6b 6e 6f 77 73 20 6d 65  3b 20 61 6e 64 20 66 69  |knows me; and fi|
00002200  6e 61 6c 6c 79 22 0d 0c  bc 30 dc 20 74 68 61 6e  |nally"...0. than|
00002210  6b 73 20 74 6f 20 79 6f  75 20 66 6f 72 20 77 61  |ks to you for wa|
00002220  74 63 68 69 6e 67 20 6d  79 20 62 72 69 6c 6c 20  |tching my brill |
00002230  64 65 6d 6f 20 21 0d 0c  c6 44 dc 20 22 41 6e 79  |demo !...D. "Any|
00002240  77 61 79 20 74 68 61 74  27 73 20 61 6c 6c 20 66  |way that's all f|
00002250  72 6f 6d 20 6d 65 20 66  6f 72 20 6e 6f 77 2c 20  |rom me for now, |
00002260  62 75 74 20 79 6f 75 20  6d 61 79 20 73 65 65 20  |but you may see |
00002270  6d 65 20 61 67 61 69 6e  2c 22 0d 0c d0 3a dc 20  |me again,"...:. |
00002280  28 6f 72 20 61 74 20 6c  65 61 73 74 20 6d 79 20  |(or at least my |
00002290  70 72 6f 67 72 61 6d 73  29 20 69 6e 20 74 68 65  |programs) in the|
000022a0  20 76 65 72 79 20 6e 65  61 72 20 66 75 74 75 72  | very near futur|
000022b0  65 2e 2e 2e 0d 0c da 33  dc 20 22 48 65 69 67 68  |e......3. "Heigh|
000022c0  2d 48 6f 20 48 65 69 67  68 2d 48 6f 2c 20 69 74  |-Ho Heigh-Ho, it|
000022d0  73 20 6f 66 66 20 74 6f  20 65 78 61 6d 73 20 49  |s off to exams I|
000022e0  20 67 6f 2e 2e 2e 22 0d  0c e4 1a dc 20 42 79 65  | go..."..... Bye|
000022f0  20 62 6f 79 73 20 61 6e  64 20 67 69 72 6c 73 20  | boys and girls |
00002300  21 0d 0c ee 24 dc 20 22  41 75 20 52 65 76 6f 69  |!...$. "Au Revoi|
00002310  72 2c 20 6c 61 64 69 65  73 20 61 6e 64 20 67 65  |r, ladies and ge|
00002320  6e 74 73 21 22 0d 0c f8  19 dc 20 22 57 61 76 65  |nts!"..... "Wave|
00002330  20 62 79 65 2d 62 79 65  20 21 22 2c 22 22 0d ff  | bye-bye !",""..|
00002340