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.
#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = True
Sub Main
DIM intSPN
intSPN = 1000 ' Start at 1000
crt.Screen.Send "****" & chr (13) ' Load correct Overlay
crt.Screen.WaitForString ">"
crt.Screen.Send "ld 90" & chr(13)
crt.Screen.WaitForString "REQ "
crt.Screen.Send "new" & chr(13)
crt.Screen.WaitForString "CUST "
crt.Screen.Send "0" & chr(13)
crt.Screen.WaitForString "FEAT "
crt.Screen.Send "net" & chr(13)
crt.Screen.WaitForString "TRAN "
crt.Screen.Send "ac1" & chr(13)
crt.Screen.WaitForString "TYPE "
crt.Screen.Send "spn" & chr(13)
crt.Screen.WaitForString "SPN "
Do While intSPN < 2000 ' Do the magic
crt.Screen.Send intSPN & chr(13)
crt.Screen.WaitForString "FLEN "
crt.Screen.Send "0" & chr(13)
' crt.Screen.WaitForString "CLTP " ' Uncomment for release higher then 4.5
' crt.Screen.Send chr(13) ' Uncomment for release higher then 4.5
crt.Screen.WaitForString "RLI "
crt.Screen.Send "0" & chr(13)
crt.Screen.WaitForString "SDRR "
crt.Screen.Send chr(13)
crt.Screen.WaitForString "ITEI "
crt.Screen.Send chr(13)
crt.Screen.WaitForString "SPN "
intSPN = intSPN + 1
Loop
crt.Screen.Send chr(13)
crt.Screen.WaitForString "REQ "
crt.Screen.Send "****" & chr(13)
End Sub
#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = True
Sub Main
DIM intSPN
intSPN = 1000 ' Start at 1000
crt.Screen.Send "****" & chr (13) ' Load correct Overlay
crt.Screen.WaitForString ">"
crt.Screen.Send "ld 90" & chr(13)
crt.Screen.WaitForString "REQ "
crt.Screen.Send "out" & chr(13)
crt.Screen.WaitForString "CUST "
crt.Screen.Send "0" & chr(13)
crt.Screen.WaitForString "FEAT "
crt.Screen.Send "net" & chr(13)
crt.Screen.WaitForString "TRAN "
crt.Screen.Send "ac1" & chr(13)
crt.Screen.WaitForString "TYPE "
crt.Screen.Send "spn" & chr(13)
crt.Screen.WaitForString "SPN "
Do While intSPN < 2000 ' Do the magic
crt.Screen.Send intSPN & chr(13)
crt.Screen.WaitForString "SPN "
intSPN = intSPN + 1
Loop
crt.Screen.Send chr(13)
crt.Screen.WaitForString "REQ "
crt.Screen.Send "****" & chr(13)
End Sub