19 lines
214 B
Text
19 lines
214 B
Text
OPENCONSOLE
|
|
|
|
FOR X=1 TO 5
|
|
|
|
FOR Y=1 TO X
|
|
|
|
LOCATE X,Y:PRINT"*"
|
|
|
|
NEXT Y
|
|
|
|
NEXT X
|
|
|
|
PRINT
|
|
|
|
CLOSECONSOLE
|
|
|
|
END
|
|
|
|
'Could also have been written the same way as the Creative Basic example, with no LOCATE command.
|