C64 Software  <  SCA: The C64 Software Collection / BASICBOUNCER

  Run
10 DIMS(500):N=25:H=54.5:QQ=.426834
20 I=0:F=.3
30 FORT=1TONSTEPQQ:S(I)=INT(F*T*T+H)
40 I=I+1:NEXT
50 :
60 FORT=NTO1STEP−QQ:S(I)=INT(F*T*T+H)
70 I=I+1:NEXT
90 :
100 POKE53248,100:POKE2040,32
110 POKE53250,200:POKE2041,32
120 POKE53287,1:POKE53288,1:POKE53269,3
130 FORQ=20000TO20018:READY:POKEQ,Y:NEXT
140 :
150 FORT=0TOI−1:POKE780,S(T):SYS20000:NEXT
160 GOTO150
170 :
200 DATA174,17,208,16,251,174,17,208,48,251,141,1,208,73,255,141,3,208,96
READY.