Casio fx-250D booklet

pg.30:

23 4.5 + 53 - # = -25.5
56 -12 * -2.5 / # = 268.8
2 3 / 10 20 ^ * # = 6.66666666666667*10^19
7 8 * 4 5 * - # = 36
1 2 + 3 4 * 5 / - 6 + # = 6.6

pg.31:.

6 4 5 * / # = 0.3

pg.36:

1,500 12 % * # = 180
2,500 15 %+ # = 2,875
3,500 25 %- # = 2,625
500 dup 300 + swap / 100* # = 160
500 dup 300 + delta% # = 0.6

pg.37:

80 100 delta% # = 0.25

pg.39:

14 ° 25 °' 36 °" + + deg # = 14.4266666666667

pg.40:

pi 6 / sin # = 0.5
63 ° 52 °' 41 °" + + cos # = 0.440283084663162
2 45 ° sin * 65 ° cos * # = 0.59767247746024 
1 30 ° tan / # = 1.73205080756888
1 pi 3 / cos / # = 2
1 30 ° sin / # = 2
2 sqrt 2 / acos # = 0.785398163397448

pg.41:

0.6104 atan deg # = 31.3998911775795
3.6 sinh # = 18.2854553606154
2.5 tanh # = 0.98661429815143
1.5 cosh 1.5 sinh - # = 0.22313016014843
0.22313016014843 ln # = -1.5
30 asinh # = 4.09462222433053
0.88 atanh 4 / # = 0.343941914130244

pg.42:

( 1.23 ) log # = 0.0899051114393979
64 ln 4 ln / # = 3
90 ln # = 4.49980967033027
123 1 7 / ^ # = 1.98864779527583
78 23 - -12 ^ # = 1.30511182934162*10^-21
3 12 ^ e 10 ^ + # = 553,467.465794807
( 40 ° sin ) log ( 35 ° cos ) log + # = -0.278567983822707
10 ( 40 ° sin ) log ( 35 ° cos ) log + ^ # = 0.526540784518363

pg.43:

15 1 5 / ^ 25 1 6 / ^ + 35 1 7 / ^ + # = 5.09055703692006
2 sqrt 3 sqrt 5 sqrt * + # = 5.28719690858051
5 1 3 / ^ -27 1 3 / ^ + # = -1.2900240533233
123 30 2 ^ + # = 1,023
1 1 3 / 1 4 / - / # = 12
8 ! # = 40,320

pg.45:

5 seed
5 rand

2 60 ° ra2x # = 1
2 60 ° ra2y # = 1.73205080756888 = 3 sqrt

pg.46:

1 3 sqrt xy2r # = 2
1 3 sqrt xy2a # = 1.0471975511966
1 3 sqrt xy2a deg # = 60

pg.47:

( 55 54 51 55 53 53 54 52 ) Memory Store
Memory Recall StdDev Swap Drop # = 1.40788595317336
Memory Recall stdDevP Swap Drop # = 1.31695671910659
Memory Recall GeoMean Swap Drop # = 53.3586421996697
Memory Recall Num Swap Drop # = 8
Memory Recall Sum Swap Drop # = 427
Memory Recall SumSqrs Swap Drop # = 22,805

pg.49:

( 1.2 -0.9 -1.5 2.7 -0.6 0.5 0.5 0.5 0.5 1.3 1.3 1.3 0.8 0.8 0.8 0.8 0.8 ) Memory Store
Memory Recall Num Swap Drop # = 17
Memory Recall Average Swap Drop # = 0.635294117647059
Memory Recall StdDev Swap Drop # = 0.953900660754691
Memory Recall GeoMean Swap Drop # = -0.881907312048737

TI BA-35 booklet

pg. 11:

18.9 22.3 delta% # = 0.17989417989418

pg. 19:

( 10 % 4 / 5 4 * 0 -10,000 ) fv # = 16,386.164402904

pg. 21:

( 16 % 4 / 3 4 * -5,000 0 ) fv # = 75,129.0273209601
( 16 % 4 / 3 4 * -5,000 0 TRUE ) fv # = 78,134.1884137987

pg. 22-23:

0.15 12 eff # = 0.160754517722998
0.18 52 apr # = 0.165778131923149

pg. 25:

