home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / basic / baswiz19 / examples / gn2prinl.bas < prev    next >
Encoding:
BASIC Source File  |  1993-01-29  |  1.5 KB  |  44 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        BASWIZ  Copyright (c) 1990-1993  Thomas G. Hanlin III         |
  4. '   |                                                                      |
  5. '   |                      The BASIC Wizard's Library                      |
  6. '   |                                                                      |
  7. '   +----------------------------------------------------------------------+
  8.  
  9.    DECLARE FUNCTION GN2GetPel% (BYVAL X%, BYVAL Y%)
  10.    DECLARE FUNCTION Power2I% (BYVAL PowerOf2 AS INTEGER)
  11.  
  12.    DEFINT A-Z
  13.  
  14. SUB GN2PrintL (Device$)
  15.    Handle = FREEFILE
  16.    OPEN Device$ FOR OUTPUT AS Handle
  17.    WIDTH #Handle, 255
  18.    PRINT #Handle, CHR$(27); "E";
  19.    PRINT #Handle, CHR$(27); "9";
  20.    PRINT #Handle, CHR$(27); "&l0O";
  21.    PRINT #Handle, CHR$(27); "&a600h600V";
  22.    PRINT #Handle, CHR$(27); "*t75R";
  23.    PRINT #Handle, CHR$(27); "*r1A";
  24.    FOR Row = 0 TO 639
  25.       St$ = ""
  26.       PRINT #Handle, CHR$(27); "*b60W";
  27.       FOR Col = 0 TO 479 STEP 8
  28.          Posn = 0
  29.          FOR ColOfs = 0 TO 7
  30.             IF GN2GetPel(Col + ColOfs, Row) THEN
  31.                Posn = Posn + Power2I%(7 - ColOfs)
  32.             END IF
  33.          NEXT
  34.          St$ = St$ + CHR$(Posn)
  35.       NEXT
  36.       PRINT #Handle, St$;
  37.    NEXT
  38.    PRINT #Handle, CHR$(27); "*rB";
  39.    PRINT #Handle, CHR$(27); "&a0C";
  40.    PRINT #Handle, CHR$(12);
  41.    PRINT #Handle, CHR$(27); "E";
  42.    CLOSE Handle
  43. END SUB
  44.