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 GOSUB 1010
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
1010 '*RPG-BATTLE
1020 CLS
1030 LOCATE 10,11
1040 PRINT CHR$(250)
1050 LOCATE 8,13
1060 PRINT "HP=";H
1070 LET [0],237,30,239,40,240,50
1080 M=RND(3)*2
1090 I=[M+1]+RND(21)
1100 LOCATE 22,11
1110 PRINT CHR$([M])
1120 LOCATE 20,13
1130 PRINT "HP=";I
1140 LOCATE 0,17
1150 PRINT "NJǞDŽǙ ƽǀưDŽ!"
1160 WAIT 90
1170 '*Y TURN
1180 LOCATE 0,17
1190 PRINT "ǕƳƼƬlj ƺƳƹǞƷ!"
1195 BEEP 10,5
1200 A=RND(51)
1210 I=I-A
1220 LOCATE 23,13
1230 PRINT I;" "
1240 WAIT 90
1250 LOCATE 0,17
1260 PRINT "            "
1265 IF I<=0 THEN GOTO 1380
1270 '*M TURN
1280 LOCATE 0,17
1290 PRINT "Ǔǝƽǀưlj ƺƳƹǞƷ!"
1295 BEEP 30,5
1300 A=RND([M+1]/2)
1310 H=H-A
1320 LOCATE 11,13
1330 PRINT H;" "
1340 WAIT 90
1350 LOCATE 0,17
1360 PRINT "             "
1365 IF H<=0 THEN GOTO 1450
1370 GOTO 1170
1380 '*Y WIN
1390 LOCATE 0,17
1400 PRINT "ǕƳƼƬlj ƶǁ!"
1405 BEEP 10,30
1410 WAIT 90
1420 LOCATE 0,17
1430 PRINT "         "
1440 G=1:RETURN
1450 '*M WIN
1460 LOCATE 0,17
1470 PRINT "Ǔǝƽǀưlj ƶǁ!"
1475 BEEP 30,30
1480 WAIT 90
1490 LOCATE 0,17
1500 PRINT "          "
1510 G=2:RETURN