Home » Archimedes archive » Archimedes World » AW-1993-05.adf » AWMay93 » !AWMay93/Goodies/LogoV2/NewProgs/Stars
!AWMay93/Goodies/LogoV2/NewProgs/Stars
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 » Archimedes World » AW-1993-05.adf » AWMay93 |
| Filename: | !AWMay93/Goodies/LogoV2/NewProgs/Stars |
| Read OK: | ✔ |
| File size: | 00E3 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
/ Subroutine to draw a five poiinted star / and main loop to draw 5 of them rotated about a point / � Duncan F. McPherson 11/1/92 RESTART [5 PENCOLOUR 11 STAR RIGHT 72 ] FINISH TO STAR [5 FORWARD 200 RIGHT 144 ] ENDTO
00000000 2f 20 53 75 62 72 6f 75 74 69 6e 65 20 74 6f 20 |/ Subroutine to | 00000010 64 72 61 77 20 61 20 66 69 76 65 20 70 6f 69 69 |draw a five poii| 00000020 6e 74 65 64 20 73 74 61 72 0a 2f 20 61 6e 64 20 |nted star./ and | 00000030 6d 61 69 6e 20 6c 6f 6f 70 20 74 6f 20 64 72 61 |main loop to dra| 00000040 77 20 35 20 6f 66 20 74 68 65 6d 20 72 6f 74 61 |w 5 of them rota| 00000050 74 65 64 20 61 62 6f 75 74 20 61 20 70 6f 69 6e |ted about a poin| 00000060 74 0a 2f 20 a9 20 44 75 6e 63 61 6e 20 46 2e 20 |t./ . Duncan F. | 00000070 4d 63 50 68 65 72 73 6f 6e 20 31 31 2f 31 2f 39 |McPherson 11/1/9| 00000080 32 0a 0a 52 45 53 54 41 52 54 0a 0a 5b 35 0a 50 |2..RESTART..[5.P| 00000090 45 4e 43 4f 4c 4f 55 52 20 31 31 0a 53 54 41 52 |ENCOLOUR 11.STAR| 000000a0 0a 52 49 47 48 54 20 37 32 0a 5d 0a 0a 46 49 4e |.RIGHT 72.]..FIN| 000000b0 49 53 48 0a 0a 54 4f 20 53 54 41 52 0a 5b 35 0a |ISH..TO STAR.[5.| 000000c0 46 4f 52 57 41 52 44 20 32 30 30 0a 52 49 47 48 |FORWARD 200.RIGH| 000000d0 54 20 31 34 34 0a 5d 20 20 20 20 20 20 0a 45 4e |T 144.] .EN| 000000e0 44 54 4f |DTO| 000000e3
.