home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
026.lha
/
logo
/
logo.3
< prev
next >
Wrap
Text File
|
1987-04-02
|
286b
|
15 lines
;
;this is a recursive drawing function.
;
to boxit :order
if :order = 0 [fd 2]
[boxit :order-1 lt 90 boxit :order-1 rt 90 boxit :order-1
rt 90 boxit :order-1 lt 90 boxit :order-1]
end
to demo
cs pu setpos [0 150] pd rt 90
boxit 4
end