Casio Fp-200 User manual

PREFACE

The

recent

popularity

of

the

portable

computer

is

remarkable.

The

implication

is

that

portability,

providing

extra

versatility

to

the

personal

computer,

has

made

a

strong

appeal

to

computer

users who place emphasis

on

ease

of

operation.

The

portable

computer

has a

typewriter-style

keyboard

like

the

one

used with

an

ordinary

desk-top

computer.

It also has a display panel

of

moderate

size.

The

FP-200,

on

which

the

programs

presented

in

this

booklet

run,

is

a

portable

computer

featuring low

costant

high

performance.

The

advent

of

the

FP-200

with its innovative

new

features

has proved

that

portable

computers

have great

potential

for

further

growth.

The

greatest advantage

of

the

FP-200

is

that

a simple

table

language, called

CETL,

is

supplied

as a

standard

feature.

CETL

makes

tabulation

work

extremely

easy. It

permits

summing

up

items in

horizontal

rows

and

in vertical

columns

or

storing

data

in a

table

by

a single

command.

Of

course,

the

same

tabulation

operations

can

be

performed

by

a BASIC pro-

gram,

but

substantial

time

is

requried

to

write

the

program.

In this light,

the

fact

that

CETL requires

no

programming

is

of

great significance.

With

the

FP-200,

any

table

prepared

by

CETL

can be easily called by a program

written

in BASIC. This

feature

is

called

the

link

between

CETL

and

BASIC.

The

CETL-BAS,C link

is

really an

important

concept.

The

rea~on

is

this:

the

link

permits

the

operator

to

use a table

prepared

by

CETL

in interactive

mode

using a BASIC

program,

or

to

compare

or

adjoin

data

input

by a BASIC

program

with

data

prepared

by

CETL,

etc.

CETL

permits

flexible

table

construction

by

using

16

types

of

simple

com-

mands. The

commands

include

the

A

command

to

determine

the

direction

of

data

input,

the

I,

D,

and

M

commands

to

add,

delete,

and

move items,

the

S

command

to

rearrange

data,

the

F

command

to

perform

conditional

retrieval,

and

the

C

command

to

perform

calculations. These

commands

permit

perform-

ing

the

desired

operations

on

specified

"items"

or

"records".

"Records"

are sets

of

entries

in

horizontal

rows,

and

"Items"

are sets

of

entries

Scanned by Joscelyn - August 2020

Business

Bograms

REGRESSION

ANALYSIS

(SALES

FORECASTING)

Regression analysis

can

often

be used

to

make

a

forecast

of

a

future

trend

based

on

relevant

data.

Usin& regression analysis,

this

program forecasts

this

year's

sales based

on

last

year's

sales. In

this

program,

the

forecast

is

made

in weekly units.

l•Jil43it•J,tl

1.

Reading

data

from

CETL

The

data

table

used

by

this program can be read

from

CETL.

Create

the

data

table in

CETL as follows:

(

1)

Input

this

year's

weekly sales

in

item 1 (records 1

to

52)

and

last

year's

weekly

sales in

item

2

(records

1

to

52).

(2) Reserve records

53

and

54

of

items

1

and

2

for

the

values X,

X2,

Y#,

and

XY#

used

for

the

link

between

CETL

and

BASIC.

2.

Executing

the

program

When

the

program

is

started,

the

prompt

"DATA

INPUT

CETL(1)/BASIC(2)"

is

dis-

played, asking

you

whether

the

last

year's

data

is

to

be

input

from

the

data

table

previously

stored

in

CETL

or

by

a BASIC

program.

To

input

the

data

from

CETL,

enter

1.

To

input

the

data

using a BASIC

program,

enter

2.

If

you

entered

1,

the

messages

"BEING

COMPUTED"

and

"WHICH

WEEK"

are

displayed.

Now,

enter

the

week (n-th week) for which

the

sales

forecast

is

to

be made.

The

result

of

the

forecast

is

then

output.

After

that,

the

prompt

"WHICH

WEEK?"

is

displayed again. You can

continue

the

sales forecasting

by

specifying an

appropriate

week.

At

the

en~

of

the

forecasting

for

the

final week,

enter

O

and

the

program will

terminate.

'

If

you

entered

2,

you

are

requested

to

input

last

year's

sales

data

starting

from

the

first

week.

After

you

input

all the

data,

enter

E,

and

the

prompts

"BEi

NG

COMPUTED"

and "WHICH

WEEK"

are displayed.

Now,

enter

the week for which

the

sales forecast

is

to be

made.

The

result

of

the

forecast

is

output

in

the

same

manner

as when

you

enter

1.

8

BUSINESS_]

[IJl]J[S]rr)

684

Bytes

11111111

I lllltll

111••11

Ill

.........

1a1•111•11111'9ttt11Nlffl....lt

..

llll&lfltllltlllW

....

flldtltHlfttlNftltNIIMtlfltl.wtftlllltllllllllttlfl

.......

lll

I

Ill

111

1•

10

CLEAR:CLS:PRINT"DATA

INPUT

ASICC2)"

2121

INPUT

D$

3121

IF

D$="1"

THEN

GOSUB

1~121

40

IF

D$="2"

THEN

GOSUB

200

5121

K#~(12*XY#-X•Y#)/(12•X2-XA2)

60

