home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 32 / 64er_Magazin_Sonderheft_32_19xx_Markt__Technik_de_Side_B.d64 / change.ega (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  57 lines
  1. 10 n1$="nl-10 einfach":n2$="nl-10 vierfach":n3$="nl-10 vierfach/d"
  2. 15 n4$="nl-10 vierfach/v":u=8:d=0
  3. 60 print "bitte druckertreiber disk in laufwerk 8 einlegen und taste druecken"
  4. 65 poke198,0:wait 198,1
  5. 70 for ix=1to4:
  6. 80 if ix=1then n$=n1$:p=1024
  7. 85 if ix=2then n$=n2$:p=1024
  8. 90 if ix=3then n$=n3$:p=1024
  9. 95 if ix=4then n$=n4$:p=1024
  10. 110 v=16: q=32: f=256: n$=left$(n$,v)
  11. 120 h$="0123456789abcdef": z$=chr$(0)
  12. 130 t$=right$(str$(d),1): open 1,u,15,"i"+t$: gosub 620
  13. 140 t$=t$+":"+n$: open 2,u,2,t$+",p,r"
  14. 150 input#1,e,m$,j,k: if e=0 then 240
  15. 160 close 1: close 2: print " programm ";n$;
  16. 170 if e=62 then print " nicht gefunden ":
  17. 180 if e=64 then print " falscher filetyp":
  18. 190 print " disk read-error";e: end
  19. 210 j=int(c/v): k=c-j*v
  20. 220 m$=m$+mid$(h$,j+1,1)+mid$(h$,k+1,1)
  21. 230 return
  22. 240 get#2,a$,b$: if st then 190
  23. 250 close 2: close 1: m$=""
  24. 260 a=asc(a$+z$): b=asc(b$+z$)
  25. 270 c=b: gosub 210: c=a: gosub 210
  26. 280 print"die startadresse von ";n$;" ist: ";
  27. 290 print"hexadezimal: ";m$;" dezimal:  ";b*f+a
  28. 300 print"und wird geaendert auf dezimal: ";p
  29. 340 b=int(p/f): a=p-b*f: p$=chr$(a)+chr$(b): m$=""
  30. 350 c=b: gosub 210: c=a: gosub 210
  31. 360 print " hex:  ";m$;"    decimal: ";b*f+a
  32. 390 j=len(n$): if j=v then 410
  33. 400 for x=j+1 to v:n$=n$+chr$(160):next
  34. 410 open 1,u,15: open 2,u,2,"#"
  35. 420 gosub 620: t=18: s=1
  36. 430 print#1,"u1:";2;d;t;s: gosub 620
  37. 440 print#1,"b-p:";2;0: get#2,a$,b$
  38. 450 t=asc(a$+z$): s=asc(b$+z$): h=2
  39. 460 print#1,"b-p:";2;h: get#2,t$
  40. 470 c=asc(t$+z$): if c<>130 then 510
  41. 480 get#2,a$,b$: f$="": for x=1 to v
  42. 490 get#2,t$: f$=f$+t$: next
  43. 500 if f$=n$ then 530
  44. 510 h=h+q: if h<f then 460
  45. 520 goto 430
  46. 530 a=asc(a$+z$): b=asc(b$+z$)
  47. 540 print#1,"u1:";2;d;a;b: gosub 620
  48. 550 print#1,"b-p:";2;2: print#2,p$;
  49. 560 print#1,"u2:";2;d;a;b: gosub 620
  50. 570 close 2: gosub 620: close 1
  51. 600 next ix
  52. 610 print"fertig! die druckertreiber sind nun mit der richtigen startadresse"
  53. 615 print"versehen.":end
  54. 620 input#1,e,m$,j,k:if e=0 then return
  55. 630 print " error: ";e;m$;j;k
  56. 640 close 2: close 1: end
  57.