MODULE 'exec/execbase'

PROC main()
  DEF sysbase:PTR TO execbase
  sysbase:=execbase
  WriteF(
    '$100.w=$\h\n'+
    '$104.w=$\h\n'+
    '$108.w=$\h\n'+
    'LastAlert[0]=$\h\n'+
    'LastAlert[1]=$\h\n'+
    'LastAlert[2]=$\h\n'+
    'LastAlert[3]=$\h\n',
    Long($100),
    Long($104),
    Long($108),
    sysbase.lastalert[0],
    sysbase.lastalert[1],
    sysbase.lastalert[2],
    sysbase.lastalert[3]
  )
ENDPROC