Sharp PC-1500 Applications Manual page 139

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
CALCULAT ION OF HOUSEHOLD ACCOUNTS
PROGRAM NO.
10
T I T LE
PS- D- 22
[ Program List
I
[ Memo ry Contents ]
i'00: "O": CLEAR
:
WAJ T
0
A
i' 01 :0 JM 8 <50)
7J0 : GOSU8 800
720:9EEP 3
B
722: 1 NPUT " TAPE JN
c
OK<Y,N>
" ;X:t
726: IF X$() "Y .. GOTO
D
?22
730: lNPU T M "HOUSEH
E
OLO"; B(*)
F
73 J :LF 2
732: US
JNG : LPRJNT
G
'":tcSUM TOTAL FO
R THE YEAR*
H
735:RES TORE
I
.J
740: l'OR 1=0TO 1 4
750: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
770: NEXT
I
N
780:US IN6 : LPR !NT
" TOTAL ''
.
0
785 : US JNG ! LPRJNr
US I NG """""""·
p
ij UU";
8<50)
0
788! END
800:0ATA "FOOO EXP
Item by Item Amount
.. ., "HOUSING EX R
for that day
P. ", "UTILI I JCS
',"CLOTHING EX
To tal Amount for
P. ·-, • I NS . &SAN! s
r.
£XP."
that day
80 1 :DATA
"EDU C. EX
P.
"
, " ENTT M NT
E
T
XP . "
1
"SOC IAL
c
XP. ", " TRANSPOR
u
TAT JOH"
v
802:0ATA "COM NCTN
w
EXP .
..
, "MISC .
E
XP.
..
, "REPAYMEH
T" , "TAX" , ' 1 0Tli(
x
RS•
8J0 : DAT A
" SAU! NGS"
y
820: RETU RN
900 : INPUT
" YEAR=";
z
8<0 >
9 10 : I N PU T "MON TH="
AS
Item Name
; B<l >
Receipt of Ta1 >e.
920: INPUT
"DAY= " ; B
XS
(2)
OK•
960:RfTURN
8 (50
Item
by
Item
Total Amount
STATUS
!
l, 971
Do not sale this PDF !!!
- 133-