home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8507a.d64
/
haushaltskasse
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
13KB
|
734 lines
1050 OPEN15,8,15,"M-W"+CHR$(7)+CHR$(28)+CHR$(1)+CHR$(15)
1100 CLOSE15
1200 POKE53280,15:POKE53281,15
1300 RO$=CHR$(28)
1350 BL$=CHR$(31)
1400 PU$=CHR$(156)
1450 IN$=CHR$(18)
1500 NO$=CHR$(146)
1550 HO$=CHR$(147)
1600 CZ$=CHR$(145)
1650 Y=15:X=200
1700 DIMA1%(12,1),A2%(12),A3%(Y,12),A3$(Y),A3(Y,12),A4%(Y,X)
1800 PRINTCHR$(14);
1850 GOTO2800
2100 GETC$:IFC$=""THEN2100
2150 RETURN
2400 PRINTHO$PU$;
2450 GOSUB2550
2500 PRINTIN$" [200] [193] [213] [211] [200] [193] [204] [212] [211] [203] [193] [211] [211] [197] ";
2550 PRINTIN$" "NO$;:RETURN
2800 GOSUB2400
2850 PRINTBL$
2900 PRINT:PRINT" "IN$" F1 "NO$" = [194]UCHEN "IN$" [202] "NO$" = [202]OURNAL
2950 [153]:[153]" "IN$" F3 "NO$" = (null) O N A T S U E B E R S ."
3000 [153]:[153]" "IN$" F5 "NO$" = MID$ A H R E S U E B E R S ."
3050 [153]:[153]" "IN$" F7 "NO$" = VAL I N Z E L N E S (null) O N T O "
3100 [153]:[153]" "IN$" F2 "NO$" = (null) E U B E G I N N "
3150 [153]:[153]" "IN$" F4 "NO$" = (null) U S A T Z K O N T O"
3200 [153]:[153]" "IN$" F6 "NO$" = (null) O N A T S W E C H S E L"
3250 [153]:[153]" "IN$" F8 "NO$" = VAL N D E"
3300 [141]2100
3350 [139][198](C$)[178]74[167]11300
3400 C[178][198](C$)[171]132:[139]C[179]1[176]C[177]8[167]3300
3450 [145]C[137]7150,13650,13650,15600,3700,20700,17550,10950
3700 [141]40300
3750 [139]F1[179][177]0[167]3300
3800 [141]2400
3850 [153]BL$:[153]
3900 A$[178]"(null)TARTMONAT ALS (null)AHL = "
3950 L[178]2
4000 [141]29500
4050 [153]CZ$;
4100 [139][197](B$)[179]1[176][197](B$)[177]12[167]2800
4150 A1%(0,0)[178][197](B$)
4200 [153]:[153]
4250 A$[178]"MID$AHR = "
4300 L[178]4
4350 [141]29550
4400 A2%(0)[178][197](B$)
4450 Z[178]0
4500 A1%(0,1)[178]A1%(0,0)
4550 [141]21550
4600 [141]23950
4650 [141]23250
4700 [141]27250
4750 [139][198](C$)[178]133[167]5350
4800 [139][198](C$)[178]13[167]4100
4850 [129]A[178]0[164]A2%(A1%(0,1))
4900 A3%(A,A1%(0,1))[178]0
4950 A3%(A,0)[178]0
5000 A3$(A)[178]""
5050 [130]A
5100 [137]3800
5350 [141]2400
5400 [153]BL$
5450 [153]:[153]"(null)IEVIELE PEEKUCHUNGEN ERWARTEN (null)IE IM"
5500 [153]
5550 A$[178]"(null)ONAT = "
5600 L[178]3
5650 [141]29550
5700 RE[178][197](B$)
5750 [139]RE[177]1[167]6050
5800 [153]:[153]"UNGUELTIGER (null)ERT"
5850 [129]A[178]1[164]4
5900 [153]CZ$;
5950 [130]A
6000 [137]5550
6050 [153]:[153]"CHR$EHEN (null)IE EINE (null)ASSE (null)AFFEE TRINKEN"
6100 N[178]A1%(0,1)
6150 [141]43850
6200 [141]40300
6250 [139]F1[179][177]0[167][141]28150:[141]2400:[137]6050
6300 [141]42250
6350 A$[178]A$[170]",L,"[170][199](28)
6400 [141]43200
6450 [139]F1[179][177]0[167][141]28150:[141]2400:[137]6300
6500 [141]42800
6550 [152]2,[199](255)
6600 [141]42400
6650 N[178]A1%(0,1)
6700 [141]34750
6750 A1%(A1%(0,1),0)[178]C
6800 [141]31050
6850 MM[178]1
6900 [137]2800
7150 [139]MM[179][177]0[167]7300
7200 [141]32200
7250 [139]F1[179][177]0[167]3300
7300 N[178]A1%(0,1)
7350 [141]43850
7400 [141]42250
7450 [139]MN[178]A1%(0,1)[167]7600
7500 [141]33700
7550 [139]F1[179][177]0[167][141]42400:[137]3300
7600 [141]43200
7650 [139]F1[179][177]0[167]3300
7700 [141]2400
7750 [153]BL$
7800 [153]" ASCUER PEEKUCHUNGSENDE DRUECKEN (null)IE FUER ":[153]
7850 [153]" STR$ATUM NUR DIE (null)ASTE >(null)VAL(null)(null)(null)(null)< ":[153]
7900 A$[178]" STR$ATUM = "
7950 L[178]2
8000 [141]29550
8050 A%[178][197](B$)
8100 [139]A%[179][177]0[167]8350
8150 [141]42400
8200 [141]34750
8250 [141]31050
8300 [137]2800
8350 [139]A%[177]0[175]A%[179]32[167]8500
8400 [153]CZ$CZ$;
8450 [137]7900
8500 [153]
8550 A$[178]" (null)EXT = "
8600 [141]28450
8650 D$[178]B$
8700 G[178]A1%(0,1)
8750 [141]24400
8800 A$[178]" (null)ONTO (null)R. = "
8850 L[178]2
8900 [141]29550
8950 A[178][197](B$)
9000 [139]A[179][178]A2%(A1%(0,1))[167]9150
9050 [153]CZ$CZ$;
9100 [137]8800
9150 A1$[178]B$[170][201]("00"[170][196](A%),2)[170]D$
9200 [153]
9250 B$[178]" "
9300 [153]" STR$(null)-PEEKETRAG = "B$
9350 [141]2100
9400 [139][198](C$)[178]13[167]9900
9450 [139][198](C$)[179][177]20[167]9700
9500 [139][195](B$)[178]0[167]9600
9550 B$[178]" "[170][201](B$,[195](B$)[171]1)
9600 [153]CZ$;
9650 [137]9300
9700 [139][198](C$)[178]46[176][198](C$)[178]45[167]9800
9750 [139][198](C$)[179]48[176][198](C$)[177]57[167]9350
9800 B$[178][201](B$,7)[170]C$
9850 [137]9600
9900 B[178][181](([197](B$)[172]100)[170].5)[173]100
9950 A1$[178]A1$[170][201](" "[170][196]([181](B[172]100)),8)
10000 A3(A,A1%(0,1))[178]A3(A,A1%(0,1))[170]B
10050 A3(A,0)[178]A3(A,0)[170]B
10100 [139]A1%(A1%(0,1),1)[179]A1%(A1%(0,1),0)[167]10350
10150 A1%(A1%(0,1),0)[178]A1%(A1%(0,1),0)[170]10
10200 RE[178]A1%(A1%(0,1),0)
10250 [141]42800
10300 [152]2,[199](255)
10350 A1%(A1%(0,1),1)[178]A1%(A1%(0,1),1)[170]1
10400 RE[178]A1%(A1%(0,1),1)
10450 [141]42800
10500 [152]2,A1$
10550 A4%(A,0)[178]A4%(A,0)[170]1
10600 A4%(A,A4%(A,0))[178]A1%(A1%(0,1),1)
10650 MM[178]2
10700 [137]7700
10950 [141]2400
11000 [141]42400
11050 [128]
11300 [141]25600
11350 F1[178]0:NN[178]N:[139]N[179][177]G[167]N[178]G:[141]33700
11400 [139]F1[179][177]0[167]N[178]NN:[141]42400:[141]28150:[137]2800
11450 [141]43850
11500 [141]42250
11550 [141]40300
11600 [139]F1[179][177]0[167][141]42400:[141]28150:[137]2800
11650 [141]43200
11700 [139]F1[179][177]0[167]2800
11750 [141]12950
11800 ZE[178]0
11850 [129]RE[178]1[164]A1%(N,1)
11900 [141]42800
11950 [132]2,A1$
12000 [139][195](A1$)[179]27[167]A1$[178]" "[170]A1$:[137]12000
12050 B[178][197]([200](A1$,2))
12100 C$[178][201](" "[170][196](B),3)
12150 [139]B[178]0[167]C$[178]" 0"
12200 [153]C$" "[202](A1$,3,2)". ";
12250 [153][202](A1$,5,15);
12300 [139][197]([202](A1$,20,8))[179]0[167][153]RO$;
12350 [153][202](A1$,20,6)"."[201](A1$,2)BL$
12400 ZE[178]ZE[170]1
12450 [139]ZE[179]15[167]12700
12500 [141]27500
12550 [139][198](C$)[178]134[167]RE[178]A1%(N,1):[137]12700
12600 [141]12950
12650 ZE[178]0
12700 [130]RE
12750 [141]42400
12800 [139][198](C$)[178]134[167]2800
12850 [141]27500
12900 [137]2800
12950 [141]2400
13000 [153]BL$
13050 [153]" MID$OURNAL "[201](" "[170][196](N),2)"/";
13100 C$[178][196](A2%(0))
13150 [153][201](C$,[195](C$)[171]1)
13200 [153]
13250 [153]" (null)TO STR$ATUM (null)EXT STR$(null)-PEEKETRAG"
13300 [153]
13350 [142]
13650 [139]MM[178]0[167][141]32200:[139]F1[179][177]0[167]3300
13700 [139]C[178]3[167]15050
13750 [141]2400
13800 [153]BL$
13850 [153]" ^ = LFD. (null)ONAT":[153]
13900 [153]" * = ALLE (null)ONATE":[153]
13950 [153]" SONST (null)ONAT ALS (null)AHL":[153]:[153]
14000 B$[178]" "
14050 [153]" > "B$
14100 [141]2100
14150 A[178][198](C$)
14200 [139]A[178]13[167]14500
14250 [139]A[178]32[176]A[178]42[176]A[178]94[167]14350
14300 [139]A[179]48[176]A[177]57[167]14100
14350 B$[178][201](B$,1)[170]C$
14400 [153]CZ$;
14450 [137]14050
14500 A[178][198]([201](B$,1))
14550 [139]A[178]94[167]G[178]A1%(0,1):[137]15100
14600 [139]A[178]42[167]14800
14650 A[178][197](B$)
14700 [139]A[179]A1%(0,0)[176]A[177]A1%(0,1)[167][153][199](145);:[137]14000
14750 G[178]A:[137]15100
14800 [129]G[178]A1%(0,0)[164]A1%(0,1)
14850 [141]15200
14900 [139][198](C$)[178]134[167]G[178]A1%(0,1)
14950 [130]G
15000 [139][198](C$)[178]134[167]2800
15050 G[178]0
15100 [141]15200
15150 [137]2800
15200 [141]23950
15250 [141]23250
15300 [141]27500
15350 [142]
15600 [141]25600
15650 [153]" ---------------------------------"
15700 [153]
15750 [153]" (null)ONTONUMMER":[153]
15800 [153]" * = ALLE (null)ONTEN":[153]
15850 B$[178]" "
15900 [153]" > "B$
15950 [141]2100
16000 A[178][198](C$)
16050 [139]A[178]13[167]16350
16100 [139]A[178]32[176]A[178]42[167]16200
16150 [139]A[179]48[176]A[177]57[167]15950
16200 B$[178][201](B$,1)[170]C$
16250 [153]CZ$;
16300 [137]15900
16350 A[178][198]([201](B$,1))
16400 [139]A[178]42[167]16550
16450 D[178][197](B$)
16500 [139]D[179]0[176]D[177]A2%(G)[167][153]CZ$;:[137]15850
16550 F1[178]0:NN[178]N:[139]N[179][177]G[167]N[178]G:[141]33700
16600 [139]F1[179][177]0[167]N[178]NN:[141]42400:[141]28150:[137]2800
16650 [141]43850
16700 [141]42250
16750 [141]40300
16800 [139]F1[179][177]0[167][141]42400:[141]28150:[137]2800
16850 [159]2,8,2,"MID$OURNAL "[170]A$
16900 [141]40850
16950 [139]F1[179][177]0[167][141]42400:[141]28150:[137]2800
17000 [139][201](B$,1)[179][177]"*"[167][141]35600:[137]17250
17050 [129]D[178]0[164]A2%(G)
17100 [141]35600
17150 [139][198](C$)[178]134[167]D[178]A2%(G)
17200 [130]D
17250 [141]42400
17300 [137]2800
17550 [141]2400:[153]
17600 [153]BL$
17650 [153]" (null)ONATSWECHEL? (MID$/(null))"
17700 [141]2100
17750 [139]C$[178]"N"[167]2800
17800 [139]C$[179][177]"J"[167]17700
17850 [139]MM[178]0[167][141]32200
17900 [139]A1%(0,1)[178]12[167][138]
17950 A1%(0,1)[178]A1%(0,1)[170]1
18000 [129]B[178]0[164]A2%(A1%(0,1)[171]1)
18050 [141]2400
18100 [153]BL$
18150 [153]" (null) O N A T S W E C H S E L":[153]
18200 [153]B,[200](A3$(B),20)
18250 [153]
18300 [129]D[178]A1%(0,0)[164]A1%(0,1)[171]1
18350 [153]"(null)ONAT"[201](" "[170][196](D),3);
18400 [153][201](" "[170][196](A3%(B,D)),10);
18450 L[178]A3(B,D)
18500 [141]30500
18550 [153]A$;
18600 L[178]A3%(B,D)[171]A3(B,D)
18650 [141]30500
18700 [139]L[179]0[167][153]RO$;
18750 [153]A$BL$
18800 [130]D
18850 [153]
18900 A3%(B,A1%(0,1))[178]0
18950 A$[178]" (null)ORGABE = "
19000 L[178]5
19050 [141]29550
19100 A3%(B,A1%(0,1))[178][197](B$)
19150 [130]B
19200 G[178]A1%(0,1)
19250 A2%(A1%(0,1))[178]A2%(A1%(0,1)[171]1)
19300 [141]23950
19350 [141]23250
19400 [141]27250
19450 [139][198](C$)[178]134[167]20250
19500 [129]A[178]0[164]A2%(A1%(0,1))
19550 A3%(A,0)[178]A3%(A,0)[170]A3%(A,A1%(0,1))
19600 [130]A
19650 [139]A1%(0,0)[178]A1%(0,1)[167]C[178]([181](A1%(A1%(0,0),1)[173]10)[170]1)[172]10:[137]6050
19700 C[178]0
19750 [129]A[178]A1%(0,0)[164]A1%(0,1)
19800 C[178]C[170]A1%(A,1)
19850 [130]A
19900 C[178]([181](C[173](A1%(0,1)[171]A1%(0,0))[173]10)[170]1)[172]10
19950 [129]A[178]0[164]Y
20000 A4%(A,0)[178]0
20050 [130]A
20100 N[178]A1%(0,1)
20150 [141]34750
20200 [137]6050
20250 [129]A[178]0[164]A2%(A1%(0,1))
20300 A3%(A,A1%(0,1))[178]0
20350 [130]A
20400 A1%(0,1)[178]A1%(0,1)[171]1
20450 [137]17550
20700 [139]MM[178]0[167][141]32200
20750 [141]2400
20800 [153]:[153]BL$
20850 [153]" (null) E U E (null) O N T E N"
20900 [153]:[153]
20950 [139]A2%(A1%(0,1))[178]Y[167]21200
21000 Z[178]A2%(A1%(0,1))[170]1
21050 [141]21600
21100 [141]31050
21150 [137]2800
21200 [153]"VALS SIND KEINE (null)ONTEN MEHR FREI"
21250 [141]27050
21300 [137]2800
21550 [153]
21600 [129]B[178]Z[164]Y
21650 A3$(B)[178]""
21700 A3%(B,A1%(0,1))[178]0
21750 [141]2400
21800 [153]:[153]BL$
21850 [153]"CHR$EBEN (null)IE JEZT DEN (null)ONTENNAMEN UND":[153]
21900 [153]"DIE (null)OLLVORGABE (=(null)ONATSBUDGET IN":[153]
21950 [153]"VOLLEN STR$(null)) EIN":[153]
22000 [153]"(null)ENN (null)IE KEINE WEITEREN (null)ONTEN ANLEGEN":[153]
22050 [153]"WOLLEN, DRUECKEN (null)IE NUR DIE (null)ASTE ":[153]
22100 [153]" >(null)VAL(null)(null)(null)(null)<":[153]:[153]
22150 [153][201](" "[170][196](B),4);
22200 [153]" (null)ONTONAME"
22250 [153]
22300 A$[178]" > "
22350 [141]28450
22400 [139][198](B$)[178]32[167]B[178]Y:[137]22850
22450 A3$(B)[178]B$
22500 [153]
22550 A2%(A1%(0,1))[178]B
22600 A$[178]" (null)ORGABE = "
22650 L[178]5
22700 [141]29550
22750 A3%(B,A1%(0,1))[178][197](B$)
22800 A3%(B,0)[178]A3%(B,0)[170]A3%(B,A1%(0,1))
22850 [130]B
22900 G[178]A1%(0,1)
22950 MM[178]2
23000 [142]
23250 [153]" (null)UMME";
23300 [153][201](" "[170][196](C),10);
23350 L[178]F
23400 [141]30500
23450 [153][201](A$,10);
23500 L[178]C[171]F
23550 [141]30500
23600 [139]C[171]F[179]0[167][153]RO$;
23650 [153][201](A$,10)BL$
23700 [142]
23950 [141]2400
24000 [153]BL$
24050 [139]G[179][177]0[167]24300
24100 [153]" (null) O N A T E ";
24150 [153]A1%(0,0)"-"A1%(0,1);
24200 [153]"/"A2%(0)
24250 [137]24400
24300 [153]" (null) O N A T "G;
24350 [153]" / "A2%(0)
24400 [153]
24450 C[178]0
24500 F[178]0
24550 [129]A[178]0[164]A2%(A1%(0,1))
24600 [153][201](" "[170][196](A),2);
24650 [153]" ";
24700 [153][200](A3$(A)[170]" ",9)" ";
24750 A$[178][201](" "[170][196](A3%(A,G)),5)
24800 [153][163]13)A$;
24850 L[178]A3(A,G)
24900 [141]30500
24950 [153][201](A$,10);
25000 L[178]A3%(A,G)[171]A3(A,G)
25050 [141]30500
25100 [139]L[179]0[167][153]RO$;
25150 [153][201](A$,10)BL$
25200 C[178]C[170]A3%(A,G)
25250 F[178]F[170]A3(A,G)
25300 [130]A
25350 [142]
25600 [139]MM[178]0[167][141]32200:[139]F1[179][177]0[167]3300
25650 [141]2400
25700 [153]BL$
25750 [153]" ^ = LFD. (null)ONAT":[153]
25800 [153]" SONST (null)ONAT ALS (null)AHL"
25850 [153]
25900 B$[178]" "
25950 [153]" > "B$
26000 [141]2100
26050 A[178][198](C$)
26100 [139]A[178]13[167]26400
26150 [139]A[178]32[176]A[178]94[167]26250
26200 [139]A[179]48[176]A[177]57[167]26000
26250 B$[178][201](B$,1)[170]C$
26300 [153]CZ$;
26350 [137]25950
26400 A[178][198]([201](B$,1))
26450 [139]A[178]94[167]G[178]A1%(0,1):[137]26650
26500 A[178][197](B$)
26550 [139]A[179]A1%(0,0)[176]A[177]A1%(0,1)[167][153]CZ$;:[137]25900
26600 G[178]A
26650 [142]
26900 [141]28100
26950 [153]" "IN$" STR$RUCKER IST NICHT EINGESCHALTET ";
27000 [142]
27050 [141]28100
27100 [153]" "IN$" (null)ATN(null)(null)VALCLOSESTR$(null)(null)VALLEN(null)VAL(null) ";
27150 [141]2100
27200 [142]
27250 [141]28100
27300 [153]" "IN$" F1 = OK F3 = (null)OREKKTUR ";
27350 [141]2100
27400 [139][198](C$)[179]133[176][198](C$)[177]134[167]27350
27450 [142]
27500 [141]28100
27550 [153]" "IN$" F1=WEITER F3=(null)ENUE F5=STR$RUCKER ";
27600 [141]2100
27650 [139][198](C$)[179]133[176][198](C$)[177]135[167]27600
27700 [139][198](C$)[178]133[167][142]
27750 [139][198](C$)[178]134[167][142]
27800 [139][198](C$)[178]135[167][141]37500
27850 [139]DR[178]0[167]27600
27900 [137]27500
27950 [141]28100
28000 [153]" "IN$" TASTE DRUECKEN ";
28050 [137]27150
28100 [151]214,24:[151]211,0:[158]58732:[142]
28150 [151]214,20:[151]211,0:[158]58732:[137]27100
28450 B$[178]""
28500 [153]A$;B$" "
28550 [141]2100
28600 [139][198](C$)[178]13[167]29250
28650 [139][198](C$)[179][177]20[167]28900
28700 [139][195](B$)[178]0[167]28800
28750 B$[178][200](B$,[195](B$)[171]1)
28800 [153]CZ$;
28850 [137]28500
28900 A[178][198](C$)
28950 [139][198](C$)[178]58[176][198](C$)[178]44[167]28550
29000 [139][198](C$)[178]32[167]29100
29050 [139]((A[177]34[175]A[179]96)[176](A[177]192[175]A[179]219))[178]0[167]28550
29100 B$[178]B$[170]C$
29150 B$[178][200](B$,15)
29200 [137]28800
29250 B$[178][200](B$[170]" ",15)
29300 [142]
29500 :
29550 [153]
29600 B$[178]" "
29650 B$[178][200](B$,L)
29700 [153]A$B$" "
29750 [141]2100
29800 [139][198](C$)[178]13[167]30250
29850 [139][198](C$)[179][177]20[167]30050
29900 B$[178]" "[170][200](B$,L[171]1)
29950 [153]CZ$;
30000 [137]29700
30050 [139][198](C$)[179]48[176][198](C$)[177]57[167]29750
30100 B$[178][201](B$,L[171]1)[170]C$
30150 [137]29950
30200 [139][197](B$)[179]1[176][197](B$)[177]32768[167]29750
30250 [142]
30500 L[178][181](L[172]100[170].5)
30550 A$[178][196](L)
30600 M[178][195](A$)
30650 [139]L[178]0[167]A$[178]"0.00":[137]30750
30700 A$[178][200](A$,M[171]2)[170]"."[170][201](A$,2)
30750 A$[178][201](" "[170]A$,10)
30800 [142]
31050 [139]MM[178]1[167][142]
31100 [159]2,8,2,"@:(null)ONT LEFT$AUSHALT,S,W"
31150 [152]2,A2%(0)
31200 [152]2,A1%(0,0)
31250 [152]2,A1%(0,1)
31300 [129]A[178]A1%(0,0)[164]A1%(0,1)
31350 [152]2,A1%(A,0)
31400 [152]2,A1%(A,1)
31450 [152]2,A2%(A)
31500 [129]B[178]0[164]A2%(A)
31550 [152]2,A3%(B,A)
31600 [152]2,A3(B,A)
31650 [130]B
31700 [130]A
31750 [129]B[178]0[164]A2%(A1%(0,1))
31800 [152]2,A3$(B)
31850 [130]B
31900 [160]2
31950 [142]
32200 [141]40300
32250 [139]F1[179][177]0[167][141]42400:[142]
32300 [141]42250
32350 [159]2,8,2,"(null)ONT LEFT$AUSHALT"
32400 [141]40850
32450 [139]F1[179][177]0[167][141]42400:[142]
32500 [132]2,A2%(0),A1%(0,0),A1%(0,1)
32550 [129]A[178]A1%(0,0)[164]A1%(0,1)
32600 [132]2,A1%(A,0),A1%(A,1),A2%(A)
32650 [129]B[178]0[164]A2%(A)
32700 [132]2,A3%(B,A),A3(B,A)
32750 [130]B
32800 [130]A
32850 [129]B[178]0[164]A2%(A1%(0,1))
32900 [132]2,A3$(B)
32950 [130]B
33000 [129]A[178]0[164]A2%(A1%(0,1))
33050 A3%(A,0)[178]0:A3(A,0)[178]0
33100 [129]B[178]A1%(0,0)[164]A1%(0,1)
33150 A3%(A,0)[178]A3%(A,0)[170]A3%(A,B)
33200 A3(A,0)[178]A3(A,0)[170]A3(A,B)
33250 [130]B
33300 [130]A
33350 [160]2
33400 MM[178]1
33450 [142]
33700 [141]43850
33750 [141]42400
33800 [141]40300
33850 [139]F1[179][177]0[167][141]28150:[137]2800
33900 [159]3,8,3,"MID$OURN.RIGHT$NDEX "[170]A$
33950 [141]40850
34000 [139]F1[179][177]0[167][142]
34050 [129]A[178]0[164]Y
34100 [132]3,A4%(A,0)
34150 [139]A4%(A,0)[178]0[167]34350
34200 [129]B[178]1[164]A4%(A,0)
34250 [132]3,A4%(A,B)
34300 [130]B
34350 [130]A
34400 [160]3
34450 MN[178]N
34500 [142]
34750 [139]MM[178]1[167][142]
34800 [141]43850
34850 [159]3,8,3,"@:MID$OURN.RIGHT$NDEX "[170]A$[170]",S,W"
34900 [129]A[178]0[164]Y
34950 [152]3,A4%(A,0)
35000 [139]A4%(A,0)[178]0[167]35200
35050 [129]B[178]1[164]A4%(A,0)
35100 [152]3,A4%(A,B)
35150 [130]B
35200 [130]A
35250 [160]3
35300 MN[178]N
35350 [142]
35600 [141]36850
35650 ZE[178]0
35700 [139]A4%(D,0)[178]0[167]36550
35750 [129]B[178]1[164]A4%(D,0)
35800 RE[178]A4%(D,B)
35850 [141]42800
35900 [132]2,A1$
35950 [139][195](A1$)[179]27[167]A1$[178]" "[170]A1$:[137]35950
36000 [153][202](A1$,3,2)". "[202](A1$,5,15);
36050 [139][197]([202](A1$,20,8))[179]0[167][153]RO$;
36100 [153][163]28)[202](A1$,20,6)"."[201](A1$,2)BL$
36150 ZE[178]ZE[170]1
36200 [139]ZE[179]15[167]36450
36250 [141]27500
36300 [139][198](C$)[178]134[167]B[178]A4%(D,0):[137]36450
36350 [141]36850
36400 ZE[178]0
36450 [130]B
36500 [139][198](C$)[178]134[167][142]
36550 F[178]A3(D,G)
36600 C[178]A3%(D,G)
36650 [153]
36700 [141]23250
36750 [141]27500
36800 [142]
36850 [141]2400
36900 [153]BL$
36950 [153]D[200](A3$(D),18)[163]23)A3%(D,G);
37000 B$[178][196](A2%(0))
37050 [153][163]30)[201]([196](N),2)"/"[201](B$,[195](B$)[171]1)
37100 [153]
37150 [153]"(null)AG (null)EXT STR$(null)-PEEKETRAG"
37200 [153]
37250 [142]
37500 [159]1,4
37550 DR[178]0
37600 [151]768,61
37650 [152]1
37700 [160]1
37750 [151]768,139
37800 [139]ST[179][177][171]128[175]ST[179][177][171]125[167]37950
37850 [137]26900
37950 [141]28100
38000 [153]NO$" ";
38050 B$[178]" "
38100 [141]28100
38150 [153]" STR$ATUM: "B$;
38200 [141]2100
38250 A[178][198](C$)
38300 [139]A[178]13[167]38700
38350 [139]A[179][177]20[167]38450
38400 B$[178]" "[170][200](B$,16):[137]38100
38450 [139]A[178]32[167]38550
38500 [139]((A[177]34[175]A[179]96)[176](A[177]192[175]A[179]219))[178]0[167]38200
38550 B$[178][201](B$,16)[170]C$
38600 [137]38100
38700 [159]4,4,0
38750 [152]4,[199](27)[199](64)[199](27)[199](108)[199](15);
38800 [152]4,[199](27)[199](56)
38850 [160]4
39000 [159]4,4,7
39050 [129]H[178]1024[164]2023[169]40
39100 I[178]0
39150 DR$[178]""
39200 [129]J[178]0[164]39
39250 C[178][194](H[170]J)
39300 [139]C[178]96[176]C[178]224[167]C[178]C[171]64
39350 [139]C[177]127[175]I[178]0[167]DR$[178]DR$[170][199](18):I[178]1
39400 [139]C[177]127[175]I[178]1[167]C[178]C[171]128:[137]39500
39450 [139]I[178]1[167]I[178]0:DR$[178]DR$[170][199](146)
39500 [139]C[179]32[167]C[178]C[170]64:[137]39600
39550 [139]C[177]64[167]C[178]C[170]32
39600 DR$[178]DR$[170][199](C)
39650 [130]J
39700 [152]4,DR$
39750 [130]H
39800 [129]H[178]1[164]5
39850 [152]4
39900 [130]H
39950 [160]4
40000 DR[178]1
40050 [142]
40300 [151]768,61
40350 [159]1,8,0,"TEST"
40400 [160]1
40450 [151]768,139
40500 [139]ST[179][177][171]128[175]ST[179][177][171]125[167][141]42250:[141]40850:[142]
40550 F1[178]0
40600 [141]28100
40650 [153]" "IN$" PEEKITTE ASCLOPPY CHR$ER.(null)R. 8 EINSCHALTEN ";
40700 F1[178]1
40750 [160]15
40800 [142]
40850 [132]15,F1,F$,F2,F3
40900 [139]F1[178]0[167][142]
40950 [141]28100
41000 [139]F1[179][177]74[167]41100
41050 [153]" "IN$" PEEKITTE STR$ISKETTE EINLEGEN "NO$" ";:[142]
41100 [139](F1[178]62[176]F1[178]26)[178]0[167]41750
41150 [153]CZ$" "IN$" ASCALSCHE STR$ISKETTE IM (null)AUFWERK "NO$" "
41200 [160]3
41250 [159]3,8,3,"#"
41300 [152]15,"U1 3 0 18 0"
41350 [152]15,"B-P 3 144"
41400 B$[178]""
41450 [129]A[178]1[164]16
41500 [161]#3,D$
41550 [139]D$[178]""[167]D$[178][199](0)
41600 B$[178]B$[170]D$
41650 [130]A
41700 [153]" "IN$" STR$ISKETTE = "B$" "NO$" ";:[142]
41750 [153]CZ$" "IN$" STR$ I S K E T T E N F E H L E R "
41800 [153]" "IN$;
41850 [153][201](" "[170][196](F1),3);
41900 [153]" ";
41950 [153][200](F$[170]" ",18);
42000 [153]" "IN$;
42050 [153][201](" "[170][196](F2),5);
42100 [153][201](" "[170][196](F3),5);
42150 [153]" "NO$;
42200 [142]
42250 [160]15
42300 [159]15,8,15,"I"
42350 [142]
42400 [160]2
42450 [160]3
42500 [160]15
42550 [142]
42800 HB[178][181](RE[173]256)
42850 LB[178]RE[171](HB[172]256)
42900 [152]15,"P"[170][199](2)[170][199](LB)[170][199](HB)[170][199](1)
42950 [142]
43200 A$[178]"MID$OURNAL "[170]A$
43250 [159]2,8,2,A$
43300 [141]40850
43350 [139]F1[179][177]0[167][141]42400
43400 [142]
43650 [131]"MID$AN","ASCEB","(null)RZ"
43700 [131]"ATNPR","(null)AI","MID$UN"
43750 [131]"MID$UL","ATNUG","(null)PT"
43800 [131]"(null)KT","(null)OV","STR$EZ"
43850 [140]
43900 [129]W[178]1[164]N
43950 [135]A$
44000 [130]W
44050 [142]