home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
j
/
dos
/
w.js
< prev
next >
Wrap
Text File
|
1992-10-27
|
515b
|
29 lines
NB. Utilities for working with Windows
ht =. 9{a.
lf =. 10{a.
cr =. 13{a.
crlf =. 13 10{a.
eof =. 26{a.
ff =. {:a.
host =. 0!:0
read =. 1!:1
wd =. 11!:0
wp =. wd@(-.&eof)@read
wwait =. wd@('wait; '&[)
wget =. ({."1@] i. <@[) {:@{ ]
quit =. ('*id';'quit')&e.
ctext =. ('ctext ',ff)&,@(,&(ff,';'))@,
t=.i.0 0
t=.t, ' prolog 0'
t=.t, ' t=.wwait 0'
t=.t, 'loop)'
t=.t, ' t=.iter t'
t=.t, ' $.=.>(quit t){loop;end'
t=.t, 'end)'
t=.t, ' epilog 0'
f =. t : ''