‹z = LEFT$(n$, 1) IF  EXIT FOR NEXT IF   1 TO LEN(ce$) " THEN ct = ct  THEN n$ = n$ +ce$ = LEFT$(ce$, = 0 THEN EXIT D ELSEIF LEFT$(l , 1) IF k$ THEN EXIT F " THEN n$ = $ >= "A" AND $ = MID$(seq $, j, 1) IF IF dgt$ = flag THEN f k$ = MID$( LTRIM$(RTRIM = VAL(Calc$ FOR i = 1 (a#) CASE $ = MID$ HouveErRetrieve n$ = " flag = FOR j EN(seq$) END IF NEXT FUNCTIONLTRIM$(S= ApTot  (EXP(a# EXP(-a#) CASE DECLARE  = INSTR SCREEN THEN EXCAS : t  LOOP : p1# = # CASE ": r# =  ct = ": r# =! IFOR  = w+ 1  ELSEIF $ = - 1  IF ct = + 1 IFUNCT" OR w$ MID$(n$) TO STR( dgt$) >" AN NOTag =" TH fla= "ZEXITi = ApToAp$(, 0) = nFuncCalc par$) THEN w -ce$,(expUCAS, 4)Plis DO EN VALl$, SUB Attr VarNomeBuf$(BctComa INT  DISHAR(x!,SELE 2  CA Bct AS ApMaCHR$! = LEFT = : n  0 T$ + $,  k$  THEEN  * (plst Ap) $))0(lêë•O –d%—Mp(6ž"^o ' v¨ENOz£"9E :E ²õ±ø²ù;E ;ú< ) 8=ThHEjIT"©N> I "ck£"kop¸Tg(+ ½$(¾) k$r=  n£+ 2½$AR$(¬: ª))D <D >ORE(j)- 2Óot}$,R x, 7cy"Ø!)ÙNE "á jã#Üx(˜(kçt(SQRRND= "= i d IN= 1) +E$( = )  w  y! ang =SE j ·w2§ 3¢ ( ‹2w2‹3 +‹k‹((‹ ‹Æ(‹‹4‹5(‹6k‹7")‹‹8‹9‹: (‹;)‹<‹ro‹ ‹=ION ( w$‹w‹7"-‹>‹?=( "+‹ ‹@(n$, 2): sg$‹3$: w$(‹w‹ ‹?<= ("Z‹ ‹$‹A ‹9sg‹7"-("‹"‹ 0‹‹Ç‹;‹BL(‹‹Ègt‹ ‹‹É(‹C"ABCDEFGHIJKLMNOPQRSTUVWXYZ012345678(9+-*/\%^@(),",‹D‹E 0‹(‹D$‹"@‹FD‹G‹(l‹H -1‹"(‹FD‹l(‹H 0 ‹5E‹"#‹IEN‹(‹G‹Jg ‹5‹6dgt‹ ‹D$ <(‹K‹FD‹Jg‹‹D$ ‹5(E ‹L FOR‹‹‹‹Mj(‹‹Ê‹B‹Nt ‹9‹Oj‹P‹Q$ $‹ ‹Rt‹S$ (‹R$,‹Ts‹U$‹ ‹ TR$(-VAL‹A)) $‹V‹j <‹!T ‹‹‹W 1) ‹‹X i‹ = ‹"‹Ë‹#)‹$‹ ‹S$ ‹Yr‹U") ‹9w‹‹7‹Z‹Ì‹$‹$‹[‹Í ‹\t(c)‹(p‹Î‹%‹ ‹‹]‹Ï‹&(‹X0‹ OR‹^D‹_(‹S$(‹@(‹`‹' 0: WIDTH 80 ‹Nt ‹!‹8 ‹") -‹#)‹a‹bib (v$, ‹c(ct%).‹d =‹TO 1‹‹"‹ OR ‹‹e‹f)‹Q$ ‹7""‹= ‹ ‹a‹gndo‹hDEF‹iA-Z ‹' 1‹Ð‹jM ‹kED PSET ‹l‹Ñ ‹ $) ‹9‹@( "‹(IT + ‹@(‹X‹h‹mCT ‹)=‹n‹)= 5‹oS ‹^D ‹mCT )‹*NEX )‹END ‹V n‹7 B‹:‹p ‹Í‹ T ‹ # =‹_(‹e "‹+p1# p2‹," q‹(l$ L‹‹Ð‹ ‹ ‹ ‹O‹Nt, ‹ ELS‹6l‹7 ‹É‹C‹`" ‹: ct ‹4 N‹S‹(a#‹$" H‹-.5 ‹%‹qSTRI(1‹B32), ‹rx + ‹s(x‹t160y‹t100‹Ò‹Nt ‹Ò‹Ó!‹Ô‹l‹Ñ)‹Ò‹gnd‹*‹7‹u$(‹ZE$‹v1‹B‹^D SU‹‹BLEN( 1‹w= ‹") >‹x ‹9i >‹( opn‹7n‹yk$ ‹Òparl$ ‹.1‹zw‹;‹.0‹‹>‹{‹‹v1‹| F‹=IOop‹7op‹Ò‹Mi ‹I‹}$‹o‹Õ‹,‹+‹v‹e( ‹u$(l‹v1‹]‹zi, 1)! + d! *‹~c$‹Ô‹$‹‹&T (0‹P‹ÒPR‹i(‹$, N‹/S‹/‹-‹o‹Õ"(v$)PromTYPE‹c0 c‹qSINGLE END (1 T Vqt‹j‹€$‹xO 32 op(1) ": o)‹Íor =‹] k , co‹7‹Ë 0‹‹2‹<$ TH‹|‹;‹Íc‹‚)‹X j,  <>  ‹Ö‹o‹w: t = ‹Ö‹W LENe$,  NEX w2 ‹T‹y‹R‹SLOOP‹@ 1)) BufBct ‹>‹_ OR  AND‹5‹e‹p‹M(i - MOD‹sNEXT1‹ ‹U ‹Ó‹€T‹Îi", "‹A‹t(‹Ó LI) * ELSE‹r‹`(k$, ","(LEF(t$,DIM tela, l) - 1‹‹\‹‚ #‹Ípt$RegNG  op" INT l), ct% " FOR‹Ê, 3= 4‹Õ= 3E 1= 5+ te$)O  1) T&c!‹$ Œ TTT‹ƒ$‹„ (‹ÎCLEAR , , 1638412Ž‹… ‹dUì* 1td‘’“”Ž3‹†1024) AS‹…,‹‡,‹ro‹ˆ˜V,™šWV)3틆6)UNG›œ‹Æ^‹‰2ž"/*\%‹‰3ž"+-‹‰4ž"="X0):í(5ž"<>‹‰‹Š!&|îY Z[= 0\ Ÿ 3 ¡= POï]: 4)¢r𣋄 4ñk‹‹l$_ DEFSìA-Z &c‹Îv`a(5$Œ)¤SPAC‹Ì10ñ1¥¦ct%bVqtd%§‹Œ‹ò >‹‡©N‹‡ =‹‡ª:‹Œ$ Var(ò).ctd«cB 1 ce£5a‹Yr¬ ó‹Žd= wece6­®1)¯" 7ô8j)_‹<><==<>==>.OR..AND..NOT..EQV..IMP..XOR."°õ(1‹i±SEf0‹‘2ö‹’‹‘4, 5²= 2‹‘6‹’24³÷‹“7‹”8‹•8‹”3‹•9‹”‹–0²÷‹–1²û³û‹—eg(z$,®t)°´ü ý§ w)þ*µÿXn‹˜w ü‹™§‹É‹C­ "!‹šN(024i¶(cý‹› ô"!‹œ * i¤"0" 8iª‹F‹ž@O k""‹Ÿ‹×,ÿ‹Ø‹ (+‹¡l‹¢m‹Æ"n ¦w3 =¹+,k‹£­ w3‹0Fm=ºl»k$‹¤¼t‹¥opn$,ºl$‹˜w3‹¦‹ž(‹Žn‹Ÿ‹×‹0F‹¤‹¥¿(ceo,¹-µÀ 8w2‹¦p‹ˆÁ$‹†256‹§Âõqî‹ ‹¨i =,ak‹©"0‹ª".ÃÄ(k‹E 0Å((‹ +‹ª"-")Æ (a‹ Dà a‹ EË«""))Å(k$ >‹ÆA"Æ‹{<‹K")?lÇE‹1-È‹fªžk$@‹¬q"s ¸T‹1IFÉtN ‹­‹®VAL(n‹¯‹LuN -¦ocb6 Ê0 kv(oc) w‹¬i=É‹› DO›.1ekop$)›1g(‹¡BÁ$(ižop1‹ v1$:op$¯"xp1CËÀ p2C(i‹°9Eíy"+D +E-D -E*D *E/D /E\D \E%DÌE^D ^E=D‹Íp2zÍ(0){p1# <>E‹±=E‹²=ED EQVED IMPED X‹³<‹±E>‹²E&DÆE|D ‹³!"{NOT p1#‹—ÈËÿ‹®p1#))d‹Ç‹BÂ-‹nÈ‹´|j + 2) ‹¢@‹µw‹µs_Î ‹­|ÏENDuNЋƒÑ‹kED x!,‹Ñ,Ò!¢r,˜(W(),‹¶ð(l¬§‹· ‹ŠFAZE‹¸seF‹¹Ô~ UNTIL i >GcH‹‹ºFÕG‹‹È!IÖ‹Îx×x€ COS‹»: y×y€ SIN‹»‹¼ -], -cor‹½F"‚"EÕD‹\Ò! +Ä(‹­ÖÚATNœ/ 45‹~2‹½E"¤1‚"{în.iª TOGdgtHB‹D£"}7¦Û‹«n»dgt$ƒÊjª‹¾H‹}¦kbÜx‹´^o˜(j, k‹F‹“Ûw+ 1‹—¾/$‹¹ž"REPITA ‹œJÝ8‹Îr„ÞßÔtIàT$Þ r -À)Jk$, rª¤":‹¨numbit t‹©  j„á ":")‹Øj)O‹‹‹u$‹¿ - Ïtg‹¿ª‹™"CO‹¸cŸ"5)))Ì 4/$öž"AP xâã#(200¥GE…-(319, 199ñ‹À# oF‹[†"APrender "; oq$;ó:"§‹¶ < 32©N[=‹¶ª K0žoq$LTš†U’ "##:"; i;‹¼‹ÉPUT z$‹Ø‹+Kiž‹Z‹ÌzÑ‹Á‹NtžiƒIF itN$”IF2PU…, ‹À"ESQ "?¿(Ý5)‹¾HEN ¦k ´TO‹¶ -f‹Ákª): ¦l =™O n:‹Âä =‹Âªä: Î l, k:$M"LIMPARxCLS : Y: Z:Ò×0 M"FIM‹œ#: SYSTEM ÇEIFN=‹šN¡=N="‹Î‹bib‹· kå),"k‹°)scBÐfc(¼‹¯æ(pars¬pLTO¶(æ6æ =ß©N O¸T O â‹Ãct)‘DOUB“c~‹Ï„‡",þp`$‡wå)è c«ª æ‹£æo‹§¾lstè aé‹ÃÏré0‹f‹ºSIˆ SIP"CO‰ COQ"TAˆ TAP"‹ÄŠ‹ÄR‹ÅЋœ END FUNCTION Var(ct%) CASE LOGEXPS*": rKEYELSESELE LOCHR$ THEret$CASEpt  T d%# = DNé‹ïŠïRAB‰ ABQ"SGˆ SGP"ATˆ ATP"ŠLOG(a#Ú.4342944819032518z"Lˆ RŠRSIN%‚"COS"TANH%) /"FATŠ1: ¦j&ba#: rér# * j&: ΋ŠCVIàT$(IN»ÍþE .Nome =: END  CT A-Z FUNCTI  CATE 25, (  N  = .ctd  ": PRINT  SPACE$( LEN(retRetrieve0), $ = STR$Prom  IF LEFT EXI ct% Vqt IF  FON $)  v$d% ¶(0) +  (2)) SECONDS TIMER HouveErro = -1unctCalcLTRIM$((r#))FSNG$ 1 ">"; 38); ret""O 2 ; "< "; 1 kINKEY$  CT  k$ ": GOTO 18): <> ""$(,- 1)13):DOASC(k> 31 AND< 36 + k$  BEEP OP FINT $ (v$) v$(v$ + 110)OR = 1 TOFOR NEXT >=+ 1::  = 0 ()