REM	TEST DIGITAL I/O (0)
REM
REM	DEFINE LAB8/E FUNCTIONS
	UDEF INI(N), PLY(N), DLY(N), DIS(S,E,N,X)
	UDEF SAM(C,N,P,T), CLK(R,O,S), CLW(N), ADC(N)
	UDEF GET(M,L), PUT(M,L), DRI(N), DRO(M,N)
REM
10	PRINT "ENTER STEP RATE [MS] (0=END) ";
	INPUT R
	IF R=0 GOTO 30
	PRINT "ENTER # OF CYCLES    ";
	INPUT N
	W = CLK(3,R,0)
REM
	FOR I=1 TO N
	C = 1
20	W = DRO(0,0)
	W = DRO(C,0)
	C = C*2
	W = CLW(0)
	IF C<4096 GOTO 20
	NEXT I
REM
	GOTO 10
30	END