10 INPUT"DATEINAME ";D$
20 :
30 OPEN2,8,2,"WINNER"+D$+",S,R"
40 INPUT#2,N$
50 INPUT#2,V$
60 INPUT#2,S$
70 INPUT#2,W$
75 Z$="":FORI=1TO7:GET#2,A$:Z$=Z$+A$:NEXT
80 CLOSE2
90 :
100 POKE53280,0:POKE53281,0
110 PRINT"[147][152]       [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
120 PRINT"       [221]                        [221]"
130 PRINT"       [221] SPRINGREITEN-DATEI ";D$;" [221]"
140 PRINT"       [221]                        [221]"
150 PRINT"       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
160 PRINT"        [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
170 PRINT"        [221]                      [221]"
180 PRINT"        [221]  GEWINNER (";Z$;")  [221]"
190 PRINT"[176][192][192][192][192][192][192][192][179]                      [171][192][192][192][192][192][192][192][174]";
200 PRINT"[221]       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]       [221]";
210 PRINT"[221] NACHNAME :                           [221]";
220 PRINT"[221]                                      [221]";
230 PRINT"[221]  VORNAME :                           [221]";
240 PRINT"[221]                                      [221]";
250 PRINT"[221]  STRASSE :                           [221]";
260 PRINT"[221]                                      [221]";
270 PRINT"[221]  WOHNORT :                           [221]";
280 PRINT"[221]                                      [221]";
290 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
300 PRINT"      [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
310 PRINT"      [221]                          [221]"
320 PRINT"      [221] BITTE [155]LEERTASTE[152] DRUECKEN [221]"
330 PRINT"      [221]                          [221]"
340 PRINT"      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
350 :
360 GOSUB1000
370 GETA$:IFA$=""THEN370
380 :
390 Z=1:Z$="0000"
400 PRINT""SPC(10)"TEILNEHMER NR.: 0001":GOSUB1300
410 OPEN2,8,2,D$+",S,R"
420 :
430 GOSUB1300
440 GOSUB1200
450 GOSUB1100
460 GOSUB1000
470 GETA$:IFA$=""THEN470
480 Z=Z+1
490 IFST=0THEN430
500 PRINT""SPC(8)"     ENDE DER DATEI[152]     "
510 CLOSE2
520 GOTO520
1000 PRINT""SPC(13);N$
1010 PRINTSPC(13);V$
1020 PRINTSPC(13);S$
1030 PRINTSPC(13);W$
1040 RETURN
1100 INPUT#2,N$
1110 INPUT#2,V$
1120 INPUT#2,S$
1130 INPUT#2,W$
1140 RETURN
1200 PRINT""SPC(26)LEFT$(Z$,3-INT(LOG(Z)/LOG(10)));MID$(STR$(Z),2,4)
1210 RETURN
1300 PRINT""SPC(13);"                          "
1310 PRINTSPC(13);"                          "
1320 PRINTSPC(13);"                          "
1330 PRINTSPC(13);"                          "
1340 RETURN