'--------------------------------------------------------------
'                     (c) 1997,1998 MCS Electronics
'--------------------------------------------------------------
'  file: FOR_NEXT.BAS
'  demo: FOR, NEXT
'--------------------------------------------------------------
Dim A As Byte , B1 As Byte , C As Integer


For A = 1 To 10 Step 2
   Print "This is A " ; A
Next A

Print "Now lets try DOWNTO"
For C = 10 Downto -5
  Print "This is C " ; C
Next



Print "You can also nest FOR..NEXT statements."
For A = 1 To 10
  Print "This is A " ; A
  For B1 = 1 To 10
    Print "This is B1 " ; B1
  Next                                  ' note that you dont have to specify the parameter
Next A



End