home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l320 / 2.img / EXAMPLES / CALLDTTY.F < prev    next >
Encoding:
Text File  |  1989-08-15  |  873 b   |  30 lines
  1. C
  2. C CALLDTTY.F
  3. C Purpose: demonstrate calling assembly language
  4. C instead of calling int386 subroutine
  5. C Copyright (C) MicroWay, Inc. 1989
  6. C
  7.  
  8.  
  9. C BRIGHT - intense attribute for screen chars 
  10. C BLINKON - blinking attribute on for screen chars 
  11. C BLINKOFF - blinking attribute off for screen chars 
  12. C DEFAULT - leave attribute bits on if they are on 
  13.  
  14.       integer BRIGHT, BLINKON, BLINKOFF, DEFAULT
  15.       parameter (BRIGHT=8,BLINKON=128,BLINKOFF=127,DEFAULT=255)
  16.  
  17.       WRITE (*,100) 
  18.   100 FORMAT(' A horse that can count to 10 is a remarkable ',$)
  19.       CALL DISPLAY_TTY (BRIGHT,DEFAULT,'horse')
  20.       WRITE (*,101)
  21.   101 FORMAT(1X)
  22.       WRITE (*,102)
  23.   102 FORMAT (' not a remarkable ',$)
  24.       CALL DISPLAY_TTY (BRIGHT,DEFAULT,'mathematician.')
  25.       WRITE (*,103)
  26.   103 FORMAT (1X,' - Dr. Samuel Johnson')
  27. C end of main program
  28.       END
  29.  
  30.