Difference between revisions of "User:Stefan Haubenthal"

From Ninerpedia
Jump to navigation Jump to search
(respond to bug report)
(2 intermediate revisions by 2 users not shown)
Line 14: Line 14:
  FORWARD :SIZE * 2
  FORWARD :SIZE * 2
  TREE :SIZE :ANGLE :LEVEL - l
  TREE :SIZE :ANGLE :LEVEL - l
  BACK :SIZE & 2
  BACK :SIZE * 2
  RIGHT 2 * :ANGLE
  RIGHT 2 * :ANGLE
  FORWARD :SIZE
  FORWARD :SIZE
Line 30: Line 30:
  END
  END
(Stephen)
(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

Links

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