Home » Archimedes archive » Acorn Computing » 1993 07 Mega Disk.adf » 93_07 » DataVision/!DataVis/Accs/CASHBOOKG/Miscellany/!TimeLapse/!RunImage

DataVision/!DataVis/Accs/CASHBOOKG/Miscellany/!TimeLapse/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn Computing » 1993 07 Mega Disk.adf » 93_07
Filename: DataVision/!DataVis/Accs/CASHBOOKG/Miscellany/!TimeLapse/!RunImage
Read OK:
File size: 1575 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > !TimeLapse.!RunImage
   20REM Time Lapse Demo
   30REM By David Hindley
   40REM Archimedes/A3000 version.
   50REM (c) Acorn User 1992
   60VOICES2
   70dis=2:wri=1
   80ON ERROR PROCerror:END
   90SYS "OS_UpdateMEMC",64,64
  100MODE12:VDU23;8202;0;0;0;29,640;0;
  110PROCsetup
  120REPEAT
  130PROCscreen
  140PROCredraw
  150PROCfade
  160PROCclouds
  170PROChills(2,12,50,80)
  180PROCtrees
  190PROCtext
  200UNTIL FALSE
  210END
  220DEFPROCsetup:frame=0:text=0
  230PROCreset:oneB=12:twoR=12:twoB=12:sunset=TRUE
  240VDU5,19,8,16,10*16,6*16,3*16,19,10,16,12*16,12*16,12*16,19,13,16,5*16,5*16,5*16:PROCfade
  250FOR X=13 TO 15
  260VDU19,X,16,(X-13)*127,(X-13)*127,(X-13)*127
  270NEXT
  280MOVE-100,450:GCOL0,15:PRINT"Just a mo..."
  290DIM X%(4),Y%(4),S%(4)
  300FOR Cloud=0 TO 3
  310X%(Cloud)=RND(1280)-640:Y%(Cloud)=780+RND(220):S%(Cloud)=40+RND(60)
  320NEXT
  330scale=0
  340TIME=0:PROCsky:PROCstars:PROCmoon
  350MOVE-640,704:MOVE640,1024:*SGET sky
  360PROCground
  370ENDPROC
  380DEFPROCmoon:GCOL0,7
  390Old=-1000:dummy=RND(-1)
  400VDU29,100;924;
  410FOR I=270TO450STEP1.5
  420X%=80*COS(RADI):Y%=80*SIN(RAD I):col=1:IF Y%>=Old+4 THEN Old=Y%:N%=0:FOR J%=-X%TOX%STEP2 ELSE GOTO470
  430col+=0.14:N%+=1
  440Rnd=RND(N%)
  450IF Rnd<9 THEN POINT J%,Y%
  460NEXT J%
  470NEXT I
  480VDU29,640;0;
  490ENDPROC
  500DEFPROCclouds:GCOL0,10
  510FOR Cloud=0 TO 3:dummy=RND(-1)
  520X%(Cloud)+=(S%(Cloud)-40)DIV3:IF X%(Cloud)>640+(S%(Cloud)*3)THEN X%(Cloud)=-X%(Cloud)
  530FOR I%=0 TO S%(Cloud)+4 STEP8
  540x=X%(Cloud)-I%:x2=X%(Cloud)+I%:rnd=I%*2:y=Y%(Cloud)+S%(Cloud)-I%
  550PROCDRAW(x-RND(rnd),y,x2+RND(rnd))
  560PROCDRAW(x-RND(rnd),y+4,x2+RND(rnd))
  570PROCDRAW(x-RND(rnd),Y%(Cloud)-(S%(Cloud)DIV2)+(I% DIV2),x2+RND(rnd))
  580NEXT I%
  590NEXT Cloud
  600ENDPROC
  610DEFPROCDRAW(X1%,Y1%,X2%)
  620MOVE X1%,Y1%:DRAW X2%,Y1%
  630ENDPROC
  640DEFPROCground:F=FALSE
  650FOR ground=-613 TO 578 STEP 35
  660IF F THEN GCOL0,2 ELSE GCOL0,12
  670MOVE ground+14,700:MOVE (ground*30)+14,0:PLOT 85,ground+49,700:PLOT 85,((ground+35)*30)+14,0
  680F=NOT F:NEXT
  690MOVE-640,0:MOVE640,700:*SGET ground
  700ENDPROC
  710DEFPROCstars:GCOL0,7
  720FOR Star=0 TO 100
  730sX=RND(1280)-640:sY=700+RND(320)
  740Po1=POINT(sX,sY)
  750POINT sX,sY
  760NEXT:ENDPROC
  770DEFPROCsky:GCOL0,4
  780FOR X=-640 TO 640 STEP 2
  790FOR Y=704 TO 850 STEP 4
  800Rnd=RND(Y-700)
  810IF Rnd<15 THEN POINT X,Y
  820NEXT:NEXT
  830ENDPROC
  840DEFPROChills(col,col2,add,size):dummy=RND(-1)
  850X=-640:REPEAT
  860lineX=RND(size):lineY=RND(size)
  870MOVE X,704:MOVE X+16+lineX,714+lineY
  880pos=X+size+RND(size):GCOL0,col TINT192:PLOT 85,pos,704
  890GCOL0,col2 TINT0:PLOT 85,pos+(size DIV4)+RND(size DIV5),704
  900MOVE X,704:DRAW X+16+lineX,714+lineY
  910X+=RND(add)+RND(size)
  920UNTIL X>740
  930ENDPROC
  940DEFPROCtrees
  950IF scale<1 THEN scale+=.003
  960dummy=RND(-1)
  970PROCtree(1,640,200,16*scale)
  980PROCtree(.45,608,530,8*scale)
  990PROCtree(.18,566,654,4*scale)
 1000ENDPROC
 1010DEFPROCtree(inv,Xpos,Ypos,Size):centre=-640
 1020PROCbranch(Xpos,Ypos,Size,Size,inv)
 1030GCOL0,13:pos=640*inv
 1040MOVE -pos,Ypos-(Size DIV2):MOVE -pos,(Ypos-(Size DIV2))+Size:PLOT 85,centre,Ypos
 1050MOVE pos,Ypos-(Size DIV2):MOVE pos,(Ypos-(Size DIV2))+Size:PLOT 85,-centre,Ypos
 1060GCOL0,8:RECTANGLE FILL -Xpos*inv,Ypos,Size*1.5,Size DIV2
 1070RECTANGLE FILL Xpos*inv,Ypos,-Size*1.5,Size DIV2
 1080ENDPROC
 1090DEFPROCbranch(X,Y,s,Size,inv)
 1100LOCAL bX,bY,size,tilt
 1110bX=X:bY=Y:size=s
 1120tilt=640-bX+RND(15):x1=bX-size:x2=bX-size-tilt:x3=bX-(size DIV2):x4=bX-((size-tilt)DIV2)
 1130FOR i=-inv TO inv STEP inv*2
 1140GCOL0,8
 1150MOVE bX*i,bY:MOVE x1*i,bY:PLOT &75,x2*i,bY+(size*20)
 1160GCOL0,2:PLOT 21,bX*i,bY
 1170IF x2*i>centre AND x2*i<Size*9 THEN centre=x2*i
 1180GCOL0,8
 1190MOVE bX*i,bY:MOVE x3*i,bY:PLOT &75,x4*i,bY+(size*20)
 1200GCOL0,2:PLOT 21,bX*i,bY
 1210NEXT
 1220size=size/1.9
 1230IF size>0.4 THEN PROCbranch(bX-size,bY,size,Size,inv)
 1240IF size>2.28-bY/500 THEN PROCbranch(bX-(size DIV2)-tilt,bY+(size*38),size,Size,inv)
 1250ENDPROC
 1260DEFPROCerror
 1270ON ERROR OFF
 1280SYS "OS_UpdateMEMC",0,64
 1290MODE12
 1300SYS "OS_Byte",112,1
 1310SYS "OS_Byte",113,1
 1320IF ERR=17 THEN ENDPROC
 1330REPORT:PRINT" at line ";ERL
 1340ENDPROC
 1350DEFPROCscreen
 1360SWAP dis,wri
 1370PROCdis(dis):PROCwri(wri)
 1380ENDPROC
 1390DEFPROCdis(dis)
 1400SYS "OS_Byte",113,dis:ENDPROC
 1410DEFPROCwri(wri)
 1420SYS "OS_Byte",112,wri:ENDPROC
 1430DEFPROCredraw:GCOL0,0:*SCHOOSE sky
 1440PLOT &ED,-640,704
 1450GCOL0,11:frame-=360/392
 1460VDU29,640;650;
 1470X%=650*COS(RAD(frame)):Y%=400*SIN(RAD(frame))
 1480col=Y%/1.4:IF col>255 THEN col=255
 1490IF col<0 THEN col=0
 1500VDU19,11,16,15*16,col,0
 1510CIRCLE FILL X%,Y%,100
 1520VDU29,640;0;
 1530GCOL0,0:*SCHOOSE ground
 1540PLOT &ED,-640,0:ENDPROC
 1550DEFPROCfade
 1560IF INT(oneB+.1)=12 AND INT(twoR+.1)=12 AND sunset THEN PROCreset:oneBadd=-.1:twoRadd=-.05:frame=0:REM fade sunset to night
 1570IF oneB<.1 THEN PROCreset:oneBadd=.1:twoRadd=.05:sunset=FALSE:REM fade night to sunrise
 1580IF INT(oneB+.1)=12 AND INT(twoR+.1)=12 AND oneBadd>0 THEN PROCreset:twoBadd=.05:twoRadd=-.1:REM fade sunrise to day
 1590IF INT(twoB+.1)>15 THEN PROCreset:sunset=TRUE:twoBadd=-.05:twoRadd=.1:REM fade day to sunset
 1600oneB+=oneBadd
 1610twoR+=twoRadd:twoB+=twoBadd
 1620VDU 19,0,16,0,0,oneB*16
 1630VDU 19,4,16,twoR*16,0,twoB*16
 1640moon=oneB:IF moon<10 THEN moon=10
 1650VDU19,7,16,(15-oneB)*16,(15-oneB)*16,moon*16:REM moon/stars fade.
 1660VDU19,12,16,0,moon*16,0
 1670ENDPROC
 1680DEFPROCreset
 1690oneBadd=0:twoRadd=0:twoBadd=0
 1700ENDPROC
 1710DEFPROCtext
 1720IF TIME>500 THEN text+=1:TIME=0
 1730RESTORE 1850
 1740READ max
 1750IF text>max THEN text=1
 1760FOR X=1 TO text
 1770READ text$
 1780NEXT:IF text$="" THEN text$=STRING$(40,".")
 1790pos=-600:jump=584/(LEN(text$)/2)
 1800FOR letter=1 TO LEN(text$)
 1810GCOL0,13+(TIME MOD3)
 1820MOVE pos+(letter*jump),100+(SIN((letter/2)+(TIME/100))*30):PRINT MID$(text$,letter,1)
 1830NEXT letter
 1840ENDPROC
 1850DATA 22
 1860DATA "Welcome to 'Time Lapse', by David Hindley."
 1870DATA (c) Acorn User 1992,""
 1880DATA This demo extends upon my last demo - '3D Demo'...
 1890DATA "and uses similar routines, but in a far different way.",""
 1900DATA This time its the turn of the background to be animated
 1910DATA "and just to be different, it all happens on weird time scales"
 1920DATA "hence the title:-Time Lapse!"
 1930DATA Stick around and keep an eye on the sky...
 1940DATA while watching those trees grow steadily skyward!,""
 1950DATA Hello to the following...
 1960DATA all now NOT at Two Trees HighSchool...
 1970DATA "'Bon Chance' to all, especially those who hate French!;"
 1980DATA "A big wave to my parents, thanks guys;"
 1990DATA "and finally thanks to you for watching my brill revamped demo!",""
 2000DATA "Heigh-Ho Heigh-Ho, its off to Hyde College I go...",""
 2010DATA See ya !,""

