第１回昔のＰＣ板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄ

18 ：ナイコンさん：01/12/21 15:11.net

10 CLS:WIDTH 80,25
20 X=20:Y=12
30 FOR I=1 TO 100
40 LOCATE X,Y : PRINT "ｵﾏｴﾓﾅｰ";
50 A$=INKEY$ : IF A$="" THEN 50
60 LOCATE X,Y : PRINT "　　　";
70 X=X+(A$="4")-(A$="6")
80 Y=Y-(A$="2")-(A$="8")
90 NEXT

手抜きしてるから端にいくとエラーで止まる