home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / PBCLON20.ZIP / PBC$BAS.ZIP / GRAFPRIN.BAS < prev    next >
BASIC Source File  |  1992-10-07  |  1KB  |  31 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        PBClone  Copyright (c) 1990-1992  Thomas G. Hanlin III        |
  4. '   |                                                                      |
  5. '   +----------------------------------------------------------------------+
  6.  
  7.    DECLARE FUNCTION AscM% (St$, BYVAL Posn%)
  8.    DECLARE FUNCTION FontRow0% (BYVAL ch%, BYVAL Row%)
  9.  
  10. SUB GrafPrint (St$, X%, Y%, Ymul%, Xmul%, Colour%)
  11.    DIM Pow%(0 TO 7)
  12.    Pow%(7) = 1: Pow%(6) = 2: Pow%(5) = 4: Pow%(4) = 8
  13.    Pow%(3) = 16: Pow%(2) = 32: Pow%(1) = 64: Pow%(0) = 128
  14.    MaxRow% = 7
  15.    IF Xmul% < 1 THEN Xm% = 1 ELSE Xm% = Xmul%
  16.    IF Ymul% < 1 THEN Ym% = 1 ELSE Ym% = Ymul%
  17.    FOR tmp% = 1 TO LEN(St$)
  18.       ch% = AscM(St$, tmp%)
  19.       FOR Row% = 0 TO MaxRow%
  20.          vy% = Row% * Ym% + Y%
  21.          ChRow% = FontRow0%(ch%, Row%)
  22.          FOR Col% = 0 TO 7
  23.             IF ChRow% AND Pow%(Col%) THEN
  24.                vx% = ((tmp% - 1) * 8 + Col%) * Xm% + X%
  25.                LINE (vx%, vy%)-(vx% + Xm% - 1, vy% + Ym% - 1), Colour%, BF
  26.             END IF
  27.          NEXT
  28.       NEXT
  29.    NEXT
  30. END SUB
  31.