home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / PBCLON21.ZIP / PBC$BAS.ZIP / PRINTBOX.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-01-11  |  1001 b   |  30 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        PBClone  Copyright (c) 1990-1993  Thomas G. Hanlin III        |
  4. '   |                                                                      |
  5. '   +----------------------------------------------------------------------+
  6.  
  7.    DECLARE SUB XQPrint (St$, BYVAL Row%, BYVAL Column%, BYVAL VAttr%, BYVAL Page%, BYVAL Fast%)
  8.  
  9. SUB PrintBox (St$, TopRow%, LeftCol%, BottomRow%, RightCol%, VAttr%, Page%, Fast%)
  10.  
  11.    Cols% = RightCol% - LeftCol% + 1
  12.    IF Cols% < 1 OR (BottomRow% - TopRow% < 0) OR LEN(St$) = 0 THEN
  13.       EXIT SUB
  14.    END IF
  15.  
  16.    IF LEN(St$) = 1 THEN
  17.       t$ = STRING$(Cols%, St$)
  18.    ELSE
  19.       DO UNTIL LEN(t$) >= Cols%
  20.          t$ = t$ + St$
  21.       LOOP
  22.       t$ = LEFT$(t$, Cols%)
  23.    END IF
  24.  
  25.    FOR Row% = TopRow% TO BottomRow%
  26.       XQPrint t$, Row%, LeftCol%, VAttr%, Page%, Fast%
  27.    NEXT
  28.  
  29. END SUB
  30.