( 15 % 12 / 20 12 * 300,000 ) pmt # = -3,950.36874775991
( 15 % 12 / 1 20 12 * 300,000 ) pmtp # = -200.368747759902
( 15 % 12 / 12 -3,950.36874775991 300,000 ) fv # = -297,423.185486968
-300,000 -297,423.185486968 - # = -2,576.81451303198
-3,950.36874775991 12 * -2,576.81451303198 - # = -44,827.6104600869

pg. 27:

( 96 87 87 70 93 77 ) Memory Store
Memory Recall Average Swap Drop # = 85
Memory Recall StdDevP Swap Drop # = 8.9628864398325
Memory Recall VarP Swap Drop # = 80.3333333333333

Accounting The Easy Way

pg. 155:

( 10,000 500 10 ) sln # = 950

pg. 159:

( 10,000 500 10 1 ) ddb # = 2,000
( 10,000 500 10 2 ) ddb # = 1,600
( 10,000 500 10 3 ) ddb # = 1,280
( 10,000 500 10 4 ) ddb # = 1,024
( 10,000 500 10 5 ) ddb # = 819.2
( 10,000 500 10 6 ) ddb # = 655.36
( 10,000 500 10 7 ) ddb # = 524.288
( 10,000 500 10 8 ) ddb # = 419.4304
( 10,000 500 10 9 ) ddb # = 335.54432
( 10,000 500 10 10 ) ddb # = 268.435456

pg. 161:

( 10,000 500 10 1 ) syd # = 1,727.27272727273
( 10,000 500 10 2 ) syd # = 1,554.54545454546
( 10,000 500 10 3 ) syd # = 1,381.81818181818
( 10,000 500 10 4 ) syd # = 1,209.09090909091
( 10,000 500 10 5 ) syd # = 1,036.36363636364
( 10,000 500 10 6 ) syd # = 863.636363636364
( 10,000 500 10 7 ) syd # = 690.909090909091
( 10,000 500 10 8 ) syd # = 518.181818181818
( 10,000 500 10 9 ) syd # = 345.454545454545
( 10,000 500 10 10 ) syd # = 172.727272727273

Excel "Functions & Macros"

pg. 22:

-0.5 acos # = 2.0943951023932 
-0.5 acos deg # = 120 

pg. 23:

-0.5 asin # = -0.523598775598299
-0.5 asin deg # = -30

1 atan # = 0.785398163397448
1 atan deg # = 45

pg. 24:

( 10 7 9 27 2 ) Average Swap Drop # = 11
( 10 7 9 27 2 5 ) Average Swap Drop # = 10

pg. 27:

65 chr$ # = {A}
33 chr$ # = {!}

pg. 28:

{Alphabet} ascii displayFLT # = 65

pg. 30:

1.047 cos # = 0.50017107459707
60 ° cos # = 0.5
0.5 acos # = 1.0471975511966
0.5 acos deg # = 60

( 10 7 9 27 2 ) num swap drop # = 5

pg. 35:

( 2,400 300 10 1 ) ddb # = 480
( 2,400 300 10 2 ) ddb # = 384
( 2,400 300 10 10 ) ddb # = 64.42450944

pg. 38:

1 exp # = 2.71828182845905
e # = 2.71828182845905
3 ln exp # = 3

pg. 39:

1 ! # = 1
0 ! # = 1
5 ! # = 120

false # = 0
true # = -1

( {Average VanGun} {A} ) instr # = 1
( {Average VanGun} {a} ) instr # = 5
( {Average VanGun} {V} ) instr # = 9
( {Average VanGun} {v} ) instr # = 2

pg. 41:

( ( 3,100 4,500 4,400 5,400 7,500 8,100 ) ) trendExp # = ( 3,269.36382297882 3,941.02400331085 4,750.67047769584 5,726.65123802614 6,903.13810565373 8,321.32318261338 )
( ( 3,100 4,500 4,400 5,400 7,500 8,100 ) ( 1 2 3 4 5 6 ) ( 7 8 9 ) ) trendExp # = ( 10,030.8611025451 12,091.6075785621 14,575.7151194969 )

pg. 46:

8.9 int # = 8
-8.9 int # = -9

pg. 47:

( 10 % 12 / 1 36 8,000 ) pmtI # = -66.6666666666672
( 10 % 3 3 8,000 ) pmtI # = -292.447129909366

pg. 48:

