Fix bottom of window scroll for VIDEX

src/libsrc/apple/conio.pla

@@ -99,6 +99,9 @@ byte flags
 //
 word kswsave, cswsave
 //
+// UltraTerm extended mode heights
+byte[] UltraTermHeight = 24, 24,  24, 24, 32, 48,  24,  32
+//
 // Apple 3 console codes.
 //
 byte textbwmode[]   = 2, 16, 0
@@ -682,7 +685,7 @@ def a2ctrl80v(code, param)#1
             break
         is ctrlscroll
             if param == UP
-                cout(30); cout(' '); cout(^WNDBOTTOM + ' '); cout(10)
+                cout(30); cout(' '); cout(^WNDBOTTOM + ' ' - 1); cout(10)
                 handled = TRUE
             fin
             break
@@ -711,7 +714,9 @@ def a2textmode(columns)
                 conio:putchars = @a2putchars
                 if columns > 80 and columns <= 88// Check for UltraTerm modes
                     cout(22); cout(columns - 80 + '0')
+                    ^WNDBOTTOM = UltraTermHeight[columns - 81]
                 else
+                    cout(22); cout('1') // Ensure 80x24
                     columns = 80
                 fin
             fin