Die Besteuerung der Renten - unter besonderer Berücksichtigunbg einer Reform des Systems der sozialen Sicherung

161
Anlage I
Programm zur mechanischen Berechnung der Lohnsteuer
verschiedener Besteuerungsalternativen
Installiert auf : Sharp PC - 1401
1 REM ***C.BY j. GROSS 10/87 ***
2 CLEAR
10 INPUT "BITTE WAEHL.SIE ",AA$:GOTO 30
15 INPUT "EST-TABELLE = E",AA$:GOTO 30
20 INPUT "LST-TABELLE = L",AA$:GOTO 30
25 GOTO 2
30 IF AA$="E" THEN 1000
35 IF AA$="L" THEN 100
40 IF AA$-"@" THEN 1
45 GOTO 30
100 REM ** LOHNSTEUER-TABELLEN **
102 CLEAR
105 PAUSE " LST/MONAT 88"
110 INPUT " LSZ-A / LST-B",AA$
115 IF AA$="A" OR AA$="B" THEN 150
120 IF AA$="@" THEN 1
125 GOTO 110
150 REM * EINGABE *
155 INPUT "LOHNSTEUERKLASSE",SK
160 IF SK=0 OR SK>6 THEN 155
165 INPUT "Z.D.KINDERFREIB.",K
170 INPUT "LOHN IN DM",AX
175 VP=1
200 REM * BEREG. BEMESSUNGSGR. *
205 X=AX*12:AB=X
210 IF SK=4 AND K=0 THEN GOSUB 295
215 IF SK=6 THEN 405
220 X=X-1044
225 IF SK=3 THEN 270
230 IF SK=5 THEN 410
235 T$="G"
240 X=X-270:GOSUB 600
245 IF SK 2 THEN 260
250 IF K=0 THEN 165
255 X=X-4752
260 IF SK=4 THEN 285
265 GOTO 275
270 X=X-540:V=1:GOSUB 600
275 X=X-(K*2484):IF SK = 3 THEN GOSUB 580
280 GOTO 460
285 X=X-(K*1242):K1= INT(K)-K:IF K1>0 THEN GOSUB 300
290 GOTO 460
295 SK=1:RETURN
300 X=X-27:RETURN
Anlage I