*************************************************************
*
*
* SHRINK.CMD copyright January, 1984 by Les Shockey
*
*
*************************************************************
*
*    SHRINK is a dbase command file designed to display
*    a character string to the center of the screen and
*    delete it from both ends. It is very useful for
*    signoff messages. To use, store the character string
*    to 'MSTRING' and use the command 'DO SHRINK'
*    NOTE: The character string should begin and end with
*    two blank spaces. (i.e. "  character string  ")
*
SET TALK OFF
STORE '  USE THIS AS A FANCY SIGN ON OR SIGN OFF FOR .CMD FILES  ' TO MSTRING
ERASE
STORE LEN(MSTRING) TO MLEN
STORE ((80-MLEN)/2)-1 TO MCOL1
STORE MCOL1+MLEN TO MCOL2
@ 11,MCOL1 SAY MSTRING
STORE 1 TO X
DO WHILE X <200
   STORE X+1 TO X
ENDDO timing loop

DO WHILE MCOL2 >= MCOL1
 @ 11,MCOL1 SAY " "
 @ 11,MCOL2 SAY " "
   STORE MCOL1+1 TO MCOL1
   STORE MCOL2-1 TO MCOL2
ENDDO
STORE '*' TO MAS
STORE 10 TO ML1
STORE 12 TO ML2
STORE 38 TO MCOL
STORE 38 TO MMCOL1
STORE 38 TO MMCOL2
@ 11,38 SAY MAS
STORE ' ' TO MSPACE
DO WHILE ML2 < 23
STORE MMCOL1-2 TO MMCOL1
STORE MMCOL2+2 TO MMCOL2
STORE MCOL-1 TO MCOL
@ ML1,MCOL SAY MAS+MSPACE+MAS
@ 11,MMCOL1 SAY MAS
@ 11,MMCOL2 SAY MAS
@ ML2,MCOL SAY MAS+MSPACE+MAS
STORE ML1-1 TO ML1
STORE ML2+1 TO ML2
STORE MSPACE+'  ' TO MSPACE
ENDDO
STORE ' ' TO MAS
STORE 10 TO ML1
STORE 12 TO ML2
STORE 38 TO MCOL
STORE 38 TO MMCOL1
STORE 38 TO MMCOL2
@ 11,38 SAY MAS
STORE ' ' TO MSPACE
DO WHILE ML2 < 23
STORE MMCOL1-2 TO MMCOL1
STORE MMCOL2+2 TO MMCOL2
STORE MCOL-1 TO MCOL
@ ML1,MCOL SAY MAS+MSPACE+MAS
@ 11,MMCOL1 SAY MAS
@ 11,MMCOL2 SAY MAS
@ ML2,MCOL SAY MAS+MSPACE+MAS
STORE ML1-1 TO ML1
STORE ML2+1 TO ML2
STORE MSPACE+'  ' TO MSPACE
ENDDO

RETURN+MAS
STORE ML1-1 TO ML1
STORE ML2+1 TO ML2
STORE MSPACE+'  ' TO MSPACE
ENDDO
STORE ' ' TO MAS
STORE 10 TO ML1
STORE 12 TO ML2
STORE 38 TO MCOL
STORE 38 TO MMCOL1
STORE 38 TO MMCOL2
@ 11,3