home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 18
/
Commodore_Disc_18_19xx_-_de.d64
/
startadresse
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
43 lines
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]