1 
 2 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
 3 " BEGIN telnet_command_macros.incl.mexp
 4 "
 5 "         This is a macro include file which contains the macros used
 6 "         in the command tables for the user_ftp and user_telnet commands.
 7 "
 8 "
 9 "         Originally created by D. M. Wells, August, 1975 by separating
10 "                   from the source file.
11 "
12 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
13 
14           &macro    table_start
15           set       command_counter,0
16           use       table_area
17           segdef    &1
18 &1:
19           vfd       36/&1_count
20           &end
21 
22           &macro    table_finish
23           set       &1_count,command_counter
24           &end
25 
26           &macro    command
27           set       command_counter,command_counter+1
28           use       table_area
29           arg       &u
30           use       string_area
31 &p:
32           acc       "&1"
33           use       table_area
34           ife       &4,OK
35           vfd       18/0,18/1
36           ifend
37           ine       &4,OK
38           vfd       18/0,18/0
39           ifend
40           getlp
41           tra       <&2>|[&3]
42 
43           ife       &5,NOLIST
44           arg       0
45           ifend
46           ine       &5,NOLIST
47           arg       &u
48           use       comment_area
49 &p:
50           acc       "&5"
51           use       table_area
52           ifend
53           &end
54 
55 "
56 " END telnet_command_macros.incl.mexp
57 "