This is version 1 2 . It is not the current version, and thus it cannot be edited.

Back to current versionRestore this version

General Information #

Author: Brian Abbot
Language: ACTION!
Compiler/Interpreter: ACTION!
Published: ANTIC Vol. 3, #7 (11/ 84)

---

Demo: Pretty#

I've been programming with Action! for a few months now and wrote the following demonstration program, which shows the speed of the Action! language. This routine puts three thick bars on the screen. They will rotate upward in 128 unbroken colors while the background colors move down.

Try running this in a dark room for best results. This might be just the thing to show the kid down the street with his brand new Apple IIc. But don't forget to remind him that his jaw is on the floor.

---

PROC pretty() DEFINE key="Peek(764)<255" CARD sc BYTE wsync=$D40A, vertcnt=$D40B, color0=$D01A, color1=$D018, counter, chgcolor, upcolor, i, loop, downcolor Graphics(23) Poke(764,255) sc=PeekC(88) SetBlock(sc+75*40,40*20,255) SetBlock(sc+37*40,40*20,255) SetBlock(sc,40*20,255) DO FOR counter=1 to 9 DO upcolor=chgcolor downcolor=chgcolor DO wsync=0 color0=downcolor color1=upcolor upcolor==+1 downcolor==-1 UNTIL vertcnt&$80 OD OD chgcolor==+1 UNTIL key OD RETURN