Rem Language:QuickBASIC Extended 7.1
  i = 1
  Do
    If i mod 3 = 0 Or i mod 7 = 0 Then
      PRINT i
    End If
    If Not (i < 1000) Then Exit Do
    i = i + 1
  Loop