Example 2 10 REM bit image print
20 WIDTH "LPT1:",255
30 LPRINT CHR$(27);"%3";CHR$(10);CHR$(0);
40 GOSUB 130:REM 60 dpi
50 LPRINT CHR$(27);"%4";CHR$(10);CHR$(0);
60 GOSUB 130:REM 120 dpi
70 LPRINT CHR$(27);"[6z";
80 LPRINT CHR$(27);"%3";CHR$(10);CHR$(0);
90 GOSUB 130:REM reverse 60 dpi
100 LPRINT CHR$(27);"[5z";
110 LPRINT
120 END
130 RESTORE
140 FOR I=1 TO 10
150 READ D
160 LPRINT CHR$(D);
170 NEXT I
180 LPRINT " ";
190 RETURN
200 DATA 34,80,138,0,143,0,138,80,34,0
68 Graphics