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

1DEFFNZ(X,Y)=X-Y*INT(X/Y)
2DIM S1$(72),S2$(72),H$(72),Z$(72),H1$(72),Z2$(72),Z3$(72)
3DIM H2$(72)
4REM FILEV#4:"LPT:"
5V$="JA"
6R$="NEIN"
7S$="NEIN"
8S3$="NEIN"
9Z4$="NEIN"
10Z1$="NEIN"
11S4$="NEIN"
12S4=1
13Z2=1
14Z3=0
15S2$=""
16PRINT"BENOETIGEN SIE NAEHERE ANGABEN ZU DEM PROGRAMM ?"
17PRINT"BITTE ANTWORTEN SIE MIT 'JA' ODER 'NEIN'!"
18INPUTA4$
19IFA4$<>"JA"GOTO21
20GOTO22
21IFA4$<>"NEIN"GOTO23
22GOTO26
23PRINT"FALSCHE EINGABE, BITTE NEU EINGEBEN!"
24INPUTA4$
25GOTO19
26IFA4$="JA"GOTO28
27GOTO36
28FILE#1:"KLAER.DA"
29IFEND#1GOTO31
30GOTO32
31GOTO35
32INPUT#1:Z$
33PRINTZ$
34GOTO29
35CLOSE#1
36PRINT"WO FINDE ICH DEN TEXT ?(IN DER FORM 'DTA(0/1):';"
37PRINT"BEI PLATTE EINFACH 'RETURN')";
38INPUTP$
39PRINT"WELCHEN NAMEN HAT DER TEXT ?(OHNE EXTENTION!)";
40INPUTN$
41PRINT"WELCHE EXTENTION HAT DER TEXT ?(IN DER FORM '.EXT')";
42INPUTE$
43PRINT"SOLL DER AUFBEREITETE TEXT WAEHREND DES PROGRAMMLAUFES"
44PRINT"AUSGEDRUCKT WERDEN ?(JA ODER NEIN)";
45INPUTA2$
46PRINT"SOLL DER AUFBEREITETE TEXT UNTER DER BESONDEREN EXTENTION"
47PRINT"'.TE' AUF PLATTE ABGESPEICHERT WERDEN ?(JA ODER NEIN)";
48INPUTA3$
49FILE#1:P$&N$&E$
50IFA3$="JA"GOTO52
51GOTO53
52FILEV#2:N$&".TE"
53IFV$="JA"GOTO55
54GOTO82
55V$="NEIN"
56IFEND#1GOTO58
57GOTO59
58GOTO79
59INPUT#1:Z$
60S1$=Z$
61GOTO63
62GOTO78
63IFS1$="[ZZ]"GOTO65
64GOTO67
65GOSUB163
66GOTO62
67IFS1$="[SG]"GOTO69
68GOTO71
69GOSUB166
70GOTO62
71IFS1$="[RB]"GOTO73
72GOTO75
73GOSUB169
74GOTO62
75IFS1$="[ZA]"GOTO77
76GOTO78
77GOSUB172
78GOTO81
79PRINT"STEHT LEIDER NICHTS DRIN ,IN DEINEM PROGRAMM!"
80V$="NEIN"
81GOTO53
82IFZ4$="JA"GOTO84
83GOTO86
84R=68
85GOTO87
86R=71
87GOSUB233
88GOSUB320
89IFEND#1GOTO91
90GOTO92
91GOTO157
92A1=POS(S1$,"[",1)
93E1=POS(S1$,"]",A1)
94IFE1-A1=3GOTO96
95GOTO109
96GOTO98
97GOTO109
98IFSEG$(S1$,A1,E1)="[SP]"GOTO100
99GOTO102
100GOSUB217
101GOTO97
102IFSEG$(S1$,A1,E1)="[NZ]"GOTO104
103GOTO106
104GOSUB401
105GOTO97
106IFSEG$(S1$,A1,E1)="[NS]"GOTO108
107GOTO109
108GOSUB175
109IFSEG$(S1$,A1,A1+2)="[ER"GOTO111
110GOTO125
111A1=POS(S1$,"[",1)
112E1=POS(S1$,"]",A1)
113IFE1-A1=4GOTO115
114GOTO117
115E2=VAL(SEG$(S1$,A1+3,A1+3))
116E3$="JA"
117IFE1-A1=5GOTO119
118GOTO121
119E2=VAL(SEG$(S1$,A1+3,A1+4))
120E3$="JA"
121L=LEN(S1$)
122H$=SEG$(S1$,1,A1-1)
123H2$=SEG$(S1$,E1+1,L)
124S1$=H$&H2$
125IFE1-A1<3GOTO128
126IFE1-A1>5GOTO128
127GOTO92
128GOSUB181
129IFR$="JA"GOTO131
130GOTO132
131IFN1$="NEIN"GOTO133
132GOTO134
133GOSUB406
134IFS4$="JA"GOTO136
135GOTO138
136S4$="NEIN"
137GOTO139
138GOSUB353
139GOSUB384
140GOSUB274
141Z$=S1$
142IFA2$="JA"GOTO144
143GOTO145
144PRINTZ$
145IFA3$="JA"GOTO147
146GOTO148
147PRINT#2:Z$
148Z3=Z3+1
149S1$=S2$
150S2$=""
151IFS1$=""GOTO153
152GOTO92
153INPUT#1:Z$
154Z2=Z2+1
155S1$=Z$
156GOTO89
157GOSUB233
158CLOSE#1
159IFA3$="JA"GOTO161
160GOTO162
161CLOSE#2
162REM CLOSE#4\STOP
163Z1$="JA"
164V$="JA"
165RETURN
166S$="JA"
167V$="JA"
168RETURN
169R$="JA"
170V$="JA"
171RETURN
172Z4$="JA"
173V$="JA"
174RETURN
175S3$="JA"
176L=LEN(S1$)
177H$=SEG$(S1$,1,A1-1)
178H2$=SEG$(S1$,E1+1,L)
179S1$=H$&H2$
180RETURN
181IFE3$="JA"GOTO183
182GOTO216
183L=LEN(S1$)
184C=L+E2-R
185IFC>0GOTO187
186GOTO197
187Z=L
188IFSEG$(S1$,Z,Z)<>" "GOTO190
189GOTO192
190Z=Z-1
191GOTO188
192S2$=SEG$(S1$,Z,L)&S2$
193S1$=SEG$(S1$,1,Z-1)
194L=LEN(S1$)
195IFL+E2-R<=0GOTO197
196GOTO187
197A=1
198IFSEG$(S1$,A,A)=" "GOTO200
199GOTO201
200IFA<LGOTO202
201GOTO204
202A=A+1
203GOTO198
204A=A-1
205IFA<>E2GOTO207
206GOTO210
207A=A+1
208S1$=" "&S1$
209GOTO205
210IFA>E2GOTO212
211GOTO216
212A=A-1
213S1$=SEG$(S1$,2,L)
214L=L-1
215GOTO210
216RETURN
217Z=1
218L=LEN(S1$)
219S1$=SEG$(S1$,E1+1,L)
220L=LEN(S1$)
221IFL*2>72GOTO223
222GOTO225
223PRINT"SPERRSCHRIFT IN ZEILE ";Z2;" NICHT MOEGLICH"
224GOTO232
225H$=SEG$(S1$,1,Z)&" "
226S1$=H$&SEG$(S1$,Z+1,L)
227Z=Z+2
228S4$="JA"
229L=L+1
230IFZ=LGOTO232
231GOTO225
232RETURN
233IFZ1$="JA"GOTO235
234GOTO273
235H1$="*******************************"
236Z2$=H1$&"PETER*LENZ"&H1$
237H1$="*****************************"
238Z3$=H1$&"RUEDIGER*GERTZ"&H1$
240 IF Z3>2 GOTO 242
241GOTO245
242H1$=Z2$
243Z2$=Z3$
244Z3$=H1$
245Z$=""
246IFA2$="JA"GOTO248
247GOTO249
248PRINTZ$
249IFA3$="JA"GOTO251
250GOTO252
251PRINT#2:Z$
252Z$=Z2$
253IFA2$="JA"GOTO255
254GOTO256
255PRINTZ$
256IFA3$="JA"GOTO258
257GOTO259
258PRINT#2:Z$
259Z$=Z3$
260IFA2$="JA"GOTO262
261GOTO263
262PRINTZ$
263IFA3$="JA"GOTO265
264GOTO266
265PRINT#2:Z$
266Z$=""
267IFA2$="JA"GOTO269
268GOTO270
269PRINTZ$
270IFA3$="JA"GOTO272
271GOTO273
272PRINT#2:Z$
273RETURN
274H$="                                                          "
275IFS$="JA"GOTO277
276GOTO319
277IFS3$="JA"GOTO279
278GOTO294
279A2=Z3/63
280H1$=""
281IFA2<>INT(A2)GOTO283
282GOTO293
283Z$=H1$
284IFA2$="JA"GOTO286
285GOTO287
286PRINTZ$
287IFA3$="JA"GOTO289
288GOTO290
289PRINT#2:Z$
290Z3=Z3+1
291A2=Z3/63
292GOTO281
293S3$="NEIN"
294A2=Z3/63
295IFA2=INT(A2)GOTO297
296GOTO319
297S4=S4+1
298Z=0
299Z=Z+1
300IFZ=8GOTO302
301GOTO310
302Z$=H$&"SEITE   "&STR$(S4)
303IFA2$="JA"GOTO305
304GOTO306
305PRINTZ$
306IFA3$="JA"GOTO308
307GOTO309
308PRINT#2:Z$
309GOTO317
310Z$=""
311IFA2$="JA"GOTO313
312GOTO314
313PRINTZ$
314IFA3$="JA"GOTO316
315GOTO317
316PRINT#2:Z$
317IFZ=9GOTO319
318GOTO299
319RETURN
320IFS$="JA"GOTO322
321GOTO352
322IFZ1$="NEIN"GOTO324
323GOTO336
324Z=0
325Z$=""
326IFZ<>4GOTO328
327GOTO336
328IFA2$="JA"GOTO330
329GOTO331
330PRINTZ$
331IFA3$="JA"GOTO333
332GOTO334
333PRINT#2:Z$
334 Z=Z+1
335GOTO326
336Z3=Z3+2
337H$="                                                     "
338Z$=H$&"     SEITE   1"
339IFA2$="JA"GOTO341
340GOTO342
341PRINTZ$
342IFA3$="JA"GOTO344
343GOTO345
344PRINT#2:Z$
345Z$=""
346IFA2$="JA"GOTO348
347GOTO349
348PRINTZ$
349 IF A3$="JA" GOTO 351
350GOTO352
351PRINT#2:Z$
352RETURN
353L=LEN(S1$)
354IFL>50GOTO356
355GOTO357
356IFR$="JA"GOTO358
357GOTO383
358Z=1
359IFSEG$(S1$,Z,Z)=" "GOTO361
360GOTO363
361Z=Z+1
362GOTO359
363A1=Z
364IFSEG$(S1$,Z,Z)<>" "GOTO366
365GOTO367
366IFZ<LGOTO368
367GOTO370
368Z=Z+1
369GOTO364
370IFZ>=LGOTO372
371GOTO374
372Z=A1
373GOTO381
374H$=SEG$(S1$,1,Z)&" "
375S1$=H$&SEG$(S1$,Z+1,L)
376L=L+1
377IFSEG$(S1$,Z,Z)=" "GOTO379
378GOTO381
379Z=Z+1
380GOTO377
381 IF LEN(S1$)>=R GOTO 383
382GOTO364
383RETURN
384IFZ4$="JA"GOTO386
385GOTO400
386A2=(Z3+1)/5
387IFA2=INT(A2)GOTO389
388GOTO400
389H$=STR$(Z3+1)
390L=LEN(H$)
391IFL=1GOTO393
392GOTO394
393S1$=S1$&"  "&H$
394IFL=2GOTO396
395GOTO397
396S1$=S1$&" "&H$
397IFL=3GOTO399
398GOTO400
399S1$=S1$&H$
400RETURN
401L=LEN(S1$)
402S2$=SEG$(S1$,E1+1,L)
403S1$=SEG$(S1$,1,A1-1)
404N1$="JA"
405RETURN
406 A8$="JA"
407L=LEN(S1$)
408IFL<RGOTO410
409GOTO431
410IFEND#2GOTO412
411GOTO413
412GOTO414
413 INPUT#2:Z$\S2$=Z$
414Z=1
415L1=LEN(S2$)
416IFZ<L1GOTO418
417GOTO419
418IFSEG$(S2$,Z,Z)<>" "GOTO420
419GOTO422
420Z=Z+1
421GOTO416
422IFZ+L<=RGOTO424
423GOTO427
424S1$=S1$&" "&SEG$(S2$,1,Z-1)
425S2$=SEG$(S2$,Z+1,L)
426GOTO428
427 A8$="NEIN"
428 IF A8$="NEIN" GOTO 431
429IFEND#2GOTO431
430GOTO410
431RETURN
432END