Difference between revisions of "User:Stefan Haubenthal"
Jump to navigation
Jump to search
NinerAdmin (talk | contribs) m (Creating user page with biography of new user.) |
|||
(5 intermediate revisions by 2 users not shown) | |||
Line 5: | Line 5: | ||
I'm interested in assembler programming, right now I have a GPL project... | I'm interested in assembler programming, right now I have a GPL project... | ||
I'm interested in assembler programming, right now I have a GPL project... | I'm interested in assembler programming, right now I have a GPL project... | ||
Buggy: Example in [[TI Logo II]] http://shawweb.myzen.co.uk/stephen/times9.htm | |||
Thanks Stefan- I think the errors are due to uncorrected OCR- try this instead: | |||
TO TREE :SIZE :ANGLE :LEVEL | |||
IF :LEVEL = 0 THEN STOP | |||
LEFT :ANGLE | |||
FORWARD :SIZE * 2 | |||
TREE :SIZE :ANGLE :LEVEL - l | |||
BACK :SIZE * 2 | |||
RIGHT 2 * :ANGLE | |||
FORWARD :SIZE | |||
TREE :SIZE :ANGLE :LEVEL - 1 | |||
BACK :SIZE | |||
LEFT :ANGLE | |||
END | |||
TO WILLOW | |||
TELL TURTLE | |||
PENUP | |||
BACK 24 | |||
PENDOWN | |||
TREE 8 15 8 | |||
BACK 24 | |||
END | |||
(Stephen) | |||
== TODO == | |||
* Battlezone | |||
== Links == | |||
http://mntnweb.com/oldcomputers/ti994a/ti994a.HTM |
Revision as of 22:57, 5 January 2021
I'm interested in assembler programming, right now I have a GPL project... 50 words? I'm interested in assembler programming, right now I have a GPL project... I'm interested in assembler programming, right now I have a GPL project... I'm interested in assembler programming, right now I have a GPL project... I'm interested in assembler programming, right now I have a GPL project...
Buggy: Example in TI Logo II http://shawweb.myzen.co.uk/stephen/times9.htm
Thanks Stefan- I think the errors are due to uncorrected OCR- try this instead: TO TREE :SIZE :ANGLE :LEVEL
IF :LEVEL = 0 THEN STOP LEFT :ANGLE FORWARD :SIZE * 2 TREE :SIZE :ANGLE :LEVEL - l BACK :SIZE * 2 RIGHT 2 * :ANGLE FORWARD :SIZE TREE :SIZE :ANGLE :LEVEL - 1 BACK :SIZE LEFT :ANGLE END TO WILLOW TELL TURTLE PENUP BACK 24 PENDOWN TREE 8 15 8 BACK 24 END
(Stephen)
TODO
- Battlezone