\ON ERROR JUMP CANTMSG\SCREEN 0,0,19\CLEAR ON ERROR
\READ SETUPS.MAC\CALLM SETVALS
\X INTROSCRN\ON ERROR JUMP CANTMSG\READ 081119PW.FON\CLEAR ON ERROR\CLEAR SCREEN
\LOC 0,0\WIDTH 320 DOT C\OVER 1,A,2\HEIGHT 99
\ON KEY 7181 JUMP READY\ON KEY F10 JUMP ENDIT
Press <RETURN> to begin the 256-COLOR
animated VGA Muybridge Horse Demo.
\LOC 0,30\OVE 0,A,47
This program illustrates various horse gaits.
\LENGTH #9209\IF A>0
Press <F10> anytime for the next demo.
\ELSE
Press <F10> anytime to exit to DOS.
\ENDIF
\"
\LOC 0,88\OVE 0,A,44
If you have any problems running this 
demonstration or desire more information
please contact Russell D. Hoffman at:
\LOC 0,133\OVE 0,A,40
THE ANIMATED SOFTWARE COMPANY
America Online: RUSSELL DH
Compuserve:71333,721
Phone:(800) 551-2726
      (619) 720-7261
Thank you!
\LOC 140,76\WIDTH 39 DOTS\CRAWL 2,A,5\"...19...
\WAIT NOW 505\"...18...
\WAIT NOW 505\"...17...
\WAIT NOW 505\"...16...
\WAIT NOW 505\"...15...
\WAIT NOW 505\"...14...
\WAIT NOW 505\"...13...
\WAIT NOW 505\"...12...
\WAIT NOW 505\"...11...
\WAIT NOW 505\"...10...
\WAIT NOW 505\"...9....
\WAIT NOW 505\"...8....
\WAIT NOW 505\"...7....
\WAIT NOW 505\"...6....
\WAIT NOW 505\"...5....
\WAIT NOW 505\"...4....
\WAIT NOW 505\"...3....
\WAIT NOW 505\"...2....
\WAIT NOW 505\"...1....
\WAIT NOW 505
\X ENDIT\LENGTH #9209\IF A>0\READ (#9209)\ENDIF
\BEEP 27,955\BEEP 15,544\BEEP 21,283\BEEP 28,186\BEEP 11,110\END
\X READY\ON KEY 7181\CLEAR SCREEN\OV 0\READ 081119PW.FON
\X HORSEY\DOT 0,0,0\+
\LINE 0,0,319,132,40,B\LINE 1,1,318,131,41,B\LINE 2,2,317,130,42,B\+
\LINE 3,3,316,129,43,B\LINE 4,4,315,128,44,B\LINE 5,5,314,127,45,B\+
\LINE 6,6,313,126,0,BF\LINE 0,133,319,199,108,BF\+
\LOC 6,6\HEI 190\WID 308 DOT C\OV 0,X,40\PAINT\READ 081119PW.FON
In the late 1800's Eadweard Muybridge is
said to have settled a famous wager as to
whether or not a horse's hoofs are ever
all off the ground when a horse trots.
Following are four gaits: Galloping,
Trotting, Pacing and Cantering. These
tracings, taken from Eadweard Muybridge's
original photographs, show that for all
these gaits, the horse leaves the ground
entirely at some point(s) in the stride.
Muybridge's friend won the bet.
\CLEAR SPRITES\SPRITE L=2,136 M=40,0 A=1 W=0,136,319,199
\READ SMLHORSE.PIC\SPRINT 1 TO 8\SPRITE L=999,999 A=NO\SPRINT 1
\SPRITE L=2,163 M=40,0 A=1 W=0,163,319,199\SPRINT 9 TO 15,1
\ROUNDS 15 SPEE 0\RUN\READ HORSE8.TXT
\X CANTMSG
\WAIT RET 222 "CAN'T USE SCREEN MODE 19.  SORRY, CAN'T RUN HORSE DEMO.  PRESS <RETURN>"
\END
