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
PCW May 1983 Cover page    PCW May 1983 page 173