Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.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 » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf |
| Filename: | WELCOME/Poly |
| Read OK: | ✔ |
| File size: | 0140 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
Duplicates
There are 5 duplicate copies of this file in the archive:
- AEW website » acornsoft » acornsoft_3_5_discs_Electron_Welcome_Disc_HA-WELC.adf » Welcome/Poly
- AEW website » acp_pres » acp_pres_3_5_discs_Electron-Adfs-E00_A-E00.adf » WELCOME/Poly
- Personal collection » Acorn ADFS disks » Electron » PRES_E00.ADF » WELCOME/Poly
- Personal collection » Acorn ADFS disks » Electron » PRES_E00_backup.ADF » Welcome/Poly
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_E00.adf » WELCOME/Poly
- Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf » WELCOME/Poly
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
.