Chip Multimedia 1993 January/chip_mm_1.iso/text_etc/calc.tbk

Asymetrix ToolBook File | 1991-07-04 | 92.3 KB | 2,670 lines

EaP|=
Rechner
pOldSize
4896,3744
u\zp
helvetica
pOldSize
4904,3700
housekeeping
cleanup
display
 controls displaying
numbers
calculate
'calculation procedures
Bmsgs
M icon
unselect_all
"unselects" selected
8icons
intercepts tabs
translates numeric keypad strokes
calculatepayment
does calculations
payments dialog box
 opening
--modification
going
 (thru
"Warning, editing scripts
}may disable
8." \
f"Continue"
"Cancel"
8." \
"Reader"
4memory, store
sysChangesdb
zmenus
c"Page"
c"Text"
c"Edit"
c"File"
e"Open"
e"Exit"
[displays
B"clear_all"
B"clear_tape"
default
, checks
overflow, multiple
--points, sets
Jkey value
generic
4last_key
") >= 20
--append
--replace
keystroke
--This function performs
If no values had been entered
--saved,
they're repeatedly hitting
same operator
, no action
taken.
If one
passed
kno other
If two
 are calculated
previously stored
their
--result
displayed
scrollable
val1. The "+"
 new_op
--ignore
 hits on
"+-x/")
"+-x/"))
"math"
--special
equal sign
x"mr"
CRLF & "
" && "T"
" &&
--only
    operation
h    " && "T" \
handler
If a
--calculator
equivalent
pressed, a
Emessage
sent
corresponding
>= 48
<= 57
- 48)
based on
fields
calculate_payment
Zloan_amount, interest_rate,
number_payments, wrk
typed
valid
 <= 0)
 <= 0)
 <= 0)
"One
more
invalid."
"Invalid
%"$0.00"
Loan
/1200
Interest
 & "%"
Number
--figure
 per
%"0.00"
"amount_per_payment"
Amount
$" &
total
 paid
%"0.00"
"total_interest_paid"
Total
$" &
vateinstance
enterbook
initialize
display
author
calculate
leavebook
keyup
keyChar
reader
keydown
activateinstance
calculate_payment
reader
initialize
author
Warning, editing scripts or altering objects may disable this book.
Continue
Cancel
enterbook
Warning, editing scripts or altering objects may disable this book.
Continue
Reader
Cancel
cancel
continue
reader
initialize
leavebook
activateinstance
sizetopage
initialize
buttonup
clear_all
buttonup
clear_tape
sizetopage
default
memory
store
display
number
display
display
display
display
number
last_key
value
calculate
number
------------
display
display
display
display
display
display
display
display
display
display
display
------------
display
display
last_key
store
new_op
keyup
keyChar
LBdisplay
LBdisplay
calculate
calculate
calculate
calculate
calculate
keydown
calculate_payment
loan_amount
interest_rate
number_payments
One or more of the values entered are invalid.
Invalid value entered.
$0.00
Loan amount:
Interest rate:
Number of payments:
amount_per_payment
Amount per payment:
total_interest_paid
Total interest paid:
loan_amount
interest_rate
number_payments
loan_amount
interest_rate
number_payments
loan_amount
interest_rate
number_payments
"_payments
:PRINTLAYOUT
.#stem
D#pOldSize
$.#4904,3700
0$stem
$stem
payments dialog box
 opening
--modification
going
 (thru
"Warning, editing scripts
}may disable
8." \
f"Continue"
"Cancel"
8." \
"Reader"
4memory, store
sysChangesdb
zmenus
c"Page"
c"Text"
c"Edit"
c"File"
e"Open"
e"Exit"
[displays
B"clear_all"
B"clear_tape"
default
, checks
overflow, multiple
--points, sets
Jkey value
generic
4last_key
") >= 20
--append
--replace
keystroke
--This function performs
If no values had been entered
--saved,
they're repeatedly hitting
same operator
, no action
taken.
If one
passed
kno other
If two
 are calculated
previously stored
their
--result
displayed
scrollable
val1. The "+"
 new_op
--ignore
 hits on
"+-x/")
"+-x/"))
"math"
--special
equal sign
x"mr"
CRLF & "
" && "T"
" &&
--only
#    operation
o    " && "T" \
handler
If a
--calculator
equivalent
pressed, a
Emessage
sent
corresponding
>= 48
<= 57
- 48)
based on
fields
calculate_payment
Zloan_amount, interest_rate,
number_payments, wrk
typed
valid
 <= 0)
 <= 0)
 <= 0)
"One
more
invalid."
"Invalid
%"$0.00"
Loan
/1200
Interest
 & "%"
Number
--figure
 per
%"0.00"
"amount_per_payment"
Amount
$" &
total
 paid
%"0.00"
"total_interest_paid"
Total
$" &
vateinstance
enterbook
initialize
display
author
calculate
leavebook
keyup
keyChar
reader
keydown
activateinstance
calculate_payment
reader
initialize
author
Warning, editing scripts or altering objects may disable this book.
Continue
Cancel
enterbook
Warning, editing scripts or altering objects may disable this book.
Continue
Reader
Cancel
cancel
continue
reader
initialize
leavebook
activateinstance
sizetopage
initialize
buttonup
clear_all
buttonup
clear_tape
sizetopage
default
memory
store
display
number
display
display
display
display
number
last_key
value
calculate
number
------------
display
display
display
display
display
display
display
display
display
display
display
------------
display
display
last_key
store
new_op
keyup
keyChar
LBdisplay
LBdisplay
calculate
calculate
calculate
calculate
calculate
keydown
calculate_payment
loan_amount
interest_rate
number_payments
One or more of the values entered are invalid.
Invalid value entered.
$0.00
Loan amount:
Interest rate:
Number of payments:
amount_per_payment
Amount per payment:
total_interest_paid
Total interest paid:
loan_amount
interest_rate
number_payments
$:REPORTDATA
_"AFB gives warning about altering
", sends initialize
housekeeping
cleanup
Bmsgs control icon
unselect_all
"unselects" selected
8icons
Utyping
Slabel fields
determines
aligning
sizefield
sizes
W during
 opening
