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, tn,key0,cpnd,key1,key2
fopen 0 "3904.txt" READ ;Open our data file
while not feof 0 ;While the file still has data
fgets 0 sLine ;Read a line of data
strtok tn sLine "`t" 1 ;Get the first field
strtok key0 sLine "`t" 1 ;Get the second field
strtok cpnd sLine "`t" 1 ;Get the third field
strtok key1 sLine "`t" 1 ;Get the fourth field
strtok key2 sLine "`t" 1 ;Get the fifth field
; strtok sTemp3 sLine "`t" 1 ;Get the sixth field
set txpace 30
waitfor "req:"
transmit "new^M"
waitfor "type"
transmit "3904^M"
waitfor "tn "
transmit tn
transmit "^M"
waitfor "des"
transmit "xxxx^M"
waitfor "CUST"
transmit "0^M"
waitfor "KBA"
transmit "^M"
waitfor "dba"
transmit "^M"
waitfor "fdn"
transmit "xxxxx^M"
waitfor "tgar"
transmit "^M"
waitfor "ldn"
transmit "^M"
waitfor "ncos"
transmit "5^M"
waitfor "rnpg"
transmit "^M"
waitfor "ssu"
transmit "^M"
waitfor "xlst"
transmit "^M"
waitfor "sgrp"
transmit "^M"
waitfor "cls"
transmit "LNA FNA HTA HFA MWA CNDA DNDA CFXA FTTU AHA^M"
waitfor "rco"
transmit "^M"
waitfor "hunt"
transmit "xxxxx^M"
waitfor "lhk"
transmit "0^M"
waitfor "lnrs"
transmit "^M"
waitfor "sci"
transmit "^M"
waitfor "plev"
transmit "^M"
waitfor "ast"
transmit "^M"
waitfor "iapg"
transmit "^M"
waitfor "mlwu_lang"
transmit "^M"
waitfor "mlng"
transmit "^M"
waitfor "dndr"
transmit "^M"
waitfor "key "
transmit key0
transmit "^M"
waitfor "marp"
transmit "^M"
waitfor "cpnd"
transmit "new^M"
waitfor "name "
transmit cpnd
transmit "^M"
waitfor "vmb"
transmit "^M"
waitfor "key "
transmit key1
transmit "^M"
waitfor "marp"
transmit "^M"
waitfor "cpnd"
transmit "^M"
waitfor "vmb"
transmit "^M"
waitfor "key "
transmit key2
transmit "^M"
waitfor "marp"
transmit "^M"
waitfor "cpnd"
transmit "^M"
waitfor "vmb"
transmit "^M"
waitfor "key"
transmit "3 adl^M"
waitfor "key"
transmit "4 adl^M"
waitfor "key"
transmit "5 adl^M"
waitfor "key"
transmit "6 csd^M"
waitfor "key"
transmit "7 adl^M"
waitfor "key"
transmit "8 adl^M"
waitfor "key"
transmit "9 adl^M"
waitfor "key"
transmit "10 adl^M"
waitfor "key"
transmit "11 adl^M"
waitfor "key"
transmit "16 mwk xxxxx^M"
waitfor "key"
transmit "24 nul^M"
waitfor "key"
transmit "25 nul^M"
waitfor "key"
transmit "26 nul^M"
endwhile
fclose 0
endproc