home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST350.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  298 b   |  18 lines
  1. ********************
  2.  
  3. PROCEDURE Print
  4.  
  5.    PARAMETERS srow, scol, string, colr
  6.  
  7.    oldcolor = SETCOLOR()        
  8.  
  9.    IF PCOUNT() <= 3
  10.       SETCOLOR(Set_color(Attribute(srow,scol)))
  11.    ELSE
  12.       SETCOLOR(colr)
  13.    ENDIF
  14.    @ srow, scol, string
  15.    SETCOLOR(oldcolor)
  16.  
  17. * End of File
  18.