Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_E00.adf » WELCOME/Poly

WELCOME/Poly

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 » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_E00.adf
Filename: WELCOME/Poly
Read OK:
File size: 0140 bytes
Load address: FFFF1D00
Exec address: FFFF8023
File contents
   10ONERRORGOTO40
   20MODE1:VDU23;8202;0;0;0;:DIMX%(10),Y%(10):N=TIME:REPEAT:r=RND(250)+50:s%=RND(8)+2:Q=2*PI/s%:GCOL0,0:VDU29,RND(1280);RND(1024);:MOVEr,0:FORS%=1TOs%:a=(S%-1)*Q:X%(S%)=r*COSa:Y%(S%)=r*SINa:IFS%<>1MOVE0,0:PLOT85,X%(S%),Y%(S%)
   30NEXT:MOVE0,0:PLOT85,r,0:GCOL0,RND(3):FORS%=1TOs%:FORL%=S%TOs%:MOVEX%(S%),Y%(S%):DRAWX%(L%),Y%(L%):NEXT:NEXT:UNTILTIME-N>4500
   40MODE1:FORZ%=0TO4:VDU19,Z%,0;0;:NEXT:CHAIN"SPIRAL":END

��Th@
��1:�23;8202;0;0;0;:�X%(10),Y%(10):N=�:�:r=�(250)+50:s%=�(8)+2:Q=2*�/s%:�0,0:�29,�(1280);�(1024);:�r,0:�S%=1�s%:a=(S%-1)*Q:X%(S%)=r*�a:Y%(S%)=r*�a:�S%<>1�0,0:�85,X%(S%),Y%(S%)
Y�:�0,0:�85,r,0:�0,�(3):�S%=1�s%:�L%=S%�s%:�X%(S%),Y%(S%):�X%(L%),Y%(L%):�:�:��-N>4500
((�1:�Z%=0�4:�19,Z%,0;0;:�:�"SPIRAL":�
�
00000000  0d 00 0a 0b ee 85 e5 8d  54 68 40 0d 00 14 b2 eb  |........Th@.....|
00000010  31 3a ef 32 33 3b 38 32  30 32 3b 30 3b 30 3b 30  |1:.23;8202;0;0;0|
00000020  3b 3a de 58 25 28 31 30  29 2c 59 25 28 31 30 29  |;:.X%(10),Y%(10)|
00000030  3a 4e 3d 91 3a f5 3a 72  3d b3 28 32 35 30 29 2b  |:N=.:.:r=.(250)+|
00000040  35 30 3a 73 25 3d b3 28  38 29 2b 32 3a 51 3d 32  |50:s%=.(8)+2:Q=2|
00000050  2a af 2f 73 25 3a e6 30  2c 30 3a ef 32 39 2c b3  |*./s%:.0,0:.29,.|
00000060  28 31 32 38 30 29 3b b3  28 31 30 32 34 29 3b 3a  |(1280);.(1024);:|
00000070  ec 72 2c 30 3a e3 53 25  3d 31 b8 73 25 3a 61 3d  |.r,0:.S%=1.s%:a=|
00000080  28 53 25 2d 31 29 2a 51  3a 58 25 28 53 25 29 3d  |(S%-1)*Q:X%(S%)=|
00000090  72 2a 9b 61 3a 59 25 28  53 25 29 3d 72 2a b5 61  |r*.a:Y%(S%)=r*.a|
000000a0  3a e7 53 25 3c 3e 31 ec  30 2c 30 3a f0 38 35 2c  |:.S%<>1.0,0:.85,|
000000b0  58 25 28 53 25 29 2c 59  25 28 53 25 29 0d 00 1e  |X%(S%),Y%(S%)...|
000000c0  59 ed 3a ec 30 2c 30 3a  f0 38 35 2c 72 2c 30 3a  |Y.:.0,0:.85,r,0:|
000000d0  e6 30 2c b3 28 33 29 3a  e3 53 25 3d 31 b8 73 25  |.0,.(3):.S%=1.s%|
000000e0  3a e3 4c 25 3d 53 25 b8  73 25 3a ec 58 25 28 53  |:.L%=S%.s%:.X%(S|
000000f0  25 29 2c 59 25 28 53 25  29 3a df 58 25 28 4c 25  |%),Y%(S%):.X%(L%|
00000100  29 2c 59 25 28 4c 25 29  3a ed 3a ed 3a fd 91 2d  |),Y%(L%):.:.:..-|
00000110  4e 3e 34 35 30 30 0d 00  28 28 eb 31 3a e3 5a 25  |N>4500..((.1:.Z%|
00000120  3d 30 b8 34 3a ef 31 39  2c 5a 25 2c 30 3b 30 3b  |=0.4:.19,Z%,0;0;|
00000130  3a ed 3a d7 22 53 50 49  52 41 4c 22 3a e0 0d ff  |:.:."SPIRAL":...|
00000140
WELCOME/Poly.m0
WELCOME/Poly.m1
WELCOME/Poly.m2
WELCOME/Poly.m4
WELCOME/Poly.m5