More code

hreodwrit.baz

@@ -1,4 +1,4 @@
-rem ///////////////////////////////////////////////////////////
+rem //////////////////////////////////////////////////////////
 rem Program: Hreodwrit - A writing pen
 rem Author:  Bill Chatfield
 rem License: GPL2
@@ -18,6 +18,7 @@ section variables
     sw{screenWidth}=40
     sh{screenHeight}=24
     bm{bufferModified}=0
+    oa{openApple}=0
 closesection
 
 section splash
@@ -33,14 +34,22 @@ section main
     £eventLoop
         # Check open apple and closed apple keys
         get k$
+        if peek(49249) > 127 then goto @openApplePressed
+            if asc(k$) = 3 then gosub @copyText
+
+        £openApplePressed
+            if k$ = "s" then gosub @saveFile
+
+            
     goto @eventLoop
     
     £atExit
-		if bm{bm{bufferModified} = 0 then goto @exit
+    if bm{bufferModified} = 0 then goto @exit
         print "Save file ";f${nameOfFileInEditor};"? (Y/N) ";
         get k$
         print k$
         if k$ = "y" or k$ = "Y" then gosub @saveFile
+
     £exit
     end
 closesection