10 DIMS(500):N=40:H=1
20 I=0:F=.1
30 FORT=1TON:S(I)=INT(F*T*T+H)
40 I=I+1:NEXT
50 :
60 FORT=NTO1STEP−1: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
210 :
500 FORI=0TON*2:PRINTS(I),:NEXT:END
600 FORI=0TON*2:POKE12288+I,S(I):PRINTS(I):NEXT
READY.
