home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / error-changer (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  65 lines
  1. 110 rem *****************************
  2. 130 rem *                           *
  3. 140 rem * e r r o r - c h a n g e r *
  4. 150 rem *                           *
  5. 151 rem *          c 64             *
  6. 152 rem *                           *
  7. 160 rem *     by andreas knipp      *
  8. 170 rem *                           *
  9. 180 rem *****************************
  10. 190 rem
  11. 200 poke53280,4:poke53281,6:goto 250
  12. 250 print"[147]waehlbare fehlermeldungen by a.knipp kps":dimt$(40):fz=1
  13. 260 t$(30)="break error"
  14. 270 t$(31)="ready.":hi=256
  15. 280 fori=49152to49232
  16. 300 readx:pokei,x:next
  17. 310 poke768,139:poke769,227:rem fehlermeldungen auf rom  stellen.
  18. 320 lv=41372:sv=49293:va=49233
  19. 330 forlv=41373to41767:rem einlesen der alten fehlermeldungen
  20. 340 t$(fz)=t$(fz)+chr$(peek(lv)and127):ifpeek(lv)<127then370
  21. 350 t$(fz)=t$(fz)+" error":printt$(fz)
  22. 360 fz=fz+1
  23. 370 nextlv:fz=fz+1:rem platz fuer readymeldung
  24. 380 fori=1tofz:rem moeglichkeit der aenderung
  25. 390 print""t$(i)chr$(13)"[145]";:inputt$(i)
  26. 400 iflen(t$(i))<2then390
  27. 410 nexti
  28. 420 input"alles richtig j/n";ar$:ifar$<>"j"then380
  29. 430 forj=1tofz-1:rem neue fm in den speicher schreiben
  30. 440 fori=1tolen(t$(j))-1
  31. 450 pokesv+i-1,asc(mid$(t$(j),i,1))
  32. 460 nexti
  33. 470 pokesv+i-1,asc(mid$(t$(j),i,1))+128
  34. 480 a=sv:gosub690:pokeva+1,ah%:pokeva,al%
  35. 490 va=va+2:sv=sv+i:nextj
  36. 500 pokesv,13
  37. 510 forj=1tolen(t$(31)):pokesv+j,asc(mid$(t$(31),j,1)):next:rem ready
  38. 520 pokesv+j,13:a=sv:gosub690:poke49220,al%:poke49222,ah%:pokesv+j+1,0
  39. 530 sys 49152
  40. 540 input"speicherung j/n";s$:ifs$="n"thenend
  41. 550 ifs$<>"j"then540
  42. 560 sa=49152:ae=sv+j+2
  43. 570 print"geraetenummer";
  44. 580 print"   floppy = z.b.  8                        datasette =    1";
  45. 590 input dn
  46. 600 a$="@:fehler.obj":a%=len(a$)
  47. 610 a=681:gosub690:poke183,a%:poke187,al%:poke188,ah%
  48. 620 fori=1toa%:poke680+i,asc(mid$(a$,i)):next:rem filename
  49. 630 a=sa:gosub690:poke251,al%:poke252,ah%:rem startadresse
  50. 640 a=ae:gosub690:poke781,al%:poke782,ah%:rem endadresse
  51. 650 poke186,dn:poke780,251:sys65496:rem save:dn = devicenummer
  52. 660 print"speicherung erfolgte unter "chr$(34)"fehler.obj"chr$(34)
  53. 670 print"absolut laden und mit sys 49152 starten"
  54. 680 end
  55. 690 ah%=a/hi:al%=a-ah%*hi
  56. 700 return
  57. 710 data169,11,160,192,141,0,3,140,1,3,96,138
  58. 720 data16,3,76,67,192,10,170,189,79,192,133,34
  59. 730 data189,80,192,133,35,32,204,255,169,0,133,19
  60. 740 data32,215,170,32,69,171,160,0,177,34,72,41
  61. 750 data127,32,71,171,200,104,16,244,32,122,166,164
  62. 760 data58,200,240,3,32,194,189,169,187,160,194,76
  63. 770 data 120,164
  64. 780 data169,139,160,227,76,4,192
  65.