;*; Updated on 01-Apr-89 at 11:36 AM by Ami Bar-Yadin; edit time: 0:17:54

;*; 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