Topspeed_JPI/TS-V3/GRAPHIX/GRCONST.LST

Listing:

    1  (******************************************************************************)
    2  (*        GRCONST.DEF  -  MetaWINDOW 'Constant' and 'Type' Definitions        *)
    3  (*                                                                            *)
    4  (*      Transcribed from GRCONST.H by Metagraphics Software Corporation       *)
    5  (*                                                                            *)
    6  (* PSW 06/28/91 08:30am                                                       *)
    7  (******************************************************************************)
    8  (*# module(implementation=>off, init_code=>off)                               *)
    9  
   10  DEFINITION MODULE GrConst;
   11  (*
   12   *  Graphix
   13   *  Release 3.7
   14   *  (c) Copyright 1986-1992 PMI
   15   *  Green Bay, Wisconsin
   16   *  (414) 468-6040
   17   *  All rights reserved
   18   *
   19   *)
   20  
   21  (**************************** Constant Definitions ****************************)
   22  
   23    CONST
   24      MS_DOS    = 1;                  (* Operating System: Defaults to DOS      *)
   25  
   26      MW_Ver3   = TRUE;               (* Generational compatibility constants.  *)
   27      MW_Ver4   = FALSE;
   28  
   29  (*** PENMODE & TEXTMODE RasterOp's                                          ***)
   30  
   31      zREPz     = 0;
   32      zORz      = 1;
   33      zXORz     = 2;
   34      zNANDz    = 3;
   35      zNREPz    = 4;
   36      zNORz     = 5;
   37      zNXORz    = 6;
   38      zANDz     = 7;
   39  
   40  (*** Graphics Adaptor Definitions                                           ***)
   41      ATI800x600      = 533;          (* ATI VGAWonder                          *)
   42      ATI640x480X     = 534;          (*   640x480 256-color                    *)
   43      ATI1024x768F    = 535;          (*   1024x768 16-color                    *)
   44      ATT             = 128;          (* AT&T Std. Color & DEB Adaptors         *)
   45      ATT640x400      = 128;          (*   640x400 monochrome                   *)
   46      DEB640x200      = 129;          (*   640x200 16-color                     *)
   47      DEB640x400      = 130;          (*   640x400 16-color                     *)
   48      CGA             = 6;            (* IBM Color Graphics Adaptor (CGA)       *)
   49      CGA320x200      = 4;            (*   320x200 4-color                      *)
   50      CGA640x200      = 6;            (*   640x200 2-color                      *)
   51      COR             = 34;           (* Cornerstone                            *)
   52      COR1600x1280V   = 34;           (*   Vista 1600 1600x1280 mono            *)
   53      COR1600x1280VA  = 37;           (*   Vista 1600 1600x1280 no em, 2 mon    *)
   54      COR1600x1280DP  = 35;           (*   DualPage   1600x1280 mono            *)
   55      COR1600x1280DPA = 36;           (*   DualPage 1600x1280, no JP1           *)
   56      COR1600x1280MCA = 39;           (*   DualPage 1600x1280 Micro Channel     *)
   57      SP768x1008      = 42;           (*   SinglePage 768x1008 mono             *)
   58      SP768x1008A     = 43;           (*   SinglePage 768x1008 no JP1           *)
   59      COR1280x960     = 44;           (*   PC 1280 1280x960, mono               *)
   60      COR1280x960A    = 45;           (*   PC 1280 1280x960, mono               *)
   61      COR1280x1024    = 46;           (*   PC 1280 1280x1024, mono              *)
   62      COR1280x1024A   = 47;           (*   PC 1280 1280x1024, mono              *)
   63      CT640x480X      = 537;          (* Chips and Tech. 256 color              *)
   64      CT1024x768      = 538;          (*   1024x768, 16 color                   *)
   65      EGA             = 512;          (* IBM Enhanced Graphics Adaptor          *)
   66      EGAMono         = 512;          (*   640x350 monochrome                   *)
   67      EGA320x200      = 544;          (*   320x200 16-color                     *)
   68      EGA640x200      = 528;          (*   640x200 16-color                     *)
   69      EGA640x350      = 560;          (*   640x350 16-color (128k EGA)          *)
   70      MGA640x350      = 561;          (*   640x350 2-color                      *)
   71      EGA640x480      = 562;          (*   640x480 16-color  (VGA)              *)
   72      MGA640x480      = 563;          (*   640x480 2-color   (MCGA)             *)
   73      VGA320x200      = 564;          (*   320x200 256-color (PS2 VGA)          *)
   74      EGA640x350S     = 565;          (*   640x350 16-color (no bios-EGA)       *)
   75      VGA640x350S     = 566;          (*   640x350 16-color (no bios-VGA)       *)
   76      VGA640x480S     = 567;          (*   640x480 16-color (no bios-VGA)       *)
   77      EGA640x350MP    = 131;          (* IBM EGA, in multi planar setting       *)
   78      JRT320x200      = 569;          (* 320x200 16-color IBM PCjr & Tandy 1000 *)
   79      EVA             = 516;          (* Tseng Labs EVA/480                     *)
   80      EVA640x480      = 516;          (*   640x480 16-color                     *)
   81      EVR             = 1024;         (* Everex Graphics Edge Adaptor           *)
   82      EVR640x200      = 1024;         (*   640x200 16-color                     *)
   83      EVR640x400      = 1025;         (*   640x400 4-color                      *)
   84      EVX800x600      = 532;          (* Everex EVGA EV-673 Adaptor             *)
   85      EXPL320x200     = 140;          (* HeadStart Explorer 320x200 16-color    *)
   86      FKY1120x750     = 2200;         (* Fujitsu FMR 70 16 color                *)
   87      FKY640x400      = 2201;         (* Fujitsu FMR 60 16 color                *)
   88      FKY1120x750m    = 2202;         (* Fujitsu FMR 70 monochrome              *)
   89      GEN             = 529;          (* Genoa SuperEGA HiRes                   *)
   90      GEN640x480      = 529;          (*   640x480 16-color                     *)
   91      GEN800x600      = 518;          (*   800x600 16-color                     *)
   92      GEN1024x768     = 519;          (* Genoa SuperVGA HiRes-10 16-color       *)
   93      GEN640x350X     = 530;          (*   640x350 256-color                    *)
   94      GEN640x480X     = 531;          (*   640x480 256-color                    *)
   95      GEN800x600V     = 539;          (*   800x600  16-color                    *)
   96                                      (* Genoa SuperVGA (6100/6300/6400)        *)
   97  (*  GEN640x350S     = 582;           *   640x350  256-color                   *)
   98      GEN640x480S     = 583;          (*   640x480  256-color                   *)
   99      GEN1024x768S    = 584;          (*   1024x768 16-color                    *)
  100      HER             = 8;            (* Hercules/AST Monochrome Adaptor        *)
  101      HER720x348      = 8;            (*   720x348 monochrome                   *)
  102      MDS             = 2;            (* MDS Genius Graphics Display            *)
  103      MDS736x1008     = 2;            (*   736x1008 monochrome                  *)
  104      NNR512x512      = 4096;         (* Number Nine 512x485 256-color          *)
  105      NNR1024x768     = 4097;         (*    2048x4 @ 1024x768x16                *)
  106      NSI             = 514;          (* NSI Logic Smart EGA/Plus               *)
  107      NSI800x600      = 514;          (*   800x600 16-color                     *)
  108      OAK800x600      = 585;          (* OAK OTI-067 chip set                   *)
  109      OAK1024x768     = 586;          (*   1024x768 16 color                    *)
  110      OAK640x480X     = 587;          (*   640x480 256 color                    *)
  111      OCD800x600      = 571;          (* Orchid Designer VGA 800x600x16         *)
  112      OCD1024x768     = 572;          (*   1024x768 16 color                    *)
  113      OCD640x350X     = 573;          (*   640x350 256 color                    *)
  114      OCD640x480X     = 574;          (*   640x480 256 color                    *)
  115      PAR             = 517;          (* Paradise AutoSwitch EGA/480            *)
  116      PAR640x480      = 517;          (*   640x480 16-color                     *)
  117      PAR800x600      = 579;          (* Paradise  800x600 16-color             *)
  118      PAR1024x768     = 580;          (*   1024x768 16-color                    *)
  119      PAR640x480x     = 581;          (*   640x480 256-color                    *)
  120      SIG             = 32;           (* Sigma Design                           *)
  121      SIG640x400      = 32;           (*   640x400 16-color, Color-400          *)
  122      SIG1664x1200    = 33;           (*   LaserView 1664x1200 monochome        *)
  123      SIG1664x1200A   = 38;           (*   1664x1200 @0A000                     *)
  124      SIG1664x1200MCA = 41;           (*   1664x1200 Micro channel              *)
  125      STB             = 256;          (* STB GraphicsPlus-II Adaptor            *)
  126      STB640x352      = 256;          (*   640x352 monochrome                   *)
  127      STB320x200      = 257;          (*   320x200 16-color                     *)
  128      STB640x200      = 258;          (*   640x200 4-color                      *)
  129      STB640x400      = 384;          (*   640x400 monochrome                   *)
  130      STB800x600      = 571;          (* STB VGA Extra/EM 800x600x16            *)
  131      STB1024x768     = 572;          (*   1024x768 16 color                    *)
  132      STB640x350X     = 573;          (*   640x350 256 color                    *)
  133      STB640x480X     = 574;          (*   640x480 256 color                    *)
  134      TEC             = 16;           (* Tecmar Graphics-Master Adaptor         *)
  135      TEC720x352      = 16;           (*   720x352 monochrome                   *)
  136      TEC720x704      = 17;           (*   720x704 monochrome                   *)
  137      TEC320x200      = 18;           (*   320x200 16-color                     *)
  138      TEC640x200      = 19;           (*   640x200 16-color                     *)
  139      TEC640x400      = 20;           (*   640x400 16-color                     *)
  140      TEC640x350X     = 575;          (* Tecmar VGA/AD, 640x350 256-color       *)
  141      TEC640x480X     = 576;          (*   640x480 256-color                    *)
  142      TEC800x600      = 577;          (*   800x600 16-color                     *)
  143      TEC1024x768     = 578;          (*   1024x768 16-color                    *)
  144      TOS             = 16384;        (* Toshiba 3100                           *)
  145      TOS640x400      = 16384;        (*   640x400 monochrome                   *)
  146      TRI800x600      = 588;          (* Trident Impact SuperVGA, 16 color      *)
  147      TRI1024x768     = 589;          (*   1024x768x16 color                    *)
  148      TRI640x480x     = 590;          (*   640x480x256 color                    *)
  149      TRI800x600x     = 591;          (*   800x600x256 color                    *)
  150      TRI1024x768x    = 592;          (*   1024x768x256 color                   *)
  151      TARG512x482     = 8192;         (* TrueVision Targa M8 512x482 256-color  *)
  152                                      (*  Tseng Labs 4000 chip set              *)
  153  (*  TS41024x768     = 540 This chip does not work in 128k flat mode           *)
  154      TS4640x350x     = 541;          (*   640x350x256                          *)
  155      TS4640x480x     = 542;          (*   640x480x256                          *)
  156      TS4800x600x     = 543;          (*   800x600x256                          *)
  157      TS41024x768x    = 545;          (*   1024x768x256                         *)
  158      TTS             = 2048;         (* IBM 3270 PC                            *)
  159      TTS720x350      = 2048;         (*   720x350 monochrome                   *)
  160      TTS360x350      = 2049;         (*   360x350 4-color                      *)
  161      VESA800x600     = 526;          (* V.E.S.A. std 800x600 16-color          *)
  162      VGA             = 520;          (* Video-7 VEGA Deluxe                    *)
  163      VGA640x480      = 520;          (*   640x480 16-color                     *)
  164      VGA752x410      = 521;          (*   752x410 16-color                     *)
  165      VGA720x540      = 522;          (* V7 VGA  720x540 16-color               *)
  166      VGA800x600      = 523;          (*   800x600 16-color  (VGA)              *)
  167      VGA640x480X     = 525;          (* V7 640x480 256-color                   *)
  168      VGA1024x768x2   = 527;          (*   1024x768 2-color                     *)
  169      VGA1024x768     = 536;          (* VGA 1024 i 1024x768 16-color           *)
  170      WYS             = 64;           (* Wyse WY-700 Graphics Display           *)
  171      WYS1280x800     = 64;           (*   1280x800 monochrome                  *)
  172      WYS1280x400     = 65;           (*   1280x400 monochrome                  *)
  173      WYS640x400      = 66;           (*   640x400 monochrome                   *)
  174      MEC1120x750     = 610;          (* NEC PC 98XA monochrome                 *)
  175      MEC640x400      = 611;          (* NEC PC 98VM monochrome                 *)
  176      NEC1120x750     = 626;          (* NEC PC 98XA 16-color                   *)
  177      NEC640x400      = 627;          (* NEC PC 98VM 16-color                   *)
  178  
  179  (* Defines for National Design Genesis-1024/1280                              *)
  180      NDI640x480x4D   = 4140H;        (* 640x480   16-color, digitl             *)
  181      NDI640x480x4A   = 4141H;        (* 640x480   16-color, analog             *)
  182      NDI1024x768x4J  = 4148H;        (* 1024x768  16-color, JVC                *)
  183      NDI1024x768x4M  = 4149H;        (* 1024x768  16-color, Mitsu.             *)
  184      NDI1280x1024x4J = 414AH;        (* 1280x1024 16-color, JVC                *)
  185      NDI960x720x4N   = 414BH;        (* 960x720   16-color, NEC XL             *)
  186  
  187  (* Defines for RenaissanceGRX Rendition-II                                    *)
  188      GRX640x480x4A   = 4240H;        (* 640x480   16-color, analog             *)
  189      GRX800x600x4A   = 4242H;        (* 800x600   16-color, analog             *)
  190      GRX1024x768x4A  = 4246H;        (* 1024x768  16-color, analog             *)
  191      GRX640x480x8A   = 4248H;        (* 640x480  256-color, analog             *)
  192      GRX800x600x8A   = 424AH;        (* 800x600  256-color, analog             *)
  193      GRX1024x768x8A  = 424CH;        (* 1024x768 256-color, analog             *)
  194  
  195  (* Defines for Hewlett-Packard HP82328 IGC                                    *)
  196      HP1024x768x4    = 664AH;        (* 1024x768  16-color                     *)
  197  
  198  (* Defines for IBM 8514A (and compatibles)                                    *)
  199      EFF640x480x4    = 7000H;        (*  640x480   16-color                    *)
  200      EFF640x480x8    = 7001H;        (*  640x480  256-color                    *)
  201      EFF1024x768x4I  = 7040H;        (* 1024x768   16-color, intlacd           *)
  202      EFF1024x768x4N  = 7041H;        (* 1024x768   16-color, non-inl           *)
  203      EFF1024x768x8I  = 7042H;        (* 1024x768  256-color, intlacd           *)
  204      EFF1024x768x8N  = 7043H;        (* 1024x768  256-color, non-inl           *)
  205      EFF1280x1024x4I = 7080H;        (* 1280x1024  16-color, intlacd           *)
  206      EFF1280x1024x4N = 7081H;        (* 1280x1024  16-color, non-inl           *)
  207      EFF1280x1024x8I = 7082H;        (* 1280x1024 256-color, intlacd           *)
  208      EFF1280x1024x8N = 7083H;        (* 1280x1024 256-color, non-inl           *)
  209  
  210      CUST_LIN        = CGA640x200;   (* User defined linear memory             *)
*****                        ^ not supported yet
  211      CUST_BS         = SIG640x400;   (* User defined Bank select               *)
*****                        ^ not supported yet
  212      CUST_EGA        = EGA640x350;   (* User defined EGA Superset              *)
*****                        ^ not supported yet
  213  
  214  (*** HardCopy Constant definitions.                                         ***)
  215      HC_ROT          = 01H;    (* When set, rotate pic 90 CCW                  *)
  216      HC_XL           = 08H;    (* When set, disables default background xlate  *)
  217      HC_ASC          = 10H;    (* When set, emits ascii length, instead of hex *)
  218                                (* Typically used for HP LaserJet printers      *)
  219  
  220  (*** Mouse Definitions                                                      ***)
  221      COM1            = 1;            (* Mouse Systems mouse, COM1              *)
  222      COM2            = 2;            (* Mouse Systems mouse, COM2              *)
  223  (*  MsMouse         = 16;              Microsoft Bus Mouse - obselete         *)
  224      MsCOM1          = 17;           (* Microsoft Serial Mouse, COM1           *)
  225      MsCOM2          = 18;           (* Microsoft Serial Mouse, COM2           *)
  226      MsDriver        = 32;           (* Microsoft Mouse driver                 *)
  227      FKYMsDriver     = 128;          (* FKY Microsoft Mouse driver, uses int 99*)
  228      swRight         = 1;
  229      swMiddle        = 2;            (*   (not on 2 button mice)               *)
  230      swLeft          = 4;
  231      swAll           = 7;
  232  
  233      Black           = 0;            (* all bits OFF                           *)
  234      White           = -1;           (* all bits ON                            *)
  235      TextPg0         = 0;
  236      GrafPg0         = 256;
  237      GrafPg1         = 257;
  238      ScrnXmin        = 0;
  239      ScrnYmin        = 0;
  240  
  241      cNormal         = 0;            (* TEXTFACE                               *)
  242      cBold           = 1;
  243      cItalic         = 2;
  244      cUnderline      = 4;
  245      cStrikeout      = 8;
  246      cMirrorX        = 32;
  247      cMirrorY        = 64;
  248      cProportional   = 128;
  249  
  250      alignLeft       = 0;            (* TEXTALIGN - Horizontal                 *)
  251      alignCenter     = 1;
  252      alignRight      = 2;
  253  
  254      alignBaseline   = 0;            (* TEXTALIGN - Vertical                   *)
  255      alignBottom     = 1;
  256      alignMiddle     = 2;
  257      alignTop        = 3;
  258  
  259      pathRight       = 0;            (* TEXTPATH definitions                   *)
  260      pathUp          = 900;
  261      pathLeft        = 1800;
  262      pathDown        = 2700;
  263  
  264      capFlat         = 0;            (* PENCAP definitions                     *)
  265      capRound        = 1;
  266      capSquare       = 2;
  267  
  268      joinRound       = 0;            (* PENJOIN definitions                    *)
  269      joinBevel       = 1;
  270      joinMiter       = 2;
  271  
  272  
  273  (*** TYPE Definitions.                                                      ***)
  274  
  275    TYPE
  276  
  277      image = BYTE;
*****              ^ undeclared identifier
  278  
  279      point = RECORD                  (* "Point" structure type                 *)
  280        X,                            (* X coordinate                           *)
  281        Y: INTEGER                    (* Y coordinates                          *)
  282      END;
*****      ^ not supported yet
  283  
  284      adsPoint = POINTER TO point;
*****                            ^ not supported yet
  285  
  286      rect = RECORD                   (* "Rectangle" structure type             *)
  287        Xmin,                         (* minimum X                              *)
  288        Ymin,                         (* minimum Y                              *)
  289        Xmax,                         (* maximum X                              *)
  290        Ymax: INTEGER                 (* maximum Y                              *)
  291      END;
*****      ^ not supported yet
  292  
  293      polyHead = RECORD               (* Polygon "header" structure             *)
  294        polyBgn,                      (* beginning index                        *)
  295        polyEnd:  CARDINAL;           (* ending index                           *)
  296        polyRect: rect;               (* boundry limits                         *)
  297      END;
*****      ^ not supported yet
  298  
  299      adsPolyHead = POINTER TO polyHead;
*****                               ^ not supported yet
  300  
  301  (*%T MW_Ver3 *)
  302      event = RECORD                  (* Event record structure                 *)
  303        ASCII:    CHAR;               (* ASCII character code                   *)
  304        ScanCode: BYTE;               (* Keyboard scan code                     *)
*****                  ^ undeclared identifier
  305        State:    CARDINAL;           (* Keyboard & mouse switches              *)
  306        CursorX,                      (* Cursor X position                      *)
  307        CursorY,                      (* Cursor Y position                      *)
  308        Time:     INTEGER;            (* System time of event                   *)
  309        evntData: LONGINT;            (* User defined 32 bit item               *)
  310      END;
*****      ^ not supported yet
  311  (*%E MW_Ver3 *)
  312  
  313  (*%T MW_Ver4 *)
  314      event = RECORD                  (* Event record structure                 *)
*****      ^ duplicate identifier
  315        evntASCII:    CHAR;           (* ASCII character code                   *)
  316        evntScanCode: BYTE;           (* Keyboard scan code                     *)
*****                      ^ undeclared identifier
  317        evntState:    CARDINAL;       (* Keyboard & mouse switches              *)
  318        evntCursorX,                  (* Cursor X position                      *)
  319        evntCursorY,                  (* Cursor Y position                      *)
  320        evntTime:     INTEGER;        (* System time of event                   *)
  321        evntData:     LONGINT;        (* User defined 32 bit item               *)
  322      END;
*****      ^ not supported yet
  323  (*%E MW_Ver4 *)
  324  
  325      cursor = RECORD                 (* Cursor Image definition                *)
  326        curWidth,                     (* must be 16                             *)
  327        curHeight,                    (* must be 16                             *)
  328        curAlign,                     (* must be 0                              *)
  329        curRowBytes: CARDINAL;        (* must be 2                              *)
  330        curBits,                      (* must be 1                              *)
  331        curPlanes:   SHORTCARD;       (* must be 1                              *)
  332        curData: ARRAY [0..31] OF BYTE;     (* cursor data bytes                *)
*****                           ^ not supported yet
*****                                  ^ undeclared identifier
  333      END;
*****      ^ not supported yet
  334  
  335      patRcd = RECORD                 (* Pattern Image definition               *)
  336        patWidth,                     (* must be 8                              *)
  337        patHeight,                    (* must be 8                              *)
  338        patAlign,                     (* must be zero                           *)
  339        patRowBytes: CARDINAL;        (* must be equal to patBits               *)
  340        patBits,                      (* value of 1,2,4 or 8                    *)
  341        patPlanes: SHORTCARD;         (* value of 1 thru 32                     *)
  342        patData: ARRAY[0..31] OF BYTE;(* pattern data bytes                     *)
*****                          ^ not supported yet
*****                                 ^ undeclared identifier
  343      END;
*****      ^ not supported yet
  344  
  345      penState = RECORD               (* Pen State record structure             *)
  346        psBkColor,                    (* Background color                       *)
  347        psPnColor: LONGINT;           (* Pen color                              *)
  348        psPnLoc,                      (* Pen location                           *)
  349        psPnSize: point;              (* Pen size                               *)
  350        psPnMode,                     (* Pen mode (rasterOp)                    *)
  351        psPnPat,                      (* Pen pattern index                      *)
  352        psPnCap,                      (* Pen end-cap style                      *)
  353        psPnJoin,                     (* Line join style                        *)
  354        psPnDash,                     (* Line dash style                        *)
  355        psPnOffset,                   (* Dash starting offset                   *)
  356        psPnLevel: CARDINAL;          (* Pen visibility level                   *)
  357      END;
*****      ^ not supported yet
  358  
  359      dirRec = RECORD                 (* FILEQUERY - directory record           *)
  360        reserved: ARRAY[0..20] OF BYTE;   (* (DOS reserved)                     *)
*****                           ^ not supported yet
*****                                  ^ undeclared identifier
  361        fileAttr: BYTE;               (* File attribute                         *)
*****                  ^ undeclared identifier
  362        fileTime: CARDINAL;           (* File create time                       *)
  363        fileDate: CARDINAL;           (* File create date                       *)
  364        fileSize: LONGCARD;           (* File size (bytes)                      *)
*****                  ^ undeclared identifier
  365        fileName: ARRAY[0..13] OF CHAR;   (* "FILENAME.EXT\0"                   *)
*****                           ^ not supported yet
*****                                  ^ not supported yet
  366      END;
*****      ^ not supported yet
  367  
  368      imageHeader = RECORD            (* Image Header record structure          *)
  369        imWidth,                      (* Pixel width (X)                        *)
  370        imHeight,                     (* Pixel height (Y)                       *)
  371        imAlign,                      (* Image alignment                        *)
  372        imRowBytes:CARDINAL;          (* Bytes per row                          *)
  373        imBits,                       (* Bits per pixel                         *)
  374        imPlanes: SHORTCARD;          (* Planes per pixel                       *)
  375  (*    char   imData[]; *)           (* (image data, variable length)          *)
  376      END;
*****      ^ not supported yet
  377  
  378      adsImage = POINTER TO imageHeader;
*****                            ^ not supported yet
  379  
  380      dashRcd = RECORD                (* DEFINEDASH data record                 *)
  381        nCnts,                        (* number of active entries, 1-8          *)
  382        cnt1,                         (* distance ON,  1                        *)
  383        cnt2,                         (* distance OFF, 2                        *)
  384        cnt3,                         (* distance ON,  3                        *)
  385        cnt4,                         (* distance OFF, 4                        *)
  386        cnt5,                         (* distance ON,  5                        *)
  387        cnt6,                         (* distance OFF, 6                        *)
  388        cnt7,                         (* distance ON,  7                        *)
  389        cnt8: CARDINAL;               (* distance OFF, 8                        *)
  390      END;
*****      ^ not supported yet
  391  
  392  (* Write/ReadPalette *)
  393      palData = RECORD
  394        palRed,
  395        palGreen,
  396        palBlue: WORD;
*****                 ^ undeclared identifier
  397      END;
*****      ^ not supported yet
  398  
  399  (* HardCopy Types *)
  400  
  401      (* The following allow objects of type HCInfoRec to be initialised using  *)
  402      (* TopSpeed Modula-2 agregate initialisation (see HARDCOPY.MOD)           *)
  403      init     = ARRAY [0..1FH] OF BYTE;    (* The printer init code(s).        *)
*****                           ^ not supported yet
*****                                   ^ undeclared identifier
  404      reset    = ARRAY [0..0FH] OF BYTE;    (* Printer clean up code(s)         *)
*****                           ^ not supported yet
*****                                   ^ undeclared identifier
  405      header   = ARRAY [0..07H] OF BYTE;    (* Sent before every line           *)
*****                           ^ not supported yet
*****                                   ^ undeclared identifier
  406      pstam    = ARRAY [0..07H] OF BYTE;    (* Sent after length spec           *)
*****                           ^ not supported yet
*****                                   ^ undeclared identifier
  407      trailer  = ARRAY [0..0FH] OF BYTE;    (* Sent after every line            *)
*****                           ^ not supported yet
*****                                   ^ undeclared identifier
  408      hcSIG    = ARRAY [0..01H] OF BYTE;    (* Set to 'HC' for validity check   *)
*****                           ^ not supported yet
*****                                   ^ undeclared identifier
  409      xlaTable = ARRAY [0..0FH] OF BYTE;    (* Color translation table          *)
*****                           ^ not supported yet
*****                                   ^ undeclared identifier
  410  
  411    HCInfoRec = RECORD
  412      pins,                           (* Number of elements in print swath.     *)
  413                                      (* Use 1 for Laser printers               *)
  414      inlen:    INTEGER;              (* Number of bytes in following string    *)
  415      init:     init;                 (* The printer init code(s).              *)
  416      rslen:    INTEGER;              (* Number of bytes in following string    *)
  417      reset:    reset;                (* Printer clean up code(s)               *)
  418      hdlen:    INTEGER;              (* Number of bytes in following string    *)
  419      header:   header;               (* Sent before every line                 *)
  420      pstlen:   INTEGER;              (* Number of bytes in following string    *)
  421      pstam:    pstam;                (* Sent after length spec                 *)
  422      trlen:    INTEGER;              (* Number of bytes in following string    *)
  423      trailer:  trailer;              (* Sent after every line                  *)
  424      hcMode:   INTEGER;              (* Operational mode bits                  *)
  425      prtPort:  INTEGER;              (* System printer port, 0-3 or 80-83      *)
  426      hcSIG:    hcSIG;                (* Set to 'HC' for validity check         *)
  427      xlatMask: INTEGER;              (* Max color number in xlaTable           *)
  428      xlaTable: xlaTable;             (* Color translation table                *)
  429    END;
*****    ^ not supported yet
  430  
  431    mapArray = ARRAY [0..7] OF INTEGER;   (* CursorMap data record              *)
*****                         ^ not supported yet
*****                               ^ not supported yet
  432  
  433  (* Sample User Definable Types: *)
  434  
  435      CCBtype = RECORD                (*User Definable Clock_Communication_Block*)
  436        Timer: CARDINAL;
  437        tX,
  438        tY,
  439        tSw: INTEGER;
  440      END;
*****      ^ not supported yet
  441  
  442      MCBtype = RECORD                (*User Definable Mouse_Communication_Block*)
  443        mX,
  444        mY,
  445        mSw: INTEGER;
  446      END;
*****      ^ not supported yet
  447  
  448      colrTable = ARRAY [0..15] OF LONGINT;
*****                            ^ not supported yet
*****                                   ^ not supported yet
  449  
  450  END GrConst.
*****      ^ not supported yet

   55 errors