home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol12n13.zip / MOVCHR.PRG < prev    next >
Text File  |  1992-12-29  |  2KB  |  46 lines
  1. ***********************************************************************
  2. * MOVCHR.PRG                                              Clipper 5.01
  3. * Demo use of the movechar function.
  4. ***********************************************************************
  5. CLEAR
  6. pcmag="PC Magazine PC Magazine PC Magazine PC Magazine PC Magazine "+;
  7.       "PC Magazine PC Mag"
  8. OldColor = SETCOLOR("W+/R")
  9. @ 0, 0 TO 24, 79
  10. FOR i = 1 to 23
  11.       @ i, 1 SAY pcmag
  12. NEXT
  13. text = "** Moving Characters Example, PC Magazine Databases **"
  14. oclr = SETCOLOR("B/W")                  && Save and set color
  15. @ 10,26 CLEAR TO 12,54
  16. movechar(11, 26, 54, text, 1 )
  17. SETCOLOR(oclr)                          && Restore color
  18. RETURN
  19.  
  20. ***************************************************************
  21. * movechar - Display some "moving-characters" in a line.
  22. *            Clipper Summer '87, 5.00, 5.01.
  23. ***************************************************************
  24. FUNCTION movechar
  25. PARAMETER mvrow, mvcl1, mvcl2, mvtxt, mvspd
  26. PRIVATE mvlen, mvcnt, mvtx1, mvdln, mvkey
  27. SET CURSOR OFF
  28. mvlen = LEN(mvtxt)             && Length of text
  29. mvdln = (mvcl2 - mvcl1) + 1    && Length of display-space
  30. mvcnt = 1                      && Display-counter initializing
  31. mvtx1 = SPACE(mvdln)           && Display-space initializing
  32. mvkey = 0                      && Loop flag
  33. DO WHILE mvkey <> 27           && Display process
  34.   mvtx1 = SUBSTR(mvtx1, 2, mvdln - 1) + SUBSTR(mvtxt, mvcnt, 1)
  35.   @ mvrow, mvcl1 SAY mvtx1
  36.   mvcnt = mvcnt + 1
  37.   IF mvcnt > mvlen
  38.     mvcnt = 1
  39.   ENDIF
  40.   DELAY( mvspd )    && Databases, PC Magazine, Nov. 26, 1991
  41. * TONE( 0, mvspd )
  42.   mvkey = INKEY(0)
  43. ENDDO
  44. SET CURSOR ON
  45. RETURN .T.
  46.