MSXPen

10 color15,0,0:screen1,3:width32:keyoff:definta-z:play"v14l16o5","v14l16o6"

20 wx=256:wy=192:sp=0

30 reada$:ifa$="end"then60

40 s$="":fori=0to31:s$=s$+chr$(val("&h"+mid$(a$,i*2+1,2))):nexti

50 sprite$(sp)=s$:goto30

60 x=80:y=80

70 ifint(rnd(1)*(4))=0thengosub120

80 x=x+xx:y=y+yy

90 ifx=0thenx=0elseifx>256-31thenx=256-32

100 ify=0theny=0elseify>192-31theny=192-32

110 putspritea,(x,y),int(rnd(1)*(14))+2,0:goto70

120 a$=chr$(65+int(rnd(1)*(7))):playa$,a$:a=int(rnd(1)*(6))

130 x=int(rnd(1)*(256)):y=int(rnd(1)*(192)):xx=int(rnd(1)*(21))-10:yy=int(rnd(1)*(21))-10

140 return

150 data00001F7060C08C8C8080C040703F00000000F0180C066261010103071EF80000

160 dataend