diff --git a/Platform/Apple/tools/PackPartitions/src/org/demo/PackPartitions.groovy b/Platform/Apple/tools/PackPartitions/src/org/demo/PackPartitions.groovy
index 16c90743..03196cb8 100644
--- a/Platform/Apple/tools/PackPartitions/src/org/demo/PackPartitions.groovy
+++ b/Platform/Apple/tools/PackPartitions/src/org/demo/PackPartitions.groovy
@@ -1423,15 +1423,17 @@ class PackPartitions
         def vec_setScriptInfo   = 0x300
         def vec_pushAuxStr      = 0x303
         def vec_displayStr      = 0x306
-        def vec_getYN           = 0x309
-        def vec_setMap          = 0x30C
-        def vec_setSky          = 0x30F
-        def vec_setGround       = 0x312
-        def vec_teleport        = 0x315
-        def vec_setPortrait     = 0x318
-        def vec_clrPortrait     = 0x31B
-        def vec_moveBackward    = 0x31E
-        def vec_getCharacter    = 0x321
+        def vec_displayStrNL    = 0x309
+        def vec_getYN           = 0x30C
+        def vec_setMap          = 0x30F
+        def vec_setSky          = 0x312
+        def vec_setGround       = 0x315
+        def vec_teleport        = 0x318
+        def vec_setPortrait     = 0x31B
+        def vec_clrPortrait     = 0x31E
+        def vec_moveBackward    = 0x321
+        def vec_getCharacter    = 0x324
+        def vec_clrTextWindow   = 0x327
 
         def emitAuxString(inStr)
         {
@@ -1563,6 +1565,8 @@ class PackPartitions
                     case 'text_print':
                     case 'text_println':
                         packTextPrint(blk); break
+                    case 'text_clear_window':
+                        packClearWindow(blk); break
                     case 'text_getanykey':
                         packGetAnyKey(); break
                     case  'controls_if':
@@ -1665,7 +1669,17 @@ class PackPartitions
 
             emitAuxString(text)
             emitCodeByte(0x54)  // CALL
-            emitCodeWord(vec_displayStr)
+            emitCodeWord(blk.@type == 'text_print' ? vec_displayStr : vec_displayStrNL)
+            emitCodeByte(0x30) // DROP
+        }
+
+        def packClearWindow(blk)
+        {
+            assert blk.value.size() == 0
+            //println "            clearWindow"
+
+            emitCodeByte(0x54)  // CALL
+            emitCodeWord(vec_clrTextWindow)
             emitCodeByte(0x30) // DROP
         }
 
diff --git a/Platform/Apple/virtual/src/plasma/gameloop.pla b/Platform/Apple/virtual/src/plasma/gameloop.pla
index 70c4420a..e6fda0eb 100644
--- a/Platform/Apple/virtual/src/plasma/gameloop.pla
+++ b/Platform/Apple/virtual/src/plasma/gameloop.pla
@@ -205,7 +205,9 @@ asm pushAuxStr     // params: none; ret: $200 (inbuf)
         ; Get string length and save it
         iny             ; advance to next code byte
         bne +
-        inc $F4         ; next pg if necessary
+        inc $F5         ; next pg if necessary
+        tsx
+        inc $105,x      ; also PLASMA's copy of the page pointer
 +       jsr $10
         sta $200
         ldx #0
@@ -214,7 +216,11 @@ asm pushAuxStr     // params: none; ret: $200 (inbuf)
         beq ++
         iny             ; advance to next code byte
         bne +
-        inc $F4         ; next pg if necessary
+        inc $F5         ; next pg if necessary
+        stx tmp+1
+        tsx
+        inc $105,x      ; also PLASMA's copy of the page pointer
+        ldx tmp+1
 +       jsr $10         ; now fetch the byte from aux mem
         inx
         sta $200,x      ; and stuff it in the string / input buffer
@@ -678,6 +684,14 @@ def parseDec(str)
   return n
 end
 
+///////////////////////////////////////////////////////////////////////////////////////////////////
+def parseDecWithDefault(str, default)
+  if ^str == 0
+    return default
+  fin
+  return parseDec(str)
+end
+
 ///////////////////////////////////////////////////////////////////////////////////////////////////
 // Get a keystroke and convert it to upper case
 def getUpperKey()
@@ -1041,17 +1055,17 @@ def kbdTeleport()
   getPos(@x, @y)
   printf3("\nCurrent: X=%d Y=%d Facing=%d\n", x, y, getDir())
 
-  puts("3D : ")
-  d3 = parseDec(readStr())
+  printf1("3D [%d]: ", mapIs3D)
+  d3 = parseDecWithDefault(readStr(), mapIs3D)
   if d3 > 1; d3 = 1; fin
-  puts("Map: ")
-  num = parseDec(readStr())
-  puts("X  : ")
-  x = parseDec(readStr())
-  puts("Y  : ")
-  y = parseDec(readStr())
-  puts("Facing: ")
-  dir = parseDec(readStr())
+  printf1("Map [%d]: ", mapNum)
+  num = parseDecWithDefault(readStr(), mapNum)
+  printf1("X [%d]  : ", x)
+  x = parseDecWithDefault(readStr(), x)
+  printf1("Y [%d] : ", y)
+  y = parseDecWithDefault(readStr(), y)
+  printf1("Facing [%d]: ", dir)
+  dir = parseDecWithDefault(readStr(), dir)
 
   ^$c052
 
@@ -1161,6 +1175,11 @@ def scriptDisplayStr(str)
   displayStr(str)
 end
 
+def scriptDisplayStrNL(str)
+  scriptDisplayStr(str)
+  displayStr("\n")
+end
+
 ///////////////////////////////////////////////////////////////////////////////////////////////////
 // Get a key, and don't return until it's Y or N (or lower-case of those). Returns 1 for Y.
 def getYN()
@@ -1321,39 +1340,47 @@ def setCallbacks()
 
   // $309
   callbacks.9 = $4c
-  callbacks:10 = @getYN
+  callbacks:10 = @scriptDisplayStrNL
 
   // $30C
   callbacks.12 = $4c
-  callbacks:13 = @queue_setMap
+  callbacks:13 = @getYN
 
   // $30F
   callbacks.15 = $4c
-  callbacks:16 = @setSky
+  callbacks:16 = @queue_setMap
 
   // $312
   callbacks.18 = $4c
-  callbacks:19 = @setGround
+  callbacks:19 = @setSky
 
   // $315
   callbacks.21 = $4c
-  callbacks:22 = @queue_teleport
+  callbacks:22 = @setGround
 
   // $318
   callbacks.24 = $4c
-  callbacks:25 = @setPortrait
+  callbacks:25 = @queue_teleport
 
   // $31B
   callbacks.27 = $4c
-  callbacks:28 = @clrPortrait
+  callbacks:28 = @setPortrait
 
   // $31E
   callbacks.30 = $4c
-  callbacks:31 = @moveBackward
+  callbacks:31 = @clrPortrait
 
   // $321
   callbacks.33 = $4c
-  callbacks:34 = @getUpperKey
+  callbacks:34 = @moveBackward
+
+  // $324
+  callbacks.36 = $4c
+  callbacks:37 = @getUpperKey
+
+  // $327
+  callbacks.39 = $4c
+  callbacks:40 = @clearWindow
 end
 
 ///////////////////////////////////////////////////////////////////////////////////////////////////