
' Demo  Load TXT File

Load s1 SetupFile.txt

Controls OpenTextBox
Controls ClearTextBox 
Print CRLF

' ---------------------------------------- get number of lines
v1 = GetSeparatedStringCount(s1, CRLF)

' ---------------------------------------- for each line...
For v2 = 0 To v1
	' ------------------------------------ get the line to s2
	s2 = GetSeparatedString(s1, v2, CRLF)
	' ------------------------------------ if the line is not empty
	If s2 <> ""
		' -------------------------------- print the line
		Print s2 + CRLF
		' -------------------------------- get the value to s2
		s2 = GetSeparatedString(s2, 2)
		' -------------------------------- print the value
		Print s2 + CRLF + CRLF
	EndIf
Next
Stop


'WATCH v1
'WATCH s2
'WATCH s1
'EXEC Gosub test2