( ( -5,000 1,000 1,500 2,000 -3,000 2,500 5,000 ) ) irr # = 0.150482578238737
check:
( ( -5,000 1,000 1,500 2,000 -3,000 2,500 5,000 ) 0.150482578238737 ) npv # = -1.73627778821128*10^-12 # = 
-.000'000'000'001'736'277'788'211'28*10^0

pg. 51:

{Paul Irving} 4 Left$ # = {Paul}

pg. 52:

{Phoenix, AZ} Len Swap Drop DisplayFLT # = 11
{} len Swap Drop # = 0

pg. 53:

( ( 3,100 4,500 4,400 5,400 7,500 8,100 ) ) FitToLine # = ( 1,000 2,000 )

2.7182818 ln # = 0.999999989530502
e # 2.71828182845905
2.71828182845905 ln # = 1
3 exp ln # = 3
4 ln exp # = 4

pg. 54:

( 10 ) log # = 1
( 8 2 ) log # = 3
( 86 e ) log # = 4.45434729625351

pg. 55:

( ( 3,100 4,500 4,400 5,400 7,500 8,100 ) ) fitToExp # = ( 1.20544063515087 2,712.17323163296 )

pg. 56:

{E.E.Cummings} lCase$ # = {e.e.cummings}
{Apt.2B} lCase$ # = {apt.2b}

pg. 58:

( 10 7 9 27 2 ) max swap drop displayFLT # = 27
( 10 7 9 27 2 30 ) max swap drop # = 30

pg. 59:

( {Hello World} 1 5 ) mid$ # = {Hello}
( {Hello World} 12 5 ) mid$ # = {}

pg. 60:

( {FFFFFFDCBAA} 85 10 / int 1 + 1 ) mid$ # = {B}

( 10 7 9 27 2 ) min swap drop displayFLT # = 2
( 10 7 9 27 2 0 ) min swap drop # = 0

pg. 63:

0.12 0.17 ( -5,000 1,000 1,500 2,000, -3,000 2,500 5,000 ) mirr # = 0.151866751908389

pg. 64:

3 2 mod # = 1
3 -2 mod # = 1
-3 -2 mod # = -1
-3 2 mod # = -1

pg. 66:

1 1 + 2 = not # = 0
1 1 + 3 = not # = -1
false not # = -1

pg. 67:

( 12 % 12 / -100 -1,000 10,000 true ) nPer # = 59.6738656742946
( 1 % -100 -1,000 10,000 ) nPer # = 60.0821228537617
( 1 % -100 1,000 ) nPer # = 10.5886444594232

pg. 68:

( ( 5,000 15,000 30,000 40,000 50,000 ) 0.1 ) npv 80,000 - # = 17,848.1971549385

pg. 69:

1 1 + 2 = 2 2 + 5 = or # = -1
1 1 + 3 = 2 2 + 5 = or # = 0

pi # = 3.14159265358979
1 atan deg # = 45

pg. 70:
 
( 10 % 12 / 1 24 2,000 ) pmtP # = -75.623186008366
( 8 % 10 10 200,000 ) pmtP # = -27,598.0534624214
# = OFF BY .05 (-27598.10), SINGLE VS DOUBLE?

pg. 71:

( 5 15 30 ) product swap drop # = 2,250
( 5 15 30 2 ) product swap drop # = 4,500

pg. 73:

( 9 % 12 / 24 12,000 ) pmt # = -548.216907350077
( 6 100,000 -750,000 1,500,000 0 0.1 ) rate # = 0.227346390097793
( 6 % 12 / 12 -100 -1,000 TRUE ) fv # = 2,301.40183034094

pg. 74:

( 48 -200 8000 ) rate # = 0.00770147248820205

( {abcde} 1 1 {*} ) mid$ # = {*bcde}
( {abcde} 3 2 {*} ) mid$ # = {ab*de}
( {abcde} 3 2 {**} ) mid$ # = {ab**e}
( {abcde} 3 2 {***} ) mid$ # = {ab**e}
( {any text} len 1 swap {} ) mid$ # = {any text}

pg. 75:

3 {*-} string$ # = {***}

{Paul Irving} 6 right$ # = {Irving}
{Hedgehog?} 1 right$ # = {?}

pg. 76:

2.15 1 round displayFLT # = 2.2
2.149 1 round # = 2.1
-1.475 2 round # = -1.48
891 -2 round # = 900

pg. 78:

