Subversion Repositories wimsdev

Rev

Rev 13981 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13981 Rev 17978
Line 38... Line 38...
38 
  readhist=!line 1 to $readcnt of $readhist
 38 
  readhist=!line 1 to $readcnt of $readhist
39 
  !advance readcnt
 39 
  !advance readcnt
40 
  readhist=!append line $doc,$block to $readhist
 40 
  readhist=!append line $doc,$block to $readhist
41 
  !if $readcnt>50
 41 
  !if $readcnt>50
42 
    readhist=!line -50 to -1 of $readhist
 42 
    readhist=!line -50 to -1 of $readhist
43 
   readcnt=!linecnt $readhist
 43 
    readcnt=!linecnt $readhist
44 
  !endif
 44 
  !endif
45 
!else
 45 
!else
46 
  rlast=!line $readcnt-1 of $readhist
 46 
  rlast=!line $readcnt-1 of $readhist
47 
  !distribute item $rlast into doclast,blocklast
 47 
  !distribute item $rlast into doclast,blocklast
48 
!endif
 48 
!endif