home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / UPCONV13.ZIP / TOKENS.INC < prev    next >
Encoding:
Text File  |  1989-04-14  |  8.6 KB  |  231 lines
  1. CONST
  2.   NRTOKENS  =  550;  {actually 1 more, since 0..MAXNRTOKENS}
  3.  
  4. TYPE
  5.   TokenStr = STRING[20];
  6.   Token_Array = ARRAY[0..NRTOKENS] OF TokenStr;
  7.  
  8. CONST
  9.   CToken : Token_Array =
  10.     ( 'ABS', 'Absolute', 'Addr', 'AND', 'Append',
  11.       'ARCTAN', 'ARRAY', 'Assign', 'Aux', 'AuxIn',
  12.       'AuxInPtr', 'AuxOutPtr',
  13.       'BEGIN', 'BlockRead', 'BlockWrite',
  14.       'BOOLEAN', 'BufLen', 'Byte',
  15.  
  16.       'CASE', 'CBreak',                          {v5.0}
  17.       'Chain', 'CHAR', 'ChDir',
  18.       'ChkEOF',                                  {v5.0}
  19.       'CHR', 'CLOSE', 'ClrEol', 'ClrScr', 'Con',
  20.       'CONCAT', 'ConIn', 'ConInPtr', 'ConOut', 'ConOutPtr',
  21.       'CONST', 'ConstPtr', 'COPY', 'COS', 'CrtExit',
  22.       'CrtInit', 'CSeg',
  23.  
  24.       'Dec',                                     {v5.0}
  25.       'Delay', 'DELETE', 'DelLine', 'Dispose', 'DIV', 'DO', 'DOWNTO',
  26.       'Draw', 'DSeg',
  27.  
  28.       'ELSE', 'END', 'EOF', 'EOLN', 'Erase',
  29.       'Execute', 'Exit', 'EXP', 'EXTERNAL',
  30.  
  31.       'FALSE', 'FILE', 'FilePos', 'FileSize',
  32.       'FillChar', 'Flush', 'FOR', 'FORWARD', 'Frac',
  33.       'FreeMem', 'FUNCTION',
  34.  
  35.       'GetDir', 'GetMem', 'GOTO',
  36.       'GotoXY', 'GraphBackGround', 'GraphColorMode', 'GraphMode',
  37.       'GraphWindow',
  38.  
  39.       'HALT', 'HeapStr', 'Hi', 'HiRes', 'HiResColor', 'HighVideo',
  40.  
  41.       'IF', 'IN',
  42.       'Implementation', 'Inc',                 {v5.0}
  43.       'InLine', 'INPUT', 'INSERT', 'InsLine',
  44.       'INT', 'INTEGER', 'Intr', 'IOResult',
  45.  
  46.       'Kbd', 'KeyPressed',
  47.  
  48.       'LABEL', 'LENGTH', 'LN', 'Lo', 'LongFilePos', 'LongFileSize',
  49.       'LongSeek', 'LowVideo', 'Lst', 'LstOut', 'LstOutPtr',
  50.  
  51.       'MARK', 'MaxAvail', 'MAXINT', 'Mem', 'MemAvail', 'MemW',
  52.       'MemL',                               {v5.0}
  53.       'MkDir', 'MOD', 'Move', 'MsDos',
  54.  
  55.       'NEW', 'NIL', 'NormVideo', 'NoSound', 'NOT',
  56.  
  57.       'ODD', 'OF', 'Ofs', 'OR', 'ORD', 'OUTPUT', 'OvrPath',
  58.  
  59.       'PACKED', 'Palette', 'Pi', 'Plot', 'Port', 'PortW', 'POS', 'PRED',
  60.       'PROCEDURE', 'PROGRAM', 'Ptr',
  61.  
  62.       'Random', 'Randomize', 'READ', 'READLN', 'REAL', 'RECORD', 'RELEASE',
  63.       'Rename', 'REPEAT', 'RESET', 'REWRITE', 'RmDir', 'ROUND',
  64.  
  65.       'Seek', 'Seg', 'SET', 'ShL', 'ShR', 'SIN', 'SIZEOF', 'Sound', 'SQR',
  66.       'Sqrt', 'SSeg', 'STR', 'STRING', 'SUCC', 'Swap',
  67.  
  68.       'TEXT', 'TextBackGround', 'TextColor', 'TextMode',
  69.       'THEN', 'TO', 'Trm', 'TRUE', 'TRUNC', 'Truncate', 'TYPE',
  70.  
  71.       'Unit',                                 {v5.0}
  72.       'UNTIL', 'UpCase',
  73.       'Uses',                                 {v5.0}
  74.       'Usr', 'UsrIn', 'UsrInPtr', 'UsrOut', 'UsrOutPtr',
  75.  
  76.       'VAL', 'VAR',
  77.  
  78.       'WhereX', 'WhereY', 'WHILE', 'Window', 'WITH', 'Wrap',
  79.       'WRITE', 'WRITELN',
  80.  
  81.       'XOr',
  82.  
  83. {  Some Turbo Pascal "Constants"  }
  84.  
  85.       'BLACK', 'BLUE', 'GREEN', 'CYAN', 'RED',
  86.       'MAGENTA', 'BROWN', 'LIGHTGRAY', 'DARKGRAY', 'LIGHTBLUE',
  87.       'LIGHTGREEN', 'LIGHTCYAN', 'LIGHTRED', 'LIGHTMAGENTA', 'YELLOW',
  88.       'WHITE', 'BW40', 'C40', 'BW80', 'C80',
  89.       'Font8x8',                                 {v5.0}
  90.  
  91. {  v1.3  Some v5.0 compiler directives }
  92.  
  93.      '$DEFINE', '$ELSE', '$ENDIF', '$IFDEF',
  94.      '$IFNDEF', '$IFOPT', '$UNDEF',
  95.  
  96. { v1.3  Some v5.0 Units }
  97.      'Crt', 'Graph3', 'Graph', 'Turbo3', 'Overlay', 'Printer',
  98.  
  99. {v1.3 Turbo 5.0 System unit}
  100.      'OverCodeList', 'OvrHeapSize','OvrDebugPtr','OvrHeapOrg', 'OvrHeapPtr', 'OvrHeapEnd', 'OvrLoadList', 'OvrDosHandle',
  101.      'OvrEmsHandle', 'HeapOrg', 'HeapPtr', 'FreePtr', 'FreeMin',
  102.      'HeapError', 'ExitProc', 'ExitCode', 'ErrorAddr', 'PrefixSeg',
  103.      'StackLimit', 'InOutRes', 'RandSeed', 'FileMode', 'Test8087',
  104.  
  105. {v1.3 Turbo 5.0 Dos Unit}
  106.       'FCarry', 'FParity', 'FAuxiliar', 'FZero', 'FSign',
  107.       'FOverflow', 'fmClosed', 'fmInput', 'fmOutput', 'fmInOut',
  108.  
  109.       'FileRec', 'TextBuf', 'TextRec', 'ReadOnly', 'Hidden',
  110.       'SysFile', 'VolumeID', 'Directory', 'Archive', 'AnyFile',
  111.  
  112.       'Registers',
  113.       'DateTime', 'SearchRec', 'DirStr', 'NameStr',
  114.       'ExtStr', 'DosError', 'GetIntVec',
  115.       'SetIntVec', 'GetDate', 'GetFTime', 'GetTime', 'PackTime',
  116.       'SetDate', 'SetFTime', 'SetTime', 'UnpackTime', 'DiskFree',
  117.       'DiskSize', 'FindFirst', 'FindNext', 'GetFAttr', 'SetFAttr',
  118.  
  119.       'FSplit', 'FExpand', 'FSearch', 'Keep', 'SwapVectors',
  120.       'DosExitCode', 'EnvCount', 'EnvStr', 'GetEnv', 'DosVersion',
  121.       'GetCBreak', 'SetCBreak', 'GetVerify', 'SetVerify',
  122.  
  123. {The Crt Unit}
  124.       'CheckBreak',
  125.       'CheckEOF', 'CheckSnow', 'DirectVideo', 'LastMode', 'TextAttr',
  126.       'WindMin', 'WindMax', 'AssignCrt', 'ReadKey',
  127.  
  128. {some Overlay variables/constants}
  129.  
  130.      'OvrResult', 'ovrOk', 'ovrError', 'ovrNotFound', 'ovrNoMemory',
  131.      'ovrIOError', 'ovrNoEMSDriver', 'ovrNoEMSMemory', 'OverInit',
  132.      'OverInitEMS', 'OverSetBuf', 'OverClearBuf', 'OvrGetBuf',
  133.  
  134. {   Extended Graphics (from GRAPH.P).}
  135.      'ColorTable', 'Arc', 'Circle', 'GetPic', 'PutPic', 'GetDotColor',
  136.      'FillPattern', 'FillScreen', 'FillShape', 'Pattern',
  137.  
  138. { v1.3 v5.0 Graph unit}
  139.      'Bar', 'Bar3D', 'ClearDevice', 'ClearViewPort', 'CloseGraph',
  140.      'DetectGraph', 'DrawPoly', 'Ellipse', 'FillEllipse', 'FillPoly',
  141.      'FloodFill',
  142.      'GetArcCoords', 'GetAspectRatio', 'GetDefaultPallette',
  143.      'GetFillPattern', 'GetFillSettings', 'GetImage', 'GetLineSettings',
  144.      'GetModeRange', 'GetPallette', 'GetTextSettings', 'GetViewSettings',
  145.      'GraphDefaults',
  146.      'InitGraph', 'Line', 'LineRel', 'LineTo',
  147.      'MoveRel', 'Moveto',
  148.      'OutText', 'OutTextXY',
  149.      'PieSlice', 'PutImage', 'PutPixel',
  150.      'RecTangle', 'RestoreCrtMode',
  151.      'Sector', 'SetActivePage', 'SetAllPalette', 'SetAspectRatio',
  152.      'SetBkColor', 'SetColor', 'SetFillPattern', 'SetFillStyle',
  153.      'SetGraphBufSize', 'SetGraphMode', 'SetLineStyle', 'SetPalette',
  154.      'SetRGBPalette', 'SetTextJustify', 'SetTextStyle',
  155.      'SetUserCharSize', 'SetViewPort', 'SetVisualPage', 'SetWriteMode',
  156.  
  157. {Graph functions}
  158.      'GetBkColor', 'GetColor', 'GetDriverName', 'GetGraphMode',
  159.      'GetMaxColor', 'GetMaxMode', 'GetMaxX', 'GetMaxY',
  160.      'GetModeName', 'GetPaletteSize', 'GetPixel', 'GetX', 'GetY',
  161.      'GraphErrorMsg', 'GraphResult',
  162.      'ImageSize', 'InstallUserDriver', 'InstallUserFont',
  163.      'RegisterBGIdriver', 'RegisterBGIfont',
  164.      'TextHeight', 'TextWidth',
  165.  
  166. { v1.3 v5.0 Extended graphics constants }
  167.      'Detect',
  168.      'CGA', 'MCGA', 'EGA', 'EGA64', 'EGAMono', 'IBM8514', 'HercMono',
  169.      'ATT400', 'VGA', 'PC3270', 'CurrentDriver',
  170.      'CGAC0', 'CGAC1', 'CGAC2', 'CGAC3', 'CGAHi',
  171.      'MCGAC0', 'MCGAC1', 'MCGAC2', 'MCGAC3', 'MCGAMed', 'MCGAHi',
  172.      'EGALo', 'EGAHi', 'EGAMonoHi', 'HercMonoHi',
  173.      'ATT400C0', 'ATT400C1', 'ATT400C2', 'ATT400C3', 'ATT400Med', 'ATT400Hi',
  174.      'VGALo', 'VGAMed', 'VGAHi',
  175.      'PC3270Hi', 'IBM8514LO', 'IBM8514HI',
  176.  
  177.      'EGABlack', 'EGABlue', 'EGAGreen', 'EGACyan', 'EGARed',
  178.      'EGAMagenta', 'EGABrown', 'EGALightgray', 'EGADarkGray',
  179.      'EGALightblue', 'EGALightgreen', 'EGALightcyan', 'EGALightred',
  180.      'EGALightmagenta', 'EGAYellow', 'EGAWhite',
  181.  
  182.      'grOk', 'grNoInitGraph', 'grNotDetected', 'grFileNotFound',
  183.      'grInvalidDriver', 'grNoLoadMem', 'grNoScanMem', 'grNoFloodMem',
  184.      'grFontNotFound', 'grNoFontMem', 'grInvalidMode', 'grError',
  185.      'grIOerror', 'grInvalidFont', 'grInvalidFontNum',
  186.  
  187.      'SolidLn', 'DottedLn', 'CenterLn', 'DashedLn', 'UsrBitLn',
  188.      'NormWidth', 'ThickWidth',
  189.      'DefaultFont', 'TriplexFont', 'SmallFont', 'SanSeriFont', 'GothicFont',
  190.      'HorizDir', 'VertDir', 'UserCharSize',
  191.  
  192. { for SetTextJustify}
  193.        'LeftText', 'CenterText', 'RightText', 'BottomText', 'TopText',
  194.  
  195. {for SetViewPort}
  196.      'ClipOn', 'ClipOff',
  197.  
  198. {for Bar3D}
  199.      'TopOn', 'TopOff',
  200.  
  201. {for GetFillSettings and SetFillStyle}
  202.      'EmptyFill', 'SolidFill', 'LineFill', 'LtSlashFill', 'SlashFill',
  203.      'BkSlashFill', 'LtBkSlashFill', 'HatchFill', 'XHatchFill',
  204.      'InterleaveFill', 'WideDotFill', 'CloseDotFill', 'UserFill',
  205.  
  206. {BitBlt operators}
  207.      'CopyPut', 'XORPut', 'OrPut', 'AndPut', 'NotPut',
  208.  
  209. {Pallette constant}
  210.      'MaxColors',
  211.  
  212. {graphic types}
  213.      'PaletteType', 'LineSettingsType', 'TextSettingsType',
  214.      'FillSettingsType', 'FillPatternType', 'PointType',
  215.      'ViewPortType', 'ArcCoordsType',
  216.  
  217. {Graph unit pointers}
  218.      'GraphGetMemPtr', 'GraphFreeMemPtr',
  219.  
  220. (*
  221. {   Turtle stuff }
  222.      'Back', 'ClearScreen', 'Forwd', 'Heading', 'HideTurtle',
  223.      'Home', 'NoWrap', 'PenUp', 'PenDown', 'SetHeading',
  224.      'SetPenColor','SetPosition', 'ShowTurtle', 'TurnLeft', 'TurnRight',
  225.      'TurtleDelay', 'TurtleThere', 'TurtleWindow', 'Wrap', 'Xcor',
  226.      'Ycor',
  227. *)
  228.  
  229. 'ToadHall'    {just to make sure you're paying attention}
  230. );
  231.