12 lines
182 B
Text
12 lines
182 B
Text
PROGRAM "n_plus_one_half"
|
|
|
|
DECLARE FUNCTION Entry()
|
|
|
|
FUNCTION Entry()
|
|
FOR i% = 1 TO 10
|
|
PRINT i%;
|
|
IF i% = 10 THEN EXIT FOR
|
|
PRINT ",";
|
|
NEXT i%
|
|
END FUNCTION
|
|
END PROGRAM
|