Horse Race

Gallery

Source Code

   1 REM HORSE RACE
   2 FAST 
   3 PRINT AT 0,5;"SPORTSMANS PARK"
   4 PRINT AT 1,0;"FAST TRACK $2.00 WINDOW"
   5 LET A=0
   6 LET B=0
   7 LET E=0
   8 LET F=0
   9 LET G=0
  12 PRINT AT 6,31;"5";AT 9,31;"4";AT 12,31;"3";AT 15,31;"2";AT 18,31;"1"
  14 FOR D=0 TO 38
  16 PLOT 61,D
  18 NEXT D
  20 SLOW 
  22 PLOT A,6
  24 PLOT B,12
  26 PLOT E,18
  28 PLOT F,24
  30 PLOT G,30
  40 LET C=INT (RND*5)
  42 IF A=60 OR B=60 OR E=60 OR F=60 OR G=60 THEN GOTO 200
  44 IF C=0 THEN GOTO 70
  46 IF C=1 THEN GOTO 75
  48 IF C=2 THEN GOTO 80
  50 IF C=3 THEN GOTO 85
  52 IF C=4 THEN GOTO 90
  70 UNPLOT A,6
  71 LET A=A+1
  72 PLOT A,6
  73 GOTO 40
  75 UNPLOT B,12
  76 LET B=B+1
  77 PLOT B,12
  78 GOTO 40
  80 UNPLOT E,18
  81 LET E=E+1
  82 PLOT E,18
  83 GOTO 40
  85 UNPLOT F,24
  86 LET F=F+1
  87 PLOT F,24
  88 GOTO 40
  90 UNPLOT G,30
  91 LET G=G+1
  92 PLOT G,30
  93 GOTO 40
 200 FOR X=1 TO 20
 201 PRINT AT 21,25;"WINNER"
 210 PRINT AT 21,25;"      "
 220 NEXT X
 230 RUN 
 240 CLEAR 
 250 SAVE "1030%7"
 260 RUN