From b73cbbe35818286393159490b6ac915d5770b0b5 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Wed, 4 Jun 2014 08:44:04 -0700
Subject: [PATCH] Fix line editing and loadmod error checking

---
 src/a1cmd.pla | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/a1cmd.pla b/src/a1cmd.pla
index c8a7a6c..285e98a 100644
--- a/src/a1cmd.pla
+++ b/src/a1cmd.pla
@@ -511,13 +511,13 @@ def rdstr(prompt)
     repeat
         ch = cin
 	when ch
-	    is $08 ; right arrow
+	    is $15 ; right arrow
 	        if inbuff.0 < maxlen
 		    inbuff.0 = inbuff.0 + 1
 		    ch = inbuff[inbuff.0]
 		    cout(ch)
 		fin
-	    is $15 ; left arrow
+	    is $08 ; left arrow
 	        if inbuff.0
 		    cout('\\')
 		    cout(inbuff[inbuff.0])
@@ -709,6 +709,9 @@ def loadmod(mod)
     ;
     dcitos(mod, @filename)    
     rdlen = (finddirentry(@filename)):$15
+    if perr
+        return -perr
+    fin
     if rdlen > 0
         readfile(@filename, heap)
 	modsize = (heap):0