macro font
   
   set *
   opt *
   opt nbox
   
   size 22 26
   set xmgr 0.5
   set xmgl 0.5
   set xwin 1.5
   set ymgu 0.5
   set ymgl 0.5
   set chhe 0.3
   set lwid 2.0
   set txfp -2
   set txal 23
   
   j=1
   for str in 24 25 26 27 30 31
     do i=[str]*10+1,[str]*10+7
       U[j]=\[i]
       j=[j]+1
     enddo
   endfor
   
   j=1
   do k=32,37
     do i=[k]*10+1,[k]*10+7
       L[j]=\[i]
       j=[j]+1
     enddo
   enddo
   
   
*   for/file 66 pschar2.eps
*   gr/me 66 -113
   
   zon 2 1
   
   null 0 10 -43 2.5 A
   
   do i=1,42
     set txfp -10
     set chhe 0.3
     itx  1 -[i] \[U[i]]
     set chhe 0.35
     set txfp -130
     itx  3 -[i] [U[i]]
     itx  5 -[i] '['//$quote([U[i]])//']'
     itx  7 -[i] '"'//$quote([U[i]])//'#'
     itx  9 -[i] '~'//$quote([U[i]])//'#'
   enddo
   
   set txfp -30
   itx  1 1.2 Input
   itx  3 1.7 Upper
   itx  3 0.7 Roman   
   itx  5 1.7 Upper
   itx  5 0.7 Greek
   itx  7 1.7 Upper
   itx  7 0.7 Special   
   itx  9 1.7 Upper
   itx  9 0.7 Zapf
   
   do i=1,5
     box 0 $sigma([i]*2) 0 2.5
     box 0 $sigma([i]*2) 0 -48
   enddo
      
   zon 2 1 2 s
   null 0 10 -43 2.5 A
      
   do i=1,42
     set txfp -10
     set chhe 0.3
     itx  1 -[i] \[L[i]]
     set chhe 0.35
     set txfp -130
     itx  3 -[i] [L[i]]
     itx  5 -[i] '['//$quote([L[i]])//']'
     itx  7 -[i] '"'//$quote([L[i]])//'#'
     itx  9 -[i] '~'//$quote([L[i]])//'#'
   enddo

   set txfp -30
   itx  1 1.2 Input
   itx  3 1.7 Lower
   itx  3 0.7 Roman   
   itx  5 1.7 Lower
   itx  5 0.7 Greek
   itx  7 1.7 Lower
   itx  7 0.7 Special   
   itx  9 1.7 Lower
   itx  9 0.7 Zapf
   
   do i=1,5
     box 0 $sigma([i]*2) 0 2.5
     box 0 $sigma([i]*2) 0 -48
   enddo

*   close 66
 return