home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d9xx
/
d969
/
ace.lha
/
ACE
/
ACE-2.0.lha
/
PRGS.lha
/
Turtle
/
boxit.b
next >
Wrap
Text File
|
1994-01-10
|
453b
|
35 lines
'...recursive triangle consisting of boxed edges.
sub boxit(n)
if n=0 then
forward 2
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)
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