t ) then { if ( dir > 0 ) then lreverse(); else lnext() ; scmove() ; dumpworkbuffer() ; } rstcursor(temp) ; } else scloadline() ; scmove() ; disbuffering() ; } static rstcursor(where) register int where ; { extern int curposition ; creset() ; while ( curposition < where && atcrlf() == 0 ) pinc() ; if (curposition > where) then pdec() ; return( chposition ) ; } /* move left or right in current line */ /* If at EOLN, then goto previous or next line */ vtel() { extern int chposition,fastio ; chkselect() ; if ( atcrlf() == 0 ) then fastio = 1 ; if ( chposition == 0 ) then { creset() ; mvup() ; findeoln() ; } else { pdec() ; } scmove() ; fastio = 0 ; } vter() { extern int fastio ; if ( read_only == 0 ) then { chkselect() ; fastio = 1 ; if ( atcrlf() == 0 ) then pinc() ; else { fastio = 0 ; creset() ; mvdown() ; if ( read_only ) then creset() ; } scmove() ; fastio = 0 ; } } static fin() { chkselect() ; scloadline() ; scmove() ; return(1) ; } static char delayc[] = { 0,0,0,0,0,0,0,0,0,0 } ; static delay() { putbin(delayc,10) ; } vtnextpage() { extern int curposition,*loclow,termtype,page_size[],ttastarm ; extern int mactimes ; register int oldcurposition,oldloclow ; if ( mactimes <= 0 ) then ttastarm = 1 ; oldloclow = *loclow ; oldcurposition = curposition ; newpage(*loclow+page_size[termtype]) ; rstcursor( oldcurposition ) ; fin() ; if (oldloclow == *loclow) then vtbotpage() ; ttastarm = 0 ; } vtprevpage() { extern int curposition,*loclow,termtype,page_size[],ttastarm ; extern int mactimes ; register int oldcurposition ; if ( mactimes <= 0 ) then ttastarm = 1 ; oldcurposition = curposition ; newpage(*loclow-page_size[termtype]); rstcursor( oldcurposition ) ; fin() ; ttastarm = 0 ; } vttoppage() { topbot(1) ; return(1) ; } vtbotpage() { topbot(0) ; return(1) ; } static topbot(dir) int dir ; { extern int curposition,*loclow,*lochigh ; register int temp ; scunloadline() ; temp = curposition ; creset() ; if (dir) then *curline = *loclow ; else *curline = *lochigh ; scloadline() ; if ( read_only == 0 ) then rstcursor(temp) ; chkselect() ; scmove () ; } vtfirstpage() { extern int curposition,*loclow,*lochigh ; scunloadline() ; creset() ; newpage(1) ; fin() ; } vtlastpage() { extern int curposition,*loclow,*lochigh,*maxline ; register int temp ; scunloadline() ; creset() ; if ((temp = *maxline - page_size[termtype] - 1) < 1) then temp = 1 ; newpage(temp) ; fin() ; } vtnxtword() { if ( atcrlf() ) then vter() ; else { nextword() ; scmove() ; } return(1) ; } vtlstword() { extern int chposition ; if ( chposition == 0 ) then vtel() ; lastword() ; scmove() ; return(1) ; } nextword() { while ( atcrlf() == 0 && atworddelim() == 0 ) pinc() ; while ( atcrlf() == 0 && atworddelim() ) pinc() ; return(1) ; } lastword() { extern int chposition ; while ( chposition > 0 && atworddelim() == 0 ) pdec() ; while ( chposition > 0 && atworddelim() ) pdec() ; return(1) ; } vteoln() { extern int linenext ; if ( linenext && atcrlf() ) then vter() ; else { creset() ; findeoln() ; scmove() ; return(1) ; } } vtboln() { creset() ; scmove() ; return(1) ; } vtbline() { extern int chposition,doxla,worklength ; extern char workbuffer[] ; register char *cp ; register int i ; if ( doxla ) then { cp = &workbuffer[chposition] ; for ( i=chposition; i *curline ) then { cut_st = 0 ; ledoff( l_select ) ; return(0) ; } else return(1) ; } SCUPDOC [.050036]SCUPDO.C [.050036]   X14|H [4;Ik(&'( k ߫H&P` \RrPP2PPzPP{PPPPP2P~\$\\TD 0D \~ hi) +\ ^( n ^( np\^txY\^ˀ\!kVk<\F˰<˴ˬ\VVkˤ1`@lP ABCDEFGHIJKLMNOPQRSTUVWXYZ$.?0123456789<@<SЬTЬ UQS>?\\\\\\\\\`:#@'="\abcdefghi\\\\\\\jklmnopqr\\\\\\\~stuvwxyz\\\\\\\\\\\\\\\\\\\\\\{ABCDEFGHI\\\\\\}JKLMNOPQR\\\\\\\\STUVWXYZ\\\\\\0123456789\\\\\  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~@ggh<i|o<m<4p<p<k|Zn<l fr rwx<x<x<x޺<w@]@@fjnr]