You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

14 lines
682 B
QBasic

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

10 WIDTH LPT1:,255 Set printer for maximum line width
20 LPRINT CHR$(27);*;CHR$(113);CHR$(80);:;CHR$(3);
30 REM CHR$(113) and CHR$(80) are the attribute codes for normal speed,quadruple density graphics
40 REM CHR$(3) Begins graphics printing
50 FOR I=1 TO 6 Repeat triangle pattern six times
60 FOR J=1 TO 16 Each triangle has 16 columns
70 READ A Read the column
80 LPRINT CHR$(A); Send the byte to the printer
90 NEXT J Now print the next column
100 RESTORE Go back to the beginning of the DATA statements
120 LPRINT CHR$(3);CHR$(2); End graphics printing
130 END
140 DATA 128,192,224,240,248,252,254,255,255,254,252,248,240,224,192,128