12 lines
234 B
Text
12 lines
234 B
Text
get "libhdr"
|
|
|
|
manifest $( SIZE = 1 << 4 $)
|
|
|
|
let start() be
|
|
$( for y = SIZE-1 to 0 by -1 do
|
|
$( for i=1 to y do wrch(' ')
|
|
for x=0 to SIZE-y-1 do
|
|
writes((x & y) ~= 0 -> " ", "** ")
|
|
wrch('*N')
|
|
$)
|
|
$)
|