File FFGTEN.BA (BASIC source file)

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

10 DIM B$(300,24),M$(70),H$(70),F$(20)
20 FILE#1:"SYS:SORTHI.BA"
30 INPUT#1:M$,S1$,S2$,S3$,J$
40 CLOSE#1\J=VAL(J$)
45 FILE#1:"SYS:SORTH1.BA"
50 FOR I=1 TO J\INPUT#1:B$(I)\NEXT I
60 CLOSE#1
70 FOR I=1 TO J\FOR K=I+1 TO J
80 IF B$(I)<=B$(K) THEN 100
90 H$=B$(I)\B$(I)=B$(K)\B$(K)=H$
100 NEXT K\NEXT I
110 FILEV#1:"SYS:SORTH2.BA"
120 FOR I=1 TO J\PRINT#1:B$(I)
130 NEXT I\CLOSE#1
150 PRINT"SORTIERUNG BEENDET"
170 CHAIN"SYS:FFGTNA.BA"
180 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