REM	DIGITAL SCOPE PROGRAM - BY R.KRAUSE APR 1983
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)
	DIM A(342)
	USE A
REM
	PRINT PNT(29);PNT(31); \ FOR I=1 TO 100 \ NEXT I
	PRINT
	PRINT TAB(10);"D I G I T A L  S C O P E"
	PRINT TAB(10);"------------------------"
	PRINT
	PRINT TAB(10);"( INPUT VIA DR8EA / OUTPUT VIA VC8E )"
	PRINT \ PRINT \ PRINT
	PRINT "MIN. SAMPLING INTERVAL 0.1MS"
	PRINT "MAX. # OF SAMPLES      1023"
	PRINT \ PRINT
	PRINT TAB(10);"INPUT   =  IN  3"
	PRINT TAB(10);"TRIGGER =  IN  0"
	PRINT \ PRINT \ PRINT
REM
20	PRINT PNT(15);PNT(28); \ FOR I=1 TO 100 \ NEXT I
	FOR I=1 TO 5 \ PRINT PNT(26); \ NEXT I
	PRINT
	PRINT TAB(10);"SAMPLING INTERVAL (X,M/X,U) ";PNT(30);
	FOR I=1 TO 100 \ NEXT I
	INPUT S,R$
	IF R$="M" GOTO 100
	IF R$="U" GOTO 200
	GOTO 20
100	R = 3
	GOTO 300
200	R = 6
300	PRINT TAB(10);"# OF POINTS ........... ";PNT(30);
	FOR I=1 TO 100 \ NEXT I
	INPUT N
	PRINT
	PRINT TAB(10);"$ READY";
REM
10	T = DRI(0)
	IF T<2047 GOTO 10
	Z = INI(0)
	Z = SAM(0,1,N,1)
	Z = CLK(R,S,0)
	Z = DIS(1,N,1,1)
REM
	GOTO 20
	END