⇢ 
Помогите пожалуйста, написана игра в бейсеке нужно описать каждую строчку, короче говоря описать все действия10 SCREEN
10 SCREEN 2
20 DIM Z(640,2)
200 X1=INT(RND(1)*100)+80:Y1=INT(RND(1)*50)+100
210 X2=INT(RND(1)*100)+460:Y2=INT(RND(1)*50)+100
220 H1=INT(RND(1)*90)+60:H2=INT(RND(1)*80)+50
230 H3=INT(RND(1)*90)+60:L=INT(RND(1)*80)+280
240 A1=0:A2=0:F1=0:F2=0
290 REM —----------------------------
300 CLS:LINE(0,180)-(639,180)
310 LINE(0,170)-(639,170):PAINT(5,175)
320 LINE(40,180)-(X1,Y1+10):LINE(X1,Y1+10)-(X1+30,Y1+10)
330 LINE(X1+30,Y1+10)-(240,H1):LINE(240,H1)-(L,H2)
340 LINE(L,H2)-(400,H3):LINE(400,H3)-(X2,Y2+10)
350 LINE(X2,Y2+10)-(X2+30,Y2+10):LINE(X2+30,Y2+10)-(600,180)
360 PAINT(X1,Y1+20):X=X1:Y=Y1:GOSUB 1000
370 X=X2:Y=Y2:GOSUB 1000
390 REM —----------------------------
400 LOCATE 1,1:PRINT"GAUCHE ( a =";A1;"; F =";F1;")"
410 PRINT"a =";:INPUT A:PRINT"F =";:INPUT F
420 IF A<0 OR A>90 OR F>1000 OR F<5 THEN PRINT"error!":GOTO 400
425 A1=A:F1=F
430 A=(A/180)*3.1415:VX=(F*COS(A))/5:VY=(F*SIN(A))/10
440 X0=X1+15:Y0=Y1-1:K1=VY/VX:K2=1/(2*VX*VX):N=1
450 GOSUB 1100
460 IF X+X0>=X2 AND X+X0=
1120 IF Y>0 THEN PSET(X+X0,Y)
1125 Z(U,1)=X+X0:Z(U,2)=Y:U=U+1
1130 X=X+N
1140 Y=Y0+INT(X*(K2*X-K1)):GOTO 1110
