Source code in the basic programming language

FOR I = 10 TO 0 STEP -1 : PRINT I : NEXT I

' Downward for
FOR i = 10 DOWNTO 0 : PRINT i : NEXT

for i = 10 to 0 step -1
	print i; " ";
next i
print
end

      FOR i% = 10 TO 0 STEP -1
        PRINT i%
      NEXT


10 FOR I = 10 TO 0 STEP -1
20 PRINT I 
30 NEXT


#APPTYPE CONSOLE

FOR DIM i = 10 DOWNTO 0
    PRINT i
NEXT

PAUSE


' FB 1.05.0 Win64

For i As Integer = 10 To 0 Step -1
  Print i; " ";
Next
Print 
Sleep

window 1, @"Countdown", ( 0, 0, 400, 300 )

NSInteger i

for i = 10 to 0 step -1
print i
next

HandleEvents

Public Sub Main()
Dim siCount As Short

For siCount = 10 DownTo 0
  Print siCount;;
Next

End

10 FOR I% = 10 TO 0 STEP -1
20  PRINT I%
30 NEXT I%

100 FOR I=10 TO 0 STEP-1
110   PRINT I
120 NEXT

for i = 10 to 0 step -1
   print i
next i
end

For i = 10 To 0 Step -1
  TextWindow.WriteLine(i)
EndFor

10 FOR 1=10 TO 0 STEP -1
20 PRINT I
30 NEXT

For i=10 To 0 Step -1
  Debug i
Next

FOR n = 10 TO 0 STEP -1
    PRINT n
NEXT


for i = 10 to 0 step -1
   print i
next i


for i = 10 to 0 step -1
   print i
next i
end

:For(I,10,0,-1
:Disp I
:End

Local i
For i, 10, 0, –1
  Disp i
EndFor

FOR i = 10 TO 0 STEP -1
    PRINT i; " ";
NEXT i
PRINT
END


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


For i = 10 To 0 Step -1
   Debug.Print i
Next i

For i = 10 To 0 Step -1
    Console.WriteLine(i)
Next


PROGRAM "downwardfor"

DECLARE FUNCTION Entry()

FUNCTION Entry()
  FOR i% = 10 TO 0 STEP -1
    PRINT i%
  NEXT i%
END FUNCTION
END PROGRAM

for i = 10 to 0 step -1
    print i, " ";
next i
print
end

10 FOR l = 10 TO 0 STEP -1
20 PRINT l
30 NEXT l