  PROC open'new(file'name$,post@,REF id#,number) CLOSED  
  PROC open'old(file'name$,post@,REF id#) CLOSED  
  PROC close'db(id#) CLOSED  
  PROC add'post(id#,post@,REF after(,),REF postid#) CLOSED  
  PROC rem'post(id#,postid#) CLOSED  
  PROC list'all(id#,post@,REF list'proc(,,)) CLOSED  
