Gebruiker:Stefan~nlwikibooks

een simpel programma om een punt te laten bewegen

:repeat 1 =/= 1            (begin van oneindige lus)
:0→A:1→X:1→Y
:repeat A=1
:getket→B 
:pt-off(x,y,2              (wist het vorge punt)
:if b =/= 0                (zorgt ervoor dat hij niet stopt)
   :b→c
:if c=                     (verandert de coordinaten van X of Y)
   :x+3→x
:if c= 
   :x-3→x
:if c= 
   :y+3→y
:if c= 
   :y-3→y
:pt-on(x,y,2               (tekent het nieuwe punt)
:if x > 94 or x < 0 or y > 64 or y < 0       (controleert of het punt binnen de marges ligt)
   :1→a
:end
:end