Home » Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » Graphics/Stars/Make
Graphics/Stars/Make
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 » Electron » Programs_B.ADF |
| Filename: | Graphics/Stars/Make |
| Read OK: | ✔ |
| File size: | 0127 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » Graphics/Stars/Make
- Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Graphics/Stars/Make
File contents
20 MODE2:VDU23,1,0;0;0;0; 30 sang=0:REPEAT:sang=sang+1+RND(3):sped=RND(12)+8:start=RND(16) 40 cycle=RND(20):ang=sang:REPEAT ang=ang+1:GCOL0,((cycle+4+start) MOD 7)+1:x=640+cycle*sped*SIN(PI*ang/180):y=512+cycle*sped*COS(PI*ang/180):MOVEx,y:DRAWx,y:cycle=cycle+1:UNTILx<0 OR x>1280 OR y<0 OR y>1024:UNTIL sang>359 50 *SAVE TitData 3000 8000
�2:�23,1,0;0;0;0; 7 sang=0:�:sang=sang+1+�(3):sped=�(12)+8:start=�(16) (� cycle=�(20):ang=sang:� ang=ang+1:�0,((cycle+4+start) � 7)+1:x=640+cycle*sped*�(�*ang/180):y=512+cycle*sped*�(�*ang/180):�x,y:�x,y:cycle=cycle+1:�x<0 � x>1280 � y<0 � y>1024:� sang>359 2 *SAVE TitData 3000 8000 �
00000000 0d 00 14 16 20 eb 32 3a ef 32 33 2c 31 2c 30 3b |.... .2:.23,1,0;| 00000010 30 3b 30 3b 30 3b 0d 00 1e 37 20 73 61 6e 67 3d |0;0;0;...7 sang=| 00000020 30 3a f5 3a 73 61 6e 67 3d 73 61 6e 67 2b 31 2b |0:.:sang=sang+1+| 00000030 b3 28 33 29 3a 73 70 65 64 3d b3 28 31 32 29 2b |.(3):sped=.(12)+| 00000040 38 3a 73 74 61 72 74 3d b3 28 31 36 29 0d 00 28 |8:start=.(16)..(| 00000050 bc 20 63 79 63 6c 65 3d b3 28 32 30 29 3a 61 6e |. cycle=.(20):an| 00000060 67 3d 73 61 6e 67 3a f5 20 61 6e 67 3d 61 6e 67 |g=sang:. ang=ang| 00000070 2b 31 3a e6 30 2c 28 28 63 79 63 6c 65 2b 34 2b |+1:.0,((cycle+4+| 00000080 73 74 61 72 74 29 20 83 20 37 29 2b 31 3a 78 3d |start) . 7)+1:x=| 00000090 36 34 30 2b 63 79 63 6c 65 2a 73 70 65 64 2a b5 |640+cycle*sped*.| 000000a0 28 af 2a 61 6e 67 2f 31 38 30 29 3a 79 3d 35 31 |(.*ang/180):y=51| 000000b0 32 2b 63 79 63 6c 65 2a 73 70 65 64 2a 9b 28 af |2+cycle*sped*.(.| 000000c0 2a 61 6e 67 2f 31 38 30 29 3a ec 78 2c 79 3a df |*ang/180):.x,y:.| 000000d0 78 2c 79 3a 63 79 63 6c 65 3d 63 79 63 6c 65 2b |x,y:cycle=cycle+| 000000e0 31 3a fd 78 3c 30 20 84 20 78 3e 31 32 38 30 20 |1:.x<0 . x>1280 | 000000f0 84 20 79 3c 30 20 84 20 79 3e 31 30 32 34 3a fd |. y<0 . y>1024:.| 00000100 20 73 61 6e 67 3e 33 35 39 0d 00 32 1c 20 2a 53 | sang>359..2. *S| 00000110 41 56 45 20 54 69 74 44 61 74 61 20 33 30 30 30 |AVE TitData 3000| 00000120 20 38 30 30 30 0d ff | 8000..| 00000127
.