Home » Archimedes archive » Acorn User » AU 1997-08 B.adf » Regulars » starinfo/Adcock/fluff
starinfo/Adcock/fluff
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 User » AU 1997-08 B.adf » Regulars |
| Filename: | starinfo/Adcock/fluff |
| Read OK: | ✔ |
| File size: | 00D5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Fluff 20REM By Mark Adcock 30REM19/11/96 40MODE27:OFF:FORC=1TO15:COLOURC,C*17,C*11,0:NEXTC:CLS:X=640:Y=512:MOVEX,Y:B=0:C=1:REPEAT:XP=COS(B):YP=SIN(B):X+=XP*4:Y+=YP*4:B+=SGN(RND)*5:GCOLPOINT(X,Y)+1:DRAWX,Y:IFX>1280ORY>1024ORX<0ORY<0THENX=640:Y=480:MOVEX,Y:UNTIL0ELSEUNTIL0
� >Fluff � By Mark Adcock �19/11/96 (��27:�:�C=1�15:�C,C*17,C*11,0:�C:�:X=640:Y=512:�X,Y:B=0:C=1:�:XP=�(B):YP=�(B):X+=XP*4:Y+=YP*4:B+=�(�)*5:�X,Y)+1:�X,Y:�X>1280�Y>1024�X<0�Y<0�X=640:Y=480:�X,Y:�0��0 �
00000000 0d 00 0a 0c f4 20 3e 46 6c 75 66 66 0d 00 14 14 |..... >Fluff....| 00000010 f4 20 42 79 20 4d 61 72 6b 20 41 64 63 6f 63 6b |. By Mark Adcock| 00000020 0d 00 1e 0d f4 31 39 2f 31 31 2f 39 36 0d 00 28 |.....19/11/96..(| 00000030 a6 eb 32 37 3a 87 3a e3 43 3d 31 b8 31 35 3a fb |..27:.:.C=1.15:.| 00000040 43 2c 43 2a 31 37 2c 43 2a 31 31 2c 30 3a ed 43 |C,C*17,C*11,0:.C| 00000050 3a db 3a 58 3d 36 34 30 3a 59 3d 35 31 32 3a ec |:.:X=640:Y=512:.| 00000060 58 2c 59 3a 42 3d 30 3a 43 3d 31 3a f5 3a 58 50 |X,Y:B=0:C=1:.:XP| 00000070 3d 9b 28 42 29 3a 59 50 3d b5 28 42 29 3a 58 2b |=.(B):YP=.(B):X+| 00000080 3d 58 50 2a 34 3a 59 2b 3d 59 50 2a 34 3a 42 2b |=XP*4:Y+=YP*4:B+| 00000090 3d b4 28 b3 29 2a 35 3a e6 b0 58 2c 59 29 2b 31 |=.(.)*5:..X,Y)+1| 000000a0 3a df 58 2c 59 3a e7 58 3e 31 32 38 30 84 59 3e |:.X,Y:.X>1280.Y>| 000000b0 31 30 32 34 84 58 3c 30 84 59 3c 30 8c 58 3d 36 |1024.X<0.Y<0.X=6| 000000c0 34 30 3a 59 3d 34 38 30 3a ec 58 2c 59 3a fd 30 |40:Y=480:.X,Y:.0| 000000d0 8b fd 30 0d ff |..0..| 000000d5
.