Sharp PC-1500 - Page 101

All and more about Sharp PC-1 500 at http://www.PC-1500.info
PROGRAM
EST I MAT ION A DD ITI ON
PROGRAM NO .
4
T I T L E
P S-D-5
[ Program List ]
[ Memory Contents ]
1 0: "A " : WA J T
0
403: LF
2
20:
JN PUT "REG. = !,
40 5: USING : LPRI NT
A
C HA NG£ =2
.. ; X$
"*
D ETAILS '* "
B
30: JF
(X$ ~ " l") +( X
410:JNPUT "R EGIS TE
$= "2" >< >l GO TO R NO .=";O:GOTO c
Chan2e No . input
20 417
D Re gis ter No . input
40: IF XS ="2"GOTO 415:60TO 620
1 50 41 7:J F O>NPAUSE
" E
E
Quan ti t}'_
50:CLE AR
: INPUT
" XCEE O R EG. NO.
nAx . NO.
OF I T
" :GOT O
410
F Dis count Rate
EMS =";N:OJM AS
420: IN PUT "QUANT I T
G
Discount Amount
< N-1), ACN· l )
V .!! " ;£
60 :FOR 1=0TO N- 1
430: INP UT "OI SC OUN
H
/ 0: IN PUT "PROO. N
T
RATE = ";F:
I
..;
AM E=" iA$( J)
GOTO 450
80: 1NPU T
"PR ICE= " 440: IN PUT "OJ SCOUN
J
..;
i A< I >
T AM OUNT = ";G
100: NEXT
I 450:J=O - I
K
I J0:PAUSE "R EGIS TE
4/S: U =A <J> *E
L
R
E NO" 480: IF
F<>0GOTO SI
120:El'O
0
M
15 0: CLS : INPUT ''C H 490:W=-G :GOTO 52 0
N No . of Registers
ANGE NO. = "; C:
51 0:W=-<U*F/ J00>
GOTO 170 520:Y ::A< J>* E+ W
0
! 60: E NO
530 : US IN G : LP RINT
17 0: IF
C> NP AU SE
.. E
As<J>
p
XCEEO REG. NO. 540:USI NG :LPRI NT
Q
":GOTO
150
"II " ;USING
" llltlt
180:PRINT A$ (C-l)j tltltltl, tltlll " ;A<J) R
n.; '' .
54 l:LPRINT
"* ''; E
•
s
190: I NP UT
AS<C - 1>
542: L PRINT
"=''ju
20 0: C LS :PR JNT
A<C
550:1F W<> 0 US ING
:
T
-l)i ··-··;
LP RIN T USI NG
..
21 0:1NPUT
A<C - 1>
lltltltllllltl, lllltl " i l.J
u
215 :GOTO
150
S60:USING :LPRJ NT
Amount befo re
220:ENO
USING "tltltltltltltl
v
3 00: "0" : WAJ T
0
, tl#t:t
11
;Y
Di sco unt
302: LF
2
600:2=Y+2: F=
0: 6=0
w Discount Amou nt
3 04:USI NG : LPRINT
61 0:GQTO 410
"'*
REGJSTE R
LI
620:USJNG :LPRINT
x
ST
t·~
"TOTA L"
306:FOR
J=0TO N- 1
630:USI NG
: LP RJN T
Total Amount after
31 0: IF AS<!> =""
U SJNG
"tltllltltltl,
y
Discount
GOTO 330
tttttt
11
;z
320 : USIN G
:
LPRINT
6 40:E NO
Grand Total Amou.nt
USI NG
"tltltlll "i I
z
after Discount
.+ J ; ••
" ;AS <J >
325:USJ NG
: LPRINT
X$
Regist er and Change
USI NG
"tltltllltl
tttl STA TUS l
, tltltl " ;A<D 997
Acceptan ce
33 0:NE XT
J
AS ( N· 1) Product n ame
340:ENO
NN-1 )
Pri ce
400:"C" ;WA1 T e: Z= 0
Do not sale this PDF !!!
- 95 -