Sharp PC-1500 Anwenderhandbuch Seite 125

PROGRAMMNAME:
[ Programmlisting ]
18: "Q":CLEAR :O1M
%(5), A$CS):CLS
15: PNPUT ""UOLUMEN
/ GEWICHT? (U/6?
"SN$:GOTO 25
28:GOTO 420
25:1F (N$="U"D4+0N
$="G")<>1GOTO
15
SQ:1F N¢="U"GOTO
252
62:GOTO 342
LF 1:LPRINT "U
OLUMEN"
:LPRINT "EINHE!
T--LFD. NR."
LF
LPRINT "KUBIKM
ETER ":X(@)=8.
eal
LPRINT "KUBIK2
ENTIMETER': X¢1
)=1008
sLPRINT " (K.Z
M)
*LPRINT "LITER
"SKXC2)=1
:LPRINT " ¢L)d
LPRINT "GALLON
E ":X(3)=@. 264
1?
*LPRINT " CGLD
LPRINT "KUBIKZ
OLL ":X¢4)=61
8237
LPRINT'#" -€Ke2
)
;LPRINT "KUBIKF
USS "iX(5)5@.
@3532
:LPRINT " (K.F
)
TASCBD="K.M "TA
$C1)="K.ZM"i As
7) on
A$(3)="GL "5A
$(4)="K.2 "AS
(So="K.F
33@:LF 8:END
34@:LF 1:LPRINT "G
EWICHT"
345:LPRINT "EJNHE]
T--LFD. NR."
UMRECHNUNG VON VOLUMEN
UND GEWICHTSEINHEITEN
358:LF 1
362:LPRINT "GRAMM-
372:LPRINT ""TONNE~
38@:LPRINT "GRAN
"+%(¢2)=57870.4
385:LPRINT " (GRN
>
395:LPRINT " CONC
>
49@: LPRINT "PFUND
":%(4)=8, 26728
485:LPRINT " <¢PND
)
41@:LPRINT "uSA-TO
NNE": %€5)=8. 88
413
415:LPRINT " CU.T
N) =---6"
4} 7:A¢(9)="GRAMM":
Ag$¢1)=" TONNE":
A¢$(2)="GRN"
418:A$C3.="ONC "3A
$(4)="PND "2 A$
(55="U. TN "
42@:LF 8:END
470: "B":LF 1:WAIT
Q
-EINHEIT"
52@:CURSOR 7: INPUT
Aa:GOTO 518
505:CLS :END
51Q: IF ¢A¢1)+¢CA6)
<>@G0TO 488
520:CURSOR 17:
INPUT B
525: 1F (B¢1)+¢B>6)
<>@G0TO 5208
539:CLS : INPUT "DA
TENS"3
548:D=S/xX¢A-1)*X¢B
-1)
568:LPRINT ASCA-1>
3
578:LPRINT S
58@:LPRINT AS$CB-1)
3
598:LPRINT DB
6@8:N=8:GOTO 488
STATUS 1
1
PROGRAMM-NR.
P5—D—-16 4
{ Speicherinhalt |
Zahl vor der Ein-
heitenumrechnung
Zahl nach der Ein-
heitenumrechnung
Wert nach der Ein-
eitenumrechnung
Eingabewert vor der
Einheitenumrechnung
Volumen
Ss
-
V
NS Einheitsbezeichnungen-
Auswahlbereich
Verhdltniszahl der
einzelnen Einheit
A$(5)| Einheitsbezeichnungen
as oi