Sharp PC-1500 Anwenderhandbuch Seite 129

PROGRAMMNAME:
[ Programmlisting ]
10: "A": CLEAR : DIN
XC5), ASS)
15: {NPUT "LAENGEZ
FLAECHB? (LF >"
3;N$: GOTO 25
2@: END
25: 1F (NS="LUD+0N
$="F")<>1G0TO
15
30: 1F N$="F"GOTO
168
2O:;LF |
275: LPRINT "LAENGE
772;LPRINT ""EINHE]
lasaes NUMMER"
88:LF |
9@:LPRINT "METER
"3X(B)=]
95:LPRINT " <M)
190:LPRINT "MJLLIM
ETER ":XC1)=18
09
{@S:LPRINT " <¢M.M
2 See aS 2"
118: A$C2)="ZOLL ":
LPRINT AS(2)+"
(2)=39. 3781
128: A$(3)="FUSS ":
LPRINT A$(3)+"
~--------~ 4X
(3)=3, 28884
130:A$(4)="YARD ":
LPRINT A$(4)+"
(4)=1.89361
148: a$(5)="MEILE "
LPRINT A$(S)+
'
ry
r i
(5)=8. 88062
145: Ag$CB="N es
ASC1O=H"N.M %
15@:LF 8: END
168:LF 1:LPRINT "F
LAECHE "
165:LPRINT "EINHEI
fees NUMMER"
178:LF 1
186: LPRINT "QUADRA
TMETER "3 XC8)d=
]
185:LPRINT " ¢@.M
d git es ee eee ] Ui
198: A$CIDI="AR ":
LPRINT ASC1)+"
°*%€1)=8.91
UMRECHNUNG VON LANGEN
UND FLACHENEINHEITEN
2@5:LPRINT " (@.2
Oe aegis a"
21@:LPRINT "QUADRA
TFUSS "ixC3)=1
@.7639
215:LPRINT " ¢@.F
)
235:LPRINT " C¢TUB
0) ------ aa
237:0$(8d="0.N.":A
$€29="0.2. "20S
C€3)="0.F. "1 ASC
5)="TUBO "
240:LF 8:END
47@:"B":LF i:WAIT
a
48@:CLS :LF i:
PRINT "EINHEIT
-EINHEIT""
5@S:CLS :END
SiB: IF ¢A¢1)+¢CA6)
<>aGCTO 488
520: CURSOR 17:
INPUT B
525: I1F ¢(B<1)+¢B>6)
<>BG0TO 528
53@:CLS : INPUT "WE
RT="52
549: 0=27X(A-1I*XCB
-1)
569@:LPRINT ASCA-1>
3
57@:LPRINT Z
58@:LPRINT
ASC(B-1>
?
598:LPRINT D
6@@:N=0:GOTO 488
STATUS 1
1175
e123 ==
PROGRAMM-NR.
P5—D-17 4
{ Speicherinhalt ]
A Code vor Ein-
heitenumrechnung
Code nach Ein-
heitenumrechnung
>
Wert nach Ein-
heitenumrechnung
a
ez)
Ache
be
inge
Ee reee rele
Eingegebener Wert vor der
Einheitenumrechnung
Einheitsbezeichnung-
Wahlbereich.
Verhaltniswert fiir
jede Einheit
A$(5)| _Einheitenbezeichnung
x