13 lines
171 B
Text
13 lines
171 B
Text
PROGRAM "for"
|
|
|
|
DECLARE FUNCTION Entry()
|
|
|
|
FUNCTION Entry()
|
|
FOR i% = 1 TO 5
|
|
FOR j% = 1 TO i%
|
|
PRINT "*";
|
|
NEXT j%
|
|
PRINT
|
|
NEXT i%
|
|
END FUNCTION
|
|
END PROGRAM
|