File SWSORT.BA (BASIC source file)

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

10 DIM P$(40,72),H$(72),B$(24,20),A$(16),T$(30)
15 T$="                              "
20 PRINT"AUSDRUCK VON GERAET:FILE.EX";\INPUT A$
30 FILE#1:A$
40 INPUT#1:H$,H$,H$
50 FOR I=1 TO 24\INPUT#1:B$(I)\IF END#1 THEN 150
60 NEXT I
70 IF POS(B$(9),"K",1)<>0 THEN 90
80 GOTO 50
90 Z1=Z1+1\Z2=Z2+1
100 H$=B$(1)&", "&B$(2)
110 H$=SEG$(H$,1,30)
120 H$=H$&SEG$(T$,1,31-LEN(H$))
130 H$=H$&B$(4)&" "&B$(5)
135 P$(Z1)=H$
140 IF Z1<40 THEN 50
145 GOTO 155
150 S1=1
155 FOR I=1 TO Z1\PRINT P$(I)\NEXT I
160 FOR I=1 TO 20\PRINT\NEXT I
170 FOR I=1 TO 72\PRINT"-";\NEXT I\PRINT
180 FOR I=1 TO 10\PRINT\NEXT I
185 Z1=0
190 IF S1<>1 THEN 50
200 CLOSE#1
205 FOR I=1 TO 10\PRINT\NEXT I
210 PRINT Z2;"KATHOLISCHE SCHUELER TRETEN AM 1.8.1975"
220 PRINT"IN DIE GEMEINSAME ORIENTIERUNGSSTUFE EIN"
500 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