init01.bas

10 CLS
20 LOCATE ,20:COLOR 15,0:PRINT "Angabe der Anzahl von Seiten des Dokumentes":COLOR 7,0
30 LOCATE ,20:PRINT "(Mindestens 1 Seite, h”chstens 999!)":PRINT :PRINT
40 LOCATE ,20:PRINT "Bitte Eingabe der Seitenzahl und"
50 LOCATE ,20:PRINT "und best„tigen mit Enter/Eingabtaste: ";:INPUT S$
100 REM
101 REM
102 REM
105 TEXT$="":S=VAL(S$):S1=LEN(S$):S$=" "+S$
110 IF S<> INT(S) THEN TEXT$=TEXT$+" Nur ganze Zahlen m”glich! "+CHR$(13)
120 IF S< 1 THEN TEXT$=TEXT$+"  Wert muss gr”áer oder gleich 1 sein! "+CHR$(13)
125 IF S>999 THEN TEXT$=TEXT$+"  Wert muss kleiner oder gleich 999 sein! "+CHR$(13)
130 IF S$<> STR$(S) THEN TEXT$=TEXT$+"  Es drfen nur Ziffern eingegeben werden! "+ CHR$(13)
135 IF S1=0 THEN TEXT$=TEXT$+"  Eingabetaste allein reicht nicht! "+CHR$(13)
140 IF LEN(TEXT$) =0 THEN 155
141 PRINT :COLOR 0,7:PRINT TEXT$:COLOR 7,0:PRINT
142 PRINT :COLOR 0,7:LOCATE  ,20:PRINT "Enter/Eingabe fr neuen Versuch, ESC fr Programmende!":COLOR 7,0
143 R$="":WHILE R$<>CHR$(13) AND R$<>CHR$(27):R$=INKEY$:WEND
150 IF R$=CHR$(13) THEN RUN ELSE SYSTEM
151 REM
152 REM
155 PRINT :PRINT :LOCATE ,20:COLOR 15,0:PRINT "Es geht also um "+S$+" Seiten?":COLOR 7,0
160 PRINT :LOCATE ,20:PRINT "Best„tigen mit der j-Taste (Datei wird angelegt),"
170 PRINT :LOCATE ,20:PRINT "sonst zur Neueingabe mit n-Taste oder Programmende mit ESC":
172 R$="":WHILE R$="":R$=INKEY$:WEND
173 IF R$="n" OR R$="N" THEN RUN
174 IF R$="j" OR R$="J" THEN 200
175 IF R$=CHR$(27) THEN SYSTEM
176 GOTO 172
200 REM *** Dateiaufbau oder Ende
210 REM
220 REM
230 REM
240 OPEN "build.0" AS #1 LEN=12:FIELD #1, 12 AS SATZ$
250 S$="    "+S$:S$=RIGHT$(S$,4)+SPACE$(8)
260 LSET SATZ$=S$:PUT #1,1:CLOSE #1
300 RUN "init02"


 

init02.bas

