File ALFSOR.BA (BASIC source file)

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

10 DIM B$(300,30),H$(70),F$(15),K$(70),L$(70)
20 PRINT"VON FILE"\INPUT F$\PRINT"SATZLAENGE"\INPUT S
30 FILE#1:"SYS:"&F$\FILEV#2:"DTA1:ASTAMM.BA"
40 INPUT#1:H$,H$,H$
50 FOR I=1 TO 300\INPUT#1:H$,K$,L$\IF END#1 THEN 80
60 B$(I)=SEG$(H$&K$,1,26)&"#"&STR$(I)
70 FOR J=4 TO S\INPUT#1:H$\IF END#1 THEN 80\NEXT J\NEXT I
80 Z=I-1\PRINT Z;" DATENSAETZE VERWENDET"\RESTORE#1
90 FOR I=1 TO Z\FOR J=I+1 TO Z
100 IF B$(I)<=B$(J) THEN 120
110 H$=B$(I)\B$(I)=B$(J)\B$(J)=H$
120 NEXT J\NEXT I
125 FOR I=1 TO 3\INPUT#1:H$\PRINT#2:H$\NEXTI\RESTORE#1
130 FOR I =1TOZ\B$(I)=SEG$(B$(I),POS(B$(I),"#",1)+1,30)\NEXTI
135 FOR I=1 TO Z\PRINT B$(I),\NEXT I\PRINT
140 FOR I= 1 TO Z\INPUT#1:H$,H$,H$
150 FOR J=1 TO S*(VAL(B$(I))-1)\INPUT#1:H$\NEXT J
160 FOR K=1 TO S\INPUT#1:H$\PRINT#2:H$\NEXT K
170 RESTORE#1
180 NEXT I
185 PRINT#2:"*******"\PRINT#2:STR$(Z)
190 CLOSE#1\CLOSE#2
200 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