!TAESGO1.IPF - mod from TAESGO.IPF- to run tracy phase I edit/report stuff
!27/7/96
byebye=0
wstart1=0;dim wstart2a(3);e.forg="WWWOW";e.bacg="UUUAA"
wstart2a(1)="  SINGLE RECORD/ACCESSION NUMBER   "
wstart2a(2)="       CHANGE NOMENCLATURE         "
wstart2a(3)="       RETURN TO MAIN MENU         "
while wstart1=0 do
 /*OSCREEN.IPF - opening screen thing - 11/91*/
 clear
 ymark=2;xleft=23;xright=80
 while ymark lt 10 do
  FORM OSCREEN 
 	AT ymark, ymark TO xleft, xright PUT BORDER "FCBA" 
  ENDFORM 
  putform oscreen
  ymark=ymark+1;xleft=xleft-1;xright=xright-1
  release oscreen
 endwhile
/*MAIN LOOP*/ 
 e.forg="WWWOG"
 @1,2?"                     S. M. Tracy Herbarium - Data Editing                 "
 @24,2?"'SINGLE RECORD' is the ONLY option working right now -- ",time()," ",#date
 test menu(wstart2a,1,3,11,25,0,38,1)
  CASE 1:/*SINGLE RECORD BY ACCESSION #*/ 
	ymark=1;xleft=23;xright=80
	while ymark lt 12 do
	 FORM OSCREEN 
		AT ymark, ymark TO xleft, xright PUT BORDER "FABA" 
 	ENDFORM 
	 putform oscreen
	 ymark=ymark+1;xleft=xleft-1;xright=xright-1
	 release oscreen
	endwhile;clear;perform tracyed1
	break
  CASE 2:  !CHANGE PLANT NAME
	ymark=1;xleft=23;xright=80
	while ymark lt 12 do
	 FORM OSCREEN 
		AT ymark, ymark TO xleft, xright PUT BORDER "FABA" 
 	ENDFORM 
	 putform oscreen
	 ymark=ymark+1;xleft=xleft-1;xright=xright-1
	 release oscreen
	endwhile
	clear;@10,2?"System not ready yet - hit any key";wait;wstart1=0;break
  CASE 3: 
	ymark=1;xleft=23;xright=80
	while ymark lt 12 do
	 FORM OSCREEN 
		AT ymark, ymark TO xleft, xright PUT BORDER "FABA" 
 	ENDFORM 
	 putform oscreen
	 ymark=ymark+1;xleft=xleft-1;xright=xright-1
	 release oscreen
	endwhile
	wstart1=1;break
 endtest
 e.forg="WWWCW";e.bacg="UUUAA"
 if wstart1 ne 0 then;break;endif
endwhile
release wstart2a
wstart1=0;clear;finish taesdata;return