Prima animazione

        1060 graphic 0,1
        1070 color 5,2:color 0,1:color 4,7
        1080 sound 1,0,0:sound 2,0,0
        1090 sound 3,0,0:vol 0
        1100 print chr$(142)
        1110 for a=1 to 8
        1120 sprite a,0:next a
        1140 graphic 1,1:color 1,2:color 0,1
        1150 dx=30:dy=0
        1160 d=int(rnd(1)*2)
        1170 if d=1 then w=dx:dx=dy:dy=w
        1180 x  =30+int(rnd(1)*131)
        1190 y=30+int(rnd(1)*99)
        1200 sr=int(rnd(1)*4)
        1210 if sr=0 then gosub 1240
        1220 if sr=1 or sr=2 or sr=3 then gosub 1290
        1230 goto 1160
        1240 draw 1,x,y to x-dx,y-dy
        1250 draw 1,319-x,y to 319-x+dx,y-dy
        1260 draw 1,x,199-y to x-dx,199-y+dy
        1270 draw 1,319-x,199-y to 319-x+dx,199-y+dy
        1280 return
        1290 draw 0,x,y to x-dx,y-dy
        1300 draw 0,319-x,y to 319-x+dx,y-dy
        1310 draw 0,x,199-y to x-dx,199-y+dy
        1320 draw 0,319-x,199-y to 319-x+dx,199-y+dy
        1330 return