\* PROGRAM AND ARTWORK BY TRACY RUGGERI AND RUSSELL HOFFMAN (c) 1987,1988
\ON KEY 4096 JUMP ENDITALL\LENGTH #9301\IF A=0\MOVE 'ENFI.TXT' TO #9301\MOVE 'EXIT' TO #9302\ENDIF
\MOVE 107 TO #33
\MOVE 0 TO X
\READ ENFI.PIC
\LOC 0,188\WIDTH 40\OVER 0\HEIGHT 12
\READ SMALLGRN.FON
 Press Function Key F1 for information.
\IF Z=0 \ELSE \JUMP PAST_READS\ENDIF
\MOVE 1 TO Z
\X PAST_READS
\ROUNDS 1 SPEED #33
\ON KEY F1 JUMP HELP
\LOCATE 200,50\HEIGHT 94\WIDTH 7\OVER 0
Good
\SHOW 0,0,1,5
Morning
\SHOW 0,0,6,9
and
\SHOW 0,0,10,13
Welcome
\SHOW 0,0,14,16
to the
\SHOW 0,0,17,21
\LOCAT 200,105
\ON KEY 14624 CALL WAIT_TEMPORARILY
\ROUNDS 1 SPEED ? \MOVE A TO #33
\OVE #33*2/3
\SHOW 0,55,22\DISPLAY 'G'
\SHOW 0,55,23\DISPLAY 'A'
\SHOW 0,55,24\DISPLAY 'L'
\SHOW 0,55,25\DISPLAY 'L'
\SHOW 0,55,26\WAIT NOW #33*2/3
\SHOW 0,55,27\DISPLAY 'A'
\SHOW 0,55,28\DISPLAY 'U'
\SHOW 0,55,29\DISPLAY 'D'
\SHOW 0,55,30\DISPLAY 'E'
\SHOW 0,55,31\DISPLAY 'T'
\LOCAT 200,117\SHOW 0,55,32\DISPLAY 'U'
\SHOW 0,55,33\DISPLAY 'N'
\SHOW 0,55,34\DISPLAY 'I'
\SHOW 0,55,35\SHOW 64,40,50\DISPLAY 'V'
\SHOW 0,55,36\SHOW 64,40,51\DISPLAY 'E'
\SHOW 0,55,37\SHOW 64,40,52\DISPLAY 'R'
\SHOW 0,55,38\SHOW 64,40,53\DISPLAY 'S'
\SHOW 0,55,39\DISPLAY 'I'
\SHOW 0,55,40\DISPLAY 'T'
\SHOW 0,55,41\DISPLAY 'Y'
\LOCAT 200,129\SHOW 0,55,42\DISPLAY 'E'
\SHOW 0,55,43\DISPLAY 'N'
\SHOW 0,55,44\DISPLAY 'F'
\SHOW 0,55,45\DISPLAY 'I'
\WAIT NOW #33*2/3
\LOCATE 200,141\OVE 0
Class
\ON KEY 14624
\SHOW 0,0,46,49
\WAIT NOW 1000
\IF X=1
\BLANK 196,0,320,187
\BLANK 0,188,320,199
\MOVE 0 TO X
\ELSE
\MOVE 1 TO X
\ENDIF
\JUMP PAST_READS
\X WAIT_TEMPORARILY\ON KEY 14624
\WAIT NOW 222\MOVE 0 TO B
\X TEMP1
\IF B=0\JUMP TEMP1\ENDIF
\ON KEY 14624 CALL WAIT_TEMPORARILY\RETURN
\X HELP\ON KEY 14624
\LOCATE 0,0\OVER 0\WIDTH 40\HEIGHT 199
You may adjust the speed of the display
with the up and down arrow keys until
the individual letters GALLAUDET
UNIVERSITY ENFI are spelled out. At that
point you may use the space bar to stop
the display. The picture and last letter
will match. Use any key to restart.
The artwork in this demonstration was
drawn by Tracie Burns, programming by
Russell Hoffman.  The demo was created
using RUSSELL'S ANIMATION MACHINE, with
about 50 images and 100 commands.
Shown with permission of Gallaudet
University.  Written for a 1988 project.
RUSSELL'S ANIMATION MACHINE is SHAREWARE
It can be purchased from the author:
THE ANIMATED SOFTWARE CO. (800)551-2726
Press <ESC> to exit, any key to begin...
\WAIT NOW -3
\CLEAR SCREEN
\JUMP PAST_READS
\X ENDITALL
\LENGTH #9302
\IF A=0
\JUMP ENDIT
\ELSE
\IF #9302='EXIT'
\JUMP ENDIT
\ENDIF
\READ (#9301)
\X ENDIT\END
