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