Ϥ( = 0 IF INSTR(Disp$, = 1 THEN k$ = ""  * 3.141592653589793# /  RIGHT$(Disp$, 1) =  IF INST END IF  ( IF k$  IF k$ = " IF k$ =  = 0 THEN ExPres LOCATE 112: PRINT Justif2 - 1 LOC) END FUNCTION ": Disp$ = STR$( END FUNCTION ) ("0123456789 ", k$) <> 0 THEN " THEN Disp$ (" AND ExPre , C2: PRINT LOCATE L1, C1, L2, LOCATE 16, = 1 ELSE Ex THEN DecPre ) CAS BUTTON 15, ( = 0  DO  k$ = ""  IF  Disp$ T$(Disp$ IF k$ = = 1 ") THEN  COLOR VAL(Disp FOR1 + 1 TO" NE(: PRINT FatoriaBoxWidth: PRINT  FUNCTI LOCATE ExPressFatorialIsNumber k$ = " (# )CASE$(INIF ITHEN EXIT DO", k" OR RIG  GOT = " ExP FIM I LEF LENLOOP"." AND DecPDispNSTR0, 1ELSESTR$(NUM A =ATE XT AL2, $, 1 BOX COLO - 2); "RND  100$ <> = 0 - 1END Pres = 1 "."NUM1 NUM, 17 IFSELE# = $) $ = , Co PRI o&  Col1  ' ORNA  BUTT FUFAT  THECATE + 1IsPr(TexText RndINT = 0, OR  K 1, JTEess ssHEN (asP   0"D1Ass2ssss ORB 1, EN(F 4# 6 ",#-18S njUl(N! l12 = GT E$F R q uON) s: NXTO x%QK .ON|sa :. CON imeuOift$W  !" ( ! U=>KEY$?DE.@AB (R("+-C$) (#"DDEHT(F   = CHR$(13) @GO 1F(CH":Ir R == "" @J$K(%=L&,M(D($NOPQ(' OANDss IFss s( (%= R$ + k$ # IS(Dis "D)Ex "E)Ex *T5 # Qre( @ 2, (y$(R$)$U 2, ( y$(V(CDBL(+$))ss2 Iss2 s2((NW1#180))F(,X L- L (YA".Z, (B = C- C Y[B/ ".XT B[C2/ ""L1""$$(R\)HE"] $F ^C2,"_ "0123456789ANDIre %) /0l(p% "; STRING$(1`, ""aSTR>T(b*c0) /c0)F k$H" PRd "" T462"Sim" 592"No" e R(isp$)f ))$gIFF LOOEXIB ELShs2hs2LOGW13] CASip$,j)hsPrekl2#E W1#)E0 '42m, 555m, 6n QK$HS" @  UMlERO3ON ', T4 14, eF5 goCTF ei U Qrep+q grk$:GO 2)E "F LOCYRowsl1F tN _R T 122" "4 "4 R$H" @Ires e: Qre  oCT = ' "E 3ONu(N%, p%) u=0 Col2 -vw gSUB FORX w 6& xRETy 7% = CONSTz{ON Qr$ =EH& Qres58D8EFl?SC$) T$61";F tNT " PRESSED @ * U  gIFCombinac|NCAO  RADIANO3lERO )n x% }=zNEZe~ QKd Hipotenu(TO1 TO2|NO 7CONFπN ρimςt$, F IF  σ$ =NτSgnυ FφTφ1, F^1χ 11, 13, C]19, 2χ " LOCAτSA, 1)egressess2" THHEN RrMf=υ(k) /  12,Arra SURow1s RowTitlqFψπSPACNEXT) IxGRAUDtoRCALC FAT DE  (x% AND~U, T:Lψpφ ^ 2VERDVAR$MID$nρ RET CON = -JustςxφF) + DEFA-Z RANDOMIZE TIMER\0\-1I5 CLS] 9, 9, 23, 3ω22, 30, "Mini Calc"I5] 29=J 7 8 9 /ϊ5ϋ 4 5 6 *ϊ6ϋ 1 2 3 -ϊ7ϋ 0 .R +ϊ8ϋ ClsKpFpLJ n! Y N LnLJ Sin cOs Tan loGό 21ϋ  escMDO ^ύ>9ώNs'Ϗ BύOss: $ϐP Pk_`ϑQPk$/Ej:ϒ/E "D", "E":bϓ?ϔIFϕ ϒ@ssϖ cR dϗssϘϙϙϚϛb;P 1e1Ϝ M^>291, ώ2Ns2'ϝ Oss2:ϔ f("*/IF!YNLGSOTgϐC Ϗ*EIF3"+D3"-Ϟϑ*EϓC $LEF`,ϟ$))ϕ2 as2@ss2ϖϠcϡRϠdϡϗss2Ϙ2++Ϛ2ϛb2;P 2e2Ϝ Qg$h "+Ϣ+5"-Ϣ-5"*Ϣ*5"/Ϣ/5"IDINTϣFDFpϣ!Di(C#)EYϢ^5"NDSQRϣLϤEGϤLOG(10ESDSI ASE "ODCOS(#ϥ0ETDTA?ό )) NϦϧT ϧϨϩB (Ϫ,ϫl2, ejϬV+ 1F1ϭ""kAϬ TOϫh ό AϪh l"; Ϯ(j`ak AF2ϭ""";F1, (V-ϟe$)2 +v1: PRe$W SUB {ON (C2,mϯNOTmno15ϰ0<p o0ϰ15<ϱSUBϦraT raϨ%i(N% - pϩESTAsTRANSFORMA S EMtS 'tS=(S)ϲ # (DEGϳpDEGϥ7ϴiULA OORIALUMvENTRE 0 E 34ϲ i&w > 0 x% < 35ϵx1϶Ϸx}* AyY= IFϷzNY= 1pERRORcqHBJ] 40, 66, F] 4ϝ65=42:lDeseja sair realmente ?" 8ω94, F %&WHILE{"S"{"N" ϸU>KEYWEND:81Ϲ%IF ϸ"NϞ 94Ϲ&SLEEP 1:CO7, 0: CLS : SYSTEM RUN "MINI"W 'ϴFPZA PARTE FRACIONARIA DE; Fp# (x#) Fx# - x#)Ϻ ϻ},~ϳϻ= SQR} +~<ϼZϽ SE ; % ()϶(VARk(, A fgϾy () = Aϵ[ 1Ͽ[ 7 ϼORN A ϽSEvtMOe%ϳϾ2 TO SQR(x%)w MODTze:T FUNCTION T 1Ϻ y$ tI"D"ϯpn px > 13 T13LT$xp) xV(VAL))LEN(x$) <)ϵ x$ϱy_T$(Ϯ(17σ\7<y UM VAALEATORIO-1 OU 1% b* 2)%iϿSgn%1H