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 tnb
integer count
string szline
fopen 0 "3904.txt" read
while not feof 0
SZLINE = "2"
fgets 0 szline
strtok tnb szline "t" 1
set txpace 40
transmit "chg^M"
waitfor "TYPE: "
transmit "3904^M"
waitfor "TN "
transmit tnb
transmit "^M"
waitfor "ECHG "
transmit "yep^M"
waitfor "ITEM "
transmit "cls tdd^M"
waitfor "ITEM "
transmit "^M"
waitfor "REQ: "
count += 2
endwhile
fclose 0
fclose 1
call main
endproc