10 LPRINT CHR$(27);"S";"0008";
20 FOR T=1 TO 8:LPRINT CHR$(&B11111111);:NEXT