Htt=(X2•Y#-X•XY#)/(12•X2-X'<~2)

65

CLS

CETL(l)/8

70

INPUT

"Which

week

";J:IF

J=0

THEN

END

8<21

V#=K#•J+H#

9(21

PRINTV#:PRINT

USING"

##th

1-ieek";J:PRI

NT:GOTO

70

100

r·rUNT"Being

computed"

110

X=SUMRC(l,52):Y#=SUMRC<l,52)

120

FOR

I=l

TO

52

13121

X2=RC(I)A2+X2

140

XY#=I•RC(I)+XY#

150

160

RETURN

21210

OPTION BASE

1:DIM

X(80)

,Y#(80)

210

I=I+l

220

PRINT

USING"##th

week

ear";

I

230

INPUT "SALES

CEND'E')";A$

of

1

ast

y

240

IF

A$<

>"E"

THEN

Y#

<I)

===VAL

<A1d: X

(I)

=I

:-GOTO

2H'.I

250

T==I-·1

260

PRINT"Being

computed"

270

FOR

I=i

TOT

.

280

X=X(I)+X:X2=X(I)A2+X2:Y#=Y#(I)+Y#:XY#=X<I>•Y#

<I)+XYtt

290

300

RETURN

!DEBUG)

This

program· can be used for various

types

of

forecasting. However, widely

1

fluctuating

figures will

not

follow a regression line. In

this

case,

the

figures fore-

cast

by

this program may

not

represent

the

actual figures

with

fair

accuracy.

9

BUSINESS

ANALYSIS

AND

CHARTING

The

performance

of

a business

enterprise

is

accurately

reflected

by

its financial

statements

(balance

sheet,

income

statement,

etc.).

The

FP-200

can

be

conveniently

used

by

the

banker,

financial

auditor,

business

consultant,

etc.,

because

of

its

capability

to

output

the

per-

formance

of

a business

enterprise

in

the

form

of

graphics.

For

this

purpose,

it

is

only

necessary

to

input

major

indicators

appearing

on

the financial

statements.

This

program

permits

the

plotter

to

output

a

chart,

data

tables, diagnostic

data,

etc.,

when 13

major

indicators

used

for

business analysis are

input.

■

•t\ttll,i·I

1

■

(1) Preparing

the

data

Two

methods

of

data

input

are available:

one

is

to

input

data

from

the

appropriate

data

table

prepared

in

CETL,

and

the

other

is

to

input

data

in

response

to

requests

for

input

made

by

a BASIC program.

Either

method

can

be

used

to

produce

the

same

result. Since

the

chart

is

for

comparing

a

particular

set

of

figures,

the

data

to

be

prepared

is

determined

by

the

purpose

of

the

comparison

-

comparing

the

performance

figu(es

for

the

current

term

with

those

for

another

term

of

a

particular

firm,

comparing

two

(or more)

companies

with

respect

to

particular

performance

figures, and so

on.

Up

to

five

charts

can be

plotted

on

the

same graph

for

comparison.

When

only

data

for

a single

chart.is

input,

the

program merely

plots

a regular 13-sided

polygon

because

no

comparison

cah be

made.

(2)

Starting

the

program

When

the

program

is

started,

the

message

"INDICATORS

CAN

BE

READ

FROM

OR

. WRITTEN

TO

CETL"

is

displayed. Press

any

one

key,

and

the

message

"UP

TO

FIVE

CHARTS

CAN

BE_

PLOTTED.

SPECIFY NUMBER

OF

CHARTS,

CHART

NAMES,

AND INPUT METHOD. NUMBER

OF

CHARTS

-"

is

displayed.

Now,

specify

the

number

of

charts

to

be

plotted,

the

chart

names

(e.g., fiscal periods

or

company

names

used

for

comparison),

and

the

method

of

input

(when the result

of

calculation

on

each

data

is

already

known,

indicator

values, say, percentage figures, can be

input;

otherwise,

actual

performance

figures

should

be

input).

(3) When

input

of

performance

figures

is

selected

After

the

chart

names

(company

names, fiscal periods, etc.) arc

input,

the

prompt

"PERFORMANCE

FlGURES=J/INDICATOR=S

_"

is

displayed.

To

input

perfor-

JO

Flow

chart

for data

input

Chart

No.

1

Chart

Name:

March

1977

Chart

No.

2

Chart

Name:

March

1978

Input

Numeric

Data

s

y

CETL

file

No.

(0-9)

item

No.

(2~6)

Chart

No.

2

Chart

Name:

C

Plotting

of

charts

'

.:

'c'

·

.;__:

'-------~;4t-tt6~~

..

¼:!~

~~~-.

)i,__

___

_.

;,':;'_~?:•.-•;~~:~·~~-:~

-_:-'._..

..

,

BUSINESS_]

mance

figures,

enter

J.

To

input

indicator

values,

enter

S.

Enter

J

when

testing

this

program

fro

the

first

time.

When J

is

entered,

the

prompt

"STORE

TO

CETL?

(Y/N)

_"

is

displayed.

This

is

to

tabulate

the

input

data

using

CETL

and

store

it

in

the

CETL

area.

If

you

wish

to

select

Y,

you

should

check

to

see

that

space

is

available in

the

CETL

area.

After

entering

Y,

input

the

file

area

number

and

item

number

as

shown

in

the

flow

chart

for

data

input.

If

