Advertisement
r
I
I
r S O R T I N G / S U M M I N \ . r - - - - - - - - - - - - - - - - - - - - - - - - -
The item names may not exceed eight characters in length. If an item name consisting
of more than eight characters is input, the first character or characters are lost. Note
also that when extremely large numbers arc input, they are converted into exponential
notation (e.g., 1250000 = 1.25 x 10
6
= 1.25£
+
06).
0
DISPLAY
Code
1
Item
price . - ,Percentage . : ,
s2s<Zl
<Zl:
a's ·
2
7 0 2 0 <Zl <Zl
55._ 81_
@
OUTPUT
2096
Bytes
ltlllllllllt11llflllftlillllflflllltti11lll1f1llftt"1t11it11tl4111•11fltlltltfftJlllll1ltlllllltlllllllfltllllilltftlflflllf!flf!llf1t1tillfltlllllt1tll•lit1t1t1t1ltllllllf!Mlllflfltll1t1fllllltltttll: .. 1ltl!ltflllllllfll!IIIII
10 '
20
SORTING AND TOTALING
30
40 CLS:F'RINT "SORTING
AND
TOTALING":CL.EAR
50
DIM
9A$(50,1)
60
F'RINT
"Method of
daL:,.
i 11put"
70 F'RINT"< K
>--
f'.:eylJo,1r·d":F'Rif\lT
11
<
T
··------ Tapr!";F
RINT"select
f<
or T
8(2)
90
Z
$:.::
I Nt<EY<f;:
IF
Z <f,:::" f:::"
OR
Z <f,:-c:
11
k
II
Tl·IEN
1(,')Q)
ELSE
IF
7.:
$="
T"
OR
Z$:.::"t"
THEN 56(2) ELSE 90
100 CLS:
INF'UT "Code No."; CD
110 IF
CO=99 THEN 200
120 IF CD<=0 OR CD>50
THEN GOTO 100
130
INF'UT
"Itrc?m
nam,=";
S$:
INF'UT "Duanti
ty"; SU
140 IF SU<1
THEN
130
150
INPUT "Unite pr·ice";f::r
.·;.:
BO
Advertisement
