home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 October / 64er_Magazin_87-10_1987_Markt__Technik_de.d64 / bytesucher (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  137 lines
  1. 50 restore:s=0:fori=9999to10054:reada:pokei,a:s=s+a:nexti
  2. 60 ifs<>7539thenprintchr$(13)"[144]datafehler !":end
  3. 80 clr:dima$(145,3),w(20),y(20)
  4. 82 print"[147]    [211]ebastian [206]euhaus & [208]aul-[194]. [203]amp    ";
  5. 83 print"         [194] [217][160][212][160][197][160][211][160][213][160][195][160][200][160][197][160][210][160]           "
  6. 85 print"  [196]isk einlegen & [198]loppy anschalten !"
  7. 90 poke53280,6:poke53281,14:l=1:goto500
  8. 100 get#2,x$:a=asc(x$+chr$(0)):return
  9. 200 print#1,"b-p";2;x*32+b:return
  10. 300 open3,0
  11. 310 print"[147]      "t1$" ":print">[146]"t2$:forii=1tol
  12. 320 poke1144+ii,99:poke55416+ii,6:nextii
  13. 330 print"[145]";:input#3,a$:iflen(a$)>lthen310
  14. 400 close3:t2$="":l=1:return
  15. 450 sys62255:open1,8,15:close1:ifstthen80
  16. 455 open1,8,15,"uj":print#1,"i0"
  17. 460 input#1,a,a$:ifa=73then460
  18. 470 close1:ifa=0orfehler=1thenfe=0:return
  19. 480 poke53280,0:poke53281,0:print"[147]floppyfehler:"a,a$:gosub20000:goto80
  20. 500 input"  [198][146]iles oder [211][146]ektoren durchsuchen    f[157][157][157]";x$:print"[147]";
  21. 510 ifx$<>"s"andx$<>"f"then80
  22. 520 ifx$="s"thenf$="*":goto5410
  23. 1000 gosub450:open1,8,15,"i0":t=18:s=1:c=0:open2,8,2,"#"
  24. 1010 print#1,"u1";2;0;t;s:gosub100:t=a:gosub100:s=a
  25. 1020 forx=0to7:c=c+1:input#1,a,b$:ifathen2010
  26. 1030 b=3:gosub200:gosub100:a$(c,2)=str$(a)
  27. 1050 gosub100:a$(c,3)=str$(a)
  28. 1060 ifval(a$(c,2))=0thenc=c-1:goto2000
  29. 1070 b=5:gosub200:a$=""
  30. 1075 fori=1to16:gosub100:a$=a$+chr$(a):nexti
  31. 1500 a$(c,1)=a$:print" => [144]"a$;
  32. 2000 nextx:iftthen1010
  33. 2010 fehler=1:b=a:gosub450
  34. 5000 poke198,0:printchr$(13)" => '[144]*'  ... [212]/[211]-[193]uswahl"
  35. 5005 print"    '[144]$'  ... [206]eubeginn"chr$(13)" [198]ehler:"b"- "b$
  36. 5007 print" [211]tatus:"a"- "a$
  37. 5010 input"[198]ilename ";f$:iff$="$"then80
  38. 5100 iff$=""thenf$=chr$(0)
  39. 5105 iff$="*"then5410
  40. 5110 fori=1toc:ifleft$(a$(i,1),len(f$))=f$then5400
  41. 5120 next:print"[145][145][145]":goto5010
  42. 5400 t=val(a$(i,2)):s=val(a$(i,3))
  43. 5410 t1$="[215]erte oder [212]ext ?":t2$="w":gosub300:ifa$<>"w"anda$<>"t"then5410
  44. 5420 ifa$="w"thena$="":goto5500
  45. 5425 t1$="[211]uch[212]ext-[197]ingabe (-20 [218]eichen)":l=20:gosub300:f=len(a$)
  46. 5440 fori=1tof:w(i)=asc(mid$(a$,i,1)):next:b$=a$:goto5540
  47. 5460 t1$="[206]eu[212]ext-[197]ingabe (-20 [218]eichen)":l=20:t2$=b$:gosub300
  48. 5470 fori=1tof:y(i)=asc(mid$(a$,i,1)):next:goto5600
  49. 5500 t1$="[215]ieviel #-[195]hr$-[195]odes (1-20) ?":l=2:gosub300:f=val(a$)
  50. 5505 iff<1orf>20then5500
  51. 5510 fori=1tof
  52. 5520 t1$=str$(i)+". [215]ert ":l=3:gosub300:w(i)=val(a$)
  53. 5530 ifw(i)<0orw(i)>255then5520
  54. 5535 y(i)=w(i):nexti
  55. 5540 t1$="[197]rsetzen (j/n) ?":t2$="n"
  56. 5542 gosub300:n$=a$:ifn$<>"j"andn$<>"n"then5540
  57. 5544 ifn$="j"andb$<>""then5460
  58. 5545 ifn$="n"then5600
  59. 5546 fori=1tof
  60. 5547 t1$=str$(i)+". [215]ert ":l=3:t2$=str$(y(i)):gosub300:y(i)=val(a$)
  61. 5548 ify(i)<0ory(i)>255then5547
  62. 5549 nexti
  63. 5600 gosub450:open1,8,15,"i0":open2,8,2,"#"
  64. 5610 fori=1tof:poke827+i,w(i):next
  65. 5611 print"[147]              [170][183][183][183][183][183]kontinuierlich[146][183][183][183][183][183][183]"
  66. 5612 print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  67. 5615 fori=55296to55549:pokei,0:nexti:poke189,f:poke198,0:iff$="*"then10000
  68. 5620 tt=t:ss=s:print#1,"u1";2;0;t;s:gosub100:t=a:gosub100:s=a
  69. 5630 print"[145]track:"tt"[157]   sector:"ss"[157]                ":sys9999
  70. 5640 ifpeek(182)>0then7000
  71. 5650 ifu=1then7050
  72. 5660 ifpeek(198)>0then7050
  73. 5670 iftthen5620
  74. 5680 print"  byte-folge nicht gefunden!":poke198,0:wait198,1:poke198,1:goto80
  75. 7000 az=peek(182)-f+1:print"[145]track:"tt"[157]   sector:"ss"[157]   bytenr.:"az"[157]  "
  76. 7004 fori=55294+az to 55293+az+f:pokei,1:nexti:gosub20000
  77. 7010 ifn$="n"then7050
  78. 7030 print#1,"b-p";2;az:fori=1tof:print#2,chr$(y(i));:nexti
  79. 7040 print#1,"u2";2;0;tt;ss:input#1,a,a$:ifa=0then7050
  80. 7045 poke211,0:poke214,10:sys58640
  81. 7047 print"[144]floppyfehler:"a;a$"          ":poke198,0:wait198,1
  82. 7050 poke211,0:poke214,10:sys58640
  83. 7051 poke198,0:input" s[146]uchen / e[146]nde / a[146]endern / g[146]angart   s  [157][157][157][157][157]";s$
  84. 7052 ifs$<>"s"ands$<>"e"ands$<>"a"ands$<>"g"thenprint"[145][145]":goto7050
  85. 7053 fori=55294+az to 55293+az+f
  86. 7054 pokei,0:nexti
  87. 7055 ifs$="e"thengosub450:print:end
  88. 7056 ifs$="s"then8000
  89. 7058 ifs$="a"then7300
  90. 7090 u=1-u:poke211,20:poke214,6:sys58640
  91. 7100 ifu=0thenprint"kontinuierlich"
  92. 7200 ifu=1thenprint"einzelschritt[146][183]"
  93. 7210 print"":goto7050
  94. 7300 b=0:poke198,0
  95. 7310 bb=b:i=peek(1024+b)
  96. 7311 poke1024+b,i-(i<128)*128
  97. 7312 poke1024+b,i+(i>127)*128:ifpeek(198)=0then7311
  98. 7315 geta$:a=asc(a$+chr$(0)):ifa=13then7400
  99. 7320 ifa=17thenb=b+40:ifb>253thenb=b-240:ifb>40thenb=b-40
  100. 7325 ifa=145thenb=b-40:ifb<0thenb=b+280
  101. 7330 ifa=29thenb=b+1+(b>252)*254
  102. 7335 ifa=157then b=b-1-(b<1)*254
  103. 7340 ifb>253andb<280thenb=b-40
  104. 7350 poke1024+bb,i:ifbb<>bthen7310
  105. 7360 poke1024+b,a
  106. 7370 b=b+1:goto7310
  107. 7400 input"abspeichern (j/n)  j[157][157][157]";a$:ifa$<>"j"anda$<>"n"then7400
  108. 7420 ifa$="n"thenprint"[145][145][145][145]":goto7050
  109. 7425 print#1,"b-p";2;2
  110. 7430 fori=1024to1277:print#2,chr$(peek(i));:nexti:print"[145][145][145]":goto7040
  111. 8000 sys10050:print"[145][145][145]":ifpeek(182)>0then7000
  112. 8005 print"[145]":iff$<>"*"then5660
  113. 8010 goto10040
  114. 10000 input"[145] start-track ";t:ift<1ort>35thenprint"[145]":goto10000
  115. 10020 input"[145]start-sektor ";s:ifs<0ors>20thenprint"[145]":goto10020
  116. 10032 input"[145]nach r[146]eihe oder a[146]nschluss   r[157][157][157]";r$
  117. 10033 ifr$<>"r"andr$<>"a"then10032
  118. 10034 print"[145]":ifr$="a"thenf$="":goto5620
  119. 10035 poke198,0
  120. 10040 tt=t:ss=s:print#1,"u1";2;0;t;s:input#1,a:ifathent=t+1+(t=35):s=0:goto10040
  121. 10045 get#2,a$,a$:sys9999
  122. 10050 print"[145]track:"tt"[157]   sector:"ss"[157]                ":gosub100:gosub100
  123. 10060 s=s+1:ifpeek(198)>0oru=1then7050
  124. 10080 ifpeek(182)>0then7000
  125. 10090 ift=35ands>16then5680
  126. 10100 goto10040
  127. 20000 si=54272:we=si+4:wf=si+11
  128. 20010 pokesi+22,0:pokesi+23,249:pokesi+24,159
  129. 20020 pokesi,169:pokesi+1,5+hh:pokesi+5,27:pokesi+6,17
  130. 20022 pokesi+12,222:pokewf,33:pokewe,33
  131. 20030 foree=15to65:pokesi+13,0:pokesi+7,0:pokesi+8,ee
  132. 20035 ifpeek(198)=0thennextee:hh=3-hh:pokewe,0:goto20020
  133. 20040 pokewe,0:pokewf,0:poke198,0:return
  134. 30000 data120,162,2,134,96,32,198,255,32,207,255,164,96,153,254,3,200,132,96,208
  135. 30001 data243,32,204,255,160,1,162,0,200,240,16,189,60,3,217,254,3,208,243,232
  136. 30002 data228,189,240,3,76,43,39,132,182,88,96,164,182,76,41,39
  137.