3500 "V"CLS :CLEAR :WAIT 0:DEGREE :RANDOM :DIM B(4),C(4),X(4)
3510 G=0:LINE (0,29)-(100,31),&D6B5,BF
3520 LINE (72,29)-(78,31),BF:PSET (75,28)
3525 LINE (100,22)-(100,31):LINE (100,22)-(149,22)
3530 FOR I=0 TO 4:B(I)=3-RND 5:C(I)=RND 80+30:NEXT I
3540 FOR Y=3 TO 31:FOR I=0 TO 4:X(I)=B(I)*Y+C(I):GCURSOR (X(I),Y)
3550 GPRINT "0000183C3C180000":NEXT I
3555 IF G=5CURSOR 95:PRINT " B R A V O !":END 
3560 CURSOR 88:INPUT "U=";U
3563 INPUT "L=";L
3565 IF U>90 LET U=U-180:L=-L
3567 Q=L*COS U+75:W=-L*SIN U+27
3568 IF U<0 LET U=180+U:L=-L
3570 IF POINT (Q,W) GOSUB 3600:GOTO 3590
3580 GOSUB 3650
3590 NEXT Y:CURSOR 95:WAIT :PRINT " Sredio si ";G:GOTO 3500
3600 GOSUB 3650:BEEP 1:GCURSOR (Q-4,W+4):GPRINT "4910A518B8451284"
3610 K=Q-6:FOR I=0 TO 4:IF K<X(I) AND Q>X(I) LET C(I)=-100:G=G+1
3620 NEXT I
3630 GCURSOR (Q-4,W+4):GPRINT "0000000000000000"
3640 RETURN 
3650 LINE (75,27)-(Q,W):FOR I=0 TO 20:NEXT I
3660 LINE (75,27)-(Q,W),R
3670 RETURN