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) RX=-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