Directory of image this file is from
This file as a plain text file

10 DIM T$(24,12),D$(24,20),H$(70),B$(20),B$(24,20),K$(70)
12 DIM L$(4)
14 L$="0000"
15 T$(1)="NA"
20 T$(2)="VO"
30 T$(3)="MGNR"
40 T$(4)="PLZ&WO"
50 T$(5)="STR&HNR"
55 T$(6)="KIZ"
56 T$(7)="KNA"
57 T$(8)="KVO"
58 T$(9)="KLA"
59 T$(10)="MBEITR"
60 T$(11)="BANK"
61 T$(12)="BLZ"
62 T$(13)="KTO"
90 T$(14)="BEMKG"
120 PRINT"DATUM"\H$="0000"\INPUT H$\H$=SEG$(H$,3,6)
150 PRINT"BENUTZER",\INPUT B$
160 B=14\S$="***"\Z=0
170 K$="AN:FG"&H$&".BA"
180 FILEV#1:K$
184 D$(3)=SEG$(L$,1,4-L)&D$(3)
190 PRINT"DIE DATEN WERDEN AUF FILE ";SEG$(K$,4,9);" GESPEICHERT"
200 PRINT\PRINT\PRINT
210 PRINT#1:B$\PRINT#1:STR$(B)\PRINT#1:S$&S$&S$
220 A=1\FOR I=1 TO 24\D$(I)="0000"\NEXT I
230 Z=Z+1
240 FOR I=A TO B
250 PRINTT$(I);\INPUT H$\IF H$="000"THEN 340
260 GOSUB 530
265 IF W1=1 THEN 250
267 IF W2=1 THEN 240
270 D$(I)=H$
280 NEXT I
282 L=LEN(D$(3))
284 D$(3)=SEG$(L$,1,4-L)&D$(3)
290 FOR I=1 TO B
300 PRINT#1:D$(I)
310 NEXT I
320 PRINT\PRINT\PRINT\PRINT\PRINT
330 GOTO 220
340 PRINT#1:S$&S$&S$&S$\PRINT#1:STR$(Z-1)\CLOSE#1
350 PRINTZ-1;"DATENSAETZE WURDEN AUF FILE ";SEG$(K$,4,9);
360 PRINT" GESPEICHERT"
370 PRINT\PRINT\PRINT\PRINT\PRINT
380 PRINT"FOLGENDE MITGLIEDER WURDEN VON"
390 PRINT B$
400 PRINT"IN DIE STAMMDATEI EINGETRAGEN"
410 PRINT
420FILE#1:K$\INPUT#1:B$,B$,B$
430 FOR I=1 TO Z-1
440 FOR K=1 TO 6\INPUT#1:B$(K)\NEXT K
450 PRINT B$(1)
452 PRINT B$(2);",";B$(3)
454 PRINT B$(4);TAB(LEN(B$(4))+2);B$(5)
455 PRINT
460 FOR J=7 TO 14\INPUT#1:H$\NEXT J
470 IF I/15-INT(I/15)<>0 THEN 490
480 GOSUB 600
490 NEXT I
500 PRINT\PRINT "ENDE"
510 CLOSE #1
520 STOP
530 REM SUBR.PRUEF
535 W1=0\W2=0
540 IF LEN(H$)<=20 THEN 560
550 PRINT"MEHR ALS 20 ZEICHEN,ERBITTE KUERZERE EINGABE"\W1=1\GOTO590
560 IF H$<>"^" THEN 580
570 A=I-1\W2=1\IF A>0THEN590\A=1\GOTO590
580 IF H$<>SEG$(H$,1,-1)THEN590\H$="0"\GOTO590
590 RETURN
600 FOR L=1 TO 17\PRINT\NEXT L
610 FOR L=1 TO 20\PRINT"-";\NEXT L\PRINT\PRINT\PRINT\PRINT
620 RETURN
630 END