you

entered

N (instead

of

Y),

the

prompt

"CHART

NO.2

CHART

NAME:"

is

displayed.

This

prompt

is

repeated

the

same

number

of

times

are

the

number

of

charts.

After

you

input

all

th_e

chart

names,

you

are

requested

to

input

the

relevant

data

(current

assets, inventories,

...

,

employees)

for

each

chart

name.

Input

the

appropriate

data

accordingly.

(4) When

indicator

input

is

selected

To

select

indicator

input,

enter

S when

the

prompt

"PERFORMANCE

FIGURES=J/

Liabilities & capital

6.

Cu

mint llabilltles .; ·11. Values

added

·• · ' '

.•

6.

Equity capital

'.

· :

··

..

12.

Employees

7.Total liabilities a~d:r\et worth

11

rBUSINESS ANALYSIS

AND

CHARTING------------------

INDICATOR=S"

is

displayed. When

indicator

input

is

selected,

the

prompt

"INDICA-

TOR

INPUT

CETL=C/KEY=K"

is

displayed.

Now,

if

you

use

indicator

values which

have

already

been

prepared

by

CETL,

enter

C.

If

you

wish

to

input

the

indicator

values

from

the

keyboard,

enter

K.

When K

is

entered,

the

prompt

"PERFORMANCE

FIGURES=J/INDICATOR=S"

is

~·MdMJiihiit¥hitti3iU

0

!

File

Namr~:INDIC,~TORS

12

Number

of

Rec-:13

Number

of

Item:6

Label

Rvcor·d

Item1:

Indication

name

TypeCN/S)

:S

E:-:pr-es~,i

on

'?

Format

:

~~

U:em2:

Cha.r·t

na,11e

Nu.

1

Type

(N/S)

: N

E:<pn:ssion

?

Format

:##tt,##tt.tttt

Item3:Chart

name

No.2

Type(N/S)

:N

E:<pression

'?

For·ma

t :

#tttt,

iH-1:#.

Hit

Item4:Cha~t

name

Na.3

Type

(N/S)

: N

E:<pr-ession

~

Format

:###,##~.##

Item5:

Ch,:,u-t

name-~

No.

4

Type

(N/S)

: N

Expr-essian?

F

o·r-

mat

:

tt

tt ,

tt

# # • #

tt

T

lf~m6:

Cl1ar

t

rld111c:

l'~u.

::i

Ty

pC ( N/ s ) :

I\J

E:<pr·f~ssian

~

Format

:tt#tt,##tt.tttt

~~

Data

Area

1-1

:Ratio

of

or-dinary

pr

ofit

ta

total

liabil

ities

and

net

wor-th

1-2

8.55807

1-3

9.913(2)6

1-4

17.3Ql42

1

·-5

17.762

1-6

15.

2176

2-1

:Ratio

of

refit

to

oper·ating

p

total

1 i

abi

lities

and

net

worth

2-2

7.64469

2-3

8.4641.4

2-4

15.4783

2-5

15.6889

2-6

:

12.6895

3-1

:Ratio

of

ordinary

pr

ofit

to

sales

3-2

4.

18439

3-3

4.89467

3·-4

8.5417

3-5

9.14116

3-6

8.58655

4-·

l

:Ratio

of

oper-ating

µ

rofit

to

sales

4-2

3.7378

4-3

4.17925

4-4

7.64Ql41

-------------------------BUSINESS_]

displayed. Now, if you

enter

S,

the

prompt

"CHART

NO. 2 CHART

NAME:_,,

is

dis-

played, requesting you

to

input

the

name. This

prompt

is

repeated until all

the

chart

names are input.

After

all

the

chart

names are

input,

input

the

appropriate

indicator values (ratio

of

ordinary

profit

to

total

liabilities and

net

worth,

ratio

of

operating

profit

to

total liabilities and

net

worth,

...

, inventory

turnover

period).

When C

is

entered,

the

data

is

input

from

CETL. In this case, the

data

table

must

have

been prepared by CETL. Now, when you specify

the

CETL file area from which the

data

is

to

be fetched and the

appropriate

item

number,

the

prompt

"CHART

NO. 2

CHART NAME:

_"

is

displayed and

repeated

until

all the

chart

names are input.

It

is

of

course possible for you

to

input

data

for

some

charts from CETL and

data

for

other

charts from the keyboard.

In

this case,

the

data

input

from

the

keyboard can be

added

to

the

data

stored

in

the

CETL

file (if you like).

This

is

one

of

the

most

useful

features

of

the FP-200.

Example

of

Data

Input

by

CETL

It

is

recommended

that

data

will be

input

from

a

data

table created using

CETL.

For

this purpose, first create a

data

table

carrying titles, such as the

one

shown

on

page-·

Then

create an indicator name table (see the same page) from the figures

in

the title

table.

By

using these

data

tables, it

is

pqssible

to

obtain

the desired charts.

As

an

example,

the

procedure

for

preparing an

indicator

table

is

shwon below.

Preparing an indicator value

table

using

CETL

Data Input and Output

The

program can

output

a

chart

of

13 indicators in

four

different

colors, as well as

indicator name and title tables. When no

title

is

input,

0

is

output

in

the associated

table.

For

input

of

performance

figures, a

routine

is

provided

to

permit

correcting

erroneous

data

before

printout.

As

a reference,

