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

10 PRINT"ZEILENVORSCHUB BITTE AUF 1-ZEILIG STELLEN!"
20 DIM B$(24,20),H$(70),A$(16)
30 PRINT"AUSDRUCK VON FILE ",\INPUT A$\PRINT\PRINT\PRINT\PRINT
40 FOR I=1 TO 10\PRINT\NEXT I
50 FILE#1:A$
60 INPUT#1:H$,H$,H$
70 FOR I=1 TO 24\INPUT#1:B$(I)\IF END#1 THEN 470\NEXT I
80 GOSUB 400
90 GOSUB 380
180 PRINT
190 PRINT"NAME, VORNAME: ";B$(1);", ";B$(2);TAB(59);"KONF.: ";B$(9)
200 PRINT
210 PRINT"ADR.: ";B$(4);TAB(30);"ERZIEHUNGSBERECHTIGT"
220 PRINTTAB(7);B$(5);TAB(30);B$(10);", ";B$(11)
230 PRINT"TEL.: ";B$(6);TAB(30);B$(12)\PRINT
240 PRINT"GEB.: ";
250 PRINT SEG$(B$(7),1,2)&"."&SEG$(B$(7),3,4)&"."&SEG$(B$(7),5,6);
260 PRINT TAB(30);"ADR.D.ERZBER.: ";B$(16)
270 PRINT"IN  : ";B$(8);TAB(45);B$(17)\PRINT
280 PRINT"FAHRSCHUELER: ";B$(21)
290 PRINT"BEHINDERUNGEN: ";B$(20)
300 PRINT"KINDERZAHL DER FAMILIE: ";B$(18);"    JAHRGAENGE: ";B$(19)
310 PRINT"KOMMT VON ";B$(22);" UND HAT ";B$(23);" SCHULJAHRE BISHER"
320 PRINT"BEMERKUNGEN: ";B$(24);
330 PRINT"AUFNAHME IN KLASSE:"
340 PRINT
350 GOTO 70
380 FORI=1TO70\PRINT"-";\NEXTI
390 RETURN
400 IFSEG$(B$(10),1,1)<>"+"THEN420
410 B$(10)=B$(13)\B$(11)=B$(14)\B$(12)=B$(15)
420 IF B$(10)<>"0"THEN 440
430 B$(10)=B$(1)
440 IF B$(16)<>"0" THEN 460
450 B$(16)=B$(4)\B$(17)=B$(5)
460 RETURN
470 CLOSE#1\PRINT\PRINT\PRINT\PRINT\PRINT\PRINT\PRINT"ENDE"
480 END