僕の作ったプログラムみて！！！

10 WIDTH 50,20:PRINT "おためしＲＰＧ　ぷっしゅ　えに〜　き〜":XX=29:YY=29:XXX=29:YYY=0:XXXX=0:YYYY=29:X=0:Y=0:LL=20:YU=0
20 OPEN "TEN.DLL" FOR INPUT AS #1
30 INPUT #1,TEN,NAME$
40 CLOSE #1
50 PRINT "はいすこあ",NAME$,TEN
60 J$=INKEY$
70 IF J$="" THEN 60 ELSE 80
80 LLL=LL/3:LLLL=LL*2/3
90 WIDTH 30,33
100 CLS
110 LOCATE X,Y:PRINT "A"
120 LOCATE XX,YY:PRINT "O"
130 LOCATE XXX,YYY:PRINT "O"
140 LOCATE XXXX,YYYY:PRINT "O"
150 LOCATE 24,31:YU=YU+1:PRINT YU
160 IF (X=XX AND Y=YY) OR (X=XXX AND Y=YYY) OR (X=XXXX AND Y=YYYY) THEN GOTO 410
170 N$=INKEY$
180 IF N$="1" THEN X=X-1:IF X=<0 THEN X=0
190 IF N$="3" THEN X=X+1:IF X=>29 THEN X=29
200 IF N$="5" THEN Y=Y-1:IF Y=<0 THEN Y=0
210 IF N$="2" THEN Y=Y+1:IF Y=>29 THEN Y=29
220 L=L+1:IF L>=LL+1 THEN L=1
230 IF L=1 THEN 240 ELSE 280
240 IF XX>X THEN XX=XX-1:IF XX=<0 THEN XX=0
250 IF XX<X THEN XX=XX+1:IF XX=>29 THEN XX=29
260 IF YY>Y THEN YY=YY-1:IF YY=<0 THEN YY=0
270 IF YY<Y THEN YY=YY+1:IF YY=>29 THEN YY=29
280 LLL=LLL+1:IF LLL>=LL+1 THEN LLL=1
290 IF LLL=1 THEN 300 ELSE 340
300 IF XXX>X THEN XXX=XXX-1:IF XXX=<0 THEN XXX=0
310 IF XXX<X THEN XXX=XXX+1:IF XXX=>29 THEN XXX=29
320 IF YYY>Y THEN YYY=YYY-1:IF YYY=<0 THEN YYY=0
330 IF YYY<Y THEN YYY=YYY+1:IF YYY=>29 THEN YYY=29
340 LLLL=LLLL+1:IF LLLL>=LL+1 THEN LLLL=1
350 IF LLLL=1 THEN 360 ELSE 400
360 IF XXXX>X THEN XXXX=XXXX-1:IF XXXX=<0 THEN XXXX=0
370 IF XXXX<X THEN XXXX=XXXX+1:IF XXXX=>29 THEN XXXX=29
380 IF YYYY>Y THEN YYYY=YYYY-1:IF YYYY=<0 THEN YYYY=0
390 IF YYYY<Y THEN YYYY=YYYY+1:IF YYYY=>29 THEN YYYY=29
400 LL=LL-0.01:GOTO 100
410 CLS:PRINT "終〜了〜"
420 PRINT "得点",YU
430 OPEN "TEN.DLL" FOR INPUT AS #1
440 INPUT #1,UESC
450 CLOSE #1
460 IF UESC>YU THEN 520
470 INPUT "なまえをにゅうりょく",NAME$
480 OPEN "TEN.DLL" FOR OUTPUT AS #1
490 PRINT #1,YU,NAME$
500 CLOSE #1
510 GOTO 520
520 PRINT "ぷっしゅ　えに〜　き〜"
530 J$=INKEY$
540 IF J$="" THEN 530 ELSE 10