.DATE              21:09:44  RID   86I   09 JUL 08  GORT
.Run Name: CALC                    By: Rob Haeuser Lvl 8.800 (c)1993-2008
*Function: Calculator can be run independently or called as a subroutine.
*          The calculated total is returned to the calling run.
*===============================================================================
:L1=14,5=48,10=59,15=64,18=66,20=67,22=68,24=69,26=70,28=71,30=72,32=73,34=74
:L36=75,38=76,40=77,42=78,44=79,46=81,48=82,50=83,52=84,54=85,56=88,58=89,60=90
:L62=91,64=92,66=93,68=94,70=95,72=96,74=97,76=98,78=99,80=100,82=101,84=102
:L86=103,88=104,90=105,92=106,94=107,96=108,98=109,100=110,102=111,104=112
:L106=113,108=114,110=116,112=117,151=118,152=119,153=120,154=121,155=122
:L160=123,188=124,190=225,198=226,199=228
@     IF DLINE$ > 0 RNM -1 CHG <DL>i6 DLINE$ ;CALL 0001*('') .
@     IF DRW1$ > 0 DSX,-1,<DL> ;REL .
@0001:(<GT>) RAR 0199 RER,EDRW$,2 0001 .
@     IF WS$ > 0 . ;GTO 0198 .    <- can only run on a station that supports GUI
@     RSR,EDRW$,4 0011 .                                    <- get screen colors
@     LDV,r <I>a15=0,<GT>a15,<LO>h1=+,<MT>a15,<MF>h1,<O>h1=+,<SV>i1,<TH>a15,\
      <FS>I2=23 IF SCNV$ GE 30 . ;LDV <FS>=22 .
@     FON,r,'Courier New',<FS>,b .
@     WIN,,5,25,17,31,<A2>,hio ' GURU Calculator' <W>i6 .         <- main window
@     MNU,,<W> MENUBAR,"E&xit",,0199
               MENUBAR,"&Help",,0188
@     TXT,"",<W>,2,4,1,1,<A5>,3b <MH>i6 .                         <- memory flag
@     EDT,"",<W>,02,09,1,15,<A3>,3r <EB>i6 .                       <- input area
@     TXT,"",<W>,02,28,1,1,<A4>,3b <OH>i6 .                         <- operation
@     BTN,<W>,04,03,2,4 'C' <C>i6 BTN,<W>,04,09,2,5 '7' <7>i6 .
@     BTN,<W>,04,14,2,5 '8' <8>i6 BTN,<W>,04,19,2,5 '9' <9>i6 .
@     BTN,<W>,04,26,2,4 '+' <A>i6 BTN,<W>,06,03,2,4 'CE' <CE>i6 .
@     BTN,<W>,06,09,2,5 '4' <4>i6 BTN,<W>,06,14,2,5 '5' <5>i6 .
@     BTN,<W>,06,19,2,5 '6' <6>i6 BTN,<W>,06,26,2,4 '-' <S>i6 .
@     BTN,<W>,08,03,2,4 'MC' <MC>i6 BTN,<W>,08,09,2,5 '1' <1>i6 .
@     BTN,<W>,08,14,2,5 '2' <2>i6 BTN,<W>,08,19,2,5 '3' <3>i6 .
@     BTN,<W>,08,26,2,4 '*' <M>i6 BTN,<W>,10,03,2,4 'MR' <MR>i6 .
@     BTN,<W>,10,09,2,5 '0' <0>i6 BTN,<W>,10,14,2,5 '.' <P>i6 .
@     BTN,<W>,10,19,2,5 '=' <E>i6 BTN,<W>,10,26,2,4 '/' <D>i6 .
@     BTN,<W>,12,03,2,4 'M+' <MA>i6 BTN,<W>,13,09,1,3 'Ab' <AB>i6 .
@     BTN,<W>,13,12,1,3 'Ac' <AC>i6 BTN,<W>,13,15,1,3 'As' <AS>i6 .
@     BTN,<W>,13,18,1,3 'At' <AT>i6 BTN,<W>,13,21,1,3 'Cr' <CR>i6 .
@     BTN,<W>,13,24,1,3 'Cs' <CS>i6 BTN,<W>,13,27,1,3 'Ct' <CT>i6 .
@     BTN,<W>,14,03,2,4 'M-' <MS>i6 BTN,<W>,14,09,1,3 'Dr' <DR>i6 .
@     BTN,<W>,14,12,1,3 'Ex' <EX>i6 BTN,<W>,14,15,1,3 'Fp' <FP>i6 .
@     BTN,<W>,14,18,1,3 'Hc' <HC>i6 BTN,<W>,14,21,1,3 'Hs' <HS>i6 .
@     BTN,<W>,14,24,1,3 'Ht' <HT>i6 BTN,<W>,14,27,1,3 'Ip' <IP>i6 .
@     BTN,<W>,15,09,1,3 'Le' <LE>i6 BTN,<W>,15,12,1,3 'Lt' <LT>i6 .
@     BTN,<W>,15,15,1,3 'Pi' <PI>i6 BTN,<W>,15,18,1,3 'Rd' <RD>i6 .
@     BTN,<W>,15,21,1,3 'Si' <SI>i6 BTN,<W>,15,24,1,3 'Sr' <SR>i6 .
@     BTN,<W>,15,27,1,3 'Ta' <TA>i6 .
@0005:TXT,"<O>",<OH> IF <I> > 0 JUV,r <I> ;.
@     CLS,<EB> EDT,"<I>",<W>,2,9,1,15,<A3>,3r <EB> SHW,<W> .
@     INP,<EB> <EB>,(0010),<OH>,(0020),<0>,(0022),<1>,(0024),<2>,(0026),\
      <3>,(0028),<4>,(0030),<5>,(0032),<6>,(0034),<7>,(0036),<8>,(0038),\
      <9>,(0040),<P>,(0042),<A>,(0046),<S>,(0048),<M>,(0050),<D>,(0052),\
      <E>,(0054),<C>,(0110),<CE>,(0112),<AB>,(0056),<AC>,(0058),<AS>,(0060),\
      <AT>,(0062),<CR>,(0064),<CS>,(0066),<CT>,(0068),<DR>,(0070),<EX>,(0072),\
      <FP>,(0074),<HC>,(0076),<HS>,(0078),<HT>,(0080),<IP>,(0082),<LE>,(0084),\
      <LT>,(0086),<PI>,(0088),<RD>,(0090),<SI>,(0092),<SR>,(0094),<TA>,(0096),\
      <MC>,(0098),<MH>,(0100),<MR>,(0100),<MA>,(0102),<MS>,(0104) ;.
