Download (7333kb, 52 pages) - The Sharp MZ-Series

3486- MEM 4BB:INPUT "BARMITTEL= '; 862:RETURN
Ferner filge ich einen Vorsch!aG bri, wir man dBn PC 1500 (~)
2313. IHe) 869:LPRINT '*••••••*.*.1
~~~~*
Cl)
••**.*•••** ••••*••• 2:REM "C/P.HARRY TOMS* 418:IHPUT ·BAUSPARGUTH.= •••••••••••• Y 0LET SK=SK­
:3 BETRAG (.2*) VERGLICHEN. 129:INPUT ·SONST.EINNAHM '; HO): INPUT 'ZINS D=';N(s) 320: INPUT "W i ev i e I 16:GOTO 380
"d DAZU DIE DARAUS ZU ERWAR EN= ';S EN %= ';Z(1): INPUT 89B:RETURN harte Eier?"; 520:END
... TENDE MOHATL.BELASTUNG 12S:E=N+S 'TILGUNG %= 9;T(1) 891:LPRINT •••*••••••••3 HE:HE=ABS HE:H
rt MIT DEN VERF.MITTELN.1* 139: INPUT 'KOST.LEDENSMI 68B:INPUT ·OEFFEHTL.NITT ............' E=INT HE
..,
ro VERGLICHEN UND DIE DIF­
T.= ';Kon EL= '; H(2): INPUT 'Z 892:IF A(3 THEN LPRINT •
FEREHZ AUFGEZEIGT. 325:IF WE+HE=0GOTO
13S:INPUT 'KFZ-KOSTEN= • INSEN %= ";Z(2): ZU FINANZIER.=·;N(S)
STEUERERLEICHTERUNGEN/~~~
'310
::r: ;K( 1) INPUT "TILGUNG %= '; 893:LPRINT 'FINANZIERBAR
WURDEH NICHT BEDACHT,DASIC
330:MT=3+(HE>0)*4:
It 149: INPUT 'VERSICHERUNGE T(2) =';F
ZWAR IMMER ANGEPRIESEN
SK=60
'"1) N" ';K(2) 690:INPUT "ARBEITGEBERDA 894:LPRINT 'DIFFERENZ
WERDEN,ABER NICHT JEDER
340:0=(TIME -lNT (
rt 14S:IHPUT ·SONST.KOSTEHa RL.= ';H(3): INPUT • =';D
HAT ANSPRUCH DARAUF !!! TIME /100>*100
AD;,
'; KG) ZINSEH %= ';Z(3): 89S:LPRINT "MONATSBELAST
DIE AUSGABE ERFOLGT AUF
>*10000
'-' 15B:K(4)=K(B)+K(1)+K(2)+ INPUT 'TILGUNG %= '; • ="; Y
I-' DRUCKER(CE-125/CE-126P). 350:N=(T1ME -INT (
,'t\
K(3) T(3) 896:LPRINT ·NONATL.MITTE
LAESST SICH ABER DURCH 16B:K(S)=K(4)/1BB.29 7B9:INPUT 'SONSTIGE MITT TIME /100)*100
L=';M
AEHDERH VOH( LPRIHT IN 17B:INPUT ·HEIZ./STROM/W EL= "nH4): INPUT 'Z
>*10000
897:LPRINT ·MON.DIFFEREN
PRIHT(~69-898).DIE AUS­ ASSER= ";K(6) INSEN 360:IF N=OGOTO 350
%~ ';Z(4): ZZ:';U
GABE 1ST NUN IM DISPLAY. 189:INPUT ·INSTANDHALT.- INPUT 'TILGUHG %= '; 898zRETURH
370;IF (MT=4)+(WE)
HDCH EIN TIP : DIE EIH­ ';K(7) T(4) 0)+(SK=0)=3
n~n~nnn~n~nnnnnnnnnnnnnn
GABEH KOEHHEH Z.B.: SO 198:K(S)=K(S)+K(6)+K(7) 719:FOR Q=9 TO 4 •••• PROBEAUSDRUCK •••• GOTO 410
\ ~-;
ERFOLGEH: EHTER \ r'
RECHNUNG WERDEN IM DIS­ GO TO 83B 76B:IF A.~ "2. \ .­ /
GESCHRIEBEN. To~ = ';B(B) *': END GES.KOST.HAUS= e.ee
T=0)
~c;.'\ ._1 J
\ .,. \
%%%%%%%%%%%% Omptedas tr. 27c
____________. 3000 Hannover 1 32B:INPUT "ERSCHLISSUNG= 8SB:BEEP 1: WAIT 2B8: - EIGENMITTEL= e.eB 420:IF WW=1PRINT W
"; B( 1) PRINT "BITTE DIE AHG BEN.FREMDGELD= e.BB
W;~$(MT+1+(HE=
•••••••• * •••••••••••• * •• 33B:INPUT 'HAUSKOSTEN= • EFORDERTEN": BEEP 1: ·**··*.·*·.3••••••*••••• 0)*4);"s Ei is
;B(2) PRINT 'DATEN EINGEBE ZU FINANZIER.= 8.88 t fer- t i 9 ! ,. :
34B:INPUT ·KELLERKOST.= N ! • FINANZIERBAR = B.8B GOTO 440
'jB(3) 86B:BEEP 1: PRINT 'DIE E DIFFERENZ B.BB 430:PRINT WW;(ii$(MT
3SB:INPUT "GEBUEHREN= " IN- UND AUSGABE ": MONATSBELAST.= B.BB +1+(HE=0)l4)j"
B(4) BEEP 2: PRINT 'ERFOL MOHATL.MITTEL= B.Be Eier " fer-t i
360:INPUT 'AUSSEHAHLAGEN GT IN *MONATLICHEN.· MON.DIFFERENZ= 8.8B 9 ! "
= ';B(S) : BEEP 1 440:FOR '(=1TO 5
370:B(6)=B(9)+BC1)+BC2)+ 861:PRINT "BETRAEGEHCAUS ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
B(3)+B(4)+B(S) SER IN .3.)': WAIT %%%%%%%%%%%%%%%%%%%%%%%%
'\ .
cs. .
~)