Content
Image Gallery
Bounce
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
People
No people associated with this content.