10 REM HORSE.ECB
  100 REM ...HORSES...from ??? via Eagan     Revised 3-11-81 REH
  110 PRINT "&K"
  120 DIM B$(20),Z$(8)
  130 PRINT TAB(15);"<@>  <@> <@> <@>  <@>"
  140 PRINT TAB(15);"<@>  H O R S E S  <@>"
  150 PRINT TAB(15);"<@>  <@> <@> <@>  <@>"
  160 PRINT
  170 PRINT TAB(6);"WELCOME TO THE WONDERFUL GAME OF HORSES"
  180 PRINT TAB(13);"The different shots are:"
  190 FOR B=1 TO 7
  195   GOSUB 1300: PRINT TAB(18);B;" = ";B$
  200 NEXT B
  210 PRINT
  220 PRINT "10=I SHOULD GO FIRST    11=YOU SHOULD GO FIRST ---=>";
  230 INPUT A
  240 IF A=10 THEN 730
  250 IF A=11 THEN 260
  260 PRINT
  270 PRINT "THE REF SAYS PLAY BALL SO SELECT YOUR SHOT"
  280 INPUT (1,0)" ---=>",B
  290 IF B=0 THEN 1900
  300 IF B>0 AND B<8 THEN 390
  370 PRINT "YOU DON'T FOLLOW DIRECTIONS FOR PETESAKE"
  375 FOR B=1 TO 7
  377   GOSUB 1300: PRINT TAB(18);B;" = ";B$
  379 NEXT B
  380 GOTO 260
  390 GOSUB 1300
  400 FOR I=1 TO 100
  410   LET C=INT(100*RND(0))
  420 NEXT I
  430 IF C/2=INT(C/2) THEN 710
  440 PRINT B$;"  is  GOOD          SWISH"
  450 PRINT "  I SHOOT  ";B$
  460 FOR I=1 TO 100
  470   LET F=INT(100*RND(0))
  480 NEXT I
  490 IF F/2=INT(F/2) THEN 530
  500 PRINT " MY SHOT  GOOD  "
  510 PRINT "  YOUR TURN AGAIN SELECT YOUR SHOT "
  520 GOTO 280
  530 PRINT " MY SHOT NO  GOOD "
  540 PRINT " YOU WIN SO I AM "
  550 LET P=P+1
  560 LET Z$=" HORSES "
  640 PRINT Z$(1,P+1): PRINT
  650 PRINT
  670 IF P=6 THEN 690
  680 GOTO 510
  690 PRINT "  YOU ARE THE WINNER   CONGRATULATIONS "
  700 GOTO 2000
  710 PRINT B$;"  is NO  GOOD"
  720 PRINT "MY SHOT"
  730 FOR I=1 TO 100
  740   LET D=100*RND(0)
  750 NEXT I
  760 IF D<14 THEN 830
  770 IF D<28 THEN 850
  780 IF D<42 THEN 870
  790 IF D<58 THEN 890
  800 IF D<72 THEN 910
  810 IF D<86 THEN 930
  820 IF D<101 THEN 950
  830 PRINT "I select hook"
  840 GOTO 960
  850 PRINT "I select jumper"
  860 GOTO 960
  870 PRINT "I select setshot"
  880 GOTO 960
  890 PRINT "I select layup"
  900 GOTO 960
  910 PRINT "I select reverse layup"
  920 GOTO 960
  930 PRINT "I select fancy trick shot"
  940 GOTO 960
  950 PRINT "I select long shot"
  960 FOR I=1 TO 100
  970   LET E=INT(100*RND(0))
  980 NEXT I
  990 IF E/2=INT(E/2) THEN 1260
 1000 PRINT "SHOT  GOOD"
 1010 FOR I=1 TO 100
 1020   LET F=INT(100*RND(0))
 1030 NEXT I
 1040 IF F/2=INT(F/2) THEN 1080
 1050 PRINT "  YOUR SHOT  GOOD"
 1060 PRINT "  I SHOOT AGAIN"
 1070 GOTO 730
 1080 PRINT "  YOUR SHOT NO  GOOD"
 1090 PRINT "  I WIN SO YOU ARE "
 1100 LET Q=Q+1
 1110 LET Z$=" HORSES "
 1180 PRINT Z$(1,Q+1): PRINT
 1220 IF Q=6 THEN 1240
 1230 GOTO 1060
 1240 PRINT "  I AM THE WINNER     GOOD GAME "
 1250 GOTO 2000
 1260 PRINT "SHOT NO  GOOD"
 1270 PRINT "YOU SELECT YOUR SHOT"
 1280 GOTO 280
 1300 REM ...Print out shots
 1310 IF B=1 THEN  LET B$="HOOK"
 1320 IF B=2 THEN  LET B$="Jumper"
 1330 IF B=3 THEN  LET B$="Setshot"
 1340 IF B=4 THEN  LET B$="Layup"
 1350 IF B=5 THEN  LET B$="Reverse layup"
 1360 IF B=6 THEN  LET B$="Fancy trick shot"
 1370 IF B=7 THEN  LET B$="Long shot"
 1390 RETURN
 1900 PRINT "I assume you want to QUIT."
 1910 PRINT "Type  'RUN'  to restart the game."
 2000 END