;Reading at top level in Lisp Listener 1.
;Reading in base 10 in package USER with standard Zetalisp readtable.

@i[(ftp:ftp 'lmi-vax)]
Connected to LMI-VAX
220 lmi-vax FTP server (Version 4.91 Fri Mar 15 12:12:27 PST 1985) ready.
(username) @i(keith)
331 Password required for keith.
(password) 
230 User logged in.
ftp> @i(pwd)
251 "_DBA4:[USERS.KEITH]" is current directory.
ftp> @i(dir l*.com;)
200 PORT command okay.
150 Opening data connection for l*.com; (101.0.0.222,283).
RWED	[300,000]	     1/3  17-OCT-1986 19:34  labelq.com;12
RWED	[300,000]	     1/3  17-OCT-1986 19:32  labelqs.com;6
RWED	[300,000]	     1/3  24-NOV-1986 16:07  labler.com;2
RWED	[300,000]	     1/3  17-OCT-1986 20:38  labs.com;8
RWED	[300,000]	     2/3  22-OCT-1986 21:17  login.com;82
226 Transfer complete.
275 bytes received in 1.18 seconds (0.23 Kbytes per second)
ftp> @i(get login.com temp;login.com)
200 PORT command okay.
150 Opening data connection for login.com (101.0.0.222,284).
226 Transfer complete.
683 bytes received in 0.15 seconds (4.55 Kbytes per second)
ftp> @i(dir [copy] temp;copy-dirlist)
200 PORT command okay.
150 Opening data connection for [copy] (101.0.0.222,285).
226 Transfer complete.
81 bytes received in 0.03 seconds (2.43 Kbytes per second)
ftp> @i(quit)
221 Goodbye.

NIL