100 START/T
110 RECORD OUTPUT	,C
120 	OUTLINE	,A122
130 RECORD	,C
140 	NAME	,A6	,'$$FILE'
150 	COUNTR	,D4
160 PROC 1/T
165 	INIT (01,O,NAME,01)
170 CLEAR,	COUNTR=
180 LOOP,	INCR COUNTR
190 	XMIT (01,OUTPUT)
200 	IF (COUNTR.LT.2000) GO TO LOOP
210 	FINI (01)
220 END