the

equations

for

calculating

the

indicators used

in

this program are

given below.

13

rBUSINESS

ANALYSIS AND

CHARTING----------------

14

Example

of

plotter

output

(when

performance

figures are input) (in four colors)

CHART

FOR

BUSINESS

--

Char1

N0.

1

-~

Chart

NO.2

-

Chart

No.3

-0-

Chart

No.4

--·y-

Char

1.

No.5

,i.

Ratio

of

or,lnarT

,-rof1t

to

1.01.•l

lta.,llJtl•,

•"-'

""•t

....:,rt.h

1

Ratio

of

o..-•,at.l...,,

,-roflt

to

\01..1.l

1J•ii,ll1t1e-,

ari.l

....

t

worth

J

Rat.lo

ol

o.-JJn,1,.-,.-

,-.-oflt

to

!Jal•!!

• Rat_lC"l

o'

oru;.atlr1,

to

,.,,I~s

C,

Rat.loo'

.-1

...

,

•~s"ts

to

r'\<ll'l ...

0.-1.h

b

Co,..,

•

.,.t

r.11.1.-,,

·)

Rat.lo

of

~1.

wo..-1.h

to

t.ot•l

lia\dllt.Je,

•""'

,-.qt_

...

ort.h

a S.1.lG-!1

,...,

•-lo-.,e.,

9

V.t.luo

a.&.iv.i

,-er

e•rloYee

,1

lurno..,..r

ratJo

of

t.ota.1

ltai.tlttle,

an•

~l

...

orth

,'2

l..,rno,,,...-

.-a1.lo

of

t.,u,,U,l•

fl••-'

.,.,,..,

,3

Jnveflton,

turnove..-

,.erloJ

4

-------------------------BUSINESSJ

Indicators

~•tJo

of

orJ.Jn•,.r

r•

I

otl

t "'

total

1,

....

,1

't.1••

·"·

_,

worth

"°"'

Lio

al

o,o•ratJn,

r

1

f"Ofl

t "'

total

ll•t.t

lttl•:it

an4

"'"

-..orth

~atlo

ot

orJ..1riarr

J

ofl

t

La

,

..

1.,

~at

Jo

al

o,,•ra

!.

In,

.a

...

1.,

Ratio

ot

ft••'-

.a.,~el

~

ta

"'"

wort.h

Corr~nt

r.a•

lo

b

~at.lo

a<

_,

worth

L

1 a

total

J

1AL

1 l 1

ll•s

·"'

_,

-·"'

S.a.l•"

r••

-10

.....

a

ValUilf

......

"

..

ro,

....

1

s

~.--

Va.lu.

........

ratto

.e

Tu,..novor

rat.lo

of

to

-61

tal

llabllttl••

.._""'

.--Wt

worlh

Turn..,ver

rat.lo

of

t.a

12

l'\~Ud•

fhce..i

.asa:su1

lnV<ll'.,l~r:r

,3

orlo.l

,Jn..:i.._..r,,.

C:u.,-ren1.

.a:,i:set!I

1

a.-;'-

J.E.1

•.

,e

.J

.

.J1

,e~.,6

'17.90

ll.

I•

17.

lo

•.95

i,.

15

J,

1125

•L'31

P'.30

17.

)'"

15.

22

8.

4(.

;.

5.

4ft

I~.

b-,

12.

t,~

◄.

89

,,j_

')

◄

!L

11

e.

59

1.

I@

7.

f.

◄

e.

'37

7.

u:.

101.t.'3

81

.

./1

9b.

•

◄

78.

/5

12Q.0b

130.

)1

121.

87

1

◄

1.b5

23.~3

26.

Bl

'.11. 21

◄

'21.7'.

~l

.t."'i

23.

85

19.

52

27.55

4.1£

◄

.t.:":I

1.85

..

23

241

.

.)5

28.f.5

27.

J2

2

...

Cj,5

2.¼

i.85

17.

ll.

14.

,1£,

17.

J~

19.

"i8

16.

-:.2

15

rBUSINESS ANALYSIS

AND

CHARTING-------------------

C...,,-,,.

•

...,l

11

a\.

1l 1 t

1•111

"i

,2,5'3

ll,25l

i5,871

12,

3:,5

21,832

[~1t..-

ca,..1

t.a

l

b

1.5,,

1.

25'.

fa,54J

,,,51

te.251

lotal

l1a'-tllt1•,

J •

"'"

..a,th

51,2,J

J2,'lt,

lS,

'67

:tl,

IN

15,:!117

S.aJ•-,

a

5,.,

123

11,4':K

45,281

:".

525

52,

Ir.I

IJl""•r&t.tn-,

rrof1

\111

..

J,215

1,25,

(.,

123

f.,2Qll

,,512

Qr,l}.-.,1.,-r

r-roll

t.111

...

,,254

3,254

b.~

..2

8,542

11115'3

v.1..-::,

•-'"'•"'

11

;2.a:ll:.

12,'Se3

12,5~8

12,t,,!}G

1:,,87-t

£'.ffll""}Or~•

,2

"·

12~

2,

Jf.'."'i

b,

542

3,256

3,2l4J

13

indicators

used

in

this

program

16

------------------------BUSINESSJ

-----

--

---

------------

---

--

--------------------------------,

[b][]J~rrl

100

'

BASIC

2835

Bytes

