0 REM JOST 

10 DATA1,0,4,0,42,36,63,54,45,0:FORI=0TO9:READX:POKE768+I,X:NEXTI:POKE232,0:POKE233,3:ROT=0:HCOLOR=0:NI=60:HGR2:GOSUB20:NI=60:HGR:POKE 49234,0:POKE 249,8:GOSUB 20:FOR I=1 TO 1000:POKE 49236+(I/2=INT(I/2)),0:FOR T=1 TO I/10:NEXT:NEXT:END

20 HCOLOR= 3 * ( PEEK (228) = 0): FOR I = 1 TO NI:SCALE= I: DRAW 1 AT 140,100: NEXT I: POKE 249,PEEK (249)+4:NI=NI-1:ON PEEK(249) < 251 GOTO 20: RETURN