home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / DNALIB59.ZIP / AREACLS.BAS next >
BASIC Source File  |  1994-01-24  |  280b  |  13 lines
  1. SUB AreaCLS(Row%,Col%,NumRows%,ColsWide%,Character%,Attr%)PUBLIC
  2.  
  3. FGround% = 15 AND Attr%
  4. BGround% = 255 AND (Attr% - LowByte%) / 16
  5.  
  6. COLOR FGround%,BGround%
  7.  
  8. FOR i% = Row% to Row% + NumRows% - 1
  9.  LOCATE i%,Col%,0
  10.  PRINT STRING$(ColsWide%,Character%);
  11. NEXT i%
  12.  
  13. END SUB