home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / simcode.arc / GRAPH.INC < prev    next >
Encoding:
Text File  |  1984-12-23  |  2.5 KB  |  51 lines
  1. {$list-}
  2. procedure xxmove(x,y : integer); external;
  3.     { move the cursor to coords x,y }
  4. procedure xxcls; external;
  5.     { clear the screen }
  6. function xxinkey(var inchr : char) : integer; external;
  7.     { read the keyboard. INCHR is the character to which
  8.       the input will be returned. RETURN codes are:
  9.         0 - no data
  10.         1 - normal ASCII
  11.         2 - 'extended' ASCII }
  12. procedure xscurt(curtyp : word); external;
  13.     { set the cursor TYPE.
  14.         HIGH(curtyp) - start line for cursor
  15.         LOW(curtyp)  - end line for cursor }
  16. procedure xrcurp(var x,y : integer); external;
  17.     { read the cursor position. Returns x,y }
  18. procedure xscrlup(numline,rowstart,rowend : integer); external;
  19.     { SCROLL the screen UP.
  20.          numline - number of lines to leave blank (0=>entire screen)
  21.          rowstart - starting row of window (0 = top)
  22.          rowend   - ending row of window (24 = bottom) }
  23. procedure xscrldn(numline,rowstart,rowend : integer); external;
  24.     { SCROLL the screen DOWN. Parameters same as for 'xscrlup' }
  25. function xrca : integer; external;
  26.     { Read CHARACTER and ATTRIBUTE at current position.
  27.            LOW(return) - CHARACTER
  28.            HIGH(return) - ATTRIBUTE }
  29. procedure xwca(ca,num : integer); external;
  30.     { Write CHARACTER and ATTRIBUTE at current position.
  31.            LOW(ca) - CHARACTER
  32.            HIGH(ca) - ATTRIBUTE
  33.            num - # of time to insert character (normally 1) }
  34. procedure xttywrt(const outstr : string;attr : integer); external;
  35.     { TTY-like WRITE to CRT starting at current position.
  36.           outstr - LSTRING of characters to be written.
  37.           attr   - ATTRIBUTE byte to be used in writing char }
  38. procedure xlpt1(const prtstr : string); external;
  39.     { Print string on the Line Printer.
  40.           prtstr - string to be printed }
  41. procedure moves_wait(src,dest:adsmem;count:word); external; {move from LEFT}
  42. procedure movesr_wait(src,dest:adsmem;count:word); external; {move from RIGHT}
  43. function equipment : word; external;
  44.     { returns the equipment configuration on the PC. The only part
  45.       of interest is bits 5-4 which if equal 7 => monochrome display}
  46. procedure sleep(time:integer); external;
  47.     {sleep for 'time' seconds}
  48. function timer : word; external;
  49.     {returns the current clock in SECONDS -- good only for timing}
  50. {$list+}
  51.