10 '*RPG-BATTLE 20 CLS 30 LOCATE 10,11 40 PRINT CHR$(250) 50 LOCATE 8,13 60 PRINT "HP=";H 70 LET [0],237,30,239,40,240,50 80 M=RND(3)*2 90 I=[M+1]+RND(21) 100 LOCATE 22,11 110 PRINT CHR$([M]) 120 LOCATE 20,13 130 PRINT "HP=";I 140 LOCATE 0,17 150 PRINT "NJǞDŽǙ ƽǀưDŽ!" 160 WAIT 90 170 '*Y TURN 180 LOCATE 0,17 190 PRINT "ǕƳƼƬlj ƺƳƹǞƷ!" 195 BEEP 10,5 200 A=RND(51) 210 I=I-A 220 LOCATE 23,13 230 PRINT I;" " 240 WAIT 90 250 LOCATE 0,17 260 PRINT " " 265 IF I<=0 THEN GOTO 380 270 '*M TURN 280 LOCATE 0,17 290 PRINT "Ǔǝƽǀưlj ƺƳƹǞƷ!" 295 BEEP 30,5 300 A=RND([M+1]/2) 310 H=H-A 320 LOCATE 11,13 330 PRINT H;" " 340 WAIT 90 350 LOCATE 0,17 360 PRINT " " 365 IF H<=0 THEN GOTO 450 370 GOTO 170 380 '*Y WIN 390 LOCATE 0,17 400 PRINT "ǕƳƼƬlj ƶǁ!" 405 BEEP 10,30 410 WAIT 90 420 LOCATE 0,17 430 PRINT " " 440 G=1:LRUN 0,190 450 '*M WIN 460 LOCATE 0,17 470 PRINT "Ǔǝƽǀưlj ƶǁ!" 475 BEEP 30,30 480 WAIT 90 490 LOCATE 0,17 500 PRINT " " 510 G=2:LRUN 0,190