Home » Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo » Fans
Fans
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 1993-08.adf » !StarInfo_StarInfo |
| Filename: | Fans |
| Read OK: | ✔ |
| File size: | 023B bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Fans (Info13) 20REM By Pavlos Record 30REM For 32-bit machines 40REM (c) BAU August 1993 50: 60PRINT "(F)ixed or (R)andom :"; 70CASE GET$ OF 80 90 WHEN "F","f": 100MODE12:OFF:r=128:f=4:FORx=0TO4:FORy=0TO3:ORIGINx*256+r,y*256+r:d=SGNRND:a=RND(36)*10:FORc=1TO15*f:GCOL(c MOD15)+1:MOVE0,0:MOVEr*SINRADa,r*COSRADa:a+=d*24/f:PLOT85,r*SINRADa,r*COSRADa:NEXT,,:b=1:REPEATWAIT:FORa=1TO15:COLOURa,b*16,b*16,0:b+=1:NEXT:UNTIL0 110 120 WHEN "R","r": 130MODE12:OFF:FORi=1TO60:ORIGINRND(1280),RND(1024):r=64+RND(128):s=r+4:f=RND(5):d=SGNRND:a=RND(36)*10:FORo=0TO1:FORc=1TO15*f:GCOLo*((c MOD15)+1):MOVE0,0:MOVEr*SINRADa,r*COSRADa:a+=d*24/f:PLOT85,r*SINRADa,r*COSRADa:NEXT:r-=4:NEXT,:b=1:REPEATWAIT:FORa=1TO15:COLOURa,b*16,b*16,0:b+=1:NEXT:UNTIL0 140 150ENDCASE
� >Fans (Info13) � By Pavlos Record � For 32-bit machines (� (c) BAU August 1993 2: < � "(F)ixed or (R)andom :"; F Ȏ � � P Z � "F","f": d��12:�:r=128:f=4:�x=0�4:�y=0�3:ȑx*256+r,y*256+r:d=��:a=�(36)*10:�c=1�15*f:�(c �15)+1:�0,0:�r*��a,r*��a:a+=d*24/f:�85,r*��a,r*��a:�,,:b=1:�Ȗ:�a=1�15:�a,b*16,b*16,0:b+=1:�:�0 n x � "R","r": ���12:�:�i=1�60:ȑ�(1280),�(1024):r=64+�(128):s=r+4:f=�(5):d=��:a=�(36)*10:�o=0�1:�c=1�15*f:�o*((c �15)+1):�0,0:�r*��a,r*��a:a+=d*24/f:�85,r*��a,r*��a:�:r-=4:�,:b=1:�Ȗ:�a=1�15:�a,b*16,b*16,0:b+=1:�:�0 � �� �
00000000 0d 00 0a 18 f4 20 20 20 20 20 3e 46 61 6e 73 20 |..... >Fans | 00000010 28 49 6e 66 6f 31 33 29 0d 00 14 17 f4 20 42 79 |(Info13)..... By| 00000020 20 20 50 61 76 6c 6f 73 20 52 65 63 6f 72 64 0d | Pavlos Record.| 00000030 00 1e 19 f4 20 46 6f 72 20 33 32 2d 62 69 74 20 |.... For 32-bit | 00000040 6d 61 63 68 69 6e 65 73 0d 00 28 19 f4 20 28 63 |machines..(.. (c| 00000050 29 20 42 41 55 20 41 75 67 75 73 74 20 31 39 39 |) BAU August 199| 00000060 33 0d 00 32 05 3a 0d 00 3c 1e f1 20 22 28 46 29 |3..2.:..<.. "(F)| 00000070 69 78 65 64 20 6f 72 20 28 52 29 61 6e 64 6f 6d |ixed or (R)andom| 00000080 20 3a 22 3b 0d 00 46 0a c8 8e 20 be 20 ca 0d 00 | :";..F... . ...| 00000090 50 04 0d 00 5a 0f 20 c9 20 22 46 22 2c 22 66 22 |P...Z. . "F","f"| 000000a0 3a 0d 00 64 b1 eb 31 32 3a 87 3a 72 3d 31 32 38 |:..d..12:.:r=128| 000000b0 3a 66 3d 34 3a e3 78 3d 30 b8 34 3a e3 79 3d 30 |:f=4:.x=0.4:.y=0| 000000c0 b8 33 3a c8 91 78 2a 32 35 36 2b 72 2c 79 2a 32 |.3:..x*256+r,y*2| 000000d0 35 36 2b 72 3a 64 3d b4 b3 3a 61 3d b3 28 33 36 |56+r:d=..:a=.(36| 000000e0 29 2a 31 30 3a e3 63 3d 31 b8 31 35 2a 66 3a e6 |)*10:.c=1.15*f:.| 000000f0 28 63 20 83 31 35 29 2b 31 3a ec 30 2c 30 3a ec |(c .15)+1:.0,0:.| 00000100 72 2a b5 b2 61 2c 72 2a 9b b2 61 3a 61 2b 3d 64 |r*..a,r*..a:a+=d| 00000110 2a 32 34 2f 66 3a f0 38 35 2c 72 2a b5 b2 61 2c |*24/f:.85,r*..a,| 00000120 72 2a 9b b2 61 3a ed 2c 2c 3a 62 3d 31 3a f5 c8 |r*..a:.,,:b=1:..| 00000130 96 3a e3 61 3d 31 b8 31 35 3a fb 61 2c 62 2a 31 |.:.a=1.15:.a,b*1| 00000140 36 2c 62 2a 31 36 2c 30 3a 62 2b 3d 31 3a ed 3a |6,b*16,0:b+=1:.:| 00000150 fd 30 0d 00 6e 04 0d 00 78 0f 20 c9 20 22 52 22 |.0..n...x. . "R"| 00000160 2c 22 72 22 3a 0d 00 82 cb eb 31 32 3a 87 3a e3 |,"r":.....12:.:.| 00000170 69 3d 31 b8 36 30 3a c8 91 b3 28 31 32 38 30 29 |i=1.60:...(1280)| 00000180 2c b3 28 31 30 32 34 29 3a 72 3d 36 34 2b b3 28 |,.(1024):r=64+.(| 00000190 31 32 38 29 3a 73 3d 72 2b 34 3a 66 3d b3 28 35 |128):s=r+4:f=.(5| 000001a0 29 3a 64 3d b4 b3 3a 61 3d b3 28 33 36 29 2a 31 |):d=..:a=.(36)*1| 000001b0 30 3a e3 6f 3d 30 b8 31 3a e3 63 3d 31 b8 31 35 |0:.o=0.1:.c=1.15| 000001c0 2a 66 3a e6 6f 2a 28 28 63 20 83 31 35 29 2b 31 |*f:.o*((c .15)+1| 000001d0 29 3a ec 30 2c 30 3a ec 72 2a b5 b2 61 2c 72 2a |):.0,0:.r*..a,r*| 000001e0 9b b2 61 3a 61 2b 3d 64 2a 32 34 2f 66 3a f0 38 |..a:a+=d*24/f:.8| 000001f0 35 2c 72 2a b5 b2 61 2c 72 2a 9b b2 61 3a ed 3a |5,r*..a,r*..a:.:| 00000200 72 2d 3d 34 3a ed 2c 3a 62 3d 31 3a f5 c8 96 3a |r-=4:.,:b=1:...:| 00000210 e3 61 3d 31 b8 31 35 3a fb 61 2c 62 2a 31 36 2c |.a=1.15:.a,b*16,| 00000220 62 2a 31 36 2c 30 3a 62 2b 3d 31 3a ed 3a fd 30 |b*16,0:b+=1:.:.0| 00000230 0d 00 8c 04 0d 00 96 05 cb 0d ff |...........| 0000023b
.