-LOCATE 1, 1\r
-SELECT CASE a\r
-CASE 7\r
-CASE 1\r
-LINE (0, 0)-(7, 7), 0, BF\r
-LINE (2, 1)-(0, 3), 15\r
-LINE (1, 4)-(2, 5), 15\r
-LINE (5, 1)-(7, 3), 15\r
-LINE (6, 4)-(5, 5), 15\r
-LINE (1, 2)-(5, 2), 15\r
-LINE (1, 4)-(5, 4), 15\r
-\r
-CASE 2\r
-LINE (0, 0)-(7, 7), 0, BF\r
-LINE (5, 1)-(7, 3), 15\r
-LINE (6, 4)-(5, 5), 15\r
-LINE (1, 2)-(5, 2), 15\r
-LINE (1, 4)-(5, 4), 15\r
-\r
-CASE 3\r
-LINE (0, 0)-(7, 7), 0, BF\r
-LINE (0, 0)-(3, 7), 15\r
-LINE (6, 0)-(3, 7), 15\r
-\r
-CASE 4\r
-LINE (0, 0)-(7, 7), 0, BF\r
-LINE (0, 7)-(3, 0), 15\r
-LINE (6, 7)-(3, 0), 15\r
-\r
-CASE 5\r
-LINE (0, 0)-(7, 7), 0, BF\r
-LINE (0, 0)-(4, 0), 15\r
-LINE (4, 1)-(4, 7), 15\r
-\r
-CASE ELSE\r
-PRINT CHR$(a)\r
-END SELECT\r
-\r
-FOR y = 0 TO 7\r
-FOR x = 0 TO 7\r
-font(x, y, a) = POINT(x, y)\r
-NEXT x\r
-NEXT y\r
+ LOCATE 1, 1\r
+ SELECT CASE a\r
+ CASE 7\r
+ CASE 1\r
+ LINE (0, 0)-(7, 7), 0, BF\r
+ LINE (2, 1)-(0, 3), 15\r
+ LINE (1, 4)-(2, 5), 15\r
+ LINE (5, 1)-(7, 3), 15\r
+ LINE (6, 4)-(5, 5), 15\r
+ LINE (1, 2)-(5, 2), 15\r
+ LINE (1, 4)-(5, 4), 15\r
+\r
+ CASE 2\r
+ LINE (0, 0)-(7, 7), 0, BF\r
+ LINE (5, 1)-(7, 3), 15\r
+ LINE (6, 4)-(5, 5), 15\r
+ LINE (1, 2)-(5, 2), 15\r
+ LINE (1, 4)-(5, 4), 15\r
+\r
+ CASE 3\r
+ LINE (0, 0)-(7, 7), 0, BF\r
+ LINE (0, 0)-(3, 7), 15\r
+ LINE (6, 0)-(3, 7), 15\r
+\r
+ CASE 4\r
+ LINE (0, 0)-(7, 7), 0, BF\r
+ LINE (0, 7)-(3, 0), 15\r
+ LINE (6, 7)-(3, 0), 15\r
+\r
+ CASE 5\r
+ LINE (0, 0)-(7, 7), 0, BF\r
+ LINE (0, 0)-(4, 0), 15\r
+ LINE (4, 1)-(4, 7), 15\r
+\r
+ CASE ELSE\r
+ PRINT CHR$(a)\r
+ END SELECT\r
+\r
+ FOR y = 0 TO 7\r
+ FOR x = 0 TO 7\r
+ font(x, y, a) = POINT(x, y)\r
+ NEXT x\r
+ NEXT y\r