2020-05-08 02:09:52 +10:00
|
|
|
: _g ( given a top-left of dot-X in BLK(, spit 5 bin lines )
|
|
|
|
5 0 DO
|
|
|
|
0 3 0 DO ( a r )
|
2020-05-22 21:55:00 +10:00
|
|
|
1 LSHIFT
|
2020-05-08 02:09:52 +10:00
|
|
|
OVER J 64 * I + + C@ 'X' = IF 1+ THEN
|
2020-05-22 21:55:00 +10:00
|
|
|
LOOP 5 LSHIFT C, LOOP DROP ;
|
2020-05-08 23:07:44 +10:00
|
|
|
: _l ( a u -- a, spit a line of u glyphs )
|
2020-05-08 02:09:52 +10:00
|
|
|
( u ) 0 DO ( a )
|
|
|
|
DUP I 3 * + _g
|
2020-05-08 23:07:44 +10:00
|
|
|
LOOP ;
|
2020-05-08 02:09:52 +10:00
|
|
|
: CPFNT3x5
|
|
|
|
0 , 0 , 0 C, ( space char )
|
2020-05-22 21:55:00 +10:00
|
|
|
530 BLK@ BLK( 21 _l 320 + 21 _l 320 + 21 _l DROP ( 63 )
|
|
|
|
531 BLK@ BLK( 21 _l 320 + 10 _l DROP ( 94! )
|
2020-05-08 02:09:52 +10:00
|
|
|
;
|
|
|
|
|