"":UU1:UA1<" WRITTEN BY ROGER BOYER"W"1115 HORIZON COURT"w("MERRITT ISLAND, FLORIDA"-"32952"2:< S1 2000F SP""Z"PROGRAM TO CONVERT DECIMAL FRACTIONS";. d"TO FACTIONS AND FRACTIONS TO DECIMALFRACTIONS."` n"A) CONVERT DECIMAL FRACTION TO FRACTION" x"B) CONVERT FRACTION TO DECIMAL FRACTION" z"C) ADD, SUBTRACT, DIVIDE OR MULIPLY FRACTIONS |"D) USE WHOLE NUMBERS WITH FRACTIONS ~"E) END* "WHAT DO YOU WANT TO DO";E$= E$"A" 200Q E$"B" 600d E$"C" 700} E$"D" SS1:700 E$"E" "": "": 110 "":"WHAT IS THE DECIMAL FRACTION";D:OOD: D0 200 D0 D(D):PY1K Y(D):PDY:OP1000000:W((O)1000).01:W(W):ZW100:G50:X1000{ P0 "YOU HAVE NO FRACTIONAL AMOUNT" P0 P0: L1 500: L: 200 RAP:RBW KWG:JXG:AB0:AA0:AD0:AC0 AA(K):ABKAA:AC(J):ADJAC GG1 AB0 270# AD0 275) 3  220D  AD0 290N  220_  AB0 290i  260r 220 "GG1:"CONVERTING NUMBER=";G:WAA:XAC:TT1:G30:PP1 # P1 220 ' MM1 650 , T2 340 6220 TYYGB: LA0 RDW:RCXM U:"YOUR WHOLE NUMBER WITH FRACTIONIS ";Y;" AND";W;"/";Xp ^:"YOUR FRACTION IS";W;"/";X _:" YOUR DECIMAL NUMBER WAS";D `:" DECIMAL AFTER APPROXIMATION";OO:: h" DO YOU WANT APPROXIMATE FRACTION" r" ";A$:""| A$"Y" 400%} A$"YES" 4008 A$"N" 581>VFAW:W(RB):A$"N""DO YOU WANT TO APPROXIMATE HIGHER OR LOWER?":"A) HIGHER""B) LOWER""C) APPROXIMATE 64TH FORM FOR FRACTION"";T$:""# T$"A" WWUU:X1000:T0:UUUU1:UA1:LA1f UU3 "YOUR FRACTION MIGHT HAVE TO GREAT AN ERROR!!!" UA3 "YOUR FRACTION MIGHT HAVE TO GREAT AN ERROR!!!" T$"B" WWUA:X1000:T0:UAUA1:UU1:LA1 T$"C" PO1:WRD:XRC: 500(OOW1000:"DECIMAL NOW =";OO::2 220YHA0:"":P0:Y0:PO1:HAW:HBXq D0 D(D):PY1DA(D):Y(DA):PDY:AOP10000:WW(AO):ZW100:G50:X100I(WW64):BI10000:HH(B):HFBHH:BH(B): HF.5 BHHH1" ACCURATE LESS ACCURATE"Q" ";B;"/64 ";BH;"/64"::BIBH2:BAB2  BH0 " THERE IS NO FRACTIONAL AMOUNT ":565" ";BA;"/32 ";BI;"/32"::BJBI2:BBBA2ZD(BJ): ZDBJ 565" ";BB;"/16 ";BJ;"/16"::BKBJ2:BCBB2.ZD(BK): ZDBK 565e&" ";BC;"/8 ";BK;"/8"::BLBK2:BDBC2'ZD(BL): ZDBL 5650" ";BD;"/4 ";BL;"/4"::BMBL2:BEBD21ZD(BM): ZDBM 5654" ";BE;"/2 ";BM;"/2"5 HB1 EAW:EBX:567C6"YOUR FRACTION = ";HA;"/";HB:EAW:EBX~7 HAHB VAHAHB:VA(VA):VB(VA):VCVBHB:VDHAVC8 VD0 EAW:EBX: 5709 HAHB "REDUCED FRACTION = ";VD;"/";HB:EAW:EBX: HB1 572#; PY1 "ALL FRACTIONSARE NEGATIVE":YY1:DD1D<:" THE WHOLE NUMBER IS ";Yb=:" YOUR DECIMAL WAS ";Ds> PO1 581?:" DO YOU WANT THE FRACTION IN 64TH FORM";P$@ P$"Y" 500A P$"YES" 500B P$"N" 581C P$"NO" 581E"DO YOU WANT TO TRY AGAIN";O$.F O$"Y" 80DG O$"YES" 80QH"":\X""b" WHAT IS TOP NUMBER OF THE FRACTION";Rl"WHAT IS THE BOTTOM NUMBER OF THE FRACTION";T:""m T0 RR1:T(T)n T0 620(v"THE FRACTION YOU ENTERED IS ";R;"/";TBwZE(R): RZE 600]MM1:WR:XT:G50:220 X0 WW1:X(X):EAW:EBX"FRACTION AFTER REDUCTION = ";W;"/";X:EAW:EBX PA1 QWX:NA(Q): NA0 NANA1 W0 QS(EA): QSX QBQSX:QFQB1D W0 A1: QSX ZE(QF): ZEQF 656 W0 A1: QSX QF(QF):QFQF1:QDQFX:QEEAQD W0 A1: QSX "WHOLE NUMBER = ";QF W0 A1: QSX "FRACTION IS ";QE;"/";X W0 A1: QSX IBQE:QWX: 670AQWX: SS1 GCWX:GD(GC):GEGDX:WWGER SS1 664hIA(Q)X:IBWIA Q0 WEA: 670 SS1 " WHOLE NUMBER =";(Q);" AND FRACTION";W;"/";X:670:" WHOLE NUMBER =";(Q);" AND FRACTION";IB;"/";X"DECIMAL VALUE EQUALS = ";Q."":DQ: 574K"":T0:R0:RR0:TT0 SS1 "WHAT IS THE FIRST WHOLE NUMBER";GG:LA0"WHAT IS TOP NUMBER OF THE FRACTION";R GG0 CT0: R0 GGGG1 GG0 CT0: R0 RR1;"WHAT IS THE BOTTOM NUMBER OF THE FRACTION";T:""K T0 719} SS1 "THE WHOLE NUMBER ENTERED IS ";GG SS1 T(T):730 T0 RR1:T(T)"THE FRACTION YOU ENTERED IS ";R;"/";T SS1 "WHAT IS THE 2NDWHOLE NUMBER";GAB"WHAT IS TOP NUMBER OF 2ND FRACTION";RRf GA0 CT0: RR0 GAGA1 GA0 CT0: RR0 RRRR1"WHAT IS THE BOTTOM NUMBER OF 2ND FRACTION";TT:"" TT0 749 SS1 TT(TT):755 TT0 RRRR1:TT(TT)P SS1 "THE 2ND WHOLE NUMBER ENTERED IS ";GA"THE 2ND FRACTION YOU ENTERED IS ";RR;"/";TT"DO YOU WANT TO ADD, SUBTRACT,DIVIDE OR MULTIPLY(+ - / *)";R$  R$"ADD" 850 R$"SUBTRACT" 1000  R$"A" 850$! R$"PLUS" 8508* R$"S" 1000P+ R$"END" "":i, R$"STOP" "":|4 R$"+" 850> R$"-" 1000? R$"DIVIDE" 1500@ R$"D" 1500A R$"/" 1500B R$"M" 2000C R$"MULTIPLY" 2000D R$"*" 2000(E R$"X" 2000@F R$"TIMES" 2000XG R$"MINUS" 1000H"I DON'T UNDERSTAND THAT!":R$"0"I770R SS1 "";GG;" ";R;"/";T;"+ ";GA;" ";RR;"/";TT:860S"THE FRACTIONS AND OPERATION ";R;"/";T;"+ ";RR;"/";TT5\"IS THIS CORRECT";T$:""Jf T$"YES" 915]p T$"Y" 915pz T$"N" 700 T$"NO" 700 850 SS1 "";GG;" ";R;"/";T;"+ ";GA;" ";RR;"/";TT:925 "THE FRACTIONS AND OPERATION ";R;"/";T;"+ ";RR;"/";TT]  TTT KBRRR:TUTT:G50:MM1:WKB:XTU:KR:KARR:GBGGGA:925 TUTTT:KTRR:KATTR:KBKKA:WKB:XTU:G50:MM1:GBGGGA   SS1 CT0: TTT EAGGT:EBREA:ECGATT:EDECRR:PA1'! SS1 CT0: TTT TUTTT:KATED:KTTEB:KBKAK:WKBS! SS1 CT0: TTT :XTU:G50:MM1! SS1 CT0: TTT EAGGT:EBREA:ECGATT:EDECRR:KBEBED! SS1 CT0: TTT TUTT:G50:MM1:WKB:XTU:KEB:KAED:PA1" SS1 GBGAGG:"TOTAL OF WHOLE NUMBERS ";GBT" SS1 "SIMPLIFIED FRACTIONS ";EB;"/";T;"+ ";ED;"/";TT""CONVERTED FRACTIONS ";K;"/";TU;"+ ";KA;"/";TU""TOTAL OF FRACTIONS ";KB;"/";TU: 220" SS1 "";GG;" ";R;"/";T;"- ";GA;" ";RR;"/";TT:1010@#"THE FRACTIONS AND OPERATION ";R;"/";T;"- ";RR;"/";TTc#"IS THIS CORRECT";T$:""y# T$"YES" 1065# T$"Y" 1065# T$"N" 700# T$"NO" 700#$ 1000#) TTT KBRRR:TUTT:G50:MM1:WKB:XTU:KAR:KRR:1071>$.TUTTT:KTRR:KATTR:KBKAK:WKB:XTU:G50:MM1:GBGGGA~$/ SS1 "";GG;" ";R;"/";T;"- ";GA;" ";RR;"/";TT: 1076$3"THE FRACTIONS AND OPERATION ";R;"/";T;"- ";RR;"/";TT%4 SS1 CT0: TTT EAGGT:EBREA:ECGATT:EDECRRG%5 SS1 CT0: TTT TUTTT:KTED:KATTEB:KBKAK:WKBx%6 SS1 CT0: TTT :XTU:G50:MM1:PA1%7 SS1 CT0: TTT EAGGT:EBREA:ECGATT:EDECRR:KBEBED&8 SS1 CT0: TTT TUTT:G50:MM1:WKB:XTU:KAEB:KED:PA19&9 SS1 GBGGGA:"TOTAL OF WHOLE NUMBERS ";GBz&: SS1 "SIMPLIFIED FRACTIONS ";EB;"/";T;"- ";ED;"/";TT&="CONVERTED FRACTIONS ";KA;"/";TU;"- ";K;"/";TU&B"TOTAL OF FRACTIONS ";KB;"/";TU: 220' SS1 "";GG;" ";R;"/";T;" / ";GA;" ";RR;"/";TT:1510j'"THE FRACTIONS AND OPERATION ";R;"/";T;" / ";RR;"/";TT'"IS THIS CORRECT";T$:""' T$"YES" 1570' T$"Y" 1570' T$"N" 700' T$"NO" 700' 1000("TURTT:KBTRR:WTU:XKB:G50:MM1K(# SS1 "";GG;" ";R;"/";T;" / ";GA;" ";RR;"/";TT($ SS1 XA(GGT)R:XB(GATT)RR:TUTTXA:KBXBT:WTU:XKB:G50(% SS1 1576(&"THE FRACTIONS AND OPERATION ";R;"/";T;" / ";RR;"/";TT$)'"WHICH EQUALS ";R;"/";T;"* ";TT;"/";RR: 1580X)("";XA;"";XB;"";XA;"";TT))"/OR*")*"";T;"";TT;"";T;"";XB),"TOTAL OF THE FRACTIONS ";TU;"/";KB: 220&* SS1 "";GG;" ";R;"/";T;"* ";GA;" ";RR;"/";TT:2010p*"THE FRACTIONS AND OPERATION ";R;"/";T;"* ";RR;"/";TT*"IS THIS CORRECT";T$* T$"YES" 2070* T$"Y" 2070* T$"N" 700* T$"NO" 700*  1000+TUTTT:KBRRR:XTU:WKB:G50:MM1:XAR:XBRRT+ SS1 "";GG;" ";R;"/";T;"* ";GA;" ";RR;"/";TT+ SS1 XA(GGT)R:XB(GATT)RR:KBXBXA:TUTTT:WKB:XTU:G50+"";XA;"";XB+"*"+"";T;"";TT, "TOTAL OF THE FRACTIONS ";KB;"/";TU: 220