Page History
...
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 |