10 DIMS(500):N=42
20 I=0:Y=0
30 :
31 FORJ=1TO4
40 FORT=1TON:GOSUB100:I=I+1:NEXT
41 N=N/1.25:Y=174:S(I−1)=229
50 :
60 IFJ<4THENFORT=−NTO−1:GOSUB100:I=I+1:NEXT
70 NEXT
80 :
90 GOTO200
91 :
100 Y=Y+T/5
110 S(I)=50+INT(Y+.5):POKE53249,S(I)
120 RETURN
130 :
200 POKE53248,100:POKE2040,32
210 POKE53250,200:POKE2041,32
220 POKE53287,1:POKE53288,1:POKE53269,3
230 FORQ=20000TO20018:READY:POKEQ,Y:NEXT
240 :
250 FORT=0TOI−1:POKE780,S(T):SYS20000:NEXT
260 FORT=0TOI−1:POKE780,280−S(T):SYS20000:NEXT
270 GOTO250
280 :
300 DATA174,17,208,16,251,174,17,208,48,251,141,1,208,73,255,141,3,208,96
READY.