@     IF INPUT$ = 0188,(0188),0199,(0199) ;GTO 0151 .
@0010:CHG INPUT$ <I> LCV '' <I> ','/'' LDV,r <I> DEF <SV>,<I> .   <- kill commas
@     IF <SV> = 1,(0018),2,4,(LIN1),5,(0015) ;GTO 0151 .         <- valid input?
@     LDV,l <I> IF <I> = +,-,*,/ LDV <O>=<I> GTO 0054 ;.     <- keyed operation?
@     IF <I> = C,(0110),CE,(0112),MC,(0098),MR,(0100),M+,(0102),M-,(0104) ;.
@     GTO 0151 .
@0015:IF <I>(15-1) = +,-,*,/ LDV <O>=<I>(15-1),<I>(15-1)='' GTO 0020 ;.
@     GTO 0151 .
@0018:LDV,l <I> IF <I>(1-1) = +,-,*,/ LDV <O>=<I>(1-1),<I>(1-1)=,<LO>=<O> ;.
@0020:LDV,r <I>,<TH>=<I> GTO 0054 .
@0022:LDV <I>=0 GTO 0044 .
@0024:LDV <I>=1 GTO 0044 .
@0026:LDV <I>=2 GTO 0044 .
@0028:LDV <I>=3 GTO 0044 .
@0030:LDV <I>=4 GTO 0044 .
@0032:LDV <I>=5 GTO 0044 .
@0034:LDV <I>=6 GTO 0044 .
@0036:LDV <I>=7 GTO 0044 .
@0038:LDV <I>=8 GTO 0044 .
@0040:LDV <I>=9 GTO 0044 .
@0042:LDV <I>='.' .
@0044:LDV,l <TH> LDV <TH>(0-1)=<I> LCV T@ <TH> ' '/'' LDV,r <TH>,<I>=<TH> .
@     GTO 0005 .                                             <- accumulate input
@0046:LDV <O>=+ GTO 0054 .
@0048:LDV <O>=- GTO 0054 .
@0050:LDV <O>=* GTO 0054 .
@0052:LDV <O>=/ .
@0054:IF <GT> ne 0 IF <TH> ne '' ART <GT><LO><TH> <GT> . ;\         <- calculate
      IF <TH> ne '' LDV <GT>=<TH> ;.
