10	ON ERROR GOTO 19000 &
\	S% = CTRLC &

20	INPUT "THIS IS A TEST";A$ &
\	FOR I% = 1% TO 10000% &
\	A% = B% &
\	NEXT I% &
\	GOTO 20 &

19000	PRINT ERR;ERL &
\	END