5  '"Столкновение" движущегося отрезка с неподвижной "границей"
10 COLOR 1,15,8:SCREEN2:LINE(150,0)-(150,150),6
20 FOR K=10TO295:PSET(K,95):PRESET(K-10,95):FORI=1TO19:NEXT:IF POINT(150,95)=1 THEN FORI=1TO1000:NEXT:SCREEN0:LOCATE 11,12:PRINT"Столкновение":END ELSE NEXT