0 :
10 CLEAR : 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) ="ֵ֪":NR$(3) ="ͼ":TM =3: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) ="ʽ":NR$(3) ="ʽ":NR$(4) ="֪":TM =4:SR =3
39 BT$(1) ="":BT$(2) ="":BT$(3) ="":BT$(4) ="": GOTO 22
42 CLEAR :NR$(1) ="κ":NR$(2) ="Ĵκ":NR$(3) ="κ":NR$(4) ="":TM =4:SR =4
43 BT$(1) ="":BT$(2) ="":BT$(3) ="":BT$(4) ="": GOTO 22
46 CLEAR :NR$(1) ="ʽ":NR$(2) ="ʽ":TM =2: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"
51 TM =1:SR =6: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 BOX 33,SC *16,143,SC *16 +14,1,2
63 IF A =13  THEN K$ =CHR$(11):PI =3.141592654: ON SR  GOTO 70,71,72,73,74
64 BOX 33,GB *16,143,GB *16 +14,1,2
65 IF A =27  THEN 10 
66 QP =SR +(A =22) -(A =23): IF QP <1  THEN QP =6
67 IF QP >6  THEN QP =1 
68 IF QP <>SR  THEN SR =QP:21 
69 SC =GB: GOTO 60
70 ON GB  GOTO 4535,4545,920
71 ON GB  GOTO 640,650,660
72 ON GB  GOTO 720,730,740,750
73 ON GB  GOTO 820,830,840,950
74 ON GB  GOTO 5510,6090
90 CLS : LOCATE 2,7: PRINT "ллʹ"," ","   --- & ȳ": END 
640 TEXT : PRINT "y=ax+b": INPUT "a=";Q: INPUT "b=";W: DEF FN G(I) =Q *I +W: GOTO 1000
650 TEXT : PRINT "A(a,b) B(c,d)": INPUT "a=";Q: INPUT "b=";W: INPUT "c=";E
655 INPUT "d=";R: DEF FN G(X) =(R -W) /(E -Q) *X +R -(R -W) /(E -Q) *E: GOTO 1000
660 TEXT : PRINT "A(a,b) б": INPUT "a=";Q: INPUT "b=";W: INPUT "б=";E
665 DEF FN G(X) =E *X +W -E *Q: GOTO 1000
720 TEXT : PRINT "y=ax";K$;"+bx+c": INPUT "a=";Q: INPUT "b=";W: INPUT "c=";E
726 DEF FN G(X) =Q *X *X +W *X +E: GOTO 1000
730 TEXT : PRINT "y=a(x+m)";K$;"+n": INPUT "a=";Q: INPUT "m=";W: INPUT "n=";E
736 DEF FN G(X) =Q *X *X +2 *W *Q *X +W *W *Q +E: GOTO 1000
740 TEXT : PRINT "y=a(x+m)(x+n)": INPUT "a=";Q: INPUT "m=";W: INPUT "n=";E
746 DEF FN G(X) =Q *X *X +W *Q *X +E *Q *X +E *W: GOTO 1000
750 TEXT : PRINT "A(a,b)B(c,d)C(e,f)": INPUT "a=";Q: INPUT "b=";W: INPUT "c=";E
751 INPUT "d=";R: INPUT "e=";T: INPUT "f=";U:N =((W -R) /(Q -E) -(W -U) /(Q -T)) /(E -T)
755 M =(W -R) /(Q -E) -N *(Q +E): DEF FN G(X) =N *X *X +M *X +W -N *Q *Q -M *Q: GOTO 1000
820 TEXT : PRINT "y=ax^3+bx";K$;"+cx+d": INPUT "a=";Q: INPUT "b=";W: INPUT "c=";E
826 INPUT "d=";R: DEF FN G(X) =Q *X *X *X +W *X *X +E *X +R: GOTO 1000
830 TEXT : PRINT "y=ax^4+bx^3+cx";K$;"+dx+e": INPUT "a=";Q: INPUT "b=";W: INPUT "c=";E
836 INPUT "d=";R: INPUT "e=";T: DEF FN G(X) =Q *X *X *X *X +W *X *X *X +E *X *X +R *X +T: GOTO 1000
840 TEXT : PRINT "y=ax^5+bx^4+cx^3+dx";K$;"+ex+f"
846 INPUT "a=";Q: INPUT "b=";W: INPUT "c=";E: INPUT "d=";R: INPUT "e=";T: INPUT "f=";U
847 DEF FN G(X) =Q *X *X *X *X *X +W *X *X *X *X +E *X *X *X +R *X *X +T *X +U: GOTO 1000
920 GRAPH : PRINT "1. 2. 3.4. 5. 6."
922 A =ASC( INKEY$):B =(A =27) +(A =98) *2 +(A =110) *3 +(A =109) *4 +(A =103) *5 +(A =104) *6 +(A =106) *7
924 IF B =1  THEN 30  ELSE IF B =0  THEN 922
926 Q$(2) ="sin":Q$(3) ="cos":Q$(4) ="tan":Q$(5) ="cot":Q$(6) ="sec":Q$(7) ="csc"
928 TEXT : PRINT "y=a*";Q$(B);"(bx+c)": INPUT "a=";Q: INPUT "b=";W: INPUT "c=";E
930 ON B -1  GOSUB 932,934,936,942,944,946: GOTO 1000
932 DEF FN G(X) =Q *SIN(W *X +E): RETURN 
934 DEF FN G(X) =Q *COS(W *X +E): RETURN 
936 DEF FN G(X) =Q *TAN(W *X +E): RETURN 
942 DEF FN G(X) =Q /TAN(W *X +E): RETURN 
944 DEF FN G(X) =Q /COS(W *X +E): RETURN 
946 DEF FN G(X) =Q /SIN(W *X +E): RETURN 
950 TEXT : PRINT "y=a/(x+b)": INPUT "a=";Q: INPUT "b=";W
956 DEF FN G(X) =Q /(X +W): GOTO 1000
1000 TEXT : INPUT "ĺX=";A: INPUT "Y=";B: INPUT "Ұ뾶=";C
1001 INPUT "ٶ(250)=";D
1010 IF C <=0  OR D <2  OR D >50  THEN 1000
1020 GRAPH :S =C /80: BOX 1,0,159,79: IF B -C >0  OR B +C <0  THEN 1031  ELSE LINE 1,40 +B /S,158,40 +B /S
1030 O =A -INT(A): FOR I =0  TO C: DRAW 80 +(I +O) /S,39 +B /S: DRAW 80 -(I -O) /S,39 +B /S: NEXT I
1031 IF A -C >0  OR A +C <0  THEN 1041  ELSE LINE 80 -A /S,0,80 -A /S,78
1032 O =B -INT(B): FOR I =0  TO C /2: DRAW 81 -A /S,40 +(I +O) /S: DRAW 81 -A /S,40 -(I -O) /S: NEXT I
1041 FOR I =A -C  TO A +C  STEP S /D
1042 IF I -W =0  OR I +W =0  THEN 1044  ELSE Y =FN G(I)
1043 O =(I -A +C) /S:P =120 -(Y -B +C) /S
1044 IF PEEK(199) =141  THEN A$ =INKEY$:1075
1045 IF P >0  AND P <79.5  THEN DRAW O,P +.5
1060 DRAW O,78: NEXT I
1070 A$ =INKEY$
1075 GRAPH : PRINT "1.2.ˢ3.4."
1090 K =ASC( INKEY$): IF K =98  OR K =13  THEN 1120
1100 IF K =110  THEN 1020
1105 IF K =109  THEN 1000
1110 IF K =103  OR K =27  THEN ON SR  GOTO 920,34,38,42
1115 GOTO 1090
1120 PRINT "x="; CHR$(12);: INPUT "*";X: LOCATE 3,9: PRINT "+"; CHR$(7);
1130 INPUT "";V: INPUT "+";K:X =X *PI +SQR(V) +K
1136 PRINT "y=";:Y =FN G(X)
1140 PRINT Y;:A$ =INKEY$: GOTO 1075
4535 CLS : PRINT "1.С","2.ȷ","3.":A =ASC( INKEY$)
4536 ON (A =27) +(A =98) *2 +(A =110) *3 +(A =109) *4 +1  GOTO 4535,30,4537,4538,4542
4537 TEXT : INPUT "Ϧ=";A: IF A <0  THEN 4537  ELSE 4555
4538 TEXT : PRINT "      ": INPUT "=";Z: CLS : PRINT Z;:K =POS (1) +1
4539 PRINT "   ", SPC(K);: INPUT "=";Y: CLS : PRINT Z;"";Y;:K =POS (1) +1
4540 PRINT "  ", SPC(K);: INPUT "=";X:A =Z +Y /60 +X /3600: IF A <0  THEN 4538
4541 GOTO 4555
4542 TEXT : PRINT "="; CHR$(12);: INPUT "*";B: LOCATE 1,8: PRINT B;: INPUT "/";C:A =B /C *180
4543 GOTO 4555
4545 CLS : LOCATE 2,1: PRINT "֪:","1.sin  2.cos  3.tan 4.cot  5.sec  6.csc"
4546 A =ASC( INKEY$):B =(A =27) +(A =98) *2 +(A =110) *3 +(A =109) *4 +(A =103) *5 +(A =104) *6 +(A =106) *7
4548 ON B +1  GOTO 4545,30:N =0
4551 :
4552 TEXT : PRINT "ֵ="; CHR$(7);: INPUT "";N: LOCATE 1,9: PRINT N;"+";
4554 INPUT "";K:C =SQR(N) +K: ON B  GOTO 4500,4585,4590,4595,4600,4605,4610
4555 B =A /180 *PI:Z =INT(A):Y =INT(60 *(A -Z)):X =INT(60 *(A *60 -Z *60 -Y))
4556 W =INT(100 *(A *3600 -Z *3600 -Y *60 -X) +.5): IF W =100  THEN X =X +1:W =0: IF X =60  THEN Y =Y +1:X =0
4557 IF Y =60  THEN Z =Z +1:Y =0
4558 N =(A /180 =INT(A /180)) *2 +(A /180 -0.5 =INT(A /180))
4559 GRAPH : PRINT "Ϧ=";A,"=";B
4560 PRINT "sin="; SIN(B),"cos="; COS(B),"tan=";
4561 IF N =1  THEN PRINT "޺ֵ"; ELSE PRINT TAN(B);
4565 Q =ASC( INKEY$): IF Q =27  THEN 30
4570 GRAPH : PRINT "Ϧ=";A,"   =";Z;"";Y;"";X;"";W,"cot=";
4575 IF N =2  THEN PRINT "޺ֵ":4577  ELSE IF N =1  THEN PRINT "0" ELSE PRINT 1 /TAN(B)
4577 PRINT "sec=";: IF N =1  THEN PRINT "޺ֵ" ELSE PRINT 1 /COS(B)
4580 PRINT "csc=";: IF N =2  THEN PRINT "޺ֵ"; ELSE PRINT 1 /SIN(B);
4581 Q =ASC( INKEY$): GOTO 30
4585 IF ABS(C) >1  THEN 4548
4586 IF C =0  THEN 4660  ELSE IF C =1  THEN 4650  ELSE IF C =-1  THEN 4670
4587 D =C /SQR(1 -C *C)
4588 IF D <0  THEN B =PI -ATN(D):4641  ELSE 4640
4590 IF ABS(C) >1  THEN 4548
4591 IF C =0  THEN 4650  ELSE IF C =1  THEN 4660  ELSE IF C =-1  THEN 4680
4592 D =SQR(1 -C *C) /C
4593 IF D <0  THEN B =ATN(D) +PI:4641  ELSE 4640
4595 D =C: GOTO 4640
4600 IF C =0  THEN 4650  ELSE D =1 /C:4593
4605 IF ABS(C) <1  THEN 4548  ELSE IF C =1  THEN 4660  ELSE IF C =-1  THEN 4680
4606 D =SQR(1 -1 /C /C) *C: IF C <0  THEN 4593  ELSE 4640
4610 IF ABS(C) <1  THEN 4548  ELSE IF C =1  THEN 4650  ELSE IF C =-1  THEN 4670
4611 D =1 /SQR(1 -1 /C /C) /C: GOTO 4588
4640 B =ATN(D)
4641 A =B /PI *180: GOTO 4555
4650 A =90: GOTO 4555
4660 A =0: GOTO 4555
4670 A =270: GOTO 4555
4680 A =180: GOTO 4555
5510 GRAPH : LOCATE 1,7 : PRINT "ʽ","1.","2.Բ()","3.","4.";
5535 I =ASC( INKEY$)
5545 ON (I =98) +(I =110) *2 +(I =109) *3 +(I =103) *4 +(I =27) *5  GOTO 5600,5640,5705,5760,46: GOTO 5535
5600 CLS : PRINT "": INPUT "=";S: INPUT "=";H:O =S *H /2
5625 PRINT "=";O;:W$ =INKEY$: GOTO 5510
5640 GRAPH : PRINT "Բ()": INPUT "뾶=";R: PRINT "?(Y/N)":A =360:A$ =INKEY$
5665 IF A$ ="y" THEN INPUT "ԲĽ=";A
5680 O =PI *R *R *A /360
5682 GOTO 5625
5705 GRAPH : PRINT "": INPUT "=";A: INPUT "=";B:O =A *B
5740 GOTO 5625
5760 P$ ="": CLS : PRINT "    ";P$,"1.Բ";P$,"2.";P$,"3.Բ׶";P$
5775 PRINT "4.Բ";P$;
5785 I =ASC( INKEY$)
5790 ON (I =98) +(I =110) *2 +(I =109) *3 +(I =103) *4 +(I =27) *5 +1  GOTO 5785,5839,5880,5940,6060,5510
5839 GRAPH : PRINT "Բ";P$: INPUT "뾶=";R: INPUT "=";H:O =PI *2 *R *H +PI *R *R *2
5865 PRINT P$;"=";O;:W$ =INKEY$: GOTO 5760
5880 CLS : PRINT "";P$: INPUT "=";A: INPUT "=";B: INPUT "=";C:O =2 *(A *B +B *C +A *C)
5925 GOTO 5865
5940 GRAPH : PRINT "Բ׶";P$,"ʽ(*R*L)+*R*R": INPUT "뾶";R
6030 INPUT "ĸ߳=";L:O =PI *R *L +PI *R *R: GOTO 5865
6060 GRAPH 
6061 PRINT "Բ";P$: INPUT "뾶=";R:O =4 *PI *R *R: GOTO 5865
6090 P$ ="": GRAPH : LOCATE 1,7 : PRINT P$;"ʽ","1.","2.Բ(Բ׶)","3.Բ
6120 I =ASC( INKEY$)
6130 ON (I =27) +(I =98) *2 +(I =110) *3 +(I =109) *4 +1  GOTO 6120,46,6180,6230,6320
6180 GRAPH : PRINT "";P$: INPUT "=";A: INPUT "=";B: INPUT "=";C:O =A *B *C
6215 PRINT P$;"="O;:W$ =INKEY$: GOTO 6090
6230 GRAPH : PRINT "Բ(Բ׶)";P$: INPUT "뾶=";R: INPUT "=";H
6250 PRINT "Բ׶?(Y/N)":A =1:A$ =INKEY$: IF A$ ="y" THEN A =1 /3
6280 O =A *(PI *R *R *H): GOTO 6215
6320 GRAPH : PRINT "Բ": INPUT "뾶=";R:O =PI *R ^3 *4 /3: GOTO 6215
