Sharp PC-1500 Applications Manual page 175

All and more about Sharp PC-1 500 at http://www.PC-1500.info
PROG RAM
BILLING
LEDGER AND LIST
PROGRAM NO.
5
TI TL E
PS- D-27
( Program List ) [ Memory Contents
I
200 :LPRINT
II
B";
645 : LPRINT
ol
e
II :
A
USING " 11111111111111
USING " 11111111111111
B
11111111111111, 111111 ";
T
11111111111111, llllli"; 0
2J0:LPRJNT
.. t •• ;
s
< I )
c
2J5:LPRINT
,, =''
i
E
650:LPRINT
" *" iB <l
D
2J6:LF I
)
220 :F=F+E
652:LPRlNT
u=•'; E E
Total (for this time)
225: IF Z:=ILET O< I >
655:F=F+E
F
Total by customer
=O(J) :B <l> =B<l
660:NEXT I
)+S:GOTO 240
680:GOSUB 900
G
Grand lolal
22/:0<l>=T:B<l>=S
685:G.,G+F:F=0
H
240:NEXT
I
700:GOTO 530
v
245: INPUT
'' TAPE OU
720:GOSUB 950
l
T OK ?CY/N) " .
.750: ENO
'
J
Xt
900:LPRINT
''T TL
I•
246: IF Xt<>'' Y''GOTO
910:LPRJNT USING
"
K
245
1111111111111111111111111111
L
250:PRINT llAt;Bt<l:
, 111111"; F
>, 0<' * >.
8<l:>
915 :LF
l
M
260: FOR 1=0TO N-1
920:RETURN
N
v
265:8$(!) =''":0(!) •
950:LPRINT
"*
GTT
0
0:8(!)=0
L
* "
270:NEXT l
960:LPR JNT
G
p
300:GOSU8 900
970:RETURN
0
320 :G• G+F
325 :F• 0
R
330:GOTO 13
Quantity (for this
390:GOSUB 950
STATUS l
s
time)
400:ENO
l, 320
500: "B" : CLEAR
T Price (for this lime)
510:0IM 8$ ( 139>,0<
139>. B< 139>
u
515 :LF
2
v
S20:LPRINT "**
BIL
LING LIST **"
w
530: INPU T "CUSTOME
x
R COOE=";At:
GOTO 540
y
535:GOTO 720
z
v
5 40 : INPUT "TAPE JN
OK ?CY/N )
•. ; x
AS
customer code
$
ws
v
5 45: IF Xt< >"Y"GOTO
540
XS
v
550: INPUT llA$;Bt<*
YS
v
>.
O<* >. 8<*>
610:LPRJNT
••t ,, ;
A$
es
O E:
Product number
.
"
*''
'
630: FOR 1=0 TO
139
e
(ll!J
Quantity
632: IF Bt<J>=""
DOil
Price
GOTO 660
635: E=B< I >* O< I >
640:LPRINT
8$CJ )
Do not sale this PDF !!!
-169 -