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
Seconda animazione
1060 graphic 0,1
1070 color 5,2:color 0,1:color 4,15
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 c=1
1150 gosub 1400
1160 for p=1 to 11
1170 char ,p+9,12-p,chr$(x)
1180 next p
1190 for n=1 to 11 step 2
1200 gosub 1400
1210 for p=1 to 12-n
1220 char ,19+p,-1+p+n,chr$(x)
1230 next p
1240 gosub 1400
1250 for p=1 to 12-n
1260 char ,32-p-n,10+p,chr$(x)
1270 next p
1280 gosub 1400
1290 for p=1 to 11-n
1300 char ,21-p,23-p-n,chr$(x)
1310 next p
1320 gosub 1400
1330 for p=1 to 11-n
1340 char ,9+p+n,13-p,chr$(x)
1350 next p
1360 next n
1370 c=c*(-1)
1380 x=32
1390 goto 1150
1400 if c=1 then x=33+int(rnd(1)*96):color 5,int(rnd(1)*14)+2
1410 return