\ON KEY F10 JUMP MENU\MOVE 0 TO B\MOVE 0 TO #3039\MOVE 0 TO #3040\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=30,106 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\ROUNDS 841\IF #1141<100\ROUND 141 SPEE 52\ENDIF
\ON KEY 7181 JUMP AGAIN\RUN FROM C\RETURN
\X START\ON KEY 18688\ON KEY 20736\ON KEY 7181
\IF B=17408\JUMP MENU\ENDIF\IF #753=0 AND MEM_SIZE>=#744\CALL SETUP\ELSE
\ON ERROR JUMP SMALLGLP\MOVE 15 TO #3034\+
\READ ANNIEGW6.PIC\ENDIF\JUMP LARGEGLP\+
\X SMALLGLP\ON ERROR JUMP WAYTOOSMALL\READ MEDGALOP.PIC\X LARGEGLP\+
\CLEAR ON ERROR\MOVE 1 TO #1002
\LOC 60,189\WID 200 DOT C\OVE 0\HEI 12\"Press any key to continue...
\MOVE 0 TO B\WAIT NOW 111\IF B<>0 OR F>0\JUMP SKIP1\ENDIF
\WAIT NOW #1142*30
\ON KEY 7181 JUMP SKIP1\ON KEY F10 JUMP MENU\IF B=17408\JUMP MENU\ENDIF
\X SKIP1\ON ERROR JUMP NONEWFONT\READ 162019GD.FON\JUMP NEWFONT
\X NONEWFONT\READ 081119PW.FON\MOVE 1 TO #3040
\X NEWFONT\CLEAR ON ERRORS\ON KEY 20736\ON KEY 7181\ON KEY 18688
\LINE 0,0,319,199,107,BF
\X PIC1\ON KEY 18688 JUMP PIC4\ON KEY 7181\+
\ON KEY 20736 JUMP PIC2\IF #753>0 OR MEM_SIZE<#744\+
\ON ERROR JUMP SMALLGLP2\MOVE 15 TO #3034\MOVE 0 TO #3039\+
\READ ANNIEGW6.PIC\ENDIF\JUMP LARGEGLP2\+
\X SMALLGLP2\READ MEDGALOP.PIC\MOVE 26 TO #3039\X LARGEGLP2\+
\CLEAR ON ERROR
\ROUNDS 1 SPEED 50\LOC 30,80\OVE 0\WID 8\DISP "GALLOPING"\CLEAR KEYBOARD
\SHOW 30+#3039,6+#3039*2/3,10,#3034
\ON KEY 7181 JUMP PIC2\ROUNDS 4 SPEED 50\+
\SHOW 30+#3039,6+#3039*2/3,1,#3034
\X PIC2\ON KEY 18688 JUMP PIC1\ON KEY 20736 JUMP PIC3\+
\ON KEY 7181\ROUNDS 1 SPEED 40\MOVE 0 TO #3039\+
\LOC 189,80\IF #753>0 OR MEM_SIZE<#744\+
\MOVE 0 TO #3034\MOVE 16 TO #3035\+
\ON ERROR JUMP SMALLTRT\READ DAISYTRT.PIC\ENDIF\JUMP LARGETRT\+
\X SMALLTRT\READ MEDTROT.PIC\MOVE 26 TO #3039\X LARGETRT\+
\CLEAR ON ERROR\OVE 0\WID 8\DISP "TROTTING"\CLEAR KEYBOARD
\SHOW 188+#3039,6+#3039*2/3,#3034+9,#3035
\ROUNDS 4 SPEED 40\ON KEY 7181 JUMP PIC3
\SHOW 188+#3039,6+#3039*2/3,#3034+1,#3035
\X PIC3\ON KEY 18688 JUMP PIC2\ON KEY 20736 JUMP PIC4\+
\ON KEY 7181\ROUNDS 1 SPEED 50\MOVE 0 TO #3039\+
\IF #753>0 OR MEM_SIZE<#744\MOVE 0 TO #3035\MOVE 19 TO #3036\+
\ON ERROR JUMP SMALLPACE\READ PRONTOPC.PIC\ENDIF\JUMP LARGEPACE\+
\X SMALLPACE\ON ERROR JUMP WAYTOOSMALL\READ MEDPACE.PIC\CLEAR ON ERROR\+
\MOVE 26 TO #3039\X LARGEPACE\+
\CLEAR ON ERROR\IF #3040=0\LOC 43,180\ELSE\LOC 33,180\ENDIF
\OVE 0\WID 6\DISP "PACING"\CLEAR KEYBOARD
\SHOW 30+#3039,106+#3039*2/3,#3035+9,#3036
\ON KEY 7181 JUMP PIC4\ROUNDS 4 SPEED 50\+
\SHOW 30+#3039,106+#3039*2/3,#3035+1,#3036
\X PIC4\ON KEY 20736 JUMP PIC1\ON KEY 18688 JUMP PIC3\+
\ON KEY 7181\ROUNDS 1 SPEED 52\MOVE 0 TO #3039\+
\IF #753>0 OR MEM_SIZE<#744\MOVE 0 TO #3036\MOVE 11 TO #3037\+
\ON ERROR JUMP SMALLCNT\READ ANNIECNT.PIC\ENDIF\JUMP LARGECNT\+
\X SMALLCNT\READ MEDCANTR.PIC\MOVE 26 TO #3039\X LARGECNT\+
\CLEAR ON ERROR
\LOC 180,180\OVE 0\WID 9\DISPLAY "CANTERING"\CLEAR KEYBOARD\+
\SHOW 178+#3039,102+#3039*2/3,#3036+5,#3037\ON KEY 7181 JUMP ALLFOUR
\ROUND 4 SPEED 52\SHOW 178+#3039,102+#3039*2/3,#3036+1,#3037
\X ALLFOUR\ON KEY 20736\ON KEY 18688\ON KEY 7181\IF B=0\JUMP MENU\ENDIF\+
\IF #753>0 OR MEM_SIZE<#744\WAIT NOW #1142\JUMP AGAIN\ENDIF
\CALL ALL_FOUR_HORSES
\X AGAIN\ON KEY 7181\IF #1141<100 AND #1141>0\JUMP MENU\ENDIF
\LOC 0,0\WID 320 DOT C\HEI 200\OVE 1
\ON ERROR JUMP NOTAFONT\READ 162019YE.FON\MOVE 0 TO #3040\CLEAR ON ERROR
\JUMP ANEWFONT
\X NOTAFONT\READ 081119PW.FON\CLEAR SCREEN\MOVE 1 TO #3040\OVE 1
\X ANEWFONT\MOVE 0 TO #3039
TO SEE ANY OF THESE
SEQUENCES AGAIN,
PRESS 1, 2, 3, OR 4.
(DO NOT USE THE
NUMERIC KEYPAD.)
\LOC 0,100
1-GALLOPING
2-TROTTING
3-PACING
4-CANTERING
\LINE 0,189,319,199,0,BF\ROUNDS 395 SPEED 120
\IF #753>0 OR MEM_SIZE<#744\JUMP FOUR_ONLY\ENDIF
5-ALL FOUR
\LINE 0,198,319,199,0,BF\ON KEY 7181 JUMP MENU
\IF #3040=0\MARQ 93,100,230,199,57,78\ELSE\MARQ 113,97,207,157,58,96\ENDIF
\JUMP FOUR2\X FOUR_ONLY\LINE 0,180,319,199,0,BF\ON KEY 7181 JUMP MENU
\IF #3040=0\MARQ 93,100,230,180,57,78\ELSE\MARQ 110,95,210,147,35,47\ENDIF
\IF B=1589\MOVE 7181 TO B\ENDIF\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\ENDIF
\LOC 0,110\HEI 144\WID 110 DOTS C\OVE 0\CLEAR SCREEN
\KEYS DECREASE=20480 INCREASE=18432 FORWARD=18688 REVERS=20736
\KEYS MINUS=19200 PLUS=19712
Up&Down
PgUp&PgDn
Left&Right
\LOC 110,110\WID 210 DOT LEFT
 CHANGE SPEED
 SINGLE STEP
 CHANGE DIRECTION
