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 200IFAE2GOTO207 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=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" "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