1.047 sin # = 0.865926611287823
60 ° # = 1.0471975511966
60 ° sin # = 0.866025403784439

pg. 79:

( 30,000 7,500 10 ) sln # = 2,250

16 sqrt # = 4
-16 sqrt # = Error
-16 abs sqrt # = 4

pg. 80:

( 10 7 9 27 2 ) stdDev swap drop # = 9.46044396421225
( 10 7 9 27 2 ( 10 7 9 27 2 ) average swap drop ) stdDev swap drop # = 8.46167832052247
( 10 7 9 27 2 ) stdDevP swap drop # = 8.46167832052247

pg. 81:

( 5,000 15,000 30,000 40,000 50,000 ) stdDevP swap drop # = 16,309.5064303001

pg. 82:

( 10 7 9 27 2 ) sum swap drop # = 55
( 10 7 9 27 2 5 ) sum swap drop # = 60

( 30,000 7,500 10 1 ) syd # = 4,090.90909090909
( 30,000 7,500 10 10 ) syd # = 409.090909090909

pg. 84:

0.785 tan # = 0.999203990105043
45 ° # = 0.785398163397448
45 ° tan # = 1

( 2.715 {$0.00} ) format$ # = {$2.72}
( {4/15/1985} dateValue {mmmm d, yyyy} ) format$ # = {April 15, 1985}

pg. 85:

12 0 0 timeSerial displayFLT # = 0.5
16 48 0 timeSerial 12 0 0 timeSerial - # = 0.2

{2:24 AM} timeValue # = 0.1

pg. 86:

( ( 3,100 4,500 4,400 5,400 7,500 8,100 ) ) trendLine # = ( 3,000 4,000 5,000 6,000 7,000 8,000 )
( ( 3,100 4,500 4,400 5,400 7,500 8,100 ) ( 1 2 3 4 5 6 ) ( 7 8 9 ) ) trendLine # = ( 9,000 10,000 11,000 )

pg. 87:

{ the final frontier...} trim$ # = {the final frontier...}
{ 4 score and 7 years ago,} trim$ # = {4 score and 7 years ago,}

true displayFLT # = -1

8.9 fix # = 8
-8.9 fix # = -8

pg. 88:

{What did you say?} uCase$ # = {WHAT DID YOU SAY?}

pg. 89:

# ( {$1,000} {$,###} ) parse displayFLT # = 1,000
{$1,000} val # = 0
{1,000} val # = 1
{1000} val # = 1,000

pg. 90:

( 10 7 9 27 2 ) var swap drop # = 89.5
( 10 7 9 27 2 ( 10 7 9 27 2 ) average swap drop ) var swap drop # = 71.6

( 5 15 30 40 50 ) varP swap drop # = 266

PenApps for PenPoint Ref.:

pg. 1-5:

274 abs # = -274 abs # = 274

pg. 1-6:

{Anita} ascii # = 65

pg. 1-8:

beep

pg. 1-14:

65 chr$ # = {A}

pg. 1-25:

1992 8 7 dateSerial date$ # = {8/7/92}
# only year can be missing in DateValue in VB
# this is different than PenApps where anything missing will be supplied
{August 31} dateValue date$ # = {8/31/94}

pg. 1-26:

1992 5 27 dateSerial day displayFLT # = 27

pg. 1-27:

{1/1/91} dateValue # = 33,239

pg. 1-29:

{1/1/91} dateValue day # = 1

pg. 1-52:

12345.678 fix # = 12,345

pg. 1-55:

( .5 {0.0} ) format$ # = {0.5}

pg. 1-68:

( 100 16 ) baseN$ # = {64*16^0}

pg. 1-69:

{9 AM} timeValue hour displayFLT # = 9
{4 pm} timeValue hour # = 16

pg. 1-75:

( {within} {in} ) instr # = 5

pg. 1-76:

-12345.678 int # = -12,346

pg. 1-79:

{WHISPER} lCase$ # = {whisper}

pg. 1-80:

{LeftRight} 4 left$ # = {Left}

pg. 1-81:

{Anystring} len swap drop displayFLT # = 9

pg. 1-86:

{         Left} lJust$ # = {Left         }

pg. 1-91:

{         XYZ} lTrim$ # = {XYZ}

pg. 1-93:

( {Oh my!} 4 3 ) mid$ # = {my!}

pg. 1-95:

