home *** CD-ROM | disk | FTP | other *** search
- 10 PRINT"[147]":UU=1:UA=1
- 15 REM(null)
- 20 PRINT" WRITTEN BY ROGER BOYER"
- 30 PRINT"1115 HORIZON COURT"
- 40 PRINT"MERRITT ISLAND, FLORIDA"
- 45 PRINT"32952"
- 50 PRINT:PRINT
- 60 FOR S=1 TO 2000
- 70 NEXT S
- 80 PRINT"[147]"
- 90 PRINT"PROGRAM TO CONVERT DECIMAL FRACTIONS";
- 100 PRINT"TO FACTIONS AND FRACTIONS TO DECIMALFRACTIONS."
- 110 PRINT"A) CONVERT DECIMAL FRACTION TO FRACTION"
- 120 PRINT"B) CONVERT FRACTION TO DECIMAL FRACTION"
- 122 PRINT"C) ADD, SUBTRACT, DIVIDE OR MULIPLY FRACTIONS
- 124 [153]"D) USE WHOLE NUMBERS WITH FRACTIONS
- 126 PRINT"E) END
- 130 [133]"WHAT DO YOU WANT TO DO";E$
- 140 [139] E$[178]"A" [167] 200
- 150 [139] E$[178]"B" [167] [138]600
- 152 [139] E$[178]"C" [167] 700
- 154 [139] E$[178]"D" [167] SS[178]1:[137]700
- 155 [139] E$[178]"E" [167] [153]"LOAD":[128]
- 160 [153]"LOAD":[137] 110
- 200 [153]"LOAD":[133]"WHAT IS THE DECIMAL FRACTION";D:OO[178]D:[153]
- 201 [139] D[178]0 [167] 200
- 205 [139] D[179]0 [167] D[178][182](D):PY[178]1
- 210 Y[178][181](D):P[178]D[171]Y:O[178]P[172]1000000:W[178]([181](O)[173]1000)[170].01:W[178][181](W):Z[178]W[173]100:G[178]50:X[178]1000
- 215 [139] P[178]0 [167] [153]"YOU HAVE NO FRACTIONAL AMOUNT"
- 216 [139] P[178]0 [167] P[178]0:[129] L[178]1 [164] 500:[130] L:[137] 200
- 217 RA[178]P:RB[178]W
- 220 K[178]W[173]G:J[178]X[173]G:AB[178]0:AA[178]0:AD[178]0:AC[178]0
- 230 AA[178][181](K):AB[178]K[171]AA:AC[178][181](J):AD[178]J[171]AC
- 237 G[178]G[171]1
- 240 [139] AB[178]0 [167] 270
- 250 [139] AD[178]0 [167] 275
- 260 [143]
- 261 [137] 220
- 270 [139] AD[178]0 [167] 290
- 271 [137] 220
- 275 [139] AB[178]0 [167] 290
- 276 [137] 260
- 280 [137]220
- 290 G[178]G[170]1:[153]"CONVERTING NUMBER=";G:W[178]AA:X[178]AC:T[178]T[170]1:G[178]30:P[178]P[170]1
- 291 [139] P[178]1 [137] 220
- 295 [139] MM[178]1 [167] 650
- 300 [139] T[178]2 [167] [137] 340
- 310 [137]220
- 340 Y[178]Y[170]GB:[139] LA[178]0 [167] RD[178]W:RC[178]X
- 341 [153]:[153]"YOUR WHOLE NUMBER WITH FRACTIONIS ";Y;" AND";W;"/";X
- 350 [153]:[153]"YOUR FRACTION IS";W;"/";X
- 351 [153]:[153]" YOUR DECIMAL NUMBER WAS";D
- 352 [153]:[153]" DECIMAL AFTER APPROXIMATION";OO:[153]:[153]
- 360 [153]" DO YOU WANT APPROXIMATE FRACTION"
- 370 [133]" ";A$:[153]"LOAD"
- 380 [139] A$[178]"Y" [167] 400
- 381 [139] A$[178]"YES" [167] 400
- 390 [139] A$[178]"N" [167] 581
- 391 [128]
- 400 FA[178]W:W[178][181](RB):A$[178]"N"
- 401 [153]"DO YOU WANT TO APPROXIMATE HIGHER OR LOWER?":[153]
- 410 [153]"A) HIGHER"
- 420 [153]"B) LOWER"
- 430 [153]"C) APPROXIMATE 64TH FORM FOR FRACTION
- 450 INPUT"";T$:PRINT"[147]"
- 460 IF T$="A" THEN W=W+UU:X=1000:T=0:UU=UU+1:UA=1:LA=1
- 465 IF UU>3 THEN PRINT"YOUR FRACTION MIGHT HAVE TO GREAT AN ERROR!!!"
- 466 IF UA>3 THEN PRINT"YOUR FRACTION MIGHT HAVE TO GREAT AN ERROR!!!"
- 470 IF T$="B" THEN W=W-UA:X=1000:T=0:UA=UA+1:UU=1:LA=1
- 471 IF T$="C" THEN PO=1:W=RD:X=RC:GOTO 500
- 472 OO=W/1000:PRINT"DECIMAL NOW =";OO:PRINT:PRINT
- 480 GOTO 220
- 500 HA=0:PRINT"[147]":P=0:Y=0:PO=1:HA=W:HB=X
- 501 IF D<0 THEN D=ABS(D):PY=1
- 505 DA=ABS(D):Y=INT(DA):P=D-Y:AO=P*10000:WW=INT(AO):Z=W/100:G=50:X=100
- 510 I=(WW*64):B=I/10000:HH=INT(B):HF=B-HH:BH=INT(B):IF HF>.5 THEN BH=HH+1
- 511 PRINT" ACCURATE LESS ACCURATE"
- 520 PRINT" ";B;"/64 ";BH;"/64":PRINT:BI=BH/2:BA=B/2
- 521 IF BH=0 THEN PRINT" THERE IS NO FRACTIONAL AMOUNT ":GOTO565
- 530 PRINT" ";BA;"/32 ";BI;"/32":PRINT:BJ=BI/2:BB=BA/2
- 531 ZD=INT(BJ):IF ZD<>BJ THEN 565
- 540 PRINT" ";BB;"/16 ";BJ;"/16":PRINT:BK=BJ/2:BC=BB/2
- 541 ZD=INT(BK):IF ZD<>BK THEN 565
- 550 PRINT" ";BC;"/8 ";BK;"/8":PRINT:BL=BK/2:BD=BC/2
- 551 ZD=INT(BL):IF ZD<>BL THEN 565
- 560 PRINT" ";BD;"/4 ";BL;"/4":PRINT:BM=BL/2:BE=BD/2
- 561 ZD=INT(BM):IF ZD<>BM THEN 565
- 564 PRINT" ";BE;"/2 ";BM;"/2"
- 565 IF HB=1 THEN EA=W:EB=X:GOTO567
- 566 PRINT"YOUR FRACTION = ";HA;"/";HB:EA=W:EB=X
- 567 IF HA>HB THEN VA=HA/HB:VA=ABS(VA):VB=INT(VA):VC=VB*HB:VD=HA-VC
- 568 IF VD=0 THEN EA=W:EB=X:GOTO 570
- 569 IF HA>HB THEN PRINT"REDUCED FRACTION = ";VD;"/";HB:EA=W:EB=X
- 570 IF HB=1 THEN 572
- 571 IF PY=1 THEN PRINT"ALL FRACTIONSARE NEGATIVE":Y=Y*-1:D=D*-1
- 572 PRINT:PRINT" THE WHOLE NUMBER IS ";Y
- 573 PRINT:PRINT" YOUR DECIMAL WAS ";D
- 574 IF PO=1 THEN 581
- 575 PRINT:INPUT" DO YOU WANT THE FRACTION IN 64TH FORM";P$
- 576 IF P$="Y" THEN 500
- 577 IF P$="YES" THEN 500
- 578 IF P$="N" THEN 581
- 579 IF P$="NO" THEN 581
- 581 INPUT"DO YOU WANT TO TRY AGAIN";O$
- 582 IF O$="Y" THEN RUN 80
- 583 IF O$="YES" THEN RUN 80
- 584 PRINT"[147]":END
- 600 PRINT"[147]"
- 610 INPUT" WHAT IS TOP NUMBER OF THE FRACTION";R
- 620 INPUT"WHAT IS THE BOTTOM NUMBER OF THE FRACTION";T:PRINT"[147]"
- 621 IF T<0 THEN R=R*-1:T=ABS(T)
- 622 IF T=0 THEN GOTO 620
- 630 PRINT"THE FRACTION YOU ENTERED IS ";R;"/";T
- 631 ZE=INT(R):IF R<>ZE THEN 600
- 640 MM=1:W=R:X=T:G=50:GOTO220
- 650 IF X<0 THEN W=W*-1:X=ABS(X):EA=W:EB=X
- 651 PRINT"FRACTION AFTER REDUCTION = ";W;"/";X:EA=W:EB=X
- 652 IF PA=1 THEN Q=W/X:NA=INT(Q):IF NA<0 THEN NA=NA+1
- 653 IF W<0 THEN QS=ABS(EA):IF QS>X THEN QB=QS/X:QF=QB*-1
- 654 IF W<0 THEN A=1:IF QS>X THEN ZE=INT(QF):IF ZE=QF THEN 656
- 655 IF W<0 THEN A=1:IF QS>X THEN QF=INT(QF):QF=QF+1:QD=QF*X:QE=EA-QD
- 656 IF W<0 THEN A=1:IF QS>X THEN PRINT"WHOLE NUMBER = ";QF
- 657 IF W<0 THEN A=1:IF QS>X THEN PRINT"FRACTION IS ";QE;"/";X
- 658 IF W<0 THEN A=1:IF QS>X THEN IB=QE:Q=W/X:GOTO 670
- 660 Q=W/X:IF SS=1 THEN GC=W/X:GD=INT(GC):GE=GD*X:W=W-GE
- 661 IF SS=1 THEN 664
- 663 IA=INT(Q)*X:IB=W-IA
- 664 IF Q<0 THEN W=EA:GOTO 670
- 665 IF SS=1 THEN PRINT" WHOLE NUMBER =";INT(Q);" AND FRACTION";W;"/";X:GOTO670
- 666 PRINT:PRINT" WHOLE NUMBER =";INT(Q);" AND FRACTION";IB;"/";X
- 670 PRINT"DECIMAL VALUE EQUALS = ";Q
- 680 PRINT"":D=Q:GOTO 574
- 700 PRINT"[147]":T=0:R=0:RR=0:TT=0
- 701 IF SS=1 THEN INPUT"WHAT IS THE FIRST WHOLE NUMBER";GG:LA=0
- 710 INPUT"WHAT IS TOP NUMBER OF THE FRACTION";R
- 715 IF GG>0 THEN CT=0:IF R<0 THEN GG=GG*-1
- 716 IF GG<0 THEN CT=0:IF R>0 THEN R=R*-1
- 719 INPUT"WHAT IS THE BOTTOM NUMBER OF THE FRACTION";T:PRINT"[147]"
- 720 IF T=0 THEN 719
- 721 IF SS=1 THEN PRINT"THE WHOLE NUMBER ENTERED IS ";GG
- 722 IF SS=1 THEN T=ABS(T):GOTO730
- 723 IF T<0 THEN R=R*-1:T=ABS(T)
- 730 PRINT"THE FRACTION YOU ENTERED IS ";R;"/";T
- 735 IF SS=1 THEN INPUT"WHAT IS THE 2NDWHOLE NUMBER";GA
- 740 INPUT"WHAT IS TOP NUMBER OF 2ND FRACTION";RR
- 745 IF GA>0 THEN CT=0:IF RR<0 THEN GA=GA*-1
- 746 IF GA<0 THEN CT=0:IF RR>0 THEN RR=RR*-1
- 749 INPUT"WHAT IS THE BOTTOM NUMBER OF 2ND FRACTION";TT:PRINT"[147]"
- 750 IF TT=0 THEN 749
- 751 IF SS=1 THEN TT=ABS(TT):GOTO755
- 752 IF TT<0 THEN RR=RR*-1:TT=ABS(TT)
- 755 IF SS=1 THEN PRINT"THE 2ND WHOLE NUMBER ENTERED IS ";GA
- 760 PRINT"THE 2ND FRACTION YOU ENTERED IS ";RR;"/";TT
- 770 INPUT"DO YOU WANT TO ADD, SUBTRACT,DIVIDE OR MULTIPLY(+ - / *)";R$
- 780 IF R$="ADD" THEN 850
- 790 IF R$="SUBTRACT" THEN 1000
- 800 IF R$="A" THEN 850
- 801 IF R$="PLUS" THEN 850
- 810 IF R$="S" THEN 1000
- 811 IF R$="END" THEN PRINT"[147]":END
- 812 IF R$="STOP" THEN PRINT"[147]":END
- 820 IF R$="+" THEN 850
- 830 IF R$="-" THEN 1000
- 831 IF R$="DIVIDE" THEN 1500
- 832 IF R$="D" THEN 1500
- 833 IF R$="/" THEN 1500
- 834 IF R$="M" THEN 2000
- 835 IF R$="MULTIPLY" THEN 2000
- 836 IF R$="*" THEN 2000
- 837 IF R$="X" THEN 2000
- 838 IF R$="TIMES" THEN 2000
- 839 IF R$="MINUS" THEN 1000
- 840 PRINT"I DON'T UNDERSTAND THAT!":R$="0"
- 841 GOTO770
- 850 IF SS=1 THEN PRINT"";GG;" ";R;"/";T;"+ ";GA;" ";RR;"/";TT:GOTO860
- 851 PRINT"THE FRACTIONS AND OPERATION ";R;"/";T;"+ ";RR;"/";TT
- 860 INPUT"IS THIS CORRECT";T$:PRINT"[147]"
- 870 IF T$="YES" THEN 915
- 880 IF T$="Y" THEN 915
- 890 IF T$="N" THEN 700
- 900 IF T$="NO" THEN 700
- 910 GOTO 850
- 915 IF SS=1 THEN PRINT"";GG;" ";R;"/";T;"+ ";GA;" ";RR;"/";TT:GOTO925
- 916 PRINT"THE FRACTIONS AND OPERATION ";R;"/";T;"+ ";RR;"/";TT
- 917 IF T=TT THEN KB=R+RR:TU=TT:G=50:MM=1:W=KB:X=TU:K=R:KA=RR:GB=GG+GA:GOTO925
- 920 TU=T*TT:K=T*RR:KA=TT*R:KB=K+KA:W=KB:X=TU:G=50:MM=1:GB=GG+GA
- 925 REM
- 926 IF SS=1 THEN CT=0:IF TT<>T THEN EA=GG*T:EB=R+EA:EC=GA*TT:ED=EC+RR:PA=1
- 927 IF SS=1 THEN CT=0:IF TT<>T THEN TU=T*TT:KA=T*ED:K=TT*EB:KB=KA+K:W=KB
- 928 IF SS=1 THEN CT=0:IF T<>TT THEN :X=TU:G=50:MM=1
- 929 IF SS=1 THEN CT=0:IF T=TT THEN EA=GG*T:EB=R+EA:EC=GA*TT:ED=EC+RR:KB=EB+ED
- 930 IF SS=1 THEN CT=0:IF T=TT THEN TU=TT:G=50:MM=1:W=KB:X=TU:K=EB:KA=ED:PA=1
- 932 IF SS=1 THEN GB=GA+GG:PRINT"TOTAL OF WHOLE NUMBERS ";GB
- 933 IF SS=1 THEN PRINT"SIMPLIFIED FRACTIONS ";EB;"/";T;"+ ";ED;"/";TT
- 934 PRINT"CONVERTED FRACTIONS ";K;"/";TU;"+ ";KA;"/";TU
- 940 PRINT"TOTAL OF FRACTIONS ";KB;"/";TU:GOTO 220
- 1000 IF SS=1 THEN PRINT"";GG;" ";R;"/";T;"- ";GA;" ";RR;"/";TT:GOTO1010
- 1001 PRINT"THE FRACTIONS AND OPERATION ";R;"/";T;"- ";RR;"/";TT
- 1010 INPUT"IS THIS CORRECT";T$:PRINT"[147]"
- 1020 IF T$="YES" THEN 1065
- 1030 IF T$="Y" THEN 1065
- 1040 IF T$="N" THEN 700
- 1050 IF T$="NO" THEN 700
- 1060 GOTO 1000
- 1065 IF T=TT THEN KB=R-RR:TU=TT:G=50:MM=1:W=KB:X=TU:KA=R:K=RR:GOTO1071
- 1070 TU=T*TT:K=T*RR:KA=TT*R:KB=KA-K:W=KB:X=TU:G=50:MM=1:GB=GG-GA
- 1071 IF SS=1 THEN PRINT"";GG;" ";R;"/";T;"- ";GA;" ";RR;"/";TT:GOTO 1076
- 1075 PRINT"THE FRACTIONS AND OPERATION ";R;"/";T;"- ";RR;"/";TT
- 1076 IF SS=1 THEN CT=0:IF TT<>T THEN EA=GG*T:EB=R+EA:EC=GA*TT:ED=EC+RR
- 1077 IF SS=1 THEN CT=0:IF TT<>T THEN TU=T*TT:K=T*ED:KA=TT*EB:KB=KA-K:W=KB
- 1078 IF SS=1 THEN CT=0:IF T<>TT THEN :X=TU:G=50:MM=1:PA=1
- 1079 IF SS=1 THEN CT=0:IF T=TT THEN EA=GG*T:EB=R+EA:EC=GA*TT:ED=EC+RR:KB=EB-ED
- 1080 IF SS=1 THEN CT=0:IF T=TT THEN TU=TT:G=50:MM=1:W=KB:X=TU:KA=EB:K=ED:PA=1
- 1081 IF SS=1 THEN GB=GG-GA:PRINT"TOTAL OF WHOLE NUMBERS ";GB
- 1082 IF SS=1 THEN PRINT"SIMPLIFIED FRACTIONS ";EB;"/";T;"- ";ED;"/";TT
- 1085 PRINT"CONVERTED FRACTIONS ";KA;"/";TU;"- ";K;"/";TU
- 1090 PRINT"TOTAL OF FRACTIONS ";KB;"/";TU:GOTO 220
- 1500 IF SS=1 THEN PRINT"";GG;" ";R;"/";T;" / ";GA;" ";RR;"/";TT:GOTO1510
- 1501 PRINT"THE FRACTIONS AND OPERATION ";R;"/";T;" / ";RR;"/";TT
- 1510 INPUT"IS THIS CORRECT";T$:PRINT"[147]"
- 1520 IF T$="YES" THEN 1570
- 1530 IF T$="Y" THEN 1570
- 1540 IF T$="N" THEN 700
- 1550 IF T$="NO" THEN 700
- 1560 GOTO 1000
- 1570 TU=R*TT:KB=T*RR:W=TU:X=KB:G=50:MM=1
- 1571 IF SS=1 THEN PRINT"";GG;" ";R;"/";T;" / ";GA;" ";RR;"/";TT
- 1572 IF SS=1 THEN XA=(GG*T)+R:XB=(GA*TT)+RR:TU=TT*XA:KB=XB*T:W=TU:X=KB:G=50
- 1573 IF SS=1 THEN 1576
- 1574 PRINT"THE FRACTIONS AND OPERATION ";R;"/";T;" / ";RR;"/";TT
- 1575 PRINT"WHICH EQUALS ";R;"/";T;"* ";TT;"/";RR:GOTO 1580
- 1576 PRINT"";XA;"";XB;"";XA;"";TT
- 1577 PRINT"[198][198][198]/[198][198][198]OR[198][198][198]*[198][198][198]"
- 1578 PRINT"";T;"";TT;"";T;"";XB
- 1580 PRINT"TOTAL OF THE FRACTIONS ";TU;"/";KB:GOTO 220
- 2000 IF SS=1 THEN PRINT"";GG;" ";R;"/";T;"* ";GA;" ";RR;"/";TT:GOTO2010
- 2001 PRINT"THE FRACTIONS AND OPERATION ";R;"/";T;"* ";RR;"/";TT
- 2010 INPUT"IS THIS CORRECT";T$
- 2020 IF T$="YES" THEN 2070
- 2030 IF T$="Y" THEN 2070
- 2040 IF T$="N" THEN 700
- 2050 IF T$="NO" THEN 700
- 2060 GOTO 1000
- 2070 TU=T*TT:KB=R*RR:X=TU:W=KB:G=50:MM=1:XA=R:XB=RR
- 2071 IF SS=1 THEN PRINT"";GG;" ";R;"/";T;"* ";GA;" ";RR;"/";TT
- 2072 IF SS=1 THEN XA=(GG*T)+R:XB=(GA*TT)+RR:KB=XB*XA:TU=TT*T:W=KB:X=TU:G=50
- 2073 PRINT"";XA;"";XB
- 2074 PRINT"[198][198][198]*[198][198][198]"
- 2075 PRINT"";T;"";TT
- 2080 PRINT"TOTAL OF THE FRACTIONS ";KB;"/";TU:GOTO 220
-