Example 10 REM Reassigns graphics sequence
20 LPRINT CHR$(27);"K";CHR$(60);CHR$(0);
30 REM Standard ESC K graphics sequence
40 FOR X=1 TO 60:REM 60 Columns
50 LPRINT CHR$(255);:REM one byte per columns
60 NEXT X:LPRINT
70 LPRINT CHR$(27)"?K";CHR$(3)
80 REM Reassigns ESC K to quadruple density
90 LPRINT CHR$(27)"K";CHR$(60);CHR$(0);
100 FOR Z=1 TO 60:REM 60 Columns
110 LPRINT CHR$(255);CHR$(255);CHR$(255);
130 NEXT Z
140 END
70 Graphics