25 lines
600 B
Plaintext
25 lines
600 B
Plaintext
goto -60, 12 ; pendown ; goto x+13, y+15 ; penup
|
|
goto -60, 9 ; pendown ; goto x+13, y+13 ; penup
|
|
goto -60, 6 ; pendown ; goto x+13, y+8 ; penup
|
|
goto -60, 3 ; pendown ; goto x+13, y+5 ; penup
|
|
goto -60, 0 ; pendown ; goto x+13, y ; penup
|
|
|
|
goto -47, -8 ; pendown ; goto x-13, y+5 ; penup
|
|
goto -47, -14 ; pendown ; goto x-13, y+8 ; penup
|
|
goto -47, -22 ; pendown ; goto x-13, y+13 ; penup
|
|
goto -47, -27 ; pendown ; goto x-13, y+15 ; penup
|
|
|
|
setvar 0, A
|
|
|
|
repeat 6
|
|
goto -30,16-7A
|
|
pendown
|
|
goto x+3A+3,y+5
|
|
penup
|
|
goto x+A+3,y
|
|
pendown
|
|
goto x-3A-3,y-5
|
|
penup
|
|
setvar A+1, A
|
|
repeat_end
|