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.
|
|
|
|
|
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
|
