Compile insert OIPI_FONTS
/******************************************************************************************************** 

	FontInfo										
	<1> Font Name									
	<2> Point Size									
	<3> Justification								
	<4> FontBold									
	<5> Italics										
	<6> Underline									
	<7> Strikethrough								
	<8> ForeColor									
	<9> TextAngle - In tenth of degrees				
 	<10> TextAlign - 0=Top, 1=Bottom, 2=Baseline

********************************************************************************************************/

Declare function RGB

Equ Bullet$	to Char(0149)
Equ Solid$  to RGB(0,0,1)

Equ N%  to 1
Equ B%  to 2
Equ U%  to 3
Equ I%  to 4
Equ BR% to 5
Equ VR% to 6

Dim Wasp(32,6)
Wasp(32,1)	        = "WASP 128 M":@FM:32:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0


Dim Arial_Narrow(18,6)
// ARIAL NARROW					   1  	  2      3	   4     5	   6     7	   8
Arial_Narrow(6,1)	= "Arial Narrow":@FM:06:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Arial_Narrow(8,1)	= "Arial Narrow":@FM:08:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Arial_Narrow(8,2)	= "Arial Narrow":@FM:08:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Arial_Narrow(8,5)	= "Arial Narrow":@FM:08:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255)
Arial_Narrow(9,1)	= "Arial Narrow":@FM:09:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Arial_Narrow(10,5)	= "Arial Narrow":@FM:10:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255)
Arial_Narrow(10,1)	= "Arial Narrow":@FM:10:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Arial_Narrow(10,2)	= "Arial Narrow":@FM:10:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Arial_Narrow(11,5)	= "Arial Narrow":@FM:11:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255)
Arial_Narrow(12,1)	= "Arial Narrow":@FM:12:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Arial_Narrow(12,2)	= "Arial Narrow":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Arial_Narrow(12,5)	= "Arial Narrow":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255)
Arial_Narrow(14,1)	= "Arial Narrow":@FM:16:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Arial_Narrow(16,1)	= "Arial Narrow":@FM:16:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Arial_Narrow(16,2)	= "Arial Narrow":@FM:16:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0


Dim Courier(18,6)
// COURIER		 			  1  	 2      3	  4     5	   6     7	   8
Courier(8,1)	= "Courier New":@FM:08:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Courier(8,2)	= "Courier New":@FM:08:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Courier(10,5)	= "Courier New":@FM:10:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255)
Courier(10,1)	= "Courier New":@FM:10:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Courier(11,1)	= "Courier New":@FM:11:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Courier(11,5)	= "Courier New":@FM:11:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255)
Courier(12,1)	= "Courier New":@FM:12:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Courier(12,2)	= "Courier New":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Courier(12,5)	= "Courier New":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255)
Courier(12,6)	= "Courier New":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(0,0,0):@FM:2700
Courier(16,1)	= "Courier New":@FM:16:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Courier(16,2)	= "Courier New":@FM:16:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0


// ARIAL
Dim Arial(20,6)
Arial(08,1)	    = "Arial":@FM:08:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Arial(09,1)	    = "Arial":@FM:09:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Arial(09,2)		= "Arial":@FM:09:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Arial(10,1)	    = "Arial":@FM:10:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Arial(11,1)	    = "Arial":@FM:11:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0


Dim Tahoma(20,6)
// TAHOMA				 1  	2      3	 4     5	 6     7	 8
Tahoma(6,1)		= "Tahoma":@FM:06:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Tahoma(8,1)		= "Tahoma":@FM:08:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Tahoma(8,2)		= "Tahoma":@FM:08:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Tahoma(8,3)		= "Tahoma":@FM:08:@FM:'':@FM:0:@FM:0:@FM:1:@FM:0
Tahoma(8,4)	    = "Tahoma":@FM:08:@FM:'':@FM:0:@FM:1:@FM:0:@FM:0
Tahoma(8,5)		= "Tahoma":@FM:08:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255)
Tahoma(9,1)		= "Tahoma":@FM:09:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Tahoma(9,2)		= "Tahoma":@FM:09:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Tahoma(10,1)	= "Tahoma":@FM:10:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Tahoma(10,2)	= "Tahoma":@FM:10:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Tahoma(10,3)	= "Tahoma":@FM:10:@FM:'':@FM:0:@FM:0:@FM:1:@FM:0
Tahoma(10,4)	= "Tahoma":@FM:10:@FM:'':@FM:0:@FM:1:@FM:0:@FM:0
Tahoma(10,5)	= "Tahoma":@FM:10:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255)
Tahoma(10,6)	= "Tahoma":@FM:10:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255):@FM:900
Tahoma(11,1)	= "Tahoma":@FM:11:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Tahoma(11,4)	= "Tahoma":@FM:11:@FM:'':@FM:0:@FM:1:@FM:0:@FM:0
Tahoma(12,1)	= "Tahoma":@FM:12:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Tahoma(12,2)	= "Tahoma":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Tahoma(12,3)	= "Tahoma":@FM:12:@FM:'':@FM:0:@FM:0:@FM:1:@FM:0
Tahoma(12,4)	= "Tahoma":@FM:12:@FM:'':@FM:0:@FM:1:@FM:0:@FM:0
Tahoma(14,1)	= "Tahoma":@FM:14:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Tahoma(14,2)	= "Tahoma":@FM:14:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Tahoma(14,5)	= "Tahoma":@FM:14:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0:@FM:RGB(255,255,255)
Tahoma(16,1)	= "Tahoma":@FM:16:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Tahoma(16,2)	= "Tahoma":@FM:16:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Tahoma(17,1)	= "Tahoma":@FM:17:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Tahoma(18,1)	= "Tahoma":@FM:18:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Tahoma(18,2)	= "Tahoma":@FM:18:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Tahoma(20,1)	= "Tahoma":@FM:20:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Tahoma(20,2)	= "Tahoma":@FM:20:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0


// TIMES						  1  	 2      3	  4     5	  6     7	  8
Dim Times(18,6)
Times(11,4)		= "Times New Roman":@FM:11:@FM:'':@FM:0:@FM:1:@FM:0:@FM:0
Times(12,1)		= "Times New Roman":@FM:12:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
Times(12,2)		= "Times New Roman":@FM:12:@FM:'':@FM:1:@FM:0:@FM:0:@FM:0
Times(12,3)		= "Times New Roman":@FM:12:@FM:'':@FM:0:@FM:0:@FM:1:@FM:0
Times(12,4)		= "Times New Roman":@FM:12:@FM:'':@FM:0:@FM:1:@FM:0:@FM:0


// OCR
Dim OCR(12,6)
OCR(10,1)		= "OCR-A II":@FM:10:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
OCR(11,1)		= "OCR-A II":@FM:11:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0
OCR(12,1)		= "OCR-A II":@FM:12:@FM:'':@FM:0:@FM:0:@FM:0:@FM:0