Slalom

Gallery

Source Code

   5 REM "SLALOM"
  10 DIM C(6)
  20 CLS 
  30 FOR A=1 TO 6
  40 LET C(A)=INT (RND*12)+14
  50 PLOT A*10,C(A)-1
  60 PLOT A*10,C(A)+2
  70 NEXT A
  80 LET V=C(1)
  90 FOR B=3 TO 63
 100 IF B/10=INT (B/10) THEN GOTO 80+(30 AND V>=C(B/10) AND V<=C(B/10)+1)
 110 PLOT B,V
 120 LET X=V
 130 LET V=V+(INKEY$="7")-(INKEY$="6")
 140 UNPLOT B,X
 150 NEXT B
 160 RUN 
 170 SAVE "1022%9"
 180 RUN