オニゴッコ

10 !'****** オニゴッコ ******
20 !'WIDHT 80,25
30 LET  X1=0
   LET  Y1=0
40 LET  X2=0
   LET  Y2=0
50 LET  X3=30
   LET  Y3=12
60 LET  X4=30
   LET  Y4=12
70 PLOT TEXT , AT X1,Y1:"罰" 
80 LET  A$=INKEY$
   IF A$<>"" THEN 80
90 FOR I=1 TO 10
100    LET  A$=INKEY$
110    IF A$=>"1" AND A$<="9" THEN LET  I=10
120 NEXT   I 
130 IF A$>="1"AND A$<="9"THEN GOSUB 470
140 IF X1=X3 AND Y1=Y3 THEN 390
150 IF RND1>.5 THEN 270
160 LET  X=SGN(X3-X1)
170 LET  Y=SGN(Y3-Y1)
180 IF X<>0 THEN 220
190 LET  R=-1
    IF X3>40 THEN LET  R=-2
200 LET  X=INT(RND1*4+R)
210 LET  X=SGN(X)
220 IF Y<>0 THEN 290
230 LET  R=-1
    IF Y3>12 THEN LET  R=-2
240 LET  X=INT(RND1*4+R)
250 LET  X=SGN(X)  
260 GOTO 290 
270 LET  X=INT(RND1*3-1)
280 LET  X=INT(RND1*3-1) 
290 LET  X3=X3+X
    LET  Y3=Y3+Y 
300 IF X3<0 THEN LET  X3=0
310 IF X3>78 THEN LET  X3=78
320 IF X3<0 THEN LET  Y3=0
330 IF X3>23 THEN LET  Y3=23
340 IF X1=X3 AND Y1=Y3 THEN 390 
350 PLOT TEXT , AT X4,Y4:" "
360 PLOT TEXT , AT X3,Y3:"罪"
370 LET  X4=X3
    LET  Y4=Y3  
380 GOTO 80 
390 PLOT TEXT , AT 30,12:"捕まえた!" 
400  
410 PLOT TEXT , AT 25,18:"もう一度？　YES/NO" 
420  
430 LET  B$=INKEY$
    IF B$="" THEN 430
440 IF B$="Y" OR B$="y" THEN 20
450 IF B$="N" OR B$="n" THEN GOTO 590
460 GOTO 410 
470 LET  Z=VAL(A$)-1
480 LET  X=(MOD( Z , 3) )-1 
490 LET  Y=-(INT( Z/(3)) )+1 
500 LET  X1=X1+X
    LET  Y1=Y1+Y 
510 IF X1<0 THEN LET  X1=0
520 IF X1>78 THEN LET  X1=78
530 IF X1<0 THEN LET  Y1=0
540 IF X1>23 THEN LET  Y1=23
550 PLOT TEXT , AT X2,Y2:" "
560 PLOT TEXT , AT X1,Y1:"罰"
570 LET  X2=X1
    LET  Y2=Y1
580 RETURN
590 END