REM	DISPLAY DEMO
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
	Z = INI(0)
REM
	FOR N=-200 TO 200
	Y = (N*N)/40001
	X = PLY(Y)
	W = DLY(401)
	NEXT N
REM
	FOR N=-200 TO 200
	Y = (N*N*N+8000000)/16000010
	X = PLY(Y)
	W = DLY(802)
	NEXT N
REM
	V = DIS(1,802,1,1)
	V = DIS(1,802,10,1)
	END