21 lines
215 B
Text
21 lines
215 B
Text
OPENCONSOLE
|
|
|
|
FOR X=1 TO 5
|
|
|
|
FOR Y=1 TO X
|
|
|
|
PRINT"*",:'No line feed or carriage return after printing.
|
|
|
|
NEXT Y
|
|
|
|
PRINT
|
|
|
|
NEXT X
|
|
|
|
PRINT:PRINT"Press any key to end."
|
|
|
|
DO:UNTIL INKEY$<>""
|
|
|
|
CLOSECONSOLE
|
|
|
|
END
|