diff --git a/applecorn.po b/applecorn.po
index c3b3305..3bd41be 100644
Binary files a/applecorn.po and b/applecorn.po differ
diff --git a/applecorn.s b/applecorn.s
index b4d35a8..ad9deea 100644
--- a/applecorn.s
+++ b/applecorn.s
@@ -58,6 +58,9 @@ COPYBUF     EQU   $9200       ; File copy needs separate buffer
 * Location of FDraw library in main memory
 FDRAWADDR   EQU   $9400
 
+* Location of bitmap font in main memory
+FONTADDR    EQU   $A900
+
 * Address in aux memory where ROM will be loaded
 AUXADDR     EQU   $8000
 
diff --git a/font.dat b/font.dat
new file mode 100644
index 0000000..9337cb7
Binary files /dev/null and b/font.dat differ
diff --git a/mainmem.ldr.s b/mainmem.ldr.s
index 7fc1632..30d77f0 100644
--- a/mainmem.ldr.s
+++ b/mainmem.ldr.s
@@ -30,6 +30,15 @@ START       JSR   CROUT
             CLC                    ; Load into main
             JSR   LOADCODE
 
+            LDA   #<:FNTFILE
+            STA   OPENPL+1
+            LDA   #>:FNTFILE
+            STA   OPENPL+2
+            LDA   #>FONTADDR       ; Address in main
+            LDX   #<FONTADDR
+            CLC                    ; Load into main
+            JSR   LOADCODE
+
             LDA   #<MOSSHIM        ; Start address of MOS shim
             STA   A1L
             LDA   #>MOSSHIM
@@ -69,6 +78,7 @@ START       JSR   CROUT
             >>>   XF2AUX,AUXMOS1
 
 :FDFILE     STR   "FDRAW.FAST"     ; Filename for FDraw lib
+:FNTFILE    STR   "FONT.DAT"       ; Filename for bitmap font
 
 * Load image from file into memory
 * On entry: OPENPL set up to point to file to load
diff --git a/mainmem.svc.s b/mainmem.svc.s
index 581fc30..07f6fa9 100644
--- a/mainmem.svc.s
+++ b/mainmem.svc.s
@@ -1129,6 +1129,11 @@ GFXINIT      JSR   FDRAWADDR+0        ; Initialize FDRAW library
              JSR   FDRAWADDR+22       ; FDRAW: clear HGR screen
              RTS
 
+* Draw character on graphics screen (byte aligned)
+* On entry: Character in A
+DRAWCHAR     
+             RTS
+
 FGCOLOR      DB    $00                ; Foreground colour
 BGCOLOR      DB    $00                ; Background colour
 LINETYPE     DB    $00                ; 0 normal, 1 XOR