File ERSATZ.BA (BASIC source file)

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

1DEFFNZ(X,Y)=X-Y*INT(X/Y)
2DIM T$(53)
3DIM P$(49)
4DIM U$(23),D(30)
5DIM B$(23)
6DIM D$(5)
7DIM N$(6)
8DIM S$(30,55)
9DIM K$(17)
10DIM Z$(72)
11REM FILEV#4:"LPT:"
12PRINT"WELCHE LISTE SOLL SORTIERT WERDEN?"
13INPUTN$
14GOSUB133
15GOSUB125
16PRINT"NACH WELCHEM KRITERIUM SOLL SORTIERT WERDEN?"
17PRINT"ALPHABET?"
18PRINT"ALTER?"
19PRINT"DURCHSCHNITTSNOTE";
20INPUTK$
21GOSUB36
22PRINT"SOLL DIE SORTIERTE LISTE AUSGEGEBEN WERDEN"!
23INPUTA$
24IFA$="JA"GOTO26
25GOTO27
26GOSUB118
27PRINT"SOLL NACH EINEM ANDEREN KRITERIUM SORTIERT WERDEN";
28INPUTA$
29IFA$="NEIN"GOTO31
30GOTO16
31PRINT"SOLL NOCH EINE ANDERE LISTE SORTIERT WERDEN";
32INPUTA$
33IFA$="NEIN"GOTO35
34GOTO12
35REM CLOSE#4\STOP
36N=1
37IFK$="DURCHSCHNITTSNOTE"GOTO39
38GOTO85
39A4=1
40A4=VAL(SEG$(S$(A4),5,6))
41N1=0
42B=36
43C=37
44N1=N1+VAL(SEG$(S$(A4),B,C))
45B=B+2
46C=C+2
47IFC>55GOTO49
48GOTO44
49N1=N1/10
50D1(A4)=N1
51IFVAL(SEG$(S$(A4),5,6))=00GOTO53
52GOTO40
53N=1
54A1=1
55A2=VAL(SEG$(S$(A1),5,6))
56A3=VAL(SEG$(S$(A2),5,6))
57IFD1(A2)<D1(A3)GOTO59
58GOTO73
59H1$=SEG$(S$(A1),5,6)
60H2$=SEG$(S$(A2),5,6)
61H3$=SEG$(S$(A3),5,6)
62T$=SEG$(S$(A1),1,4)
63P$=SEG$(S$(A1),7,55)
64S$(A1)=T$&H3$&P$
65T$=SEG$(S$(A2),1,4)
66P$=SEG$(S$(A2),7,55)
67S$(A2)=T$&H1$&P$
68T$=SEG$(S$(A3),1,4)
69P$=SEG$(S$(A3),7,55)
70S$(A3)=T$&H2$&P$
71N=500
72GOTO74
73N=N+1
74A1=A2
75A2=A3
76A3=VAL(SEG$(S$(A3),1,2))
77IFN=500GOTO80
78IFN>=L4-1GOTO80
79GOTO57
80IFN=L4-1GOTO82
81GOTO53
82B=5
83C=6
84GOTO117
85IFK$="ALPHABET"GOTO87
86GOTO115
87N=1
88A1=1
89A2=VAL(SEG$(S$(A1),1,2))
90A3=VAL(SEG$(S$(A2),1,2))
91B$=SEG$(S$(A2),7,29)
92U$=SEG$(S$(A3),7,29)
93IFB$>U$GOTO95
94GOTO106
95H1$=SEG$(S$(A1),1,2)
96H2$=SEG$(S$(A2),1,2)
97H3$=SEG$(S$(A3),1,2)
98T$=SEG$(S$(A1),3,55)
99S$(A1)=H3$&T$
100T$=SEG$(S$(A2),3,55)
101S$(A2)=H1$&T$
102T$=SEG$(S$(A3),3,55)
103S$(A3)=H2$&T$
104N=500
105GOTO107
106N=N+1
107A1=A2
108A2=A3
109A3=VAL(SEG$(S$(A3),1,2))
110IFN>=L4-1GOTO113
111IFN=500GOTO113
112GOTO91
113IFN>=L4-1GOTO115
114GOTO87
115B=1
116C=2
117RETURN
118Z1=VAL(SEG$(S$(1),B,C))
119IFZ1<>00GOTO121
120GOTO124
121PRINTSEG$(S$(Z1),1,55)
122Z1=VAL(SEG$(S$(Z1),B,C))
123GOTO119
124RETURN
125Z1=1
126L4=0
127IFZ1<>00GOTO129
128GOTO132
129Z1=VAL(SEG$(S$(Z1),1,2))
130L4=L4+1
131GOTO127
132RETURN
133Z1=1
134PRINT"WO FINDE ICH DIE DATEI(Z.B.:DTA1 ODER SYS)";
135INPUTP1
136FILE#1:P1$&":"&N$&".DA"
137IFEND#1GOTO139
138GOTO140
139GOTO144
140INPUT#1:Z$
141S$(Z1)=Z$
142Z1=Z1+1
143GOTO137
144CLOSE#1
145RETURN
146FILEV#1:P1$&":"&N$&".DA"
147FORZ1=1TOL4
148Z$=S$(Z1)
149PRINT#1:Z$
150NEXTZ1
151CLOSE#1
152RETURN
153END



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