10 lines
281 B
Text
10 lines
281 B
Text
0010 DIM part$(FALSE:TRUE) OF 2
|
|
0020 part$(FALSE):=" ";part$(TRUE):="* "
|
|
0030 INPUT "Order? ":order#
|
|
0040 size#:=2^order#
|
|
0050 FOR y#:=size#-1 TO 0 STEP -1 DO
|
|
0060 PRINT " "*y#,
|
|
0070 FOR x#:=0 TO size#-y#-1 DO PRINT part$(x# BITAND y#=0),
|
|
0080 PRINT
|
|
0090 ENDFOR y#
|
|
0100 END
|