weblogs/oldcomputernerd.com
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add example action program

Browse Source
This commit is contained in:
Greg Gauthier 2025-01-17 22:18:15 +00:00
parent c11b09ce3b
commit ace2a826e1
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
md/Atari/entries/Action-language-walkthrough.md
View File

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