%%HP: T(3)A(D)F(.);
@
@ HP49G Version S.Lui 9/27/01
@ alrtmsg - alrtmsg displays a message with an icon
@ 
@  input:  ic  als
@            ic - icon selection : 0 : warning icon  1: critical icon  2: information icon
\<<
0 \-> ic als g \<<
PICT {# 6d,# 15d} {# 124d,# 48d} SUB 'g' STO
PICT {# 6d,# 15d} # 119d # 34d BLANK REPL
{# 6d,# 15d} {# 124d,# 48d} BOX
PICT {# 60d,# 18d} 
   CASE
     ic 0 == THEN  ALERTG END
     ic 1 == THEN  CRITG END
     ic 2 == THEN  INFOG END
   END
   GOR
5  -7 27 117 3 als 0 0 1  MORE48D
PICT {# 6d,# 15d} g REPL
\>>
\>>

