Sub Main
num0 = 0
num1 = 256
crt.Screen.Send "interface loopback 1" & chr(13)
crt.Screen.Send "ip address 20.1.1.1 255.255.255.255" & chr(13)
crt.Screen.Send "exit" & chr(13)
crt.Screen.Send "arp 55.1.1.2 0000.1234.5555 arpa" & chr(13)
While num0 < num1
crt.Screen.Send "int tunnel " &num0 & chr(13)
crt.Screen.Send "tunnel mode ipip " & chr(13)
crt.Screen.Send "ip addr 10.1." &num0 & ".1/24" &chr(13)
crt.Screen.Send "tunnel source loopback 1 " & chr(13)
crt.Screen.Send "tunnel destination 40.1." &num0 &".1" & chr(13)
num0 = num0 + 1
crt.Screen.Send chr(1)
WEnd
num0 = 0
While num0 < num1