Sharp PC-1500 Applications Manual page 125

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM VOLUME AND
PROGRAM
NO.
4
T l T LE
WEIGHT UNIT CONVERSION
PS- D-16
[ Program
List
I
[ Memory Contenu
I
340:LF l:LPR!NT
"IJ
540:0: 5/X(A- l>*X<B
EIGHT" - I >
A
Number before Unit
345:LPR!NT
.. UN! T--
560:LPRINT AS (A- I l
Conversion
-----NUMBER"
;
350:LF I
570: LPRJNl
s
B
Number after Unit
360: LPRJNT
"GRAM
-
5B0: LPRJNT A$(0-I>
Conversion
-------J":XC0)
•
=3750
590:LPR JNT D
c
370:LPRINT
"TON -- 600 : Dr.0:GOTO 480
Valuo after Unit
------- 2" :X<J>
D
=0.00375:AS(J) Conversion
=" TON
"
380:LPRJNT
"GRAIN
STATUS
J
E
";)((2)=57870.~
1220
F
385:LPRJNT
. .
<GRN
)
-----3"
G
390:LPRINT
"OUNCE"
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 "USA. TO
N ":)( (5) =0.004
M
13
N
4JS:LPR JNT
"
C U. 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: !NPUi
v
A: GO TO 5 10
505:CLS
: END
w
510: IF
CA<I l
+
C A>6>
<
>0GOT O 480
x
520:CURSOR 15 :
y
INPUT
B
525 : J
F
<8< I l +<B>6>
z
<>0GOTO 520
530:CLS : INPUT "DA
NS
Unit Nome Selection
TA; = .. ; S
Area
X(SJ
Ratio of each unit
AS(S)
Nomes of Units
Do not sale this PDF!!!
- 119-