home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / SCRATTR.PRG < prev    next >
Text File  |  1990-10-22  |  739b  |  25 lines
  1. ***********
  2. * SCRATTR.PRG
  3. * by Tom Rettig
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO SCRATTR
  7. * RETURN: <expC> current SET COLOR value from cursor position.
  8. ***********
  9. CALL Trexe WITH "BIOSATTR"
  10. PRIVATE temp_retc
  11. temp_retc = TRIM( SUBSTR( "N  B  G  BG R  RB GR W  N+ B+ G+ B+ GR+RB+GR+W+ ",;
  12.                  MOD(tr_retn,16)*3+1, 3 ) ) +"/"+;
  13. SUBSTR( "N  B  G  BG R  RB GR W  N* B* G* B* GR*RB*GR*W* ",;
  14.         INT(tr_retn/16)*3+1, 3 )
  15. CALL trpass WITH temp_retc   && put color string in tr_retc through library.
  16. CALL trexe WITH "retc"
  17. CALL Trexe   WITH "TRRETCLEN"
  18. IF fox
  19.    PRIVATE tr_temp
  20.    tr_temp = SUBSTR(tr_retc,1,tr_retn)
  21.    RETURN (tr_temp)
  22. ENDIF
  23. * eof scrattr *
  24.  
  25.