0020 LET shape:=[MAKEOVAL(0,0,32,32),MakeText("dope",0,10,32,20)] 0030 LET icon:=MakeBitMap(32,32,NIL) 0040 drawintobitmap(shape,nil,icon) 0050 seticon "dopewars",icon