--- nlogin      2010-06-16 14:36:18.000000000 +0000
+++ ftlogin     2010-06-17 17:28:20.000000000 +0000
@@ -435,7 +435,10 @@
     global in_proc
     set in_proc 1
 
-    send "set console page 0\r"
+    #send "set console page 0\r"
+    send "config system console\r"
+    send "set output standard\r"
+    send "end\r"
     expect -re $prompt {}
 
     set commands [split $command \;]
@@ -445,7 +448,7 @@
        expect {
            -re "\[\n\r]+"                      { exp_continue }
             -re "$prompt"                      {}
-           -gl "--- more ---"                  { send " "
+           -gl "--More-- "                     { send " "
                                                  exp_continue
                                                }
        }
@@ -485,7 +488,7 @@
        set timeout $timeoutdflt
     }
 
-    set prompt {-> }
+    set prompt {# }
 
     # Figure out passwords
     if { $do_passwd || $do_enapasswd } {
@@ -560,7 +563,10 @@
            continue
        }
     } elseif { $do_script } {
-       send "set console page 0\r"
+       #send "set console page 0\r"
+        send "config system console\r"
+        send "set output standard\r"
+        send "end\r"
        expect -re $prompt      {}
        source $sfile
        catch {close};