REM	DISPLAY A TRIANGLE
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=1 TO 30
	Y = N/30.1
	W = PLY(Y)
	Z = 1/30.1
	U = PLY(Z)
	P = DLY(118)
	NEXT N
REM
	FOR N=1 TO 29
	M = 30-N
	Y = N/30.1
	W = PLY(Y)
	Z = 1/30.1
	U = PLY(Z)
	P = DLY(118)
	NEXT N
REM
	V = DIS(1,118,1,1)
	END