home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / m2mmdemo / isinst / module / helpdemo.mod < prev    next >
Encoding:
Text File  |  1989-02-27  |  2.5 KB  |  67 lines
  1.  
  2. MODULE HelpDemo;
  3.   (*---------------------------------------------------------------------*)
  4.   (*                   H E L P - D R I V E R - D E M O                   *)
  5.   (*                           M 2 P R O L I B                           *)
  6.   (*  Copyright (C) 1987    Bühlmann Computer Software   CH-8636 WALD    *)
  7.   (*                     -- All Rights Reserved --                       *)
  8.   (*---------------------------------------------------------------------*)
  9.   (*  Author: X. Bühlmann                                                *)
  10.   (*                                                                     *)
  11.   (*  Version 1.0      Date: 12/12/87                                    *)
  12.   (*  Version 1.1      Date: 10/09/88  xb  Angepasst an M2Prolib V3.03   *)
  13.   (*---------------------------------------------------------------------*)
  14.   FROM SystemDef IMPORT aFileName, eColor;
  15.   FROM SpecSupport IMPORT MonitorType, eMonitorType;
  16.   FROM HelpDriver IMPORT eHelpError, HelpWdwColor, CreateHelp, 
  17.       HelpStatus;
  18.   IMPORT Screen;
  19.   (*
  20.     *)
  21.   BEGIN
  22.     Screen.ClearScrBound();
  23.     Screen.ScrWriteLn();
  24.     Screen.ScrPutString(
  25.         '                H E L P - D E M O    Version 1.1   ');
  26.     Screen.ScrWriteLn();
  27.     Screen.ScrPutString(
  28.         '                           1 9 8 8                 ');
  29.     Screen.ScrWriteLn();
  30.     Screen.ScrWriteLn();
  31.     Screen.ScrPutString('                         Copyright by        ');
  32.     Screen.ScrWriteLn();
  33.     Screen.ScrPutString(
  34.         '                 (c) Bühlmann Computer Software    ');
  35.     Screen.ScrWriteLn();
  36.     Screen.ScrPutString(
  37.         '                         CH-8636 Wald              ');
  38.     Screen.ScrWriteLn();
  39.     (**)
  40.     CASE MonitorType OF
  41.     | color :
  42.       HelpWdwColor(red, cyan);
  43.     | mono :
  44.       HelpWdwColor(ltWhite, black);
  45.     | spec :
  46.       HelpWdwColor(ltWhite, black);
  47.     END;
  48.     IF NOT CreateHelp('DEMO.HLP',1) THEN
  49.       CASE HelpStatus() OF
  50.       | helpFileNotFound :
  51.         Screen.ScrPutString('Hilfsfile nicht gefunden ! ');
  52.         Screen.ScrWriteLn();
  53.       | helpFileCloseError :
  54.         Screen.ScrPutString(
  55.             'Achtung: Hilfsfile nicht richtig geschlossen ! ');
  56.         Screen.ScrWriteLn();
  57.       | helpTextNumberTooBig :
  58.         Screen.ScrPutString('Unmögliche Hilfstext-Nummer ! ');
  59.         Screen.ScrWriteLn();
  60.       | helpTextTooBig :
  61.         Screen.ScrPutString(
  62.             'Hilfstext passt nicht in eine Bildschirmseite ! ');
  63.         Screen.ScrWriteLn();
  64.       END;
  65.     END;
  66.   END HelpDemo.
  67.