--issue
making
"Warning, editing scripts
}may disable
8." \
f"Continue"
"Cancel"
8." \
"Reader"
bookshelf
they're quitting
can be found
8"bookshlf.tbk"
activateinstance
4memory, currformat, store
sysChangesdb
c"Page"
c"Text"
c"Edit"
c"File"
e"Open"
e"Exit"
B"clear_all"
B"clear_tape"
default
--controls
display
numbers, checks
overflow, multiple
--points, sets
value
generic
4last_key,
too many
decimals
--append
keystroke
--This function performs calculations.
If no values had been entered
--saved,
repeatedly hitting
same operator
no action
taken.
If one
passed
eno other
If two
 are calculated
previously stored
their
--result
displayed
scrollable
val1. The "+"
 new_op
that triggered
, op,
--ignore
 hits on
x"mr"
CRLF & "
" && "T"
" &&
 --only
" && "T" \
") > 21
"-e "
handler intercepts
d    strokes
u    pad.
If a
--calculator
    equivalent
pressed, a
Emessage
sent
corresponding
    >= 48
    <= 57
    - 48)
 based on
payments
calculate_payment
Zloan_amount, interest_rate,
number_payments, wrk
typed
valid
 <= 0)
 <= 0)
 <= 0)
"One
more
invalid."
"Invalid
%"$0.00"
Loan
/1200
Interest
 & "%"
Number
--figure
 per
%"0.00"
"amount_per_payment"
Amount
$" &
total
 paid
%"0.00"
"total_interest_paid"
Total
$" &
activateinstance
initialize
author
display
leavebook
calculate
keyup
reader
keyChar
keydown
enterbook
calculate_payment
reader
initialize
author
Warning, editing scripts or altering objects may disable this book.
Continue
Cancel
enterbook
Warning, editing scripts or altering objects may disable this book.
Continue
Reader
Cancel
cancel
continue
reader
initialize
leavebook
bookshlf.tbk
bookshlf.tbk
activateinstance
sizetopage
initialize
buttonup
clear_all
buttonup
clear_tape
sizetopage
default
memory
currformat
store
display
number
display
display
display
number
last_key
value
calculate
number
------------
display
display
display
display
display
display
display
display
display
display
display
------------
display
display
display
display
last_key
store
new_op
keyup
keyChar
LBdisplay
LBdisplay
calculate
calculate
calculate
calculate
calculate
keydown
calculate_payment
loan_amount
interest_rate
number_payments
One or more of the values entered are invalid.
Invalid value entered.
$0.00
Loan amount:
Interest rate:
Number of payments:
amount_per_payment
Amount per payment:
total_interest_paid
Total interest paid:
loan_amount
interest_rate
number_payments
`pOldSize
`5184,4320
>`pOldSize
(`4904,3700
Last revision
Handlers
 simulates entering the
 gives warning about altering
", sends initialize
housekeeping
cleanup
bookshelf
returns
display
 controls displaying
numbers
calculate
'calculation procedures
Bmsgs
M icon
unselect_all
"unselects" selected
8icons
intercepts tabs
translates numeric keypad strokes
calculatepayment
does calculations
payments dialog box
handles printing
calculator
invokes
 help
--modification
going
 (thru
"Warning:
Editing scripts
}may disable
8." \
f"Continue"
"Cancel"
8." \
"Reader"
sysChangesdb
togglestatus
4memory, store
X"user"
bringWindowToTop(
zmenus
c"Page"
c"Text"
zfile
c"File"
e"&Open..."
e"Boo&
e"E&xit"
e"Undo"
e"Cut"
e"Copy"
e"Paste"
e"Clear"
e"SelectAll"
 Help"
[displays
B"clear_all"
B"clear_tape"
default
Bookshelf
 ToolBook
M"bookshlf.tbk"
 toolbook
bringwindowtotop(
(bookmark
"The
 was
xfound.
Please
your current working directory."
, checks
overflow, multiple
--points, sets
Jkey value
generic
4last_key
") >= 20
continued 0's
" = 0
 "."
--replace
" = 0
--append
keystroke
--This function performs
If no values had been entered
--saved,
they're repeatedly hitting
3    same operator
, no action
taken.
If one
l    passed
kno other
If two
 are calculated
    previously stored
their
--result
displayed
    scrollable
val1.
 new_op
, op, savekey
--ignore
 hits on
"+-x/")
"+-x/"))
--special
equal sign
x"mr"
x"math"
CRLF & "
TAPE "T"
have
dividing
--only
operation
" = 0
"Can't divide
under/
"Overflow"
c"underflow"
"Underflow"
handler
If a
equivalent
pressed, a
Emessage
sent
corresponding
>= 48
<= 57
- 48)
based on
fields
calculate_payment
Zloan_amount, interest_rate,
number_payments, wrk
typed
%"$0.00"
Loan
/1200
Interest
 & "%"
Number
--figure
 per
%"0.00"
"amount_per_payment"
Amount
$" &
total
 paid
