C**************************************************************
C	This program can be used to digitize waveforms and to
C	put the data into a file called for90.dat
C	You must be at the Big Bertha in order to use it
C	David A. Drake
C	Oak Industries Advanced Technology group
C	September 4,1981
C**************************************************************
	CHARACTER*1 bell
	Real x,y,z
	bell=char(07)
	CALL HPINIT(0,0,0)	!a modified set up call
	CALL WHERE(x1,y1,z)	!gets the first data point
	CALL PLOT(x,y,-3)	!resets origin
10	Continue
	Type *,'X= ',x,'  Y= ',y
	Accept *,ix
	CALL WHERE(x,y,z)
	if(ix.eq.1) then	!establishes a software origin
		x1=x
		y1=y
	end if
	x=x-x1
	y=y-y1
	Write(90,20) x,y
40	s=secnds(0.0)	!every 10 seconds automatically take a new point
50	y=secnds(s)
	if(y.lt.10.) goto 50
	Type *,x,y
	Type *,'Bell...',bell,bell,bell	!ring the terminal bell
	CALL WHERE(x,y,z)
	x=x-x1
	y=y-y1
	write(90,20) x,y	!writes to for090.dat
	goto 40		!Ctrl-Y to get out of this loop
30	Continue
20	format(2f12.7)
	Call exit
	end