0 :
10 GRAPH 
11 PRINT " 1. 2. 3. 4. 5. 6."
13 PRINT "     ߼","  wqxfans.512j.com","   --- & ȳ","     ´ر";
16 BOX 1,14,159,79
18 FOR I =0  TO 5: BOX I *24 +3,0,I *24 +25,14: NEXT 
20 A =ASC( INKEY$):SR =(A =98) +(A =110) *2 +(A =109) *3 +(A =103) *4 +(A =104) *5 +(A =13) +(A =106) *6 +(A =27) *7
21 IF SR =0  THEN 20  ELSE ON SR  GOTO 30,34,38,42,46,50,90
22 GB =1:SC =1: CLS : PRINT " 1. 2. 3. 4. 5. 6."
24 FOR I =1  TO 4: LOCATE I +1,2: PRINT BT$(I);"  ";NR$(I);: NEXT I
26 BOX 1,14,159,79: LINE 32,14,32,79: BOX SR *24 -20,1,SR *24,13,1,2
28 FOR I =0  TO 5: BOX I *24 +3,0,I *24 +25,14: NEXT : BOX 33,16,143,30,1,2: GOTO 60
30 CLEAR :NR$(1) ="ж":NR$(2) ="Ѱ":TM =2:SR =1
31 BT$(1) ="":BT$(2) ="":BT$(3) ="":BT$(4) ="": GOTO 22
34 CLEAR :NR$(1) ="":NR$(2) ="ʽ":NR$(3) ="ʽֽ":TM =3:SR =2
35 BT$(1) ="":BT$(2) ="":BT$(3) ="":BT$(4) ="": GOTO 22
38 CLEAR :NR$(1) ="Ԫһη":NR$(2) ="Ԫһη":TM =2:SR =3
39 BT$(1) ="":BT$(2) ="Ԫ":BT$(3) ="":BT$(4) ="": GOTO 22
42 CLEAR :NR$(1) ="һԪη":NR$(2) ="һԪη":NR$(3) ="һԪĴη":TM =3:SR =4
43 BT$(1) ="":BT$(2) ="":BT$(3) ="":BT$(4) ="": GOTO 22
46 CLEAR :NR$(1) ="ɶ":NR$(2) ="κ":NR$(3) ="ѧ":NR$(4) ="ѧʽ":TM =4:SR =5
47 BT$(1) ="":BT$(2) ="":BT$(3) ="":BT$(4) ="": GOTO 22
50 CLEAR :NR$(1) ="":NR$(2) ="ʹ˵":NR$(3) ="汾":NR$(4) ="2005-02-07":TM =3:SR =6
51 BT$(1) ="":BT$(2) ="":BT$(3) ="":BT$(4) ="Ϣ": GOTO 22
60 A =ASC( INKEY$):GB =GB +(A =21) -(A =20): IF GB <1  THEN GB =TM
61 IF GB >TM  THEN GB =1
62 IF A =13  THEN ON SR  GOTO 70,71,72,73,74,75
63 IF A =27  THEN 10
64 QP =SR +(A =22) -(A =23): IF QP <1  THEN QP =6
65 IF QP >6  THEN QP =1
66 IF QP <>SR  THEN SR =QP:21
67 BOX 33,SC *16,143,SC *16 +14,1,2
68 BOX 33,GB *16,143,GB *16 +14,1,2
69 SC =GB: GOTO 60
70 ON GB  GOTO 110,250
71 ON GB  GOTO 1100,1300,1700
72 ON GB  GOTO 3400,3800
73 X$ =CHR$(17) +CHR$(16): ON GB  GOTO 3500,3130,3140
74 ON GB  GOTO 4200,1500,6755,6820
75 I =0: ON GB  GOTO 2030,2000,2050
90 CLS : LOCATE 2,7: PRINT "ллʹ"," ","   --- & ȳ": END 
110 CLEAR : GRAPH : PRINT "      ж"," ","   1.  2.":A =ASC( INKEY$)
112 IF A =27  OR A =110  THEN 30
114 IF A =98  OR A =13  THEN 118
116 GOTO 110
118 TEXT : INPUT "N=";N: GRAPH : PRINT "N=";N
119 IF N >=10 ^9  THEN PRINT "ݹ":A$ =INKEY$:110
120 IF N <=0  THEN PRINT "ݹС":A$ =INKEY$:110
121 IF N <>INT(N) THEN PRINT "":A$ =INKEY$: GOTO 110
122 IF N =1  THEN PRINT "1,ҲǺ":A$ =INKEY$:110
124 IF N =2  OR N =3  OR N =5  THEN 175
125 IF N /2 =INT(N /2) THEN P =2:190
126 IF N /3 =INT(N /3) THEN P =3:190
127 IF N /5 =INT(N /5) THEN P =5:190
129 IF N <40  THEN 175
140 FOR I =7  TO SQR(N) STEP 30
150 IF N /I =INT(N /I) THEN P =I:190
152 IF N /(I +4) =INT(N /(I +4)) THEN P =I +4:190
154 IF N /(I +6) =INT(N /(I +6)) THEN P =I +6:190
156 IF N /(I +10) =INT(N /(I +10)) THEN P =I +10:190
158 IF N /(I +12) =INT(N /(I +12)) THEN P =I +12:190
160 IF N /(I +16) =INT(N /(I +16)) THEN P =I +16:190
162 IF N /(I +22) =INT(N /(I +22)) THEN P =I +22:190
164 IF N /(I +24) =INT(N /(I +24)) THEN P =I +24:190
170 NEXT I
175 ON QQ  GOTO 214,275,1336
180 PRINT N;"":A$ =INKEY$: GOTO 110
190 ON QQ  GOTO 200,280,1332
200 QQ =1
210 PRINT P;"*";:N =N /P
211 IF P =YS(X) THEN GS(X) =GS(X) +1  ELSE X =X +1:YS(X) =P:GS(X) =1
212 GOTO 124
214 PRINT N: IF N =YS(X) THEN GS(X) =GS(X) +1  ELSE X =X +1:YS(X) =N:GS(X) =1
215 YH =1:ZS =1: FOR I =0  TO X:ZS =ZS *(GS(I) +1):GH =(YS(I) ^(GS(I) +1) -1) /(YS(I) -1):YH =YH *GH: NEXT I
220 PRINT "";ZS;"ԼԼǣ"; INT(YH +.5);:A$ =INKEY$: GOTO 110
250 GRAPH : LOCATE 1,7: PRINT "Ѱ": LOCATE 3,4: PRINT "1.  2.":A =ASC( INKEY$)
252 IF A =27  OR A =110  THEN 30
254 IF A =98  OR A =13  THEN 258
256 BEEP : GOTO 250
258 CLEAR : TEXT : INPUT "From ";A: IF A >0  AND A <10 ^9  THEN INPUT "To ";B
260 IF B <=0  OR B >=10 ^9  OR A *B <>INT(A *B) THEN PRINT "ABС":A$ =INKEY$:250
270 GRAPH : PRINT A;"";B:QQ =2: IF A <3  THEN PRINT 2;" ";:A =3:ZH =1
271 IF A >B  THEN 290
272 A =INT(A /2) *2 +1: FOR N =A  TO B  STEP 2: GOTO 124
275 ZH =ZH +1: PRINT N;" ";
280 NEXT N
290 PRINT "","";ZH;"";:A$ =INKEY$: GOTO 250
1100 CLS : LOCATE 1,7: PRINT ""," ","   1.  2."
1101 A =ASC( INKEY$): IF A =27  OR A =110  THEN 34
1102 IF A <>13  AND A <>98  GOTO 1100
1103 TEXT : INPUT "=";A: INPUT "ĸ=";Z: GRAPH : PRINT "=";A,"ĸ=";Z
1104 IF A >=10 ^9  OR Z >=10 ^9  OR Z =0  GOTO 1100
1110 IF INT(A /Z) =A /Z  THEN PRINT "=";A /Z:A$ =INKEY$:1100
1120 IF INT(Z /A) =Z /A  THEN Z =Z /A:A =1: GOTO 1151
1125 IF ABS(A) >ABS(Z) THEN U =ABS(A):V =ABS(Z)
1126 IF ABS(A) <ABS(Z) THEN U =ABS(Z):V =ABS(A)
1127 W =INT(U -INT(U /V) *V)
1130 IF A /W =INT(A /W) AND Z /W =INT(Z /W) THEN A =INT(A /W):Z =INT(Z /W):1151
1140 U =V:V =W
1145 GOTO 1127
1151 ON P  GOTO 1546,3450,3441,1556,3560,3565,3630,3635,3845,3855,3865
1152 PRINT "=";A;"/";Z;:A$ =INKEY$: GOTO 1100
1160 IF INT(A /I) =A /I  THEN A =A /I:Z =Z /I:1110
1180 IF INT(A *I /Z) =A *I /Z  THEN A =A *I /Z:Z =I:1110
1200 GOTO 1150
1300 CLS : LOCATE 1,7: PRINT "ʽ"," ","   1.  2."
1310 A =ASC( INKEY$): IF A =27  OR A =110  THEN 34
1315 IF A =13  OR A =98  THEN 1320  ELSE 1310
1320 TEXT :W =1:M =1: PRINT "N="; CHR$(7);: INPUT "";N: GRAPH : PRINT CHR$(7);N;"=";
1321 IF N >=10 ^9  OR INT(N) <>N  GOTO 1300
1324 :
1325 QQ =3: GOTO 124
1332 IF INT(N /P /P) =N /P /P  THEN W =P *W:N =N /P /P  ELSE N =N /P:M =M *P
1334 GOTO 124
1336 ON KG  GOTO 4250,4280,3550
1338 IF W =1  THEN PRINT CHR$(7);N *M;:A$ =INKEY$:1300
1339 IF N *M =1  THEN PRINT W;:A$ =INKEY$:1300
1341 PRINT W; CHR$(7);N *M;
1350 A$ =INKEY$: GOTO 1300
1500 CLS : PRINT "      κ","     y=ax"; CHR$(11);"+bx+c","   1.   2."
1501 A =ASC( INKEY$)
1510 B =(A =27) +(A =110) +(A =98) *2 +(A =13) *2: ON B  GOTO 46,1520: GOTO 1500
1520 TEXT : PRINT "y=ax"; CHR$(11);"+bx+c": INPUT "a=";S: INPUT "b=";B: INPUT "c=";C
1525 IF S =0  THEN 1500
1530 GRAPH : PRINT "";: IF S >0  THEN PRINT "","С:"; ELSE PRINT "",":";
1540 A =4 *C *S -B *B:Z =4 *S: IF A /Z =INT(A /Z) THEN PRINT A /Z:MA =A /Z:MB =1:1550
1543 P =1: GOTO 1120
1546 PRINT A;"/";Z:MA =A:MB =Z
1550 PRINT "Գ:x=";:A =B:Z =-2 *S: IF A /Z =INT(A /Z) THEN PRINT A /Z:A =A /Z:Z =1:1560
1553 P =4: GOTO 1120
1556 PRINT A;"/";Z
1560 PRINT ":";: IF Z =1  THEN PRINT A; ELSE PRINT A;"/";Z;
1565 PRINT ",";: IF MB =1  THEN PRINT MA; ELSE PRINT MA;"/";MB;
1570 A =ASC( INKEY$): IF A =27  THEN 1500  ELSE 1570
1700 CLEAR : GRAPH : PRINT "      ʽֽ","     ax^2+bx+c","   1.  2."
1710 A =ASC( INKEY$):B =(A =13) +(A =98) +(A =27) *2 +(A =110) *2: ON B  GOTO 1720,34: GOTO 1710
1720 TEXT : PRINT "ax^2+bx+c": INPUT "a=";S: INPUT "b=";B: INPUT "c=";C
1730 GRAPH : PRINT S;"x^2+";B;"x+";C;: IF B *B <4 *S *C  THEN PRINT "޷ֽ":A$ =INKEY$:1700
1740 FH$ ="+":FC =1: PRINT "=";S;: GOTO 3545
1765 PRINT "*[x";: IF FZ /FM =ABS(FZ /FM) THEN PRINT "+"; ELSE PRINT "-";
1766 IF FZ <>0  AND FZ /FM <>INT(FZ /FM) THEN PRINT ABS(FZ);"/"; ABS(FM); ELSE PRINT ABS(FZ /FM);
1775 PRINT FH$;: IF W <>0  AND N *M <>0  AND A /Z <>INT(A /Z) THEN PRINT ABS(A);"/"; ABS(Z);:1785
1780 IF A /Z <>1  AND W <>0  AND A /Z =INT(A /Z) THEN PRINT A /Z;
1785 PRINT CHR$(7);N *M;
1790 PRINT "]";: IF KF <1  THEN KF =1:FH$ ="-":1765  ELSE 1850
1800 PRINT "*[x";: IF FZA /FMA >0  THEN PRINT "-"; ELSE PRINT "+";
1805 IF ZC =1  THEN PRINT ABS(FZA /FMA); ELSE PRINT ABS(FZA);"/"; ABS(FMA);
1810 PRINT "]*[x";: IF A /Z >0  THEN PRINT "-"; ELSE PRINT "+";
1815 IF ZCC =1  THEN PRINT ABS(A /Z); ELSE PRINT ABS(A);"/"; ABS(Z);
1820 PRINT "]";: GOTO 1850
1830 PRINT "*[x";: IF FZ /FM >0  THEN PRINT "-"; ELSE PRINT "+";
1840 IF FZ /FM =INT(FZ /FM) THEN PRINT ABS(FZ /FM);"]^2"; ELSE PRINT ABS(FZ);"/"; ABS(FM);"]^2";
1850 A$ =INKEY$: IF ASC(A$) <>27  THEN 1850  ELSE 1700
2000 JS$(0) ="2005,ΪΡ,,Ի16kb."
2001 JS$(1) ="!:ٶȵǷ켫,.  !ʽ:Ҽ.!!"
2002 JS$(2) ="!ж:ҲԷֽ,ٶȺܿ.ԼԼ.   !Ѱ:1100"
2003 JS$(3) ="м.       !̼:Ԫһ,Ԫһ,һԪη ȷֵ"
2004 JS$(4) ="һԪ,һԪĴηǽֵ1E-6    !ɶ:. !ʽֽ:ֻax^2"
2005 JS$(5) ="+bx+c,.    .ֹʽ:ſ,ȫǳе."
2006 JS$(6) ="Ρ!Ǻ:֪ǶȻֵֵ.               ͼ:еĺ"
2007 JS$(7) ="ͼܻ.ҿֵ,֧֦к͸ż.:250ʽ:"
2008 JS$(8) ="ļ.        ΪGvBasicBUGʵ̫,Ժֻܶ,½!"
2010 B =8: GOTO 2470
2030 JS$(0) ="Ʒ:ڽԶGvBasicϵͳ.óлѧ("
2031 JS$(1) =":е?)һGvBasicǿȫĹ߼.ͬȴСҵ,ͬȺû"
2032 JS$(2) ="С.            ߽:     Age:15 ѧУ:  200310,һ̨"
2033 JS$(3) ="Nc2600.       2004ӴGvBasic,ʱһǲ.       20045£һ"
2034 JS$(4) =":Time,MathsToolǰ깤,Ŀǰ㲻ϴϺ   200411³Ϊ"
2035 JS$(5) ="ǰ߰....  ȳ/cc90042938     Age:15 ѧУ:  2002,pc1000a"
2036 JS$(6) ="20035,ֹһ̨Nc2000c.      2004ӴGvBasic,Ϊ."
2037 JS$(7) ="20045,һ:ȳXP()û   200412,Ϊǰܰ"
2038 JS$(8) ="20052µ̨NC3000     ļ:24kb,֧ͺ."
2039 JS$(9) ="رл:¿ wqxfans.512j.com    www.emsky.com       donghui2199 ˮ"
2040 JS$(10) ="ϵʽ:happyluchao2004341@sina.com    cc90042938@163.com  wqxfans.512j.com"
2041 B =10: GOTO 2470
2050 JS$(0) ="ѧ߼´,޸.͸ԵĴ."
2051 JS$(1) ="1-2 İѼΰ,ʹֿ.    1-4˿ʹСϴճ."
2052 JS$(2) ="1.12-1.18 δ״ڲ.ȳ˼εش."
2053 JS$(3) ="1-19ڼһһд꼸ΰĽ. 1-24 ڶСΧ."
2054 JS$(4) ="2-7 ʽwqxfans׷."
2060 B =4
2470 GRAPH : PRINT "  MathsTool page";I +1,JS$(I);
2475 IF I <B  THEN LOCATE 5,18: PRINT "";
2480 A =ASC( INKEY$):I =I +(A =21) -(A =20): IF I <0  THEN I =0
2485 IF I >B  THEN I =B
2490 IF A =27  THEN 50
2500 GOTO 2470
3130 TEXT : PRINT "ax^3+bx^2+cx+d=0": INPUT "a=";D: INPUT "b=";E: INPUT "c=";F
3131 INPUT "d=";G
3132 GRAPH : PRINT D;"x^3+";E;"x^2+";F;"x+";G;"=0": GOSUB 3220:I =1:XX =3: GOTO 3143
3140 TEXT : PRINT "ax^4+bx^3+cx^2+dx+e=0": INPUT "a=";H: INPUT "b=";I: INPUT "c=";J
3141 INPUT "d=";K: INPUT "e=";L
3142 GRAPH : PRINT H;"x^4+";I;"x^3+";J;"x^2+";K;"x+";L;"=0": GOSUB 3290:I =1:XX =4
3143 BOX 1,48,160,79,1,0: LOCATE 4,1: IF Y(I) <0  THEN KK$ ="" ELSE KK$ ="+"
3144 IF Y(I) =0  THEN PRINT "x";I;"=";X(I):3146
3145 PRINT "x";I;"=";X(I);KK$;Y(I);"i";
3146 LOCATE 5,18: PRINT X$;:A =ASC( INKEY$):I =I +(A =21) +(A =22) -(A =23) -(A =20): IF I >XX  THEN I =1
3147 IF I <1  THEN I =XX
3148 IF A =27  THEN 42  ELSE 3143
3200 W =B *B -4 *C: IF W <0  THEN 3210
3205 Z1 =( -B +SQR(W)) /2:Z2 =( -B -SQR(W)) /2: GOTO 3215
3210 Z1 =-B /2:Z2 =Z1:Z3 =SQR( -W) /2:Z4 =-Z3
3215 RETURN 
3220 E =E /D:F =F /D:G =G /D:V =-(E ^2) /3 +F:U =2 /27 *E ^3 -E *F /3 +G
3221 IF G =0  THEN B =E:C =F: GOSUB 3200:X(1) =0:X(2) =Z1:X(3) =Z2:Y(2) =Z3:Y(3) =Z4: GOTO 3285
3225 T =(U /2) ^2 +(V /3) ^3
3230 IF T <0  THEN 3260
3235 S =ABS( -SQR(T) +U /2) ^(1 /3): IF U /2 >SQR(T) THEN S =-S
3240 R =ABS( SQR(T) +U /2) ^(1 /3): IF -U /2 <SQR(T) THEN R =-R
3245 X(1) =S +R -E /3
3250 X(2) =-S /2 -R /2 -E /3:Y(2) =SQR(3) /2 *S -SQR(3) /2 *R
3255 X(3) =X(2):Y(3) =-Y(2): GOTO 3285
3260 IF U =0  THEN 3280  ELSE Q =ATN( SQR( -T) /U *2)
3265 X(1) =2 *SQR( -V /3) *COS(Q /3) -E /3
3270 X(2) =-SQR( -V /3) *COS(Q /3) -SQR(3) *SQR( -V /3) *SIN(Q /3) -E /3
3275 X(3) =-SQR( -V /3) *COS(Q /3) +SQR(3) *SQR( -V /3) *SIN(Q /3) -E /3: GOTO 3285
3280 X(1) =-E /3:X(2) =SQR( -V) -E /3:X(3) =-SQR( -V) -E /3
3285 RETURN 
3290 I =I /H:J =J /H:K =K /H:L =L /H
3295 D =8:E =-4 *J:F =2 *I *K -8 *L:G =L *(4 *J +I *I) -K *K: GOSUB 3220
3300 P =8 *X(1) +I *I -4 *J
3305 IF P <0  THEN 3325  ELSE B =(I +SQR(P)) /2:C =X(1) +(I *X(1) -K) /SQR(P): GOSUB 3200
3310 X(3) =Z1:X(4) =Z2:Y(3) =Z3:Y(4) =Z4
3315 B =(I -SQR(P)) /2:C =X(1) -(I *X(1) -K) /SQR(P): GOSUB 3200
3320 X(1) =Z1:Y(1) =Z3:X(2) =Z2:Y(2) =Z4: GOTO 3345
3325 A =I /2:B =SQR( -P) /2:C =A *A -B *B -4 *X(1):M =2 *A *B -(2 *X(1) -K) /SQR( -P):N =SQR(C /2 +SQR(C *C +M *M) /2)
3330 O =M /2 /N:X(3) =(N -A) /2:X(4) =-(N +A) /2:Y(3) =(M -B) /2:Y(4) =-(B +M) /2
3335 M =2 *A *B +(2 *X(1) -K) /SQR( -P):N =SQR((C +SQR(C *C +M *M)) /2)
3340 O =M /2 /N:X(1) =(N -A) /2:X(2) =-(N +A) /2:Y(1) =(M -B) /2:Y(2) =-(B +M) /2
3345 RETURN 
3400 GRAPH : PRINT "   Ԫһη"," ","   1.  2."
3410 A =ASC( INKEY$): IF A =110  OR A =27  THEN 38
3415 IF A =98  OR A =13  THEN 3420  ELSE 3410
3420 TEXT : PRINT "ax+by=c","dx+ey=f": INPUT "a=";S: INPUT "b=";B: INPUT "c=";C
3423 CLS : PRINT S;"x+";B;"y=";C,"dx+ey=f": INPUT "d=";D
3424 INPUT "e=";E
3425 INPUT "f=";F
3426 GRAPH : PRINT S;"x+";B;"y=";C,D;"x+";E;"y=";F
3427 K =F *S -D *C:L =E *S -D *B:M =C *L -B *K:N =S *L: IF L *N =0  GOTO 3400
3428 IF S *F >10 ^9  OR D *C >10 ^9  OR E *S >10 ^9  OR D *B >10 ^9  GOTO 3400
3439 IF INT(M /N) <>M /N  THEN A =ABS(M):Z =ABS(N):P =3:1120
3440 PRINT "x=";M /N: GOTO 3446
3441 IF M *N =ABS(M *N) THEN PRINT "x=";A;"/";Z  ELSE PRINT "x=-";A;"/";Z
3446 IF INT(K /L) <>K /L  THEN A =ABS(K):Z =ABS(L):P =2:1120
3449 PRINT "y=";K /L:A$ =INKEY$: GOTO 3400
3450 IF K *L =ABS(K *L) THEN PRINT "y=";A;"/";Z  ELSE PRINT "y=-";A;"/";Z
3451 A$ =INKEY$: GOTO 3400
3500 GRAPH : PRINT "    һԪη"," ","   1.  2."
3510 A =ASC( INKEY$): IF A =98  OR A =13  THEN 3525
3515 IF A =27  OR A =110  THEN 42
3520 GOTO 3510
3525 TEXT : PRINT "ax^2+bx+c=0": INPUT "a=";S: INPUT "b=";B: INPUT "c=";C: GRAPH : PRINT S;
3530 PRINT "x^2+";B;"x+";C;"=0": IF B *B <4 *S *C  THEN PRINT "<0 ʵ":A$ =INKEY$: GOTO 3500
3535 IF B *B =4 *S *C  THEN PRINT "=0 ظ"
3540 FH$ ="+": IF B *B >4 *S *C  THEN PRINT ">0 ͬĸ"
3545 N =B *B -4 *S *C: IF N <>0  THEN W =1:M =1:KG =3:1324
3550 IF M *N =1  THEN GH =W:3625
3555 A =-B:Z =2 *S:P =5: IF A <0  AND A /Z <>INT(A /Z) THEN 1120
3560 FZ =A:FM =Z: IF N =0  THEN 3615  ELSE Z =2 *S:A =W: IF A <>0  AND A /Z <>INT(A /Z) THEN P =6:1120
3565 ON FC  GOTO 1765
3566 LOCATE 3,1: PRINT "x=";: IF FZ <>0  AND FZ /FM <>INT(FZ /FM) THEN PRINT FZ;"/";FM;:3575
3570 PRINT FZ /FM;
3575 PRINT FH$;: IF W <>0  AND N *M <>0  AND A /Z <>INT(A /Z) THEN PRINT "(";A;"/";Z;")";:3585
3580 IF A /Z <>1  AND W <>0  AND A /Z =INT(A /Z) THEN PRINT A /Z;
3585 PRINT CHR$(7);N *M;
3590 X$ =CHR$(17) +CHR$(16): LOCATE 5,18: PRINT X$;
3595 BH =ASC( INKEY$): IF FH$ ="+" THEN FH$ ="-":3605
3600 IF FH$ ="-" THEN FH$ ="+"
3605 IF BH =27  THEN 3500
3610 GOTO 3565
3615 ON FC  GOTO 1830
3616 PRINT "x=";: IF FZ /FM =INT(FZ /FM) THEN PRINT FZ /FM  ELSE PRINT FZ;"/";FM
3620 A =ASC( INKEY$): IF A =27  THEN 3500  ELSE 3620
3625 A =-B +GH:Z =2 *S:P =7: IF A /Z <>INT(A /Z) GOTO 1120  ELSE ZC =1
3630 FZA =A:FMA =Z:A =-B -GH:Z =2 *S:P =8: IF A /Z <>INT(A /Z) GOTO 1120  ELSE ZCC =1
3635 ON FC  GOTO 1800
3640 PRINT "x=";: IF ZC =1  THEN PRINT FZA /FMA  ELSE PRINT FZA;"/";FMA
3645 PRINT "x=";: IF ZCC =1  THEN PRINT A /Z  ELSE PRINT A;"/";Z
3650 K =ASC( INKEY$): IF K =27  THEN 3500  ELSE 3650
3800 GRAPH : PRINT SPC(4);"Ԫһη"," ","   1.  2."
3801 A =ASC( INKEY$): IF A =27  OR A =110  THEN 38
3802 IF A <>13  AND A <>98  GOTO 3801
3805 TEXT : PRINT "һ:ax+by+cz=d": INPUT "a=";S: INPUT "b=";B: INPUT "c=";C: INPUT "d=";D
3810 TEXT : PRINT "̶:ax+by+cz=d": INPUT "a=";E: INPUT "b=";F: INPUT "c=";G: INPUT "d=";H
3815 TEXT : PRINT ":ax+by+cz=d": INPUT "a=";I: INPUT "b=";J: INPUT "c=";K: INPUT "d=";L
3820 M =(D *E -H *S) *(F *I -J *E) -(H *I -L *E) *(E *B -F *S):N =(C *E -G *S) *(F *I -J *E) -(G *I -K *E) *(E *B -F *S)
3825 O =(D *E -H *S) *N -(C *E -G *S) *M:Y =(E *B -F *S) *N:Q =D *Y *N -B *O *N -C *M *Y:R =Y *N *S
3826 IF N =0  AND Y =0  AND R =0  THEN 3800
3830 IF N =0  THEN IF M =0  THEN N =1:M =1  ELSE 3800
3832 IF Y =0  THEN IF O =0  THEN Y =1:O =1  ELSE 3800
3834 IF R =0  THEN IF Q =0  THEN R =1:Q =1  ELSE 3800
3840 GRAPH : IF Q /R =INT(Q /R) THEN PRINT "x=";Q /R:3850  ELSE A =Q:Z =R:P =9:1120
3845 IF A /Z =ABS(A /Z) THEN PRINT "x="; ABS(A);"/"; ABS(Z) ELSE PRINT "x=-"; ABS(A);"/"; ABS(Z)
3850 IF O /Y =INT(O /Y) THEN PRINT "y=";O /Y:3860  ELSE A =O:Z =Y:P =10:1120
3855 IF A /Z =ABS(A /Z) THEN PRINT "y="; ABS(A);"/"; ABS(Z) ELSE PRINT "y=-"; ABS(A);"/"; ABS(Z)
3860 IF M /N =INT(M /N) THEN PRINT "Z=";M /N:3870  ELSE A =M:Z =N:P =11:1120
3865 IF A /Z =ABS(A /Z) THEN PRINT "z="; ABS(A);"/"; ABS(Z) ELSE PRINT "z=-"; ABS(A);"/"; ABS(Z)
3870 A$ =INKEY$: GOTO 3800
4200 CLEAR : GRAPH : LOCATE 1,7: PRINT "ɶ"
4210 PRINT " ","   1.   2.˳";:W =ASC( INKEY$)
4215 IF W =98  OR W =13  THEN 4230
4220 IF W =110  OR W =27  THEN 46
4225 GOTO 4200
4230 TEXT : PRINT "һߣ": INPUT "]";X
4235 TEXT : PRINT "ڶߣ": INPUT "]";Y
4240 GRAPH : LOCATE 2,1: PRINT "б.."
4245 M =1:W =1:KG =1:N =INT(X ^2 +Y ^2 +0.5): GOTO 1324
4250 CLS : LOCATE 2,1: PRINT "б=";: GOTO 4370
4270 LOCATE 3,1: PRINT "ֱǱ.."
4271 IF X =Y  THEN PRINT "޽": GOTO 4420
4275 KG =2:N =INT( ABS(X ^2 -Y ^2) +0.5):M =1:W =1: GOTO 1324
4280 BOX 1,32,160,47,1,0: LOCATE 3,1: PRINT "ֱǱ=";:K =1
4370 IF W =1  AND N *M <>1  THEN PRINT CHR$(7);N *M
4380 IF W <>1  AND N *M =1  THEN PRINT W
4390 IF W <>1  AND N *M <>1  THEN PRINT W; CHR$(7);N *M
4400 IF W =1  AND N *M =1  THEN PRINT "1"
4410 IF K <>1  GOTO 4270
4420 A$ =INKEY$: GOTO 4200
6755 CLS : PRINT "    ѧ","Բʦ=3.14159265358949323846264338","ƽָ=0.618"
6770 W =ASC( INKEY$): ON (W =27) *2 +(W =21) +(W =22) GOTO 6785,46: GOTO 6755
6785 CLS 
6790 PRINT "e=2.71828183","M=lge=0.43429448","1=5717'44.81","1λ=0.06=3'36";
6795 W =ASC( INKEY$): ON (W =27) *2 +(W =20) +(W =23) GOTO 6755,46: GOTO 6785
6820 CLEAR : DIM Y(30): DIM D$(60): FOR I =1  TO 60: READ F$:D$(I) =F$: NEXT I:Z =1
6821 CLS : FOR I =Z  TO Z +2: PRINT D$(I): NEXT : PRINT D$(Z +3);: IF D$(Z +4) =" " THEN 6823
6822 PRINT " ",D$(Z +4);
6823 IF Z =31  THEN 6860  ELSE IF Z =46  THEN 6870  ELSE IF Z =51  THEN 6880
6826 Q =ASC( INKEY$):K =Z +(Q =21) *5 +(Q =22) *5 -(Q =20) *5 -(Q =23) *5: IF K <1  OR K >56  THEN 6823
6827 IF Q =27  THEN 46
6828 IF Q =13  AND Z =46  THEN 7120
6829 Z =K: GOTO 6821
6830 DATA "*****ٳ˷ʽ*****","ƽʽ","(a+b)(a-b)=a^-b^","(^ʾƽ)"," "
6831 DATA "*****ٳ˷ʽ*****","ȫƽʽ","(a+b)^=a^+2ab+b^","(^ʾƽ)"," "
6832 DATA "*****ٳ˷ʽ*****","ȫƽʽ","(a-b)^=a^-2ab+b^","(^ʾƽ)"," "
6833 DATA "*****ٳ˷ʽ*****","͹ʽ a~+b~=","(a+b)(a^-ab+b^)"
6834 DATA "^ʾƽ,~ʾ"," "
6835 DATA "*****ٳ˷ʽ*****","ʽ a~-b~=","(a-b)(a^+ab+b^)"
6836 DATA "^ʾƽ,~ʾ"," "
6837 DATA "*****ʽ*****","һԪηһʽ","ax^+bx+c=0 (a<>0)","^ʾƽ"," "
6838 DATA "*****ʽ*****"
6839 DATA "ʽ","  -b+ b^-4ac","      2a","(b^-4ac>=0)"
6840 DATA "*****ʽ*****","ϵĹϵ"
6841 DATA "x1+x2=-b/a","x1*x2=c/a","(x1 x2ʾ)"
6842 DATA "*****ʽ*****","ʽֽʽ","x1 x2Ϊ"
6843 DATA "ax^+bx+c","  =a(x-x1)(x-x2)"
6844 DATA "****ۼƽ****","ƽֵ","x=1/n(X1+X2+...+Xn)","(nΪݸ)"
6845 DATA "{}ùʽ"
6846 DATA "****ۼƽ****","󷽲","s^=1/n[(X1-x)^+(X2-x)^+...(Xn-x)^]"
6847 DATA "s^,xƽ"," "
6848 DATA "****ۼƽ****","׼"
6849 DATA "׼=ƽ","*********END*******"," "
6860 LINE 10,47,105,47: LINE 33,44,39,44: LINE 42,40,45,44
6861 LINE 45,44,47,32: LINE 46,32,100,32: LINE 42,40,40,42: GOTO 6826
6870 LINE 1,35,7,35: GOTO 6826
6880 LINE 89,35,95,35: LINE 152,35,159,35: LINE 81,51,87,51
6881 LINE 73,67,79,67: GOTO 6826
7120 CLS : PRINT "******ƽֵ******";
7125 FOR K =1  TO 30:Y(K) =0: NEXT K:I =0
7135 I =I +1
7140 PRINT "";I;: INPUT "=";Y(I)
7150 PRINT "һ(Y/N)"
7155 A =ASC( INKEY$)
7160 IF A =13  OR A =121  THEN 7135  NOT THEN 7165
7165 CLS : PRINT "******ƽֵ******"
7170 LOCATE 2,2: PRINT "1.鿴"
7175 LOCATE 3,2: PRINT "2."
7177 LOCATE 4,5: PRINT "{}"
7180 K$ =INKEY$
7185 IF K$ ="b" THEN 7205
7190 IF K$ ="n" THEN 7270
7195 IF ASC(K$) =27  THEN K =46:6829
7200 GOTO 7165
7205 CLS :A =1
7210 WHILE A <(I +1)
7215 FOR J =A  TO A +4
7225 PRINT "","X";J;"="Y(J);"  ";
7235 NEXT J
7240 A =A +4
7245 K =ASC( INKEY$)
7255 WEND 
7260 LOCATE 3,3: CLS : PRINT "":K =ASC( INKEY$)
7265 GOTO 7165
7270 G =0: FOR L =1  TO 30:G =G +Y(L): NEXT 
7285 CLS : PRINT "******ƽֵ******","ƽֵ=";G /I
7290 W =ASC( INKEY$)
7295 GOTO 7165
8925 
