d$!{DO} SOS {file} $! Set up the SOS prompts for a VT-100 ,$! $! Thanks to Gary Lee $! X$! end.of.info $ $ on control then goto sosfin $ write sys$output "<" $ write sys$output "" L$ write sys$output "",- "Alter{rng} Copy{pos}{=file},{rng}{/C} Delete{rng} Exit{B Q S T} " $ write sys$output - x"Help{;n} Input{pos}{;inc} Join{pos} Killpage/ List{rng} Mark{pos} " $ write sys$output - @"Number{,rng{,bgn}} Print{,Seq} Replace{;inc} " $ write sys$output - "Substitute$${rng} Transfer, World eXtend{rng}",- l"" $ write sys$output "" 4$ $! now set up for editor $ ` $ if( p1.eqs."" ) then inquire p1 "$_File" $ if( p1.eqs."" ) then goto sosfin ( $ assign/user tt: sys$input $ edit 'p1 'p2 'p3 'p4 'p5 'p6 'p7 'p8 $ T $sosfin: $ write sys$output "",-  " " $ write sys$output - " " H $ write sys$output - " " $ write sys$output - t" " $ write sys$output "[?2l"