TOS Silver 2000/TOS Silver 2000.iso/programm/MM2_DEV/S/TEST/ALERT.M

Text File | 1994-01-18 | 274 b | 16 lines

MODULE Alert;

FROM EasyGEM0 IMPORT FormAlert, WrapAlert;
IMPORT GEMDOS, PrgCtrl;

VAR c: CARDINAL;

BEGIN
  FormAlert (2, "[1][Terminate via][GEMDOS|PrgCtrl]", c);
  IF c = 2 THEN
    PrgCtrl.TermProcess (-39);
  ELSE
    GEMDOS.Term (-39);
  END
END Alert.