12 lines
182 B
QBasic
12 lines
182 B
QBasic
defint a-z
|
|
|
|
sub ex (startb,startc) static
|
|
size = 5
|
|
for x=0 to size
|
|
locate startb+x, startc+x
|
|
print "*"
|
|
locate startb+x, startc+size-x
|
|
print "*"
|
|
next x
|
|
end sub
|