10 SCREEN 1:KEYOFF
20 FOR I=0 TO 7:READ E:VPOKE &H3800+I,E:NEXT
30 A0=BASE(1*5+3):AD=A0+4*1:AP=A0+4*2
40 VPOKE AP,50:VPOKE AP+1,100:VPOKE AP+2,0:VPOKE AP+3,15
50 FOR X=0 TO 255
60 VPOKE AD,50:VPOKE AD+1,X:VPOKE AD+2,0:VPOKE AD+3,15
70 VDP(15+1)=0:Z=INP(&H99) AND 32
80 IF Z<>0 THEN LOCATE 1,1:PRINT"столкновение":FOR L=0 TO 100:NEXT:LOCATE1,1:PRINT"               "
90 NEXT
100 GOTO 50
110 DATA 255,255,195,195,195,195,255,255