home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol12n13.zip
/
MOVCHR.PRG
< prev
next >
Wrap
Text File
|
1992-12-29
|
2KB
|
46 lines
***********************************************************************
* MOVCHR.PRG Clipper 5.01
* Demo use of the movechar function.
***********************************************************************
CLEAR
pcmag="PC Magazine PC Magazine PC Magazine PC Magazine PC Magazine "+;
"PC Magazine PC Mag"
OldColor = SETCOLOR("W+/R")
@ 0, 0 TO 24, 79
FOR i = 1 to 23
@ i, 1 SAY pcmag
NEXT
text = "** Moving Characters Example, PC Magazine Databases **"
oclr = SETCOLOR("B/W") && Save and set color
@ 10,26 CLEAR TO 12,54
movechar(11, 26, 54, text, 1 )
SETCOLOR(oclr) && Restore color
RETURN
***************************************************************
* movechar - Display some "moving-characters" in a line.
* Clipper Summer '87, 5.00, 5.01.
***************************************************************
FUNCTION movechar
PARAMETER mvrow, mvcl1, mvcl2, mvtxt, mvspd
PRIVATE mvlen, mvcnt, mvtx1, mvdln, mvkey
SET CURSOR OFF
mvlen = LEN(mvtxt) && Length of text
mvdln = (mvcl2 - mvcl1) + 1 && Length of display-space
mvcnt = 1 && Display-counter initializing
mvtx1 = SPACE(mvdln) && Display-space initializing
mvkey = 0 && Loop flag
DO WHILE mvkey <> 27 && Display process
mvtx1 = SUBSTR(mvtx1, 2, mvdln - 1) + SUBSTR(mvtxt, mvcnt, 1)
@ mvrow, mvcl1 SAY mvtx1
mvcnt = mvcnt + 1
IF mvcnt > mvlen
mvcnt = 1
ENDIF
DELAY( mvspd ) && Databases, PC Magazine, Nov. 26, 1991
* TONE( 0, mvspd )
mvkey = INKEY(0)
ENDDO
SET CURSOR ON
RETURN .T.