#MKFILES 2

2 		EXEC \CLS			; clear screen
#NUM MyFont 	SET \UserFont			; set my font address
$254 		SET \Font			; and switch to user font
PI		EXEC \PrintNumber		; and print PI

GRPH						; display graphic screen
REPEAT
	GET \Nextkey
	NOT
UNTIL(x<>0)					; and wait for a key

STOP

MyFont:
#FONT 9			; vertical size = 9 pixels

#DEFCHAR 44		; decimal point
	-
	-
	-
	-
	-
	-
	-
	-
	*
#END


#DEFCHAR 48		; 0
	-***-
	*---*
	*---*
	*---*
	-----
	*---*
	*---*
	*---*
	-***-
#END

#DEFCHAR 49		; 1
	-----
	----*
	----*
	----*
	-----
	----*
	----*
	----*
	-----
#END

#DEFCHAR 50		; 2
	-***-
	----*
	----*
	----*
	-***-
	*----	
	*----
	*----
	-***-
#END

#DEFCHAR 51		; 3
	-***-
	----*
	----*
	----*
	-***-
	----*
	----*
	----*
	-***-	
#END

#DEFCHAR 52		; 4
	-----
	*---*
	*---*
	*---*
	-***-
	----*
	----*
	----*
	-----	
#END

#DEFCHAR 53		; 5
	-***-
	*----
	*----
	*----
	-***-
	----*
	----*
	----*
	-***-	
#END

#DEFCHAR 54		; 6
	-***-
	*----
	*----
	*----
	-***-
	*---*
	*---*
	*---*
	-***-	
#END

#DEFCHAR 55		; 7
	-***-
	----*
	----*
	----*
	-----
	----*
	----*
	----*
	-----
	
#END

#DEFCHAR 56		; 8
	-***-
	*---*
	*---*
	*---*
	-***-	
	*---*
	*---*
	*---*
	-***-
#END

#DEFCHAR 57		; 9
	-***-
	*---*
	*---*
	*---*
	-***-	
	----*
	----*
	----*
	-***-	
#END
#ENDFONT
 

