1 REM
2 OPEN "tausch.txt" FOR INPUT AS #1:TAUSCH%=-1
3 LINE INPUT #1, TAUSCH$:
4 IF INSTR(TAUSCH$,"*Ende")=0 THEN TAUSCH%=TAUSCH%+1:GOTO 3
5 CLOSE #1
100 DIM TAUSCH$(3,TAUSCH%)
110 OPEN "tausch.txt" FOR INPUT AS #1
120 LINE INPUT #1, TAUSCH$:
130 IF INSTR(TAUSCH$,"*Ende")>0 THEN 1000
140 IF INSTR(TAUSCH$,"Seite") > 0 AND INSTR(TAUSCH$,"$")=0 THEN 150 ELSE 300
150 RED$="":K$="":K%=0:WHILE K$<>"b":K%=K%+1:K$=MID$(TAUSCH$,K%,1):IF INSTR("0123456789",K$)>0 THEN RED$=RED$+K$
160 WEND
170 TAUSCH$(1,0)=RED$:STARTSEITE%=VAL(RED$)
180 RED$="":K$="":FOR I%=K% TO LEN(TAUSCH$):K$=MID$(TAUSCH$,I%,1):IF INSTR("0123456789",K$)>0 THEN RED$=RED$+K$
190 NEXT I%
200 TAUSCH$(2,0)=RED$:SEITENMAX%=VAL(RED$):GOTO 120
300 GZ1%=INSTR(TAUSCH$,"#"):IF GZ1%=0 THEN 120 ELSE RED$="":FOR I%=1 TO GZ1%-1:RED$=RED$+MID$(TAUSCH$,I%,1):NEXT I%
301 TAUSCHPARAM%=TAUSCHPARAM%+1
302 TAUSCH$(1,TAUSCHPARAM%)=RED$
310 GZ2%=INSTR(GZ1%+1,TAUSCH$,"#"):IF GZ2%=0 THEN STOP ELSE RED$="":FOR I%=GZ1%+1 TO GZ2%-1:RED$=RED$+MID$(TAUSCH$,I%,1):NEXT I%
312 TAUSCH$(2,TAUSCHPARAM%)=RED$
320 GOTO 120
1000 CLOSE #1: DIM SEITEN$(2,SEITENMAX%)
1001 FOR I=0 TO TAUSCH%-1:PRINT TAUSCH$(1,I),TAUSCH$(2,I):NEXT I
1002 REM
1003 REM
1004 REM
2000 FOR SEITE%=STARTSEITE% TO SEITENMAX%:
2011      SEITEN$(2,SEITE%)= "form-"+RIGHT$("000"+RIGHT$(STR$(SEITE%),LEN(STR$(SEITE%))-1),3)+".php":REM seitenname
2015     REM ****++++****                Seitennamen sind abgestellt in seitenname$(seite%), von form-001.php bis ggfs. form-999.php
2051       IF SEITE%=1 AND SEITE%=SEITENMAX% THEN  SEITEN$(1,SEITE%)="gg-00.php"
2052       IF SEITE%=1 AND SEITE%<SEITENMAX% THEN  SEITEN$(1,SEITE%)="gg-01.php"
2053       IF SEITE%>1 AND SEITE%<SEITENMAX% THEN  SEITEN$(1,SEITE%)="gg-02.php"
2054       IF SEITE%>1 AND SEITE%=SEITENMAX% THEN  SEITEN$(1,SEITE%)="gg-03.php"
2060  NEXT SEITE% 
2070 REM
2080 REM
2090 REM
3000 FOR SEITE%=STARTSEITE% TO SEITENMAX%
3020   GRUNDDATEI$= SEITEN$(1,SEITE%):SEITENNAME$=SEITEN$(2,SEITE%)
3030   OPEN GRUNDDATEI$ FOR INPUT AS #1: OPEN SEITENNAME$ FOR OUTPUT AS #2
3031   LINE INPUT #1, QUELLE$:IF INSTR(QUELLE$,"</html>") THEN PRINT #2,QUELLE$:CLOSE #1,#2:GOTO 3900
3035   IF INSTR(QUELLE$,"$$$")=0 THEN PRINT #2,QUELLE$:GOTO 3031
3100      IF INSTR(QUELLE$,"$$$$")=0 THEN 3300
3200       PARAM$="$$$$text$$$$":IF INSTR(QUELLE$,PARAM$) =0 THEN 3300
3201       I%=0:OK%=0:WHILE TAUSCH$(1,I%) <>PARAM$: I%=I%+1:WEND:IF TAUSCH$(1,I%)=PARAM$ THEN OK%=I% ELSE GOTO 3031
3210       ZAHL%=SEITE%:FORMAT$="???":GOSUB 63300:ALTSTRING$=TAUSCH$(2,OK%):ALTTEIL$="???":NEUTEIL$=FORMATZAHL$:GOSUB 63000:TEXTDATEI$=NEUSTRING$
3220        ON ERROR GOTO 3240
3222        OPEN TEXTDATEI$ FOR INPUT AS #3:
3224        LINE INPUT #3, TEXT$:IF INSTR(TEXT$,"*Ende")=0 THEN PRINT #2,TEXT$ ELSE 3031
3225        GOTO 3224
3240        IF ERL <>3222 THEN STOP ELSE RESUME 3031
3250 REM
3260 REM
3300      IF INSTR(QUELLE$,"$$$") =0 THEN PRINT: "falsche parameterangabe!":STOP
3310      I%=1:OK%=0: WHILE INSTR(QUELLE$,TAUSCH$(1,I%))=0:I%=I%+1:WEND: OK%=I%:IF INSTR(QUELLE$,TAUSCH$(1,OK%))=0 THEN PRINT #2, QUELLE$:GOTO 3031
3330      PARAM$=TAUSCH$(1,OK%):ERSATZ$=TAUSCH$(2,OK%):
3332      A%=INSTR (ERSATZ$,"&"): IF A%=0 THEN A%=INSTR(ERSATZ$,"?"):IF A%=0 THEN STOP
3334      FF$=MID$(ERSATZ$,A%,1): FORMAT$="":I%=0:WHILE  MID$(ERSATZ$,A%+I%,1)=FF$:FORMAT$=FORMAT$+FF$:I%=I%+1:WEND
3336      IF PARAM$<>"$$$aktuelle-seite$$$"  THEN 3350
3337      ALTSTRING$=QUELLE$:ALTTEIL$=PARAM$:ZAHL%=SEITE%:GOSUB 63300:NEUTEIL$=FORMATZAHL$:GOSUB 63000:goto 3395
3338      REM
3350      IF PARAM$<>"$$$seitenmax$$$" THEN 3360
3351      ALTSTRING$=QUELLE$:ALTTEIL$=PARAM$:ZAHL%=SEITENMAX%:GOSUB 63300:NEUTEIL$=FORMATZAHL$:GOSUB 63000:goto 3395
3360      IF PARAM$<>"$$$bild$$$" THEN 3380
3361       ALTSTRING$=ERSATZ$:ALTTEIL$=FORMAT$:ZAHL%=SEITE%:GOSUB 63300:NEUTEIL$=FORMATZAHL$:GOSUB 63000:NEUTEIL$=NEUSTRING$:ALTTEIL$=PARAM$:ALTSTRING$=QUELLE$:GOSUB 63000:goto 3395
3380      IF PARAM$<>"$$$folgeseite$$$" THEN 3390
3381      ALTSTRING$=ERSATZ$:ALTTEIL$=FORMAT$:ZAHL%=SEITE%+1:GOSUB 63300:NEUTEIL$=FORMATZAHL$:GOSUB 63000:NEUTEIL$=NEUSTRING$:ALTTEIL$=PARAM$:ALTSTRING$=QUELLE$:GOSUB 63000:goto 3395
3390      IF PARAM$<>"$$$vorherige-seite$$$" THEN 3390
3391      ALTSTRING$=ERSATZ$:ALTTEIL$=FORMAT$:ZAHL%=SEITE%-1:GOSUB 63300:NEUTEIL$=FORMATZAHL$:GOSUB 63000:NEUTEIL$=NEUSTRING$:ALTTEIL$=PARAM$:ALTSTRING$=QUELLE$:GOSUB 63000:goto 3395
3393      REM
3394      REM
3395      if instr(neustring$,"$$$")=0 then PRINT #2,NEUSTRING$:GOTO 3031 else quelle$=neustring$:goto 3300
3900      NEXT SEITE%:END
63000 REM subroutine: altteil$ wird im altstring$ durch neuteil$ ersetzt, der neue String in neustring$ ausgegeben
63010 K%=INSTR(ALTSTRING$,ALTTEIL$):ALTSTRING1$=LEFT$(ALTSTRING$,K%-1)
63020 ALTSTRING2$=RIGHT$(ALTSTRING$,LEN(ALTSTRING$)-K%-LEN(ALTTEIL$)+1)
63030 NEUSTRING$=ALTSTRING1$+NEUTEIL$+ALTSTRING2$
63040 RETURN
63041 REM
63042 REM
63300 REM subroutine: formatiert positive ganzzahl zahl% gemaess Vorgaben in format$ und stellt formatierte zahl als string in formatzahl$ ab
63310 LAENGE%=LEN(FORMAT$):IF INSTR(FORMAT$,"&")>0 THEN FUELL$=" " ELSE FUELL$="0"
63320 FORMATZAHL$=STR$(ZAHL%):FORMATZAHL$=RIGHT$(STR$(ZAHL%),LEN(FORMATZAHL$)-1):MAXFUELL$=STRING$(LAENGE%-1,FUELL$):FORMATZAHL$=RIGHT$(MAXFUELL$+FORMATZAHL$,LAENGE%)
63330 RETURN
63331 REM
63332 REM