add example action program

md/Atari/entries/Action-language-walkthrough.md

@@ -136,7 +136,7 @@ PROC DLine(BYTE x1, x2, y1)
   BYTE incr
 
   incr = 1
-  IF x2<x1 THEN incr = $FF FI
+  IF x2 < x1 THEN incr = $FF FI
 
   WHILE x1#x2 DO
     Plot7(x1, y1)
@@ -150,7 +150,7 @@ PROC Dot(BYTE x, y)
   BYTE i 
 
   i = 0 
-  WHILE i<4 DO
+  WHILE i < 4 DO
     Plot7(x+1, y)	Plot7(x+2, y)
     IF i=1 OR i=2 THEN
       Plot7(x, y)	Plot7(x+3, y)
@@ -164,7 +164,7 @@ PROC Pad(BYTE x, y)
   BYTE i
 
   i = 0
-  WHILE i<4 DO
+  WHILE i < 4 DO
     Plot7(x, y)
     Plot7(x+1, y)
     Plot7(x+2, y)
@@ -335,7 +335,7 @@ PROC Draw()
   HLine(50, 149, 88)
   Curve(149, 86)
   i = 0
-  WHILE i<4 DO
+  WHILE i < 4 DO
    VLine(153+i, 47, 82)
    DLine(143+i, 153+i, 37)
    VLine(143+i, 22, 37)
@@ -380,7 +380,7 @@ PROC Letter(BYTE ARRAY pts, BYTE x, y, delay)
    Plot7(x+dx, y+dy)
 
    ;i = 0
-   ;WHILE i<delay DO i==+1*1*1 OD
+   ;WHILE i < delay DO i==+1*1*1 OD
   OD
 RETURN
 
@@ -446,7 +446,7 @@ PROC Logo()
   Draw()
 
 ; j = 0
-; WHILE j<10000 DO j==+1 OD
+; WHILE j < 10000 DO j==+1 OD
 
   color = 3
   Letter(side, 120, 10, 50)
@@ -457,9 +457,9 @@ PROC Logo()
   Letter(S, 132, 41, 100)
 
   j = 0
-  WHILE j<2000 AND CH=$FF DO
+  WHILE j < 2000 AND CH=$FF DO
     i = 0
-    WHILE i<100 DO i==+1 OD
+    WHILE i < 100 DO i==+1 OD
     j = j + 1
   OD
 
@@ -471,7 +471,7 @@ PROC Logo()
   dlist(0) ==% $80
   dlist(2) ==% $80
   i = 3
-  WHILE i<101 DO
+  WHILE i < 101 DO
     x = dlist(i)
     dlist(i) = x % $80 
     IF x#$D THEN