-LINE (0, b * ys)-(xs * 10, b * ys), 8\r
-LINE (b * xs, 0)-(b * xs, ys * 10), 8\r
-LOCATE 10 * ys / strs + 2, b * xs / 8 + 1\r
-PRINT CHR$(b + 48)\r
+ LINE (0, b * ys)-(xs * 10, b * ys), 8\r
+ LINE (b * xs, 0)-(b * xs, ys * 10), 8\r
+ LOCATE 10 * ys / strs + 2, b * xs / 8 + 1\r
+ PRINT CHR$(b + 48)\r