Sharp PC-1500 Handbuch Seite 125

All and more about Sharp PC-1500 at http://www.PC-1500.info
UMRECHNUNG VON VOLUMEN
PROGRAMM-NR.
4
PROGRAMMNAME:
UND GE WICHTSEI NHEITEN
PS - D-16
[ Programmlist ing
1
[ Speicher inhalt )
350:LF 1
Zahl
vor der Ein·
360:LPRINT
"GRAMM-
A
beit enumrechnung
J0:''A'':CLEAR :OJM
---- - --1 •· : X<0>
X<5>, A$<5l: CLS
=3750
Zahl
nach der Ein-
15: fNPUT "VOLUMEN
3/0: LPRlNT "TONNE-
B
heitenunuechnung
/GEi.jJCHT?CV/Gl
-------2"
:xu
>
";NS: GOTO 25
=0.00375
c
20: GOTO 420
380:LPRINT „GRAN
25: lF
(N$ =„ V„
)„
CN
":X<2>=5?8?0. 4
Wert nach der Ein-
s= "G„ >< )IGOTO
385:LPRINT
..
<ERN
D
heitenumrechnung
15
)
----- 3•'
50: IF
NS=„V„GOTO
390:LPRJNT
„UNZE: „ :
E
250
XC3l=l32.2/5
60:GOTO 340
39S:LPRlNT
,.
(QNC
F
250: LF
J:LPRJNT
„u
)
-----4 ''
G
OLUMEN„
400;LPRJNT
"PFUND
255: LPR
INT "E 1NHE:1
":X< 4>=B.26/20
H
T--LFl'.l. NR.
•
405:LPRINT
„
<PNO
260:LF
1
)
-- ---s··
1
2?0:LPRJNT "KUBJKM
410:LPRINT "USA- TO
Gewicht
ETER ••: XC0> =0.
NNE":X<5> =0.00
J
00!
41 3
K
2/5:LPRJNT
"
<K.M
4J 5 :LPRlNT
"
CU. T
)
------ 1 ,.
N) ----6''
L
2B0:LPRJNT "KUBIKZ
4J/:ASC0l •'' GRAMM'':
ENT !METER": XC l
As<J >= " TONNE":
M
) • !000
A$(2') ="GRN"
N 285: LPR !NT
"
<K. Z
4 J
Q:
AS<.3:>=" 0NC
,, : Q
M)
----- 2"
$(4l •"PND
,. ; A$
0
290: LPR !NT "LITER
<5l= "U. TN
"
":X<2> =1
420: LF 8::
E:NO
p
295: LPR !NT
"
(L)
4?0: "B":
LF 1: WAIT
Q
- -------3 ''
0
300 :LPRJN T "GALLON
480:CLS
:LF
J :
R
E
•': X(3l =0. 264
PRJH
T " E: INHE: I T
Eingabewert vor der
!?
-E INHE:IT"
s
305:LPRlNT "
CGL)
500:CURSOR ;> :
INPUT
Einheitenumrechnung
-------4''
A:GOTO
510
310:LPRJNT "KUBJKZ
505:CLS
:END
T Volumen
OLL
":X(4) =6 l
Sl 0: IF
<A< J >+< A>6>
u
. 0237
<>0GOTO 480
3J5:LPRINT
"
<K.Z
520:CURSOR
1
;>; V
)
------s1·
INPUT B
320!LPRltH "l<UB l l<F
525: IF
< B< 1 >-><B>6>
w
USS
„ :
X<S> =0.
<>0GOTO 520
X
03532
530: CLS
: lNPUT "DA
32S:LPRJNT
„
<K.F
TEN= ";S y
)
-- ----6''
540:0=S/XCA-lllX<B
326:AS<0 >=„ K.M
•· : A
- 1>
z
$()) ="K.Zn":As
560: LPRINT AS(A- ll
Einheitsbezeichnungen-
<2>• "L
,.
NS
'
Auswahlbereich
32?:QS<3>=„GL
•• : A
5/0:LPRINT
s
S(4)="K. Z
„ :Q$
580: LPRl
NT A$( 8- l l
Verhältniszahl der
C5l="K.F "
X(5)
•
einLelnen Einheit
330: LF B: E:ND
590:LPRINT
0
3q0:LF 1: LPRJNT "G
600: 0=0:GOTO 180
A$(5)
Einheitsbezeichnungen EWICHT„
3q5 ;
LPR JNT
" E l NHE l
T-- LF!l .
NR . ..
ST ATUS
1
J 230
Do not sale this PDF !!!
119 -