20 lines
214 B
Text
20 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.
|