home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
pssst.zip
/
PSHEADIN.PRG
< prev
next >
Wrap
Text File
|
1986-08-14
|
2KB
|
58 lines
* Program..: HEADING.PRG
* Author...: TSG G. "MAC" FEGGAN AUTOVON 588-8383
* Date.....: 06/10/86
* Notice...: Copyright 1986, All Rights Reserved
* Notes....: A Sub-Routine to print screen headings.
* Inputs...: heading, gmodel
* Outputs..: gline which is an 80 column line
*
* Modified.: 07-12-86 by Maj Jim McMurry for use with pSSSt
* requires input of gmodel = 'Z' for Z-100, 'I' for Z-150 or
* 'O' for Other in which case graphics are not used
*
STORE ' ' + heading + ' ' TO heading
DO CASE
CASE gmodel = 'Z'
STORE CHR(27)+CHR(112) TO rvideo
STORE CHR(27)+CHR(113) TO nvideo
STORE CHR(27)+CHR(70) TO grafon
STORE CHR(27)+CHR(71) TO grafoff
* --- a global line maker
STORE 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'+;
'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' TO gline
STORE 'f' + $(gline,1,76) + 'c' TO topln
STORE '`iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii'+;
'iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii`' TO filln
STORE 'e' + $(gline,1,76) + 'd' TO btmln
@ 1, 0 SAY grafon + topln + grafoff
@ 2, 0 SAY grafon + filln + grafoff
@ 3, 0 SAY grafon + btmln + grafoff
@ 2, (80 - LEN(heading)) / 2 SAY rvideo + heading
STORE grafon + gline + grafoff to gline
CASE gmodel = 'I'
STORE ' ' TO RVIDEO
STORE ' ' TO NVIDEO
STORE CHR(205)+CHR(205)+CHR(205)+CHR(205)+CHR(205) TO gline
STORE gline + gline + gline + gline + gline TO gline
STORE gline + gline + gline + CHR(205) + CHR(205) + CHR(205) TO gline
STORE CHR(201) + $(gline,1,76) + CHR(187) TO topln
STORE CHR(177)+CHR(177)+CHR(177)+CHR(177)+CHR(177) TO filln
STORE filln + filln + filln + filln + filln TO filln
STORE filln + filln + filln + CHR(177) TO filln
STORE CHR(186) + filln + CHR(186) TO filln
STORE CHR(200) + $(gline,1,76) + CHR(188) TO btmln
@ 1, 0 SAY topln
@ 2, 0 SAY filln
@ 3, 0 SAY btmln
@ 2, (80 - LEN(HEADING)) / 2 SAY rvideo + heading + nvideo
CASE gmodel = 'O'
STORE '----------------------------------------';
+'--------------------------------------' TO gline
STORE (80 - LEN(heading)) / 2 TO col
@ 2,col SAY heading
ENDCASE
RELEASE col, heading, rvideo, nvideo, topln, filln, btmln, vert,grafon,grafoff
RETURN
* EOF PSHEADING.PRG