0 :
10 GRAPH
20 OPEN "MOV.SK" FOR INPUT AS #1
30 FOR I=1 TO 1600:INPUT #1,W:POKE 6591+I,W:IF PEEK(199)<>13 THEN I=1600
35 NEXT:CLOSE #1:W$=INKEY$
40 FOR I=1 TO 80 STEP 2:BOX 1,0,I,80,1:BOX 159,0,160-I,80,1:NEXT
41 FOR I=80 TO 160 STEP 2:BOX 80,0,I,80,1,0:BOX 80,0,160-I,80,1,0:NEXT
42 LOCATE 3,6:PRINT "Loading..."
50 DIM GJ(33),ZL(33),ZZ(33),TS(33),ZC(33),WZ(33),N$(33),ZT(33)
60 DIM C$(13),RI(13),GO(13),NY(13),SY(13),CF(13),BY(13),DJ(13)
80 OPEN "DAT.SK" FOR INPUT AS #1
90 FOR I=1 TO 13:INPUT #1,C$(I):NEXT
100 FOR I=0 TO 4:INPUT #1,CN$(I):NEXT
110 FOR I=1 TO 4:FOR W=1 TO 2:FOR A=1 TO 3:INPUT #1,GN$(I,W,A):NEXT A:NEXT W:NEXT I
120 FOR I=1 TO 33:INPUT #1,N$(I),GJ(I),ZL(I),ZZ(I),TS(I):NEXT
125 FOR I=1 TO 8:INPUT #1,JN$(1,I):NEXT
126 FOR I=1 TO 8:INPUT #1,JN$(2,I):NEXT
130 CLOSE #1
140 OPEN "SAV.SK" FOR INPUT AS #1
150 FOR I=1 TO 33:INPUT #1,ZC(I):NEXT
160 FOR I=1 TO 33:INPUT #1,WZ(I):NEXT
170 FOR I=1 TO 33:INPUT #1,ZT(I):NEXT
190 FOR I=1 TO 13:INPUT #1,RI(I),GO(I),NY(I),SY(I),CF(I),BY(I),DJ(I):NEXT
200 FOR I=1 TO 13:INPUT #1,A,B:P(A,B)=I:INPUT #1,PM(A,B):NEXT
220 INPUT #1,SW,LP
230 FOR I=1 TO 4:INPUT #1,CNC(I):NEXT
240 INPUT #1,NAME$,YR,MH
250 CLOSE #1
260 CLS:IF LP<1 THEN 500
280 CLS:GOSUB 1000
290 FOR I=1 TO 4:LOCATE I,10:PRINT SPC(11):NEXT
300 IF P(EX,EY)=0 THEN 330
310 LOCATE 1,13:PRINT C$(P(EX,EY)):LOCATE 2,11:PRINT CN$(PM(EX,EY))
320 IF PM(EX,EY)=5 THEN 2000
330 GOSUB 1160:GOTO 290
500 CLS:MH=MH+1:IF MH>12 THEN MH=1:YR=YR+1
505 PRINT "";YR;"";MH;"."
510 A=RND(4)
520 IF A<.1 THEN PRINT "ط!":A=1:GOTO 580
530 IF A>.2 AND A<.3 THEN PRINT "˰!":A=2:GOTO 580
540 IF A>.4 AND A<.5 THEN PRINT "ط!":A=3:GOTO 580
550 IF A>.6 AND A<.7 THEN PRINT "ط!":A=4:GOTO 580
560 IF A>.8 AND A<.9 THEN PRINT "ط!":A=5:GOTO 580
570 GOTO 690
580 C=0:FOR I=1 TO 13
590 B=RND(3)
610 IF B<.8 THEN GOTO 670
620 IF A=1 THEN NY(I)=NY(I)-5:PRINT C$(I);".";:C=C+1
630 IF A=2 THEN SY(I)=SY(I)-5:PRINT C$(I);".";:C=C+1
640 IF A=3 THEN BY(I)=BY(I)-371:PRINT C$(I);".";:C=C+1
650 IF A=4 THEN CF(I)=CF(I)-5:PRINT C$(I);".";:C=C+1
660 IF A=5 THEN RI(I)=RI(I)-75:PRINT C$(I);".";:C=C+1
670 NEXT
675 IF C=0 THEN PRINT "ӰС,";
680 PRINT "!"
690 FOR I=1 TO 13
700 IF NY(I)<1 THEN NY(I)=1
710 IF SY(I)<1 THEN SY(I)=1
720 IF CF(I)<1 THEN CF(I)=1
730 IF BY(I)<0 THEN BY(I)=0
740 IF RI(I)<0 THEN RI(I)=0
750 NEXT
760 FOR I=1 TO 13
770 RI(I)=RI(I)+NY(I)*2:GO(I)=GO(I)+SY(I)*2:NEXT
780 W$=INKEY$:CLS
790 PRINT "..."
800 FOR I=1 TO 13:B=RND(3)
810 IF B<=.2 THEN NY(I)=NY(I)+2:GOTO 860
820 IF B<.4 AND B>.2 THEN SY(I)=SY(I)+2:GOTO 860
830 IF B<.6 AND B>.4 THEN BY(I)=BY(I)+50:GOTO 860
840 IF B<.8 AND B>.6 THEN CF(I)=CF(I)+2:GOTO 860
850 RI(I)=RI(I)+50
860 NEXT
870 W=0:RESTORE
880 FOR I=1 TO 13:READ A,B:IF PM(A,B)=5 THEN W=W+1
890 NEXT
900 IF W>=13 THEN 8000
990 LP=5:GOTO 260
1000 OPEN "MAP.SK" FOR INPUT AS #1
1010 FOR Y=0 TO 63 STEP 7
1020 FOR X=1 TO 64 STEP 7
1030 INPUT #1,M
1040 IF M=1 THEN BOX X,Y,X+6,Y+6:GOSUB 1250
1050 IF M=2 THEN LINE X,Y+3,X+6,Y+3
1060 IF M=3 THEN LINE X+3,Y,X+3,Y+6
1070 IF M=4 THEN LINE X,Y+3,X+6,Y+3:LINE X+3,Y,X+3,Y+3
1080 IF M=5 THEN LINE X,Y+3,X+6,Y+3:LINE X+3,Y+3,X+3,Y+6
1090 IF M=6 THEN LINE X+3,Y,X+3,Y+6:LINE X,Y+3,X+3,Y+3
1100 IF M=7 THEN LINE X+3,Y,X+3,Y+6:LINE X+3,Y+3,X+6,Y+3
1110 NEXT X
1120 NEXT Y
1130 CLOSE #1:X=29:Y=35
1135 FOR I=1 TO LP:CIRCLE I*6,75,2,1:NEXT
1140 EX=(X-1)/7+1:EY=Y/7+1
1150 BOX X,Y,X+6,Y+6,1,3
1160 W$=INKEY$
1170 IF W$=CHR$(20)AND EY>1 THEN GOSUB 1230:Y=Y-7:GOTO 1140
1180 IF W$=CHR$(21)AND EY<10 THEN GOSUB 1230:Y=Y+7:GOTO 1140
1190 IF W$=CHR$(22)AND EX<10 THEN GOSUB 1230:X=X+7:GOTO 1140
1200 IF W$=CHR$(23)AND EX>1 THEN GOSUB 1230:X=X-7:GOTO 1140
1210 IF W$=CHR$(13)THEN GOTO 1240
1220 GOTO 1160
1230 BOX X,Y,X+6,Y+6,1,3
1240 RETURN
1250 EX=(X-1)/7+1:EY=Y/7+1
1260 IF PM(EX,EY)=1 THEN LINE X,Y,X+6,Y+6:LINE X+6,Y,X,Y+6
1270 IF PM(EX,EY)=2 THEN LINE X,Y+3,X+6,Y+3
1280 IF PM(EX,EY)=3 THEN LINE X,Y+3,X+6,Y+3:LINE X,Y+5,X+6,Y+5:LINE X,Y+1,X+6,Y+1
1290 IF PM(EX,EY)=4 THEN LINE X,Y+5,X+6,Y+5
1300 IF PM(EX,EY)=5 THEN BOX X,Y,X+6,Y+6,1,1
1310 RETURN
1320 FOR I=1 TO 9:SE(I)=0:NEXT
1330 CLS:PRINT "ѡִӢ:":I=1:W=1:B$=W$
1340 IF ZT(I)=T AND WZ(I)=P(EX,EY)THEN SE(W)=I:W=W+1
1350 I=I+1:IF I>33 THEN 1360 ELSE 1340
1360 LOCATE 2,2:PRINT N$(SE(1));N$(SE(2));N$(SE(3))
1370 LOCATE 3,2:PRINT N$(SE(4));N$(SE(5));N$(SE(6))
1380 LOCATE 4,2:PRINT N$(SE(7));N$(SE(8));N$(SE(9)):A=1
1390 IF A=1 THEN CX=8:CY=16 ELSE IF A=2 THEN CX=56:CY=16 ELSE IF A=3 THEN CX=104:CY=16
1400 IF A=4 THEN CX=8:CY=32 ELSE IF A=5 THEN CX=56:CY=32 ELSE IF A=6 THEN CX=104:CY=32
1410 IF A=7 THEN CX=8:CY=48 ELSE IF A=8 THEN CX=56:CY=48 ELSE IF A=9 THEN CX=104:CY=48
1420 BOX CX,CY,CX+48,CY+15,1,3
1430 W$=INKEY$
1440 IF W$=CHR$(20)AND A>1 THEN BOX CX,CY,CX+48,CY+15,1,3:A=A-1:GOTO 1390
1450 IF W$=CHR$(21)AND A<W-1 THEN BOX CX,CY,CX+48,CY+15,1,3:A=A+1:GOTO 1390
1460 IF W$=CHR$(13)THEN A=SE(A):GOTO 1480
1470 GOTO 1430
1480 RETURN
1500 A=P(CX,CY):B=P(EX,EY):T=0
1510 IF A=1 AND(B=2 OR B=3 OR B=4 OR B=5 OR B=6 OR B=8)THEN T=1
1520 IF A=2 AND(B=1 OR B=3 OR B=4 OR B=5 OR B=6 OR B=8)THEN T=1
1530 IF A=3 AND(B=1 OR B=2 OR B=4 OR B=5 OR B=6 OR B=8)THEN T=1
1540 IF A=4 AND(B=1 OR B=2 OR B=3 OR B=5 OR B=6 OR B=8)THEN T=1
1550 IF A=5 AND(B=1 OR B=2 OR B=3 OR B=4 OR B=6 OR B=8)THEN T=1
1560 IF A=6 AND(B=1 OR B=2 OR B=3 OR B=4 OR B=5 OR B=7 OR B=8)THEN T=1
1570 IF A=7 AND(B=6 OR B=8 OR B=9)THEN T=1
1580 IF A=8 AND(B=1 OR B=2 OR B=3 OR B=4 OR B=5 OR B=6 OR B=7)THEN T=1
1585 IF A=8 AND(B=10 OR B=12 OR B=13)THEN T=1
1590 IF A=9 AND(B=7 OR B=11 OR B=12)THEN T=1
1600 IF A=10 AND(B=8 OR B=12 OR B=13)THEN T=1
1610 IF A=11 AND(B=9 OR B=12)THEN T=1
1620 IF A=12 AND(B=8 OR B=9 OR B=10 OR B=11 OR B=13)THEN T=1
1630 IF A=13 AND(B=8 OR B=10 OR B=12)THEN T=1
1640 RETURN
2000 LOCATE 1,11:PRINT "":LOCATE 1,17:PRINT ""
2010 BOX 1,71,100,80,1,0:FOR I=1 TO LP:CIRCLE I*6,75,2,1:NEXT
2020 LOCATE 2,10:PRINT "  ":LOCATE 3,10:PRINT "⽻  "
2030 LOCATE 4,10:PRINT "  ":LOCATE 5,10:PRINT "  ϵͳ";:CX=72:CY=16:SA=1:SB=1
2040 BOX CX,CY,CX+31,CY+15,1,3
2050 W$=INKEY$
2060 IF W$=CHR$(20)AND CY>16 THEN GOSUB 2130:CY=CY-16:SA=SA-1:GOTO 2040
2070 IF W$=CHR$(21)AND CY<63 THEN GOSUB 2130:CY=CY+16:SA=SA+1:GOTO 2040
2080 IF W$=CHR$(22)AND CX=72 THEN GOSUB 2130:CX=120:SB=2:GOTO 2040
2090 IF W$=CHR$(23)AND CX=120 THEN GOSUB 2130:CX=72:SB=1:GOTO 2040
2100 IF W$=CHR$(13)THEN GOTO 2150
2110 IF W$=CHR$(27)THEN FOR I=1 TO 5:LOCATE I,10:PRINT SPC(10);:NEXT:GOTO 330
2120 GOTO 2050
2130 BOX CX,CY,CX+31,CY+15,1,3
2140 RETURN
2150 FOR I=2 TO 5:LOCATE I,10:PRINT SPC(10);:NEXT
2160 FOR I=1 TO 3:LOCATE I+1,10:PRINT GN$(SA,SB,I):NEXT
2170 BOX 80,16,95,47,1,3
2180 W$=INKEY$
2190 IF(W$="b" OR W$="n" OR W$="m")AND SA=1 AND SB=1 THEN T=5:GOSUB 1320:GOTO 3000
2200 IF W$="b" AND SA=2 AND SB=1 THEN 3270 ELSE IF W$="n" AND SA=2 AND SB=1 THEN 4050
2210 IF W$="b" AND SA=2 AND SB=2 THEN 3990 ELSE IF W$="n" AND SA=2 AND SB=2 THEN 4170
2220 IF W$="b" AND SA=3 AND SB=1 THEN 3560 ELSE IF W$="n" AND SA=3 AND SB=1 THEN 3450
2230 IF SA=3 AND SB=2 AND(W$="b" OR W$="n" OR W$="m")THEN 4270
2240 IF W$="b" AND SA=4 AND SB=1 THEN 3780 ELSE IF W$="n" AND SA=4 AND SB=1 THEN 3830
2250 IF W$="b" AND SA=4 AND SB=2 THEN 4580 ELSE IF W$="n" AND SA=4 AND SB=2 THEN 4700
2260 IF W$="b" AND SA=1 AND SB=2 THEN 5000 ELSE IF W$="n" AND SA=1 AND SB=2 THEN 3090
2270 IF W$="m" AND SA=2 AND SB=1 THEN 4130 ELSE IF W$="m" AND SA=2 AND SB=2 THEN 3910
2280 IF W$="m" AND SA=3 AND SB=1 THEN 4410
2290 IF W$="m" AND SA=4 AND SB=1 THEN 3610 ELSE IF W$="m" AND SA=4 AND SB=2 THEN 4820
2300 IF W$="m" AND SA=1 AND SB=2 THEN 3180
2310 BOX 80,16,96,48,1,0:GOTO 2000
3000 B=P(EX,EY):I=INT(ZZ(A)*.1*RND(2)):IF I<5 THEN I=5
3010 IF B$="b" THEN NY(B)=NY(B)+I:B$=""
3020 IF B$="n" THEN SY(B)=SY(B)+I:B$="ó"
3030 IF B$="m" THEN CF(B)=CF(B)+I:B$="Ƿ"
3040 LOCATE 5,1:PRINT C$(B);B$;"";I;"!";
3050 IF CF(B)>99 THEN CF(B)=99
3060 IF SY(B)>99 THEN SY(B)=99
3070 IF NY(B)>99 THEN NY(B)=99
3080 LP=LP-1:W$=INKEY$:CLS:GOTO 260
3090 A=INT(RND(1)*10-CF(P(EX,EY))/10):IF A<2 THEN A=2
3100 A=A/10:CLS:PRINT "","ÿʿ";A;".","Ŀ:"
3110 INPUT "]";B:B=INT(B):C=INT(A*B/10)
3120 IF C>GO(P(EX,EY))THEN PRINT "û㹻Ļƽ!";:GOTO 3160
3130 BY(P(EX,EY))=BY(P(EX,EY))+B
3140 GO(P(EX,EY))=GO(P(EX,EY))-C
3150 PRINT "!ʿ!";
3160 IF BY(P(EX,EY))>99999 THEN BY(P(EX,EY))=99999
3170 LP=LP-1:W$=INKEY$:CLS:GOTO 260
3180 CLS:PRINT "ѵ":C=P(EX,EY):A=INT(RND(2)*111+DJ(C)*131)
3190 PRINT "Ҫ";A;".","ʼ?(Y/N)"
3200 W$=INKEY$
3210 IF W$="n" THEN CLS:GOTO 260
3220 IF W$="y" THEN 3230 ELSE 3200
3230 IF A>GO(C)THEN PRINT "û㹻Ļƽ!";:GOTO 3260
3240 GO(C)=GO(C)-A:DJ(C)=DJ(C)+1:PRINT "!";
3250 IF DJ(C)>10 THEN DJ(C)=10
3260 LP=LP-1:W$=INKEY$:GOTO 260
3270 CLS:PRINT "ͬˡ":A=1
3280 FOR I=1 TO 4:PRINT " ";CN$(I);" ";:NEXT
3290 GOTO 3310
3300 BOX CX,CY,CX+64,CY+15,1,3
3310 IF A=1 THEN CX=8:CY=16 ELSE IF A=2 THEN CX=88:CY=16 ELSE IF A=3 THEN CX=8:CY=32
3320 IF A=4 THEN CX=88:CY=32
3330 BOX CX,CY,CX+64,CY+15,1,3
3340 W$=INKEY$:IF W$=CHR$(20)AND A>1 THEN A=A-1:GOTO 3300
3350 IF W$=CHR$(21)AND A<4 THEN A=A+1:GOTO 3300
3360 IF W$=CHR$(27)THEN 260
3370 IF W$=CHR$(13)THEN 3380 ELSE 3340
3380 IF CNC(A)=1 THEN PRINT CN$;"Ѿͬ!":W$=INKEY$:GOTO 3270
3390 B=A:CLS:T=5:GOSUB 1320
3400 CLS:PRINT N$(A);"ǰӪ˵.."
3410 A=INT(ZZ(A)+SW-RND(2)*100)
3420 IF A<99 THEN PRINT "˼Ҳ!":GOTO 3440
3430 PRINT "˳ɹ!":SW=SW+20:CNC(B)=1
3440 LP=LP-1:W$=INKEY$:GOTO 260
3450 W=P(EX,EY):CLS:PRINT "г":A=INT(RND(1)*17-NY(W)*SY(W)/1312):B=INT(A*RND(3))
3460 IF A<3 THEN A=3
3470 A=A/10:B=B/10:PRINT ":";A:LOCATE 2,11:PRINT ":";B,"1.  2."
3480 W$=INKEY$:IF W$=CHR$(27)THEN 260 ELSE IF W$="b" OR W$="n" THEN 3490 ELSE 3480
3490 IF W$="b" THEN W$="" ELSE W$=""
3500 LOCATE 3,1:PRINT "Ҫ";W$;"ʳ?":INPUT "]";I:I=INT(ABS(I))
3510 IF W$="" AND GO(W)>=I*A THEN GO(W)=INT(GO(W)-I*A):RI(W)=RI(W)+I:GOTO 3540
3520 IF W$="" AND RI(W)>=I THEN GO(W)=INT(GO(W)+I*B):RI(W)=RI(W)-I:GOTO 3540
3530 LOCATE 3,1:PRINT "޷.ͽ.     ":GOTO 3550
3540 LOCATE 3,1:PRINT "!";C$(W);"";GO(W);"";RI(W);".     "
3550 LP=LP-1:W$=INKEY$:GOTO 260
3560 CLS:PRINT NAME$;"ڳѲ...":A=RND(2):B=INT(RND(9)*612):C=P(EX,EY)
3570 IF A>.85 THEN PRINT "ҵ";B;"ƽ!":GO(C)=GO(C)+B:GOTO 3600
3580 IF A<.2 THEN PRINT "ҵ";B;"ʳ!":RI(C)=RI(C)+B:GOTO 3600
3590 PRINT "ҵ65535!","˷ing...":SW=SW+3
3600 SW=SW+2:LP=LP-1:W$=INKEY$:GOTO 260
3610 CLS:PRINT "";NAME$;"","ͳ..."
3620 A=0:B=0:C=0:CX=0:CY=0
3630 FOR I=1 TO 33:IF ZT(I)=5 THEN A=A+1
3640 NEXT
3650 FOR I=1 TO 10:FOR W=1 TO 10
3660 IF PM(I,W)=5 THEN B=B+1:C=C+BY(P(I,W)):CX=CX+GO(P(I,W)):CY=CY+RI(P(I,W))
3670 NEXT W:NEXT I
3680 LOCATE 1,11:PRINT ":";SW
3690 PRINT "㹲ӵ";A;"λӢ,";B;",ʿ";C;",ƽ";CX;",ʳ";CY;".";
3700 POKE 803,31:PRINT;
3710 W$=INKEY$:LOCATE 2,1:PRINT SPC(79);
3720 LOCATE 2,1:PRINT "";:A=0
3730 FOR I=1 TO 4:IF CNC(I)=1 THEN PRINT CN$(I);".";:A=A+1
3740 NEXT
3750 IF A=0 THEN PRINT "κ";
3760 PRINT "ͬ."
3770 LP=LP-1:W$=INKEY$:GOTO 260
3780 CLS:W=P(EX,EY)
3790 PRINT "";C$(W);"","ƽ:";GO(W),":";NY(W),":";BY(W);
3800 LOCATE 2,11:PRINT "ʳ:";RI(W):LOCATE 3,11:PRINT "ó:";SY(W)
3810 LOCATE 4,11:PRINT "Ƿ:";CF(W);:LOCATE 1,11:PRINT "";DJ(W);""
3820 W$=INKEY$:LP=LP-1:GOTO 260
3830 CLS:T=5:GOSUB 1320
3840 CLS:PRINT "";N$(A);"":LOCATE 4,1:PRINT "ҳ:";ZC(A):LOCATE 2,1
3850 PRINT ":";GJ(A),":";ZZ(A)
3870 LOCATE 2,11:PRINT ":";ZL(A):LOCATE 3,11:PRINT "ͳ:";TS(A)
3880 W$=INKEY$
3890 IF W$=CHR$(27)THEN LP=LP-1:GOTO 260
3900 GOTO 3830
3910 CLS:T=5:GOSUB 1320
3920 CLS:W=P(EX,EY):PRINT "ʹ͡",C$(W);"н";GO(W);".","ҪʹͶ?"
3930 INPUT "]";B
3940 IF B>GO(W)THEN PRINT "ûô!";:GOTO 3980
3950 IF B<=0 THEN PRINT "ɵСӰ?!";:ZC(A)=ZC(A)-20:GOTO 3980
3960 ZC(A)=INT(ZC(A)+B/10):GO(W)=GO(W)-B
3970 PRINT "Ӣҳ!";
3980 LP=LP-1:W$=INKEY$:GOTO 260
3990 CLS:T=5:GOSUB 1320
4000 CLS:LOCATE 2,12:PRINT "ѡ":LOCATE 3,12:PRINT "Ŀ"
4010 GOSUB 1000
4020 IF PM(EX,EY)<>5 THEN GOSUB 1160:GOTO 4020
4030 LP=LP-1:WZ(A)=P(EX,EY)
4040 LOCATE 4,12:PRINT "ƶ":W$=INKEY$:GOTO 260
4050 CLS:T=5:GOSUB 1320:B=A
4055 CLS:LOCATE 2,12:PRINT "ѡ":LOCATE 3,12:PRINT "Ŀ":GOSUB 1000
4060 IF PM(EX,EY)=5 OR PM(EX,EY)=0 THEN GOSUB 1160:GOTO 4060
4070 T=PM(EX,EY):GOSUB 1320
4080 CLS:PRINT N$(B);"";N$(A);"ҿ粻֮..."
4090 W$=INKEY$:C=RND(3)*ZZ(B)/100
4100 IF C<.5 THEN PRINT N$(A);"";N$(B);"!";:GOTO 4120
4110 PRINT N$(A);"ҳ½!";:ZC(A)=INT(ZC(A)-C*2)
4120 LP=LP-1:SW=SW-5:W$=INKEY$:GOTO 260
4130 FOR I=1 TO 4:LOCATE I,10:PRINT SPC(10);:NEXT
4140 LOCATE 2,12:PRINT "ѡ":LOCATE 3,12:PRINT "Ŀ":GOSUB 1160
4150 IF PM(EX,EY)=5 OR PM(EX,EY)=0 THEN GOSUB 1160:GOTO 4150
4160 GOSUB 3780
4170 CLS:T=5:GOSUB 1320:B=A
4180 CLS:LOCATE 2,12:PRINT "ѡ":LOCATE 3,12:PRINT "Ŀ":GOSUB 1000
4190 IF PM(EX,EY)=5 OR PM(EX,EY)=0 THEN GOSUB 1160:GOTO 4190
4200 T=PM(EX,EY):GOSUB 1320
4210 CLS:PRINT N$(B);"";N$(A);"ҳΪ..."
4220 C=RND(3)*ZZ(B)-ZC(A)
4230 IF C<40 THEN PRINT N$(A);"";N$(B);"!":GOTO 4260
4240 PRINT "ɹʹ";N$(A);"ҷ!"
4250 ZC(A)=70:WZ(A)=P(EX,EY):ZT(A)=5:SW=SW+20
4260 SW=SW-10:LP=LP-1:W$=INKEY$:GOTO 260
4270 CLS:T=P(EX,EY):PRINT C$(T);"";
4280 IF W$="b" THEN PRINT "ƽ";GO(T);"."
4290 IF W$="n" THEN PRINT "ʳ";RI(T);"."
4300 IF W$="m" THEN PRINT "ʿ";BY(T);"."
4310 PRINT "Ҫ˶?":INPUT "]";B
4320 IF(W$="b" AND B>GO(T))OR(W$="n" AND B>RI(T))OR(W$="m" AND B>BY(T))THEN 4270
4330 IF B<=0 THEN 4270
4340 IF W$="b" THEN GO(T)=GO(T)-B ELSE IF W$="n" THEN RI(T)=RI(T)-B
4350 IF W$="m" THEN BY(T)=BY(T)-B
4351 A$=W$
4355 CLS:LOCATE 2,12:PRINT "ѡ":LOCATE 3,12:PRINT "Ŀ":GOSUB 1000
4360 IF PM(EX,EY)<>5 THEN GOSUB 1160:GOTO 4360
4370 T=P(EX,EY)
4380 IF A$="b" THEN GO(T)=GO(T)+B ELSE IF A$="n" THEN RI(T)=RI(T)+B
4390 IF A$="m" THEN BY(T)=BY(T)+B
4400 LOCATE 4,12:PRINT "":LP=LP-1:W$=INKEY$:GOTO 260
4410 CLS:PRINT NAME$;"ƹ..."
4420 A=RND(5):B=0
4430 IF A<.6 THEN PRINT "û·":GOTO 4570
4440 FOR I=1 TO 33
4450 IF WZ(I)=P(EX,EY)AND ZT(I)=6 THEN B=B+1:C=I
4460 NEXT
4470 IF B=0 THEN PRINT "û·":GOTO 4570
4480 PRINT "һƿͣҪȾ(Y/N)"
4490 W$=INKEY$
4500 IF W$<>"y" THEN 4570
4510 PRINT "ллľƣҽ";N$(C);""
4520 W$=INKEY$
4530 PRINT "ǰɣһȡ£"
4540 W$=INKEY$:A=RND(5):IF A<.5 THEN PRINT "Ȥ":GOTO 4570
4550 PRINT "á":W$=INKEY$:CLS:PRINT "ɹ¼";N$(C);""
4560 ZT(C)=5:SW=SW+50
4570 W$=INKEY$:LP=LP-1:GOTO 260
4580 CLS:PRINT "浵...":OPEN "SAV.SK" FOR OUTPUT AS #1:RESTORE
4590 FOR I=1 TO 33:WRITE #1,ZC(I):NEXT
4600 FOR I=1 TO 33:WRITE #1,WZ(I):NEXT
4610 FOR I=1 TO 33:WRITE #1,ZT(I):NEXT
4620 FOR I=1 TO 13:WRITE #1,RI(I),GO(I),NY(I),SY(I),CF(I),BY(I),DJ(I):NEXT
4630 FOR I=1 TO 13:READ A,B:WRITE #1,A,B,PM(A,B):NEXT
4640 WRITE #1,SW,LP
4650 FOR I=1 TO 4:WRITE #1,CNC(I):NEXT
4660 WRITE #1,NAME$,YR,MH
4670 CLOSE #1:PRINT "OK!"
4680 W$=INKEY$:GOTO 260
4690 DATA 1,1,1,10,2,6,3,8,4,2,4,4,6,4,6,7,8,4,8,10,9,2,9,6,9,8
4700 A=2
4705 IF PEEK(1008)=255 THEN A$="" ELSE A$="ر"
4710 IF PEEK(1021)<>0 THEN B$="" ELSE B$="ر"
4720 CLS:PRINT "ѡ","  Ч";A$,"  Զػ";B$
4730 LOCATE A,1:PRINT ""
4740 W$=INKEY$:IF W$=CHR$(27)THEN GOTO 260
4750 IF W$=CHR$(20)AND A=3 THEN A=2:4720
4760 IF W$=CHR$(21)AND A=2 THEN A=3:4720
4770 IF W$=CHR$(13)THEN 4790
4780 GOTO 4740
4790 IF A=2 THEN IF PEEK(1008)=0 THEN POKE 1008,255 ELSE POKE 1008,0
4800 IF A=3 THEN IF PEEK(1021)=0 THEN POKE 1021,15 ELSE POKE 1021,0
4810 GOTO 4700
4820 CLS:PRINT "Ҫ?(Y/N)":W$=INKEY$:IF W$<>"y" THEN GOTO 260
4830 PRINT "ǰ浵?(Y/N)":W$=INKEY$:IF W$="y" THEN GOTO 4580
4840 CLS:PRINT "ллʹã飬ϵ",":uiewy@163.com",":371835963"
4850 PRINT "ʵ";:POKE 802,198:POKE 803,183:PRINT;
4860 W$=INKEY$:END
5000 CLS:PRINT "ȷҪ?(Y/N)";:W$=INKEY$:IF W$="n" THEN 260
5005 LP=LP-1:C=1:D=0:T=5
5010 CLS:PRINT "ѡӢܡ","밴"
5020 W$=INKEY$:IF W$=CHR$(27)AND C>1 THEN W=P(EX,EY):5040 ELSE GOSUB 1320
5021 IF C=1 THEN 5030
5025 FOR I=1 TO C-1:IF F(I)=A THEN D=1
5026 NEXT
5027 IF D=1 THEN CLS:PRINT "ظѡ","밴":D=0:GOTO 5020
5030 F(C)=A:C=C+1:GOTO 5010
5040 MEN=C-1:FOR I=1 TO MEN
5050 CLS:PRINT C$(W);"б";BY(W);"."
5055 PRINT "";N$(F(I));".":INPUT "]";B
5060 IF B<=0 OR B>BY(W)THEN 5050
5070 BY(W)=BY(W)-B:AMY(I)=B
5080 NEXT
5090 CLS:PRINT "ս״̬"
5100 FOR I=1 TO MEN
5110 LOCATE I+1,1:PRINT N$(F(I));"-";AMY(I);:W$=INKEY$
5120 NEXT
5130 CX=EX:CY=EY
5140 CLS:LOCATE 2,12:PRINT "ѡ":LOCATE 3,12:PRINT "Ŀ":GOSUB 1000
5150 IF PM(EX,EY)=5 OR PM(EX,EY)=0 THEN GOSUB 1160:GOTO 5150
5160 GOSUB 1500:IF T=0 THEN GOSUB 1160:GOTO 5150
5170 CLS:PRINT "ս...":CITY=P(EX,EY):A=1
5180 FOR I=1 TO 33
5190 IF WZ(I)=CITY AND ZT(I)=PM(EX,EY)THEN E(A)=I:A=A+1
5200 NEXT
5210 EEN=A-1
5220 FOR I=1 TO EEN:EMY(I)=INT(RND(4)*7000):IF EMY(I)<2000 THEN EMY(I)=2000
5230 NEXT:FOR I=1 TO MEN:HP(I)=100:MP(I)=0:NEXT
5240 FOR I=1 TO EEN:EHP(I)=100:NEXT
5250 CLS:PRINT "ҡ";C$(CITY);"С":LOCATE 5,1:PRINT "          ";
5260 POKE 802,248:POKE 803,179:PRINT;:IF EEN<3 THEN A=EEN ELSE A=3
5270 FOR I=1 TO A:LOCATE I+1,15:PRINT N$(E(I));:NEXT
5280 A=1:C=1:IF MEN<3 THEN B=MEN ELSE B=3
5290 I=A:W=2:WHILE I<A+B:LOCATE W,1:PRINT N$(F(I));:W=W+1:I=I+1:WEND
5300 BOX 1,C*16,47,C*16+15,1,3
5310 W$=INKEY$
5320 IF W$=CHR$(13)THEN D=A+C-1:5380
5330 IF W$=CHR$(20)AND C>1 THEN C=C-1:5290
5335 IF W$=CHR$(20)AND C=1 AND A>1 THEN A=A-1:5290
5340 IF W$=CHR$(21)AND C<3 AND C<MEN THEN C=C+1:5290
5350 IF W$=CHR$(21)AND C=3 AND A<MEN-2 THEN A=A+1:5290
5360 IF W$=CHR$(27)THEN 6040
5370 GOTO 5310
5380 LOCATE 2,7:PRINT "롽":LOCATE 3,7:PRINT "սӭ"
5390 LOCATE 4,7:PRINT "ո":LOCATE 5,7:PRINT "鿴";
5400 W$=INKEY$
5410 IF W$=CHR$(13)THEN 5500
5420 IF W$=CHR$(32)THEN 5440
5430 FOR I=2 TO 5:LOCATE I,7:PRINT SPC(8);:NEXT:GOTO 5310
5440 CLS:PRINT "";N$(F(D));""
5450 PRINT ":";GJ(F(D)),":";ZZ(F(D))
5460 LOCATE 2,11:PRINT ":";ZL(F(D)):LOCATE 3,11:PRINT "ͳ:";TS(F(D))
5470 PRINT ":";HP(D);:LOCATE 4,11:PRINT "ŭ:";MP(D)
5480 PRINT "ʿ:";AMY(D);:LOCATE 5,11:PRINT "ҳ:";ZC(F(D));
5490 W$=INKEY$:GOTO 5250
5500 FOR I=1 TO EEN:IF EHP(I)>0 THEN C=I
5510 NEXT
5520 CLS:ELLIPSE 78,26,45,20,1:ELLIPSE 82,54,45,20,1:ELLIPSE 86,33,50,25,1,0
5530 ELLIPSE 74,47,50,25,1,0:LOCATE 2,8:PRINT N$(F(D)):LOCATE 3,9:PRINT "֣"
5540 LOCATE 4,8:PRINT N$(E(C)):W$=INKEY$
5550 CLS:PRINT "";AMY(D):LOCATE 1,15:PRINT "";EMY(C)
5560 LOCATE 1,7:PRINT "";C$(CITY);""," A:  D: "
5570 PRINT " Q:˱ "
5580 FOR I=1 TO 8
5590 W=INT(RND(1)*10):IF W<1 THEN W=1
5595 R(I)=W
5600 NEXT
5605 A=1:W=1:FOR I=1 TO 3:SE(I)=0:NEXT
5610 LOCATE 5,1:PRINT ":";SPC(16);:FOR I=1 TO 8
5620 LOCATE 5,I*2+3:PRINT R(I);
5630 IF R(I)=0 THEN LOCATE 5,I*2+3:PRINT "*";
5640 NEXT
5650 LOCATE 5,W*2+2:PRINT ">";
5660 W$=INKEY$
5670 IF W$=CHR$(23)AND W>1 THEN W=W-1
5680 IF W$=CHR$(22)AND W<8 THEN W=W+1
5690 IF W$="a" AND A>=3 THEN 5740
5700 IF W$="d" THEN 6050
5710 IF W$="q" THEN 5250
5720 IF W$=CHR$(13)AND A<=3 AND R(W)<>0 THEN SE(A)=R(W):R(W)=0:A=A+1
5730 GOTO 5610
5740 FOR I=2 TO 4:LOCATE I,8:PRINT SPC(6);:NEXT
5745 FOR I=1 TO 3:LOCATE I+1,10:PRINT SE(I);:NEXT
5750 LOCATE 3,9:PRINT "<":A=(SE(1)+SE(2)+SE(3))*40+TS(F(D)):LOCATE 2,11:PRINT ""
5760 IF SE(1)=1 AND SE(2)=3 AND SE(3)=5 THEN A$="ǿ":B$="ɱ":A=A*2:5810
5770 IF SE(1)=7 AND SE(2)=7 AND SE(3)=7 THEN A$="":B$="":A=A*3:5810
5780 IF SE(1)=1 AND SE(2)=1 AND SE(3)=9 THEN A$="":B$="":A=A*1.5:5810
5790 IF SE(1)=9 AND SE(2)=3 AND SE(3)=1 THEN A$="":B$="":A=A/4:AMY(D)=AMY(D)+A:5810
5800 A$="":B$="ͨ"
5810 EMY(C)=INT(EMY(C)-A):LOCATE 3,11:PRINT A$:LOCATE 4,11:PRINT B$
5820 FOR I=1 TO 24:CIRCLE 136,40,I,1:NEXT
5830 FOR I=1 TO 24:CIRCLE 136,40,I,1,0:NEXT
5840 W$=INKEY$:FOR I=1 TO 3:SE(I)=INT(RND(1)*10):NEXT
5850 FOR I=1 TO 3:LOCATE I+1,10:PRINT SE(I);:NEXT
5860 LOCATE 3,9:PRINT ">":A=(SE(1)+SE(2)+SE(3))*40+TS(E(C)):LOCATE 2,11:PRINT ""
5870 LOCATE 3,11:PRINT "":LOCATE 4,11:PRINT "ͨ"
5880 AMY(D)=INT(AMY(D)-A)
5890 I=1
5900 WHILE I<17
5910 R=1+64*RND(1):O=16+40*RND(1):CIRCLE R,O,8,1
5920 FOR W=0 TO 8:CIRCLE R,O,W,1,0:NEXT
5930 I=I+1:WEND
5940 IF AMY(D)<=0 THEN HP(D)=0:5970
5950 IF EMY(C)<=0 THEN EHP(C)=0:5970
5960 GOTO 5550
5970 A=0:FOR I=1 TO MEN:IF HP(I)<=0 THEN A=A+1
5980 NEXT
5990 IF A=MEN THEN 6040
6000 A=0:FOR I=1 TO EEN:IF EHP(I)<=0 THEN A=A+1
6010 NEXT
6020 IF A=EEN THEN CLS:PRINT C$(CITY);"Ϊ";NAME$;"!":W$=INKEY$
6030 IF A=EEN THEN FOR I=1 TO EEN:ZT(E(I))=6:NEXT:PM(EX,EY)=5
6033 IF A=EEN THEN FOR I=1 TO MEN:WZ(F(I))=CITY:NEXT:GOTO 260
6035 GOTO 5250
6040 CLS:PRINT NAME$;"ʧ!":W$=INKEY$:GOTO 260
6050 CLS:PRINT "1. 2.ɱ 3."
6060 LOCATE 3,3:PRINT "":LOCATE 3,17:PRINT ""
6070 BOX 2,65,78,69:BOX 2,71,78,79:BOX 82,71,158,79
6080 LINE 4,67,MP(D)*.72+4,67:BOX 4,73,HP(D)*.72+4,77,1:BOX 84,73,EHP(C)*.72+84,77,1
6090 W$=INKEY$
6100 IF W$="b" THEN 6130
6110 IF W$="n" AND MP(D)>=99 THEN 7700
6120 IF W$="m" THEN 5550 ELSE 6090
6130 CLS:PRINT "  ";N$(F(D));"ļܡ"
6140 IF GJ(F(D))>ZL(F(D))THEN A=GJ(F(D))/10-1:B=1 ELSE A=ZL(F(D))/10-1:B=2
6150 IF A>8 THEN A=8
6160 A=INT(A):FOR I=1 TO A
6170 PRINT I;".";JN$(B,I);
6180 NEXT
6190 W$=INKEY$
6200 IF W$="b" THEN IF B=1 THEN I=1:6350 ELSE I=1:7060
6210 IF W$="n" THEN IF B=1 THEN I=2:6450 ELSE I=2:7100
6220 IF W$="m" THEN IF B=1 THEN I=3:6530 ELSE I=3:7150
6230 IF W$="g" THEN IF B=1 THEN I=4:6570 ELSE I=4:7250
6240 IF W$="h" THEN IF B=1 THEN I=5:6670 ELSE I=5:7350
6250 IF W$="j" THEN IF B=1 THEN I=6:6780 ELSE I=6:7390
6260 IF W$="t" THEN IF B=1 THEN I=7:6860 ELSE I=7:7400
6270 IF W$="y" THEN IF B=1 THEN I=8:6980 ELSE I=8:7480
6280 GOTO 6190
6290 CLS:LOCATE 3,3:PRINT "":LOCATE 3,17:PRINT ""
6300 BOX 2,65,78,69:BOX 2,71,78,79:BOX 82,71,158,79
6310 LINE 4,67,MP(D)*.72+4,67:BOX 4,73,HP(D)*.72+4,77,1:BOX 84,73,EHP(C)*.72+84,77,1
6320 LOCATE 1,7:PRINT JN$(B,I)
6330 EHP(C)=INT(EHP(C)-I*2-GJ(F(D))/9-ZL(F(D))/13)
6340 RETURN
6350 GOSUB 6290:BOX 1,0,159,80,1,3
6360 FOR I=1 TO 53 STEP 1.5
6370 ELLIPSE I*3,40,6,7,1,0
6380 NEXT
6390 FOR I=5 TO 102 STEP 9
6400 CIRCLE 159,40,I,0,0
6410 CIRCLE 159,40,I-2,0,0
6420 CIRCLE 159,40,I-4,1,0
6430 NEXT
6440 GOTO 7600
6450 GOSUB 6290:BOX 1,0,159,80,1,3
6460 FOR I=1 TO 159 STEP 3.5
6470 CIRCLE I,40*(SIN(A/18)+1),3,0,0
6480 CIRCLE I,40*(COS(A/18)+1),3,0,0
6490 IF I>105 THEN GOTO 6520
6500 ELLIPSE I*2,30,3,2,0,0
6510 ELLIPSE I*2,60,3,2,0,0
6520 NEXT:GOTO 7600
6530 GOSUB 6290:BOX 1,0,159,80,1,3
6540 FOR I=1 TO 159 STEP 5.5
6550 CIRCLE I,SQR(4*I)*(SIN(I/17))+40,I/15,1,0
6560 NEXT:GOTO 7600
6570 GOSUB 6290:FOR I=40 TO 80 STEP 25
6580 ELLIPSE 80,70,I,6,0,1:ELLIPSE 80,70,I-5,4,0,1:ELLIPSE 80,70,I-7,3,1,0
6590 NEXT
6600 BOX 1,0,159,80,1,1:BOX 1,0,159,80,1,0:BOX 1,0,159,80,1,1
6610 FOR I=0 TO 80 STEP 10:CIRCLE 5*SIN(I/13)+80,80-I,10,1,0:NEXT
6620 FOR I=1 TO 40:NEXT
6630 FOR I=0 TO 80 STEP 4:CIRCLE 5*SIN(I/13)+80,80-I,9,1,1:NEXT
6640 FOR I=0 TO 80 STEP 15:ELLIPSE 80,80-I,50,50,1,2:NEXT
6650 FOR I=0 TO 80 STEP 16:ELLIPSE 80,80-I,80,40,1,1:NEXT
6660 GOTO 7600
6670 GOSUB 6290:FOR I=70 TO 90
6690 CIRCLE I,SQR(100-((I-80)*(I-80)))+40,10,1,0
6700 CIRCLE 159-I,40-(SQR(100-((I-80)*(I-80)))),10,1,1
6710 NEXT
6720 FOR I=70 TO 90:CIRCLE I,SQR(100-((I-80)*(I-80)))+40,10,1,1
6730 CIRCLE 159-I,40-(SQR(100-((I-80)*(I-80)))),10,1,0
6740 NEXT
6750 FOR I=1 TO 90 STEP 16:CIRCLE 80,40,I,1,1:NEXT
6760 FOR A=1 TO 99 STEP 16:CIRCLE 80,40,A,1,0:NEXT
6770 GOTO 7600 
6780 GOSUB 6290:FOR I=0 TO 80 STEP 3:BOX 70,80,88,80-I,1:NEXT
6790 FOR I=80 TO 160 STEP 3
6800 LINE 80,10,I,SQR(160000-25*(I-80)*(I-80))/8+10,1
6810 LINE 80,10,160-I,SQR(160000-25*(I-80)*(I-80))/8+10,1
6820 NEXT
6830 FOR I=1 TO 50:NEXT
6840 FOR I=0 TO 80 STEP 15:CIRCLE 80,80-I,80,1,2:NEXT
6850 GOTO 7600
6860 GOSUB 6290:BOX 1,0,159,80,1,3
6870 FOR I=1 TO 7
6880 CIRCLE 80+(I*10),40+(I*5),I,1,0
6890 CIRCLE 80-(I*10),40-(I*5),I,1,0
6900 CIRCLE 80+(I*10),40-(I*5),I,1,0
6910 CIRCLE 80-(I*10),40+(I*5),I,1,0
6920 CIRCLE 80+(I*10),40,I,1,0
6930 CIRCLE 80,40,I*8,0,0
6940 CIRCLE 80-(I*10),40,I,1,0
6950 NEXT
6960 FOR I=1 TO 60:NEXT
6970 GOTO 7600
6980 GOSUB 6290:BOX 1,0,159,80,1,3
6990 FOR I=7 TO 142 STEP 7
7000 W=RND(1)*10+I:A=RND(1)*30+25
7010 LINE W-6,A,W+6,A,0:LINE W,A-6,W,A+6,0
7020 LINE W+5,A+5,W-5,A-5,0:LINE W-5,A+5,W+5,A-5,0
7030 CIRCLE W,A,4,0,0:NEXT
7040 FOR I=1 TO 159 STEP 6:ELLIPSE I,40,15,8,1,0:NEXT
7050 GOTO 7600
7060 GOSUB 6290:CIRCLE 100,40,25,1:CIRCLE 110,40,25,1,0:CIRCLE 100,40,25,1,0
7070 FOR I=0 TO 1:FOR W=80 TO 15 STEP-5
7080 CIRCLE 8,40,W,0,2:CIRCLE 8,40,W-10,0,2:CIRCLE 8,40,W-15,0,2:NEXT W,I
7090 GOTO 7600
7100 GOSUB 6290:A=48:B=40:FOR W=1 TO 0 STEP-1
7110 FOR I=45 TO 18 STEP-1
7120 X=35*COS(.5*I)+35:Y=25*SIN(.3*I)+40
7130 LINE X,Y,48,40,W:LINE X,Y,A,B,W:A=X:B=Y:NEXT I,W
7140 GOTO 7600
7150 GOSUB 6290
7160 FOR I=35 TO 150 STEP 11:ELLIPSE I,40,15,8,1:ELLIPSE I-9,40,15,8,1,0:NEXT
7170 W=0
7180 FOR I=0 TO 25 STEP 5
7190 CIRCLE 150,40,I,1
7200 NEXT:IF W THEN 7230
7210 FOR I=25 TO 0 STEP-1:CIRCLE 150,40,I,0,0:NEXT I
7220 W=1:GOTO 7180
7230 FOR I=0 TO 26 STEP 2:CIRCLE 150,40,I,1,0:NEXT I
7240 GOTO 7600
7250 GOSUB 6290:LINE 150,40,8,40:W=9
7260 FOR I=1 TO 11 STEP 2
7270 A=8*I-4:CIRCLE A,40,10:CIRCLE W,40,10,0,0:W=A:NEXT
7280 LINE 150,40,84,40:CIRCLE 84,40,20
7290 FOR I=0 TO 64 STEP 3
7300 W=20*COS(I)+84:O=20*SIN(I)+40:CIRCLE W,O,4,1:LINE W,O,84,40
7310 NEXT
7320 FOR I=1 TO 0 STEP-1:FOR W=0 TO 26 STEP 2
7330 CIRCLE 84,40,W,1,I:NEXT W,I
7340 GOTO 7600
7350 GOSUB 6290
7360 FOR I=1 TO 14 STEP.2:W=85*COS(I)+96:A=25*SIN(I)+40:LINE W,A,96,40,2:NEXT
7370 FOR I=0 TO 28 STEP 2:W=80/25*I:ELLIPSE 96,40,W,I,1,0:NEXT
7380 GOTO 7600
7390 GOTO 6860
7400 GOSUB 6290:FOR I=1 TO 10:CIRCLE 25,40,I,1
7410 FOR W=1 TO I:CIRCLE 25,40,W,1,0:NEXT W,I
7420 A=80:B=35:X=B
7430 FOR I=25 TO 150 STEP 8:Y=(1/320)*I^2-.5*I+40
7440 CIRCLE I,Y,5,1:CIRCLE A,B,5,1,0:CIRCLE I,40,5,1:CIRCLE I-8,40,5,1,0
7450 CIRCLE I,80-Y,5,1:CIRCLE A,X,5,1,0:A=I:B=Y:X=80-Y
7460 NEXT
7470 GOTO 7170
7480 GOSUB 6290:FOR I=8 TO 16:W=16
7490 WHILE W>I
7500 A=3*W:ELLIPSE 80,40,A,W:B=3*(W+2):ELLIPSE 80,40,B,W+1,0,0:W=W-1
7510 WEND
7520 NEXT I
7530 FOR I=16 TO 2 STEP-1:W=3*I:ELLIPSE 80,40,W,I,0,2:NEXT
7540 FOR W=1 TO 2:FOR I=15 TO 100 STEP 5:A=.2*I
7550 ELLIPSE 80,40,I,A,0,2:ELLIPSE 80,40,I-15,.2*(I-15),0,2
7560 NEXT I,W
7570 FOR I=0 TO 20:A=3*I:ELLIPSE 80,40,A,I,1,0:NEXT
7580 GOTO 7600
7600 CLS:LOCATE 3,3:PRINT "":LOCATE 3,17:PRINT ""
7610 BOX 2,65,78,69:BOX 2,71,78,79:BOX 82,71,158,79
7620 LINE 4,67,MP(D)*.72+4,67:BOX 4,73,HP(D)*.72+4,77,1
7630 LOCATE 1,7:PRINT ""
7640 FOR I=120 TO 17 STEP-8
7650 FOR W=I TO I-8 STEP-1:LINE W,17,W,63:NEXT W
7660 FOR W=I TO I-8 STEP-1:LINE W,17,W,63,0:NEXT W
7670 NEXT I
7680 HP(D)=INT(HP(D)-(GJ(E(C))+ZL(E(C)))/6.9):MP(D)=MP(D)+RND(1)*40
7685 IF MP(D)>100 THEN MP(D)=100
7690 IF HP(D)<=0 OR EHP(C)<=0 THEN 5970 ELSE 6050
7700 IF GJ(F(D))>ZL(F(D))THEN 7820
7710 LOCATE 1,1:PRINT " ɱңѪ "
7720 LOCATE 3,3:PRINT ""
7730 FOR I=35 TO 132 STEP 6:BOX I,38,I+4,42,1:NEXT
7740 FOR I=131 TO 35 STEP-1:LINE I,38,I,42:NEXT
7750 FOR I=1 TO 800:NEXT:W=140:FOR I=1 TO 25:W=W-20
7760 IF W<33 THEN W=120
7770 BOX W,39,W+7,41,1,0:FOR A=1 TO 140:NEXT A
7780 BOX 36,38,132,42,1:NEXT I
7790 EHP(C)=INT(EHP(C)/2):HP(D)=HP(D)+EHP(C):MP(D)=0
7800 IF HP(D)>99 THEN HP(D)=99
7810 GOTO 7600
7820 LOCATE 1,1:PRINT "  ɱն  "
7830 A=16:CIRCLE 60,40,15,1
7840 FOR I=1 TO 20:A=A-1
7850 IF A<5 THEN A=16:CIRCLE 60,40,15,1
7860 CIRCLE 60,40,A,0,0:NEXT
7870 FOR I=5 TO 30 STEP 5:CIRCLE 60,40,I,1:NEXT
7880 FOR I=60 TO 240 STEP 20
7890 IF I<180 THEN CIRCLE I,40,30,1
7900 IF I>80 THEN CIRCLE I-40,40,30,1,0
7910 NEXT
7920 EHP(C)=INT(EHP(C)-50):MP(D)=0
7930 GOTO 7600
8000 A$="´ƣϾñط֣־ñغϡڣ˰"
8010 A$=A$+"ƷȻһ֪ܳ..."
8020 FOR I=1 TO LEN(A$)STEP 2:PRINT MID$(A$,I,2);:FOR W=1 TO 600:NEXT W,I
8030 A$="Ա        :uiewy        :Klein          "
8040 A$=A$+"֧:ɺ       лл֧!":W$=INKEY$
8050 FOR I=1 TO LEN(A$)STEP 2:PRINT MID$(A$,I,2);:FOR W=1 TO 200:NEXT W,I
8500 W$=INKEY$:END
8510 :::::::
