home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
pssst.zip
/
PSPROMPT.PRG
< prev
next >
Wrap
Text File
|
1986-08-14
|
2KB
|
64 lines
* Program..: PSPROMPT.PRG
* Author...: Maj Jim McMurry
* Date.....: 07/13/86
* Notice...: Copyright 1986, All Rights Reserved
* Notes....: A Sub-Routine to print screen prompts in a box - centered
* on a specified line
* If gflag = 'T', you get the box, otherwise just centered text
*
* Inputs...: gflag,prompt, line, gmodel (Z,O,I for zenith, IBM, or OTHER)
*
STORE " " + prompt + " " TO prompt
DO CASE
CASE gmodel = 'Z'
STORE CHR(27)+CHR(70) TO grafon
STORE CHR(27)+CHR(71) TO grafoff
STORE CHR(27)+CHR(120)+CHR(53) TO gcuroff
STORE CHR(27)+CHR(121)+CHR(53) TO gcuron
? gcuroff
* --- a global line maker
STORE 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'+;
'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' TO gline
STORE (80 - LEN(prompt)) / 2 TO col
IF gflag = 'Y'
STORE 'f' + $(gline,1,LEN(prompt)) + 'c' TO topln
STORE '`' TO vert
STORE 'e' + $(gline,1,LEN(prompt)) + 'd' TO btmln
@ line - 1, col - 1 SAY grafon + topln + grafoff
@ line,col - 1 SAY grafon + vert + grafoff
@ line,col + LEN(prompt) SAY grafon + vert + grafoff
@ line + 1,col - 1 SAY grafon + btmln + grafoff
ENDIF
@ line,col SAY prompt
STORE grafon + gline + grafoff TO gline
CASE gmodel = 'I'
STORE ' ' TO gcuroff
STORE ' ' TO gcuron
* --- a global graphics line 80 columns long
STORE CHR(205)+CHR(205)+CHR(205)+CHR(205)+CHR(205) TO gline
STORE gline + gline + gline + gline TO gline
STORE gline + gline + gline + gline to gline
STORE $(gline,1,78) TO gline
STORE (80 - LEN(prompt)) / 2 TO col
IF gflag = 'Y'
STORE CHR(201) + $(gline,1,LEN(prompt)) + CHR(187) TO topln
STORE CHR(200) + $(gline,1,LEN(prompt)) + CHR(188) TO btmln
@ line - 1, col - 1 SAY topln
@ line,col - 1 SAY CHR(186)
@ line,col + LEN(prompt) SAY CHR(186)
@ line + 1,col - 1 SAY btmln
ENDIF
@ line,col SAY prompt
CASE gmodel = 'O'
STORE ' ' TO gcuroff
STORE ' ' TO gcuron
STORE '----------------------------------------';
+'--------------------------------------' TO gline
STORE (80 - LEN(prompt)) / 2 TO col
@ line,col SAY prompt
ENDCASE
RELEASE col, prompt, topln, btmln, vert, line, grafon, grafoff
RETURN
* EOF PSPROMPT.PRG