モナーシステム開発　第３部

やたー！動くモナーできたよ〜

10 SCREEN 1:WIDTH 80,25:CONSOLE 1,25,0,1:CLS 3:X=10:Y=10
20 X1=0:Y1=0:COLOR 7:LOCATE X,Y:PRINT " ∧＿∧"
30 LOCATE X,Y+1:PRINT "（ ；´∀｀）"
40 LOCATE X,Y+2:PRINT "（　　　　）"
50 LOCATE X,Y+3:PRINT "｜ ｜　| "
60 LOCATE X,Y+4:PRINT "（_＿）＿）"
70 IF INKEY$="6" THEN X1=1:GOTO 200
80 IF INKEY$="4" THEN X1=-1:GOTO 200
90 IF INKEY$="8" THEN Y1=1:GOTO 200
100 IF INKEY$="2" THEN Y1=-1:GOTO 200
110 GOTO 20
200 COLOR 7:LOCATE X,Y:PRINT "　　　"
210 LOCATE X,Y+1:PRINT "　　　　　　"
220 LOCATE X,Y+2:PRINT "　　　　　　"
230 LOCATE X,Y+3:PRINT "　　　　 "
240 LOCATE X,Y+4:PRINT "　　　　　 "
250 X=X+X1:Y=Y+Y1:GOTO 20