home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST258.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  738 b   |  35 lines
  1. ********************
  2.  
  3. FUNCTION Stripscr
  4.  
  5.    PARAMETERS _strscr, _showstp
  6.  
  7.    IF PCOUNT() = 0
  8.       _strscr = ""
  9.       _strscr = SPACE(4000)
  10.       SAVE SCREEN TO _strscr
  11.       _showstp = .T.
  12.    ELSEIF PCOUNT() = 1
  13.       RETURN("")
  14.    ENDIF
  15.  
  16.    PRIVATE _qaz, _stripit, _buildit
  17.  
  18.    STORE "" TO _stripit, _buildit
  19.    @ 24,00 CLEAR
  20.    FOR _qaz = 1 TO LEN(_strscr) STEP 2
  21.       IF _showstp
  22.          IF MULTPLE_OF(_qaz, 47)
  23.             @ 24, 00 SAY TRANSFORM(_qaz, "9999")
  24.          ENDIF
  25.       ENDIF
  26.       _buildit = _buildit + SUBSTR(_strscr, _qaz, 1)
  27.    NEXT
  28.    FOR _qaz = 1 TO 25
  29.       _stripit = _stripit + MEMOLINE(_buildit,80,_qaz) + CHR(13) + CHR(10)
  30.    NEXT
  31.    RETURN(LTRIM(_stripit))
  32.  
  33. * End of File
  34.  
  35.