10 COLOR 1,15,8:SCREEN 3
20 FORK=1TO12:PSET(20*K,95),INT(RND(-TIME)*16):NEXT:P=0
50 FOR K=1 TO 12:IF POINT(20*K,95)=1 THEN P=1
70 NEXT:FOR K=1 TO 1000:NEXT:SCREEN0:KEY OFF
80 IF P=1 THEN GOSUB 110:FORI=1TO1000:NEXT:GOTO 10 ELSE GOSUB 100:FOR I=1 TO 1000:NEXT:GOTO 10
100 LOCATE 9,12:PRINT"Черных точек нет!":RETURN
110 LOCATE 9,12:PRINT"Черные точки есть!":RETURN