= inline.c ; *savecp = 0 ; lastch = 0 ; while ( (ch = pgetch(&nlines)) != -1 ) { if ( ch == SPACE ) then { savecp = inline.c ; mark = offset ; } if ( !(ch == SPACE && lastch == SPACE )) then { *savecp++ = ch ; *savecp = '\0' ; *cp++ = ch ; offset++ ; } lastch = ch ; if ( offset >= fillsize ) then { if ( mark == 0 ) then mark = offset ; txtsave.len=lnfill(txtsave.c,mark,fillsize) ; txtsave.c[txtsave.len++] = CR ; txtsave.c[txtsave.len++] = LF ; for ( i=txtsave.len,cp=txtsave.c; i > 0; i-- ) if ( *cp == RUB ) *cp++ = ' '; else cp++ ; putline( outlun,txtsave.c,txtsave.len ) ; cp = txtsave.c ; savecp = inline.c ; offset = 0 ; if (*savecp == SPACE) then savecp++ ; while (*savecp != '\0') { *cp++ = *savecp++ ; offset++ ; } savecp = inline.c ; *savecp = '\0' ; mark = 0 ; } } *cp++ = CR ; /* dump partial buffer out please */ *cp++ = LF ; /* without filling the last line */ putline( outlun,txtsave.c,offset+2 ) ; *curline = oldcurline ; scloadline() ; closef(outlun) ; for (ch=0;ch= worklength ) then { if ( --(*nlines) == 0 ) then return(-1) ; lpt = 0 ; (*curline)++ ; scloadline() ; } return(workbuffer[lpt++]) ; } vtfsave() { register int len,status ; extern char *infile[] ; extern int *maxline,outlun,w ; char f[_FILESIZE] ; strcpy(f,infile[w]) ; if ( f[0] == 0 ) then { movel24() ; ceol24() ; len = trimjunk(f,lgetbin(f,"Filename ? ")) ; goback() ; f[len] = 0 ; if ( f[0] == 0 ) then return(0) ; } ; if ( (status = openfi(f,outlun)) != sys_normal ) then scerrtxt("Can not open file\015\012") ; else { scunloadline() ; ceol24() ; rvon() ; putbin("Writing ",0) ; putbin(infile[w],0) ; rvoff() ; listlines(1,*maxline-2,outlun) ; closef(outlun) ; scwarning(w_clear) ; status = sys_normal ; scloadline() ; } return( status ) ; } vtfwrite() { char f[_FILESIZE] ; register int len,status,lastline ; extern int outlun,*curline,cut_st,read_only ; if ( cut_st == 0 || cut_st > *curline ) then { scwarning(w_nocu) ; return(0) ; } movel24() ; ceol24() ; status = 0 ; if ( (len = trimjunk(f,lgetbin(f,"Filename ? "))) > 0 ) then { f[len] = 0 ; if ( (status = openfi(f,outlun)) != sys_normal) then scerrtxt("Can not create the file") ; else { if ( --(*curline) - cut_st <= 0 ) then (*curline)++ ; lastline = (read_only) ? (*curline)-1:(*curline) ; scunloadline() ; scwarning(w_work) ; listlines(cut_st,lastline,outlun) ; closef(outlun) ; scwarning(w_clear) ; scloadline() ; status = sys_normal ; } } cut_st = 0 ; ledoff(l_select) ; goback() ; return( status ) ; } vtfque() { register int len,status ; extern int outlun,*curline,cut_st ; char f[64] ; if ( cut_st == 0 || cut_st > *curline ) then { scwarning(w_nocu) ; return(0) ; } movel24() ; ceol24() ; status = 0 ; getuniquefile(f) ; if ( (status = openfi(f,outlun)) != sys_normal) then scerrtxt("Can not create work file") ; else { scunloadline() ; scwarning(w_work) ; listlines(cut_st,*curline,outlun) ; closef(outlun) ; quefile(f) ; scwarning(w_clear) ; scloadline() ; status = sys_normal ; } cut_st = 0 ; ledoff(l_select) ; goback() ; return( status ) ; } SCFILEC [.050036]SCFILE.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