home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 18 / Commodore_Disc_18_19xx_-_de.d64 / startadresse (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  43 lines
  1. 10 rem startadresse aendern by markus nix
  2. 11 rem debugged by butcher
  3. 90 poke198,0:poke53280,0:poke53281,0:print""
  4. 100 q=53265
  5. 110 print"[147]  startadressen-changer/von markus nix"
  6. 115 print"     achtung:eingabe bitte dezimal!"
  7. 120 cr$=chr$(13):c0$=chr$(0):c1$=chr$(1)
  8. 130 input" name des prg's";fl$
  9. 150 print" suche nach "fl$
  10. 160 pokeq,11:open1,8,15:open9,8,9,"#":gosub430:s%=1:ok%=0
  11. 170 print#1,"b-r"9;0;18;s%:gosub430
  12. 180 print#1,"b-p"9;1:get#9,ns$:ifns$=""thenns$=c0$
  13. 190 print#1,"u1"9;0;18;s%:gosub430
  14. 200 fori=2to226step32:print#1,"b-p"9;i:get#9,ty$:ifty$<>chr$(130)goto260
  15. 210 print#1,"b-p"9;i+19:print#9,cr$;
  16. 220 print#1,"b-p"9;i+3
  17. 221 get#9,am$:nm$=nm$+am$
  18. 222 iflen(nm$)=len(fl$)andnm$=fl$then230
  19. 223 iflen(nm$)=len(fl$)andnm$<>fl$thennm$="":goto260
  20. 224 goto221
  21. 230 print#1,"b-p"9;i+1:get#9,lt$:iflt$=""thenlt$=c0$
  22. 240 print#1,"b-p"9;i+2:get#9,ls$:ifls$=""thenls$=c0$
  23. 250 ok%=1:i=226
  24. 260 nexti:ifok%then290
  25. 270 s%=asc(ns$):if0<s%ands%<20goto170
  26. 280 pokeq,27:print" "fl$" nicht gefunden!":close9:close1:end
  27. 290 t%=asc(lt$):s%=asc(ls$):print#1,"u1"9;0;t%;s%:gosub430
  28. 300 print#1,"b-p"9;2:get#9,lo$:iflo$=""thenlo$=c0$
  29. 310 print#1,"b-p"9;3:get#9,hi$:ifhi$=""thenhi$=c0$
  30. 320 lo%=asc(lo$):hi%=asc(hi$):ad=lo%+256*hi%
  31. 330 pokeq,27:print" jetzige lade-adresse:"ad
  32. 340 print" ok (j-n) ?
  33. 350 [161]g$:[139]g$[179][177]"j"[175]g$[179][177]"n"[137]350
  34. 360 [139]g$[178]"j"[137]420
  35. 370 [133]" neue lade adresse";ad$
  36. 380 [139][198](ad$)[178]160[167][153]"ononon":[137]370
  37. 390 ad[178][197](ad$):hi%[178]ad[173]256:lo%[178]ad[171]256[172]hi%
  38. 400 [151]q,11:[152]1,"b-p"9;2:[152]9,[199](lo%)[199](hi%);
  39. 410 [152]1,"u2"9;0;t%;s%:[141]430:[137]290
  40. 420 [151]q,11:[160]9:[160]1:[151]q,27:[153]" "fl$" geaendert!":[128]
  41. 430 [132]1,en$,em$,et$,es$:[139]en$[178]"00"[167][142]
  42. 440 [160]9:[160]1:[151]q,27:[153]" i/o error "en$" "em$" "et$" "es$:[128]
  43.