%"0.00"
"total_interest_paid"
Total
$" &
fType
" &&
"Tape"
2) - 5
calculatorHelp
8700, 4320
chelp tl
alize
Bookshelf
author
display
leavebook
calculate
keyup
reader
keyChar
togglestatus
keydown
calculate_payment
enterbook
calculatorHelp
initialize
chelp
reader
sizetopage
author
Warning:  Editing scripts or altering objects may disable this book.
Continue
Cancel
Cancel
warning
enterbook
initialize
Warning:  Editing scripts or altering objects may disable this book.
Continue
Reader
continue
sizetopage
warning
leavebook
togglestatus
initialize
bringWindowToTop
&File
&Open...
Boo&kshelf
E&xit
Paste
Clear
SelectAll
&Calculator Help
buttonup
clear_all
buttonup
clear_tape
default
memory
store
Bookshelf
send sizetopage
bookshlf.tbk
sysWindowHandle
toolbook
bookshlf.tbk
bringwindowtotop
bookshlf.tbk
bookshlf.tbk
bookmark
bookshlf.tbk
The Bookshelf was not found.  Please copy bookshlf.tbk to your current working directory.
ToolBook
display
number
display
display
display
display
display
display
display
display
display
number
last_key
value
calculate
number
------------
display
display
display
display
display
display
display
display
Can't divide by 0.
buttonup
clear_all
display
display
overflow
Overflow
underflow
Underflow
buttonup
clear_all
------------
display
last_key
store
savekey
new_op
keyup
keyChar
LBdisplay
LBdisplay
calculate
calculate
calculate
calculate
calculate
keydown
calculate_payment
loan_amount
Please enter a loan amount.
loan_amount
interest_rate
Please enter an interest rate.
interest_rate
number_payments
Please enter the number of payments.
number_payments
loan_amount
interest_rate
number_payments
number_payments
number_payments
$0.00
Loan amount:
Interest rate:
Number of payments:
amount_per_payment
Amount per payment:
total_interest_paid
Total interest paid:
loan_amount
interest_rate
number_payments
display
fType
calculatorHelp
sizetopage
loan_amount
interest_rate
number_payments
chelp
m\D|D|
f%P#F$l
\D|D|
\D|D|
BUTTONDOWN fLoc
4last_key
ZvText, tl, t
tl < 1
strStdNum(
sysCurrency
ftext()
"display"
strLocalNum(
"mouse"
BUTTONDOWN
BUTTONDOWN
textFromPoint
strStdNum
display
ftext
strLocalNum
mouse
vText
last_key
clear_tape
CRLF &
"tape"
buttonup
buttonup
schen
Print
"tape"
strPrintErr()
buttonup
buttonup
strPrintErr
Drucken
layert
MainCalc
998 -
123 MR
896 /
6632,123 MR
896 M+
896 /
------------
9,05050505050505
66 M+
962 MR99999999 cos
0,7313537016191706 atan
36,1800093469185 ln
3,588506738312016 runden
4 sin
6,97564737441253e-002 sinh
6,981305961022392e-002 tan
1,218471203406627e-003 tanh
1,218470600396929e-003 Wurzel
88 Wurzel
88 Wurzel
5578 wurzel
552,3189 wurzel
,001456 /
------------
4,55e-005
4,55e-005 x
,109865 =
------------
4,9988575e-006
4,9988575e-006 x
------------
------------
------------
4664
4664 x
------------
303160
-------
4,849363917273364e-011
-64 sinh
-3,117574540405808e+027 tan
------------
571266666660954 =
------------
1,985510492248247e+103
1,985510492248247e+103 M+
1,985510492248247e+103 x
571266666660954 MR
571266666660954 =
------------
1,134255960527006e+118
1,134255960527006e+118 M+
1,134255960527006e+118 x
571266666660954 MR
571266666660954 =
------------
6,479626217105813e+132
6,479626217105813e+132 M+
571266666660954 MR
4memory
buttonup
buttonup
memory
4last_key, memory
TAPE "M+"
Hstrstdnum(
"display") --
buttonup
buttonup
display
strstdnum
last_key
memory
4memory, last_key
ftext()
"display"
TAPE "MR"
"mr"
buttonup
buttonup
display
ftext
memory
last_key
4last_key, memory
TAPE "M-"
HstrStdNum(
"display") --subtract
buttonup
buttonup
display
strStdNum
last_key
memory
calculate (
buttonup
buttonup
calculate
4last_key
"math"
display (
buttonup
buttonup
LBdisplay
last_key
decimal
clear
4last_key
"display"
"mainCalc"
Jkeystroke
buttonup
buttonup
display
mainCalc
last_key
clear_all
4theStore, op, last_key
--initialize
temp value
operator
"MainCalc"
buttonup
buttonup
buttonup
clear
MainCalc
theStore
last_key
plusminusbtn
ftext()
"display" * - 1
buttonup
buttonup
display
ftext
display
ftext
Payments
buttonup
buttonup
Zahlungen
math_functions
runden
wurzel 2
display
Sets
formatted value
fText
fValue
strLocalNum(
ftext
strStdNum(
ftext
fText
fText
strLocalNum
fValue
ftext
strStdNum
03280505050505059
calcHelp
N I!h$
--Copyright
 1991
Asymetrix Corporation
erteilt Ihnen die Erlaubnis,
dieser Anwendung enthaltenen
--einzelnen Objekte und Scripten
Ihre eigenen Anwendungen zu kopieren
diesen zu verwenden. Es ist
jedoch nicht gestattet, das
--ganze Buch oder gr
] Teile davon zu
 eigenes
--Produkt zu vertreiben.
h Urheberrecht
 Originalelementen
. Enth
lt Ihr
kopiert wurden, mu
t es folgenden Hinweis
fallen unter das
7zur Sprachneutralit
t: Damit
leichter
bersetzt
--werden kann,
n vom
 kommenden Textzeichenfolgen,
--Leser gezeigt
Funktionen gebracht,
sich
diesem Buchscript
--unten befinden. Die Namen
Nbeginnen
Buchstaben
--"str".
,:         Jim Gallant
Q:    3/27/91
International version,
3Rivera 4/91,
Jchange 4/22/91
initialize
sysChangesdb
--cleanup
togglestatus
4memory, theStore
X"user"
bringWindowToTop(
zmenus
cstrPage()
cstrText()
strSelectPage()
estrImport()
estrExport()
e strCalculatorHelp() alias "
cstrHelp()
[displays
up formats
B"clear_all"
"mainCalc"
B"clear_tape"
"math_functions"
setupFormats
setupNumber
default
--controls
numbers, checks
overflow, multiple
--points, sets
Jkey value
generic
4last_key
ZvNum
fText()
:) >= 16
sysDecimal
continued 0's
 = 0
 "."
--replace
 = 0
--append
ftext()
keystroke
--This
 performs calculations.
If no values had been entered
--saved,
they're repeatedly hitting
same operator
, no action
taken.
If one
passed
kno other
If two
 are calculated
previously stored
their
--result
displayed
scrollable
val1. The "+"
 new_op
, op, savekey
--ignore
 hits on
"+-x/")
"+-x/"))
--special
equal sign
x"mr"
CRLF & "
TAPE "T"
--may have
.out
dividing
--only
operation
 strNoZeroDivide()
under/
c strOverflow()
c strUnderflow()
--intercept tabs
handler intercepts
strokes
If a
--calculator
equivalent
pressed, a
Emessage
sent
    corresponding
("0")
("9")
("0"))
("+")
("-")
("*")
("/")
("=")
 based on
payments fields
calculate_payment
4svCurrencyFormat, svNumFormat
Zloan_amount, interest_rate,
number_payments, wrk
strStdNum(
xPosNum(
 strEnterLoanAmt()
strMin1()
xposNum(
 strEnterInterestRate()
strMinTenth()
> 1000
strMaxInterest()
 strEnterNumberPymts()
typed
 strLoanAmt()
strDisplayCurrency(
)/1200
 strInterestrate()
strlocalNum(
) & "%"
 strNumPymts()
--figure
 per
"amount_per_payment"
 strPymtAmt()
total
 paid
"total_interest_paid"
 strTotalInterest()
wrk) &
fType
ZvText
code
german
 ONLY,
suppresses
meaningless
Note that
modifies a
parameter.
[ftype
" &&
"Tape"
) - 3
calculatorHelp
"CalcHelp"
Build
strings
"0" &
sysICurrDigits \
"0" &
& "00"
zformatting routines
deal
ToolBook
Set up
ZvZeros
sysILZero = 1
sysIDigits
currency
leading 0
strDisplayNumber fValue
If there's no dec pt don't
There's a
ZvInt, vFrac, vAmt
decimals
5) < 0
negative
sysINegCurr = 0
"(" & sysICurrency &
 & ")"
"-" &
."-" &
 & "-"
"(" &
"-" &
 & "-" &
sysIcurrency = 0
sysCurrency &
(& vMat
H     num
FALSE
K <= 1
Convert
internal
Substitutes
S, assumes no error
input
 fNum
strLocalNum
~(".",
--    Beginning
strAboutCalculator
"&Info
"Seite"
"Hilfe"
strEnterNonZeroInterestRate
"Geben Sie bitte einen Zinssatz ungleich
"SeiteAusw
hlen"
"Importieren"
"Exportieren"
"&Rechner-
strRound
"runden"
- keep
synch
strPrintErr
 "Druckfehler;
berpr
Druckereinstellung."
"Kann
durch 0 geteilt
berlauf"
"Unterlauf"
"Bitte Kreditbetrag eingeben."
(Zinsrate
"Anzahl
Zahlungen
strInterestRate
strCurrencySymbol
"Betrag pro
"Bezahlter Gesamtzins:"
strSqrt
"wurzel"
strSpecMathFunc
"Besondere mathematische
strAcosErr
( ) erfordert
Wert zwischen -1
strAsinErr
'( )
strCoshErr
g( )
`710
710."
strExpErr
708."
strLnErr
Y( )
positiven
strSinhErr
710."
strSqrtErr
"Wurzel( )
strTanErr
"Bei
kein
ssig, f
k= 90."
einem Zehntelprozent liegt."
1000 Prozent
strMaxPayments
weniger
1200
enterbook
display
togglestatus
calculate
keyup
reader
keyChar
calculate_payment
leavebook
author
calculatorHelp
initialize
setupFormats
setupNumber
Export
strStdNum
strCalculatorHelp
strRound
strLocalNum
strPrintErr
strNoZeroDivide
strAboutCalculator
strOverflow
strUnderflow
strEnterLoanAmt
strDisplayCurrency
strEnterInterestRate
strEnterNumberPymts
strLoanAmt
strPage
strInterestRate
strNumPymts
strText
strCurrencySymbol
strHelp
strPymtAmt
posNum
strTotalInterest
strSqrt
strEnterNonZeroInterestRate
strSpecMathFunc
strAcosErr
strAsinErr
strCoshErr
strSelectPage
strExpErr
strLnErr
strSinhErr
strDisplayNumber
strSqrtErr
strTanErr
strImport
strMinTenth
strMaxInterest
strExport
strMaxPayments
enterbook
initialize
sizetopage
leavebook
togglestatus
reader
sizetopage
author
sizetopage
initialize
bringWindowToTop
strPage
strText
strSelectPage
strImport
strExport
strCalculatorHelp
CalculatorHelp
strHelp
buttonup
clear_all
mainCalc
buttonup
clear_tape
math_functions
w=setupFormats
    setupNumber
default
memory
theStore
display
display
fText
number
display
ftext
display
ftext
number
last_key
value
calculate
display
fText
number
------------
display
fText
display
fText
display
fText
strNoZeroDivide
buttonup
clear_all
display
fText
strOverflow
strOverflow
strUnderflow
strUnderflow
buttonup
clear_all
------------
display
fText
last_key
theStore
savekey
new_op
keyup
keyChar
LBdisplay
LBdisplay
calculate
calculate
calculate
calculate
calculate
calculate_payment
loan_amount
strStdNum
PosNum
strEnterLoanAmt
loan_amount
strMin1
loan_amount
interest_rate
strStdNum
posNum
strEnterInterestRate
interest_rate
strMinTenth
interest_rate
strMaxInterest
interest_rate
number_payments
strStdNum
posNum
strEnterNumberPymts
number_payments
loan_amount
interest_rate
number_payments
number_payments
number_payments
strLoanAmt
strDisplayCurrency
strStdNum
strInterestrate
strlocalNum
strNumPymts
strStdNum
strStdNum
strDisplayCurrency
amount_per_payment
strPymtAmt
strDisplayCurrency
strStdNum
strDisplayCurrency
total_interest_paid
strTotalInterest
strDisplayCurrency
loan_amount
interest_rate
number_payments
svCurrencyFormat
svNumFormat
ftype
display
mainCalc
mainCalc
mainCalc
vText
fType
calculatorHelp
CalcHelp
setupFormats
000000000000000000000
decimal
mainCalc
svNumFormat
svCurrencyFormat
setupNumber
00000000000000000000000000000
vZeros
svNumFormat
svCurrencyFormat
strDisplayNumber
svNumFormat
svCurrencyFormat
fValue
strDisplayCurrency
strStdNum
vFrac
svCurrencyFormat
fValue
posNum
strStdNum
strLocalNum
strAboutCalculator
&Info
ber Calculator
strPage
Seite
strText
strHelp
Hilfe
strEnterNonZeroInterestRate
Geben Sie bitte einen Zinssatz ungleich null ein.
strSelectPage
SeiteAusw
strImport
Importieren
strExport
Exportieren
strCalculatorHelp
&Rechner-Hilfe...
strRound
runden
strPrintErr
Druckfehler; bitte
berpr
fen Sie Ihre Druckereinstellung.
strNoZeroDivide
Kann nicht durch 0 geteilt werden.
strOverflow
berlauf
strUnderflow
Unterlauf
strEnterLoanAmt
Bitte Kreditbetrag eingeben.
strEnterInterestRate
Bitte Zinsrate eingeben.
strEnterNumberPymts
Anzahl der Zahlungen eingeben.
strLoanAmt
Kreditbetrag:
strInterestRate
Zinssatz:
strNumPymts
Anzahl der Zahlungen:
strCurrencySymbol
strPymtAmt
Betrag pro Zahlung:
strTotalInterest
Bezahlter Gesamtzins:
strSqrt
wurzel
strSpecMathFunc
Besondere mathematische Funktionen.
strAcosErr
acos( ) erfordert einen Wert zwischen -1 und 1.
strAsinErr
asin( ) erfordert einen Wert zwischen -1 und 1.
strCoshErr
cosh( ) erfordert einen Wert zwischen -710 und 710.
strExpErr
exp( ) erfordert einen Wert zwischen -708 und 708.
strLnErr
ln( ) erfordert einen positiven Wert.
strSinhErr
sinh( ) erfordert einen Wert zwischen -710 und 710.
strSqrtErr
Wurzel( ) erfordert einen positiven Wert.
strTanErr
Bei tan() ist kein Wert zul
ssig, f
r den mod = 90.
strMinTenth
Geben Sie eine Rate ein, die unter einem Zehntelprozent liegt.
strMaxInterest
Bitte geben Sie eine Rate ein, die unter 1000 Prozent liegt.
strMaxPayments
Bitte geben Sie weniger als 1200 Zahlungen ein.
4last_key
Zresult, vInput
textfromPoint(
selectedtextlines
ftext()
"display"
 >= -1
 <= 1
)*(180/
strAcosErr()
 >= -1
 <= 1
)* (180/
strAsinErr()
This
the localized (
country) functions
strRound()
)*(180/
k360) *
/180)
 >= -710
 <= 710
strCoshErr()
 >= -708
 <= 708
strExpErr()
strLnErr()
k360)*(
/180))
 >= -710
 <= 710
strSinhErr()
square root sign
strSqrt()
 >= 0
strSqrtErr()
vDiff
k180)-90)
< 1.0e-12
strTanErr()
* (3.1416/180))
& "(" &
 & ")")
tape
fText()
"math"
Jkeystroke
buttonup
    buttonup
textfromPoint
display
ftext
strAcosErr
strAsinErr
strRound
strCoshErr
strExpErr
strLnErr
strSinhErr
strSqrt
strSqrtErr
strTanErr
display
fText
vDiff
result
vInput
last_key
B"clear_payments"
--bypass
handler
key, isShift
ZvDecPt
(sysDecimal)
keyEnter
"loan_amount"
"interest_rate"
"number_payments"
B"calculate_payments"
("0")
("9") )
enterPage
keyChar
enterPage
reader
buttonUp
clear_payments
keyChar
loan_amount
interest_rate
number_payments
buttonup
calculate_payments
KkeyDown
number_payments
vDecPt
isShift
Kreditbetrag:
1,00 F
Zinssatz:
12,66%
Anzahl der Zahlungen:
Betrag pro Zahlung:
0,09 F
Bezahlter Gesamtzins:
0,07 F
samtzins:
18081011756,79 F
10000,34 F
Zinssatz:
10,1%
Anzahl der Zahlungen:
Betrag pro Zahlung:
9675,89 F
Bezahlter Gesamtzins:
6110,39 F
Kreditbetrag:
110000,56 F
Zinssatz:
10,1%
Anzahl der Zahlungen:
Betrag pro Zahlung:
9675,91 F
Bezahlter Gesamtzins:
6110,40 F
Kreditbetrag:
45110000,56 F
Zinssatz:
10,1%
Anzahl der Zahlungen:
Betrag pro Zahlung:
3967984,06 F
Bezahlter Gesamtzins:
2505808,11 F
Kreditbetrag:
45110000,56 F
Zinssatz:
10,1%
Anzahl der Zahlungen:
Betrag pro Zahlung:
3967984,06 F
Bezahlter Gesamtzins:
2505808,11 F
Cancel_Payments
buttonup
buttonup
Abbrechen
calculate_payments
calculate_payment
buttonup
buttonup
calculate_payment
Berechnen
Betrag pro Zahlung:
Gezahlter Gesamtzins:
Anzahl der Zahlungen:
Zinssatz: %
Kreditbetrag:
clear_payments
"loan_amount"
"interest_rate"
"number_payments"
"amount_per_payment"
"total_interest_paid"
buttonup
buttonup
loan_amount
interest_rate
number_payments
amount_per_payment
total_interest_paid
loan_amount
schen
loan_amount
interest_rate
number_payments
amount_per_payment
total_interest_paid
calcMain
MainCalc
calcHelp
Zahlen eingeben.  Um eine Zahl in den angezeigten Wert zu setzen oder an diesen Wert zu h
ngen, klicken Sie eine Schaltfl
che an, die diese Zahl enth
lt. Sie k
nnen Zahlen aber auch
ber die Zahlentasten Ihrer Tastatur oder die numerische Tastatur (wenn "NumLock" eingestellt ist) eingeben und anzeigen.
Alles l
schen  Klicken Sie die Schaltfl
che "CA" an, wenn Sie den angezeigten Wert und alle gespeicherten Werte fr
herer Berechnungen l
schen  wollen.
schen  Klicken Sie die Schaltfl
che "C" an, wenn Sie nur den angezeigten Wert l
schen wollen. Verwenden Sie diese Schaltfl
che, wenn Sie einen Fehler machen, w
hrend Sie eine Reihe von Operationen durchf
hren und weitermachen wollen.
Arithmetische Operatoren.  Klicken Sie die Schaltfl
chen  "/", "x", "-" oder "+" an, um die betreffende Operation f
r den angezeigten Wert durchzuf
hren.
Gleichheitszeichen  Klicken Sie die Schaltfl
che "=" an, um eine
Operationsreihe zu beenden.
Vorzeichen wechseln. Klicken Sie die Schaltfl
che "+-" an, um das Vorzeichen des
angezeigten Werts zu
ndern.
Bildlauf-durchf
hrendes Band  Das Feld "Band" f
ber Ihre Berechnungen laufend Buch. Sie k
nnen den Text dieses Feldes l
schen oder drucken. Klicken Sie eine Zahl im Feld "Band" an, um diese anzuzeigen.
Band l
schen  Klicken Sie die Schaltfl
che "L
schen" auf der linken Seite des Felds "Band" an, um dessen Text zu l
schen.
Band drucken  Klicken Sie die Schaltfl
che "Drucken" an, um das Feld "Band" zu drucken.
Spezielle mathematische Funktionen. Klicken Sie den Namen einer mathematischen Funktion an, um diese Funktion auf den angezeigten Wert anzuwenden. Die trigonometrischen Funktionen verwenden Gradangaben als Argumente.
Speicher l
schen. Klicken Sie die Schaltfl
che "MC" an, um den Speicherpuffer zu l
schen.
Speicher abrufen. Klicken Sie die Schaltfl
che "MR" an, um den Wert, den der Speicherpuffer enth
lt, anzuzeigen. Dies entspricht der Zahleneingabe
ber die Zahlenschaltfl
chen oder den Tastenblock.
Dem Speicher etwas hinzuf
gen. Klicken Sie die Schaltfl
che "M+" an, um den
angezeigten Wert dem Speicherpufferwert hinzuzuf
Aus dem Speicher etwas abziehen. Klicken Sie die Schaltfl
che "M-" an, um den angezeigten Wert vom Speicherpufferwert abzuziehen.
Zahlungen berechnen. Klicken Sie die Schaltfl
che "Zahlungen" an, um die einzelnen Zahlungsbetr
ge und den Gesamtzins f
r Kredite mit festem Zins, die auf monatlichen Zahlungen beruhen, zu berechnen. Hinweis: Alle Felder dieser Funktion brauchen Zahlen als Daten.
Feld "Kreditbetrag". Geben Sie in diesem Feld den entliehenen Geldbetrag ein (5000 f
nftausend DM).
Feld "Zinssatz". Geben Sie in diesem Feld den Zinssatz f
r die Zeitdauer des Kredits ein ("9" f
r einen Zinssatz von neun Prozent).
Feld "Anzahl der Zahlungen". Geben Sie in das Feld die Anzahl der Zahlungen f
r die Zeitdauer des Kredits ein ("48" f
r monatliche Zahlungen
ber vier Jahre hinweg).
Zahlungen berechnen. Klicken Sie die Schaltfl
che "Berechnen" an oder dr
cken Sie die Eingabetaste, um den monatlichen Zahlungsbetrag und den gezahlten Gesamtzins anzuzeigen. Diese Daten werden an das Feld "Band" angeh
ngt. Sie k
nnen neue Kreditbetr
ge, Zinsspannen oder eine neue Zahlungsanzahl eingeben und neu berechnen.
Zahlungsfelder l
schen. Klicken Sie die Schaltfl
che "L
schen" an, um den Text
in allen Feldern des Zahlungskastens zu l
schen.
Feld "Betrag pro Zahlung". Dieses Feld zeigt den DM-Betrag f
r jede monatliche Zahlung.
Feld "Gezahlter Gesamtzins". Dieses Feld zeigt den DM-Betrag f
r den w
hrend der Kreditzeit gezahlten Gesamtzins an.
Zahlungskasten abbrechen. Klicken Sie die Schaltfl
che "Abbrechen" an, um den
Zahlungskasten abzubrechen.
dismissHelp
buttonup
buttonup
Hier anklicken, um "Hilfe" abzubrechen.
CalcHelp
Rechner-Hilfe
calc.ico
DDDDDDDDDDDDDD
fffffffffffff
fffffffffffff
ffffffff
ffffffff
fffffffffffff
wwwwwwww
--Copyright
 1991
Asymetrix Corporation
erteilt Ihnen die Erlaubnis,
dieser Anwendung enthaltenen
--einzelnen Objekte und Scripten
Ihre eigenen Anwendungen zu kopieren
diesen zu verwenden. Es ist
jedoch nicht gestattet, das
--ganze Buch oder gr
] Teile davon zu
 eigenes
--Produkt zu vertreiben.
h Urheberrecht
 Originalelementen
. Enth
lt Ihr
kopiert wurden, mu
t es folgenden Hinweis
fallen unter das
7zur Sprachneutralit
t: Damit
leichter
bersetzt
--werden kann,
n vom
 kommenden Textzeichenfolgen,
--Leser gezeigt
Funktionen gebracht,
sich
diesem Buchscript
--unten befinden. Die Namen
Nbeginnen
Buchstaben
--"str".
,:         Jim Gallant
Q:    3/27/91
International version,
3Rivera 4/91,
Jchange 4/22/91
initialize
sysChangesdb
--cleanup
togglestatus
4memory, theStore
X"user"
bringWindowToTop(
zmenus
cstrPage()
cstrText()
strSelectPage()
estrImport()
estrExport()
e strCalculatorHelp() alias "
cstrHelp()
[displays
up formats
B"clear_all"
"mainCalc"
B"clear_tape"
"math_functions"
setupFormats
setupNumber
default
--controls
numbers, checks
overflow, multiple
--points, sets
Jkey value
generic
4last_key
ZvNum
fText()
:) >= 16
sysDecimal
continued 0's
 = 0
 "."
--replace
 = 0
--append
ftext()
keystroke
--This
 performs calculations.
If no values had been entered
--saved,
they're repeatedly hitting
same operator
, no action
taken.
If one
passed
kno other
If two
 are calculated
previously stored
their
--result
displayed
scrollable
val1. The "+"
 new_op
, op, savekey
--ignore
 hits on
"+-x/")
"+-x/"))
--special
equal sign
x"mr"
CRLF & "
TAPE "T"
--may have
.out
dividing
--only
operation
 strNoZeroDivide()
under/
c strOverflow()
c strUnderflow()
--intercept tabs
handler intercepts
strokes
If a
--calculator
equivalent
pressed, a
Emessage
sent
    corresponding
("0")
("9")
("0"))
("+")
("-")
("*")
("/")
("=")
 based on
payments fields
calculate_payment
4svCurrencyFormat, svNumFormat
Zloan_amount, interest_rate,
number_payments, wrk
strStdNum(
xPosNum(
 strEnterLoanAmt()
strMin1()
xposNum(
 strEnterInterestRate()
strMinTenth()
> 1000
strMaxInterest()
 strEnterNumberPymts()
typed
 strLoanAmt()
strDisplayCurrency(
)/1200
 strInterestrate()
strlocalNum(
) & "%"
 strNumPymts()
--figure
 per
"amount_per_payment"
 strPymtAmt()
total
 paid
"total_interest_paid"
 strTotalInterest()
wrk) &
fType
ZvText
code
german
 ONLY,
suppresses
meaningless
Note that
modifies a
parameter.
[ftype
" &&
"Tape"
) - 3
calculatorHelp
"CalcHelp"
Build
strings
"0" &
sysICurrDigits \
"0" &
& "00"
zformatting routines
deal
ToolBook
Set up
ZvZeros
sysILZero = 1
sysIDigits
currency
leading 0
strDisplayNumber fValue
If there's no dec pt don't
There's a
ZvInt, vFrac, vAmt
decimals
5) < 0
negative
sysINegCurr = 0
"(" & sysICurrency &
 & ")"
"-" &
."-" &
 & "-"
"(" &
"-" &
 & "-" &
sysIcurrency = 0
sysCurrency &
(& vMat
c     num
FALSE
K <= 1
Convert
internal
Substitutes
S, assumes no error
input
 fNum
strLocalNum
~(".",
--    Beginning
strAboutCalculator
"&Info
"Seite"
"Hilfe"
strEnterNonZeroInterestRate
"Geben Sie bitte einen Zinssatz ungleich
"SeiteAusw
hlen"
"Importieren"
"Exportieren"
"&Rechner-
strRound
"runden"
- keep
synch
strPrintErr
 "Druckfehler;
berpr
Druckereinstellung."
"Kann
durch 0 geteilt
berlauf"
"Unterlauf"
"Bitte Kreditbetrag eingeben."
(Zinsrate
"Anzahl
Zahlungen
strInterestRate
strCurrencySymbol
"Betrag pro
"Bezahlter Gesamtzins:"
strSqrt
"wurzel"
strSpecMathFunc
"Besondere mathematische
strAcosErr
( ) erfordert
Wert zwischen -1
strAsinErr
'( )
strCoshErr
g( )
`710
710."
strExpErr
708."
strLnErr
Y( )
positiven
strSinhErr
710."
strSqrtErr
"Wurzel( )
strTanErr
"Bei
kein
ssig, f
k= 90."
einem Zehntelprozent liegt."
1000 Prozent
strMaxPayments
weniger
1200
enterbook
display
togglestatus
calculate
keyup
reader
keyChar
calculate_payment
leavebook
author
calculatorHelp
initialize
setupFormats
setupNumber
Export
strStdNum
strCalculatorHelp
strRound
strLocalNum
strPrintErr
strNoZeroDivide
strAboutCalculator
strOverflow
strUnderflow
strEnterLoanAmt
strDisplayCurrency
strEnterInterestRate
strEnterNumberPymts
strLoanAmt
strPage
strInterestRate
strNumPymts
strText
strCurrencySymbol
strHelp
strPymtAmt
posNum
strTotalInterest
strSqrt
strEnterNonZeroInterestRate
strSpecMathFunc
strAcosErr
strAsinErr
strCoshErr
strSelectPage
strExpErr
strLnErr
strSinhErr
strDisplayNumber
strSqrtErr
strTanErr
strImport
strMinTenth
strMaxInterest
strExport
strMaxPayments
enterbook
initialize
sizetopage
leavebook
togglestatus
reader
sizetopage
author
sizetopage
initialize
bringWindowToTop
strPage
strText
strSelectPage
strImport
strExport
strCalculatorHelp
CalculatorHelp
strHelp
buttonup
clear_all
mainCalc
buttonup
clear_tape
math_functions
w=setupFormats
    setupNumber
default
memory
theStore
display
display
fText
number
display
ftext
display
ftext
number
last_key
value
calculate
display
fText
number
------------
display
fText
display
fText
display
fText
strNoZeroDivide
buttonup
clear_all
display
fText
strOverflow
strOverflow
strUnderflow
strUnderflow
buttonup
clear_all
------------
display
fText
last_key
theStore
savekey
new_op
keyup
keyChar
LBdisplay
LBdisplay
calculate
calculate
calculate
calculate
calculate
calculate_payment
loan_amount
strStdNum
PosNum
strEnterLoanAmt
loan_amount
strMin1
loan_amount
interest_rate
strStdNum
posNum
strEnterInterestRate
interest_rate
strMinTenth
interest_rate
strMaxInterest
interest_rate
number_payments
strStdNum
posNum
strEnterNumberPymts
number_payments
loan_amount
interest_rate
number_payments
number_payments
number_payments
strLoanAmt
strDisplayCurrency
strStdNum
strInterestrate
strlocalNum
strNumPymts
strStdNum
strStdNum
strDisplayCurrency
amount_per_payment
strPymtAmt
strDisplayCurrency
strStdNum
strDisplayCurrency
total_interest_paid
strTotalInterest
strDisplayCurrency
loan_amount
interest_rate
number_payments
svCurrencyFormat
svNumFormat
ftype
display
mainCalc
mainCalc
mainCalc
vText
fType
calculatorHelp
CalcHelp
CalcHelp
setupFormats
000000000000000000000
decimal
mainCalc
svNumFormat
svCurrencyFormat
setupNumber
00000000000000000000000000000
vZeros
svNumFormat
svCurrencyFormat
strDisplayNumber
svNumFormat
svCurrencyFormat
fValue
strDisplayCurrency
strStdNum
vFrac
svCurrencyFormat
fValue
posNum
strStdNum
strLocalNum
strAboutCalculator
&Info
ber Calculator
strPage
Seite
strText
strHelp
Hilfe
strEnterNonZeroInterestRate
Geben Sie bitte einen Zinssatz ungleich null ein.
strSelectPage
SeiteAusw
strImport
Importieren
strExport
Exportieren
strCalculatorHelp
&Rechner-Hilfe...
strRound
runden
strPrintErr
Druckfehler; bitte
berpr
fen Sie Ihre Druckereinstellung.
strNoZeroDivide
Kann nicht durch 0 geteilt werden.
strOverflow
berlauf
strUnderflow
Unterlauf
strEnterLoanAmt
Bitte Kreditbetrag eingeben.
strEnterInterestRate
Bitte Zinsrate eingeben.
strEnterNumberPymts
Anzahl der Zahlungen eingeben.
strLoanAmt
Kreditbetrag:
strInterestRate
Zinssatz:
strNumPymts
Anzahl der Zahlungen:
strCurrencySymbol
strPymtAmt
Betrag pro Zahlung:
strTotalInterest
Bezahlter Gesamtzins:
strSqrt
wurzel
strSpecMathFunc
Besondere mathematische Funktionen.
strAcosErr
acos( ) erfordert einen Wert zwischen -1 und 1.
strAsinErr
asin( ) erfordert einen Wert zwischen -1 und 1.
strCoshErr
cosh( ) erfordert einen Wert zwischen -710 und 710.
strExpErr
exp( ) erfordert einen Wert zwischen -708 und 708.
strLnErr
ln( ) erfordert einen positiven Wert.
strSinhErr
sinh( ) erfordert einen Wert zwischen -710 und 710.
strSqrtErr
Wurzel( ) erfordert einen positiven Wert.
strTanErr
Bei tan() ist kein Wert zul
ssig, f
r den mod = 90.
strMinTenth
Geben Sie eine Rate ein, die unter einem Zehntelprozent liegt.
strMaxInterest
Bitte geben Sie eine Rate ein, die unter 1000 Prozent liegt.
strMaxPayments
Bitte geben Sie weniger als 1200 Zahlungen ein.