\ tinynums 98.10.15 12:42 am NAB needs bitmap : binary 2 base ! ; : tinychar ( "name" -- ) 5 4 bitmap binary ; tinychar t0 1110000000000000 , 1010000000000000 , 1010000000000000 , 1010000000000000 , 1110000000000000 , tinychar t1 0100000000000000 , 0100000000000000 , 0100000000000000 , 0100000000000000 , 0100000000000000 , tinychar t2 1110000000000000 , 0010000000000000 , 1110000000000000 , 1000000000000000 , 1110000000000000 , tinychar t3 1110000000000000 , 0010000000000000 , 1110000000000000 , 0010000000000000 , 1110000000000000 , tinychar t4 1010000000000000 , 1010000000000000 , 1110000000000000 , 0010000000000000 , 0010000000000000 , tinychar t5 1110000000000000 , 1000000000000000 , 1110000000000000 , 0010000000000000 , 1110000000000000 , tinychar t6 1110000000000000 , 1000000000000000 , 1110000000000000 , 1010000000000000 , 1110000000000000 , tinychar t7 1110000000000000 , 0010000000000000 , 0100000000000000 , 0100000000000000 , 0100000000000000 , tinychar t8 1110000000000000 , 1010000000000000 , 1110000000000000 , 1010000000000000 , 1110000000000000 , tinychar t9 1110000000000000 , 1010000000000000 , 1110000000000000 , 0010000000000000 , 1110000000000000 , decimal create tinies ' t0 >body , ' t1 >body , ' t2 >body , ' t3 >body , ' t4 >body , ' t5 >body , ' t6 >body , ' t7 >body , ' t8 >body , ' t9 >body , : tinyspace ( -- ) 4 currentx +! ; : tinycr ( -- ) 6 currenty +! 0 currentx ! ; : tinyemit ( char -- ) dup bl <> if currenty @ currentx @ rot [char] 0 - cells tinies + @ >abs WinDrawBitmap else drop then tinyspace ; : tinytype ( c-addr u -- ) over + swap do i c@ tinyemit loop ;