1 '*RPG 2 CLV:H=100:GSB7:LET[0],64,10,237,20,239,30,240,40,241,50 3 U=X-BTN(LEFT)*(X>0)+BTN(RIGHT)*(X<31):V=Y-BTN(UP)*(Y>0)+BTN(DOWN)*(Y<22):C=SCR(U,V):IFC=235GSB10 4 LCX,Y:?" ":LCU,V:?CHR$(250):IF!RND(40)&&((X<>U)OR(Y<>V))GSB12 5 X=U:Y=V:WAIT5:IFH>0GOTO3 6 BEEP30,30:LC0,18:?"GAME OVER":END 7 CLS:LC0,23:?"HP=";H;:GSB8:RTN 8 A=RND(32):B=RND(23):IFSCR(A,B)GOTO8 9 LCA,B:?CHR$(235);:RTN 10 LC10,23:?"µÆ·ÞØ ¹Þ¯Ä";:WAIT90:LC10,23:?" "; 11 H=100:LC0,23:?"HP=";H;:GSB8:RTN 12 CLS:LC10,11:?CHR$(250):LC8,13:?"HP=";H 13 M=RND(5)*2:I=[M+1]+RND(21):LC22,11:?CHR$([M]):LC20,13:?"HP=";I:BEEP30,10:WAIT90 14 LC0,17:?"Õ³¼¬ É º³¹Þ·!":FORJ=1TO3:LC22,11:?"*":BEEP10,5:WAIT5:LC22,11:?CHR$([M]):NEXT:A=RND(H/2):I=I-A:LC23,13:?I;" ":WAIT90 15 LC0,17:?" ":IFI<=0LC0,17:?"ÓݽÀ° ¦ Àµ¼À!":BEEP10,30:WAIT90:GSB7:RTN 16 LC0,17:?"ÓݽÀ° É º³¹Þ·!":FORJ=1TO3:LC10,11:?"*":BEEP30,5:WAIT5:LC10,11:?CHR$(250):NEXT:BEEP30,10:A=RND([M+1]/2):H=H-A:LC11,13:?H;" ":WAIT90 17 LC0,17:?" ":IFH<=0RTN 18 GOTO14