Script for direwolf20s Animation screen

===NOTES ABOUT THIS SCRIPT===
1. This script is NOT Tested. IDK if this will work. it should though
2. This script is made for direwolf20s Laser Powered screen in his lets play on youtube season 4 episode 81-83 (maybe even 84 or more)
===SYNTAX===
<x> <y> <color> <scriptname>
===SCRIPT [LANGUAGE=FORTH]===
color !
y !
x !
color @
1 AND IF y @ DUP * 1 + IOXADDR ! THEN
x @ DUP * IOXSET
color @
2 AND IF y @ DUP * 2 + IOXADDR ! THEN
x @ DUP * IOXSET
color @
4 AND IF y @ DUP * 3 + IOXADDR ! THEN
x @ DUP * IOXSET
color @
0 = IF 7 IOXRST THEN
." Done."