127 lines
		
	
	
		
			6.0 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			127 lines
		
	
	
		
			6.0 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| 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
 | |
| 
 |