;*; Updated on 01-Apr-89 at 11:36 AM by Ami Bar-Yadin; edit time: 0:17:54
;***************************************************************************;
;									    ;
;	       AlphaWRITE'S Okidata 393 Proportional Spacing Table
;		Modified from DPST01.M68 by Ami Bar-Yadin
;									    ;
;***************************************************************************;
;

	OBJNAM	DPST01.USA

; Define proportional spacing character width table
;
	  PS$DIA 	=	1	; Diablo printer
 	   PS%DIA	=0
	  PS$NE1	=	2	; NEC printer EMPEROR P.S.
	   PS%NE1	=1
	  PS$NE2	=	4	; NEC printer BOLD P.S./BOLD ITALIC P.S
	   PS%NE2	=2
	  PS$OK3	=	8.	; Okidata 393 priter
	   PS%OK3	=3

	LWORD	PS$NE1			; flags

	RADIX	10.

; AlphaWRITE expects width in 1/120th of an inch
; The Okidata 393 manual gives them in (I think) 1/360th of an inch
; Also, I think AlphaWRITE expect the width to be half of the char's width
;
; Here's a macro to do the conversion (divide by 3,divide by 2)
;
 DEFINE	WIDTH	X
	BYTE	X/6
 ENDM

					;     Original values (from DPST01)
					;     |
					;     v
WIDTAB:	WIDTH	30			;   - 5	(cent sign)
 	WIDTH	18			; ! - 3
 	WIDTH	30			; " - 4
 	WIDTH	30			; # - 6
 	WIDTH	30			; $ - 5
 	WIDTH	36			; % - 8
 	WIDTH	36			; & - 7
 	WIDTH	18			; ' - 2
 	WIDTH	24			; ( - 3
 	WIDTH	24			; ) - 3
 	WIDTH	30			; * - 5
 	WIDTH	30			; + - 5
 	WIDTH	18			; , - 3
 	WIDTH	30			; - - 4
 	WIDTH	18			; . - 3
 	WIDTH	30			; / - 4
 	WIDTH	30			; 0 - 5
 	WIDTH	30			; 1 - 5
 	WIDTH	30			; 2 - 5
 	WIDTH	30			; 3 - 5
 	WIDTH	30			; 4 - 5
 	WIDTH	30			; 5 - 5
 	WIDTH	30			; 6 - 5
 	WIDTH	30			; 7 - 5
 	WIDTH	30			; 8 - 5
 	WIDTH	30			; 9 - 5
 	WIDTH	18			; : - 3
 	WIDTH	18			; ; - 3
 	WIDTH	30			; < - 6	1/2
 	WIDTH	30			; = - 5
 	WIDTH	30			; > - 6	1/4 
 	WIDTH	30			; ? - 5
 	WIDTH	36			; @ - 8
 	WIDTH	36			; A - 7
 	WIDTH	36			; B - 6
 	WIDTH	36			; C - 7
 	WIDTH	36			; D - 7
 	WIDTH	36			; E - 6
 	WIDTH	36			; F - 6
 	WIDTH	36			; G - 7
 	WIDTH	36			; H - 7
 	WIDTH	24			; I - 3
 	WIDTH	30			; J - 5
 	WIDTH	36			; K - 7
 	WIDTH	36			; L - 6
 	WIDTH	42			; M - 8
 	WIDTH	36			; N - 7
 	WIDTH	36			; O - 7
 	WIDTH	36			; P - 6
 	WIDTH	36			; Q - 7
 	WIDTH	36			; R - 7
 	WIDTH	36			; S - 5
 	WIDTH	36			; T - 6
 	WIDTH	42			; U - 7
 	WIDTH	36			; V - 6
 	WIDTH	42			; W - 8
 	WIDTH	36			; X - 7
 	WIDTH	36			; Y - 7
 	WIDTH	30			; Z - 6
 	WIDTH	24			; [ - 3	(guess)
 	WIDTH	30			; \ - 5	(guess)
 	WIDTH	24			; ] - 3	(guess)
 	WIDTH	30			; ^ - 5	(guess)
 	WIDTH	30			; _ - 5
 	WIDTH	18			; ` - 5	(guess)
 	WIDTH	30			; a - 5
 	WIDTH	36			; b - 5
 	WIDTH	30			; c - 5
 	WIDTH	36			; d - 5
 	WIDTH	30			; e - 5
 	WIDTH	24			; f - 4
 	WIDTH	36			; g - 5
 	WIDTH	36			; h - 5
 	WIDTH	18			; i - 3
 	WIDTH	24			; j - 3
 	WIDTH	36			; k - 5
 	WIDTH	18			; l - 3
 	WIDTH	42			; m - 8
 	WIDTH	36			; n - 5
 	WIDTH	30			; o - 5
 	WIDTH	36			; p - 5
 	WIDTH	36			; q - 5
 	WIDTH	30			; r - 4
 	WIDTH	30			; s - 4
 	WIDTH	24			; t - 4
 	WIDTH	36			; u - 5
 	WIDTH	36			; v - 5
 	WIDTH	42			; w - 7
 	WIDTH	30			; x - 5
 	WIDTH	36			; y - 5
 	WIDTH	30			; z - 5
 	WIDTH	24			; { - 3	(guess)
 	WIDTH	18			; | - 3	(guess)
 	WIDTH	24			; } - 3	(guess)
 	WIDTH	30			; ~ - 5	(guess)
 	EVEN
 
	END


.