CLS
NEW
' ------- 12 Ichigride
10 CLS:CLV:X=22:Y=20:L=5
20 POKE #700,8,15,255,128,128,240,255,8,16,88,50,20,92,56,24,60,0,0,12,26,62,62,0,0
30 POKE #730,0,56,126,251,253,127,0,0
40 POKE #780,64,195,246,124,56,240,254,192
50 POKE #7F0,64,192,240,191,185,240,254,192
60 FOR I=1 TO 32*22:?CHR$(#E0);:NEXT
70 LET[0],58,#E1,58,32,#E2,32,58,32,#E6,58,58,58,#E2,32
80 FOR J=1 TO 20:FOR I=1 TO 22:LC I,J:?CHR$([RND(14)]);:NEXT:NEXT
90 LC 1,1:?CHR$(#FE)
100 LC X,Y:D=SCR():?CHR$(5);
110 IF L<0 THEN ?"Game Over":END
120 LC 24,2:?"Life ";L;" ";:LC 24,10:?"Exp ";E
130 IF (TICK()%180)=0 THEN L=L+(L<10)
140 K=INKEY():IF K=0 THEN GOTO 120
150 A=X-(K=28)+(K=29):B=Y-(K=30)+(K=31)
160 C=SCR(A,B)-#E1
170 LC X,Y:?CHR$(D);:LC A,B
180 IF C<=-167 THEN X=A:Y=B
190 IF C<0 THEN GOTO 100
200 GOTO 1000+C*100
1000 IF E>50 THEN ?":"
1010 GOTO 100
1100 E=E+1:?":":IF E<20 THEN L=L-1
1110 GOTO 100
1500 E=E+4:?CHR$(#E2):IF E<40 THEN L=L-1
1510 GOTO 100
2500 L=L-5:?"X":IF L>0 THEN ?"Clear":END 
3900 L=L-7:IF E>80 THEN ?CHR$(#F0)
3910 GOTO 100