Sharp PC-1500 Anwenderhandbuch Seite 138

PROGRAMMNAME:
[ Programmlisting ]
18: "C":CLEAR :
WAIT B -
15:DIM B¢Ss@)>
28:GOSUB 8@a
35:RESTORE —
37: BEEP 32
39: INPUT "BAND EI
N OK CY"ND) "5X
$
41:1F X$6>"'Y"GOTO
33
43: INPUT #"HAUSHA
LTKONTO";BCK)
45: G0SUB 399
47: USING *LPRINT
"* BUDGET **"
48:LPRINT BC¢@d3"J-
AHR" 3BC1)3 "MON
AT"
S@:FOR 1-870 14°
6@:READ AS
<: PBIPRINT. ASS "=".
88: INPUT BCI+3):
GOTO 38
85:GOTO 118
98: USING :LPRINT
AS
S5:USING :LPRINT
USING "###HHHE
> RHE" BCI+3)
144: BC 18)=B¢18)+B¢
I+3)
1i6:CLS :NEXT J
128: USING :LPRINT
"EINZELH. "
125: USING :LPRINT
USING "#####HH
> HHH' S BCLS)
126: BEEP 3
127: INPUT "BANB AU
S OK CY"N) "SX
§
128: 1F xX#$<"Y"GOTO
127
13@: PRINT #"HAUSHA
LTKONTO" 3 B¢x%)
142: END
208
285:
218:
225:
228:
232:
IN: OK: omens
» HAUSHALTKONTO
>"A'ZCLEAR :
WAIT @
DIM B¢S@) -
GGSUB 828
RESTORE
BEEP 3
INPUT "BAND .E1
i is
-4 a $.
236:
258:
eee
— 252:
253:
235:
"QNAT"3 86295 "TA
269:
278:
298:
- 298:
295:
3aa:
318:
328:
325:
328:
334:
348:
358:
351:
352:
LE. x$¢>"Y"G0TO
232
LTKONTS" 5
GOSUB 328
ae
USING :LPRINT
BC).
"x EINZELHEITE
N *
LPRINT BC1); y
Gg"
FOR 1=@TO 14.
READ As
PRINT AS; "="3
INPUT R: GOTO 3
Ba
GOTO 348
B¢I+19)=B¢C14+19
+R
BC¢34)=B¢34)+R
USING :LPRINT
AS
USING :LPRINT
USING "H##HHHE
> #HE" SR
USING :LPRINT
USING "###HH#HEE
> HHH" SBCI+19);
USING ""#E###H. #
"SBCI+lLSI/Bcle
3Bd*1BBS "RK"
S=S+R
CLS :NEXT I
USING :LPRINT
"GESAMTSUMME"
USING :LPRINT
USING "H#R##HHH
> #HE'SS
USING :LPRINT
USING "#888884
» #HE' 53 BC34)5
USING "#88. #2
")BC34)/7BC18)*
1A@; "x"
=> 1323
5a:
INPUT #"HAUSHA
PROGRAMN-NR.
PS—D-22
355:BEEP 3;
356: INPUT "BAND AU
S OK CY"N) "3X. ,
356
- B58H IF X$<>" "GOTO |
360: PRINT witnndenes,
LTKONTO"
376: END
'"B'"'? CLEAR ™
WAIT 2.
3985: BEEP 3
5@6:CLS : INPUT
5BCk)
f BA
ND EIN OK. (YN.
2 "PRS
— 5QB:1F Xs<>"¥"GOTO |
306. : 4x
518:DIM BCS@)
320: INPUT #"HAUSHA |
LTKONTO"5 BCX)
393@6:FOR 1=19TO: 34
544: BC1+16)= =BCI+16—
»+BCI)
550: B¢1)=a'
S68: NEXT I
578: FOR I=4TO 18
588: BCI >=8
SSO: NEXT I
592: BEEP 3
534: INPUT "BAND AU
S OK CY"N) "5%
$
D396: IF X$<>"Y"GOTO
5394
688:PRINT #"HAUSHA
LTKGNTO";BCK)
619: END
620:"F": CLEAR :
WAIT @
622: DIM Bés5@)
641: BEEP 3
642: INPUT "BAND AU
S OK (Y/N) "3X
$
G45: 1F x$<o"¥"GOTO
642
647:PRINT #"HAUSHA
LTKONTO"; BCX)
6598: END