Sharp PC-1500 Applications Manual page 129

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
LENGTH
AND AREA UN IT CONVERSION
PROGRAM NO.
4
T l
T LE PS- D-17
[ Program
List
I
I
Memory Contents
I
10: .. A":CLEAR
:orM
J90:ASCJ)a .. ARE
.. .
XC5>, AS(5> LPRINT
A $ Cl>+"
A
Code before unit con·
15: INPUT "LENG TH/ ------- --- 2":X
version
AREA?C L/A )";HS <1> =0 .01
: GOTO
25
200:L PRJNT "SQUARE
Code after unit con·
20 :END
INCH ":X< 2> =1
B
version
25: IF"
CN$="L")+CN
550.00
$="A") () JGOTO 205:LPRI NT
"
<S. I
15
)
-- ---- 3"
c
30: IF
N$<="A"G OTO 2 L0 :LPRINT " SQUARE
Value after unit con·
160 FEET
":XC3>=L
0
ve rsion
/0:LF I 0./639
/5:LPR IN T "LENGTH 2J5:LPRINT
"
CS. F
" )
- --- --4"
E
//:LPRINT "UNIT-- 220:AS<4>="ACRE
. . .
F
- - ----NUMBER" LPRI NT
A$C4)+"
80: LF I - --------5": X<
G
90:LPRINT "METER
4>=0.00025
H
": X<0>= 1 230: LPRINT " TSUBO
95:LPRJNT
..
CM> ":X<5> =0.30250
I
--------)"
235:LPRINT " CTUB
100:LPRINT
"M ILUM
Q)
-----6 ''
J
ETER
":XC I >=10 23/:ASC0)a"S.M
":
~
K
00 $C 2>="S . I
u;~$
105:LPR JNT
..
CM . M
<3> ="5.F
":AS(
L
)
-- - -- - 2 "
SJ= .. TUBO
"
110:At(2) ="1NCH
".
240: LF S:ENO
M Area
LPRI NT
ASC 2)+"
4/0: " B" :LF
J: WA J T
----- ----3":XC
0
N
Length
2J=39.3/0 1
480:
CLS :LF
I :
120:A$(3)="FEET
. . .
PRINT "UNJT
LPRINT
AS(3 ) + " -UNIT'';
0
- -------- 4•:xc
500: CURSOR 6:JNPUT
p
3>=3.28084
A:GOTO 510
a
130:ASC4>="YARO
.. .
505:CLS :ENO
LPRINT
A$ ( 4)+ .. 510: IF <A<l>+C A>6>
R
---------5":XC
<>0GOTO 480
4J=l.0936! 520:CURSOR 15:
s
J40:ASC5)="MILE
...
INPUT
8
LPRINT
ASCSJ+"
525: 1 F <B< D ·>C8>6J
T
----- ----6 '' : XC
<>0 GO TO 520 u
5> =0.00062
530: CLS : INPUT
"UA
l 4S:ASC0J =" M
...
LUE=";Z
v
ASCl ) :"M. M
..
540:0=2/XCA-l>*XCB
w
150:LF 8:£ N O
- J )
160:LF
l :LPRI NT "A
560: LPR JNT ASCA- 1>
x
REA "
;
165: LPRIN T "UNIT--
5/0:LPRINT
2
y
--- ---NUMBER"
580:LPR INT ASC8-IJ
Input
Value before
l/0:LF I
'
z
unit conversion .
180:LPRINT
"SQUARE
590: LPR INT
0
METER " : X<0> =
600:0=0:GQTO 480
Unit Name Selecting
I
NS
185:LPRINT
. .
CS.M
Alea
)
------1 ...
Ratio value for
X(S)
STl'HUS I
each unit
1159
AS(5
Unit name
Do not sale this PDF!!!
- 123-