MSXPen

10 clear500,&hafff:color15,0,0:screen4,2:definta-z:defusr=&hb000:bload"sc4cmd.bin"

30 reada$:ifa$="end"thena=usr(0):x=128:goto70

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

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

60 colorsprite$(sp)=s$:sp=sp+1:goto30

70 a$="Hello Screen4!":cmd10,5,a$:a$="Score:"+str$(int(rnd(1)*1000))

80 cmd10,15,a$:putsprite0,(x,96),,0:x=x-8:putsprite1,(255-x,80),,1:ifx<0thenx=255

90 goto 70

110 data0C1E3F7F5B6E7E3F1F1F1F1F3333330000000080C2CECE0EFCFEFEFE36363600

120 data09090202020202020202020202050500

130 data000000010303070FFFBFC0FF7F3F39290038FFEFFEFCFCDCDCBC7CF8F8F0C040

140 data00090909090909090909090909090A0A,end