CETL

917

Bytes

110

CLEAR

1024:0PTION

BASE

1:I~12:J=13:K~5

120

DIM

CN'fi(f'.:l

,F(3,K)

,FI<2,K)

,J<t>(I)

,~JS(I,K>

,MAX(J

>

,S$<J>

.ss<J,K>

130

GOSUB

1.040

140

'

150

CLS:

PRINT

T!f;:

PRINT

"

Indic:dtors

Ci.\n

be

read

fn.1m

or

written

to

CETL.":PRINT"

hit

any

key";

160

IF

INf(EYt,:::""

THEN

l.60

1

70

•·---·-······-·······-····-

Specify

c:.:har· t

180

CLG:

PR

I I\IT

T•f:

PR

HH

"Up

to

five

charts

ec.u1

be

plotted.

Specify

number

of

charts,chart

name,and-

in

put

method."

190

INPUT

"Number

of

char·t

:

",Ct-I:

IF

CH<

1 OR

CH>5

THEN

190

212!0

FOR

I=l

TO

CH:PRINT:F'RINT"Chart

No.";I

210

INPUT

"Chart

na.me:",CN$(!)

220

PRINT

"Performance

figures

=J":PRINT

"Indicat

or":F'RINT_"=S"

230

INPUT"

Select

(J

or

S):",Z't.:IF

Z$="J"

THEN

F

<1,I)=l

ELSE

IF

Z$="S"

THEN

F(l,I)=0

ELSE

23Ql

240

IF

F(l,I)=l

THEN

INPUT"

Store

to

CETL

?:",Z$

:IF

Z$=="Y" THEN

F<2,I)::.:1

ELSE

IF

Z$="N"

THEN

F<2,I)

==12!

ELSE

2412!

2512!

IF

F (

1,

I>

=0

THEN

PRINT

"Input

data":

11\IPUT

"CE

TL=C

or

~(EY=K

:",Z$:IF

Z$=

11

C"

THEN

FC2,I):::LELSE

IF

Z$="f("

THEN

F(2,I)=0

ELSE

250

260

IF

F (2 ; I )

==

1

THEN

I

NF'UT

II

CETL f i 1 e

No.

(Z)"'9: " , Z1

:INPUT"

Item

No.2"'6:",Z2:IF

Z1<12l

OR

Z1>9

OR

Z2<

2

OR

Z2>6

THEN

260

ELSE

FI<l,I>=Z1:FI<2,I)=Z2

270

280

'==========

Input

performance,indicator

290

FOR

I=1

TO

CH:CLS:PRINT

CN$(l)

300

IF

FC1,I)=0

THEN

Z=13 ELSE Z=12

310

FOR

J==1

TO

Z

320

IF

F(1,I)=1

THEN

PRINT

J$(J):

INPUT

11

-->

11

,JS(J

,!):GOTO

340

330

PR

I

NT

usI

NG

U1

$;

S$

(

J)

; :

PR

I

NT

"

--

>

11

; :

IF

F (

2,

I )

= 1

THEN

SS

(J , I ) =Fl_

(FI

( 1 , I ) , J ,

FI

(

2,

I ) ) : PR I

NT

SS

(J , I )

ELSE INPUT " " ,

SS

(J , I ) .

17

rBUSINESS ANALYSIS

AND

CHARTING------------------

18

340

350

'==========

Correct

performance

360

FOR

1=1

TO

CH:IF

F(l,1)=1

THEN

370

ELSE

420

370·

CLS:PRINT

T$:PRINT

"Only

performance

data

can

be

corrected."

380

INPUT

"Correct(Y/N):",Z~i:IF

2$,,,,,"N"

THEN420

E

LSE

IF

Zt<

>"Y"

THEN

380

390

INPUT

"Chart

No.

",Z:IF

Z<l

OR

Z>CH

THEN

39121

ELSE

IF

F(1,Z)=0

THEN

390

ELSE

PRINT CNS(Z)

4CZHZI

PRINT: INPUT

"Per·fannc:mce

No.

",Z1:

IF

Zl<l

OR

Z

1>12

THEN

400

410

PRINT

J$(Z1)

:PRINT

"

";JS<Z1,Z);:

INPUT

"-->"

,JS(Z1,Z):PRINT:GOTO

380

420

·----------

Calculation

of

indicators

430

CLS:PRINT

T$:PRINT

"Being

computed."

440

FOR

I=1

TO

CH:IF

F<1,I}=0

THEN

450

ELSE

GOSUB

860

450

460

FOR

I=l

TO

13:MAX=-1E99

470

FOR

J=1

TO

CH

480

IF

