home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMIGA PD 1
/
AMIGA-PD-1.iso
/
Programme_zum_Heft
/
Anwendungen
/
Kurztests
/
PostScript
/
PsIntrp
/
letters
< prev
next >
Wrap
Text File
|
1987-09-06
|
388b
|
31 lines
save
2 pencolor
/simplex findfont 12 scalefont setfont
/char (x) def
/caps {
65 1 65 25 add % for A to Z
{ char exch 0 exch put
char show } for
} def
/small {
97 1 97 25 add
{ char exch 0 exch put
char show } for
} def
50 300 moveto small
50 250 moveto caps
/simplex findfont 20 scalefont setfont
50 200 moveto small
50 150 moveto caps
restore