) (JFN <1 .DATA>) STS) #DECL ((CHANNEL) T$CHANNEL (DATA) < FIX> (STS) FIX) '(RETURN 2)>> "CLOSED") (>> > "APPEND") (T "MODIFY")>) (>> "READ")>)>> ) (JFN <1 .DATA>) SZ) #DECL ((CHANNEL) T$CHANNEL (DATA) < FIX>) > "ASCII") (<==? .SZ 8> "8BIT") (<==? .SZ 36> "BINARY") (T .SZ)>)>> )) #DECL ((CHANNEL) T$CHANNEL (DATA) < FIX>) *001110000001*>> )) #DECL ((CHANNEL) T$CHANNEL (DATA) < FIX>) *001000000000*>> )) #DECL ((CHANNEL) T$CHANNEL (DATA) < FIX>) *000100000000*>> )) #DECL ((CHANNEL) T$CHANNEL (DATA) < FIX>) *100000000000*>> )) #DECL ((CHANNEL) T$CHANNEL (DATA) < FIX> (STR) ) *010000000000*>> >>> <==? > ,/DVDSK>> >> ) (.STR)>> ) (ARGBITS 1)) #DECL ((CHANNEL) T$CHANNEL (DATA) < FIX>) >> >)> >> >)> >> >)> >> >)> >> >)> .ARGBITS>> (NS STR) STRING) > <==? .JFN ,/PRIIN>> > "") (<0? > "TTY") (T "TTY:")>) (> > >> .STR .NS> .NS)>> ) VAL) #DECL ((CHANNEL) T$CHANNEL (DATA) < FIX>) > *4000000000*>>> .VAL) (T .VAL)>> ) UV (JFN *777777*>)) #DECL ((CHANNEL) T$CHANNEL (OPR) T$ATOM (NEW) FIX (DATA) < FIX> (UV) ) > >)> > <3 .UV>) (<1 .UV>)>)>) (T <1 .UV -1> <2 .UV -1> <3 .UV -1> <3 .UV .NEW>) (<1 .UV .NEW>)> .NEW)>)>>