0 :
10 GRAPH:WZ=0
14 LINE 26,2,26,8:LOCATE 2,4:PRINT "Ѫ V2.0"
15 BOX 20,0,137,70
16 LINE 22,2,22,8
17 LINE 23,3,23,4
18 LINE 24,5,24,6
19 LINE 25,3,25,4
20 BOX 138,2,139,72
21 LINE 28,4,29,4
22 LINE 29,4,29,8
23 LINE 28,8,30,8
24 DRAW 29,2
30 BOX 22,71,139,72
31 DRAW 32,4
32 LINE 33,5,33,8
33 LINE 32,8,34,8
34 LINE 34,4,35,4
35 DRAW 36,5
40 BOX 127,2,133,8
41 LINE 40,3,40,4
42 LINE 41,2,43,2
43 LINE 41,5,43,5
44 LINE 44,6,44,7
45 LINE 41,8,43,8
46 DRAW 40,7
47 DRAW 44,3
50 LINE 133,2,128,7
51 LINE 46,5,46,7
52 LINE 47,4,49,4
53 LINE 46,6,50,6
54 LINE 47,8,49,8
55 DRAW 50,5
60 LINE 127,2,133,8
61 LINE 52,4,55,4
62 LINE 53,2,53,7
63 LINE 54,8,55,8
64 DRAW 56,7
70 BOX 119,2,125,8
71 LINE 58,4,58,7
72 LINE 61,4,61,7
73 LINE 59,8,60,8
74 DRAW 62,8
80 LINE 119,3,125,3
81 DRAW 64,4
82 LINE 65,5,65,10
83 LINE 64,10,66,10
84 LINE 66,4,67,4
85 LINE 66,8,67,8
86 LINE 68,5,68,7
90 BOX 111,2,117,8
100 LINE 111,7,117,7
111 BOX 21,1,136,11,1,2
120 LOCATE 3,7:PRINT "ʼװ"
130 LOCATE 4,7:PRINT "˳װ"
132 LINE 21,0,136,0,1
150 BOX 47,(WZ+2)*16,113,(WZ+3)*16-1,1,2
160 W$=INKEY$
161 IF W$=CHR$(13) THEN 200 
162 BOX 47,(WZ+2)*16,113,(WZ+3)*16-1,1,2
170 WZ=1-WZ
190 GOTO 150
200 IF WZ=1 THEN 201 ELSE 1000
201 FOR A=30 TO 65
210 BOX 40,A,120,A,1,0
220 FOR B=1 TO 50 :NEXT 
230 NEXT 
240 LOCATE 3,4:PRINT " ȷ˳"
250 LOCATE 4,7:PRINT "(Y/N)N   "
260 W$=INKEY$
270 IF W$="y" THEN 280 ELSE 271
271 FOR A=30 TO 65
272 BOX 22,A,130,A,1,0
273 FOR B=1 TO 50 :NEXT 
274 NEXT :CLS: GOTO 14
280 FOR A=30 TO 65
290 BOX 22,A,130,A,1,0
300 FOR B=1 TO 50 :NEXT 
310 NEXT 
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 FOR A=30 TO 65
1020 BOX 22,A,130,A,1,0
1030 FOR B=1 TO 50 :NEXT 
1040 NEXT 
1050 LOCATE 3,4:PRINT "...  "
1051 LOCATE 4,4:PRINT "˺ʶļ "
1061 OPEN "Mir_name" FOR OUTPUT AS #1
1063 WRITE #1,"name","MAP","ZB1","ZB2"
1065 CLOSE #1
1070 LOCATE 4,4:PRINT "װ1   ";
1080 OPEN "Mir_ZB1" FOR OUTPUT AS #1
1090 WRITE #1,"","ն","","˪","˻"
1100 WRITE #1,"ƽ","޼","þ","","󿲵"
1110 WRITE #1,"ն","ɵ","ĩ","",""
1120 WRITE #1,"ħ","Ȩ","ħ","","zgrĵ"
1130 REM ·
1140 WRITE #1,"","Ϳ","ؿ","ս","ս"
1150 WRITE #1,"ħ","ְ","ս","аħ","ս"
1160 WRITE #1,"","ħ","","ĩ",""
1170 REM 
1180 WRITE #1,"","","","ĩȦ","ĩ֮"
1190 WRITE #1,"ĩʥ","","","ָ",""
1200 WRITE #1,"ĩ","ʥ","zgr֮","zgr֮","zgr֮","zgr֮"
1210 CLOSE #1
1500 LOCATE 4,4:PRINT "װ2   ";
1510 OPEN "Mir_ZB2" FOR OUTPUT AS #1
1520 WRITE #1,0,0,0,0,5,10,0,1,0,1,5,5,10
1530 WRITE #1,0,0,0,0,5,15,0,0,0,0,0,0,15
1540 WRITE #1,0,0,0,0,10,20,0,0,0,0,5,5,20
1550 WRITE #1,0,0,0,0,10,13,0,0,0,2,0,0,17
1560 WRITE #1,0,0,0,0,7,12,0,0,0,0,0,1,12
1570 WRITE #1,0,0,0,0,8,12,0,0,3,5,0,0,15
1580 WRITE #1,0,0,0,0,5,15,0,0,2,8,0,0,17
1590 WRITE #1,0,0,0,0,0,30,0,0,0,0,0,0,50
1600 WRITE #1,0,0,0,0,5,35,0,0,0,0,0,0,99
1610 WRITE #1,0,2,0,2,0,45,0,0,0,0,0,0,100
1620 WRITE #1,0,0,0,0,30,52,0,0,0,0,5,5,150
1630 WRITE #1,0,0,0,0,30,35,5,15,0,7,5,5,120
1640 WRITE #1,0,0,0,0,0,60,0,0,0,0,2,2,140
1650 WRITE #1,0,0,0,0,0,10,1,2,0,0,0,0,18
1660 WRITE #1,0,0,0,0,3,10,0,3,0,0,0,0,23
1670 WRITE #1,0,0,0,0,5,10,3,5,0,0,0,0,27
1680 WRITE #1,0,0,0,0,3,8,5,7,0,0,0,0,30
1690 WRITE #1,0,0,0,1,0,15,7,13,0,0,0,0,20
1700 WRITE #1,0,0,0,0,0,70,0,0,0,0,30,30,200
1710 WRITE #1,0,50,0,50,100,0,0,50,0,50,20,20,10
1720 REM ·
1730 WRITE #1,3,3,1,1,0,1,0,1,0,1,0,0,12
1740 WRITE #1,4,4,1,2,0,0,0,0,0,0,0,0,17
1750 WRITE #1,5,6,3,5,0,0,0,0,0,0,0,0,20
1760 WRITE #1,6,7,5,6,0,2,0,0,0,0,0,0,25
1770 WRITE #1,4,6,2,2,0,0,0,0,3,5,0,0,22
1780 WRITE #1,3,4,2,5,0,0,3,5,0,0,0,0,20
1790 WRITE #1,7,8,5,7,4,8,0,0,0,0,0,0,30
1800 WRITE #1,5,6,5,5,0,0,0,0,4,8,0,0,30
1810 WRITE #1,5,7,7,8,0,0,4,8,0,0,0,0,25
1820 WRITE #1,7,15,7,15,2,5,2,5,2,5,1,0,35
1825 WRITE #1,4,8,4,8,0,3,0,3,5,15,0,1,30
1830 WRITE #1,7,7,0,20,0,0,8,12,0,1,0,0,27
1840 WRITE #1,5,20,5,25,0,5,0,5,0,5,1,1,40
1850 WRITE #1,0,15,5,10,0,1,0,1,0,15,0,0,30
1860 WRITE #1,1,16,8,15,0,7,0,7,0,7,0,1,30
1870 REM 
1880 WRITE #1,0,0,0,0,2,8,2,8,2,8,4,4,5
1890 WRITE #1,0,5,0,5,0,0,0,0,0,0,0,0,5
1900 WRITE #1,9,9,9,9,0,1,0,1,0,1,0,0,3
1910 WRITE #1,0,1,0,1,0,3,0,0,0,0,0,0,3
1915 WRITE #1,1,5,1,5,0,5,0,0,0,0,0,0,5
1920 WRITE #1,0,9,0,0,0,9,0,0,0,0,1,1,4
1930 WRITE #1,0,3,0,3,0,3,0,3,0,3,5,5,3
1940 WRITE #1,2,3,2,3,0,0,0,0,0,0,0,0,3
1950 WRITE #1,1,2,1,1,0,2,0,1,0,7,0,0,3
1960 WRITE #1,9,9,9,9,0,1,0,1,0,1,0,0,10
1970 WRITE #1,5,6,5,6,2,0,2,0,2,0,0,0,7
1980 WRITE #1,3,5,4,3,0,2,0,2,0,2,0,0,5
1990 WRITE #1,9,9,9,9,9,9,9,9,9,9,9,9,1
2000 WRITE #1,9,9,9,9,9,9,9,9,9,9,9,9,1
2010 WRITE #1,9,9,9,9,9,9,9,9,9,9,9,9,1
2020 WRITE #1,9,9,9,9,9,9,9,9,9,9,9,9,1
2030 CLOSE #1
3000 REM ͼ
3010 LOCATE 4,4:PRINT "ͼ    ";
3020 OPEN "Mir_MAP" FOR OUTPUT AS #1
3030 WRITE #1,"TTTTTTTTTTTTTTTTTTTTTTTWWWWWSSSSSSSSSSSSSSSSSSSSSS"
3040 WRITE #1,"TKKKKKKKKKKKKKTKKKKKKKKWWWWWKKKKKKKKKKKSSKKKKKKKKS"
3050 WRITE #1,"TKKKKKKKKKKKKTKKKKKKKKKWWWWWKKKKKKKKKKKSSKKKCKKKKS"
3060 WRITE #1,"TKKKKKKKKKKTKKKKKKKKKKKWWWWWKKKKKKKKKKKSSKKKKKKKKS"
3070 WRITE #1,"TTTTTTTTTTTTTTTTTTTTTKTWWWWWSSSKSSSSSSSSSKKKKKKKKS"
3080 WRITE #1,"SSSSSSSSSSSSSSSSSSSSTKTWWWWWSSSKSSSSSSSSSKKKKKKKKS"
3090 WRITE #1,"SKKSKKKKKKKKKKKKKKKSTKKWWWWWKKKKKKKKKKKKKKKKKKKKKS"
3100 WRITE #1,"SKKKSKKKKKKKKKKKKKKSTKKKWWWKKKKKKKKKKKKKKKKKKKKKKS"
3110 WRITE #1,"SKKKKSKKKKKKKKKKKKKKKKKKWWWKKKKKKKKKKKKKKKKKKKKKKS"
3120 WRITE #1,"SKKKKKKSSSSSSSSSSSSSTKKKWWWKKKKKTTTKTTTTTTTTTTTTTS"
3130 WRITE #1,"SKKKKKSSSSSSSSSSSSSSTKKKWWWKKKKKTTTKTTTTTTTTTTTTTS"
3140 WRITE #1,"SKKKKKKKKSSKKKKKKKKSTKKKWWWKKKKKTKKKKKKTSKKKKKKKKS"
3150 WRITE #1,"SKKKKKKKKSSKKKKKKKKSTKKKKWKKKKKKTKKKKKKTSKKKKKKKKS"
3160 WRITE #1,"SKKKKKKKKSSKKKKKKKKSTKKKKWKKKKKKTKKKKKKTSKKKKKKKKS"
3170 WRITE #1,"SSSSSSSKSSSSSSKSSSSSTTTKKWTTTTTKTTTTTTTTSSSSSSSSSS"
3180 WRITE #1,"SSSSSSSKSSTTTTKTTTTTTTTKKWTTTTTKTTSSSSSSSSSSSSSSSS"
3190 WRITE #1,"SKKKKKKKKSTKKKKKKKKKKKKKKWKKKKKKKKKKKKKKKKKKKKKKKS"
3200 WRITE #1,"SKKKKKKKKSTKKKKKKKKKKKKKKWKKKKKKKKSKKKKKKKKKKKKKKS"
3210 WRITE #1,"SKKKKKKKKSTKKKKKKKKKKKKKKWKKKKKKKKSKKKKKKKKKKKKKKS"
3230 WRITE #1,"SKKKKKKKKSTKKKKKKKKCCCKCCCKCCCCKKKSKKKKKKKKKKKKKKS"
3240 WRITE #1,"SKKKKKKKKSTKKKKKKKKCCCKCCCKCCCCKKKSKKKKKKKKKKKKKKS"
3250 WRITE #1,"SKKKKKKKKSTKKKKKKKKCCKKKKKKKKCCKKKSKKKKKKKKKKKKKKS"
3260 WRITE #1,"SKKKKKKKKSTKKKKKKKKCCKKKKKKKKCCKKKSKKKKKKKKKKKKKKS"
3270 WRITE #1,"SKKKKKKKKSTKKKKKKKKCCKKKKKKKKCCKKKSKKKKKKKKKKKKKKS"
3280 WRITE #1,"SSSSSSSSSSTTTTTTTTTCCCCCCCCCCCCTTTSSSSSSSSSSSSSSSS"
3290 LOCATE 2,4:PRINT "װɹ   "
3300 LOCATE 3,4:PRINT "       "
3310 LOCATE 4,4:PRINT "Mirenrollע"
