◂ Back to CompuLink-User-Group_Software-Library_COMUG-Disk-49-LADYBUG ◂ Disk Library Index
HILBERT.BUG  ·  BUG  ·  384 B  ·  1983-09-25  ·  from CompuLink-User-Group_Software-Library_COMUG-Disk-49-LADYBUG 
define "h [[ :size :lev :par][if :lev = 0 then stop][lt :par * 90][h  :size  :lev - 1  0 - :par][fd :size][rt :par * 90][h :size  :lev - 1  :par][fd :size][h  :size  :lev - 1  :par][rt :par * 90][fd :size][h :size :lev - 1  0 - :par][lt :par * 90]]
define "hilbert [[ :size :level][h :size :level 1]]
:par][rt :par * 90][fd :size][h :size :lev - 1  0 - :par][lt :par * 90]]
define