Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape07a_acorn_eu_1990_january.wav » SUN1
SUN1
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 tapes » Electron_User » Electron_User_tape07a_acorn_eu_1990_january.wav |
| Filename: | SUN1 |
| Read OK: | ✔ |
| File size: | 014D bytes |
| Load address: | 2000 |
| Exec address: | 1900 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » database » database_5_25_discs_Electron-User-7-04_D-E704.ssd » SUN1
- AEW website » database » database_tapes_Electron-User-7-04_EU7-4_E.uef » SUN1
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape07a_acorn_eu_1990_january.wav » SUN1
File contents
10REM Sunburst I 20REM By John Geraghty 30REM (c) Electron User 40MODE2 50GCOL0,7 60INPUT''"degree increment";deg_inc% 70CLS 80GCOL0,7 90VDU29,640;512; 100deg%=0 110R%=500 120MOVE FNx,FNy 130: 140REPEAT 150PROCpoint 160UNTIL deg%=0 170PROCpoint 180END 190: 200DEF FNx 210=R%*SINRADdeg% 220: 230DEF FNy 240=R%*COSRADdeg% 250: 260DEF PROCpoint 270deg%=(deg%+deg_inc%)MOD360 280DRAW FNx,FNy 290ENDPROC
� Sunburst I � By John Geraghty � (c) Electron User (�2 2�0,7 <"�''"degree increment";deg_inc% F� P�0,7 Z�29,640;512; d deg%=0 n R%=500 x � �x,�y �: �� � �point � � deg%=0 � �point �� �: �� �x �=R%*��deg% �: �� �y �=R%*��deg% �: � �point deg%=(deg%+deg_inc%)�360 � �x,�y "� �
00000000 0d 00 0a 10 f4 20 53 75 6e 62 75 72 73 74 20 49 |..... Sunburst I| 00000010 0d 00 14 16 f4 20 42 79 20 4a 6f 68 6e 20 47 65 |..... By John Ge| 00000020 72 61 67 68 74 79 0d 00 1e 17 f4 20 28 63 29 20 |raghty..... (c) | 00000030 45 6c 65 63 74 72 6f 6e 20 55 73 65 72 0d 00 28 |Electron User..(| 00000040 06 eb 32 0d 00 32 08 e6 30 2c 37 0d 00 3c 22 e8 |..2..2..0,7..<".| 00000050 27 27 22 64 65 67 72 65 65 20 69 6e 63 72 65 6d |''"degree increm| 00000060 65 6e 74 22 3b 64 65 67 5f 69 6e 63 25 0d 00 46 |ent";deg_inc%..F| 00000070 05 db 0d 00 50 08 e6 30 2c 37 0d 00 5a 10 ef 32 |....P..0,7..Z..2| 00000080 39 2c 36 34 30 3b 35 31 32 3b 0d 00 64 0a 64 65 |9,640;512;..d.de| 00000090 67 25 3d 30 0d 00 6e 0a 52 25 3d 35 30 30 0d 00 |g%=0..n.R%=500..| 000000a0 78 0b ec 20 a4 78 2c a4 79 0d 00 82 05 3a 0d 00 |x.. .x,.y....:..| 000000b0 8c 05 f5 0d 00 96 0a f2 70 6f 69 6e 74 0d 00 a0 |........point...| 000000c0 0c fd 20 64 65 67 25 3d 30 0d 00 aa 0a f2 70 6f |.. deg%=0.....po| 000000d0 69 6e 74 0d 00 b4 05 e0 0d 00 be 05 3a 0d 00 c8 |int.........:...| 000000e0 08 dd 20 a4 78 0d 00 d2 0e 3d 52 25 2a b5 b2 64 |.. .x....=R%*..d| 000000f0 65 67 25 0d 00 dc 05 3a 0d 00 e6 08 dd 20 a4 79 |eg%....:..... .y| 00000100 0d 00 f0 0e 3d 52 25 2a 9b b2 64 65 67 25 0d 00 |....=R%*..deg%..| 00000110 fa 05 3a 0d 01 04 0c dd 20 f2 70 6f 69 6e 74 0d |..:..... .point.| 00000120 01 0e 1c 64 65 67 25 3d 28 64 65 67 25 2b 64 65 |...deg%=(deg%+de| 00000130 67 5f 69 6e 63 25 29 83 33 36 30 0d 01 18 0b df |g_inc%).360.....| 00000140 20 a4 78 2c a4 79 0d 01 22 05 e1 0d ff | .x,.y.."....| 0000014d
.