Slalom Course

  10 PRINT ,"SLALOM COURSE"
  20 LET A$="X  X"
  30 PRINT AT 21,8;"FINISH";AT 4,1;A$;AT 8,12;A$;AT 11,8;A$;AT 17,22;A$;AT 20,17;A$
  40 LET A=0
  50 LET B=43
  60 UNPLOT A,B
  70 LET A=A+1
  80 LET B=B-1
  90 IF INKEY$="5" THEN LET A=A-4
 100 IF INKEY$="8" THEN LET A=A+2
 110 PLOT A,B
 120 IF B=0 THEN STOP 
 130 PAUSE 40
 140 POKE 16437,255
 150 GOTO 60
 160 CLEAR 
 170 SAVE "1030%2"
 180 RUN