Home » Archimedes archive » Archimedes World » AW-1996-01-Disc2.adf » !Go-GoDemo_Go-GoDemo » !Go-GoDemo/Choices/FullScreen/Procedures
!Go-GoDemo/Choices/FullScreen/Procedures
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-1996-01-Disc2.adf » !Go-GoDemo_Go-GoDemo |
| Filename: | !Go-GoDemo/Choices/FullScreen/Procedures |
| Read OK: | ✔ |
| File size: | 02C3 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
#PROCEDURE Polygon sides,size inc=(2*PI*size)/sides Pen Up Forward size Right 90 Forward inc/2 Pen Down Repeat sides Right 360/sides Forward inc Next Pen Up Backward inc/2 Left 90 Backward size Pen Down#PROCEDURE Star size [ manoeuvre ] Pen Up Left 36 Forward size*.5 Pen Down Right 54 [ plot star ] Repeat 5 Forward size Right 180-36 Forward size Left 72 Next [ manoeuvre back ] Left 54 Pen Up Backward size*.5 Right 36 Pen Down #PROCEDURE Circle radius steps=radius*1.5 inc=(2*PI*radius)/steps Pen Up Forward radius Right 90 Forward inc/2 Pen Down Repeat steps Right 360/steps Forward inc Next Pen Up Backward inc/2 Left 90 Backward radius Pen Down#PROCEDURE Clear Wipe #PROCEDURE Pentagon Polygon 5 20
00000000 23 50 52 4f 43 45 44 55 52 45 20 50 6f 6c 79 67 |#PROCEDURE Polyg| 00000010 6f 6e 20 73 69 64 65 73 2c 73 69 7a 65 0a 69 6e |on sides,size.in| 00000020 63 3d 28 32 2a 50 49 2a 73 69 7a 65 29 2f 73 69 |c=(2*PI*size)/si| 00000030 64 65 73 0a 50 65 6e 20 55 70 0a 46 6f 72 77 61 |des.Pen Up.Forwa| 00000040 72 64 20 73 69 7a 65 0a 52 69 67 68 74 20 39 30 |rd size.Right 90| 00000050 0a 46 6f 72 77 61 72 64 20 69 6e 63 2f 32 0a 50 |.Forward inc/2.P| 00000060 65 6e 20 44 6f 77 6e 0a 52 65 70 65 61 74 20 73 |en Down.Repeat s| 00000070 69 64 65 73 0a 52 69 67 68 74 20 33 36 30 2f 73 |ides.Right 360/s| 00000080 69 64 65 73 0a 46 6f 72 77 61 72 64 20 69 6e 63 |ides.Forward inc| 00000090 0a 4e 65 78 74 0a 50 65 6e 20 55 70 0a 42 61 63 |.Next.Pen Up.Bac| 000000a0 6b 77 61 72 64 20 69 6e 63 2f 32 0a 4c 65 66 74 |kward inc/2.Left| 000000b0 20 39 30 0a 42 61 63 6b 77 61 72 64 20 73 69 7a | 90.Backward siz| 000000c0 65 0a 50 65 6e 20 44 6f 77 6e 23 50 52 4f 43 45 |e.Pen Down#PROCE| 000000d0 44 55 52 45 20 53 74 61 72 20 73 69 7a 65 0a 5b |DURE Star size.[| 000000e0 20 6d 61 6e 6f 65 75 76 72 65 20 5d 0a 50 65 6e | manoeuvre ].Pen| 000000f0 20 55 70 0a 4c 65 66 74 20 33 36 0a 46 6f 72 77 | Up.Left 36.Forw| 00000100 61 72 64 20 73 69 7a 65 2a 2e 35 0a 50 65 6e 20 |ard size*.5.Pen | 00000110 44 6f 77 6e 0a 52 69 67 68 74 20 35 34 0a 0a 5b |Down.Right 54..[| 00000120 20 70 6c 6f 74 20 73 74 61 72 20 5d 0a 52 65 70 | plot star ].Rep| 00000130 65 61 74 20 35 0a 46 6f 72 77 61 72 64 20 73 69 |eat 5.Forward si| 00000140 7a 65 0a 52 69 67 68 74 20 31 38 30 2d 33 36 0a |ze.Right 180-36.| 00000150 46 6f 72 77 61 72 64 20 73 69 7a 65 0a 4c 65 66 |Forward size.Lef| 00000160 74 20 37 32 0a 4e 65 78 74 0a 0a 5b 20 6d 61 6e |t 72.Next..[ man| 00000170 6f 65 75 76 72 65 20 62 61 63 6b 20 5d 0a 4c 65 |oeuvre back ].Le| 00000180 66 74 20 35 34 0a 50 65 6e 20 55 70 0a 42 61 63 |ft 54.Pen Up.Bac| 00000190 6b 77 61 72 64 20 73 69 7a 65 2a 2e 35 0a 52 69 |kward size*.5.Ri| 000001a0 67 68 74 20 33 36 0a 50 65 6e 20 44 6f 77 6e 0a |ght 36.Pen Down.| 000001b0 23 50 52 4f 43 45 44 55 52 45 20 43 69 72 63 6c |#PROCEDURE Circl| 000001c0 65 20 72 61 64 69 75 73 0a 73 74 65 70 73 3d 72 |e radius.steps=r| 000001d0 61 64 69 75 73 2a 31 2e 35 0a 69 6e 63 3d 28 32 |adius*1.5.inc=(2| 000001e0 2a 50 49 2a 72 61 64 69 75 73 29 2f 73 74 65 70 |*PI*radius)/step| 000001f0 73 0a 50 65 6e 20 55 70 0a 46 6f 72 77 61 72 64 |s.Pen Up.Forward| 00000200 20 72 61 64 69 75 73 0a 52 69 67 68 74 20 39 30 | radius.Right 90| 00000210 0a 46 6f 72 77 61 72 64 20 69 6e 63 2f 32 0a 50 |.Forward inc/2.P| 00000220 65 6e 20 44 6f 77 6e 0a 52 65 70 65 61 74 20 73 |en Down.Repeat s| 00000230 74 65 70 73 0a 52 69 67 68 74 20 33 36 30 2f 73 |teps.Right 360/s| 00000240 74 65 70 73 0a 46 6f 72 77 61 72 64 20 69 6e 63 |teps.Forward inc| 00000250 0a 4e 65 78 74 0a 50 65 6e 20 55 70 0a 42 61 63 |.Next.Pen Up.Bac| 00000260 6b 77 61 72 64 20 69 6e 63 2f 32 0a 4c 65 66 74 |kward inc/2.Left| 00000270 20 39 30 0a 42 61 63 6b 77 61 72 64 20 72 61 64 | 90.Backward rad| 00000280 69 75 73 0a 50 65 6e 20 44 6f 77 6e 23 50 52 4f |ius.Pen Down#PRO| 00000290 43 45 44 55 52 45 20 43 6c 65 61 72 0a 57 69 70 |CEDURE Clear.Wip| 000002a0 65 0a 23 50 52 4f 43 45 44 55 52 45 20 50 65 6e |e.#PROCEDURE Pen| 000002b0 74 61 67 6f 6e 0a 50 6f 6c 79 67 6f 6e 20 35 20 |tagon.Polygon 5 | 000002c0 32 30 0a |20.| 000002c3
.