From 7d41f903a64bd82984c6a00f3a8a9049d5dac545 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Tue, 9 Jan 2018 20:02:19 -0800
Subject: [PATCH] Add CHAR and VAR as aliases for BYTE and WORD

---
 src/makefile          | 2 +-
 src/samplesrc/rod.pla | 7 +++----
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/makefile b/src/makefile
index 973c0c8..122c28c 100755
--- a/src/makefile
+++ b/src/makefile
@@ -165,7 +165,7 @@ $(MON): samplesrc/mon.pla $(PLVM02) $(PLASM)
 	acme --setpc 4094 -o $(MON) samplesrc/mon.a
 
 $(ROD): samplesrc/rod.pla $(PLVM02) $(PLASM)
-	./$(PLASM) -AMOW < samplesrc/rod.pla > samplesrc/rod.a
+	./$(PLASM) -AMO < samplesrc/rod.pla > samplesrc/rod.a
 	acme --setpc 4094 -o $(ROD) samplesrc/rod.a
 
 $(SIEVE): samplesrc/sieve.pla $(PLVM02) $(PLASM)
diff --git a/src/samplesrc/rod.pla b/src/samplesrc/rod.pla
index e18d375..3b4bdf4 100644
--- a/src/samplesrc/rod.pla
+++ b/src/samplesrc/rod.pla
@@ -3,8 +3,8 @@ include "inc/conio.plh"
 //
 // Rod's Colors
 //
-def rod#0
-  byte i, j, k, w, fmi, fmk, color
+def rod
+  var i, j, k, w, fmi, fmk, color
 
   while TRUE
     for w = 3 to 50
@@ -24,8 +24,7 @@ def rod#0
           conio:grplot(i, fmk)
           conio:grplot(fmk, i)
           if conio:keypressed()
-            getc
-            return
+            return getc
           fin
         next
       next