RosettaCodeData/Task/Loops-Downward-for/XBasic/loops-downward-for.basic

11 lines
141 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
PROGRAM "downwardfor"
DECLARE FUNCTION Entry()
FUNCTION Entry()
FOR i% = 10 TO 0 STEP -1
PRINT i%
NEXT i%
END FUNCTION
END PROGRAM