home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / LIBRY51.ZIP / LIBRY2.DOC < prev    next >
Encoding:
Text File  |  1989-11-10  |  13.7 KB  |  386 lines
  1. .pa
  2.                       GENERAL UTILITIES AND CRT CONTROL
  3.  
  4. These general utilities should work on whatever system you have (as long as it
  5. is  basically IBM compatible or an HP-1000).  However,  all of the CRT control
  6. procedures will only work on PCs (80 column mode only), HP-26XXs, or Tektronix
  7. 4XXX terminals.
  8.  
  9.  
  10.             QUICK LIST OF GENERAL UTILITIES AND CRT CONTROL
  11.  
  12. ADATE.... fetch the date
  13. ATIME.... fetch the time of day
  14. BEEP..... beep
  15. CLEAR1... clear one line on the CRT and move cursor to column 1
  16. CPU...... fetch the time (also see SECNDS)
  17. CRT1C.... write one character to the CRT
  18. CRT1D.... write one dot to the CRT in graphics mode
  19. ERASE.... clear the CRT
  20. EXEPRG... run a program from within another program
  21. FFPRN.... send a formfeed to the printer
  22. FTIME.... fetch character string indicating date and time
  23. GET1C.... read 1 character from the keyboard don't wait or display
  24. GETPSP... get the program segment prefix (PC only - on HP use GETST)
  25. HELPME... list help information from user-defined help file
  26. IFBRK.... detect keyboard interrupt (if-break)
  27. LXXX87... logical test for math coprocessor
  28. PAUSE.... display message and wait for any keystroke
  29. PRT1C.... send 1 character to the printer
  30. READ1.... read 1 character from the keyboard - don't wait for RETURN
  31. READC.... read a string from the keyboard
  32. RRPAR.... get file name from runtime string
  33. RS232I... RS-232 communications port I/O and control
  34. SECNDS... fetch the time (also see CPU)
  35. SETVM.... set video mode
  36. SPOOL.... divert output from FFPRN and WRPRN to a file (can be NUL or CON)
  37. TONE..... sound a tone
  38. UP1LIN... move the cursor up 1 line on the CRT
  39. WCGRM.... write a character in graphics mode
  40. WRPRN.... print a character string
  41. WRTTY.... write a character string on the CRT
  42. .pa
  43. NAME:     ADATE
  44. PURPOSE:  fetch the date
  45. TYPE:     subroutine (far external)
  46. SYNTAX:   CALL ADATE(MONTH,IDAY,IYEAR)
  47. OUTPUT:   MONTH (INTEGER*2) month
  48.           IDAY (INTEGER*2) day of the month
  49.           IYEAR (INTEGER*2) year 1986, 1987, etc.
  50.  
  51.  
  52. NAME:     ATIME
  53. PURPOSE:  fetch the time of day
  54. TYPE:     subroutine (far external)
  55. SYNTAX:   CALL ATIME(IHOUR,MIN,ISEC,IHUN)
  56. OUTPUT:   IHOUR (INTEGER*2) hours in military time
  57.           MIN (INTEGER*2) minutes
  58.           ISEC (INTEGER*2) seconds
  59.           IHUN (INTEGER*2) hundredths of seconds
  60.  
  61.  
  62. NAME:     BEEP
  63. PURPOSE:  beep
  64. TYPE:     subroutine (far external)
  65. SYNTAX:   CALL BEEP
  66.  
  67.  
  68. NAME:     CLEAR1
  69. PURPOSE:  clear one line on the CRT and move cursor to column 1
  70. TYPE:     subroutine (far external)
  71. SYNTAX:   CALL CLEAR1
  72.  
  73.  
  74. NAME:     CPU
  75. PURPOSE:  fetch the time
  76. TYPE:     subroutine (far external)
  77. SYNTAX:   CALL CPU(SEC)
  78. OUTPUT:   SEC (REAL*4) seconds
  79. NOTE:     on the PC this returns the elapsed time since midnight
  80.           on the HP-1000F this returns cumulative session CPU
  81.           this is useful for computing runtimes
  82.           also see SECNDS
  83.  
  84.  
  85. NAME:     CRT1C
  86. PURPOSE:  write one character to the CRT
  87. TYPE:     subroutine (far external)
  88. SYNTAX:   CALL CRT1C(IROW,ICOL,CHAR)
  89. INPUT:    IROW (INTEGER*2) row number (0=top)
  90.           ICOL (INTEGER*2) column number (0=left)
  91.           CHAR (CHARACTER*1) character
  92. OUTPUT:   none
  93.  
  94.  
  95. NAME:     CRT1D
  96. PURPOSE:  write one dot to the CRT in graphics mode
  97. TYPE:     subroutine (far external)
  98. SYNTAX:   CALL CRT1D(IROW,ICOL,IDOT)
  99. INPUT:    IROW (INTEGER*2) row number (0=top)
  100.           ICOL (INTEGER*2) column number (0=left)
  101.           IDOT (INTEGER*2) color (depends on video mode)
  102. OUTPUT:   none
  103.  
  104.  
  105. NAME:     ERASE
  106. PURPOSE:  clear the CRT
  107. TYPE:     subroutine (far external)
  108. SYNTAX:   CALL ERASE
  109.  
  110.  
  111. NAME:     EXEPRG
  112. PURPOSE:  run a program from within another program
  113. TYPE:     subroutine (far external)
  114. SYNTAX:   CALL EXEPRG('d:\path\myprog.exe'//CHAR(0),
  115.          &            'string/options etc.'//CHAR(0),IER)
  116. INPUT:    program name and runtime string
  117. OUTPUT:   IER (INTEGER*2) error indicator
  118.  
  119.  
  120. NAME:     FFPRN
  121. PURPOSE:  send a formfeed to the printer
  122. TYPE:     subroutine (far external)
  123. SYNTAX:   CALL FFPRN
  124.  
  125.  
  126. NAME:     FTIME
  127. PURPOSE:  fetch character string indicating date and time
  128. TYPE:     subroutine (far external)
  129. SYNTAX:   CALL FTIME(DATE)
  130. OUTPUT:   DATE (CHARACTER*30)
  131.  
  132.  
  133. NAME:     GET1C
  134. PURPOSE:  read 1 character from the keyboard don't wait or display
  135. TYPE:     subroutine (far external)
  136. SYNTAX:   CALL GET1C(ANS)
  137. OUTPUT:   ANS (CHARACTER*1)
  138. NOTE:     this is very handy for creating menus - also see READ1
  139.  
  140.  
  141. NAME:     GETPSP
  142. PURPOSE:  get the program segment prefix (PC only - on HP use GETST)
  143. TYPE:     subroutine (far external)
  144. SYNTAX:   CALL GETPSP(PSP)
  145. INPUT:    none
  146. OUTPUT:   PSP (CHARACTER*1 PSP(128))
  147. NOTE:     This seems like a logical thing to want; but to actually find
  148.           the PSP after DOS gets through with it on the PC is no easy
  149.           task when working from inside an EXE file.
  150.  
  151.  
  152. NAME:     HELPME
  153. PURPOSE:  detect keyboard interrupt (if-break)
  154. TYPE:     subroutine (far external)
  155. SYNTAX:   CALL HELPME(NAME,CBUF)
  156. INPUT:    NAME (CHARACTER*12) user-defined help file name
  157.           CBUF (CHARACTER*5) key
  158. OUTPUT:   output is always to the CRT via WRTTY
  159. NOTE:     The key can be '?,xxx' or just 'xxx  ' either way will do.
  160.           See example help file at the end of this section.
  161.  
  162.  
  163. NAME:     IFBRK
  164. PURPOSE:  detect keyboard interrupt (if-break)
  165. TYPE:     LOGICAL*2 function (far external)
  166. SYNTAX:   IF(IFBRK(0)) GO TO 100
  167. NOTE:     you must pass a dummy parameter "0" so FORTRAN will generate
  168.           the proper calling sequence
  169.  
  170.  
  171. NAME:     LXXX87
  172. PURPOSE:  logical test for math coprocessor
  173. TYPE:     LOGICAL*2 function (far external)
  174. SYNTAX:   IF(.NOT.LXXX87(0)) GO TO 100
  175. NOTE:     you must pass a dummy parameter "0" so FORTRAN will generate
  176.           the proper calling sequence
  177.  
  178.  
  179. NAME:     PAUSE
  180. PURPOSE:  display the message "hit the SPACE BAR to continue" and wait
  181.           for any keystroke
  182. TYPE:     subroutine (far external)
  183. SYNTAX:   CALL PAUSE
  184. NOTE:     you may want to follow this with CALL CLEAR1 to erase the line
  185.  
  186.  
  187. NAME:     PRT1C
  188. PURPOSE:  send 1 character to the printer (bypasses DOS)
  189. TYPE:     subroutine (far external)
  190. SYNTAX:   CALL PRT1C('a') or CALL PRT1C(CHAR(13))
  191. INPUT:    one CHARACTER*1 variable
  192. NOTE:     if you want to print a string use WRPRN
  193.  
  194.  
  195. NAME:     READ1
  196. PURPOSE:  read 1 character from the keyboard - don't wait for RETURN
  197. TYPE:     subroutine (far external)
  198. SYNTAX:   CALL READ1(ANS)
  199. OUTPUT:   ANS (CHARACTER*1)
  200. NOTE:     this is very handy for creating menus - also see GET1C
  201.  
  202.  
  203. NAME:     READC
  204. PURPOSE:  read a string from the keyboard
  205. TYPE:     subroutine (far external)
  206. SYNTAX:   CALL READC(CBUF,NBUF,IERR)
  207. INPUT:    NBUF (INTEGER*2) maximum number of characters to be read
  208. OUTPUT:   CBUF (CHARACTER*1 CBUF(NBUF) or CHARACTER*80 CBUF, NBUF=80)
  209.           IERR (INTEGER*2) error return indicator (IERR=0 is normal)
  210. NOTE:     This bypasses DOS (which is often advantageous). On the HP
  211.           this goes directly to the OPSYS. If you ask for 6 characters
  212.           then READC will only allow you to enter 6. The maximum number
  213.           of characters that can be requested is the 80 - the current
  214.           column (or a maximum of 79 if the cursor is at the left)
  215.  
  216.  
  217. NAME:     RRPAR
  218. PURPOSE:  get file name from runtime string
  219. TYPE:     subroutine (far external)
  220. SYNTAX:   CALL RRPAR(N,NAME)
  221. INPUT:    N (INTEGER*2) number of entry see example below
  222. OUTPUT:   NAME (CHARACTER*12)
  223. NOTE:     the purpose of this is to fetch and parse the string that you
  224.           type in after the name of your program as below
  225.  
  226.                MYPROG this.dat that.for other.bin wednesday
  227.  
  228.           fetch the names with the following
  229.  
  230.                CHARACTER NAME1*12,NAME2*12,NAME3*12,COMMENT*12
  231.                CALL RRPAR(1,NAME1)
  232.                CALL RRPAR(2,NAME2)
  233.                CALL RRPAR(3,NAME3)
  234.                CALL RRPAR(4,COMMENT)
  235.  
  236.           you will get the following
  237.  
  238.                NAME1='this.dat'
  239.                NAME2='that.for'
  240.                NAME3='other.bin'
  241.                COMMENT='wednesday'
  242.  
  243.  
  244. NAME:     RS232IO (or RS232I as FORTRAN chops external names longer than 6
  245.           characters)
  246. PURPOSE:  control RS-232 port
  247. TYPE:     subroutine (far external)
  248. SYNTAX:   CALL RS232IO(IPORT,IOPT,ICHAR)
  249. INPUT:    IPORT (INTEGER*2) either 1 or 2
  250.           IOPT (INTEGER*2) see DOS Technical Reference Manual for INT14
  251.           ICHAR (INTEGER*2) see DOS Technical Reference Manual for INT
  252. OUTPUT:   ICHAR (INTEGER*2) see DOS Technical Reference Manual for INT
  253. NOTE:     All this routine does is subtract 1 from IPORT and put the result
  254.           in the DX register, put the low byte of IOPT into the AH register,
  255.           put the low byte of ICHAR into the AL register, call the BIOS
  256.           interrupt 14, put the resulting value of AX into ICHAR and return.
  257.           In order to figure out what this does you'll just have to consult
  258.           the DOS Technical Reference Manual. I have provided an example of
  259.           its use to "talk" to an HP pen plotter at the end of this section.
  260.  
  261.  
  262. NAME:     SETVM
  263. PURPOSE:  set video mode
  264. TYPE:     subroutine (far external)
  265. SYNTAX:   CALL SETVM(MODE)
  266. INPUT:    MODE (INTEGER*2) mode (see your hardware manual)
  267. OUTPUT:   none
  268.  
  269.  
  270. NAME:     SECNDS
  271. PURPOSE:  fetch the time
  272. TYPE:     REAL*4 function (far external)
  273. SYNTAX:   T=SECNDS(0.) or T=SECNDS(T0)
  274. INPUT:    T0 (REAL*4) offset time
  275. OUTPUT:   seconds since midnight (REAL*4)
  276. NOTE:     this is for compatibility with DEC machines
  277.           also see CPU
  278.  
  279.  
  280. NAME:     SPOOL
  281. PURPOSE:  divert output from FFPRN and WRPRN to a file
  282. TYPE:     subroutine (far external)
  283. SYNTAX:   CALL SPOOL('FILE.EXT',IER)
  284. INPUT:    FILE.EXT (CHARACTER*?) name of file (can be NUL or CON)
  285.           note: if the file name has no extension then leave a space at the
  286.           end (e.g. 'PRN ') otherwise there is no way of telling where the
  287.           name ends
  288. OUTPUT:   IER (INTEGER*2) error indicator (IER=0 is normal)
  289. NOTE:     This will only divert output sent to FFPRN or WRPRN. The file must
  290.           not already exist (to avoid unintentional overwriting). To
  291.           terminate diversion and return output to the printer, just call it
  292.           again like:  CALL SPOOL('PRN ',IER).
  293.  
  294.  
  295. NAME:     TONE
  296. PURPOSE:  sound a tone
  297. TYPE:     subroutine (far external)
  298. SYNTAX:   CALL TONE(IFREQ,ICOUNT)
  299. INPUT:    IFREQ (INTEGER*2) frequency in HZ
  300.           ICOUNT (INTEGER*2) duration in "counts" which is about 1/18th sec
  301. OUTPUT:   none
  302. NOTE:     This can also be used for a timed wait by setting IFREQ to zero.
  303.  
  304.  
  305. NAME:     UP1LIN
  306. PURPOSE:  move the cursor up 1 line on the CRT
  307. TYPE:     subroutine (far external)
  308. SYNTAX:   CALL UP1LIN
  309. NOTE:     there is no way to do this in FORTRAN on the PC
  310.           (UP1LIN is in assembler)
  311.  
  312.  
  313. NAME:     WCGRM
  314. PURPOSE:  write a character in graphics mode
  315. TYPE:     subroutine (far external)
  316. SYNTAX:   CALL WCGRM(CHAR,IROW,ICOL,ICOLOR)
  317. INPUT:    CHAR (CHARACTER*1) character
  318. INPUT:    IROW (INTEGER*2) row number (0=top)
  319.           ICOL (INTEGER*2) column number (0=left)
  320.           ICOLOR (INTEGER*2) color (see your hardware manual)
  321. OUTPUT:   none
  322.  
  323.  
  324. .de
  325. NAME:     WRPRN
  326. PURPOSE:  print a character string
  327. TYPE:     subroutine (far external)
  328. SYNTAX:   CALL WRPRN('print this string<')
  329. INPUT:    a character string (CHARACTER*? , it doesn't matter)
  330. NOTE:     this bypasses DOS (which is often advantageous)
  331.  
  332.           CALL WRPRN('this is only a test_')
  333.           CALL WRPRN(' for the next 60 seconds<')
  334.  
  335.           the above 2 lines will print on the same line as...
  336.  
  337.                this is only a test for the next 60 seconds
  338.  
  339.           The "_" tells WRPRN to not follow the string with a
  340.           carriage return (CR) and line feed (LF) while the "<"
  341.           does indicate this. Neither the "_" nor the "<" will
  342.           actually be printed.
  343.  
  344.           If you want to change the symbols "_" and "<" to say
  345.           "+" and "." use the following...
  346.  
  347.           CALL WRPRN('_+.this is only a test+')
  348.           CALL WRPRN('_+.for the next 60 seconds.')
  349.  
  350.           Of course, in this case you can't print a "+" or a "."
  351.           so you could use CHAR(0) and CHAR(13) instead. Beginning
  352.           a string with a "_" tells WRPRN that the next 2 characters
  353.           are to replace the "_" and "<" characters.
  354.  
  355.           Also see WRTTY.
  356.  
  357.           In case you are wondering why I wrote this, it's because some
  358.           misguided persons at DEC and Microsoft had this bizarre idea
  359.           that one should put some stupid character like "\" or "$" at
  360.           the end of a format to suppress a carriage control, while the
  361.           whole rest of the world uses "_" at the end of a string.
  362.           If anyone out there knows, please tell me what comes over
  363.           these people who do weird things like this?
  364.  
  365. WARNING:  should you forget to end the string with a proper terminator
  366.           (e.g. "_" or "<") WRPRN will just continue indefinitely until
  367.           it finds one or your system crashes...
  368. .ee
  369.  
  370.  
  371. NAME:     WRTTY
  372. PURPOSE:  write a character string on the CRT
  373. TYPE:     subroutine (far external)
  374. SYNTAX:   CALL WRTTY('display this string<')
  375. INPUT:    a character string (CHARACTER*? , it doesn't matter)
  376. NOTE:     This bypasses DOS (which is often advantageous) AND the BIOS
  377.           (which is also often advantageous) and pushes your string
  378.           directly into the display memory (as a result Ctrl-PrtSc will
  379.           not even see it).  This is VERY much faster than DOS (which is
  380.           often painfully slow) and the BIOS (which isn't any better).
  381.           On the HP this goes directly to the OPSYS, not the FORTRAN I/O
  382.           handler.
  383.  
  384.           For notes on how to use WRTTY see WRPRN.
  385. .ad LIBRY2A.DOC
  386.