@     LDV <I>=<GT>,<LO>=<O>,<TH>='' GTO 0005 .                 <- show new total
@0056:LDV <F>h3=ABS GTO 0108 .                    <- absolute value or magnitude
@0058:IF <I> ge -1 & le 1 LDV <F>h4=ACOS GTO 0108 ;GTO 0152 .      <- arc cosine
@0060:IF <I> ge -1 & le 1 LDV <F>h4=ASIN GTO 0108 ;GTO 0152 .        <- arc sine
@0062:LDV <F>h4=ATAN GTO 0108 .                                   <- arc tangent
@0064:LDV <F>h4=CBRT GTO 0108 .                                     <- cube root
@0066:LDV <F>h3=COS  GTO 0108 .                                        <- cosine
@0068:LDV <F>h3=CTN  GTO 0108 .                                     <- cotangent
@0070:LDV <F>h3=DEG  GTO 0108 .                  <- radians expressed in degrees
@0072:IF <I> ge 0 & le 709 LDV <F>h3=EXP GTO 0108 ;GTO 0153 . <-exponent(E to n)
@0074:LDV <F>h4=FRAC GTO 0108 .                            <- fractional portion
@0076:IF <I> ge -710 & le 710 LDV <F>h4=HCOS GTO 0108 ;GTO 0154 .  <- hyprblc cs
@0078:IF <I> ge -710 & le 710 LDV <F>h4=HSIN GTO 0108 ;GTO 0154 .  <- hyprblc sn
@0080:LDV <F>h4=HTAN GTO 0108 .                            <- hyperbolic tangent
@0082:LDV <F>h3=INT GTO 0108 .                                <- integer portion
@0084:IF <I> > 0 LDV <F>h3=LOG GTO 0108 ;GTO 0155 .        <- logarith in base e
@0086:IF <I> > 0 LDV <F>h5=LOG10 GTO 0108 ;GTO 0155 .     <- logarith in base 10
@0088:ART PI <I> LDV <TH>=<I> GTO 0005 .                                   <- pi
@0090:LDV <F>h3=RAD GTO 0108 .                             <- degrees in radians
@0092:LDV <F>h3=SIN GTO 0108 .                                           <- sine
@0094:IF <I> > 0 LDV <F>h4=SQRT GTO 0108 ;GTO 0155 .              <- square root
@0096:LDV <F>h3=TAN GTO 0108 .                                        <- tangent
@0098:TXT," ",<MH> LDV <MT>='',<MF>=,<I>=<GT>  GTO 0005 .  clear the memory flag
@0100:LDV <I>=<MT>,<TH>=<MT> GTO 0005 .                         <- recall memory
@0102:IF <I> ne '' ART <MT>+<I> <MT> LDV <I>=<MT> ;GTO 0106 .        <- memory +
@0104:IF <I> ne '' ART <MT>-<I> <MT> LDV <I>=<MT> ;.                 <- memory -
@0106:IF <MF> = '' TXT,"M",<MH> LDV <MF>=X ;GTO 0005 .
@0108:IF <I> ne ''  LDV,p <IX>a15=<I> . ;LDV <IX>i1=1 .
@     XQT '@ART '<F>'('<IX>') <I> GTO 0005 . ' .       <- scientific calculation
@0110:LDV,r <GT>=0,<I>=0,<LO>=+,<O>=+,<TH>='' GTO 0005 .            <- clear all
@0112:LDV <I>=,<TH>='' GTO 0005 .                                 <- clear entry
@0151:LDV <EM>s55='I do not understand your input.  Please try again.' GTO 0160
@0152:LDV <EM>s28='Valid range is -1 to +1' GTO 0160 .
@0153:LDV <EM>s28='Valid range is 0 to 709' GTO 0160 .
@0154:LDV <EM>s31='Valid range is -710 to 710' GTO 0160 .
@0155:LDV <EM>s34='Number must be greater than 0' .
@0160:LDV <I>=<GT>,<TH>='' MBX,,s,'Input error' <EM> o,(0005) .    <- show error
@0188:BRK .

    CALC starts in add mode.  The active operation is
 displayed to the right of the entry area.

    Enter numbers by clicking the number buttons or
 via the keyboard.  If you use the keyboard, you
 MUST transmit your input, or it will be discarded.
 You can also type C (Clear), CE (Clear Entry), MR
 (Memory Recall), MC (Memory Clear), M+ (Add to
 Memory), and M- (Subtract from Memory).  Remember,
 any entry from the keyboard must be transmitted.

    When entering from the keyboard, you can change
 the active operation for either the current entry or
 for subsequent entries.  For example, if in add mode
 and you transmit -15, the active operation changes
 to subtraction, reducing the total by 15.  If you
 enter 15-, 15 is added to the total, and the active
 operation becomes subtraction for the following
 entries.

    You cannot enter equations, such as (12*45)+77.8,
 all at once.  To perform this equation, you would
 enter 12* and transmit.  Next enter 45+ and transmit.
 Then enter 77.8 and transmit, yielding the total
 617.8.

    To activate memory, make an entry and then click
 M+ or M-.  If you use the number buttons, simply
 click M+/M- immediately.  If you enter via the
 keyboard, transmit prior to clicking M+/M- or your
 entry will be discarded.

    When memory is active an "M" will display in
 the box to the to the left of the input area.  Once
 activated, clicking M+/M- will add to or subtract
 from stored memory.

    To recall and display stored memory click MR or
 the "M" in the "Memory Active" box to the left of
 the input area.  The stored number will be displayed,
 but you must still process it by transmitting or
 clicking an operation (+,-,*,/).

    If the total exceeds 15 digits, it will display
 in scientific notation, where the letter E, followed
 by a number (representing the power of 10) indicates
 which direction and how many positions to move the
 decimal point.  For example, 173E6 would represent
 173,000,000.  In this case, E6 indicates six zeroes
 to the right.  Another example is .12345E-3, which
 represents .00012345, where E-3 indicates three
 zeroes to the left.  Please note that the number may
 be rounded.  Also, you cannot enter scientific
 notation as input.

    And now for some really fuzzy logic.  The Active
 Operation Box (AOB) to the right of the Input Area
 can be clicked.  Its function varies, depending on
 what was just done.  For example, if you enter a
 number and then click the AOB, it is the equivalent
 of clicking "=".  However, if you click the AOB a
 second time, it is the equivalent of transmitting
 from the keyboard, and the currently active action
 will be performed.  For example, if you run CALC
 and click on the "5" button, a 5 is displayed.  If
 you then click the AOB, it acts as an "=", and the
 5 is re-displayed.  If you click the AOB again, it
 acts as a transmit, and 5 is added to 5, yielding 10.
 Subsequent clicks of the AOB will continue to add
 the number to itself, just as transmitting from the
 keyboard would (5, 10, 20, 40, 80, 160, and so on).
 So what is this good for?  Excellent question!
 Essentially, it is a shortcut to entering the same
 number over again, and depending on the operation,
 might prove useful.  If all this is too fuzzy, just
 don''t click it!  And remember: you can do pretty
 much the same thing with the transmit key.

    The 3 rows of buttons on the bottom are for
 scientific calculations and are defined as follows:

    Ab = Absolute value       Ac = Arc cosine
    As = Arc sine             At = Arc tangent
    Cr = Cube root            Cc = cosine
    Ct = Cotangent            Dr = Degrees radian
    Ex = Exponentiate "e"     Fp = Fractional portion
    Hc = Hyperbolic cosine    Hs = Hyperbolic sine
    Ht = Hyperbolic tangent   Ip = Integer portion
    Le = Logarithm base "e"   Lt = Logarithm base 10
    Pi = Value of PI          Rd = Radian degrees
    Si = Sine                 Sr = Square root
    Ta = Tangent

    Congratulations!  You read the whole thing, or at
 least scrolled down here out of curiosity.

