20
LPRINT CHR$(27); "~G";
LPRINT CHR$(&H80 + W); CHR$(&HFF); CHR$(0);
'
FOR L = 1 TO 100
LPRINT CHR$(1); CHR$(&H80);
LPRINT CHR$(W - 2 + &H80); CHR$(0);
LPRINT CHR$(1); CHR$(&H1);
LPRINT CHR$(0); 'EOL
NEXT
L
'
LPRINT CHR$(&H80 + W); CHR$(&HFF); CHR$(0);
LPRINT CHR$(&H80); 'EOD
END