home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib35a.dsk / NOVEMBER.1988 / IW.PRINT.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  774b  |  26 lines
  1. 1  REM  *
  2. 2  REM  * IW.PRINT.DEMO
  3. 3  REM  * BY ROGER WAGNER
  4. 4  REM  * COPYRIGHT(C) 1988
  5. 5  REM  * MICROSPARC, INC.
  6. 6  REM  * CONCORD, MA 01742
  7. 7  REM  *
  8. 10  PRINT  CHR$(4);"BLOAD ROTATE,A$2A0": REM  672 DEC.
  9. 20  PRINT  CHR$(4);"BLOAD ALT.PRINT,A$350": REM  848 DEC.
  10. 30  REM  DRAW PICTURE
  11. 40  HGR 
  12. 50  HCOLOR= 3
  13. 60  HPLOT 0,0 TO 100,100
  14. 70  HPLOT 0,0 TO 279,0 TO 279,191 TO 0,191 TO 0,0
  15. 80  REM  PRINTER DUMP
  16. 90  PRINT  CHR$(4);"PR#1"
  17. 100  PRINT  CHR$(9);"K"; CHR$(9);"Z": REM  NO LF W/ CR; TRANSP. MODE
  18. 110  PRINT  CHR$(27);"n"; CHR$(27);"T16"
  19. 120  FOR Y = 0 TO 23
  20. 130  PRINT  CHR$(27);"G0280";
  21. 140  FOR X = 0 TO 39
  22. 150  CALL 672,X *7,Y *8,A$: REM  GET SCREEN BYTES
  23. 160  CALL 848,A$: REM  TRANSPARENT PRINT
  24. 170  NEXT X: PRINT  CHR$(10)
  25. 180  NEXT Y
  26. 190  PRINT  CHR$(4);"PR#0"