4 <ENTRY GNJFN NEXT-FILE>
6 <COND (<NOT <GASSIGNED? NEW-CHANNEL-TYPE>> <SETG NEW-CHANNEL-TYPE ,TIME>)>
8 <NEW-CHANNEL-TYPE GNJFN DEFAULT OPEN GNJFN-OPEN CLOSE GNJFN-CLOSE NEXT-FILE GNJFN-STEP>
11 <GFCN
\1aGNJFN-OPEN ("VALUE" <OR FALSE <VECTOR FIX <PRIMTYPE WORD>>> ANY ANY STRING) STYPE4 OPR5 NAME6>
14 <SYSOP 'GTJFN-S-S 8611168256 NAME6 = JFN7>
17 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
18 <AND JFN7 #WORD *777777* = STACK>
21 <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP10>
28 <GFCN
\1aGNJFN-STEP ("VALUE" <OR FALSE <VECTOR FIX ANY>> CHANNEL ANY) CHANNEL4 OPER5>
29 <TEMP VEC6:VECTOR TEMP11 TEMP10>
31 <NTHUV CHANNEL4 5 = VEC6 (TYPE VECTOR)>
33 <NTHUV VEC6 2 = TEMP11>
34 <SYSOP 'GNJFN TEMP11 (RETURN 1) = TEMP11>
36 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
47 <GFCN
\1aGNJFN-CLOSE ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
50 <NTHUV CHANNEL4 5 = VEC6 (TYPE VECTOR)>
53 <SYSOP 'RLJFN VEC6 = VEC6>
58 <NEW-CHANNEL-TYPE PARSE DEFAULT OPEN PARSE-OPEN CLOSE PARSE-CLOSE>
61 <GFCN
\1aVALUE? ("VALUE" <OR FIX STRING> ATOM) ATM4>
64 <GEN-ASSIGNED? ATM4 - PHRASE7>
65 <GEN-LVAL ATM4 = TEMP8>
69 <NTHR ATM4 1 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG14)>
70 <TYPE? TEMP8 <TYPE-CODE FALSE> + TAG14>
71 <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE GBIND)>
72 <TYPE? TEMP8 <TYPE-CODE UNBOUND> - TAG13>
75 <SET TEMP8 %<> (TYPE FALSE)>
81 <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL18>
82 <TYPE? TEMP8 <TYPE-CODE FIX> + BOOL18>
83 <EMPUS? TEMP8 - PHRASE17 (TYPE STRING)>
92 <GFCN
\1aPARSE-OPEN ("VALUE" <OR FALSE <VECTOR FIX [REST FIX]>> ANY ANY STRING "OPTIONAL" <OR FIX STRING> <OR FIX STRING> <OR FIX STRING> <OR FIX STRING>) TYP9 OPER10 NAME11 NM112 NM213 DEV14 SNM15>
93 <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
105 <TYPE? NM112 <TYPE-CODE UNBOUND> - TAG17>
108 <CALL '
\1aVALUE? 1 = NM112>
110 <TYPE? NM213 <TYPE-CODE UNBOUND> - TAG20>
113 <CALL '
\1aVALUE? 1 = NM213>
115 <TYPE? DEV14 <TYPE-CODE UNBOUND> - TAG23>
118 <CALL '
\1aVALUE? 1 = DEV14>
120 <TYPE? SNM15 <TYPE-CODE UNBOUND> - TAG26>
123 <CALL '
\1aVALUE? 1 = SNM15>
125 <SYSOP 'GTJFN-L NAME11 8388608 34359607295 DEV14 SNM15 NM112 NM213 0 0 0 = JFN16>
126 <DEAD NAME11 DEV14 SNM15 NM112 NM213>
128 <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE30>
131 <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP31>
138 <GFCN
\1aPARSE-CLOSE ("VALUE" ANY CHANNEL ANY) CH4 OPER5>
141 <NTHUV CH4 5 = DATA6 (TYPE VECTOR)>
143 <NTHUV DATA6 1 = DATA6 (TYPE FIX)>
144 <SYSOP 'RLJFN DATA6 = DATA6>