( {A Comb Box} 3 0 {Menu} ) mid$ # = {A Menu Box}

pg. 1-96:

{3:17 PM} timeValue minute displayFlt # = 17

pg. 1-97:

{August 23} dateValue month # = 8

pg. 1-99:

now dup date$ {, } rot time$ + + # = {1/31/94, 04:49 pm}

now time$ # = {04:49 pm}

pg. 1-103:

( 25 8 ) baseN$ # = {31*8^0}

pg. 1-109:

# ( {zero} {#;(#);zero} ) parse displayFLT # = 0
# ( {(12.7)} {0;(0);zero} ) parse # = -12.7

pg. 1-122:

{LeftRight} 5 right$ # = {Right}

pg. 1-123:

{Right         } rJust$ # = {         Right}

pg. 1-125:

{XYZ        } rTrim$ # = {XYZ}

pg. 1-125:

0 0 50 timeSerial second displayFLT # = 50

pg. 1-131:

-5 sign # = -1
5 sign # = 1
0 sign # = 0

pg. 1-133:

1 space$ # = { }

pg. 1-136:

9 str$ # = { 9}
{Button Number} 3 str$ + # = {Button Number 3}

pg. 1-137:

10 {!} string$ # = {!!!!!!!!!!}

pg. 1-142:

now 1 24 / + time$ # = {05:55 pm}

pg. 1-143:

6 0 0 timeSerial displayFLT # = 0.25
( 6 0 0 timeSerial {HH:NN:SS} ) format$ # = {06:00:00}

pg. 1-144:

{12:15:00} timeValue displayFLT # = 0.510416666666667

pg. 1-145:

{      XYZ          } trim$ # = {XYZ}

pg. 1-150:

{Shout!} uCase$ # = {SHOUT!}

pg. 1-153:

{923} val displayFLT # = 923
{123.456} {   7} + val 1 + # = 124.4567

pg. 1-156:

{Jan 1, 1950} dateValue weekday # = 1

pg. 1-160:

now year # = 1,994

Other:

1,024 1,024 1,024 * * 1 - 2 * 1 + # = 2,147,483,647*10^0 # = 111,1111,1111,1111,1111,1111,1111,1111*2^0
-2,147,483,648 # = <F,8000,0000*16^0 # = -8000,0000*16^0 # = <97,852,516,352*10^0 # = -2,147,483,648*10^0 # = <7600,0000,0000*8^0 # = -200,0000,0000*8^0 # =  <1000,0000,0000,0000,0000,0000,0000,0000*2^0 # =  -1000,0000,0000,0000,0000,0000,0000,0000*2^0

6.375 # = 110.011*2^0
-6.375 # = <1001.101*2^0
162.65625 # = 1010,0010.1010'1*2^0
-162.65625 # = <1,0101,1101.0101'1*2^0

2 15 ^ 2 -5 ^ + # = 32,768.03125 # = 8000.08*16^0

2 12 ^ # = 4,096 # = 1000*16^0

-32 1 5 / ^ 3 ^ # = -8
-32 3 ^ 1 5 / ^ # = -8
-32 3 5 / ^ # = -8

-2.5 1 3 / ^ # = -1.35720880829745 
-2.5 2 3 / ^ # = 1.84201574932019

( 55 54 51 55 53 53 54 52 ) memory store 

memory recall # = ( 55 54 51 55 53 53 54 52 )

memory recall 6 ( 55 54 51 55 53 53 54 52 ) put memory store

memory recall 6 get swap drop # = ( 55 54 51 55 53 53 54 52 )

( ( 12 16 22 28 36 47 )  ( -166 -74 -35 -19 -7 -1 ) ) trendExp # = ( 10.2799057741625 20.3012243844618 27.0895983658805 30.4929629862894 33.3232554165807 34.8354415384516 ) 

( ( 10 12 16 22 28 36 47 )  ( -200 -100 -50 -25 -10 -2 -1 ) ) trendExp # = ( 7.89898091217118 15.6971408561362 22.12815989253 26.2728794811739 29.1236026629997 30.7684101774863 30.9804378555297 )

( ( 47 83 291 565 801 1197 1999 ) ( 1 2 10 25 50 100 200 ) ) trendLn # =  ( -207.844572928327 14.9409549720326 532.23293133819 826.739379803987 1,049.52490770435 1,272.31043560471 1,495.09596350507 )