� > !TimeLapse.!RunImage
� Time Lapse Demo
� By David Hindley
(� Archimedes/A3000 version.
2� (c) Acorn User 1992
<Ƞ2
Fdis=2:wri=1
P� � �error:�
Zș "OS_UpdateMEMC",64,64
d �12:�23;8202;0;0;0;29,640;0;
n
�setup
x�
��screen
��redraw
�	�fade
��clouds
��hills(2,12,50,80)
�
�trees
�	�text
�� �
��
���setup:frame=0:text=0
�+�reset:oneB=12:twoR=12:twoB=12:sunset=�
�W�5,19,8,16,10*16,6*16,3*16,19,10,16,12*16,12*16,12*16,19,13,16,5*16,5*16,5*16:�fade
�� X=13 � 15
-�19,X,16,(X-13)*127,(X-13)*127,(X-13)*127
�
#�-100,450:�0,15:�"Just a mo..."
"� X%(4),Y%(4),S%(4)
,� Cloud=0 � 3
6AX%(Cloud)=�(1280)-640:Y%(Cloud)=780+�(220):S%(Cloud)=40+�(60)
@�
Jscale=0
T�=0:�sky:�stars:�moon
^!�-640,704:�640,1024:*SGET sky
h�ground
r�
|��moon:�0,7
�Old=-1000:dummy=�(-1)
��29,100;924;
�� I=270�450�1.5
�RX%=80*�(�I):Y%=80*�(� I):col=1:� Y%>=Old+4 � Old=Y%:N%=0:� J%=-X%�X%�2 � �dVA
�col+=0.14:N%+=1
�
Rnd=�(N%)
�� Rnd<9 � Ȓ J%,Y%
�� J%
�� I
��29,640;0;
��
���clouds:�0,10
�� Cloud=0 � 3:dummy=�(-1)
SX%(Cloud)+=(S%(Cloud)-40)�3:� X%(Cloud)>640+(S%(Cloud)*3)� X%(Cloud)=-X%(Cloud)
� I%=0 � S%(Cloud)+4 �8
Dx=X%(Cloud)-I%:x2=X%(Cloud)+I%:rnd=I%*2:y=Y%(Cloud)+S%(Cloud)-I%
&�DRAW(x-�(rnd),y,x2+�(rnd))
0!�DRAW(x-�(rnd),y+4,x2+�(rnd))
:=�DRAW(x-�(rnd),Y%(Cloud)-(S%(Cloud)�2)+(I% �2),x2+�(rnd))
D� I%
N� Cloud
X�
b��DRAW(X1%,Y1%,X2%)
l� X1%,Y1%:� X2%,Y1%
v�
���ground:F=�
�� ground=-613 � 578 � 35
�� F � �0,2 � �0,12
�T� ground+14,700:� (ground*30)+14,0:� 85,ground+49,700:� 85,((ground+35)*30)+14,0
�F=� F:�
�!�-640,0:�640,700:*SGET ground
��
���stars:�0,7
�� Star=0 � 100
� sX=�(1280)-640:sY=700+�(320)
�Po1=�sX,sY)
�Ȓ sX,sY
��:�
��sky:�0,4
� X=-640 � 640 � 2
� Y=704 � 850 � 4
 Rnd=�(Y-700)
