!if $block=main
  module_title=$tit
!else
  module_title=$tit / $titb
!endif
!if robot isin $session
  !exit
!endif

!if $doctoc=yes and $block!=doctoc
  !set header=$header\
  
!endif

sheetdata=

!if $foldin!=$empty
  foldin=!word 1 of $foldin
  foldin=!char 1 to 50 of $foldin
  foldlist=!item 1 to 200 of $foldlist
  foldlist=!listunion $foldlist and $doc/$foldin
!endif

!if $foldout!=$empty
  foldlist=!listcomplement $doc/$foldout in $foldlist
!endif

!bound readcntadv between integer -1 and 1 default 0
readcnt=$[max(0,$readcnt+($readcntadv))]
!if $readcnt>0
  rlast=!line $readcnt of $readhist
!endif
!distribute item $rlast into doclast,blocklast

!if $doc,$block!=$doclast,$blocklast
  readhist=!line 1 to $readcnt of $readhist
  !advance readcnt
  readhist=!append line $doc,$block to $readhist
  !if $readcnt>50
    readhist=!line -50 to -1 of $readhist
    readcnt=!linecnt $readhist
  !endif
!else
  rlast=!line $readcnt-1 of $readhist
  !distribute item $rlast into doclast,blocklast
!endif

histtot=!linecnt $readhist
!if $readcnt<$histtot
  rnext=!line $readcnt+1 of $readhist
  !distribute item $rnext into docnext,blocknext
!endif

!read popup.proc
!read readdates.proc