Modulo studies

3 3 mod # = 0
2 3 mod # = 2
1.5 3 mod # = 2
1 3 mod # = 1
0 3 mod # = 0
-1 3 mod # = -1
-1.5 3 mod # = -2
-2 3 mod # = -2
-3 3 mod # = 0

3 3 modK # = 0
2 3 modK # = 2
1.5 3 modK # = 1.5
1 3 modK # = 1
0 3 modK # = 0
-1 3 modK # = 2
-1.5 3 modK # = 1.5
-2 3 modK # = 1
-3 3 modK # = 0

3 -3 mod # = 0
2 -3 mod # = 2
1.5 -3 mod # = 2
1 -3 mod # = 1
0 -3 mod # = 0
-1 -3 mod # = -1
-1.5 -3 mod # = -2
-2 -3 mod # = -2
-3 -3 mod # = 0

3 -3 modK # = 0
2 -3 modK # = -1
1.5 -3 modK # = -1.5
1 -3 modK # = -2
0 -3 modK # = 0
-1 -3 modK # = -1
-1.5 -3 modK # = -1.5
-2 -3 modK # = -2
-3 -3 modK # = 0

1.5 1 mod # = 0
-1.5 1 mod # = 0
1.5 -1 mod # = 0
-1.5 -1 mod # = 0

1.5 1 modK # = 0.5
-1.5 1 modK # = 0.5
1.5 -1 modK # = -0.5
-1.5 -1 modK # = -0.5

1.5 0 mod # = Error # = Div by zero

1.5 0 modK # = 1.5

Compilation tests

: ?Day 32 < If {Looks Good.} Else {No Way!} Then ;
28 ?Day # = {Looks Good.}
35 ?Day # = {No Way!}

: Eggsize	Dup 18 < If {Reject}			Else
			Dup 21 < If {Small}			Else
			Dup 24 < If {Medium}			Else
			Dup 27 < If {Large}			Else
 			Dup 30 < If {Extra Large}	Else
	{Error} Then Then Then Then Then Swap Drop ;

23 Eggsize # = {Medium}
29 Eggsize # = {Extra Large}
40 Eggsize # = {Error}

: Decade ( 10 0 Do I Loop ) ;
Decade # = ( 0 1 2 3 4 5 6 7 8 9 )

: Sample ( -243 -250 Do I Loop ) ; 
Sample # = ( -250 -249 -248 -247 -246 -245 -244 )

: Table ( 3 1 Do ( 3 1 Do I J * Loop ) Loop ) ; 
Table # = ( ( 1 2 ) ( 2 4 ) )

: PentaJumps ( 50 0 Do I  5 +Loop ) ;
PentaJumps # = ( 0 5 10 15 20 25 30 35 40 45 )

: Falling ( -10 0 Do I -1 +Loop ) ; 
Falling # = ( 0 -1 -2 -3 -4 -5 -6 -7 -8 -9 -10 )

: Inc-Count Do Swap ( I ) + Swap Dup +Loop Drop ; 
( ) 1 5 0 Inc-Count # = ( 0 1 2 3 4 ) 
( ) 2 5 0 Inc-Count # = ( 0 2 4 )
( ) -3 -10 10 Inc-Count # = ( 10 7 4 1 -2 -5 -8 )

: Doubling ( ) 32767 1 Do ( I ) + I +Loop ; 
Doubling # = ( 1 2 4 8 16 32 64 128 256 512 1,024 2,048 4,096 8,192 16,384 )

: R% 10 */ 5 + 10 / Fix ; 
227 32 R% # = 73

: Compound 	# amt, rate
	Swap  	# rate, amt 
	( )		# rate, amt, ()
	3		# rate, amt, (), 3
	Rotate	# (), rate, amt
	21 1 Do
	2Dup 	# (), rate, amt, rate, amt
	R%	 	# (), rate, amt, int
	+ 	 	# (), rate, newAmt
	(	 	# (), rate, newAmt, (
	Over	 	# (), rate, newAmt, (, newAmt 
	I	 	# (), rate, newAmt, (, newAmt, I
	Swap	 	# (), rate, newAmt, (, I, newAmt 
	)	 	# (), rate, newAmt, ( I newAmt )
	( 	 	# (), rate, newAmt, ( I newAmt ), (
	Swap 	# (), rate, newAmt, (, ( I newAmt )
	)	 	# (), rate, newAmt, ( ( I newAmt ) )
	-4	 	# (), rate, newAmt, ( ( I newAmt ) ), -4
	Rotate 	# rate, newAmt, ( ( I newAmt ) ), ( )
	Swap 	# rate, newAmt, (), ( ( I newAmt ) )
	+		# rate, newAmt, ( ( I newAmt ) )
	3 		# rate, newAmt, ( ( I newAmt ) ), 3
	Rotate 	# ( ( I newAmt ) ), rate, newAmt
	Loop
	2Drop 	# resultList
