Sharp PC-1500 Applications Manual page 170
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-1500
at http:/lwww.PC-1500.info
PROGRAM
PURCH
ASE
LEDGER
GENERATION
PROGRAM
NO.
5
Tl
TL
E
PS-0-
26
[
Program
List
I
i
Memory
Contenu
I
146: IF
8$
< I
>
<
> '"'
500:"8
":
CL
EAR
LET
Z=l:PAUSE
5!0:01M
8$(139>,0<
A
8$<J
>:INPUT
..
a
139), 8U39>
8
UANTITY=";S:E=
515:
LF
2
__:_
S*D<J>:GOTO 19
520:LPRINT
"**
LIS
c
s
T
**"
14/: IF
BS<
J
):""
530:
INPUT
"SUPPL
I
E
0
GO
TO
150
R=";AS :GOTO
54
E
Total
(for
this lime)
148:GOTO 240
0
150:1NPUT
"PRODUCT
535:GOTO
720
F
To1al
by
supplier
NAME=";BsCI>:
540: l NPUT "TAPE IN
G
Grand 10131
z,,0:GOTO
165
OK (Y/N)
II;
XS
160:60TO 245
545:
JF
XS< >"Y"GO TO
H
165: T'=0: l NPUT "PR I
540
I
,,/
CE
="; T
550: INPUT
tlAS;8$ <*
170:
S=0
:
INPUT
"CUA
), D<
*»
B<
*
>
J
NTITY=";
S
610:LPR
I
NT
"*
•1;
AS
190: E=S*T
.
,,
*"
K
•
195
:LPR
I
NT
8S(J)
630:1'0R
1=0TO
139
L
J
97:
IF Z=ILPRINT
"
632: IF
8$(})
=
''"
ll"
;USING
"
tltltltl
GOTO 660
M
-tltltltllilitltltl, litltl
635:E=B<l>*D<I>
N
,,/
";D<J>:GQTO 21
640:
LPRIN
T BSCI>
0
645
:
LPRJ
NT
"
El"
;
0
20
0:LPR!NT
"
&"
j
USING
"
ti
Ii
II
II
litl
II
p
USI
NG
"tttttltllltltl
tllltltltttttt,
l!l! N"
i
0
11
11111111
tttt,
t1t1t1"
;
r
(J)
a
210:LPRINT
"*";S
650:LPRINT
''*";
B<l
215:LPRINT
"'=";E
)
R
216:LF I
652:LPR!NT
"=";E:
Quantity
220:F=F+E
655:F=F+E
s
(for this time)
225: IF
Z=
ILET
D<
l l
660:NEXT
I
=O<
J
>:B<I>
=B<
I
680:GQSUB
900
Price
>+S:GOTO
240
685:G
~
G+F
:
F
=0
T
22/:
0<l>
=T:BC
l
>=S
700:GOTO
530
(for
this 1imc)
240
:NEXT
I
720:GOSUB
950
u
245:
INPUT
"TAPE OU
/50:END
T
OK (Y/N)
.. ;
x
900:LPRINT
"TOTAL
"
v
s
9J0:LPRINT USING
"
2'1
5:
IF
Xs<
>"Y "GOTO
Ii
ti
ti
ti
111111
~ti
ti
llli
ti ti
w
245
,
tttttl
";
F
x
250:PR!
NT
tl
As;BSC
*
915:LF
I
>,
D<*>. B<tl
920:RETURN
y
260:
FOR
1=0TO 139
950:LPRINT
"*
•
•
; t
•
G
z
,,/
265:
BS<
I
):'"
':
0(
I>=
RAND
TOTAL"
;
"
0:8<
1>=0
*
"
AS
Supplier
2/0:NEXT I
960:LPRJNT USING
"
ws
,,/
300:60SUB 900
#U U II tltlllli lltlll 11 U,
320:G=G+F
Utlll";G
XS
,,/
325:F=0
9/0:RETURN
YS
,,/
330:60
TO
13
390:
GOSUB 950
&
l lN -11
Product
name
400:
END
Quantity
STATUS
I
800-11
1,
399
Dll<-11
Price
Do not sale this PDF !!!
-
164
-
Advertisement
