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



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