home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMIGA PD 1
/
AMIGA-PD-1.iso
/
Programme_zum_Heft
/
Anwendungen
/
Kurztests
/
PostScript
/
PsIntrp
/
psedit
< prev
next >
Wrap
Text File
|
1987-09-06
|
718b
|
50 lines
save
/infile (%stdin) (r) file def
/conin { infile read pop } def
/char 1 string def
/buf 80 string def
/leftmargin 50 def
/lineheight 20 def
/cursorheight lineheight 5 sub def
/hpos 50 def
/vpos 300 def
/cursoron {
currentpoint
3 pencolor 2 penmode
currentpoint cursorheight add
2 copy
exch 10 add exch lineheight sub
box
moveto
1 pencolor 1 penmode
} def
/newline { currentpoint exch pop leftmargin exch
lineheight sub moveto } def
/edit {
{
newpath
cursoron
char 0 conin put
cursoron
char 0 get 27 eq {exit} if
char 0 get 13 eq {newline} if
char 0 get 32 ge {char show} if
}
loop
} def
/simplex findfont 15 scalefont setfont
hpos vpos moveto
edit
restore