13 lines
250 B
QBasic
13 lines
250 B
QBasic
defint a-z
|
|
|
|
sub tri (startd) static
|
|
startrow=10:startcol=startd
|
|
for row = 0 to 10
|
|
locate startrow+row,startcol-row
|
|
for x = startcol - row to startcol+row
|
|
locate startrow+row,x
|
|
print "*"
|
|
next x
|
|
next row
|
|
end sub
|