home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol269 / tstbig.for < prev   
Encoding:
Text File  |  1986-05-22  |  1.5 KB  |  60 lines
  1. C    * Test of BIGCHR *            [TSTBIG.FOR]
  2. C
  3.       Yoshio MONMA    85-03-20
  4. C
  5.       INTEGER*1       VPOS
  6.       REAL*8       ASTR,STRING
  7. C
  8.       DATA       ASTR/'A String'/
  9. C
  10.       WRITE(2,200)
  11.   200   FORMAT(1H0,5X,'* Test of BIGCHR *')
  12. C
  13.       VPOS = 10
  14.       MODE = 0
  15.       CALL BIGCHR(VPOS,ASTR,MODE1)
  16. C        * Enlarged mode and return with elite
  17.       MODE2 = 1
  18.       CALL BIGCHR(20,'Test OK?',MODE2)
  19. C        * Subsitution of string is nvalid in F80
  20.       VPOS = 30
  21.       STRING = 'BIGCHR'
  22.       MODE3 = 2
  23.       CALL BIGCHR(VPOS,STRING,MODE3)
  24. C        * Return with condensed mode
  25.       CALL BIGCHR(30,'BIGCHR',2)
  26.       WRITE(2,210)
  27.   210   FORMAT(1H0,5X,'* END of Test *')
  28.       STOP
  29.       END
  30.       SUBROUTINE   BIGCHR(VPOS,STRING,MODE)
  31. C
  32. C    * Print STRING in Enlarged Mode at VPOS *
  33. C
  34. C    Written by Yoshio MONMA on 85-03-20
  35. C
  36. C     Arguments:
  37. C        VPOS      Vertical position
  38. C        STRING    Character string (A8), must be given in exact length
  39. C        MODE       Mode to be set after the printing STRING
  40. C             = 0  Standard (Pica, 10char/inch)
  41. C             = 1  Elite (Elite, 12char/inch) 
  42. C             = 2  Condensed (15char/inch)
  43. C
  44. C    This routine is for EPSON RP-80 Printer.
  45. C
  46.       INTEGER*1    BIGM,ESC,LETF,NUL,SI,SO
  47.       INTEGER*1    VPOS
  48.       REAL*8       STRING
  49. C
  50.       DATA         ESC/Z'1B'/,  NUL/'00'/, SI/Z'0F'/, SO/Z'0E'/
  51.       DATA         BIGM/Z'4D'/, LETF/Z'66'/
  52. C
  53.       WRITE(2,200) ESC,LETF,NUL,VPOS,SO,STRING
  54.   200   FORMAT(1H ,5A1,A8)
  55.       IF (MODE.EQ.1) WRITE(2,210) ESC,BIGM
  56.   210   FORMAT(1H ,2A1)
  57.       IF (MODE.EQ.2) WRITE(2,210) SI
  58.       RETURN
  59.       END
  60.