0 CLS
10 GRAPH:CLS
20 PRINT "---- GVB2---"," һֵ ","1.ʼ","2.ҸĻ"
30 PRINT "3.μ";:LINE 0,15,160,15
40 P$=INKEY$
50 IF P$="b" THEN 100
60 IF P$="n" THEN 9000
70 IF P$="m" THEN 9500
80 IF P$=CHR$(27)THEN POKE(199),155
90 GOTO 40
100 CLS:PRINT "һ죬峤ͻȻм񿪻ᣬۺɽĻĵδĽɹ"
110 P$=INKEY$:CLS:PRINT "ʱֲ԰ɡİ㣬˼Ƭ̣"
120 P$=INKEY$:CLS:PRINT "˵ͷЦ˵Ըʱ䣬ܷɺá˵"
130 P$=INKEY$:CLS:PRINT "ǡ":INPUT "ҽ";MZ$:INPUT "ҵĳ";SY:INPUT "";SR
140 PRINT "";:P$=INKEY$:CLS
141 IF SY>12 OR SY<1 THEN PRINT "ղ԰":P$=INKEY$:GOTO 130
142 IF SR>30 OR SR<1 THEN PRINT "ղ԰":P$=INKEY$:GOTO 130
143 IF MZ$="" OR LEN(MZ$)>6 THEN PRINT "ֺ":P$=INKEY$:GOTO 130
150 PRINT "ȥСϢɡ":P$=INKEY$
160 N=1:Y=1:R=1:MN=1000:TI=6:TL=100:JS=60:ZC=50:ST=10:MT=40:FDJ=1:CDJ=1:LDJ=1:YDJ=1:DDJ=1
170 TDK=0:TD=20:NZ=0:NZR=0:FM=1:NZZ=0:YP=0:HF=0:NC=0:JZ=0:N$=" ":Y$=" ":J$=" ":PT=0
180 YZ=0:HS=0:HR=0:NS=0:J=0:YS=0:XX=100:NT=0:JT=0:YT=0:XQ=1:GX=40
200 CLS:X$(1)="һ":X$(2)="":X$(3)="":X$(4)="":X$(5)="":X$(6)="":X$(7)="":
210 LOCATE 1,1:PRINT "";N;"";Y;"";R;" ";X$(XQ)
220 LOCATE 2,1:PRINT MZ$;"'s farm"
230 LOCATE 3,1:PRINT "1.ҵռ2.ڼϢ","3.ũ4.ȥ"
240 LOCATE 5,1:PRINT "";TI;"";
250 P$=INKEY$
260 IF P$="b" THEN 300
270 IF P$="n" THEN 1000
280 IF P$="m" THEN 3000
285 IF P$=CHR$(27)THEN CLS:LOCATE 3,7:PRINT "ȷY/N?":GOTO 410
290 IF P$="g" AND XQ<>7 THEN 6000 ELSE 250
300 CLS:PRINT "ʽ:";MN,":";SY;".";SR,":";TL,":";JS,"--ҵ--";:P$=INKEY$
310 CLS:PRINT "Ӳ:";INT(ZC);"% ʯ:";INT(ST);"%","ľ:";INT(MT);"% :";INT(TD),":";TDK;"%"
320 PRINT ":";YW;" ů:";HF,"--ҵ--";:P$=INKEY$:CLS
330 PRINT "Lv:";FDJ;" Lv:";CDJ,"Lv:";LDJ;" Lv:";YDJ,"Lv:";DDJ
340 PRINT "ũ:";NZ;"","--ҵĹ--";:P$=INKEY$:CLS
350 PRINT "ũʣ";NZR;"",":";HS,"ʣ";HR;"","ũ״̬:";NZZ
360 PRINT "--ҵ--";:P$=INKEY$:CLS
370 PRINT "ҵţ:";N$,"ţ׶:";INT(NC),"ţ";NS;"","--ҵţ--";
380 P$=INKEY$:CLS:PRINT "ҵļ:";J$,"״̬:";INT(JZ),"";J;""
390 PRINT "--ҵļ---";:P$=INKEY$:CLS:PRINT "ҵ:";Y$,"״̬:";INT(YZ)
400 PRINT "";YS;"","--ҵ--";:P$=INKEY$:GOTO 200
410 P$=INKEY$:IF P$="y" THEN 10 ELSE 200
1000 CLS
1010 PRINT "1.Ҫ˯2.GBA ","3.4.ѧϰѧϰ","5.6.","--ڼϢ--":P$=INKEY$
1020 IF P$="b" THEN 8000
1030 IF P$="n" THEN 1200
1040 IF P$="m" THEN 1500
1050 IF P$="g" THEN 1800
1052 IF P$="h" THEN 9800
1053 IF P$="j" THEN 9850
1055 IF P$=CHR$(27)THEN 200
1060 GOTO 1000
1200 CLS:PRINT "ҴGBAڴʯߴSEEDս"
1210 FOR P=1 TO 160 STEP 0.3
1220 BOX 0,75,P,81:NEXT
1230 PRINT "ԽԽˡ":JS=JS+1:TI=TI+1:TL=TL-5:P$=INKEY$:GOTO 8500
1500 CLS:PRINT "ղඣЩϡ"
1501 IF MN<50 THEN P$=INKEY$:GOTO 200
1510 MN=MN-50:P$=INKEY$:CLS:PRINT "ҵġ":FOR P=1 TO 160 STEP 0.2:BOX 0,75,P,81
1520 NEXT:TI=TI+2:TL=TL-8:P=RND(1)*5+1+JS/50
1530 IF P>6 THEN PRINT "ˣ˰ɡ":P$=INKEY$:MN=MN+75:JS=JS+1:GOTO 8500
1540 IF P<=6 THEN PRINT "ʧˣҺԽԽˡ":XX=XX-2:P$=INKEY$JS=JS-1:GOTO 8500
1545 IF P>7 THEN PRINT "ǼƷ̫óˣ": TL=TL+20
1550 GOTO 8500
1800 CLS:PRINT "鿴":P$=INKEY$
1810 IF MN<30 THEN 200
1820 MN=MN-30:CLS:PRINT "α꼶һѧڡġ:)"
1830 FOR P=1 TO 160 STEP 0.1:BOX 0,75,P,81:NEXT
1840 TI=TI+2:TL=TL-5:JS=JS+2:PRINT "۰~":P$=INKEY$:GOTO 8500
3000 CLS:PRINT "1.2.ʯ3.ľ","4.5.6.","7.8.ţ9.","I.ֻO."
3010 PRINT "--ɻɻ--";
3020 P$=INKEY$:IF P$="b" THEN 3200
3030 IF P$="n" THEN 3300
3040 IF P$="m" THEN 3400
3050 IF P$="g" THEN 3500
3060 IF P$="h" THEN 3600
3070 IF P$="j" THEN 3700
3080 IF P$="t" THEN 3800
3090 IF P$="y" THEN 3900
3100 IF P$="u" THEN 4000
3110 IF P$="i" THEN 4100
3111 IF P$="o" THEN 4200
3115 IF P$=CHR$(27)THEN 200 ELSE 3000
3200 CLS:PRINT "ݡ":FOR P=1 TO 160 STEP 0.3:BOX 0,75,P,81:NEXT
3210 TL=TL-11:TI=TI+2:ZC=ZC-JS*LDJ/10:TD=TD+JS*LDJ/10:IF ZC<0 THEN ZC=0
3220 PRINT "ˡ":P$=INKEY$:GOTO 8500
3300 CLS:PRINT "ʯ":FOR P=1 TO 160 STEP 0.3:BOX 0,75,P,81:NEXT
3310 TL=TL-16:TI=TI+1:ST=ST-JS*CDJ/8:TD=TD+JS*CDJ/8:IF ST<0 THEN ST=0
3320 PRINT "ˡ":P$=INKEY$:GOTO 8500
3400 CLS:PRINT "ľ":FOR P=1 TO 160 STEP 0.3:BOX 0,75,P,81:NEXT
3410 TL=TL-15:TI=TI+1:MT=MT-JS*FDJ/10:TD=TD+JS*FDJ/10:IF MT<0 THEN MT=0
3420 PRINT "OK":P$=INKEY$:GOTO 8500
3500 CLS:PRINT "ѡ":FOR P=1 TO 160 STEP 0.3:BOX 0,75,P,81:NEXT
3510 TL=TL-19:TI=TI+3:TDK=TDK+JS*DDJ/10:IF TDK>100 THEN TDK=100
3515 IF TDK<0 THEN TDK=0
3520 PRINT "OK":P$=INKEY$:GOTO 8500
3600 CLS:PRINT "ඣ":FOR P=1 TO 160 :BOX 0,75,P,81:NEXT:TI=TI+1:TL=TL-3
3610 IF FM=1 THEN MN=MN+35:FM=0:PRINT "ջ":P$=INKEY$:GOTO 8500 ELSE 3620
3620 PRINT "ȡˡ":P$=INKEY$:GOTO 8500
3700 CLS:PRINT "ඣ":FOR P=1 TO 160 STEP 0.4:BOX 0,75,P,81:NEXT:TI=TI+2:TL=TL-7
3710 P=RND(1)*7+YDJ
3720 IF P>6 THEN PRINT "㡣":P$=INKEY$:MN=MN+78:GOTO 8500
3730 IF P>4 THEN PRINT "С㡣":P$=INKEY$:MN=MN+38:GOTO 8500
3740 IF P>3 THEN PRINT "ջ":P$=INKEY$:GOTO 8500
3750 IF P<=3 THEN PRINT "ѥӣء":P$=INKEY$:XX=XX-1:GOTO 8500
3800 CLS:IF J=0 THEN PRINT "û":P$=INKEY$:GOTO 200
3805 IF JT=1 OR MN<15 THEN 200
3810 PRINT "չ˼":FOR P=1 TO 160 STEP 0.3:BOX 0,75,P,81:NEXT:MN=MN-15
3820 TI=TI+1:TL=TL-6:PRINT "OK":P$=INKEY$:JT=1:JZ=JZ+0.3
3830 IF JZ<2 THEN PRINT "Сôµ":P$=INKEY$:GOTO 8500
3840 PRINT "õһ":P$=INKEY$:MN=MN+50:GOTO 8500
3900 CLS:IF NS=0 THEN PRINT "ûţ":P$=INKEY$:GOTO 200
3905 IF NT=1 OR MN<15 THEN 200
3910 PRINT "չţ":FOR P=1 TO 160 STEP 0.3:BOX 0,75,P,81:NEXT:MN=MN-15
3920 TI=TI+2:TL=TL-7:PRINT "OK":P$=INKEY$:NT=1:NC=NC+0.1
3930 IF NC<3 THEN PRINT "Сţ̣":P$=INKEY$:GOTO 8500
3940 PRINT "õһţ̡":P$=INKEY$:MN=MN+150:GOTO 8500
4000 CLS:IF YS=0 THEN PRINT "û":P$=INKEY$:GOTO 200
4005 IF YT=1 OR MN<12 THEN 200
4010 PRINT "չ":FOR P=1 TO 160 STEP 0.3:BOX 0,75,P,81:NEXT:MN=MN-12
4020 TI=TI+2:TL=TL-7:PRINT "OK":P$=INKEY$:YT=1:YZ=YZ+0.2
4030 IF YZ<3 THEN PRINT "Ǵëء":P$=INKEY$:GOTO 8500
4040 PRINT "õһë":P$=INKEY$:MN=MN+160:GOTO 8500
4100 CLS:IF HS=0 THEN 200
4110 PRINT "":FOR P=1 TO 160 STEP 0.4:BOX 0,75,P,81:P$=INKEY$:TI=TI+1:TL=TL-2:HR=HR-1
4111 IF HR<=0 THEN PRINT "ժ":FOR P=1 TO 160 STEP 0.4:BOX 0,75,P,81:P$=INKEY$:MN=MN+80*HS
4120 GOTO 8500
4200 CLS:IF NZ=0 THEN 200
4201 IF PT=1 THEN 200
4210 IF NZZ=1 THEN PRINT "ջ":FOR P=1 TO 160 STEP 0.4:BOX 0,75,P,81:P$=INKEY$:TI=TI+5:TL=TL-30:NZZ=0:GOTO 4230
4220 PRINT "ˮ":FOR P=1 TO 160 STEP 0.4:BOX 0,75,P,81:P$=INKEY$:NZR=NZR-1:TI=TI+4:TL=TL-23:IF NZR=0 THEN NZZ=1:GOTO 4210 ELSE 4240
4230 MN=MN+NZ*LDJ*120:TD=TD+NZ:NZ=0:GOTO 8500
4240 PT=1:GOTO 8500
6000 CLS:PRINT "1.2.ţ","3.4.5.","6.7.ů8.","9.I."
6010 PRINT "--ȥ--";:P$=INKEY$:TI=TI+1
6020 IF P$="b" THEN 6200
6030 IF P$="n" THEN 6300
6040 IF P$="m" THEN 6400
6050 IF P$="g" THEN 6500
6060 IF P$="h" THEN 6600
6070 IF P$="j" THEN 6700
6080 IF P$="t" THEN 6800
6090 IF P$="y" THEN 6900
6091 IF P$=CHR$(27)THEN 200
6092 IF P$="i" THEN 7500
6100 IF P$="u" THEN 7000 ELSE 6000
6200 IF Y=11 OR Y=12 OR Y=1 THEN CLS:PRINT"ˣʲô":P$=INKEY$:GOTO 8500
6201 CLS:INPUT "أ";L:IF L>INT(TD)*TDK/100 THEN 6200
6210 IF MN<L*35 THEN PRINT "Ǯ":P$=INKEY$:GOTO 200
6220 MN=MN-L*35:NZ=NZ+INT(L)+INT(GX/10):NZR=25:TD=TD-NZ:GOTO 8500
6300 CLS:IF NS<>0 THEN 6000 
6310 IF MN<5000 THEN 6000
6320 MN=MN-5000+GX:INPUT "ţȡʲô֣";N$:NS=1:NC=1:GOTO 8500
6400 CLS:IF J<>0 THEN 6000 
6410 IF MN<1000 THEN 6000
6420 MN=MN-1000+GX:INPUT "ȡʲô֣";J$:J=1:JZ=1:GOTO 8500
6500 CLS:IF YS<>0 THEN 6000 
6510 IF MN<4000 THEN 6000
6511 IF YP=0 THEN 6000
6520 MN=MN-4000+GX:INPUT "ȡʲô֣";Y$:YS=1:YZ=1:GOTO 8500
6600 CLS:IF HF=0 THEN 6000
6610 INPUT "򼸷ݻӣ";K:IF MN<K*10 THEN 6000
6620 MN=MN-K*10:HS=K+GX+HS:HR=20:GOTO 8500
6700 CLS:IF MN<20000 THEN 6000
6710 MN=MN-20000:YP=1:GOTO 8500
6800 CLS:IF MN<15000 THEN 6000
6810 MN=MN-15000:HF=1:GOTO 8500
6900 CLS:PRINT "ඣ":FOR P=1 TO 160 STEP 0.1:BOX 0,75,P,81:NEXT
6910 XX=XX+3:TI=TI+2:GOTO 8500
7000 CLS:IF DDJ<3 THEN 7010 ELSE 6000
7010 IF MN<DDJ*1000+5000 THEN 6000
7020 MN=MN-DDJ*1000-5000
7030 DDJ=DDJ+1
7040 FDJ=FDJ+1
7050 CDJ=CDJ+1
7060 YDJ=YDJ+1
7070 LDJ=LDJ+1:GOTO 8500
7500 CLS:PRINT"һ":P$=INKEY$:IF MN<100 THEN 200
7510 MN=MN-100:TL=TL+20:TI=TI+1:GOTO 8500
8000 TI=6:CLS:PRINT "˯"
8010 OPEN"ls.sav" FOR OUTPUT AS#1
8020 WRITE #1,XX,N,Y,R,MZ$,SY,SR,MN,TI,TL,JS,ZC,ST,MT,FDJ,CDJ,LDJ,YDJ,DDJ,TDK,TD,NZ,NZR
8030 WRITE #1,FM,NZZ,YP,HF,NS,N$,NC,J,J$,JZ,YS,Y$,YZ,HS,HR,NT,JT,YT,PT,XQ,GX:CLOSE #1
8040 GOTO 8600
8500 IF TI>21 THEN 8000 ELSE 8510
8510 IF TL<0 THEN PRINT"е㷢ˣҩԡ":P$=INKEY$:MN=MN-300:TI=22:XX=XX-15:GOTO 8000
8511 IF TD<0 THEN TD=0
8512 IF TDK<0 THEN TDK=0
8513 GOTO 200
8600 FOR P=1 TO 160 STEP 0.07:BOX 0,75,P,81:NEXT
8610 TL=100:ZC=ZC+1:TD=TD-1:FM=1:NT=0:JT=0:YT=0:PT=0
8611 XQ=XQ+1
8612 IF XQ>7 THEN XQ=1:JS=JS-1:ST=ST+1:XX=XX-1:GX=GX-1
8620 R=R+1:IF R>30 THEN R=1:Y=Y+1:GOTO 8700
8630 IF Y>12 THEN Y=1:N=N+1:GOTO 9600
8640 IF NS>0 THEN NS=NS+1
8660 IF J>0 THEN J=J+1
8680 IF YS>0 THEN YS=YS+1
8695 GOTO 8710
8700 NZ=0:NZZ=0:NZR=0
8710 IF R=SR AND Y=SY THEN MN=MN+1500:PRINT "տ֣":P$=INKEY$:GOTO 200
8720 P=INT(RND(1)*100)
8730 IF P=58 THEN NS=0:J=0:YS=0:NC=0:JZ=0:YZ=0:N$=" ":J$=" ":Y$=" ":PRINT "̨Ϯﱻˡ":P$=INKEY$
8740 IF XX<0 THEN PRINT "Ҳ":P$=INKEY$:OPEN "ls.sav" FOR OUTPUT AS#1:WRITE #1,A:CLOSE #1
8750 IF N=4 AND Y=1 AND R=1 THEN 8760 ELSE 200
8755 GOTO 9700
8760 CLS:IF MN>100000 AND XX>200 AND GX>150 THEN PRINT "峤ɵúãǾء":P$=INKEY$:GOTO 200
8770 PRINT "峤û취طûǰ;ˡGAME OVER"
8780 OPEN "ls.sav" FOR OUTPUT AS#1
8790 WRITE #1,A:CLOSE#1
9000 OPEN "ls.sav" FOR RANDOM AS#1
9001 IF LOF(1)=0 THEN CLS:PRINT"ûм¼Ŷǲɾˡls.savļ":P$=INKEY$:CLOSE #1:GOTO 10
9002 CLOSE #1
9008 CLS:LOCATE 3,6:PRINT "Loading...":FOR P=1 TO 4000:NEXT
9009 OPEN "ls.sav" FOR INPUT AS#1
9010 INPUT #1,XX,N,Y,R,MZ$,SY,SR,MN,TI,TL,JS,ZC,ST,MT,FDJ,CDJ,LDJ,YDJ,DDJ,TDK,TD,NZ,NZR
9020 INPUT #1,FM,NZZ,YP,HF,NS,N$,NC,J,J$,JZ,YS,Y$,YZ,HS,HR,NT,JT,YT,PT,XQ,GX:CLOSE #1
9030 CLS:GOTO 8610
9500 CLS:PRINT "LeyNon","߻LeyNon","籾LeyNon","֧֣LeyNon","ƣLeyNon";
9510 P$=INKEY$:CLS
9520 PRINT "У飺LeyNon","ԣߴ","ȨLeyNon","ѽleynon@21cn.com.cn"
9530 PRINT "汾2.2";:P$=INKEY$:CLS
9540 PRINT "ȻֻһϷŻǺȤģףĿģŶ"
9550 P$=INKEY$:CLS:PRINT "˰հ棨ûBUGĻһ1.010ڻˣ";:P$=INKEY$:GOTO 9890
9600 CLS:PRINT"µһˡ":P$=INKEY$:GOTO 200
9700 IF Y=10 AND R=1 THEN PRINT"峤᳹ʵҪ񣬸ѧϰ":P$=INKEY$:JS=JS+4
9710 IF Y=2 AND R=10 THEN PRINT"굽ˣඣ":P$=INKEY$:XX=XX+3
9720 IF NS>250 THEN PRINT N$+"ˣġ":P$=INKEY$:N$=" ":NS=0:NZ=0
9730 IF J>95 THEN PRINT J$+"ˣġ":P$=INKEY$:J$=" ":J=0:JZ=0
9740 IF YS>200 THEN PRINT Y$+"ˣġ":P$=INKEY$:Y$=" ":YS=0:YZ=0
9750 GOTO 9830
9800 CLS:INPUT"1-4";W:P=INT(RND(1)*4+1)
9810 IF W=P THEN PRINT "¶ˣ":P$=INKEY$:XX=XX+4:TL=TL+4:TI=TI+1:GOTO 8500
9820 PRINT"źˣ":P$=INKEY$:TL=TL+1:TI=TI+1:GOTO 8500
9830 P=INT(RND(1)*5+1:IF P>3 THEN PRINT"꣬治":P$=INKEY$:TL=80
9831 IF Y=3 AND R=12 THEN PRINT"ֲŶ":P$=INKEY$:MT=MT+10
9832 IF Y=4 AND R=1 THEN PRINT"˽ڣ":P$=INKEY$:XX=XX+3
9833 IF Y=5 AND R=1 THEN PRINT"ͶڣϢ":P$=INKEY$:GOTO 8000
9834 IF Y=7 AND R=1 THEN PRINT"Ŷ":P$=INKEY$:XX=XX+1
9835 IF Y=10 AND R=1 THEN PRINT"":P$=INKEY$:XX=XX+1
9836 IF Y=12 AND R=25 THEN PRINT"ʥڿ֣":P$=INKEY$:XX=XX+1
9837 GOTO 9900
9850 TI=TI+2:CLS:PRINT"1.","2.Ʊ","3.Զ","----"
9851 P$=INKEY$
9852 IF P$="b" AND MN>=50 THEN CLS:PRINT"Ǻϲʳ^_^":P$=INKEY$:GX=GX+1:MN=MN-50:GOTO 8500
9853 IF P$="n" AND MN>100 THEN 9860
9854 IF P$="m" THEN 9870 
9855 IF P$=CHR$(27) THEN 1000 ELSE 9851
9860 CLS:P=RND(1)*100+1:MN=MN-100
9861 IF P>51 AND P<54 THEN PRINT"500Ԫÿģ":P$=INKEY$:MN=MN+500:GOTO 8500
9862 IF P=55 THEN PRINT"ͷˣ5000Ԫ":P$=INKEY$:MN=MN+5000:GOTO 8500
9863 IF P<15 THEN PRINT"ο20Ԫ":P$=INKEY$:MN=MN+20:GOTO 8500
9864 IF P>95 THEN PRINT"150ԪҲˡ":P$=INKEY$:GOTO 8500
9865 PRINT"ʲôҲû":P$=INKEY$
9866 GOTO 8500
9870 CLS:IF NC>3 AND NT=0 THEN 13010 ELSE 8500
9880 NT=O:PRINT"Ȼţ̾Ǻúȣ":P$=INKEY$:TL=TL+35:GOTO 8500
9890 CLS:PRINT"ҪرлԪ¿ԶԱ֧֣⻹಻㣬ӭָԺƳͼŶ";
9891 P$=INKEY$:GOTO 0