100 START/T
110 	RECORD
120 		COUNT,A2
130 		NUMBER,D2,P
140 		A,D2,00
150 PROC
160 	DISPLAY(1,1,1)
170 LOOP,	DISPLAY(A,A,0)
180 	COUNT=A
190 	DISPLAY(A,A,COUNT)
200 	INCR A
210 	IF(A.LE.NUMBER)GO TO LOOP
220 END