\LOC 24,174\WID 270 DOT C
(Be sure Num Lock is off)
\IF B<>561\JUMP NOT_GALLOP\ENDIF
\IF #753>0 OR MEM_SIZE<#744\ON ERROR JUMP SMALLGLP3\+
\READ ANNIEGW6.PIC\ENDIF\JUMP LARGEGLP3\+
\X SMALLGLP3\READ MEDGALOP.PIC\MOVE 30 TO #3039\X LARGEGLP3\+
\CLEAR ON ERROR\SHOW 100+#3039,10+#3039*2/3,1,15\JUMP AGAIN
\X NOT_GALLOP
\IF B<>818\JUMP NOT_TROT\ENDIF\IF #753>0 OR MEM_SIZE<#744\+
\MOVE 0 TO #3034\MOVE 16 TO #3035\ON ERROR JUMP SMALLTRT2\+
\READ DAISYTRT.PIC\ENDIF\JUMP LARGETRT2\+
\X SMALLTRT2\READ MEDTROT.PIC\MOVE 30 TO #3039\X LARGETRT2\+
\CLEAR ON ERROR\SHOW 100+#3039,10+#3039*2/3,#3034+1,#3035\JUMP AGAIN
\X NOT_TROT\IF B<>1075\JUMP NOT_PACE\ENDIF
\IF #753>0 OR MEM_SIZE<#744\MOVE 0 TO #3035\MOVE 19 TO #3036\+
\ON ERROR JUMP SMALLPACE4\READ PRONTOPC.PIC\ENDIF\JUMP LARGEPACE4\+
\X SMALLPACE4\READ MEDPACE.PIC\MOVE 30 TO #3039\X LARGEPACE4\+
\CLEAR ON ERROR\SHOW 102+#3039,10+#3039*2/3,#3035+1,#3036\JUMP AGAIN
\X NOT_PACE\IF B<>1332\JUMP AGAIN\ENDIF
\IF #753>0 OR MEM_SIZE<#744\MOVE 0 TO #3036\MOVE 11 TO #3037\+
\ON ERROR JUMP SMALLCNT8\READ ANNIECNT.PIC\ENDIF\JUMP LARGECNT8\+
\X SMALLCNT8\READ MEDCANTR.PIC\MOVE 30 TO #3039\X LARGECNT8\+
\CLEAR ON ERROR\SHOW 102+#3039,10+#3039*2/3,#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\ON ERROR JUMP READFAILED\READ ANNIEGW6.PIC\MOVE 15 TO #3034\+
\APPEND DAISYTRT.PIC 1,16\MOVE 16+#3034 TO #3035\+
\APPEND PRONTOPC.PIC 1,19\MOVE 19+#3035 TO #3036\+
\APPEND ANNIECNT.PIC 1,11\MOVE 11+#3036 TO #3037\CLEAR ON ERROR\+
\X FILES_READ\IF B=17408\JUMP MENU\ENDIF\ON KEY F10 JUMP MENU\RETURN
\X READFAILED\MOVE 1 TO #753\JUMP START
\X MENU\LENGTH #4000\IF A>0\JUMP DEMOMENU\ENDIF\LEN #9209\IF A>0\READ (#9209)\ENDIF\+
\CLEAR KEYS\READ #97:HORSE.TXT
\X DEMOMENU\READ #97:/(#4000)/MENU.TXT
\X WAYTOOSMALL\CLEAR ON KEYS\CALLM WAY2SMALL\END
