Casio FP-200 - Page 29

BUSINESSJ
records and the number of items. Next, input the type, expression and format of each
item.
For the expression, just press the ~ key. After inputting the contents of items,
press the BREAK key. There
is no need to input any data.
2803 Bytes
10 REM*** INIT & MAIN***
20 CLEAR:DIM N$(5) ,A$(50) ,A<50,4i
30 FOR 1=0 TO 5:READ N$(I):NEXT
40 DATA Product name,Unit pr-ict'?,Ou.a11tit·;1,Amuu.1:t
,Discount rate,Selling price
50 CLS:PRINT "** ESTIMATE MENU ll··•":F~;:INT ~F'FdNT
" 1:Entry":PRINT" 2:Estimate":F'f;:IhlT" 3:Enti-y L
IST":F'RINT" 4:END":PRINT :INF'UT"l>Jl1jcl1 co,n,11-c.u1d?";Z
60 Y=0:0N Z GOSUB 80,200,530,720
70 GOTO 50
80 REM*** 81try ***
90 CLS l
100 PRINT N$ ((Z));" (MAX 9 CHt1RS) "~ 11\IF'UT M•t:
IF LEN<MS> >9 THEN 100 ELSE PRINT N$CLl:: INPUT M
110 PRINT "OK (Y or- N) ?"
120 Z$==IM:::EY$: IF Z$="Y" THEN 1~:.0 ELSE IF z4,-:"N" T
HEN 100 EL.SE120
130 IF Y THEN INPUT"Do you wish to in1:iut dc'-\\a. tu
CETL?";ZS: IF ZS="N" THEN RETURN
140 F'=l: PRINT "Input data tu CETL_"
150 IF' FL ( 0
1
P
1
1 ) < >"
11
THEN F'
0
-=P+ l ; If=- F' :>51,,:')(.,) THEN FR I
NT "CETL INF'UT OVER
1
'.":FOR I==0 TO 30CJJ: NEXT: F,:ETUG:N: E
L.SE 150
160 FL(0,P,1)=M$:FL(0,P,2l~M
170 IF Y THEN RETURN
180 PRINT "END(E or ELSE)-::'"
33