www.jupiter-ace.co.uk
Listing Index > Artistic Aid.
Personal Computing World May 1983 page 173.
ARTISTIC AID
This program (written in Forth for the Jupiter Ace) allows you to draw your own graphics on the screen, or parts of the screen, & then store each design in the dictionary as your own 'Word'. If you then use that word the previously defined screen is drawn.
The program is fast and easy to use. After typing in the program type in
: SCREEN ONE. A '?' should appear; now enter the code of a character in
ASCII - if you want it repeated just keep the enter key pressed. Once
finished enter ONE to execute it.
By changing the DO LOOP limits you can define parts of the screen - eg, 9952 9824
will store the bottom four lines.
Once you have defined a screen and some parts of screens try writing one
on top of the other: some good animations can be
achieved. The program is useful for many graphics applications, not just games.
K P Tibbetts
DEFINER SCREEN INVIS CLS 9952 9216 ( Do Loop limits) DO ASCII ? I C! 300 QUERY LINE DUP 255 > IF DROP DUP ELSE SWAP DROP SWAP DROP DUP THEN DUP I C! C, ( Store in dictionary) LOOP VIS DOES 9952 9216 ( Do Loop Limits) DO DUP C@ I C! 1+ LOOP
