Add 5x7 font

Also, fix PSP leak in font compilers.

blk/522

@@ -1,16 +1,16 @@
 : _g ( given a top-left of dot-X in BLK(, spit 5 bin lines )
     5 0 DO
     0 3 0 DO ( a r )
-        2 *
+        1 LSHIFT
         OVER J 64 * I + + C@ 'X' = IF 1+ THEN
-    LOOP 32 * C, LOOP DROP ;
+    LOOP 5 LSHIFT C, LOOP DROP ;
 : _l ( a u -- a, spit a line of u glyphs )
     ( u ) 0 DO ( a )
         DUP I 3 * + _g
     LOOP ;
 : CPFNT3x5
     0 , 0 , 0 C, ( space char )
-    530 BLK@ BLK( 21 _l 320 + 21 _l 320 + 21 _l ( 63 )
+    530 BLK@ BLK( 21 _l 320 + 21 _l 320 + 21 _l DROP ( 63 )
-    531 BLK@ BLK( 21 _l 320 + 10 _l ( 94! )
+    531 BLK@ BLK( 21 _l 320 + 10 _l DROP ( 94! )
 ;
 

blk/523

@@ -0,0 +1,16 @@
+: _g ( given a top-left of dot-X in BLK(, spit 7 bin lines )
+    7 0 DO
+    0 5 0 DO ( a r )
+        1 LSHIFT
+        OVER J 64 * I + + C@ 'X' = IF 1+ THEN
+    LOOP 3 LSHIFT C, LOOP DROP ;
+: _l ( a u -- a, spit a line of u glyphs )
+    ( u ) 0 DO ( a )
+        DUP I 5 * + _g
+    LOOP ;
+: CPFNT5x7
+    0 , 0 , 0 C, ( space char )
+    534 532 DO I BLK@ BLK( 12 _l 448 + 12 _l DROP LOOP ( 72 )
+    535 BLK@ BLK( 12 _l 448 + 10 _l DROP ( 94! )
+;
+

blk/524

@@ -10,6 +10,6 @@
     LOOP ;
 : CPFNT7x7
     0 , 0 , 0 , 0 C, ( space char )
-    541 536 DO I BLK@ BLK( 9 _l 448 + 9 _l LOOP ( 90 )
+    541 536 DO I BLK@ BLK( 9 _l 448 + 9 _l DROP LOOP ( 90 )
-    542 BLK@ BLK( 4 _l ( 94! )
+    542 BLK@ BLK( 4 _l DROP ( 94! )
 ;

blk/532

@@ -1,17 +1,15 @@
-...............................................................
+..X...X.X........X..............X....X....X...............X.
-...............................................................
+..X...X.X..X.X..XXXXX...X.XX....X...X......X.X.X.X..X....X..
-...............................................................
+..X.......XXXXXX.......X.X..X......X........X.XXX...X.......
-...............................................................
+..X........X.X..XXX...X...XX.......X........XXXXXXXXXXX.....
-...............................................................
+..........XXXXX....X.X....XX.X.....X........X.XXX...X.......
-...............................................................
+..X........X.X.XXXX.X...XX..X.......X......X.X.X.X..X.......
-...............................................................
+..X..............X.......XXX.X.......X....X.................
-...............................................................
+................XXX...XX..XXX..XXX...XX.XXXXX.XXX.XXXXX.XXX.
-...............................................................
+..............XX...X.X.X.X...XX...X.X.X.X....X........XX...X
-...............................................................
+.............X.X..XX...X.....X....XX..X.XXXX.X........XX...X
-...............................................................
+XXXXX.......X..X.X.X...X....X...XX.XXXXX....XXXXX....X..XXX.
-...............................................................
+...........X...XX..X...X...X......X...X.....XX...X..X..X...X
-...............................................................
+......XX..X....X...X...X..X...X...X...X.X...XX...X.X...X...X
-...............................................................
+......XX........XXX..XXXXXXXXX.XXX....X..XXX..XXX.X.....XXX.
-...............................................................
+!"#$%&'()*+,-./012345678
-
-

blk/533

@@ -0,0 +1,15 @@
+.XXX...............X.....X.....XXX..XXX..XXX.XXXX..XXX.XXXX.
+X...X..X....X....XX.......XX..X...XX...XX...XX...XX...XX...X
+X...X..X....X...XX..XXXXX..XX.....XX..XXX...XX...XX....X...X
+.XXX...........X.............X...X.X..XXXXXXXXXXX.X....X...X
+....X..X....X...XX..XXXXX..XX...X..X....X...XX...XX....X...X
+....X..X...X.....XX.......XX.......X...XX...XX...XX...XX...X
+.XXX...............X.....X......X...XXX.X...XXXXX..XXX.XXXX.
+XXXXXXXXXX.XXX.X...X.XXX....XXX..X.X....X...XX...X.XXX.XXXX.
+X....X....X...XX...X..X......XX.X..X....XX.XXXX..XX...XX...X
+X....X....X....X...X..X......XXX...X....X.X.XXX..XX...XX...X
+XXXX.XXXX.X..XXXXXXX..X......XX....X....X...XX.X.XX...XXXXX.
+X....X....X...XX...X..X......XXX...X....X...XX..XXX...XX....
+X....X....X...XX...X..X..X...XX.X..X....X...XX..XXX...XX....
+XXXXXX.....XXX.X...X.XXX..XXX.X..X.XXXXXX...XX...X.XXX.X....
+9:;<=>?@ABCDEFGHIJKLMNOP

blk/534

@@ -0,0 +1,15 @@
+.XXX.XXXX..XXX.XXXXXX...XX...XX...XX...XX...XXXXXXXXX.......
+X...XX...XX...X..X..X...XX...XX...XX...XX...XX...XX....X....
+X...XX...XX......X..X...XX...XX...X.X.X..X.X....X.X.....X...
+X...XXXXX..XXX...X..X...XX...XX...X..X....X....X..X......X..
+X.X.XX.X......X..X..X...XX...XX.X.X.X.X...X...X...X.......X.
+X..XXX..X.X...X..X..X...X.X.X.X.X.XX...X..X..X...XX........X
+.XXXXX...X.XXX...X...XXX...X...X.X.X...X..X..XXXXXXXX.......
+..XXX..X.........X..........................................
+....X.X.X.........X.........................................
+....XX...X...........XXX.X.....XXX.....X.XXX..XX....XXXX....
+....X...................XX....X...X....XX...XX..X..X..XX....
+....X................XXXXXXX..X......XXXXXXXXX......XXXXXX..
+....X...............X...XX..X.X...X.X..XX....XXX......XX..X.
+..XXX.....XXXXX......XXXXXXX...XXX...XXX.XXXXX......XX.X..X.
+QRSTUVWXYZ[\]^_`abcdefgh

blk/535

@@ -0,0 +1,15 @@
+............................................................
+............................................................
+..X......XX..X..XX...X.X.XXX...XXX.XXX....XXXX.XX..XXX..X...
+..........X.X....X..X.X.XX..X.X...XX..X..X..XXX...X....XXX..
+..X......XXX.....X..X...XX...XX...XXXX....XXXX.....XXX..X...
+..X...X..XX.X....X..X...XX...XX...XX........XX........X.X...
+..X....XX.X..X...XX.X...XX...X.XXX.X........XX.....XXX...XX.
+................................XX...X...XX.......
+...............................X.....X.....X......
+X...XX...XX...XX...XX...XXXXXX.X.....X.....X..X.X.
+X...XX...XX...X.X.X..X.X....X.X......X......XX.X..
+X...XX...XX...X..X....X....X...X.....X.....X......
+X...X.X.X.X.X.X.X.X..X....X....X.....X.....X......
+.XXX...X...X.X.X...XX....XXXXX..XX...X...XX.......
+ijklmnopqrstuvwxyz{|}~