19 lines
397 B
QBasic
19 lines
397 B
QBasic
|
tron
|
||
|
|
defint a-z
|
||
|
|
|
||
|
|
for startrow = 1 to 12 step 12
|
||
|
|
for startcol = 16 to 64 step 24
|
||
|
|
call triangle (startrow,startcol)
|
||
|
|
next startcol
|
||
|
|
next startrow
|
||
|
|
|
||
|
|
sub triangle (vertical,horizontal) static
|
||
|
|
for row = 0 to 10
|
||
|
|
locate vertical+row,horizontal-row
|
||
|
|
for x = horizontal-row to horizontal+row
|
||
|
|
locate vertical+row,x
|
||
|
|
print "*"
|
||
|
|
next x
|
||
|
|
next row
|
||
|
|
end sub
|