Sharp PC-1500 Applications Manual page 124
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All
and
more
about Sharp
PC-1500
at
http://www.PC-1500.info
PROGRAM
VOLUME
AND
PROGR
AM
NO.
3
Tl
li
L E
WEI
GH
T UNI
T CONVERSION
PS-
D-
16
[
Key Operation Procedure ]
Step
No
.
Input
Display
Remarks
1
IDEFI
CD
VOLUME/WEIGHT(V /W)?
2
w
I
•HTEA
I
>
Table output
3
I
DEF
!
0
UNIT?
-
UNIT
4
4
I
•NTER
I
UNIT
4 -
UNIT?
5
I
I
•HTER
j
DATA=-
6
I
I
ENTER
I
UNIT?
-
UNIT
7
5
I
ENT
ER
I
UNITS
-
UNIT
?
8
I
I
EffTEA
I
DATA=-
9
I
I
•NTEA
I
UNIT?
-
U NIT
10
I
ENTER
I
>
Pressing
this
key ends
pro·
gram.
[
Program List
]
10
: "A":CLEAR
:
DIM
290
:
LPRINT
"LI
TER
X(
5), At
(
5)
:
CLS
":X<2
)
=1
15
: INPUT
"VOLUME/
295: LPRJNT
"
<L
)
~IEI GHT?
(U
/W
)";
-
·--
-
----3"
N$:GOTO 25
300
: LPRINT "GALLON
20:GOTO 420
"
:
X(
3
)=0
.
2 154
1
25
:
IF
(N$ ="V"
)+
<N
7
$
="W"
><>IGOTO
305:
LPR1NT
"
<GL)
J
S
---
-
--
-4
"
50
:
l
F
t4$ ="V''GOTO
3 10
: LPRJNT "CUBIC
250
INCH
": X(
4 )=f5l
l60:GOTO 340
. 0237
250:
LF l
:
LFR
JNT
"U
3
15
:LPRJNT
"
(
(
. J
OL
UME"
)
--
-
-
-
-
511
255
:LPRJNT
''UNI T--
320: LPRI
NT
"
CUBI
C
-
-
---
NUMBER"
FEET "
:X
<5
)=0
.
2f50
:
LF I
03532
270 :LPRJNT
"CUB
IC
325
:
LPRJNT
..
(
(.F
MET ER
":
X<0
)
=0
)
----
-
-
6"
.
001
326:A$(
0
)="C.M
..
:
A
275
:LPRINT
"
<C
.
M
$ (
!
)
"'
"C.
CM
":
A$
)
-----
- 1"
<2>="L
..
2
80: LPRI NT
"
CU81C
327
:
A$(3)="GL
":
A
CENT IM
.
":
X(l)
$(4)="C.
l
":A$
=
!
0
00
(5);"
C.
F
"
285 :LPR!
NT
"
<C.C
330
:
LF
8:END
M)
--
-
--2
"
(To be con tinued)
Do not
sale
this PDF
!!!
-118-
Advertisement