*� Rnd<15 � Ȓ X,Y
4�:�
>�
H*��hills(col,col2,add,size):dummy=�(-1)
RX=-640:�
\lineX=�(size):lineY=�(size)
f"� X,704:� X+16+lineX,714+lineY
p0pos=X+size+�(size):�0,col Ȝ192:� 85,pos,704
z1�0,col2 Ȝ0:� 85,pos+(size �4)+�(size �5),704
�"� X,704:� X+16+lineX,714+lineY
�X+=�(add)+�(size)
�� X>740
��
���trees
�� scale<1 � scale+=.003
�dummy=�(-1)
��tree(1,640,200,16*scale)
��tree(.45,608,530,8*scale)
��tree(.18,566,654,4*scale)
��
�*��tree(inv,Xpos,Ypos,Size):centre=-640
�$�branch(Xpos,Ypos,Size,Size,inv)
�0,13:pos=640*inv
G� -pos,Ypos-(Size �2):� -pos,(Ypos-(Size �2))+Size:� 85,centre,Ypos
F� pos,Ypos-(Size �2):� pos,(Ypos-(Size �2))+Size:� 85,-centre,Ypos
$.�0,8:ȓ Ȑ -Xpos*inv,Ypos,Size*1.5,Size �2
.)ȓ Ȑ Xpos*inv,Ypos,-Size*1.5,Size �2
8�
B��branch(X,Y,s,Size,inv)
L� bX,bY,size,tilt
VbX=X:bY=Y:size=s
`Vtilt=640-bX+�(15):x1=bX-size:x2=bX-size-tilt:x3=bX-(size �2):x4=bX-((size-tilt)�2)
j� i=-inv � inv � inv*2
t�0,8
~/� bX*i,bY:� x1*i,bY:� &75,x2*i,bY+(size*20)
��0,2:� 21,bX*i,bY
�-� x2*i>centre � x2*i<Size*9 � centre=x2*i
��0,8
�/� bX*i,bY:� x3*i,bY:� &75,x4*i,bY+(size*20)
��0,2:� 21,bX*i,bY
��
�size=size/1.9
�2� size>0.4 � �branch(bX-size,bY,size,Size,inv)
�N� size>2.28-bY/500 � �branch(bX-(size �2)-tilt,bY+(size*38),size,Size,inv)
��
���error
�	� � �
ș "OS_UpdateMEMC",0,64

�12
ș "OS_Byte",112,1
ș "OS_Byte",113,1
(� �=17 � �
2�:�" at line ";�
<�
F��screen
PȔ dis,wri
Z�dis(dis):�wri(wri)
d�
n��dis(dis)
xș "OS_Byte",113,dis:�
���wri(wri)
�ș "OS_Byte",112,wri:�
���redraw:�0,0:*SCHOOSE sky
�� &ED,-640,704
��0,11:frame-=360/392
��29,640;650;
�)X%=650*�(�(frame)):Y%=400*�(�(frame))
�"col=Y%/1.4:� col>255 � col=255
�� col<0 � col=0
��19,11,16,15*16,col,0
�ȏ Ȑ X%,Y%,100
��29,640;0;
��0,0:*SCHOOSE ground
� &ED,-640,0:�

��fade
m� �(oneB+.1)=12 � �(twoR+.1)=12 � sunset � �reset:oneBadd=-.1:twoRadd=-.05:frame=0:� fade sunset to night
"N� oneB<.1 � �reset:oneBadd=.1:twoRadd=.05:sunset=�:� fade night to sunrise
,f� �(oneB+.1)=12 � �(twoR+.1)=12 � oneBadd>0 � �reset:twoBadd=.05:twoRadd=-.1:� fade sunrise to day
6R� �(twoB+.1)>15 � �reset:sunset=�:twoBadd=-.05:twoRadd=.1:� fade day to sunset
@oneB+=oneBadd
JtwoR+=twoRadd:twoB+=twoBadd
T� 19,0,16,0,0,oneB*16
^� 19,4,16,twoR*16,0,twoB*16
h!moon=oneB:� moon<10 � moon=10
rA�19,7,16,(15-oneB)*16,(15-oneB)*16,moon*16:� moon/stars fade.
|�19,12,16,0,moon*16,0
��
���reset
�!oneBadd=0:twoRadd=0:twoBadd=0
��
�
��text
�� �>500 � text+=1:�=0
�
� �TzG
�	� max
�� text>max � text=1
�� X=1 � text
�� text$
�!�:� text$="" � text$=�40,".")
�"pos=-600:jump=584/(�(text$)/2)
� letter=1 � �(text$)
�0,13+(� �3)
I� pos+(letter*jump),100+(�((letter/2)+(�/100))*30):� �text$,letter,1)
&� letter
0�
:� 22
D2� "Welcome to 'Time Lapse', by David Hindley."
N� (c) Acorn User 1992,""
X8� This demo extends upon my last demo - '3D Demo'...
bA� "and uses similar routines, but in a far different way.",""
l=� This time its the turn of the background to be animated
vE� "and just to be different, it all happens on weird time scales"
�$� "hence the title:-Time Lapse!"
�0� Stick around and keep an eye on the sky...
�:� while watching those trees grow steadily skyward!,""
�� Hello to the following...
�,� all now NOT at Two Trees HighSchool...
�?� "'Bon Chance' to all, especially those who hate French!;"
�.� "A big wave to my parents, thanks guys;"
�I� "and finally thanks to you for watching my brill revamped demo!",""
�=� "Heigh-Ho Heigh-Ho, its off to Hyde College I go...",""
�� See ya !,""
�
00000000  0d 00 0a 1c f4 20 3e 20  21 54 69 6d 65 4c 61 70  |..... > !TimeLap|
00000010  73 65 2e 21 52 75 6e 49  6d 61 67 65 0d 00 14 15  |se.!RunImage....|
00000020  f4 20 54 69 6d 65 20 4c  61 70 73 65 20 44 65 6d  |. Time Lapse Dem|
00000030  6f 0d 00 1e 16 f4 20 42  79 20 44 61 76 69 64 20  |o..... By David |
00000040  48 69 6e 64 6c 65 79 0d  00 28 1f f4 20 41 72 63  |Hindley..(.. Arc|
00000050  68 69 6d 65 64 65 73 2f  41 33 30 30 30 20 76 65  |himedes/A3000 ve|
00000060  72 73 69 6f 6e 2e 0d 00  32 19 f4 20 28 63 29 20  |rsion...2.. (c) |
00000070  41 63 6f 72 6e 20 55 73  65 72 20 31 39 39 32 0d  |Acorn User 1992.|
00000080  00 3c 07 c8 a0 32 0d 00  46 0f 64 69 73 3d 32 3a  |.<...2..F.dis=2:|
00000090  77 72 69 3d 31 0d 00 50  10 ee 20 85 20 f2 65 72  |wri=1..P.. . .er|
000000a0  72 6f 72 3a e0 0d 00 5a  1c c8 99 20 22 4f 53 5f  |ror:...Z... "OS_|
000000b0  55 70 64 61 74 65 4d 45  4d 43 22 2c 36 34 2c 36  |UpdateMEMC",64,6|
000000c0  34 0d 00 64 20 eb 31 32  3a ef 32 33 3b 38 32 30  |4..d .12:.23;820|
000000d0  32 3b 30 3b 30 3b 30 3b  32 39 2c 36 34 30 3b 30  |2;0;0;0;29,640;0|
000000e0  3b 0d 00 6e 0a f2 73 65  74 75 70 0d 00 78 05 f5  |;..n..setup..x..|
000000f0  0d 00 82 0b f2 73 63 72  65 65 6e 0d 00 8c 0b f2  |.....screen.....|
00000100  72 65 64 72 61 77 0d 00  96 09 f2 66 61 64 65 0d  |redraw.....fade.|
00000110  00 a0 0b f2 63 6c 6f 75  64 73 0d 00 aa 16 f2 68  |....clouds.....h|
00000120  69 6c 6c 73 28 32 2c 31  32 2c 35 30 2c 38 30 29  |ills(2,12,50,80)|
00000130  0d 00 b4 0a f2 74 72 65  65 73 0d 00 be 09 f2 74  |.....trees.....t|
00000140  65 78 74 0d 00 c8 07 fd  20 a3 0d 00 d2 05 e0 0d  |ext..... .......|
00000150  00 dc 1a dd f2 73 65 74  75 70 3a 66 72 61 6d 65  |.....setup:frame|
00000160  3d 30 3a 74 65 78 74 3d  30 0d 00 e6 2b f2 72 65  |=0:text=0...+.re|
00000170  73 65 74 3a 6f 6e 65 42  3d 31 32 3a 74 77 6f 52  |set:oneB=12:twoR|
00000180  3d 31 32 3a 74 77 6f 42  3d 31 32 3a 73 75 6e 73  |=12:twoB=12:suns|
00000190  65 74 3d b9 0d 00 f0 57  ef 35 2c 31 39 2c 38 2c  |et=....W.5,19,8,|
000001a0  31 36 2c 31 30 2a 31 36  2c 36 2a 31 36 2c 33 2a  |16,10*16,6*16,3*|
000001b0  31 36 2c 31 39 2c 31 30  2c 31 36 2c 31 32 2a 31  |16,19,10,16,12*1|
000001c0  36 2c 31 32 2a 31 36 2c  31 32 2a 31 36 2c 31 39  |6,12*16,12*16,19|
000001d0  2c 31 33 2c 31 36 2c 35  2a 31 36 2c 35 2a 31 36  |,13,16,5*16,5*16|
000001e0  2c 35 2a 31 36 3a f2 66  61 64 65 0d 00 fa 0f e3  |,5*16:.fade.....|
000001f0  20 58 3d 31 33 20 b8 20  31 35 0d 01 04 2d ef 31  | X=13 . 15...-.1|
00000200  39 2c 58 2c 31 36 2c 28  58 2d 31 33 29 2a 31 32  |9,X,16,(X-13)*12|
00000210  37 2c 28 58 2d 31 33 29  2a 31 32 37 2c 28 58 2d  |7,(X-13)*127,(X-|
00000220  31 33 29 2a 31 32 37 0d  01 0e 05 ed 0d 01 18 23  |13)*127........#|
00000230  ec 2d 31 30 30 2c 34 35  30 3a e6 30 2c 31 35 3a  |.-100,450:.0,15:|
00000240  f1 22 4a 75 73 74 20 61  20 6d 6f 2e 2e 2e 22 0d  |."Just a mo...".|
00000250  01 22 17 de 20 58 25 28  34 29 2c 59 25 28 34 29  |.".. X%(4),Y%(4)|
00000260  2c 53 25 28 34 29 0d 01  2c 11 e3 20 43 6c 6f 75  |,S%(4)..,.. Clou|
00000270  64 3d 30 20 b8 20 33 0d  01 36 41 58 25 28 43 6c  |d=0 . 3..6AX%(Cl|
00000280  6f 75 64 29 3d b3 28 31  32 38 30 29 2d 36 34 30  |oud)=.(1280)-640|
00000290  3a 59 25 28 43 6c 6f 75  64 29 3d 37 38 30 2b b3  |:Y%(Cloud)=780+.|
000002a0  28 32 32 30 29 3a 53 25  28 43 6c 6f 75 64 29 3d  |(220):S%(Cloud)=|
000002b0  34 30 2b b3 28 36 30 29  0d 01 40 05 ed 0d 01 4a  |40+.(60)..@....J|
000002c0  0b 73 63 61 6c 65 3d 30  0d 01 54 19 d1 3d 30 3a  |.scale=0..T..=0:|
000002d0  f2 73 6b 79 3a f2 73 74  61 72 73 3a f2 6d 6f 6f  |.sky:.stars:.moo|
000002e0  6e 0d 01 5e 21 ec 2d 36  34 30 2c 37 30 34 3a ec  |n..^!.-640,704:.|
000002f0  36 34 30 2c 31 30 32 34  3a 2a 53 47 45 54 20 73  |640,1024:*SGET s|
00000300  6b 79 0d 01 68 0b f2 67  72 6f 75 6e 64 0d 01 72  |ky..h..ground..r|
00000310  05 e1 0d 01 7c 0f dd f2  6d 6f 6f 6e 3a e6 30 2c  |....|...moon:.0,|
00000320  37 0d 01 86 19 4f 6c 64  3d 2d 31 30 30 30 3a 64  |7....Old=-1000:d|
00000330  75 6d 6d 79 3d b3 28 2d  31 29 0d 01 90 10 ef 32  |ummy=.(-1).....2|
00000340  39 2c 31 30 30 3b 39 32  34 3b 0d 01 9a 13 e3 20  |9,100;924;..... |
00000350  49 3d 32 37 30 b8 34 35  30 88 31 2e 35 0d 01 a4  |I=270.450.1.5...|
00000360  52 58 25 3d 38 30 2a 9b  28 b2 49 29 3a 59 25 3d  |RX%=80*.(.I):Y%=|
00000370  38 30 2a b5 28 b2 20 49  29 3a 63 6f 6c 3d 31 3a  |80*.(. I):col=1:|
00000380  e7 20 59 25 3e 3d 4f 6c  64 2b 34 20 8c 20 4f 6c  |. Y%>=Old+4 . Ol|
00000390  64 3d 59 25 3a 4e 25 3d  30 3a e3 20 4a 25 3d 2d  |d=Y%:N%=0:. J%=-|
000003a0  58 25 b8 58 25 88 32 20  8b 20 e5 8d 64 56 41 0d  |X%.X%.2 . ..dVA.|
000003b0  01 ae 13 63 6f 6c 2b 3d  30 2e 31 34 3a 4e 25 2b  |...col+=0.14:N%+|
000003c0  3d 31 0d 01 b8 0d 52 6e  64 3d b3 28 4e 25 29 0d  |=1....Rnd=.(N%).|
000003d0  01 c2 16 e7 20 52 6e 64  3c 39 20 8c 20 c8 92 20  |.... Rnd<9 . .. |
000003e0  4a 25 2c 59 25 0d 01 cc  08 ed 20 4a 25 0d 01 d6  |J%,Y%..... J%...|
000003f0  07 ed 20 49 0d 01 e0 0e  ef 32 39 2c 36 34 30 3b  |.. I.....29,640;|
00000400  30 3b 0d 01 ea 05 e1 0d  01 f4 12 dd f2 63 6c 6f  |0;...........clo|
00000410  75 64 73 3a e6 30 2c 31  30 0d 01 fe 1d e3 20 43  |uds:.0,10..... C|
00000420  6c 6f 75 64 3d 30 20 b8  20 33 3a 64 75 6d 6d 79  |loud=0 . 3:dummy|
00000430  3d b3 28 2d 31 29 0d 02  08 53 58 25 28 43 6c 6f  |=.(-1)...SX%(Clo|
00000440  75 64 29 2b 3d 28 53 25  28 43 6c 6f 75 64 29 2d  |ud)+=(S%(Cloud)-|
00000450  34 30 29 81 33 3a e7 20  58 25 28 43 6c 6f 75 64  |40).3:. X%(Cloud|
00000460  29 3e 36 34 30 2b 28 53  25 28 43 6c 6f 75 64 29  |)>640+(S%(Cloud)|
00000470  2a 33 29 8c 20 58 25 28  43 6c 6f 75 64 29 3d 2d  |*3). X%(Cloud)=-|
00000480  58 25 28 43 6c 6f 75 64  29 0d 02 12 1b e3 20 49  |X%(Cloud)..... I|
00000490  25 3d 30 20 b8 20 53 25  28 43 6c 6f 75 64 29 2b  |%=0 . S%(Cloud)+|
000004a0  34 20 88 38 0d 02 1c 44  78 3d 58 25 28 43 6c 6f  |4 .8...Dx=X%(Clo|
000004b0  75 64 29 2d 49 25 3a 78  32 3d 58 25 28 43 6c 6f  |ud)-I%:x2=X%(Clo|
000004c0  75 64 29 2b 49 25 3a 72  6e 64 3d 49 25 2a 32 3a  |ud)+I%:rnd=I%*2:|
000004d0  79 3d 59 25 28 43 6c 6f  75 64 29 2b 53 25 28 43  |y=Y%(Cloud)+S%(C|
000004e0  6c 6f 75 64 29 2d 49 25  0d 02 26 1f f2 44 52 41  |loud)-I%..&..DRA|
000004f0  57 28 78 2d b3 28 72 6e  64 29 2c 79 2c 78 32 2b  |W(x-.(rnd),y,x2+|
00000500  b3 28 72 6e 64 29 29 0d  02 30 21 f2 44 52 41 57  |.(rnd))..0!.DRAW|
00000510  28 78 2d b3 28 72 6e 64  29 2c 79 2b 34 2c 78 32  |(x-.(rnd),y+4,x2|
00000520  2b b3 28 72 6e 64 29 29  0d 02 3a 3d f2 44 52 41  |+.(rnd))..:=.DRA|
00000530  57 28 78 2d b3 28 72 6e  64 29 2c 59 25 28 43 6c  |W(x-.(rnd),Y%(Cl|
00000540  6f 75 64 29 2d 28 53 25  28 43 6c 6f 75 64 29 81  |oud)-(S%(Cloud).|
00000550  32 29 2b 28 49 25 20 81  32 29 2c 78 32 2b b3 28  |2)+(I% .2),x2+.(|
00000560  72 6e 64 29 29 0d 02 44  08 ed 20 49 25 0d 02 4e  |rnd))..D.. I%..N|
00000570  0b ed 20 43 6c 6f 75 64  0d 02 58 05 e1 0d 02 62  |.. Cloud..X....b|
00000580  17 dd f2 44 52 41 57 28  58 31 25 2c 59 31 25 2c  |...DRAW(X1%,Y1%,|
00000590  58 32 25 29 0d 02 6c 17  ec 20 58 31 25 2c 59 31  |X2%)..l.. X1%,Y1|
000005a0  25 3a df 20 58 32 25 2c  59 31 25 0d 02 76 05 e1  |%:. X2%,Y1%..v..|
000005b0  0d 02 80 10 dd f2 67 72  6f 75 6e 64 3a 46 3d a3  |......ground:F=.|
000005c0  0d 02 8a 1c e3 20 67 72  6f 75 6e 64 3d 2d 36 31  |..... ground=-61|
000005d0  33 20 b8 20 35 37 38 20  88 20 33 35 0d 02 94 16  |3 . 578 . 35....|
000005e0  e7 20 46 20 8c 20 e6 30  2c 32 20 8b 20 e6 30 2c  |. F . .0,2 . .0,|
000005f0  31 32 0d 02 9e 54 ec 20  67 72 6f 75 6e 64 2b 31  |12...T. ground+1|
00000600  34 2c 37 30 30 3a ec 20  28 67 72 6f 75 6e 64 2a  |4,700:. (ground*|
00000610  33 30 29 2b 31 34 2c 30  3a f0 20 38 35 2c 67 72  |30)+14,0:. 85,gr|
00000620  6f 75 6e 64 2b 34 39 2c  37 30 30 3a f0 20 38 35  |ound+49,700:. 85|
00000630  2c 28 28 67 72 6f 75 6e  64 2b 33 35 29 2a 33 30  |,((ground+35)*30|
00000640  29 2b 31 34 2c 30 0d 02  a8 0b 46 3d ac 20 46 3a  |)+14,0....F=. F:|
00000650  ed 0d 02 b2 21 ec 2d 36  34 30 2c 30 3a ec 36 34  |....!.-640,0:.64|
00000660  30 2c 37 30 30 3a 2a 53  47 45 54 20 67 72 6f 75  |0,700:*SGET grou|
00000670  6e 64 0d 02 bc 05 e1 0d  02 c6 10 dd f2 73 74 61  |nd...........sta|
00000680  72 73 3a e6 30 2c 37 0d  02 d0 12 e3 20 53 74 61  |rs:.0,7..... Sta|
00000690  72 3d 30 20 b8 20 31 30  30 0d 02 da 20 73 58 3d  |r=0 . 100... sX=|
000006a0  b3 28 31 32 38 30 29 2d  36 34 30 3a 73 59 3d 37  |.(1280)-640:sY=7|
000006b0  30 30 2b b3 28 33 32 30  29 0d 02 e4 0f 50 6f 31  |00+.(320)....Po1|
000006c0  3d b0 73 58 2c 73 59 29  0d 02 ee 0c c8 92 20 73  |=.sX,sY)...... s|
000006d0  58 2c 73 59 0d 02 f8 07  ed 3a e1 0d 03 02 0e dd  |X,sY.....:......|
000006e0  f2 73 6b 79 3a e6 30 2c  34 0d 03 0c 16 e3 20 58  |.sky:.0,4..... X|
000006f0  3d 2d 36 34 30 20 b8 20  36 34 30 20 88 20 32 0d  |=-640 . 640 . 2.|
00000700  03 16 15 e3 20 59 3d 37  30 34 20 b8 20 38 35 30  |.... Y=704 . 850|
00000710  20 88 20 34 0d 03 20 10  52 6e 64 3d b3 28 59 2d  | . 4.. .Rnd=.(Y-|
00000720  37 30 30 29 0d 03 2a 15  e7 20 52 6e 64 3c 31 35  |700)..*.. Rnd<15|
00000730  20 8c 20 c8 92 20 58 2c  59 0d 03 34 07 ed 3a ed  | . .. X,Y..4..:.|
00000740  0d 03 3e 05 e1 0d 03 48  2a dd f2 68 69 6c 6c 73  |..>....H*..hills|
00000750  28 63 6f 6c 2c 63 6f 6c  32 2c 61 64 64 2c 73 69  |(col,col2,add,si|
00000760  7a 65 29 3a 64 75 6d 6d  79 3d b3 28 2d 31 29 0d  |ze):dummy=.(-1).|
00000770  03 52 0c 58 3d 2d 36 34  30 3a f5 0d 03 5c 1f 6c  |.R.X=-640:...\.l|
00000780  69 6e 65 58 3d b3 28 73  69 7a 65 29 3a 6c 69 6e  |ineX=.(size):lin|
00000790  65 59 3d b3 28 73 69 7a  65 29 0d 03 66 22 ec 20  |eY=.(size)..f". |
000007a0  58 2c 37 30 34 3a ec 20  58 2b 31 36 2b 6c 69 6e  |X,704:. X+16+lin|
000007b0  65 58 2c 37 31 34 2b 6c  69 6e 65 59 0d 03 70 30  |eX,714+lineY..p0|
000007c0  70 6f 73 3d 58 2b 73 69  7a 65 2b b3 28 73 69 7a  |pos=X+size+.(siz|
000007d0  65 29 3a e6 30 2c 63 6f  6c 20 c8 9c 31 39 32 3a  |e):.0,col ..192:|
000007e0  f0 20 38 35 2c 70 6f 73  2c 37 30 34 0d 03 7a 31  |. 85,pos,704..z1|
000007f0  e6 30 2c 63 6f 6c 32 20  c8 9c 30 3a f0 20 38 35  |.0,col2 ..0:. 85|
00000800  2c 70 6f 73 2b 28 73 69  7a 65 20 81 34 29 2b b3  |,pos+(size .4)+.|
00000810  28 73 69 7a 65 20 81 35  29 2c 37 30 34 0d 03 84  |(size .5),704...|
00000820  22 ec 20 58 2c 37 30 34  3a df 20 58 2b 31 36 2b  |". X,704:. X+16+|
00000830  6c 69 6e 65 58 2c 37 31  34 2b 6c 69 6e 65 59 0d  |lineX,714+lineY.|
00000840  03 8e 15 58 2b 3d b3 28  61 64 64 29 2b b3 28 73  |...X+=.(add)+.(s|
00000850  69 7a 65 29 0d 03 98 0b  fd 20 58 3e 37 34 30 0d  |ize)..... X>740.|
00000860  03 a2 05 e1 0d 03 ac 0b  dd f2 74 72 65 65 73 0d  |..........trees.|
00000870  03 b6 1b e7 20 73 63 61  6c 65 3c 31 20 8c 20 73  |.... scale<1 . s|
00000880  63 61 6c 65 2b 3d 2e 30  30 33 0d 03 c0 0f 64 75  |cale+=.003....du|
00000890  6d 6d 79 3d b3 28 2d 31  29 0d 03 ca 1d f2 74 72  |mmy=.(-1).....tr|
000008a0  65 65 28 31 2c 36 34 30  2c 32 30 30 2c 31 36 2a  |ee(1,640,200,16*|
000008b0  73 63 61 6c 65 29 0d 03  d4 1e f2 74 72 65 65 28  |scale).....tree(|
000008c0  2e 34 35 2c 36 30 38 2c  35 33 30 2c 38 2a 73 63  |.45,608,530,8*sc|
000008d0  61 6c 65 29 0d 03 de 1e  f2 74 72 65 65 28 2e 31  |ale).....tree(.1|
000008e0  38 2c 35 36 36 2c 36 35  34 2c 34 2a 73 63 61 6c  |8,566,654,4*scal|
000008f0  65 29 0d 03 e8 05 e1 0d  03 f2 2a dd f2 74 72 65  |e)........*..tre|
00000900  65 28 69 6e 76 2c 58 70  6f 73 2c 59 70 6f 73 2c  |e(inv,Xpos,Ypos,|
00000910  53 69 7a 65 29 3a 63 65  6e 74 72 65 3d 2d 36 34  |Size):centre=-64|
00000920  30 0d 03 fc 24 f2 62 72  61 6e 63 68 28 58 70 6f  |0...$.branch(Xpo|
00000930  73 2c 59 70 6f 73 2c 53  69 7a 65 2c 53 69 7a 65  |s,Ypos,Size,Size|
00000940  2c 69 6e 76 29 0d 04 06  15 e6 30 2c 31 33 3a 70  |,inv).....0,13:p|
00000950  6f 73 3d 36 34 30 2a 69  6e 76 0d 04 10 47 ec 20  |os=640*inv...G. |
00000960  2d 70 6f 73 2c 59 70 6f  73 2d 28 53 69 7a 65 20  |-pos,Ypos-(Size |
00000970  81 32 29 3a ec 20 2d 70  6f 73 2c 28 59 70 6f 73  |.2):. -pos,(Ypos|
00000980  2d 28 53 69 7a 65 20 81  32 29 29 2b 53 69 7a 65  |-(Size .2))+Size|
00000990  3a f0 20 38 35 2c 63 65  6e 74 72 65 2c 59 70 6f  |:. 85,centre,Ypo|
000009a0  73 0d 04 1a 46 ec 20 70  6f 73 2c 59 70 6f 73 2d  |s...F. pos,Ypos-|
000009b0  28 53 69 7a 65 20 81 32  29 3a ec 20 70 6f 73 2c  |(Size .2):. pos,|
000009c0  28 59 70 6f 73 2d 28 53  69 7a 65 20 81 32 29 29  |(Ypos-(Size .2))|
000009d0  2b 53 69 7a 65 3a f0 20  38 35 2c 2d 63 65 6e 74  |+Size:. 85,-cent|
000009e0  72 65 2c 59 70 6f 73 0d  04 24 2e e6 30 2c 38 3a  |re,Ypos..$..0,8:|
000009f0  c8 93 20 c8 90 20 2d 58  70 6f 73 2a 69 6e 76 2c  |.. .. -Xpos*inv,|
00000a00  59 70 6f 73 2c 53 69 7a  65 2a 31 2e 35 2c 53 69  |Ypos,Size*1.5,Si|
00000a10  7a 65 20 81 32 0d 04 2e  29 c8 93 20 c8 90 20 58  |ze .2...).. .. X|
00000a20  70 6f 73 2a 69 6e 76 2c  59 70 6f 73 2c 2d 53 69  |pos*inv,Ypos,-Si|
00000a30  7a 65 2a 31 2e 35 2c 53  69 7a 65 20 81 32 0d 04  |ze*1.5,Size .2..|
00000a40  38 05 e1 0d 04 42 1c dd  f2 62 72 61 6e 63 68 28  |8....B...branch(|
00000a50  58 2c 59 2c 73 2c 53 69  7a 65 2c 69 6e 76 29 0d  |X,Y,s,Size,inv).|
00000a60  04 4c 15 ea 20 62 58 2c  62 59 2c 73 69 7a 65 2c  |.L.. bX,bY,size,|
00000a70  74 69 6c 74 0d 04 56 14  62 58 3d 58 3a 62 59 3d  |tilt..V.bX=X:bY=|
00000a80  59 3a 73 69 7a 65 3d 73  0d 04 60 56 74 69 6c 74  |Y:size=s..`Vtilt|
00000a90  3d 36 34 30 2d 62 58 2b  b3 28 31 35 29 3a 78 31  |=640-bX+.(15):x1|
00000aa0  3d 62 58 2d 73 69 7a 65  3a 78 32 3d 62 58 2d 73  |=bX-size:x2=bX-s|
00000ab0  69 7a 65 2d 74 69 6c 74  3a 78 33 3d 62 58 2d 28  |ize-tilt:x3=bX-(|
00000ac0  73 69 7a 65 20 81 32 29  3a 78 34 3d 62 58 2d 28  |size .2):x4=bX-(|
00000ad0  28 73 69 7a 65 2d 74 69  6c 74 29 81 32 29 0d 04  |(size-tilt).2)..|
00000ae0  6a 1a e3 20 69 3d 2d 69  6e 76 20 b8 20 69 6e 76  |j.. i=-inv . inv|
00000af0  20 88 20 69 6e 76 2a 32  0d 04 74 08 e6 30 2c 38  | . inv*2..t..0,8|
00000b00  0d 04 7e 2f ec 20 62 58  2a 69 2c 62 59 3a ec 20  |..~/. bX*i,bY:. |
00000b10  78 31 2a 69 2c 62 59 3a  f0 20 26 37 35 2c 78 32  |x1*i,bY:. &75,x2|
00000b20  2a 69 2c 62 59 2b 28 73  69 7a 65 2a 32 30 29 0d  |*i,bY+(size*20).|
00000b30  04 88 15 e6 30 2c 32 3a  f0 20 32 31 2c 62 58 2a  |....0,2:. 21,bX*|
00000b40  69 2c 62 59 0d 04 92 2d  e7 20 78 32 2a 69 3e 63  |i,bY...-. x2*i>c|
00000b50  65 6e 74 72 65 20 80 20  78 32 2a 69 3c 53 69 7a  |entre . x2*i<Siz|
00000b60  65 2a 39 20 8c 20 63 65  6e 74 72 65 3d 78 32 2a  |e*9 . centre=x2*|
00000b70  69 0d 04 9c 08 e6 30 2c  38 0d 04 a6 2f ec 20 62  |i.....0,8.../. b|
00000b80  58 2a 69 2c 62 59 3a ec  20 78 33 2a 69 2c 62 59  |X*i,bY:. x3*i,bY|
00000b90  3a f0 20 26 37 35 2c 78  34 2a 69 2c 62 59 2b 28  |:. &75,x4*i,bY+(|
00000ba0  73 69 7a 65 2a 32 30 29  0d 04 b0 15 e6 30 2c 32  |size*20).....0,2|
00000bb0  3a f0 20 32 31 2c 62 58  2a 69 2c 62 59 0d 04 ba  |:. 21,bX*i,bY...|
00000bc0  05 ed 0d 04 c4 11 73 69  7a 65 3d 73 69 7a 65 2f  |......size=size/|
00000bd0  31 2e 39 0d 04 ce 32 e7  20 73 69 7a 65 3e 30 2e  |1.9...2. size>0.|
00000be0  34 20 8c 20 f2 62 72 61  6e 63 68 28 62 58 2d 73  |4 . .branch(bX-s|
00000bf0  69 7a 65 2c 62 59 2c 73  69 7a 65 2c 53 69 7a 65  |ize,bY,size,Size|
00000c00  2c 69 6e 76 29 0d 04 d8  4e e7 20 73 69 7a 65 3e  |,inv)...N. size>|
00000c10  32 2e 32 38 2d 62 59 2f  35 30 30 20 8c 20 f2 62  |2.28-bY/500 . .b|
00000c20  72 61 6e 63 68 28 62 58  2d 28 73 69 7a 65 20 81  |ranch(bX-(size .|
00000c30  32 29 2d 74 69 6c 74 2c  62 59 2b 28 73 69 7a 65  |2)-tilt,bY+(size|
00000c40  2a 33 38 29 2c 73 69 7a  65 2c 53 69 7a 65 2c 69  |*38),size,Size,i|
00000c50  6e 76 29 0d 04 e2 05 e1  0d 04 ec 0b dd f2 65 72  |nv)...........er|
00000c60  72 6f 72 0d 04 f6 09 ee  20 85 20 87 0d 05 00 1b  |ror..... . .....|
00000c70  c8 99 20 22 4f 53 5f 55  70 64 61 74 65 4d 45 4d  |.. "OS_UpdateMEM|
00000c80  43 22 2c 30 2c 36 34 0d  05 0a 07 eb 31 32 0d 05  |C",0,64.....12..|
00000c90  14 16 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |.... "OS_Byte",1|
00000ca0  31 32 2c 31 0d 05 1e 16  c8 99 20 22 4f 53 5f 42  |12,1...... "OS_B|
00000cb0  79 74 65 22 2c 31 31 33  2c 31 0d 05 28 0e e7 20  |yte",113,1..(.. |
00000cc0  9f 3d 31 37 20 8c 20 e1  0d 05 32 14 f6 3a f1 22  |.=17 . ...2..:."|
00000cd0  20 61 74 20 6c 69 6e 65  20 22 3b 9e 0d 05 3c 05  | at line ";...<.|
00000ce0  e1 0d 05 46 0c dd f2 73  63 72 65 65 6e 0d 05 50  |...F...screen..P|
00000cf0  0e c8 94 20 64 69 73 2c  77 72 69 0d 05 5a 17 f2  |... dis,wri..Z..|
00000d00  64 69 73 28 64 69 73 29  3a f2 77 72 69 28 77 72  |dis(dis):.wri(wr|
00000d10  69 29 0d 05 64 05 e1 0d  05 6e 0e dd f2 64 69 73  |i)..d....n...dis|
00000d20  28 64 69 73 29 0d 05 78  1a c8 99 20 22 4f 53 5f  |(dis)..x... "OS_|
00000d30  42 79 74 65 22 2c 31 31  33 2c 64 69 73 3a e1 0d  |Byte",113,dis:..|
00000d40  05 82 0e dd f2 77 72 69  28 77 72 69 29 0d 05 8c  |.....wri(wri)...|
00000d50  1a c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |... "OS_Byte",11|
00000d60  32 2c 77 72 69 3a e1 0d  05 96 1e dd f2 72 65 64  |2,wri:.......red|
00000d70  72 61 77 3a e6 30 2c 30  3a 2a 53 43 48 4f 4f 53  |raw:.0,0:*SCHOOS|
00000d80  45 20 73 6b 79 0d 05 a0  12 f0 20 26 45 44 2c 2d  |E sky..... &ED,-|
00000d90  36 34 30 2c 37 30 34 0d  05 aa 18 e6 30 2c 31 31  |640,704.....0,11|
00000da0  3a 66 72 61 6d 65 2d 3d  33 36 30 2f 33 39 32 0d  |:frame-=360/392.|
00000db0  05 b4 10 ef 32 39 2c 36  34 30 3b 36 35 30 3b 0d  |....29,640;650;.|
00000dc0  05 be 29 58 25 3d 36 35  30 2a 9b 28 b2 28 66 72  |..)X%=650*.(.(fr|
00000dd0  61 6d 65 29 29 3a 59 25  3d 34 30 30 2a b5 28 b2  |ame)):Y%=400*.(.|
00000de0  28 66 72 61 6d 65 29 29  0d 05 c8 22 63 6f 6c 3d  |(frame))..."col=|
00000df0  59 25 2f 31 2e 34 3a e7  20 63 6f 6c 3e 32 35 35  |Y%/1.4:. col>255|
00000e00  20 8c 20 63 6f 6c 3d 32  35 35 0d 05 d2 13 e7 20  | . col=255..... |
00000e10  63 6f 6c 3c 30 20 8c 20  63 6f 6c 3d 30 0d 05 dc  |col<0 . col=0...|
00000e20  19 ef 31 39 2c 31 31 2c  31 36 2c 31 35 2a 31 36  |..19,11,16,15*16|
00000e30  2c 63 6f 6c 2c 30 0d 05  e6 13 c8 8f 20 c8 90 20  |,col,0...... .. |
00000e40  58 25 2c 59 25 2c 31 30  30 0d 05 f0 0e ef 32 39  |X%,Y%,100.....29|
00000e50  2c 36 34 30 3b 30 3b 0d  05 fa 18 e6 30 2c 30 3a  |,640;0;.....0,0:|
00000e60  2a 53 43 48 4f 4f 53 45  20 67 72 6f 75 6e 64 0d  |*SCHOOSE ground.|
00000e70  06 04 12 f0 20 26 45 44  2c 2d 36 34 30 2c 30 3a  |.... &ED,-640,0:|
00000e80  e1 0d 06 0e 0a dd f2 66  61 64 65 0d 06 18 6d e7  |.......fade...m.|
00000e90  20 a8 28 6f 6e 65 42 2b  2e 31 29 3d 31 32 20 80  | .(oneB+.1)=12 .|
00000ea0  20 a8 28 74 77 6f 52 2b  2e 31 29 3d 31 32 20 80  | .(twoR+.1)=12 .|
00000eb0  20 73 75 6e 73 65 74 20  8c 20 f2 72 65 73 65 74  | sunset . .reset|
00000ec0  3a 6f 6e 65 42 61 64 64  3d 2d 2e 31 3a 74 77 6f  |:oneBadd=-.1:two|
00000ed0  52 61 64 64 3d 2d 2e 30  35 3a 66 72 61 6d 65 3d  |Radd=-.05:frame=|
00000ee0  30 3a f4 20 66 61 64 65  20 73 75 6e 73 65 74 20  |0:. fade sunset |
00000ef0  74 6f 20 6e 69 67 68 74  0d 06 22 4e e7 20 6f 6e  |to night.."N. on|
00000f00  65 42 3c 2e 31 20 8c 20  f2 72 65 73 65 74 3a 6f  |eB<.1 . .reset:o|
00000f10  6e 65 42 61 64 64 3d 2e  31 3a 74 77 6f 52 61 64  |neBadd=.1:twoRad|
00000f20  64 3d 2e 30 35 3a 73 75  6e 73 65 74 3d a3 3a f4  |d=.05:sunset=.:.|
00000f30  20 66 61 64 65 20 6e 69  67 68 74 20 74 6f 20 73  | fade night to s|
00000f40  75 6e 72 69 73 65 0d 06  2c 66 e7 20 a8 28 6f 6e  |unrise..,f. .(on|
00000f50  65 42 2b 2e 31 29 3d 31  32 20 80 20 a8 28 74 77  |eB+.1)=12 . .(tw|
00000f60  6f 52 2b 2e 31 29 3d 31  32 20 80 20 6f 6e 65 42  |oR+.1)=12 . oneB|
00000f70  61 64 64 3e 30 20 8c 20  f2 72 65 73 65 74 3a 74  |add>0 . .reset:t|
00000f80  77 6f 42 61 64 64 3d 2e  30 35 3a 74 77 6f 52 61  |woBadd=.05:twoRa|
00000f90  64 64 3d 2d 2e 31 3a f4  20 66 61 64 65 20 73 75  |dd=-.1:. fade su|
00000fa0  6e 72 69 73 65 20 74 6f  20 64 61 79 0d 06 36 52  |nrise to day..6R|
00000fb0  e7 20 a8 28 74 77 6f 42  2b 2e 31 29 3e 31 35 20  |. .(twoB+.1)>15 |
00000fc0  8c 20 f2 72 65 73 65 74  3a 73 75 6e 73 65 74 3d  |. .reset:sunset=|
00000fd0  b9 3a 74 77 6f 42 61 64  64 3d 2d 2e 30 35 3a 74  |.:twoBadd=-.05:t|
00000fe0  77 6f 52 61 64 64 3d 2e  31 3a f4 20 66 61 64 65  |woRadd=.1:. fade|
00000ff0  20 64 61 79 20 74 6f 20  73 75 6e 73 65 74 0d 06  | day to sunset..|
00001000  40 11 6f 6e 65 42 2b 3d  6f 6e 65 42 61 64 64 0d  |@.oneB+=oneBadd.|
00001010  06 4a 1f 74 77 6f 52 2b  3d 74 77 6f 52 61 64 64  |.J.twoR+=twoRadd|
00001020  3a 74 77 6f 42 2b 3d 74  77 6f 42 61 64 64 0d 06  |:twoB+=twoBadd..|
00001030  54 19 ef 20 31 39 2c 30  2c 31 36 2c 30 2c 30 2c  |T.. 19,0,16,0,0,|
00001040  6f 6e 65 42 2a 31 36 0d  06 5e 1f ef 20 31 39 2c  |oneB*16..^.. 19,|
00001050  34 2c 31 36 2c 74 77 6f  52 2a 31 36 2c 30 2c 74  |4,16,twoR*16,0,t|
00001060  77 6f 42 2a 31 36 0d 06  68 21 6d 6f 6f 6e 3d 6f  |woB*16..h!moon=o|
00001070  6e 65 42 3a e7 20 6d 6f  6f 6e 3c 31 30 20 8c 20  |neB:. moon<10 . |
00001080  6d 6f 6f 6e 3d 31 30 0d  06 72 41 ef 31 39 2c 37  |moon=10..rA.19,7|
00001090  2c 31 36 2c 28 31 35 2d  6f 6e 65 42 29 2a 31 36  |,16,(15-oneB)*16|
000010a0  2c 28 31 35 2d 6f 6e 65  42 29 2a 31 36 2c 6d 6f  |,(15-oneB)*16,mo|
000010b0  6f 6e 2a 31 36 3a f4 20  6d 6f 6f 6e 2f 73 74 61  |on*16:. moon/sta|
000010c0  72 73 20 66 61 64 65 2e  0d 06 7c 19 ef 31 39 2c  |rs fade...|..19,|
000010d0  31 32 2c 31 36 2c 30 2c  6d 6f 6f 6e 2a 31 36 2c  |12,16,0,moon*16,|
000010e0  30 0d 06 86 05 e1 0d 06  90 0b dd f2 72 65 73 65  |0...........rese|
000010f0  74 0d 06 9a 21 6f 6e 65  42 61 64 64 3d 30 3a 74  |t...!oneBadd=0:t|
00001100  77 6f 52 61 64 64 3d 30  3a 74 77 6f 42 61 64 64  |woRadd=0:twoBadd|
00001110  3d 30 0d 06 a4 05 e1 0d  06 ae 0a dd f2 74 65 78  |=0...........tex|
00001120  74 0d 06 b8 19 e7 20 91  3e 35 30 30 20 8c 20 74  |t..... .>500 . t|
00001130  65 78 74 2b 3d 31 3a d1  3d 30 0d 06 c2 0a f7 20  |ext+=1:.=0..... |
00001140  8d 54 7a 47 0d 06 cc 09  f3 20 6d 61 78 0d 06 d6  |.TzG..... max...|
00001150  17 e7 20 74 65 78 74 3e  6d 61 78 20 8c 20 74 65  |.. text>max . te|
00001160  78 74 3d 31 0d 06 e0 10  e3 20 58 3d 31 20 b8 20  |xt=1..... X=1 . |
00001170  74 65 78 74 0d 06 ea 0b  f3 20 74 65 78 74 24 0d  |text..... text$.|
00001180  06 f4 21 ed 3a e7 20 74  65 78 74 24 3d 22 22 20  |..!.:. text$="" |
00001190  8c 20 74 65 78 74 24 3d  c4 34 30 2c 22 2e 22 29  |. text$=.40,".")|
000011a0  0d 06 fe 22 70 6f 73 3d  2d 36 30 30 3a 6a 75 6d  |..."pos=-600:jum|
000011b0  70 3d 35 38 34 2f 28 a9  28 74 65 78 74 24 29 2f  |p=584/(.(text$)/|
000011c0  32 29 0d 07 08 19 e3 20  6c 65 74 74 65 72 3d 31  |2)..... letter=1|
000011d0  20 b8 20 a9 28 74 65 78  74 24 29 0d 07 12 10 e6  | . .(text$).....|
000011e0  30 2c 31 33 2b 28 91 20  83 33 29 0d 07 1c 49 ec  |0,13+(. .3)...I.|
000011f0  20 70 6f 73 2b 28 6c 65  74 74 65 72 2a 6a 75 6d  | pos+(letter*jum|
00001200  70 29 2c 31 30 30 2b 28  b5 28 28 6c 65 74 74 65  |p),100+(.((lette|
00001210  72 2f 32 29 2b 28 91 2f  31 30 30 29 29 2a 33 30  |r/2)+(./100))*30|
00001220  29 3a f1 20 c1 74 65 78  74 24 2c 6c 65 74 74 65  |):. .text$,lette|
00001230  72 2c 31 29 0d 07 26 0c  ed 20 6c 65 74 74 65 72  |r,1)..&.. letter|
00001240  0d 07 30 05 e1 0d 07 3a  08 dc 20 32 32 0d 07 44  |..0....:.. 22..D|
00001250  32 dc 20 22 57 65 6c 63  6f 6d 65 20 74 6f 20 27  |2. "Welcome to '|
00001260  54 69 6d 65 20 4c 61 70  73 65 27 2c 20 62 79 20  |Time Lapse', by |
00001270  44 61 76 69 64 20 48 69  6e 64 6c 65 79 2e 22 0d  |David Hindley.".|
00001280  07 4e 1c dc 20 28 63 29  20 41 63 6f 72 6e 20 55  |.N.. (c) Acorn U|
00001290  73 65 72 20 31 39 39 32  2c 22 22 0d 07 58 38 dc  |ser 1992,""..X8.|
000012a0  20 54 68 69 73 20 64 65  6d 6f 20 65 78 74 65 6e  | This demo exten|
000012b0  64 73 20 75 70 6f 6e 20  6d 79 20 6c 61 73 74 20  |ds upon my last |
000012c0  64 65 6d 6f 20 2d 20 27  33 44 20 44 65 6d 6f 27  |demo - '3D Demo'|
000012d0  2e 2e 2e 0d 07 62 41 dc  20 22 61 6e 64 20 75 73  |.....bA. "and us|
000012e0  65 73 20 73 69 6d 69 6c  61 72 20 72 6f 75 74 69  |es similar routi|
000012f0  6e 65 73 2c 20 62 75 74  20 69 6e 20 61 20 66 61  |nes, but in a fa|
00001300  72 20 64 69 66 66 65 72  65 6e 74 20 77 61 79 2e  |r different way.|
00001310  22 2c 22 22 0d 07 6c 3d  dc 20 54 68 69 73 20 74  |",""..l=. This t|
00001320  69 6d 65 20 69 74 73 20  74 68 65 20 74 75 72 6e  |ime its the turn|
00001330  20 6f 66 20 74 68 65 20  62 61 63 6b 67 72 6f 75  | of the backgrou|
00001340  6e 64 20 74 6f 20 62 65  20 61 6e 69 6d 61 74 65  |nd to be animate|
00001350  64 0d 07 76 45 dc 20 22  61 6e 64 20 6a 75 73 74  |d..vE. "and just|
00001360  20 74 6f 20 62 65 20 64  69 66 66 65 72 65 6e 74  | to be different|
00001370  2c 20 69 74 20 61 6c 6c  20 68 61 70 70 65 6e 73  |, it all happens|
00001380  20 6f 6e 20 77 65 69 72  64 20 74 69 6d 65 20 73  | on weird time s|
00001390  63 61 6c 65 73 22 0d 07  80 24 dc 20 22 68 65 6e  |cales"...$. "hen|
000013a0  63 65 20 74 68 65 20 74  69 74 6c 65 3a 2d 54 69  |ce the title:-Ti|
000013b0  6d 65 20 4c 61 70 73 65  21 22 0d 07 8a 30 dc 20  |me Lapse!"...0. |
000013c0  53 74 69 63 6b 20 61 72  6f 75 6e 64 20 61 6e 64  |Stick around and|
000013d0  20 6b 65 65 70 20 61 6e  20 65 79 65 20 6f 6e 20  | keep an eye on |
000013e0  74 68 65 20 73 6b 79 2e  2e 2e 0d 07 94 3a dc 20  |the sky......:. |
000013f0  77 68 69 6c 65 20 77 61  74 63 68 69 6e 67 20 74  |while watching t|
00001400  68 6f 73 65 20 74 72 65  65 73 20 67 72 6f 77 20  |hose trees grow |
00001410  73 74 65 61 64 69 6c 79  20 73 6b 79 77 61 72 64  |steadily skyward|
00001420  21 2c 22 22 0d 07 9e 1f  dc 20 48 65 6c 6c 6f 20  |!,""..... Hello |
00001430  74 6f 20 74 68 65 20 66  6f 6c 6c 6f 77 69 6e 67  |to the following|
00001440  2e 2e 2e 0d 07 a8 2c dc  20 61 6c 6c 20 6e 6f 77  |......,. all now|
00001450  20 4e 4f 54 20 61 74 20  54 77 6f 20 54 72 65 65  | NOT at Two Tree|
00001460  73 20 48 69 67 68 53 63  68 6f 6f 6c 2e 2e 2e 0d  |s HighSchool....|
00001470  07 b2 3f dc 20 22 27 42  6f 6e 20 43 68 61 6e 63  |..?. "'Bon Chanc|
00001480  65 27 20 74 6f 20 61 6c  6c 2c 20 65 73 70 65 63  |e' to all, espec|
00001490  69 61 6c 6c 79 20 74 68  6f 73 65 20 77 68 6f 20  |ially those who |
000014a0  68 61 74 65 20 46 72 65  6e 63 68 21 3b 22 0d 07  |hate French!;"..|
000014b0  bc 2e dc 20 22 41 20 62  69 67 20 77 61 76 65 20  |... "A big wave |
000014c0  74 6f 20 6d 79 20 70 61  72 65 6e 74 73 2c 20 74  |to my parents, t|
000014d0  68 61 6e 6b 73 20 67 75  79 73 3b 22 0d 07 c6 49  |hanks guys;"...I|
000014e0  dc 20 22 61 6e 64 20 66  69 6e 61 6c 6c 79 20 74  |. "and finally t|
000014f0  68 61 6e 6b 73 20 74 6f  20 79 6f 75 20 66 6f 72  |hanks to you for|
00001500  20 77 61 74 63 68 69 6e  67 20 6d 79 20 62 72 69  | watching my bri|
00001510  6c 6c 20 72 65 76 61 6d  70 65 64 20 64 65 6d 6f  |ll revamped demo|
00001520  21 22 2c 22 22 0d 07 d0  3d dc 20 22 48 65 69 67  |!",""...=. "Heig|
00001530  68 2d 48 6f 20 48 65 69  67 68 2d 48 6f 2c 20 69  |h-Ho Heigh-Ho, i|
00001540  74 73 20 6f 66 66 20 74  6f 20 48 79 64 65 20 43  |ts off to Hyde C|
00001550  6f 6c 6c 65 67 65 20 49  20 67 6f 2e 2e 2e 22 2c  |ollege I go...",|
00001560  22 22 0d 07 da 11 dc 20  53 65 65 20 79 61 20 21  |""..... See ya !|
00001570  2c 22 22 0d ff                                    |,""..|
00001575