maxline - 1 ; } if ( (temp += page_size[termtype]) >= *maxline ) then temp = *maxline-1; *lochigh = temp ; } lreset() { scunloadline() ; } creset() { extern int chposition, curposition ; curposition = 1 ; chposition = 0 ; } retype() { lposition() ; lkill() ; dumpworkbuffer() ; scmove() ; } goback() { extern int fastio ; register int save ; save = fastio ; fastio = 0 ; scmove() ; fastio = save ; } vtbell() { putbin("\07",1); } gettxtsave(where) int where; { extern struct textline txtsave ; extern int worklength ; extern char workbuffer[] ; register char *gp,*wp ; register int i ; gp = txtsave.c ; wp = workbuffer ; for (i=where; i= worklength ) then creset() ; return(count) ; } delboln(where) int where ; { extern struct deltype lastdeleted ; register int i ; register char savech ; savech = lastdeleted.lastc ; txtmod() ; for ( i=0; i= worklength) then return(true) ; ch = workbuffer[chposition] ; return ( ch== CR || ch==LF || ch==FF ) ; } attabspace() { extern int chposition, curposition, worklength ; extern char workbuffer[] ; register char ch ; ch = workbuffer[chposition] ; return ( ch==SPACE || ch ==TAB ) ; } atworddelim() { extern int chposition, curposition, worklength ; extern char workbuffer[] ; register char ch, *cp ; extern char worddelim[] ; ch = workbuffer[chposition] ; if ( ch == SPACE || ch==TAB ) then return(1) ; else { cp = worddelim ; while (*cp != 0) if (ch == *cp++) then return(1) ; return(0) ; } } scttin() { return(1) ; } putcrlf() { putbin("\015\012",2) ; } putcr() { putbin("\015",1) ; } redolines() { } inscheck() { /* extern int doiref,inmode ; if ( inmode == 0 ) then scunloadline() ; else { lreset() ; if ( doiref ) then retype() ; } */ } ckmacro() { } scdecout(val) int val ; { char s[10] ; sxprintf(s,"%7d",val) ; putbin(s,7) ; } SCUTILC [.050036]SCUTIL.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]Ze@@|> | |v<H|  |  |xz|  |zt f r   < &^ @&@'*/V,"?Lh:hmBmz|z{x`y~|fN|@@|@͂|@ ݃ƃ<ns<|Ŏ |️|ep|u|-@率|<ᄇ2ֻr||ZRM | ntB|xyvZw|J=|R>|J? nnaa|bddf