* UP zur Anzeige/Eingabe der Rubriken
erase
sele seco
go top
@ 0,70 say date()
?'                            R u b r i k e n'
?'              CAOS:         ===============        MicroDOS:'
?'              -----                                ---------'
?
store 4 to z1
store 4 to z2
do while .not.eof
 do case
  case system="C"
   @ z1,3 say str(#,2)+' ... '+kurz
   store z1+1 to z1
  case system="M"
   @ z2,41 say str(#,2)+' ... '+kurz
   store z2+1 to z2
 endcase
 skip
enddo
if input
 STORE '  ' to rub
 @ 23,0 say 'Bitte Rubrik ausw{hlen ' get rub pict '99'
 @ 23,29 say stext
 read
 if val(rub)>0 .and. val(rub)<10
  store '0'+str(val(rub),1) to rub
 endif
 IF val(rub)>0 .AND. val(rub)<=maxr
  GO &rub
  store text to stext
  store kurz to skurz
 else
  store ' ' to stext
  store ' ' to skurz
 endif
else
 @ 23,0 say '[nderungen vornehmen (J/N) '
 set console off
 wait to wahl
 set console on
 do while !(wahl)="J"
  store t to input
  store '(nur RETURN = Abbruch)' to stext
  do rubrik
  if rub #' '
   sele seco
   if val(rub)>maxr
    appe blank
    store # to maxr
   endif
   erase
   @ 0,70 say date()
   @ 2,5 say '[nderungen in den Rubriken vornehmen'
   @ 3,5 say '------------------------------------'
   @ 6,5 say 'Rubrik: '+STR(#,2)
   @ 9,5 say 'Beschreibung als kurzer und langer Text:'
   @ 10,5 say 'Kurz   ' get kurz
   @ 11,5 say 'Lang   ' get text
   @ 14,5 say 'System ' get system pict '!'
   @ 14,22 say '(C f}r CAOS, M f}r MicroDOS und CP/M)'
   read
   @ 17,5 say 'Angaben zur Quelle ' get quelle
   if system="C"
    @ 19,24 say ':Aadr Eadr Sadr: (als Beispiel)'
   else
    @ 19,24 say ':L{nge:        : (als Beispiel)'
   endif
   read
   @ 23,0 say 'Weitere [nderungen (J/N) '
   set console off
   wait to wahl
   set console on
  else
   store 'N' to wahl
  endif
 enddo
endif
sele prim
return
tore z1+1 to z1
  case system="M"
   @ z2,41 say str(#,2)+' ... '+kurz
   store z2+1 to z2
 endcase
 skip
enddo
if input