10 COLOR 1,15,8:SCREEN 1,3
20 ON SPRITE GOSUB100:SPRITE ON:X$="итерация":SPRITE$(50)=X$+X$+X$+X$
50 FOR K=0 TO 255
60 PUT SPRITE 0,(K,70),4,50:PUT SPRITE 1,(120,K),13,50
80 NEXT:GOTO 50
90 '©©©© Подпрограмма! ©©©©
100 SPRITE OFF:PRINT "Столкновение":FOR I=1 TO 1000:NEXT:CLS:SPRITE ON:RETURN