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