0 :
10 GRAPH:WZ=0
15 BOX 20,0,137,70
20 BOX 138,2,139,72
21 LINE 26,2,26,8
22 LINE 22,2,22,8
23 LINE 23,3,23,4
24 LINE 24,5,24,6
25 LINE 25,3,25,4
30 BOX 22,71,139,72
31 LINE 28,4,29,4
32 LINE 29,4,29,8
33 LINE 28,8,30,8
34 DRAW 29,2
40 BOX 127,2,133,8
41 DRAW 32,4
42 DRAW 36,5
43 LINE 33,5,33,8
44 LINE 32,8,34,8
45 LINE 34,4,35,4
50 LINE 133,2,128,7
51 LINE 41,2,45,2:DRAW 45,3
52 LINE 42,2,42,8
53 LINE 41,8,45,8:DRAW 45,7
54 LINE 42,5,44,5
60 LINE 127,2,133,8
61 DRAW 47,4
62 LINE 48,5,48,8
63 LINE 51,5,51,8
64 LINE 49,4,50,4
65 DRAW 53,4
66 LINE 54,5,54,8
67 LINE 55,4,56,4
68 DRAW 57,5
70 BOX 119,2,125,8
71 LINE 59,5,59,7
72 LINE 60,8,62,8
73 LINE 63,7,63,5
74 LINE 60,4,62,4
80 LINE 119,3,125,3
81 DRAW 65,2
82 LINE 66,2,66,8
83 LINE 65,8,67,8
90 BOX 111,2,117,8
91 DRAW 69,2
92 LINE 70,2,70,8
93 LINE 69,8,71,8
100 LINE 111,7,117,7
111 BOX 21,1,136,11,1,2
120 LOCATE 2,7:PRINT "ûע"
125 LOCATE 3,7:PRINT "޸"
130 LOCATE 4,7:PRINT "˳ע"
132 LINE 21,0,136,0,1
150 BOX 47,(WZ+1)*16,113,(WZ+2)*16-1,1,2
160 W$=INKEY$
161 BOX 47,(WZ+1)*16,113,(WZ+2)*16-1,1,2
162 IF W$=CHR$(13) THEN 200
163 IF W$=CHR$(21) THEN WZ=WZ+1
164 IF W$=CHR$(20) THEN WZ=WZ-1
166 IF WZ<0 THEN WZ=0
168 IF WZ>2 THEN WZ=2
190 GOTO 150
200 IF WZ=0 THEN 1000
201 IF WZ=1 THEN 2000
202 IF WZ=2 THEN 240
209 FOR A=14 TO 65
210 BOX 23,A,135,A,1,0
220 FOR B=1 TO 50 :NEXT 
230 NEXT :RETURN
240 GOSUB 209:LOCATE 2,4:PRINT " ȷ˳"
249 LOCATE 3,7:PRINT "         "
250 LOCATE 4,7:PRINT "(Y/N)N   "
260 W$=INKEY$
270 IF W$="y" THEN 310 ELSE GOSUB 209 :CLS: GOTO 15
274 GOSUB 209 :CLS: GOTO 15
310 GOSUB 209
311 LOCATE 2,4:PRINT "           "
320 LOCATE 3,4:PRINT "ڹر..."
321 LOCATE 4,4:PRINT "           "
330 FOR B=1 TO 500 :NEXT 
340 LOCATE 3,4:PRINT "԰ȫ"
350 LOCATE 4,4:PRINT "       ":END
999 GRAPH:WZ=0
1000 REM ע
1010 CLEAR:GOSUB 209
1020 LOCATE 2,4:PRINT "˺:"
1021 LOCATE 3,4:PRINT "           "
1022 LOCATE 4,4:PRINT "           "
1023 LOCATE 2,4:INPUT "˺:";PZH$
1024 LOCATE 3,4:PRINT ":"
1025 LOCATE 4,4:PRINT "           "
1026 LOCATE 3,4:INPUT ":";PCODE$
1027 LOCATE 4,4:INPUT "ظ:";PCODET$
1037 GOSUB 209
1039 OPEN "Mir_name" FOR INPUT AS#1
1040 IF EOF(1) THEN CLOSE #1: GOTO 1047
1041 INPUT #1,TZH$:IF PZH$=TZH$ THEN 1042 ELSE 1045
1042 LOCATE 2,4:PRINT "˺ע"
1043 LOCATE 3,4:PRINT "            "
1044 LOCATE 4,4:PRINT "            ":CLOSE #1:W$=INKEY$: GOTO 10
1045 GOTO 1040
1047 LOCATE 2,4:PRINT "ְ   1.սʿ"
1048 LOCATE 3,4:PRINT "ҵ   2.ʿ"
1049 LOCATE 4,4:PRINT "     3.ʦ"
1059 BOX 23,14,40,48
1069 ZY$=INKEY$
1070 IF ZY$="b" THEN 1071 ELSE 1075
1071 PZY%=0 :PAC1=3:PAC2=4:PMAC1=1:PMAC2=2:PDC1=1:PDC2=2:PMC1=0:PMC2=0:PSC1=0:PSC2=0
1072 PHP=14:PFHP=14:PMP=2:PFMP=2:SPEED=5:EXACT=5:WRIST=0:FWRIST=20:FZ=0:FFZ=50: GOTO 1090
1075 IF ZY$="n" THEN 1076 ELSE 1080
1076 PZY%=2 :PAC1=2:PAC2=3:PMAC1=0:PMAC2=1:PDC1=0:PDC2=1:PMC1=0:PMC2=1:PSC1=1:PSC2=2
1077 PHP=10:PFHP=10:PMP=10:PFMP=10:SPEED=5:EXACT=5:WRIST=0:FWRIST=14:FZ=0:FFZ=40: GOTO 1090
1080 IF ZY$="m" THEN 1081 ELSE 1089
1081 PZY%=1 :PAC1=1:PAC2=1:PMAC1=0:PMAC2=0:PDC1=0:PDC2=1:PMC1=1:PMC2=2:PSC1=0:PSC2=1
1082 PHP=8:PFHP=8:PMP=20:PFMP=20:SPEED=5:EXACT=5:WRIST=0:FWRIST=12:FZ=0:FFZ=30: GOTO 1090
1089 BEEP: GOTO 1069
1090 GOSUB 209
1100 LOCATE 2,4:PRINT ":     "
1101 LOCATE 3,4:PRINT "            "
1102 LOCATE 4,4:PRINT "            "
1112 LOCATE 2,4:INPUT ":";PNAME$
1122 LOCATE 3,4:PRINT "Ա:"
1132 LOCATE 4,4:PRINT " 1.  2.Ů "
1142 S$=INKEY$
1152 IF S$="b" THEN PSEX%=0: GOTO 1175
1155 IF S$="n" THEN PSEX%=1: GOTO 1175
1165 BEEP: GOTO 1142 
1175 GOSUB 209
1185 LOCATE 2,4:PRINT "ע..."
1195 LOCATE 3,4:PRINT "           "
1196 LOCATE 4,4:PRINT "           "
1249 IF PCODE$=PCODET$ THEN 1300 THEN 1250
1250 LOCATE 2,4:PRINT "벻ͬ!"
1251 LOCATE 3,4:PRINT "           "
1252 LOCATE 4,4:PRINT "           "
1260 W$=INKEY$: GOTO 10
1300 OPEN "Mir_"+PZH$ FOR APPEND AS#1
1310 WRITE #1,PCODE$,PNAME$,20,PZY%,PSEX%,1,0,100
1311 WRITE #1,PAC1,PAC2,PMAC1,PMAC2,PDC1,PDC2,PMC1,PMC2,PSC1,PSC2,PHP,PFHP,PMP,PFMP,5
1312 WRITE #1,10,WRIST,FWRIST,FZ,FFZ,10000
1313 FOR A=1 TO 8
1314 WRITE #1,0
1315 NEXT A
1316 WRITE #1,1,21
1317 FOR A=1 TO 36
1318 WRITE #1,0
1319 NEXT A
1330 CLOSE #1
1331 OPEN "Mir_name" FOR APPEND AS#1
1332 WRITE #1,PZH$
1333 CLOSE #1
1340 LOCATE 2,4:PRINT "עɹ  "
1341 LOCATE 3,4:PRINT "д2.0"
1342 LOCATE 4,4:PRINT "Ϸ    ":END
1500 RAPH :WZ=0
2010 GOSUB 209
2020 LOCATE 2,4:PRINT "˺:       "
2030 LOCATE 3,4:PRINT "            "
2040 LOCATE 4,4:PRINT "            "
2050 LOCATE 2,4:INPUT "˺:";XGZH$
2060 LOCATE 3,4:PRINT "ԭ:     "
2070 LOCATE 4,4:PRINT "            "
2080 LOCATE 3,4:INPUT "ԭ:";YPCODE$
2090 GOSUB 209
2170 OPEN "Mir_"+XGZH$ FOR INPUT AS#1
2180 INPUT #1,YZCODE$
2190 CLOSE #1
2200 IF YPCODE$<>YZCODE$ THEN LOCATE 2,4:PRINT "ԭ";: GOTO 2251
2210 IF QGCODE$<>QGCODE2$ THEN LOCATE 2,4:PRINT "βһ£";: GOTO 2251
2215 LOCATE 2,4:PRINT "޸...";
2216 LOCATE 3,4:PRINT "            ";
2217 OPEN "Mir_"+XGZH$ FOR INPUT AS #1:INPUT #1,E$
2218 INPUT #1,PNAME$,20,PZY$,PSEX$,LEV,EXP,NEXP
2219 INPUT #1,PAC1,PAC2,PMAC1,PMAC2,PDC1,PDC2,PSC1,PSC2,PHP,PFHP,PMP,PFMP,SPEED,EXACT
2220 INPUT #1,WRIST,FWRIST,FZ,FFZ,MONEY:CLOSE #1
2230 OPEN "Mir_"+XGZH$ FOR OUTPUT AS#1
2231 WRITE #1,QGCODE$,PNAME$,TIME,PZY$,PSEX$,LEV,EXP,NEXP
2232 WRITE #1,PAC1,PAC2,PMAC1,PMAC2,PDC1,PDC2,PSC1,PSC2,PHP,PFHP,PMP,PFMP,SPEED,EXACT
2233 WRITE #1,WRIST,FWRIST,FZ,FFZ,MONEY
2240 CLOSE #1
2250 LOCATE 2,4:PRINT "޸ĳɹ  ";
2251 LOCATE 3,4:PRINT "            ";
2260 W$=INKEY$:CLS: GOTO 10
9999 RAPH :WZ=0
