home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / homonlib.zip / DROP.BAS < prev    next >
BASIC Source File  |  1995-04-13  |  763b  |  23 lines
  1. DEFINT A-Z
  2.  
  3. DECLARE SUB Drop (text$, row, col)
  4.  
  5. SUB Drop (text$, row, col)
  6. '****************************************************************************
  7. 'Prints text vertically on the screen, dropping from the specified row and
  8. ' column position.  If the length of the text would continue past row 24,
  9. ' printing will stop at that point.  See also: SUB Rise()
  10. '****************************************************************************
  11.  
  12. r = row                                 'We will need to alter the row value.
  13.  
  14. FOR x = 1 TO LEN(text$)
  15.      LOCATE r, col
  16.      PRINT MID$(text$, x, 1);
  17.      r = r + 1
  18.      IF r = 25 THEN EXIT FOR            'Quit if we reach the bottom of the
  19. NEXT x                                  'screen.
  20.  
  21. END SUB
  22.  
  23.