MAX(SS(I,J)

THEN

MAX=SS<I,J>

490

NEXT J:MAX(I)=MAX

500

PRINT "

Printing

out

now 1"

51

CZl

'

_____

;___________

Ct,

a.r· t

520

LPRINT

CHR$(28);CHR$(37):LPRINT

"YCZl":LPRINT"

Z2,6":LPRINT

"QQl":LPRINT

"83.6":LPRINT

"L0":LPRINT

"J(Z)"

530

LPR

I

NT

"S2"

:

LPR

I

NT

"F'CHART

FOR

BUS

INESS

ANAL

Y

SIS":LPRINT

"S1"

540

LPRINT

"050,-45":LPRINT

"C0,0,30":ANGL.E

0

550

FOR,

I==

1

TO

13:

R==360 /

13*

I

--20:

C1

=30:

C2=R:

GOSUB

1020:X=CX~Y=CY:C1=33:GOSUB

1020:XM=CX-1:YM=CY-1;Z$=

MID$

(STR$

(I>,

2)

560

IF

I>7

THEN

XM=XM-1

570

LF'RINT

"DCZl,IZl,";X;",";Y:LF'RINT

"M";XM;",";YM:L

F'RINT

"P";

zi,

580

FDR

J=27

TO

3

STEP

-3:Cl=J:C2=R-·2:GOSUB

1020:

Xl=CX:Yl=CY:C2~R+2:GOSU8

1020:X2=CX:Y2=CY

59(2)

LPR

I

NT

"D" ; X1; " , " ; Y

1.

; " , " ; X

2;

" , " ;

Y2

600

I:

LPRINT "!31"

610

620

FOR

I==

1

TO

CH:LPRINT

"L";

I

MOD

3:

LF'Ril'-IT

MOD·4

630

FOR

Z

==

l

TO

14 :

l~:Ccs

Z:

(F

1,:::=:

14

THEN

1,:::::

1

"J";

I

BUSINESS_]

640

SC=24/MAX(K):Cl=SS<K,I)•SC+3:C2~360/13•K-20:G

OSUB

1020;X=CX:Y:::;CY

65CZI

IF

Z=l

THEN

LPRINT

"M";X;

11

,";Y

EL.SC

LPRINT

"D

,";X;",";Y

660

LPRINT

"N";I+2:NEXT

Z,I:LF'f-'1NT 11 Hl1Zl":LF'RINT"

S1

11

670

FOR

I=l

TO

CH:LPRINT

"L";

I

MOD

3:LF'RINT

"J";

I

MOD

4

680

Z=-I*4.8+1:LPRINT

"DIZI,

";

Z;

11

,

lCZI,

";

Z:LF'RINT "N"

;I+2:LPRINT

"D,20,";Z:LPRINT

"R5,-1":LPRINT

"P";CN$

( I > -

690

CHR$(28)

;CHRf,(46)

:LPRINT

E$;

"S0

":LPRINT

E$;"J0":FOR

J:::1

TO

13:LF'RINT

USING"##

";J

; :LPRINT

SS(Jl:NEXT

J

700

LPRINT

E$;"F5"

710

·----------

Table

720

IF

CH<3

THEN

S=1:T0$=TS$

ELSE

S=0:T0$~TSS+TSS

730

LPRINT CHR$(28) ;CHR$C46)

:LPRINT

ES;"S2":LPRIN

T

"Indicators":LPRINT

ES;"S";S

740

FOR

L=l

TO

2:IF

L=1

THEN

ZS:::"Indicator-

name"

ELSE

ZS:"Item

name

"

750

LPRINT

"No.";Z$;:LPRINT

TAB(25-7*S);:FOR

I=l

TO

CH:LPRINT

USING

U1$;CNS(Il

;:NEXT

I:LPRINT

760

LPRINT

T0$:IF

L=l

THEN

Z1=13

ELSE

Z1=12

770

IF

5=0

THEN

LPRINT

780

FOR

I=l

TO

Zl:IF

L=l

THEN

ZS=S$(1)

ELSE

zs~Js

( I )

790

IF

L=l

THEN

N=2

ELSE N=l

800

LPRINT

USING

"#~Ht

11

;

I:

LF'RINT

ES:

11

F--l

11:

LF'RINT

ES;

11

S0'

1:

LPRIN_T

ES;

"F-1":

FOR

v,:::Q)

TO

N:

Q$:.::MID$

(

zc};,

20-1(-

V+l,

20)

810

LF'RINT

TAB

(4*5+4);

Q$:

E$;

"SCZl":

IF

N=2

THEN

LPRINT

E$;

"F-2

11

ELSE

LF'F;:INT

E$;

"F-1"

82CZI

LF'RINT

E$;

11 S

11

;

S:

LF'RINT

TAB

(25-9-.-S);:

FOR J::•l T

0

CH:

IF

L==l

THEN

LF'RINT USING

"tHHt,#iHLtttt

";SS<I

,J>

; ELSE LF'RINT USING 11

##,#ittt,#~tit

";JS<I,J>;

830

IF

S=l

THEN

LF'RINT

E$;

"Fl"

ELSE

LF'RINT

E$;

"F3

11

840

LF'FUNT

E$;

11

S";

S:

LF'RHH :

LF'RINT

T0$:

LFr--:

INT

E$;

11

F5":

E$;

"S

1"

850

GOTO

170

860

'=sccccc:=c==""-'-'"==

0

::

Cd

1 C Ll 1

at

i

Ul1

o·f

i

1l

di

Ci,\

t

ur-

87(2)

SS<1,I):=JS(10,I)/JS(7,I)*ltZl(Z)

'l'\a.tio

CJf

or·Jin

ar-y

pr--of

it

to

tot

al

1 i

ab

i 1

i.

ti

P~,

ancJ

net

1-Jur·th

19

cBUSINESS ANALYSIS

AND

CHARTING------------------

20

880

SS(2,I)=JS(9,I>/JS(7,I)*l0(2)

'Rat.ia

of

oper·a

ting

pr·ofit

to

tutal

liabilities

and

net

,..,cJrtt,

890

SS(3,I)=JS<10,I)/JS<8,I)*1f21(2)

