Sharp PC-1500 Applications Manual page 101
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All and
more about
Sharp
PC-1
500 at http://www.PC-1500.info
PROGRAM
ESTIMATI
ON
A DDIT ION
PROGRAM
NO.
4
T
I
T
L
E
PS-D-5
[
Program List ]
[
Memory
Contents ]
10:
"A"
:
WA
J T
0
403:
LF
2
20
:
JNPUT
"REG. =!,
405:
USING
:
LPRI
NT
A
CHANG£
=2
..
;
X$
"*
DETAILS
' *
"
B
30: JF
(X$
~
"
l")
+(
X
410:JNPUT
"REGIS
TE
$ ="2"
><
>l GO
TO
R
NO
.=";O:GOTO
c
Chan2e
No.
input
20
417
D
Register
No.
input
40:
IF XS="2"GOTO
415:60TO 620
150
4 17:J
F O>NPAUSE
"
E
E
Quan
tit}'_
50:CLEAR :
INPUT
"
XCEEO REG.
NO.
nAx
.
NO.
OF
I
T
" :GOTO
410
F
Discount
Rate
EMS=";N:OJM
AS
420:
INPUT
"QUANT
I
T
G
Discount
Amount
<N-1), ACN· l
)
V.!!"
;£
60
:FOR 1=0TO
N-
1
430: INPUT
"OI SCOUN
H
/
0: INPUT
"PROO. N
T
RATE =";F:
I
..;
AME="
iA$
(
J)
GOTO
450
80:
1NPUT
"PR ICE="
440:
INPUT "OJ
SCOUN
J
..;
i A< I >
T
AMOUNT=";G
100:
NEXT
I
450:J=O-
I
K
I J0:PAUSE "REGIS TE
4/S: U=A
<J>
*E
L
R
ENO"
480:
IF F<>0GOTO SI
120:El'O
0
M
150: CLS :
INPUT
''CH
490:W=-G:GOTO 520
N
No.
of
Registers
ANGE
NO.
="; C:
51 0:W=-<U*F/
J00
>
GOTO 170
520:Y::A<J>*E+W
0
!60:
ENO
530
:
USING
:
LPRINT
170: IF
C>NPAUSE
..
E
As<J>
p
XCEEO
REG.
NO.
540:US
I
NG
:LPRI
NT
Q
":GOTO
150
"II"
;USING
"
llltlt
180:PRINT
A$
(C-l)j
tltltltl, tltlll
" ;A<J)
R
n.;
'' .
54
l:LPRIN
T
"
*
'';
E
•
s
190:
INPUT
AS<C-
1>
542: LPRINT
"=''ju
200:
CLS
:PR
JNT A<C
550:1F
W<>0US
ING
:
T
-l)i
··-··;
LPRIN
T
USI NG
..
21
0
:1NPUT
A<C-
1>
lltltltllllltl,
lllltl
"
i
l.J
u
215:GOTO
150
S60:USING
:LPRJ
NT
Amount
before
220:ENO
USING "tltltltltltltl
v
300: "0"
: W AJ
T
0
,
tl#t:t
11
;Y
Discount
302:
LF 2
600:2=Y+
2
: F=0: 6=0
w
Discount Amount
304:USI NG :
LPRINT
6 10:GQTO 410
"'*
REGJSTER LI
620:USJNG
:LPRINT
x
ST
t·~
"TOTAL"
306:FOR
J=0TO
N-
1
630:US
I
NG :
LPRJN
T
Total
Amount after
31
0:
IF
AS<!>
=""
USJNG
"
tltllltltltl,
y
Discount
GOTO
330
tttttt
11
;
z
320: USING :
LPRINT
6 40:ENO
Grand
Total
Amou.nt
USI
NG
"tltltlll
"i I
z
after
Discount
.+
J
;
••
"
;AS
<J
>
325:US
JNG
: LPRINT
X$
Register and
Change
USI NG
"
tltltllltl
tttl
STATUS
l
, tltltl
"
;A<D
997
Acceptance
330:NEXT J
AS(N·1)
Product
name
340:ENO
NN-1
)
Price
400:"C"
;WA1
T
e:
Z=
0
Do not sale this PDF !!!
-
95
-
Advertisement
