C64 Software  <  SCA: The C64 Software Collection / BASICBOUNCER4

100 REM STI 07-JAN-88
110 DIMS(1000):A=.055:B=52.5:S=8
120 FORJ=56TO10STEP−S
130 FORX=JTO0STEP−1:S(I)=INT(A*X*X+B):I=I+G:NEXT:G=1
140 FORX=1TOJ:S(I)=INT(A*X*X+B):I=I+1:NEXT
150 B=B+S(I−1)−A*(J−S)*(J−S)−B
160 NEXT
170 :
180 FORJ=S+1TOI−1:S(I)=279−S(J):I=I+1:NEXT
190 :
200 FORQ=20000TO20018:READY:POKEQ,Y:NEXT
210 FORQ=0TO62:READY:POKE832+Q,Y:NEXT
220 POKE53248,100:POKE2040,13
230 POKE53250,200:POKE2041,13
240 POKE53287,1:POKE53288,1:POKE53269,1
250 :
260 FORT=0TOI−1STEP1:POKE780,S(T):SYS20000:NEXT
270 GETA$:IFA$=""THEN260
280 :
300 OPEN1,3,2,"":N=8
310 FORJ=0TOI/N:PRINT#1,"";
320 FORK=0TON−1:PRINT#1,MID$(STR$(S(N*J+K)),2);:IFK