!TAESGO.IPF - mod from HDWSYS1.IPF- to run tracy phase I from KMAN/tracy
!20/6/96
byebye=0
wstart1=0;dim wstart2(6);e.forg="WWWCW";e.bacg="UUUAA"
wstart2(1)="    DATA INPUT   "
wstart2(2)="  EDIT CORE DATA "
wstart2(3)="   EDIT LOOKUPS  "
wstart2(4)="   OUTPUT ASCII  "
wstart2(5)=" TO KMAN COMMAND "
wstart2(6)=" BACK TO WINDOWS "
while wstart1=0 do
 /*OSCREEN.IPF - opening screen thing - 11/91*/
 clear
 ymark=1;xleft=23;xright=80
 while ymark lt 11 do
  FORM OSCREEN 
 	AT ymark, ymark TO xleft, xright PUT BORDER "FOBA" 
  ENDFORM 
  putform oscreen
  ymark=ymark+1;xleft=xleft-1;xright=xright-1
  release oscreen
 endwhile
/*MAIN LOOP*/ 
 e.forg="WWWCG";@11,24?"Data Management System - S. M. Tracy Herbarium "
 @24,2?"'DATA INPUT' is the ONLY option working right now -- ",time()," ",#date
 test menu(wstart2,1,6,12,15,0,18,3)
  CASE 1:/*BIOSYSTEMATICS*/ 
        tracy
	perform tracyin4
	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 tracyin4
	break
  CASE 2: 
	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?"Option not available yet - hit any key";wait;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
	clear;@10,2?"Option not available yet - hit any key";wait;break
  CASE 4: 
	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?"Option not available yet - hit any key";wait;break
  CASE 5: 
	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;wstart1=1;byebye=0;break
  CASE 6: 
	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;byebye=1;wstart1=1;break
 endtest
 e.forg="WWWCW";e.bacg="UUUAA"
 if wstart1 ne 0 then;break;endif
endwhile
if byebye=1 then;bye;endif
release wstart1,ymark,xright,xleft,wstart2,byebye
macro yprint e.oprn=true
macro nprint e.oprn=false
macro ypause e.paus=true
macro ystat e.stat=true
macro nstat e.stat=false
macro npause e.paus=false
macro ystep e.step=true
macro nstep e.step=false
macro listv ypause;show variables;npause
macro listp ypause;show perform;npause
macro liste ypause;show environment;npause
macro lista ypause;show array;npause
macro listm ypause;show macro;npause
macro listf ypause;show form;npause
macro listmem e.lnum=9;?"Current memory is: ",mem();e.lnum=5
if substr(#date,5,1)="1" then;#PROMPT="Yo?:";endif
if substr(#date,5,1)="2" then;#PROMPT="Now what?:";endif
if substr(#date,5,1)="3" then;#PROMPT="Say what?:";endif
if substr(#date,5,1)="4" then;#PROMPT="?:";endif
if substr(#date,5,1)="5" then;#PROMPT=">:";endif
if substr(#date,5,1)="6" then;#PROMPT="READY:";endif
if substr(#date,5,1)="7" then;#PROMPT="Say what?";endif
if substr(#date,5,1)="8" then;#PROMPT="INPUT:";endif
if substr(#date,5,1)="9" then;#PROMPT="Say what?";endif
if substr(#date,5,1)="0" then;#PROMPT="Yes?:";endif
sleep(1);e.forg="WWWWW";e.bacg="UUUUA";clear;stop