◂ Back to CompuLink-User-Group_Software-Library_COMUG-Disk-49-LADYBUG ◂ Disk Library Index
DRAGON.BUG  ·  BUG  ·  384 B  ·  1983-09-25  ·  from CompuLink-User-Group_Software-Library_COMUG-Disk-49-LADYBUG 
define "ldragon [[ :size :level][if :level = 0 then  fd :size  stop][ldragon :size  :level - 1][left 90][rdragon :size  :level - 1]]
define "rdragon [[ :size :level ][if :level = 0 then  fd :size  stop][ldragon :size  :level - 1][right 90][rdragon :size  :level - 1]]
define "dragon [[ :size :level][ldragon :size :level]]
top][ldragon :size  :level - 1][right 90][rdragon :size