Die Prozedur stellt den Programmnamen und das Programm-Icon am oberen Bildschirmrand dar. Damit die Prozedur verfügbar ist, müssen folgende globalen Variablen definiert worden sein:
- picon%; enthält ein Icon der Größe 12*12, das als Programm-Icon verwendet wird
- pname$; enthält den Programmnamen sowie weitere Informationen zum Programm
Als Programm-Icon können auch interne Graphiken verwendet werden. Dazu muß der Wert des ersten Eintrages von picon 0 sein, der zweite Eintrag gibt dann die Nummer der Graphik an.

Beispiel:

const picon=(12,12,-14823,10533,-14011,12105,-16335,1792,2568,2640,-22750,8,3920,-20702) const pname$=("OWBasic Settings"," v1.20¶by Moritz Beutel¶¶\xDC 2006 by AUDACIA¶www.audacia-software.de") #STD_USED=0x0001 #GUI_USED=0x0003 include StdGUI include StdLib 0 std_cls gui_head :! stellt picon und pname[0] links oben auf dem Bildschirm dar gui_xbtn 142,1 show do if gui_qxbtn!(142,1) then end 0 endif gui_qhead :! wenn der Programmname berührt wurde, zeigt die Prozedur eine Messagebox mit Informationen über das Programm (pname[1]) an loop until std_repaint goto 0