@     BRK WIN,,4,14,24,61,<A2>,hio ' GURU Calculator Help' <HW>i6 .
@     MNU,,<HW> MENUBAR,"&Return",,0190 .
@     EDT,-0,2,99,<HW>,2,3,20,55,<A4>,3bt HID,<W> SHW,<HW> INP .
@0190:CLS,<HW> GTO 0005 .
@0198:SC Q ATT;EEL;FLD,1,1,,SCNH$,C,(WHI/RED),,\
TIC$'<< Sorry, but CALC can only be run on a GUI Workstation >>'TIC$ WAT 4000 .
@0199:RETURN .
................................ Variable Table ................................
.<0>  - <9>  = 0 thru 9 handles
.<A>  = Add handle (+)
.<A2> - <A4> = screen colors
.<C>  = Clear handle (C)
.<CE> = Clear Entry handle (CE)
.<D>  = Divide handle (/)
.<DL> = Displayed Line #
.<E>  = Equals handle (=)
.<EB> = Edit box handle
.<F>  = Mathematical function
.<FS> = Font Size
.<GT> = Grand Total
.<HW> = Help Window handle
.<I>  = Input
.<IX> = Packed version of <I>
.<LO> = Last Operation
.<M>  = Multiply handle (*)
.<MA> = Memory add handle
.<MF> = Memory flag (equals X if memory is active)
.<MH> = Memory flag handle
.<MS> = Memory subtract handle
.<MT> = Memory total
.<O>  = Current operation (+, -, *, /)
.<OH> = Current operation handle
.<P>  = Period handle (.)
.<S>  = Subtract handle (-)
.<EB> = Edit Box handle
.<F>  = Function
.<TH> = Temporary Holder
.<W>  = Window handle
.
.       All the variables initialized for the scientific function buttons
.       represent their associated handles.
.
.V194 - V199 = Error routine