home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / pssst.zip / PSHEADIN.PRG < prev    next >
Text File  |  1986-08-14  |  2KB  |  58 lines

  1. * Program..: HEADING.PRG
  2. * Author...: TSG G. "MAC" FEGGAN  AUTOVON 588-8383
  3. * Date.....: 06/10/86
  4. * Notice...: Copyright 1986, All Rights Reserved
  5. * Notes....: A Sub-Routine to print screen headings.
  6. * Inputs...: heading, gmodel
  7. * Outputs..: gline which is an 80 column line
  8. *
  9. * Modified.: 07-12-86 by Maj Jim McMurry for use with pSSSt
  10. *            requires input of gmodel = 'Z' for Z-100, 'I' for Z-150 or
  11. *            'O' for Other in which case graphics are not used
  12. *
  13. STORE '  ' + heading +  '  ' TO heading
  14. DO CASE
  15.    CASE gmodel = 'Z'
  16.       STORE CHR(27)+CHR(112) TO rvideo
  17.       STORE CHR(27)+CHR(113) TO nvideo
  18.       STORE CHR(27)+CHR(70) TO grafon
  19.       STORE CHR(27)+CHR(71) TO grafoff
  20.       * --- a global line maker
  21.       STORE 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'+;
  22.             'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' TO gline
  23.       STORE 'f' + $(gline,1,76) + 'c' TO topln
  24.       STORE '`iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii'+;
  25.              'iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii`' TO filln
  26.       STORE 'e' + $(gline,1,76) + 'd' TO btmln
  27.       @ 1, 0 SAY grafon + topln + grafoff
  28.       @ 2, 0 SAY grafon + filln + grafoff
  29.       @ 3, 0 SAY grafon + btmln + grafoff
  30.       @ 2, (80 -  LEN(heading)) / 2 SAY rvideo + heading
  31.       STORE grafon + gline + grafoff to gline
  32.    CASE gmodel = 'I'
  33.       STORE ' ' TO RVIDEO
  34.       STORE ' ' TO NVIDEO
  35.       STORE CHR(205)+CHR(205)+CHR(205)+CHR(205)+CHR(205) TO gline
  36.       STORE gline + gline + gline + gline + gline TO gline
  37.       STORE gline + gline + gline + CHR(205) + CHR(205) + CHR(205) TO gline
  38.       STORE CHR(201) + $(gline,1,76) + CHR(187) TO topln
  39.       STORE CHR(177)+CHR(177)+CHR(177)+CHR(177)+CHR(177) TO filln
  40.       STORE filln + filln + filln + filln + filln TO filln
  41.       STORE filln + filln + filln + CHR(177) TO filln
  42.       STORE CHR(186) + filln + CHR(186) TO filln
  43.       STORE CHR(200) + $(gline,1,76) + CHR(188) TO btmln
  44.       @ 1, 0 SAY topln
  45.       @ 2, 0 SAY filln
  46.       @ 3, 0 SAY btmln
  47.       @ 2, (80 -  LEN(HEADING)) / 2 SAY rvideo + heading + nvideo
  48.    CASE gmodel = 'O'
  49.       STORE '----------------------------------------';
  50.            +'--------------------------------------' TO gline
  51.       STORE (80 - LEN(heading)) / 2 TO col
  52.       @ 2,col SAY  heading
  53. ENDCASE
  54. RELEASE col, heading, rvideo, nvideo, topln, filln, btmln, vert,grafon,grafoff
  55. RETURN
  56. * EOF PSHEADING.PRG
  57.  
  58.