\ON KEY F10 JUMP MENU
\CLEAR SCREEN\LOC 6,8\HEI 190\WID 150 DOTS\OVER 0,X,41
\DOT 0,0,0\PAINT\READ 081109PW.FON
 IN THE LATE 1800'S
 EADWEARD MUYBRIDGE
 IS SAID TO HAVE
 SETTLED A FAMOUS
 WAGER AS TO
 WHETHER OR NOT A
 HORSES'S HOOFS ARE
 EVER ALL OFF THE
 GROUND WHEN A HORSE
 TROTS. FOLLOWING
 ARE FOUR GAITS,
 GALLOPING, TROTTING,
 PACING AND CAN-
\"
\LOC 165,8\HEI 190\WID 150 DOTS\OVER 0,X,41
 TERING. THESE
 TRACINGS, TAKEN
 FROM EADWEARD
 MUYBRIDGE'S PHOTO-
 GRAPHS, 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=3,150 M=40,0 A=1 W=0,152,319,199
\SPRINT 19 TO 26
\SPRITE L=444,444 A=NO\SPRINT 1
\SPRITE L=3,176 M=40,0 A=1 W=0,178,319,199
\SPRINT 27 TO 33, 19
\ROUNDS 15 SPEE 0
\RUN
\JUMP START
\X ALL_FOUR_HORSES
\CLEAR SPRITES\SPRITE A=1 L=30,6 F=Y
\SPRINT 1 TO #3034
\SPRITE A=NO L=-1000,0\SPRINT 1
\SPRITE L=178,102 A=1\SPRINT #3036+1 TO #3037
\SPRITE A=NO L=1000,0 \SPRINT 1
\SPRITE L=28,104 A=1\SPRINT #3035+1 TO #3036
\SPRITE L=-1000,0 A=NO\SPRINT 1
\SPRITE L=188,6 A=1\SPRINT #3034+1 TO #3035
\ROUND 7 SPEE 52
\RUN\ROUND -1 SPEE 52\ON KEY 7181 JUMP AGAIN\RUN FROM C
\RETURN
\X START
\ON KEY 18688\ON KEY 20736\ON KEY 7181
\ON KEY 20736\ON KEY 7181\ON KEY 18688
\IF B=17408\JUMP MENU\ENDIF
\IF MEM_SIZE>=#744\CALL SETUP\ELSE
\READ ANNIEGW6.PIC\MOVE 15 TO #3034\ENDIF
\MOVE 1 TO #1002
\WAIT NOW -30000
\ON KEY 7181 JUMP SKIP1\ON KEY F10 JUMP MENU\IF B=17408\JUMP MENU\ENDIF
\X SKIP1\ON ERROR JUMP NONEWFONT\READ 162009PW.FON\CLEAR ON ERRORS\+
\JUMP NEWFONT
\X NONEWFONT\READ 081109PW.FON
\X NEWFONT
\ON KEY 20736\ON KEY 7181\ON KEY 18688
\CLEAR SCREEN
\X PIC1\+
\ON KEY 18688 JUMP PIC4\ON KEY 7181\+
\ON KEY 20736 JUMP PIC2\+
\IF MEM_SIZE<#744\READ ANNIEGW6.PIC\MOVE 15 TO #3034\ENDIF
\ROUNDS 1 SPEED 50\+
\LOC 30,80\OVE 0,A,4\WID 108 DOTS\DISP "GALLOPING"\CLEAR KEYBOARD
\SHOW 30,6,1,#3034
\ON KEY 7181 JUMP PIC2\+
\ROUNDS 5 SPEED 50\+
\SHOW 30,6,1,#3034
\X PIC2\+
\ON KEY 18688 JUMP PIC1\ON KEY 20736 JUMP PIC3\+
\ON KEY 7181\+
\ROUNDS 1 SPEED 40\+
\LOC 190,80\IF MEM_SIZE<#744\READ DAISYTRT.PIC\+
\MOVE 0 TO #3034\MOVE 16 TO #3035\ENDIF\+
\OVE 0,A,4\WID 96 DOTS\DISP "TROTTING"\CLEAR KEYBOARD
\SHOW 188,6,#3034+1,#3035
\ROUNDS 5 SPEED 40\ON KEY 7181 JUMP PIC3
\SHOW 188,6,#3034+1,#3035
\X PIC3\+
\ON KEY 18688 JUMP PIC2\ON KEY 20736 JUMP PIC4\+
\ON KEY 7181\ROUNDS 1 SPEED 50\+
\IF MEM_SIZE<#744\READ PRONTOPC.PIC\+
\MOVE 0 TO #3035\MOVE 19 TO #3036\ENDIF\+
\LOC 30,180\OVE 0,A,4\WID 104 DOTS\DISP "PACING"\CLEAR KEY
\SHOW 28,104,#3035+1,#3036
\ON KEY 7181 JUMP PIC4\ROUNDS 5 SPEED 50\SHOW 28,104,#3035+1,#3036
\X PIC4\+
\ON KEY 20736 JUMP PIC1\ON KEY 18688 JUMP PIC3\+
\ON KEY 7181\ROUNDS 1 SPEED 52\+
\IF MEM_SIZE<#744\READ ANNIECNT.PIC\+
\MOVE 0 TO #3036\MOVE 11 TO #3037\ENDIF\+
\LOC 180,180\OVE 0\WID 112 DOTS\+
\DISPLAY "CANTERING"\CLEAR KEYBOARD\SHOW 178,102,#3036+1,#3037
\ON KEY 7181 JUMP ALLFOUR
\ROUND 5 SPEED 52\SHOW 178,102,#3036+1,#3037
\X ALLFOUR\+
\ON KEY 20736\ON KEY 18688\+
\ON KEY 7181\+
\IF MEM_SIZE<#744\WAIT NOW 711\JUMP AGAIN\ENDIF
\CALL ALL_FOUR_HORSES
\X AGAIN\ON KEY 7181
\ON ERROR JUMP NOTAFONT\READ 162009PW.FON\CLEAR ON ERROR
\JUMP ANEWFONT
\X NOTAFONT\READ 081109PW.FON\X ANEWFONT
\LOC 0,0\WID 320 DOTS C\HEI 200\OVE 1,A,11
TO SEE ANY OF THESE
SEQUENCES AGAIN,
\BL 0,54,320,199
PRESS 1,2,3, OR 4.
(DO NOT USE THE
NUMERIC KEYPAD.)
\LOC 0,100
1-GALLOPING
2-TROTTING
3-PACING
4-CANTERING
\ROUNDS 395 SPEED 120
\IF MEM_SIZE<#744\JUMP FOUR_ONLY\ENDIF
5-ALL FOUR
\BL 0,197,319,199
\ON KEY 7181 JUMP MENU
\MARQ 93,100,230,199,2,14
\JUMP FOUR2
\X FOUR_ONLY
\BL 0,180,319,199
\ON KEY 7181 JUMP MENU
\MARQ 93,100,230,179,4,12
\X FOUR2
\IF B=1589\ON KEY 7181
\CLEAR SCREEN\CALL ALL_FOUR_HORSES\JUMP AGAIN\ENDIF
\MOVE B TO W\ON KEY 7181 JUMP AGAIN
\ROUNDS 42 SPEED 45 REVER
\IF B=-1\JUMP MENU\ENDIF
\IF B=7181\JUMP MENU\ELSE\LOC 0,0\HEI 44\WID 20 C\OVER 1,A,8
\BL 0,11,320,199
USE MINUS TO REVERSE
AND PLUS FOR FORWARD
\LOC 0,160\HEI 44\OVE 0,A,6
CHANGE SPEED WITH
UP AND DOWN ARROWS
\ENDIF
\IF B<>561\JUMP NOT_GALLOP\ENDIF
\IF MEM_SIZE<#744\READ ANNIEGW6.PIC\MOVE 15 TO #3034\ENDIF
\SHOW 100,60,1,#3034\JUMP AGAIN
\X NOT_GALLOP
\IF B<>818\JUMP NOT_TROT\ENDIF
\IF MEM_SIZE<#744\READ DAISYTRT.PIC\MOVE 0 TO #3034\+
\MOVE 16 TO #3035\ENDIF
\SHOW 110,60,#3034+1,#3035\JUMP AGAIN
\X NOT_TROT
\IF B<>1075\JUMP NOT_PACE\ENDIF
\IF MEM_SIZE<#744\READ PRONTOPC.PIC\MOVE 0 TO #3035\+
\MOVE 19 TO #3036\ENDIF
\SHOW 102,60,#3035+1,#3036\JUMP AGAIN
\X NOT_PACE
\IF B<>1332\JUMP AGAIN\ENDIF
\IF MEM_SIZE<#744\READ ANNIECNT.PIC\MOVE 0 TO #3036\+
\MOVE 11 TO #3037\ENDIF
\SHOW 102,60,#3036+1,#3037
\JUMP AGAIN
\X SETUP\CLEAR ON KEYS
\FRAME ?\IF A=61\JUMP FILES_READ\ENDIF
\X ERASE_FRAMES\IF A<16\ELSE\DELETE FRAME A\+
\SUBRACT 1 FROM A\JUMP ERASE_FRAMES\ENDIF
\IF B=17408\JUMP MENU\ENDIF
\X READ_FILES
\READ ANNIEGW6.PIC\APPEND DAISYTRT.PIC 1,16\+
\APPEND PRONTOPC.PIC 1,19\APPEND ANNIECNT.PIC 1,11\+
\MOVE 15 TO #3034\MOVE 16+#3034 TO #3035\+
\MOVE 19+#3035 TO #3036\MOVE 11+#3036 TO #3037\+
\X FILES_READ\IF B=17408\JUMP MENU\ENDIF\+
\RETURN
\X MENU\READ #97:MENU.TXT
\*
