Shift more memory to compile buffer from text buffer. Let Apple ][

input | and ~.

src/samplesrc/sieve.pla

@@ -28,7 +28,7 @@ def puti(i)
 end
 
 beep
-for iter = 1 to 10
+//for iter = 1 to 10
   memset(@flag, sizepl, TRUE)
   count = 0
   for i = 0 to size
@@ -40,11 +40,11 @@ for iter = 1 to 10
         k = k + prime
       loop
       count = count + 1
-      // puti(prime)
-      // putln
+      puti(prime)
+      putln
     fin
   next
-next
+//next
 beep
 puti(count)
 puts(@strPrimes)

src/toolsrc/sb.pla

@@ -48,6 +48,7 @@ const keyctrlu      = $95
 const keyctrlv      = $96
 const keyctrlw      = $97
 const keyctrlx      = $98
+const keyctrly      = $99
 const keyctrlz      = $9A
 const keydelete     = $FF
 const getbuff       = $01FF
@@ -61,12 +62,12 @@ const iobuffer      = $0800
 const databuff      = $0C00
 const strlinbuf     = $1000
 const strheapmap    = $1500
-const strheapmsz    = $80 // = memory@16 bytes per bit map, 128 bytes per 8 bit map, 1K bytes per 8 byte map
+const strheapmsz    = $40 // = memory@16 bytes per bit map, 128 bytes per 8 bit map, 1K bytes per 8 byte map
 const maxlnlen      = 79
 const strheap       = $6800
-const strheasz      = $4000
-const codebuff      = $A800
-const codebuffsz    = $1000
+const strheasz      = $2000
+const codebuff      = $8800
+const codebuffsz    = $3000
 const pgjmp         = 16
 const changed       = 1
 const insmode       = 2
@@ -1471,7 +1472,9 @@ def keyin2
     elsif key == keyctrlp
         key = $DF // _
     elsif key == keyctrlb
-        key = $DC // \
+        key = $FC // |
+    elsif key == keyctrly
+        key = $FE // ~
     elsif key == keyarrowleft
         if ^pushbttn3 < 128
             key = $FF
@@ -1761,7 +1764,7 @@ def editmode
 		break
             is keyescape
                 cursoff
-                cmdmode
+                cmdmode(TRUE)
                 redraw
 		break
         wend
@@ -1862,12 +1865,14 @@ def quit
         exit
     fin
 end
-def cmdmode
+def cmdmode(clearscr)
     byte slot
     word cmdptr
 
-    clrscrn
-    prstr(@version)
+    if (clearscr)
+        clrscrn
+        prstr(@version)
+    fin
     crout
     while TRUE
         prstr(@txtfile)
@@ -3918,7 +3923,7 @@ if signature == $EEEE
     fin
     signature = 0
 else
-    cmdmode
+    cmdmode(FALSE)
 fin
 curschr  = '+'
 flags = flags | insmode