Difference between revisions of "User:Stefan Haubenthal"
Jump to navigation
Jump to search
(→Links: CheungChang7) |
|||
(12 intermediate revisions by 2 users not shown) | |||
Line 6: | Line 6: | ||
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]] | 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 | |||
* https://4apedia.com/index.php/User:Polluks | |||
* https://pixelpedant.com | |||
* https://www.ti99iuc.it/web/index.php?pageid=articoli_tech&artid=208#.Y-J5Cq2ZNXw | |||
* http://www.stuartconner.me.uk/mini_cortex/mini_cortex.htm Mini-Cortex System | |||
* https://github.com/petersobolev/99tro | |||
* https://github.com/CheungChang7/TI99_HOMEBREW/tree/main |
Latest revision as of 20:30, 16 June 2024
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
Links
- http://mntnweb.com/oldcomputers/ti994a/ti994a.HTM
- https://4apedia.com/index.php/User:Polluks
- https://pixelpedant.com
- https://www.ti99iuc.it/web/index.php?pageid=articoli_tech&artid=208#.Y-J5Cq2ZNXw
- http://www.stuartconner.me.uk/mini_cortex/mini_cortex.htm Mini-Cortex System
- https://github.com/petersobolev/99tro
- https://github.com/CheungChang7/TI99_HOMEBREW/tree/main