Bounce

Gallery

Source Code

  10 RAND 
  20 SLOW 
  30 CLS 
  40 LET Y=40
  50 LET V=0
  60 LET Z=0.6*(INT (RND*2)+1)
  70 LET A=0
  80 LET B=60
  90 IF RND>0.5 THEN GOTO 130
 100 LET A=60
 110 LET B=0
 120 LET Z=-Z
 130 FOR X=A TO B STEP Z
 140 LET Y=Y-V
 150 IF Y>0 THEN GOTO 190
 160 LET Y=0
 170 LET V=-V/1.3
 180 GOTO 200
 190 LET V=V+0.5
 200 PLOT X,Y
 210 NEXT X
 220 FOR D=1 TO 50
 230 NEXT D
 240 GOTO 30
 250 SAVE "1018%2"
 260 RUN