1 &version 2
 2 &- ***********************************************************
 3 &- *                                                         *
 4 &- * Copyright, (C) Honeywell Information Systems Inc., 1983 *
 5 &- *                                                         *
 6 &- ***********************************************************
 7 &- Author:    Ron Barstad     1982
 8 &- Modified:  Ron Barstad     1982      Added mode parameter
 9 &- Modified:  Ron Barstad     83-04-18  Changed max size to 20 times current
10 &trace &command off
11 &trace &input off
12 &if [exists argument &1] &then &goto cont
13 string USAGE: ec &ec_name GCOS_FILE_NAME {mode}
14 &quit
15 
16 &label cont
17 &if [exists branch &1] &then &goto cont2
18 string &ec_name.ec: Segment &1 unknown. Quiting.
19 &quit
20 
21 &label cont2
22 &goto &ec_name
23 
24 &label query_init
25 &label attr
26 add_name &1 &1.mode.[response "mode: r or s?"]
27 add_name &1 &1.maxl.[response "maxl: #llinks?"]
28 add_name &1 &1.curl.[response "curl: #llinks?"]
29 add_name &1 &1.attr.[response "attr: 12octal?"]
30 add_name &1 &1.busy.[response "busy: yes or no?"]
31 add_name &1 &1.null.[response "null: yes or no?"]
32 add_name &1 &1.noal.[response "noal: #allocations?"]
33 add_name &1 &1.crdt.[response "crdt: MMDDYY?"]
34 &quit
35 
36 &label init
37 &label gcos_file_attributes
38 &label gtss_file_attributes
39 &label gfa
40 &default &undefined s
41 &if &[equal &[search &2 rs] 1] &then &goto add_n
42 string &ec_name.ec: Mode "&r2" unknown, must be r or s. Quiting.
43 &quit
44 
45 &label add_n
46 &set llinks [ceil [quotient [times [status &1 -cl] 1024] 320]]
47 add_name &1 &1.mode.[substr &2 1 1]
48 add_name &1 &1.maxl.[times &(llinks) 20]
49 add_name &1 &1.curl.&(llinks)
50 add_name &1 &1.attr.0
51 add_name &1 &1.busy.no
52 add_name &1 &1.null.no
53 add_name &1 &1.noal.0
54 add_name &1 &1.crdt.[substr [date] 1 2][substr [date] 4 2][substr [date] 7 2]
55 &quit