RosettaCodeData/Task/Loops-N-plus-one-half/XBasic/loops-n-plus-one-half-2.basic
2023-07-01 13:44:08 -04:00

11 lines
153 B
Text

PROGRAM "n_plus_one_half"
DECLARE FUNCTION Entry()
FUNCTION Entry()
FOR i% = 1 TO 9
PRINT i%; ",";
NEXT i%
PRINT 10
END FUNCTION
END PROGRAM