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.
finished enter ONE to execute it.
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