10 CLEAR
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%(650)
50  FOR Y%= 0 TO 191 STEP 8
60 FOR X%= 0 TO 639
70 FOR I%= 0 TO 7
80  X%(I%) = POINT(X%, Y%+I%)
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);"L";CHR$(127);CHR$(2);
130 FOR J%= 0 TO 639
140 LPRINT CHR$((B%(J%)));
150 NEXT J%
160 LPRINT CHR$(27) "A"  CHR$(8)
170 NEXT Y%
180  END
$(2);
130 FOR J%= 0 TO 639
140 LPRINT CHR$((B%(J%)));
150 NEXT J%
160 LPRINT CHR$(27) "A"  CHR$(8)
170 NEXT Y%
180  END