Sharp PC-1500 - Page 139

All and more about Sharp PC-1500 at http://www.PC-1500.info
PR OG RAM
CALCU L AT I ON OF HOUSEHOLD ACC O UNTS
PROGR AM NO.
10
T I T LE
PS - D- 22
[ Pr ogram List I [ Memory C on te nt s ]
i'00: "O": CLEAR
:
WAJ T 0
A
i' 01 :0 JM 8< 50)
7J0 : GO S U8 8 00
72 0:9EEP 3
B
7 22: 1 NPUT " TAPE JN
c
OK<Y,N>
" ;X:t
726: IF
X$
() "Y .. GOTO
D
?22
730: lNPU T M "H OUS EH
E
OLO"; B (*)
F
73 J:LF 2
732 : US JNG
: LPRJNT G
'" :tc SUM TO TA L FO
R THE YE A R*
H
735:REST OR E
I
.J
7 40: l'OR 1=0 TO 1 4
75 0:READ AS
J
760:USJNG : LPR INT
K
AS
765:US
ING
: LPRIN T
L
US I NG
" 11 u~irn11"
, ""~ " ;B U .. 35>
M
77 0: NEXT
I
N
78 0:USIN6 : L PR !NT
"TO TA L ''
.
0
785 :USJNG !LPRJNr
USING
"" """"" ·
p
ij U U"; 8<5 0)
0
78 8! E ND
800:0ATA "FOOO EXP
Item by Item Amount
.. ., " HOUSING EX
R
for that day
P. ", "UTILI I JCS
',"CLOTHING
EX
Tot al Amount for
P. · -, • I NS . &SAN!
s
r. £ XP."
th at day
80 1 :D ATA
"EDU
C. EX
P.
"
, "E NTT M NT E
T
XP . "
1
" SOC IAL c
XP. ", " TRAN SPOR
u
TAT JOH"
v
802:0ATA "CO MN CT N
w
EXP .
..
, "MISC .
E
XP.
..
, " REPA YMEH
T" , "TAX", '
1
0Tli(
x
RS•
8J0 : D AT A
" SAU ! NG S"
y
82 0: R ET U RN
9 00 : I NP UT " YE A R=";
z
8<0>
910: IN PU T "M ON TH ="
AS
Item N am e
; B<l >
R ecei pt of Ta 1 >e .
920: I NP UT "DAY=" ; B
XS
(2)
OK•
96 0:RfTURN
8 (50
It em
by
Item
Total
Am ount
STATUS
!
l, 971
Do not sale this PDF !!!
- 133 -