Versions Compared

Old Version 3

changes.mady.by.user SRP Support

Saved on

compared with

New Version Current

changes.mady.by.user Corby Nagel

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Caution: Do not jump into a For...Next loop using GoTo or GoSub.

See also

Loop, GoTo

Example

Code Block
* This loop adds the squares of integers from 1 to 50.
Total = 0
For X = 1 To 50
Total += X * X
Next
/* Reads a stored procedure from the SYSPROCS table, 
and scans through it until a line containing "CREATED BY:" is found.
Variable L will hold the number of the line it was found on. */
Open "SYSPROCS" To proc_file Then
Read @RECORD From proc_file, "TEST_PROCEDURE" Then
  line_count = Count(@RECORD, #"")
  For L = 1 To line_count
   cur_line = @RECORD<L>
  Until Index(cur_line, "CREATED BY:", 1)
  Next
End Else
  GoSub Read_Error
End
End Else
GoSub Open_Error
End