CLS
NEW
' ------- 06 Naruto road
10 CLS:CLP:CLV:Y=12:A=30:B=RND(15)+7
20 POKE #700,0,7,8,21,35,36,104,121,0,255,1,255,8,107,235,235,0,0,192,224,48,152,207,228,0,0,0,0,0,0,128,112
30 POKE #720,209,176,191,176,99,119,23,3,235,8,255,0,0,191,191,0,244,2,255,0,3,247,247,3,8,4,2,255,3,190,188,0
40 POKE #740,255,127,63,31,15,7,3,1
50 FOR I=0 TO 31 STEP 8
60 LC I,5:?CHR$(158,32,32,32,#E8,1,1,1);
70 LC I,22:?CHR$(158,32,32,32,#E8,1,1,1);
80 NEXT
90 LC 0,Y:?CHR$(#E0,#E1,#E2,#E3);:LC 0,Y+1:?CHR$(#E4,#E5,#E6,#E7);
100 LC 0,Y-1:?"    ";:LC 0,Y+2:?"    ";
110 C=SCR(0,5):LC 0,5:?CHR$(127);:LC 31,5:?CHR$(C);
120 C=SCR(0,22):LC 0,22:?CHR$(127);:LC 31,22:?CHR$(C);
130 A=A-1:IF SCR(A,B)>=#E0 THEN LC 12,11:PRINT "Crash!":BEEP 80,20:END
140 IF A<0 THEN LC A,B:?" ";:A=30:B=RND(15)+7
150 LC A,B:?CHR$(239,32);
160 K=INKEY():IF K=0 THEN GOTO 110
170 Y=Y-(K=30 AND Y>7)+(K=31 AND Y<19)
180 GOTO 90