File KARTEI.BA (BASIC source file)

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:"DTA1:"&A$&".BA"
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
100 PRINT
110PRINT"     I        I        I        I       I       I        I";
120PRINT"        I"
130PRINT"5    I  6     I   7    I   8    I   9   I  10   I  11    I";
140PRINT"  12    I 13"
150PRINT"     I        I        I        I       I       I        I";
160PRINT"        I"
170 GOSUB 380
180 PRINT\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 PRINTTAB(33);"AUFNAHME AM "&SEG$(A$,1,2)&"."&SEG$(A$,3,4)&".1975"
340 FOR I=1TO15\PRINT\NEXTI
350 GOTO 70
360 FOR I=1TO8\PRINTTAB(I*9);"I";\NEXTI\PRINT
370 RETURN
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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search