RosettaCodeData/Task/Loops-Downward-for/True-BASIC/loops-downward-for-2.basic
2023-07-01 13:44:08 -04:00

7 lines
108 B
Text

10 REM Loops/Downward for
20 LET I = 10
30 IF I = -1 THEN END
40 PRINT I
50 LET I = I - 1
60 GOTO 30
70 END