Category : Files from Magazines
Archive   : V12N13.ZIP
Filename : MOVCHR.PRG

 
Output of file : MOVCHR.PRG contained in archive : V12N13.ZIP
***********************************************************************
* 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.


  3 Responses to “Category : Files from Magazines
Archive   : V12N13.ZIP
Filename : MOVCHR.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/