Home » Archimedes archive » Archimedes World » AW-1992-10.adf » AWOct92 » !AWOct92/Goodies/Logo/LogoProgs/SquarePat
!AWOct92/Goodies/Logo/LogoProgs/SquarePat
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-1992-10.adf » AWOct92 |
| Filename: | !AWOct92/Goodies/Logo/LogoProgs/SquarePat |
| Read OK: | ✔ |
| File size: | 020E bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
/ Logo example program /
/ Draws a pattern with squares /
/ � Duncan F. McPherson /
/ Main Logo Program /
HOME: / Reset the logo system
PENCOLOUR 11: / Change to deep red
PENDOWN: / Set the pen to `draw` mode
SQUAREPATTERN: / Draw a wierd pattern
FINISH: / Thats it folks!
/ Sub Routines /
TO SQUARE
[4:FORWARD 100:RIGHT 90:]
ENDTO
TO SQUAREPATTERN
[24:RIGHT 15:SQUARE:]
ENDTO 00000000 2f 20 20 20 20 20 20 20 4c 6f 67 6f 20 65 78 61 |/ Logo exa| 00000010 6d 70 6c 65 20 70 72 6f 67 72 61 6d 20 20 20 20 |mple program | 00000020 20 20 2f 0a 2f 20 20 44 72 61 77 73 20 61 20 70 | /./ Draws a p| 00000030 61 74 74 65 72 6e 20 77 69 74 68 20 73 71 75 61 |attern with squa| 00000040 72 65 73 20 20 20 2f 0a 2f 20 20 20 20 20 20 a9 |res /./ .| 00000050 20 20 44 75 6e 63 61 6e 20 46 2e 20 4d 63 50 68 | Duncan F. McPh| 00000060 65 72 73 6f 6e 20 20 20 20 20 2f 0a 20 20 20 20 |erson /. | 00000070 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000080 20 20 20 20 20 0a 2f 20 20 20 4d 61 69 6e 20 4c | ./ Main L| 00000090 6f 67 6f 20 50 72 6f 67 72 61 6d 20 20 20 2f 0a |ogo Program /.| 000000a0 0a 48 4f 4d 45 3a 20 20 20 20 20 20 20 20 20 20 |.HOME: | 000000b0 20 20 20 20 20 20 20 20 20 2f 20 52 65 73 65 74 | / Reset| 000000c0 20 74 68 65 20 6c 6f 67 6f 20 73 79 73 74 65 6d | the logo system| 000000d0 20 0a 50 45 4e 43 4f 4c 4f 55 52 20 31 31 3a 20 | .PENCOLOUR 11: | 000000e0 20 20 20 20 20 20 20 20 20 20 2f 20 43 68 61 6e | / Chan| 000000f0 67 65 20 74 6f 20 64 65 65 70 20 72 65 64 20 20 |ge to deep red | 00000100 20 20 0a 50 45 4e 44 4f 57 4e 3a 20 20 20 20 20 | .PENDOWN: | 00000110 20 20 20 20 20 20 20 20 20 20 20 2f 20 53 65 74 | / Set| 00000120 20 74 68 65 20 70 65 6e 20 74 6f 20 60 64 72 61 | the pen to `dra| 00000130 77 60 20 6d 6f 64 65 20 0a 53 51 55 41 52 45 50 |w` mode .SQUAREP| 00000140 41 54 54 45 52 4e 3a 20 20 20 20 20 20 20 20 20 |ATTERN: | 00000150 20 2f 20 44 72 61 77 20 61 20 77 69 65 72 64 20 | / Draw a wierd | 00000160 70 61 74 74 65 72 6e 20 20 0a 46 49 4e 49 53 48 |pattern .FINISH| 00000170 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |: | 00000180 20 20 2f 20 54 68 61 74 73 20 69 74 20 66 6f 6c | / Thats it fol| 00000190 6b 73 21 20 20 20 20 20 20 20 0a 0a 20 2f 20 20 |ks! .. / | 000001a0 20 20 20 20 53 75 62 20 52 6f 75 74 69 6e 65 73 | Sub Routines| 000001b0 20 20 20 20 2f 0a 0a 54 4f 20 53 51 55 41 52 45 | /..TO SQUARE| 000001c0 0a 5b 34 3a 46 4f 52 57 41 52 44 20 31 30 30 3a |.[4:FORWARD 100:| 000001d0 52 49 47 48 54 20 39 30 3a 5d 0a 45 4e 44 54 4f |RIGHT 90:].ENDTO| 000001e0 0a 0a 54 4f 20 53 51 55 41 52 45 50 41 54 54 45 |..TO SQUAREPATTE| 000001f0 52 4e 0a 5b 32 34 3a 52 49 47 48 54 20 31 35 3a |RN.[24:RIGHT 15:| 00000200 53 51 55 41 52 45 3a 5d 0a 45 4e 44 54 4f |SQUARE:].ENDTO| 0000020e
.