RosettaCodeData/Task/Loops-Downward-for/True-BASIC/loops-downward-for-2.basic

8 lines
108 B
Text
Raw Permalink Normal View History

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