10 REM STARTADRESSE AENDERN BY MARKUS NIX
11 REM DEBUGGED BY BUTCHER
90 POKE198,0:POKE53280,0:POKE53281,0:PRINT""
100 Q=53265
110 PRINT"[147]  STARTADRESSEN-CHANGER/VON MARKUS NIX"
115 PRINT"     ACHTUNG:EINGABE BITTE DEZIMAL!"
120 CR$=CHR$(13):C0$=CHR$(0):C1$=CHR$(1)
130 INPUT" NAME DES PRG'S";FL$
150 PRINT" SUCHE NACH "FL$
160 POKEQ,11:OPEN1,8,15:OPEN9,8,9,"#":GOSUB430:S%=1:OK%=0
170 PRINT#1,"B-R"9;0;18;S%:GOSUB430
180 PRINT#1,"B-P"9;1:GET#9,NS$:IFNS$=""THENNS$=C0$
190 PRINT#1,"U1"9;0;18;S%:GOSUB430
200 FORI=2TO226STEP32:PRINT#1,"B-P"9;I:GET#9,TY$:IFTY$<>CHR$(130)GOTO260
210 PRINT#1,"B-P"9;I+19:PRINT#9,CR$;
220 PRINT#1,"B-P"9;I+3
221 GET#9,AM$:NM$=NM$+AM$
222 IFLEN(NM$)=LEN(FL$)ANDNM$=FL$THEN230
223 IFLEN(NM$)=LEN(FL$)ANDNM$<>FL$THENNM$="":GOTO260
224 GOTO221
230 PRINT#1,"B-P"9;I+1:GET#9,LT$:IFLT$=""THENLT$=C0$
240 PRINT#1,"B-P"9;I+2:GET#9,LS$:IFLS$=""THENLS$=C0$
250 OK%=1:I=226
260 NEXTI:IFOK%THEN290
270 S%=ASC(NS$):IF0<S%ANDS%<20GOTO170
280 POKEQ,27:PRINT" "FL$" NICHT GEFUNDEN!":CLOSE9:CLOSE1:END
290 T%=ASC(LT$):S%=ASC(LS$):PRINT#1,"U1"9;0;T%;S%:GOSUB430
300 PRINT#1,"B-P"9;2:GET#9,LO$:IFLO$=""THENLO$=C0$
310 PRINT#1,"B-P"9;3:GET#9,HI$:IFHI$=""THENHI$=C0$
320 LO%=ASC(LO$):HI%=ASC(HI$):AD=LO%+256*HI%
330 POKEQ,27:PRINT" JETZIGE LADE-ADRESSE:"AD
340 PRINT" OK (J-N) ?
350 [161]G$:[139]G$[179][177]"J"[175]G$[179][177]"N"[137]350
360 [139]G$[178]"J"[137]420
370 [133]" NEUE LADE ADRESSE";AD$
380 [139][198](AD$)[178]160[167][153]"ONONON":[137]370
390 AD[178][197](AD$):HI%[178]AD[173]256:LO%[178]AD[171]256[172]HI%
400 [151]Q,11:[152]1,"B-P"9;2:[152]9,[199](LO%)[199](HI%);
410 [152]1,"U2"9;0;T%;S%:[141]430:[137]290
420 [151]Q,11:[160]9:[160]1:[151]Q,27:[153]" "FL$" GEAENDERT!":[128]
430 [132]1,EN$,EM$,ET$,ES$:[139]EN$[178]"00"[167][142]
440 [160]9:[160]1:[151]Q,27:[153]" I/O ERROR "EN$" "EM$" "ET$" "ES$:[128]