10 '*RPG 20 CLV 30 H=100 40 X=15:Y=11 42 P=RND(32):Q=RND(23) 44 D=RND(32):E=RND(23) 50 GOSUB 300 100 '*GAMELOOP 110 U=X:V=Y 120 IF BTN(LEFT)=1 AND U>0 THEN U=U-1 130 IF BTN(RIGHT)=1 AND U<31 THEN U=U+1 140 IF BTN(UP)=1 AND V>0 THEN V=V-1 150 IF BTN(DOWN)=1 AND V<22 THEN V=V+1 160 C=SCR(U,V) 170 IF C=236 THEN GOSUB 400 175 IF C=235 THEN GOSUB 500 180 G=0:IF RND(100)=0 THEN LRUN 1 190 IF G>0 THEN GOSUB 300 195 IF G=2 THEN GOTO 270 200 LOCATE X,Y 210 PRINT " "; 220 LOCATE U,V 230 PRINT CHR$(250); 240 X=U:Y=V 250 WAIT 5 260 GOTO 100 270 '*GAMEOVER 280 LOCATE 10,12 285 PRINT "*GAME OVER*" 290 END 300 '*MAP 310 CLS 320 LOCATE 0,23 330 PRINT "HP=";H; 340 LOCATE X,Y 350 PRINT CHR$(250); 360 LOCATE P,Q 365 PRINT CHR$(236); 370 LOCATE D,E 375 PRINT CHR$(235); 390 RETURN 400 '*PEOPLE 410 LOCATE 12,23 420 PRINT "ƺǝdžǁNJ"; 430 WAIT 120 440 P=RND(32):Q=RND(23) 450 GOSUB 300 460 RETURN 500 '*ONIGIRI 510 LOCATE 12,23 520 PRINT "ƵdžƷǞǘ ƹǞƯDŽ!"; 530 WAIT 120 540 H=100 550 D=RND(32):E=RND(23) 560 GOSUB 300 570 RETURN