Sharp PC-1500 Applications Manual page 138

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROG RAM
T ITLE
CALCULATION OF HOUSEHOLD ACCOUNTS
PROGRAM NO.
PS-D-22
[ Program List
I
10: "C'' :CLEAR :
WAIT 0
15 :0 1M B<50>
20:60SUB 800
35:RES fORE
37:BEEP 3
39 : IN PUT '' TAPE JN
OK <Y,N) ";X$
41 :JF xs <>"Y"GO TO
39
43: 1NPUT U"HOUSEH
OLD";
B<
t >
45:GOSUB 900
47:USING : LPRINT
'"!<
BUDGET
*"
48: LPR INT
B< ~>;"Y
EA R" ; B< 1); "MON
TH"
50: FOR 1=0TO 14
60 :REAO A$
70 : PRINT As ;"=";
80:1NPUT 8<1+3>:
GOTO 90
85:GOTO 110
s0:uSI NG : LPRINT
A$
95: USING :LPR JNT
USING "llllllttff tt ti
, ffllff" ;B<J+3>
100:8<18> =8 <18>+8<
1+3>
1J0: CLS :NEXT I
120:US!NG :LPRINT
" TOTAL "
125: US ING :LPRI NT
US I NG
" II
ff ff
ff ff
ti
It
, tt ll ll " ; B<J8>
! 26:BEEP 3
127: JNPUT "TAPE OU
TOK <Y,N) ";X
$
128: IF XS()"Y"GOTO
!27
130: PR1 NT ll"HOUSEH
OLO " ;B<*>
140: ENO
Do not sale this PDF !!!
200:"A":CLEAR:
WAIT 0
205:0 JM 8C50 )
210:GOSU8 800
225:RESTORE
230:BEEP 3
232: INPU T "TAPE IN
OK C Y, N> " ;X$
236: JF XSC> " Y"GOT O
232
250:JNPUT ll "HOUSEH
OLO";B< t >
25t : GOSUB 900
252: LF
2
253:USJNG :LPRJNT
"*
DE TAILS * "
255: LPRIN T BCl >;''M
ONTH"; B< 2>; "0A
Y"
260:FOR 1=0TO 14
270:REAO AS
280:PRINT AS; " =" ;
290:JNPUT R:GOTO 3
00
295:GOTO 340
300:8 (!+ 191 =8<1•1 9
)+R
310:B<34> =8< 34>+R
320:USING :LPRINT
AS
325:USING :LPRINT
USING "llllffllllllll
I
tttttt " ;R
328:USI NG : LPR INT
USI NG "ll ll ff ff tt ttll
, tt11 U"; B<l+ I 9>;
US
I
NG " 1111
ff
tt
II , 11
"; BCl+l9) / B( J+
3>* 100;
" %"
330 :S=S+R
340: CLS : NEXT I
350:USING :LPR INT
"TO TAL"
351:USI N G : LPRIN T
US ING "llll ff llllffff
'111111" ;5
352:US JNG : LPRJNT
USING "ffllttllllllll
• 111111 " ; 8 <34>;
USI NG " lllltla .1111
"; 8 <34)/B<JBH
100 ; "%"
- 132-
355 : 9Ef P 3
356: IN PU! " IAPf OU
T OK <Y,N )
" ;X
$
358 •1 F X~ C) " Y"GOfO
356
360 : PRINT
ll " I IOUSF.1 1
01. 0":
fl< *'
370: ENO
500:"B": CLEAR :
WAI T
0
50S :BEEP 3
506: CLS :
I
NPUI
"rA
PE IN OK
<Y,
N>
•• j
x:s:
500 :
! F
X~ C>"Y " GOTO
506
s 10 : 0 1n
B<50>
520:
J
NPU
1
ti"
110USEH
OLO " ;B< ' l < >
530:voR
1~1sro
34
540:B <l•l6>cB<l~!6
)+8(!)
550:8 <1> ~ 0
550 : NEXT I
570 : FOR
J : 4 f 0 !8
590' . 8(1 )=0
590:NEXT
I
592: BE
EP 3
594: 1NPUT 'TAPE OU
T
OK <Y,
'I)
":X
•
596:J F X S C)''Y"GOTO
594
600:PRJNT
~ "HOUSEH
OLO":B <*I
6J 0: ENO
620 : "F":CLEf"IR :
WAIT
0
62 2: 01M BC50>
641 : BEEP 3
642 : !NPlJ T " T f"IPE OU
TOK CY,N) ";X
$
645:
! F
X8C)''Y" GOTO
64 2
54/:PR! NT ti '"HOUSEH
OLO " ;B <* >
650:ENO
(To be continued )
9