RosettaCodeData/Task/Loops-N-plus-one-half/XBasic/loops-n-plus-one-half-2.basic

12 lines
153 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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