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