2 PRINT
10 CLS:DIM FEHLER$(10)
20 ON ERROR GOTO 50000:
30 STUFE=1:OPEN "build.0" AS #1 LEN=12:FIELD #1, 12 AS DATENSATZ$:GET #1,1
50 SEITENANZAHL=VAL(LEFT$(DATENSATZ$,4)):IF SEITENANZAHL<1 OR SEITENANZAHL>999 THEN GET #1,0: REM absichtliche Fehlererzeugung
51 TEST1$=RIGHT$(DATENSATZ$,8):IF TEST1$<>SPACE$(8) THEN GET #1,0:REM - absichtliche Fehlererzeugung
52 CLOSE #1:PRINT :PRINT :LOCATE ,20:PRINT "Datei ";CHR$(34);"build.0";CHR$(34);" enth„lt gltigen Inhalt..."
53 PRINT :PRINT :LOCATE ,20:PRINT "Prfung wird fortgesetzt....":PRINT
55 REM
56 REM
57 REM
60 STUFE =2: OPEN "bilder\dummy" FOR OUTPUT AS #1:CLOSE #1:
63 PRINT :PRINT :LOCATE ,20:PRINT "Unterverzeichnis :";CHR$(34);"bilder";CHR$(34);"existiert..."
66 PRINT :PRINT :LOCATE ,20:PRINT "Prfung wird fortgesetzt....":PRINT
75 REM
76 REM
77 REM
80 STUFE =3: OPEN "buttons\dummy" FOR OUTPUT AS #1:CLOSE #1:
83 PRINT :PRINT :LOCATE ,20:PRINT "Unterverzeichnis :";CHR$(34);"buttons";CHR$(34);"existiert..."
86 PRINT :PRINT :LOCATE ,20:PRINT "Prfung wird fortgesetzt....":PRINT
95 REM
96 REM
97 REM
100 STUFE =4:OPEN "css-01.css" FOR INPUT AS #1:CLOSE #1:
110 PRINT :PRINT :LOCATE ,20:PRINT "CSS-Datei mit Namen ";CHR$(34);"css-01.css";CHR$(34);"existiert..."
116 PRINT :PRINT :LOCATE ,20:PRINT "Prfung wird fortgesetzt....":PRINT
120 REM
121 REM
122 REM
125 STUFE =5:OPEN "gg-01.php" FOR INPUT AS #1:CLOSE #1:
126 PRINT :PRINT :LOCATE ,20:PRINT "PHP-Datei mit Namen ";CHR$(34);"gg-01.php";CHR$(34);"existiert..."
127 PRINT :PRINT :LOCATE ,20:PRINT "Prfung wird fortgesetzt....":PRINT
130 REM
131 REM
132 REM
135 STUFE =6:OPEN "gg-02.php" FOR INPUT AS #1:CLOSE #1:
136 PRINT :PRINT :LOCATE ,20:PRINT "PHP-Datei mit Namen ";CHR$(34);"gg-02.php";CHR$(34);"existiert..."
137 PRINT :PRINT :LOCATE ,20:PRINT "Prfung wird fortgesetzt....":PRINT
140 REM
141 REM
142 REM
145 STUFE =7:OPEN "gg-03.php" FOR INPUT AS #1:CLOSE #1:
146 PRINT :PRINT :LOCATE ,20:PRINT "PHP-Datei mit Namen ";CHR$(34);"gg-03.php";CHR$(34);"existiert..."
147 PRINT :PRINT :LOCATE ,20:PRINT "Prfung wird fortgesetzt....":PRINT
150 REM
151 REM
152 REM
155 STUFE =8:OPEN "gg-04.php" FOR INPUT AS #1:CLOSE #1:
156 PRINT :PRINT :LOCATE ,20:PRINT "PHP-Datei mit Namen ";CHR$(34);"gg-03.php";CHR$(34);"existiert..."
157 PRINT :PRINT :LOCATE ,20:PRINT "Bitte irgendeine Taste zur weiteren šberprfung...":R$="":WHILE R$="":R$=INKEY$:WEND
158 PRINT :PRINT :LOCATE ,20:PRINT "Prfung wird fortgesetzt....":PRINT
160 REM
161 REM
162 REM
171 REM
172 REM
173 REM
174 REM
200 REM - berprfung der textdateien im ordner dokumente
210 STUFE =9: DIM TEXTKONSERVEN(SEITENANZAHL)
220 FOR I=1 TO SEITENANZAHL:
230  DATEINAME$="text-"+RIGHT$("   "+STR$(SEITENANZAHL),3)+".txt"
240  OPEN "texte\" +DATEINAME$ FOR INPUT AS #1:CLOSE #1:TEXTKONSERVEN(0)=TEXTKONSERVEN(0)+1:TEXTKONSERVE(I)=1:OPEN "texte\text.0" AS #1 LEN=1:FIELD #1,1 AS E$:S$="1":LSET E$=S$:PUT #1,I:CLOSE #1:GOTO 250
245 PRINT "Kein Text fr Seite ",I:OPEN "texte.txt" AS #1 LEN=1:FIELD #1,1 AS E$:S$="0":LSET E$=S$:PUT #1,I:CLOSE #1
250 NEXT I:
260 PRINT :PRINT :LOCATE ,20:PRINT "Bitte irgendeine Taste zur weiteren šberprfung...":R$="":WHILE R$="":R$=INKEY$:WEND
3000 REM feststellung vorhandener bilder
3001 STUFE=10:SEITENANZAHL%=SEITENANZAHL:DIM BILDER1%(SEITENANZAHL%), BILDER2%(SEITENANZAHL%):FOR K%=1 TO SEITENANZAHL%:BILDER2%(K%)=K%:NEXT K%:BILDER2%(0)=SEITENANZAHL%
3002 REM:
3003 REM:
3010 PRINT :PRINT :LOCATE ,20:PRINT "Feststellung  vorhandener Bilder / Dokumente l„uft...";
3011 CLOSE#1:OPEN "weg.txt" FOR INPUT AS #1:
3012 REM:
3013 REM:
3021 FOR H%=1 TO 20000:LINE INPUT  #1,C$
3022 IF INSTR(C$,".jpg")=0 THEN 3070
3031 TODO%=BILDER2%(0): FOR K%=1 TO TODO%:VERGLEICH%=BILDER2%(K%):VGL$=RIGHT$(STR$(VERGLEICH%),LEN(STR$(VERGLEICH%))-1):VERGLEICH$="bild-"+RIGHT$("00"+VGL$,3)+".jpg":IF INSTR(C$,VERGLEICH$)=0 THEN 3050:REM
3041 BILDER1%(VERGLEICH%)=1:BILDER1%(0)=BILDER1%(0)+1
3042 BILDER2%(K%)=BILDER2%(SEITENANZAHL%-MINUS%):MINUS%=MINUS%+1:BILDER2%(0)=BILDER2%(0)-1
3050 NEXT K%:
3060 GOTO 3070:REM EGAL, OB TREFFER ODER NICHT
3065 H%=21000:CLOSE #1
3070 NEXT H%:
3100 PRINT :PRINT :FOR I=0 TO SEITENANZAHL: PRINT I, BILDER1%(I),BILDER2%(I):NEXT :
3200 PRINT :PRINT:LOCATE ,20:PRINT "Bilder gefunden:";BILDER1%(0);" von:";SEITENANZAHL
3201 PRINT :PRINT:LOCATE ,20:PRINT "Es fehlen ";BILDER2%(0);
3300 PRINT :PRINT :LOCATE ,20:PRINT "Wollen Sie mit der Installation fortfahren? (J/N)":R$="":WHILE R$<>"J" AND R$<>"j" AND R$<>"n" AND R$<>"N":R$=INKEY$:WEND
3400 IF R$="N" OR R$="n" THEN SYSTEM ELSE RUN "init03"
45000 LOCATE ,20:PRINT "Fehler in Step:  ";STUFE:PRINT:STOP
45001 STOP
50000 REM fehlerbehandlung
50001 REM fehlerbehandlung
50002 REM fehlerbehandlung
50003 REM fehlerbehandlung
50010 IF STUFE=9 THEN RESUME 245
50011 IF STUFE=10 THEN RESUME 3065
51000 RESUME 52000
52000 REM stufe 1 bis 8 ist Fehler aufgetreten:stop
52100 IF STUFE=1 THEN FEHLER$(1)= "Datei "+CHR$(34)+"build.0"+CHR$(34)+" ist nicht oder mit ungltigem Inhalt vorhanden!"::PRINT:PRINT : PRINT FEHLER$(1):RESUME 53:REM ************
52110 IF STUFE=2 THEN FEHLER$(2)= "Unterordner "+CHR$(34)+"bilder"+CHR$(34)+" ist nicht vorhanden!":PRINT :PRINT : PRINT FEHLER$(2):RESUME 66:REM***********
52115 IF STUFE=3 THEN FEHLER$(3)= "Unterordner "+CHR$(34)+"buttons"+CHR$(34)+" ist nicht vorhanden!"::PRINT:PRINT : PRINT FEHLER$(3):RESUME 86 :REM ********************
52120 IF STUFE=4 THEN FEHLER$(4)= "Datei "+CHR$(34)+"css-01.css"+CHR$(34)+" ist nicht vorhanden!"::PRINT:PRINT : PRINT FEHLER$(4):RESUME 116:REM********************
52220 IF STUFE=5 THEN FEHLER$(5)= "Datei "+CHR$(34)+"gg-01.php"+CHR$(34)+" ist nicht vorhanden!"::PRINT:PRINT : PRINT FEHLER$(5):RESUME 127:REM *************************
52230 IF STUFE=6 THEN FEHLER$(6)= "Datei "+CHR$(34)+"gg-02.php"+CHR$(34)+" ist nicht vorhanden!"::PRINT:PRINT : PRINT FEHLER$(6):RESUME 137:REM *********************************
52330 IF STUFE=7 THEN FEHLER$(7)= "Datei "+CHR$(34)+"gg-03.php"+CHR$(34)+" ist nicht vorhanden!"::PRINT:PRINT : PRINT FEHLER$(7):RESUME 147:REM *********************************
52430 IF STUFE=8 THEN FEHLER$(8)= "Datei "+CHR$(34)+"gg-04.php"+CHR$(34)+" ist nicht vorhanden!"::PRINT:PRINT : PRINT FEHLER$(7):RESUME 157:REM *********************************
60000 LOCATE ,20:PRINT "Wie Sie nach hierhin gekommen sind, ist mir ein R„tsel...": STOP