Sharp PC-1500 - Page 124

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
PROGR AM
VO LU ME AND PROGR AM NO.
3
Tl li L E
WEI GH T U NI T CO NVE RSION PS - D- 16
[ Key Operati on Procedure ]
St ep No.
Input Display
Remar ks
1
IDEFI
CD VOLUME/WE I GHT(V /W)?
2 w
I •HTEA I
> Table output
3
I DEF !
0
UN I T? - UNIT
4
4 I •NTER I
UNIT 4 - UNIT?
5 I
I •HTER j
DATA=-
6 I
I EN TER I UN I T? - UNIT
7
5
I ENTER I UNITS - UNIT ?
8 I
I EffTEA I DATA =-
9
I
I •NTEA I
UNI T? - UN IT
10
I ENTER I
>
Pressing this key ends pro·
gram.
[ Program List ]
10: "A":CLEAR
: D IM
290: LPR IN T
"LI T ER
X( 5), At ( 5) : CLS
":X<2 ) =1
15: IN PUT "VO LU ME/
295: L PRJNT
"
<L )
~ I EI GH T? (U /W )";
- ·-- - ---- 3"
N$:GOTO 25
300 : LPRIN T
"G AL LO N
20:GOTO
420
": X( 3 )=0 . 2 15 41
25 : IF
(N$="V" )+ <N
7
$="
W" ><>IGOTO
305: LPR 1N T
"
<GL)
JS
--- - -- -4 "
50 : l F
t4$ ="V ''GOTO
310: LPRJN T
"CU BIC
25 0
IN CH
": X(4 )= f5l
l60:GOTO 340
. 0237
250: LF
l :
LFR JNT "U
3 15 :L PRJNT
"
( ( . J
OL U ME"
)
-- - - - - 511
25 5:LPRJNT
' 'UNI T --
32 0: LP RINT "CUBI C
- -
--- N UMBE R"
FE ET
":X <5 )= 0.
2 f50 : LF I
03532
270 :L PRJNT
" CUB IC
325: LP RJNT
..
( (.F
MET ER
": X<0 )=0
)
---- - - 6"
. 001 326:A$( 0)="C.M
.. : A
27 5 :LPRINT
"
<C . M
$ ( ! ) "' "C. CM ": A$
) ----- - 1"
<2>="L
..
2 80: LPRI NT
"CU 81 C
32 7: A$(3)="G L
": A
CE NT IM .
": X (l)
$(4)="C. l
":A $
= ! 000 (5);" C. F
"
28 5 :L PR! NT
"
<C.C 330: LF 8:END
M) -- - --2 "
(To be c on tinued)
Do not sale this PDF !!!
-118 -