File SAMMEL.BA (BASIC source file)

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

10 DIM F$(50,9),H$(70),F(50),L(50)
20 PRINT"ANZAHL DER EINGABEFILES"\INPUT N
30 IF N<=50 THEN 50
40 PRINT"ZU VIELE FILES"\GOTO 20
50 PRINT"FILENAMEN"
60 FOR I= 1 TO N
65 INPUT H$\IF LEN(H$)<=9 THEN 80
70 PRINT"FILENAME UNZULAESSIG,EINGABE GELOESCHT,BITTE NEU"\GOTO65
80 F$(I)=H$\NEXT I
90 FOR I=1 TO N
100 FILE#1:"AB:"&F$(I)\INPUT#1:H$,H$\L(I)=VAL(H$)
110 FOR J=1 TO 7203
120 INPUT#1:H$\IF END#1 THEN 130\NEXT J
130 F(I)=VAL(H$)\CLOSE#1
140 S=S+F(I)
150 NEXT I
160 FOR I=2 TO N
170 IF L(1)=L(I) THEN 180
175 PRINT"FILE ";F$(I);" HAT ANDERE SATZLAENGE ALS ";F$(1)\W=1
180 NEXT I
185 IF W=0 THEN 190\PRINT"A B B R U C H ! ! !"
190 J$=SEG$(DAT$(X),7,8)\ FILEV#2:"SA:SAMM"&J$&".BA"
200 PRINT#2:STR$(S)\PRINT#2:STR$(L(1))\PRINT#2:"********"
210 FOR I=1 TO N
220 FILE#1:"AB:"&F$(I)\INPUT#1:H$,H$,H$
230 FOR J=1 TO F(I)\FOR K=1 TO L(1)
240 INPUT#1:H$\PRINT#2:H$\NEXTK\NEXTJ\CLOSE#1
250 PRINT"FILE ";F$(I);" UEBERTRAGEN"
260 NEXT I\PRINT#2:"*******"\PRINT#2:STR$(S)\CLOSE#2
270 PRINT"ALLE FILES UEBERTRAGEN"
280 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