diff --git a/src/toolsrc/ed.pla b/src/toolsrc/ed.pla
index a08a83b..9b0afb0 100755
--- a/src/toolsrc/ed.pla
+++ b/src/toolsrc/ed.pla
@@ -555,8 +555,8 @@ def drawscrn(toprow, ofst)#0
lofst = flags & gutter
if lofst
- drawgutter(toprow, ofst)
- fin
+ drawgutter(toprow, ofst)
+ fin
//
// Draw text
//
@@ -596,25 +596,25 @@ def cursoff#0
if flags & showcurs
^cursptr = underchr
if flags & gutter
- scrnptr = txtscrn[cursy]
- *scrnptr = *scrnptr | $8080
- ^(scrnptr+2) = ^(scrnptr+2) | $80
- fin
+ scrnptr = txtscrn[cursy]
+ *scrnptr = *scrnptr | $8080
+ ^(scrnptr+2) = ^(scrnptr+2) | $80
+ fin
flags = flags & ~showcurs
fin
end
def curson#0
- byte lofst
+ byte lofst
word scrnptr
if !(flags & showcurs)
- lofst = flags & gutter
- if lofst
- scrnptr = txtscrn[cursy]
- *scrnptr = *scrnptr & $7F7F
- ^(scrnptr+2) = ^(scrnptr+2) & $7F
- fin
+ lofst = flags & gutter
+ if lofst
+ scrnptr = txtscrn[cursy]
+ *scrnptr = *scrnptr & $7F7F
+ ^(scrnptr+2) = ^(scrnptr+2) & $7F
+ fin
cursptr = txtscrn[cursy] + lofst + cursx
underchr = ^cursptr
^cursptr = curschr
@@ -637,40 +637,40 @@ def redraw#0
curson
end
def curshpos(hpos)#1
- byte needredraw
-
- needredraw = TRUE
- if hpos < 0; hpos = 0; fin
- if hpos > MAXLNLEN; hpos = MAXLNLEN; fin
+ byte needredraw
+
+ needredraw = TRUE
+ if hpos < 0; hpos = 0; fin
+ if hpos > MAXLNLEN; hpos = MAXLNLEN; fin
curscol = hpos
- cursx = curscol - scrnleft
- if cursx > scrnright
- cursx = scrnright
- scrnleft = curscol - scrnright
- elsif cursx < 0
+ cursx = curscol - scrnleft
+ if cursx > scrnright
+ cursx = scrnright
+ scrnleft = curscol - scrnright
+ elsif cursx < 0
cursx = 0
scrnleft = curscol
else
- needredraw = FALSE
+ needredraw = FALSE
fin
return needredraw
end
def cursvpos(vpos)#1
- byte needredraw
+ byte needredraw
- needredraw = TRUE
+ needredraw = TRUE
if vpos < 0; vpos = 0; fin
if vpos > numlines - 1; vpos = numlines - 1; fin
cursrow = vpos
cursy = cursrow - scrntop
if cursy > scrnbottom
- cursy = scrnbottom
- scrntop = cursrow - scrnbottom
- elsif cursy < 0
+ cursy = scrnbottom
+ scrntop = cursrow - scrnbottom
+ elsif cursy < 0
cursy = 0
scrntop = cursrow
else
- needredraw = FALSE
+ needredraw = FALSE
fin
return needredraw
end
@@ -719,15 +719,15 @@ def cursup#0
fin
end
def pgup#0
- cursoff
- if cursvpos(cursrow - pgjmp)
- drawscrn(scrntop, scrnleft)
- else
- if flags & selection
- drawgutter(scrntop, scrnleft)
- fin
- fin
- curson
+ cursoff
+ if cursvpos(cursrow - pgjmp)
+ drawscrn(scrntop, scrnleft)
+ else
+ if flags & selection
+ drawgutter(scrntop, scrnleft)
+ fin
+ fin
+ curson
end
def cursdown#0
if cursrow < numlines - 1
@@ -746,15 +746,15 @@ def cursdown#0
fin
end
def pgdown#0
- cursoff
- if cursvpos(cursrow + pgjmp)
- drawscrn(scrntop, scrnleft)
- else
- if flags & selection
- drawgutter(scrntop, scrnleft)
- fin
- fin
- curson
+ cursoff
+ if cursvpos(cursrow + pgjmp)
+ drawscrn(scrntop, scrnleft)
+ else
+ if flags & selection
+ drawgutter(scrntop, scrnleft)
+ fin
+ fin
+ curson
end
def cursleft#0
if curscol > 0
@@ -770,15 +770,15 @@ def cursleft#0
fin
end
def pgleft#0
- cursoff
- if curshpos(curscol - 8)
- drawscrn(scrntop, scrnleft)
- else
- if flags & selection
- drawgutter(scrntop, scrnleft)
- fin
- fin
- curson
+ cursoff
+ if curshpos(curscol - 8)
+ drawscrn(scrntop, scrnleft)
+ else
+ if flags & selection
+ drawgutter(scrntop, scrnleft)
+ fin
+ fin
+ curson
end
def cursright#0
if curscol < MAXLNLEN
@@ -794,15 +794,15 @@ def cursright#0
fin
end
def pgright#0
- cursoff
- if curshpos(curscol + 8)
- drawscrn(scrntop, scrnleft)
- else
- if flags & selection
- drawgutter(scrntop, scrnleft)
- fin
- fin
- curson
+ cursoff
+ if curshpos(curscol + 8)
+ drawscrn(scrntop, scrnleft)
+ else
+ if flags & selection
+ drawgutter(scrntop, scrnleft)
+ fin
+ fin
+ curson
end
//
// Find string in text
@@ -835,8 +835,8 @@ def findtxt#0
// Search from current pos to end
//
if findline(txtlinbuf=>[cursrow], curscol + 2)
- return
- fin
+ return
+ fin
for f = cursrow + 1 to numlines - 1
if findline(txtlinbuf=>[f], 1)
cursvpos(f)
@@ -909,7 +909,7 @@ def keyin3
is keyenter
key = keyctrlf; break
is keytab
- key = keydetab; break
+ key = keydetab; break
is $80 | '\\'
key = keydelete; break // Delete
//
@@ -963,7 +963,7 @@ def keyin2e
is keyenter
key = keyctrlf; break
is keytab
- key = keydetab; break
+ key = keydetab; break
wend
fin
return key
@@ -1186,13 +1186,13 @@ def undentsel#0
redraw
end
def autoindent(strptr)#0
- byte i
-
- for i = 1 to ^strptr
- if ^(strptr + i) <> keyspace
- break
+ byte i
+
+ for i = 1 to ^strptr
+ if ^(strptr + i) <> keyspace
+ break
fin
- next
+ next
curshpos(i - 1)
end
def openline(row)
@@ -1279,7 +1279,7 @@ def editline(key)
byte editstr[MAXLNLEN+1], localchange, need
word undoline
- localchange = FALSE
+ localchange = FALSE
if (editkey(key))
localchange = TRUE
memset(@editstr + 1, $A0A0, MAXLNLEN)
@@ -1289,21 +1289,21 @@ def editline(key)
repeat
if key >= keyspace
if key == keydelete
- if curscol > 0
- if curscol <= editstr
- memcpy(@editstr[curscol], @editstr[curscol + 1], editstr - curscol)
- editstr--
- fin
- cursoff
- if curshpos(curscol - 1)
- drawscrn(scrntop, scrnleft)
- else
- drawrow(cursy, scrnleft, @editstr)
- fin
- curson
- fin
+ if curscol > 0
+ if curscol <= editstr
+ memcpy(@editstr[curscol], @editstr[curscol + 1], editstr - curscol)
+ editstr--
+ fin
+ cursoff
+ if curshpos(curscol - 1)
+ drawscrn(scrntop, scrnleft)
+ else
+ drawrow(cursy, scrnleft, @editstr)
+ fin
+ curson
+ fin
elsif curscol < MAXLNLEN
- curscol++
+ curscol++
if flags & insmode
if editstr < MAXLNLEN or editstr.MAXLNLEN == keyspace
editstr++
@@ -1347,21 +1347,21 @@ def editline(key)
cursoff
drawrow(cursy, scrnleft, @editstr)
curson
- localchange = FALSE
+ localchange = FALSE
fin
key = keyin()
until not editkey(key)
if localchange
- flags = flags | changed
- delstr(undoline)
- if editstr
- txtlinbuf=>[cursrow] = newstr(@editstr)
- else
- txtlinbuf=>[cursrow] = @nullstr
- fin
- else
- txtlinbuf=>[cursrow] = undoline
- fin
+ flags = flags | changed
+ delstr(undoline)
+ if editstr
+ txtlinbuf=>[cursrow] = newstr(@editstr)
+ else
+ txtlinbuf=>[cursrow] = @nullstr
+ fin
+ else
+ txtlinbuf=>[cursrow] = undoline
+ fin
fin
return key
end
@@ -1415,10 +1415,10 @@ def editmode#0
is keyctrlo
openline(cursrow)
if cursrow
- autoindent(txtlinbuf=>[cursrow - 1])
- else
- curshpos(0)
- fin
+ autoindent(txtlinbuf=>[cursrow - 1])
+ else
+ curshpos(0)
+ fin
redraw
break
is keyenter
@@ -1427,7 +1427,7 @@ def editmode#0
else
openline(cursrow + 1)
fin
- autoindent(txtlinbuf=>[cursrow])
+ autoindent(txtlinbuf=>[cursrow])
cursvpos(cursrow + 1)
redraw
break
@@ -1436,26 +1436,26 @@ def editmode#0
redraw
break
is keytab
- if flags & insmode
- indentsel
- cursoff
- if not ^(txtlinbuf=>[cursrow])
- curshpos((curscol + 2) & $FE)
+ if flags & insmode
+ indentsel
+ cursoff
+ if not ^(txtlinbuf=>[cursrow])
+ curshpos((curscol + 2) & $FE)
else
autoindent(txtlinbuf=>[cursrow])
- fin
- curson
- break
- fin
+ fin
+ curson
+ break
+ fin
is keydetab
undentsel
- cursoff
- if not ^(txtlinbuf=>[cursrow])
- curshpos((curscol - 2) & $FFFE)
- else
- autoindent(txtlinbuf=>[cursrow])
- fin
- curson
+ cursoff
+ if not ^(txtlinbuf=>[cursrow])
+ curshpos((curscol - 2) & $FFFE)
+ else
+ autoindent(txtlinbuf=>[cursrow])
+ fin
+ curson
break
is keyctrly
flags = flags ^ insmode
@@ -1579,27 +1579,27 @@ def cmdmode#0
findtxt
return
is 'T' // Toggle upper/lower case display
- if ^cmdptr
- when toupper(^(cmdptr + 1))
- is 'G' // Gutter view
- flags = flags ^ gutter
- if flags & gutter
- scrnwidth = 36
- scrnright = 35
- else
- scrnwidth = 40
- scrnright = 39
- fin
- break
- is 'C' // Lower case chip (Apple ][/][+ only)
- if flags & uppercase
- txtlower
- else
- txtupper
- fin
- break
- wend
- fin
+ if ^cmdptr
+ when toupper(^(cmdptr + 1))
+ is 'G' // Gutter view
+ flags = flags ^ gutter
+ if flags & gutter
+ scrnwidth = 36
+ scrnright = 35
+ else
+ scrnwidth = 40
+ scrnright = 39
+ fin
+ break
+ is 'C' // Lower case chip (Apple ][/][+ only)
+ if flags & uppercase
+ txtlower
+ else
+ txtupper
+ fin
+ break
+ wend
+ fin
return
is 'G' // Goto line #
line = strtonum(cmdptr)
@@ -1610,7 +1610,7 @@ def cmdmode#0
is 'E' // Edit mode
is 0
return
- is 'A' // Append file
+ is 'A' // Append file
readtxt(cmdptr, numlines)
flags = flags | changed
break
@@ -1662,7 +1662,7 @@ def cmdmode#0
if perr
puts("ERROR: $")
putb(perr)
- putln
+ putln
fin
loop
end