Sharp PC-1500 - Page 125

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM VOLUM E AND
PROGRAM NO .
4
T l T LE
WEIGHT UN IT CONVERSION
PS- D-16
[ Progr am List I
[ Memory Contenu I
340:LF
l:LPR!NT "IJ
540:0 : 5/ X(A - l>* X<B
EIGHT" - I >
A
Nu mbe r before Unit
345:LPR!NT
.. UN! T--
560:LPRINT AS (A- I l
Conversion
--- --NUMB E R"
;
350:LF I
570: LPRJNl
s
B
Number after Unit
360 : L PRJNT
"GRAM
-
5B0: L PRJNT
A$(0-I>
Convers io n
-- -----J":XC0)
•
= 3750
590:LPRJ NT D
c
370:LP RINT
"TON -- 600: D r. 0:GOTO 480
Valuo after Unit
------- 2" :X<J>
D
=
0.00375:AS(J)
Conversion
=" TO N
"
380:LPRJNT
"GRAIN
STATUS
J
E
";)((2)=57870.~
1220
F
385:LP R JNT
..
<GRN
)
-----3 "
G
390:LPRINT
"OU NCE"
H
:X<3> = 132.275
395:LPRINT
• (QNC
I
)
-----4 "
400: LPRJIH
"POUND
J Weight
";)((4)=8. 26720
K
405:LPRINT
"
CPNO
)
----- 5''
L
4J0: LPR INT "U SA . TO
N
":)( (5) =0.0 04
M
13
N
4JS:LPRJ
NT
"
CU. T
N>
----6 ''
0
417:ASl0)•''GRAM'':A
p
s <2> ="6RN"
418:AS(3)="0NC
" :A
Q
$C4> ,. "PNO
,. : AS
<5>="U. TN "
R
420:LF S:ENO
Input Value before
4/0: "B":LF I: IJA JT s
Unit Conversion
0
480: CLS ~LF
I :
T Volume
PRINT
11
UN l T
-UNIT";
u
500:CURSOR 6: !NPU i
v
A: GO TO 510
505:CLS
: EN D
w
510: IF
CA<I l + C A>6>
< >0G OT O 48 0
x
52 0:CURSOR
15 :
y
IN PUT B
525 : J F <8< I l+ <B>6> z
<>0GOTO 520
530:CLS : INPUT
"DA
NS
Unit Nom e Se lection
TA ;= .. ; S
Area
X(SJ
Rat io of each unit
AS(S)
Nomes of Units
Do not sale this PDF!!! - 119 -