Difference between revisions of "User:Stefan Haubenthal"

From Ninerpedia
Jump to navigation Jump to search
 
(4 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

Latest revision as of 23: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

Links

http://mntnweb.com/oldcomputers/ti994a/ti994a.HTM