( tryit)

: nleft 0 DO 8 VDU1 LOOP ;  ( n...)
: adc4  5 .R  5 nleft ;

: testit 5000 5 DO I adc4 KEY DROP 5 +LOOP ;  ( works OK)