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