Casio FP-200 - Page 76

r
I
I
rSORTING/SUMMIN\.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