10 '*Ichigo Sanpo 20 CLV:CLS:CLK 30 LET [0],0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1 40 LET [20],146,25,145,26,146,25,145,26 50 X=15:Y=11:D=0 60 '@LOOP 70 L=INKEY()-48 80 IF 01 U=X-1 110 IF BTN(RIGHT) AND X<29 U=X+1 120 IF BTN(UP) AND Y>1 V=Y-1 130 IF BTN(DOWN) AND Y<21 V=Y+1 140 IF BTN(SPACE) D=D+1:IF D>7 D=0 150 LC X,Y:?CHR$(C); 160 LC E,F:?CHR$(G); 170 X=U:Y=V 180 E=X+[D*2]:F=Y+[D*2+1] 190 C=SCR(X,Y):G=SCR(E,F) 200 LC X,Y:?CHR$(255); 210 LC E,F:?CHR$([20+D]); 220 WAIT 5 230 GOTO 60 240 '@DRAW 250 BEEP 260 LC E,F:?CHR$(G); 270 U=X:V=Y 280 FOR I=1 TO L 290 LC U,V:?CHR$(165); 300 U=U+[D*2]:IF U<1 U=1 310 IF U>29 U=29 320 V=V+[D*2+1]:IF V<1 V=1 330 IF V>21 V=21 340 NEXT 350 X=U:Y=V 360 E=X+[D*2]:F=Y+[D*2+1] 370 C=SCR(X,Y):G=SCR(E,F) 380 CLK:RTN