Make sure printing works

src/libsrc/apple/conio.pla

@@ -705,7 +705,7 @@ def a2textmode(columns)
         if not (flags & txt80)
             cswsave = *CSW
             kswsave = *KSW
-            call($C300, 0, 0, 0,  0)
+            call($C300, 0, 0, 0, 0)
             if MACHID & $C0 == MACHID_IIE
                 conio:clear    = @a2clear80
                 conio:gotoxy   = @a2gotoxy80e
@@ -821,19 +821,6 @@ def a3putchars(cnt, chrs)
     fin
     return cnt
 end
-def a3clear(clr)
-    when clr
-        is cleol // clear EOL
-            break
-        is cls
-            putc(28) // FF
-            break
-        is cleos // clear OES
-            putc(11) // VT
-            break
-    wend
-    return 0
-end
 def a3gotoxy(x, y)
     putc(24)
     putc(x)
@@ -930,7 +917,7 @@ when MACHID & MACHID_MODEL
         conio:keypressed = @a3keypressed
         conio:getkey     = @a3getkey
         conio:putchars   = @a3putchars
-        conio:clear      = @a3clear
+        conio:clear      = @a2clear80
         conio:gotoxy     = @a3gotoxy
         conio:viewport   = @a3viewport
         conio:textctrl   = @a3ctrl

src/toolsrc/ed.pla

@@ -10,7 +10,7 @@ include "inc/fileio.plh"
 include "inc/conio.plh"
 include "inc/vblank.plh"
 sysflags restxt1|resxtxt1|nojitc // Keep JITC from compiling and pausing while editing
-const CSW          = $0036
+const CSW          = $36
 //
 // Data and text buffer constants
 //
@@ -807,11 +807,10 @@ end
 def printtxt(slot)#0
     word i, scrncsw
 
-    scrncsw = *csw
-    *CSW  = $C000 | (slot << 8)
+    scrncsw = *CSW
+     *CSW = $C000 | (slot << 8)
     for i = 0 to numlines - 1
-        puts(txtlinbuf=>[i])
-        putln
+        puts(txtlinbuf=>[i]); putln
     next
     *CSW = scrncsw
 end