File FEUER.BA (BASIC source file)

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

10 DIM N$(20),F(4,5),X$(14),Y$(14)
20 PRINT "WIEVIELE DATEIEN SOLLEN ZUSAMMENGEFASST WERDEN";\INPUT A
90 PRINT"NAME DES AUFZUBAUENDEN DATENSATZES";\INPUTY$
95 Y$="DTA1:"&Y$&".BA"
96 FILEV#2:Y$
100 FOR Z=1 TO A
180 PRINT"NAME DES ABZURUFENDEN DATENSATZES";\INPUTX$
185 X$="DTA1:"&X$&".BA"
200 FILE#1:X$
220 INPUT#1:N$,X
230 FOR I = 1 TO 4\INPUT#1:F$(I),X\NEXT I
240 INPUT#1:F(1,1),F(1,2),F(2,1),F(2,2),F(3,1),X,X
250 INPUT#1:F(3,2),F(4,1),F(4,2),X,X
260 PRINT N$\ IF N$="ENDE" THEN 825
770 PRINT#2:N$
780 FOR I = 1 TO 4\PRINT#2:F$(I)\NEXT I
790 FOR I = 1 TO 4
800 PRINT#2:F(I,1),F(I,2),
810 NEXT I
820 PRINT#2:\GOTO 220
825 CLOSE#1 \ NEXT Z
830 PRINT#2:N$
840 FOR I = 1 TO 4\PRINT#2:"O"\NEXT I
850 FOR I = 1 TO 8\PRINT#2:"0",\NEXT I
860 PRINT#2:
870 CLOSE#2
880 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