'Ratio

of

or·din

ary

profit

tu

sales

900

SS<4,I)=JS(9,I)/JS(8,I)•100

'Ratio

of

opera

ting

profit

to

sales

910

SS(5,I)=JS(3,I)/JS(6,I)*100

'Ratio

of

fixed

assets

ta

net

worth

920

SS(6,I)=JS(1,I)/JS(5,I)•100

'Current

ratio

930

SS(7,I)=JS<6,I)/JS(7,I>•100

'Ratio

of

net

w

orth

to

total

liabilities

and

net

worth

940

SS(8,I>=JS<8,I)/JS(12,I>

'Sales

per

empl

oyee

950

S5(9,I>=JS(11,I>/JS(12,I>

'Value

added

pe

r

employee

960

SS<10,I)=JS(11,I)/JS<B,I>*100

'Value

added

ra

tio

970

S5(11,I)=JS(8,I)/JS(7,I)

'Turnover

ratio

of

total

liabilities

and

net

worth

980

SS(12,

I)=JS<B,

I>

/JS(4,

I>

'Turnover

ratio

of

tangible

fixed

assets

990

SSC13,I)=JSC8,I)/JSC2,I)

'Inventory'turri

over

period

1000

IF

F(2,I)=1

THEN FOR

J=l

TO

13:FL(FI<l,l),J,F

I

(2,

I)

)=SS<J,

I)

:NEXT J

1010

RETURN

1020

'==========

Calculate

X,Y

coordinates

1030

CX=ROUND(Cl*COS(90-C2)

,-3):CY=ROUND<~1*SIN(9(2)

-C2)

,-3):RETURN

1040

•----------

Set

variables

1050

RESTCJRE

1100:FOR

I=l

TO

12:READ

J~i(l):FOR

J=1

TO

5:JS(I,J)=f.21:NEXT

J,I

1060

FOR

!=1

TO

13:READ

S$(l):FOR

J=l

TO

5:5S(I,J)

=IZl:NEXT

J,I

1070

T$=="

-N·Business

analysis.-·":TS~;=="":FOR

I=1TO

40

:TS$=TS$+"-":NEXT

I

1080

U1$=="~~

l'.o.(":E$==CHF,$(27)

1090

RETURN

1100

'==========

Item,indicator

name

111121

DATA

Curr-ent

assets,Inventor-ies,Fi:<ed

assts,T

angible

fixed

assets,Current

liabilities,Equity

cap

ital,Total

liabilities

and

rH~l

wor-lh

1120

DATA

Sal.es,Operating

profits,Orc:linar-y

pr·ofi.ts

,Values

added,Employee

BUSINESS_]

1130

DATA

Ratio

of

ordinary

profit

ta

total

liabil

ities

and

net

worth,Hatio

of

oper·ating

pr·ofit

to

tal

lidbilities

and

net

wor·th,Rc:.,tic.1

o·f

or·dinary

pr·o

fit

to

sales,Ratio

of

operating

ta

sales

1140

DATA

Ratio

of

fixed

assets

to

net

worth,Corre

nt

ratio,Ratio

of

net

worth

to

total

liabilities

an

d

net

worth,Sales

per

employee,Value

added

p8r

emµl

oyee,Value

added

r·atio,Turnav8r

r·ati0

of

total

liab

ilitit?s

and

net

worth

1150

DATA

Tur-nuve1··

t-at

i.

u

uf

tang

i.

b 1e f

i.

:-a~d

ass

ts,

I

nventor·y

tun1aver·

per·i

od

1160

FOR I:.:1

TO

l.3:FL<2,l,ll

0

-=f.-i1-.CI):NEXTJ:El"1)

This

program

permits

preparing

data

tables

using

CETL.

In

this

case, it

is

necessary

to

reserve a

CETL

area

using

the

AREA

command.

21

SCHEDULING

•#Z·$1Ehii•fflill,tt

Perhaps

we

can

remember

exactly

our

schedules

for

tomorrow,

the

day

after

tomorrow,

or

even a

few

more

days

ahead.

But

it

is

virtually impossi-

ble

to

remember

schedules

several weeks

or

more

ahead.

In

order

to

avoid forgetting

important

events,

many

people

use an

appointment

book

in which

their

schedules

are

noted.

This program

permits

using

the

FP-200 as

an

'efficient

appointment

book'

which never

forgets.

Data Input and Subtotal Output

DATE

TlME

SCHEOU

LE

When the

program

is

started,

it

displays the following

menu,

waiting

for

data

input.

1 New

entry

2 Reference

(deletion)

3

Additional

entry

4

Termination

Input

the

desired

menu

number.

The

contents

of

the

menu

are described

below.

1. New

entry

This

is

a

command

to

erase all

the

contents

of

the

previously

stored

entry

and

to

replace

them

with a

new

entry.

When

you

select

this

menu,

input

the

month,

day,

time,

and

the

contents-of

the

entry.

Note

that

the

month/day

and

time

must

be given as 4-

digit

numbers,

as

0228

for

February

28,

0503

for

5:03

(a.m.),

etc.

Failure

to

do

so

causes

incorrect

entry

of

data.

The

order

in which

they

are

input

does

not

affect

the

correct

