!HDWSYS1.IPF-mod standard file for Tracy herbarium stuff - 18/6/96
e.lnum=5;e.deci=1;e.lstr=80;e.dtyp="d" /*added dtyp 19/1/90*/
wstart1=0;dim wstart2(6);e.forg="WWWCW";e.bacg="UUUAA"
wstart2(1)="  DATA INPUT    "
wstart2(2)="     EDIT       "
wstart2(3)=" EDIT LOOKUPS   "
wstart2(4)="   NEW START    "
wstart2(5)="      KMAN      "
wstart2(6)="       OS       "
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
macro go perform hdwsys1
macro toes cd "c:\\kman\\toes"
macro taes cd "c:\\kman\\taes"
macro ftc cd "c:\\kman\\ftcnames" !ADDED 8/10/95
macro tracy cd "c:\\kman\\tracy" !ADDED 18/6/96
macro home finish all;release all;cd "c:\\kman";perform hdwsys1
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
	load 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
	release 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;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;perform edidrive;break
  CASE 4: release 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 hdwsys1;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;release perform all;wstart1=1;qqout=0;finish all;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;qqout=1;wstart1=1;break
 endtest
 e.forg="WWWCW";e.bacg="UUUAA"
endwhile
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
macro b201 cd "c:\\kman\\tfp"
macro dna cd "c:\\kman\\dna"
macro iso cd "c:\\kman\\isoch"
macro flo cd "c:\\kman\\loc"
macro loc cd "c:\\kman\\loc"
macro ger cd "c:\\kman\\ger"
macro spir cd "c:\\kman\\spir"
macro pig cd "c:\\kman\\pig"
macro b201 cd "c:\\kman\\tfp"
macro MYLAB cd "c:\\kman\\lab"
macro herb cd "c:\\kman\\herb"
macro rbcl cd "c:\\kman\\rbcl"
macro home cd "c:\\kman"
macro toes cd "c:\\kman\\toes"
macro taes cd "c:\\kman\\taes"
macro ftc cd "c:\\kman\\ftcnames" !ADDED 8/10/95
macro tracy cd "c:\\kman\\tracy" !ADDED 18/6/96
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
e.serr=true
if qqout=1 then
 release wstart2,qqout,wstart1;bye
else
 release wstart2,qqout,wstart1,qsys;e.wfu=true
endif
e.serr=false
sleep(1);e.forg="WWWWW";e.bacg="UUUUA";clear