Sharp PC-1500 - Page 175

All and more about Sharp PC-1 500 at http://www.PC-1500.info
PROGR AM
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
USIN G " 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
)
22 0:F=F+E
652:LPRlNT u=•'; E
E
Total (for this time)
225: IF Z:=ILE T O< I >
655:F=F+E
F To tal by custo mer
=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
'' T APE OU
720:GOSUB 950
l
T OK ?CY/N)
" .
.750: EN O
'
J
Xt
900:LPRINT
''TTL I•
246: IF Xt<>'' Y' 'GOTO
910:LPRJNT USING
"
K
245
111111111111111111 1111 11 1111
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
96 0:LPRJ NT
G
p
3 00:GOSU8 900
970:RETURN
0
320 :G • G+F
325 :F • 0
R
330:GO TO 13
Quantity (for this
390:GOSUB 950
STATUS l
s
time)
400:ENO
l, 32 0
5
00: "B" : CLEAR
T Price (for th is lime)
510:0IM 8$ ( 139 >,0<
139>. B< 139>
u
515 :LF
2
v
S2 0:LPRINT
"** BIL
L ING LIST * *"
w
53 0: INPU T "CUSTOM E
x
R COOE=";At:
GOTO 540
y
535:GO TO 720
z v
5 40 : INPUT "T APE JN
OK ?CY/N )
•. ; x
AS cust om er code
$
ws
v
5 45: IF Xt< >"Y "GOTO
540
XS
v
55 0: INPUT
ll A$;Bt<*
YS
v
>. O <* >. 8<*>
610:LPRJNT
• •t ,, ; A$
es O E: Product numb er
. "
*''
'
63 0: FOR 1=0 TO
1 39
e (l l!J
Quantity
632: IF Bt<J>= ""
DOil
Pri ce
GOTO 660
635: E=B< I >* O< I>
640:LPRINT
8$CJ )
Do not sale this PDF !!!
-169 -