Ultraterm fix for screen height

src/libsrc/apple/conio.pla

@@ -725,6 +725,9 @@ def a2ctrl80v(code, param)#1
     return handled
 end
 def a2textmode(columns)
+    byte height
+    
+    height = 24
     if columns == 0
         columns = (cmdsys:_sysflags_ & vid80col) ?? 80 :: 40
     fin
@@ -752,7 +755,7 @@ def a2textmode(columns)
                 if columns > 80 and columns <= 88 \
                     and ^$C304 == $39 // Check for UltraTerm modes
                     a2cout(22); a2cout(columns - 80 + '0')
-                    ^WNDBOTTOM = UltraTermHeight[columns - 81]
+                    height = UltraTermHeight[columns - 81]
                 else
                     a2cout(22); a2cout('1') // Ensure 80x24
                     columns = 80
@@ -783,7 +786,7 @@ def a2textmode(columns)
     fin
     ^showtext
     ^showfull
-    a2viewport(0, 0, 0, 0)
+    a2viewport(0, 0, columns, height)
     conio:clear(cls)
     return columns
 end