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