Sharp PC-1500 - Page 129

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
LENGTH
AND AREA UNIT CONVERSION
PR OGRA M NO.
4
T l T LE PS - D-17
[ Program List I
I
Me mory Contents I
10: .. A":CLEAR
:orM
J90:ASCJ)a .. ARE
.. .
XC5>, AS(5> LPRIN T
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
ver sion
25: IF"
CN $="L")+CN
550.00
$= "A") () JG OTO 205:LPRI NT
"
<S. I
15
)
-- ---- 3"
c
30: IF
N$ <=" A"GO TO 2 L0 :L P RINT "S QUARE
V alue 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
- - ----NUM BER " LPRI NT
A$C4)+"
80: LF I - --------5": X< G
90:LPRINT "METER
4>=0.00025
H
": X<0>= 1 230: L PRINT " TSUBO
95:LPRJNT
..
CM> ":X<5>= 0.30250
I
------ -- )"
235:LPRINT
"
CTUB
100:LPRINT
"M ILUM
Q)
-----6 ''
J
E TER
":XC I >= 10 23/:ASC0)a"S.M ": ~
K
00 $C 2>="S. I
u;~$
105:LPRJNT
..
CM .M
<3> = "5.F
":AS(
L
)
-- - -- - 2 " SJ= .. T UBO
"
110:At(2) = "1NC H
".
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
A S(3 ) + "
-U NIT'';
0
- -------- 4•:xc
500: CURSO R 6:JNPUT
p
3>=3.28 084
A:GOTO 510
a
130:A SC4>= "Y ARO
.. .
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
...
LU E= ";Z
v
ASCl ) :" M. M
..
540:0=2/XCA-l>*XCB
w
150:LF
8:£ NO
-
J )
160:LF
l :L PRI NT "A
560: LPR J NT ASCA- 1> x
REA "
;
16 5: 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
"S
QUARE
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
11 59
AS(5
Unit name
Do not sale this PDF!!!
- 123 -