home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 91
/
af091a.adf
/
af91a3.lzx
/
prgs
/
Turtle
/
boxit.b
next >
Wrap
Text File
|
2019-01-20
|
469b
|
35 lines
'...recursive triangle consisting of boxed edges.
sub boxit(n)
if n=0 then
forward 3
else
boxit(n-1)
turnleft 90
boxit(n-1)
turnright 90
boxit(n-1)
turnright 90
boxit(n-1)
turnleft 90
boxit(n-1)
end if
end sub
window 1,"BoxIt",(0,0)-(640,200),6
font "topaz",8
color 2,1
cls
penup
setxy 0,150
pendown
turnright 90
boxit(4)
locate 22,1
print "press 'q' to quit."
while ucase$(inkey$)<>"Q":wend
window close 1