20 B7%=128:B6%=64:B5%=32:B4%=16:B3%=8:B2%=4:B1%=2:B0%=1
30 LPRINT CHR$(27)"@": WIDTH "LPT1:",255
40 DIM X%(8),B%(320)
50  FOR Y% = 0 TO 191 STEP 8
60 FOR X% = 0 TO 319
70 FOR I% = 0 TO 7
80  X%(I%) = POINT(X%, Y%+I%): IF X%(I%)=3 THEN X%(I%)=1
90 NEXT I%
100 B%(X%)=X%(0)*B7%+X%(1)*B6%+X%(2)*B5%+X%(3)*B4%+X%(4)*B3%+X%(5)*B2%+X%(6)*B1%+X%(7)*B0%
110 NEXT X%
120 LPRINT CHR$(27);"K";CHR$(63);CHR$(1);
130 FOR J%= 0 TO 319
140 LPRINT CHR$(B%(J%));
150 NEXT J%
160 LPRINT CHR$(27) "A"  CHR$(8)
170 NEXT Y%
180  END
HR$(1);
130 FOR J%= 0 TO 319
140 LPRINT CHR$(B%(J%));
150 NEXT J%
160 LPRINT CHR$(27) "A"  CHR$(8)
170 NE