Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
proc main
string sLine
string vector1
fopen 0 "C:\vectors.csv" READ TEXT
while not feof 0
fgets 0 sLine
strtok vector1 sLine "," 1
transmit "disp vect "
pause 1
transmit vector1
pause 1
transmit "^M"
call vector1
endwhile
fclose 0
endproc
proc vector1
call page1
transmit "^[OV" ;next page
call page2
transmit "^[OV" ;next page
call page3
endproc
proc page1
string Line ; Line to write to file.
integer Row ; Current row to get.
pause 3
if fopen 1 "C:\vector_dump.csv" APPEND ; Create file to write screen to.
for Row = 3 upto 3 ; Loop through each row on screen.
termgets Row 4 Line 75 ; Get line specified by row.
fputs 1 Line ; Write line from screen to file.
fputs 1 "`r`r"
endfor
fclose 1 ; Close file opened for create.
else
errormsg "Couldn't open file!"
endif
if fopen 1 "C:\vector_dump.csv" APPEND ; Create file to write screen to.
for Row = 8 upto 18 ; Loop through each row on screen.
termgets Row 0 Line 79 ; Get line specified by row.
fputs 1 Line ; Write line from screen to file.
fputs 1 "`r"
endfor
fclose 1 ; Close file opened for create.
else
errormsg "Couldn't open file!"
endif
endproc
proc page2
string Line ; Line to write to file.
integer Row ; Current row to get.
pause 3
if fopen 1 "C:\vector_dump.csv" APPEND ; Create file to write screen to.
for Row = 4 upto 14 ; Loop through each row on screen.
termgets Row 0 Line 79 ; Get line specified by row.
fputs 1 Line ; Write line from screen to file.
fputs 1 "`r"
endfor
fclose 1 ; Close file opened for create.
else
errormsg "Couldn't open file!"
endif
endproc
proc page3
string Line ; Line to write to file.
integer Row ; Current row to get.
pause 3
if fopen 1 "C:\vector_dump.csv" APPEND ; Create file to write screen to.
for Row = 4 upto 14 ; Loop through each row on screen.
termgets Row 0 Line 79 ; Get line specified by row.
fputs 1 Line ; Write line from screen to file.
fputs 1 "`r"
endfor
fclose 1 ; Close file opened for create.
else
errormsg "Couldn't open file!"
endif
pause 1
transmit "^[OP"
endproc