home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / homonlib.zip / WIPEAREA.BAS < prev   
BASIC Source File  |  1995-04-13  |  650b  |  21 lines
  1. DEFINT A-Z
  2.  
  3. DECLARE SUB WipeArea (row1, col1, row2, col2)
  4.  
  5. SUB WipeArea (row1, col1, row2, col2)
  6. '****************************************************************************
  7. 'Clears an area of the screen.
  8. '****************************************************************************
  9.  
  10. wide = col2 - col1 + 1
  11. sp$ = SPACE$(wide)                 'Only call the SPACE$() function once.
  12.  
  13. FOR x = row1 TO row2               'Fill an area of the screen with spaces
  14.      LOCATE x, col1                'and relocate the cursor back at the top
  15.      PRINT sp$;                    'left corner of the area.
  16. NEXT x
  17. LOCATE row1, col1
  18.  
  19. END SUB
  20.  
  21.