Advertisement
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)-::'"
Advertisement
