* list
0020  LET shape:=[MAKEOVAL(11,6,21,28),MakeText("!",12,13,25
,23),MAKERECT(16,25,17,28)]
0030  LET icon:=MakeBitMap(32,32,NIL)
0040  drawintobitmap(shape,nil,icon)
0050  seticon "newtjab",icon