;

1000 6 Compound # = ( ( 1 1,060 ) ( 2 1,124 ) ( 3 1,191 ) ( 4 1,262 ) ( 5 1,338 ) ( 6 1,418 ) ( 7 1,503 ) ( 8 1,593 ) ( 9 1,689 ) ( 10 1,790 ) ( 11 1,897 ) ( 12 2,011 ) ( 13 2,132 ) ( 14 2,260 ) ( 15 2,396 ) ( 16 2,540 ) ( 17 2,692 ) ( 18 2,854 ) ( 19 3,025 ) ( 20 3,207 ) )

: Doubled 	#
 	6 1000 	# rate, amt 
	(		# rate, amt, (
	3		# rate, amt, (, 3
 	Rotate	# (, rate, amt
	21 1 Do
 	2Dup  	# (, rate, amt, rate, amt 
	R% 	 	# (, rate, amt, int
	+  	 	# (, rate, newAmt 
	(	 	# (, rate, newAmt, (
 	Over	 	# (, rate, newAmt, (, newAmt 
	I	 	# (, rate, newAmt, (, newAmt, I
	Swap	 	# (, rate, newAmt, (, I, newAmt 
	)	 	# (, rate, newAmt, ( I newAmt )
	3 		# (, rate, newAmt, ( I newAmt ), 3
	Rotate 	# (, ( I newAmt ), rate, newAmt
	Dup	 	# (, ( I newAmt ), rate, newAmt, newAmt
	2000	 	# (, ( I newAmt ), rate, newAmt, newAmt, 2000
	>	 	# (, ( I newAmt ), rate, newAmt, newAmt>2000
	If	 	# (, ( I newAmt ), rate, newAmt
	Leave Then
	Loop
	2Drop 	# (, ...
	)		# ( ... )
; 

Doubled # =( ( 1 1,060 ) ( 2 1,124 ) ( 3 1,191 ) ( 4 1,262 ) ( 5 1,338 ) ( 6 1,418 ) ( 7 1,503 ) ( 8 1,593 ) ( 9 1,689 ) ( 10 1,790 ) ( 11 1,897 ) ( 12 2,011 ) )

Variable Eggs
: Reset 0 Eggs Store ;
: Egg 1 Eggs +Store ;

Reset
Egg
Egg
Egg
Eggs Recall # = 3

: Greet {Hello, I speak FORTH} ; 
Greet # = {Hello, I speak FORTH}
' Greet # = _da:848f
' Greet Execute # = {Hello, I speak FORTH}

' XX # = {XX ?}

# Vectored Execution

: Hello {Hello} ;
: Goodbye {Goodbye} ;
Variable 'Aloha
: Aloha 'Aloha Recall Execute ;

' Hello 'Aloha Store

Aloha # = {Hello}

' Goodbye 'Aloha Store

Aloha # = {Goodbye}

: Say ' 'Aloha Store ;

Say Hello
Aloha # = {Hello}

Say Goodbye
Aloha # = {Goodbye}

: Coming ['] Hello 'Aloha Store ;
: Going ['] Goodbye 'Aloha Store ;

Coming Aloha # = {Hello}
Going Aloha # = {Goodbye}

: Say-Hello { Hello } ; Immediate 
Say-Hello # = { Hello }

: Greet Say-Hello { I Speak FORTH. } ; # = { Hello } 
Greet # = { I Speak FORTH. }

: Greet [Compile] Say-Hello { I Speak FORTH. } + ;
Greet # = { Hello  I Speak FORTH. }

: Say-Hello { Hello } ; 
: Greet [ Say-Hello ] { I Speak FORTH. } ; # = { Hello }
Greet # = { I Speak FORTH. }

4 : 4+ Literal + ;
3 4+ displayFLT # = 7

-10 4+ # = -6