input

of

data.

To

exit

from

this

routine,

input

0

for

the

month/day

data,

and

the

menu

is

displayed again. A

maximum

of

80

events can be

input.

2.

Reference

(deleti;On)

This

is

a

command

to

check

or

delete

the

contents

of

entries.

To

check

the

contents

of

entries,

enter

the

appropriate

date

(month/day)

as a 4-digit

number.

If

you

wish

to

have a

printout

of

the

contents,

enter

Y (or

y)

for

the

prompt.

The

entries

for

that

date

are

printed

out

in

the

order

of

the

time

of

occurrence.

Entering

anything

other

than

Y (or y) causes

the

entries

to

be

output

on

the

display

in

order

of

the

time

of

occurrence.

In this case,

to

delete

the

contents

being

displayed,

enter

K (or k),

and

the

prompt

"DELETE

ENTRIES"

is

displayed for

confirmation.

Entering

Y .(or y)causes the

entries

to

be

deleted,

and

the

program

waits

for

another

command.

Entering

anything

other

than

K (or k) while an

entry

is

being displayed

causes the

to

be displayed.

After

all the

entries

for

that

date

have been dis-

played,

the

program

waits for

another

command.

3.

Additional

entries

This

is

a

command

to

insert new entries

without

erasing the

current

ones.

The

same

considerations

described for new

entries

arc required when using this

command.

If

80

22

BUSINESS..1

entries have already been stored, delete the least

important

entries before adding new

ones.

4. Termination

This terminates program execution. A

prompt

indicating

the

termination

is

displayed,

and the FP-200 waits

for

a BASIC

command.

It

is

advisable for

the

number

of

entries per day

not

to

exceed 20. If

there

are more

than

20

entries for a particular day, change

the

figure (20)

in

the array declaration

in

line

250

of

the

program

to

an

appropriate

figure. Also, if there are more

than

80

entries

to be

stored,

change

the

figure (80)

in

the array declaration

of

line

140

and in

the

FOR

~ NEXT loop

in

lines

150,

180,

260,

and

430,

respectively,

to

an

appropriate

figure,

and

at

the

same time, change the figure (79)

in

lines 200 and

220

to

the

newly assigned

figure minus 1. By doing so, the

number

of

entries

that

can be handled can be in-

creased, although

the

memory

requirement

increases accordingly. When

either

the

figure 20

or

80

or

both

are changed

to

other

figures as described above, re-input all

entries using

the

new

entry

command.

Example

of

output

DATE

11/16

TIME

10:

30

SCHEDULE

MEETING

•.

DATE

11/24

TIME

18:

40

SCHEDULE

PARTY

DATE

TIME

11/30

SCHEDULE

DATE

1

7:

IZH2!

DATE

TIME

12/05

19:00

SCHEDULE

BIRTHDAY

23

rSCHEDUUNG--------------------------

24

1726

Bytes

111•1111ri••············

···

·

········--·-~-ltt--------

10

20

'SCHEDULING

30

40

CLS:F'RINT"SCHEDULING"

50

PRINT"**

MENU**"

6121

F'RINT"l

NEW

ENTRY"

70

PRINT"2

REFERRENCE":F'RINT"

80

F'RINT"3

ADDITIONAL ENTRY"

90

F'RINT"4

TERMINATION"

1.00

INF'UT"SELECT MENU";

1~

110

IF

A)4

OR

A<l

THEN

40

120

ON

A

GOTO

130,240,170,570

130

'NEW

ENTRY

<DELETION)"

140

CLEAR:DIM

SC(80)

,SC$(80)

,Tl$(80)

,DE$(80)

150

CLS:FOR

1=0

TO

80

160

GOSUB

490:NEXT

170

'ADDITIONAL

ENTRY

180

CLS:FOR

I=0

TO

80

190

IF

SC(I)=l

THEN

230

200

IF

1)79

THEN

LOCATE

0,3:PRINT"DELETE

ANY

DATA

!

'":FOR

J=QJ

TO

500:NEXT

J:GOTO

40

210

GOSUB

490

220

IF

I>=79

THEN

40

230

240

'REFERENCE

250

CLS:

DIM

F <

20

> ,

TI

1$ <

212l

> , SC 1$ <

212l)

: I NF'UT"

DATE

??

";OT$

260

K=-1:FOR

1=0

TO

80:IF

DE$Cl)=DTS

THEN

K=K+l:F

( f<)

=VAL

(TI$

<I ) ) : SC 1

$<Kl

=SC$

<I )

270

280

FOR

I=K

TO

121

STEP

-1:FOR

J=0

TO

I-1

290

IF

F<J>>F<J+ll

THEN

SF0=F(Jl:F(Jl=F(J+l):F(J+

1)=SF0:SF1S=SC1.S(J):SC1S(J)=SC1$(J+1):SC1$(J+l)=SF1

$

300

N~XT

J,I

310

PRINT"DO

YOU

WISH

TO

OUTPUT

TO

PRINTER

(Y/N)"

320

Z$=INKEY$:IF

ZS=""

THEN

320

ELSE

IF

ZS="Y"

OR

ZS="y"

THEN

440

330

CLS:PRINT"DATE

$

,2)

";

LEFT$

<OT$,

2);

"/";

RIGHTS

<DT

Casio FP-200 User manual

Popular Desktop manuals by other brands