100 x%=58:y%=64:in%=0:be%=0:spr%=6:tip%=64:left%=58:bot%=448:right%=614 110 gr=80: as%=0: SPRITE 0, 0, &hB00000: SETCOLOR 0, 1, 0, 0, 0 120 IF x% MOD 40 = 0 THEN 500 130 SPRITEAT 0, x%, y% 140 FOR n%=1 TO INT(gr): NEXT 150 IF as% = 1 THEN 300 160 y%=y%+1: gr= gr - 0.2: IF y%=bot% THEN 600 170 IF INT(RND()*10+1)*gr+10 < 75 THEN 130 200 IF in% = 1 THEN 230 210 x%=x%+1: IF x% = right% THEN 270 220 GOTO 120 230 x%=x%-1: IF x% = left% THEN 260 240 GOTO 120 260 in%=0: GOTO 120 270 in%=1: GOTO 120 300 y%=y%-1: gr= (y%/10): IF y% = tip% THEN 110 310 IF y% MOD 5 <> 0 THEN 200 400 SPRITE 0, 0, &hB00000+(spr%*1024): IF spr% < 11 THEN 420 410 spr%=5: SETCOLOR 0, 1, y%/2, 0, INT(RND()*250)+1 420 spr%=spr%+1: GOTO 200 500 IF be% = 1 THEN 520 510 SETCOLOR 0, 73, 125, 164, 45: be%=1: GOTO 130 520 SETCOLOR 0, 73, 130, 33, 29 : be%=0: GOTO 130 600 as%=1:FOR de%=100 TO 600 610 SPRITE0,0,&hB00000+INT(de%/100)*1024:NEXT: FOR de% = 1 TO 800:NEXT:GOTO 120