home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 25 / 64er_Magazin_Sonderheft_25_19xx_Markt__Technik_de.d64 / bc-sucher (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  68 lines
  1. 10 rem ********************************
  2. 20 rem ** suchen von bildschirmcode- **
  3. 30 rem **    texten in programmen    **
  4. 40 rem ********************************
  5. 50 :
  6. 60 :
  7. 70 tr=18:se=1
  8. 80 print"[147]--- bc-textsucher ---"
  9. 90 print"ausgabe auf b[146]ildschirm"
  10. 100 print"       oder d[146]rucker    ";
  11. 110 inputau$
  12. 120 ifau$="b"thenau=3:goto150
  13. 130 ifau$="d"thenau=4:goto150
  14. 140 goto90
  15. 150 input"name der datei ";na$
  16. 160 ifau=3thenprint"[147]"
  17. 170 open3,au
  18. 180 print#3,"wahrscheinliche bc-texte:"
  19. 190 open15,8,15:open2,8,2,"#"
  20. 200 print#15,"u1";2;0;tr;se
  21. 210 input#15,a,b$,c,d
  22. 220 ifa>0then150
  23. 230 forl=0to7
  24. 240 print#15,"b-p";2;l*32+5
  25. 250 da$=""
  26. 260 forn=1tolen(na$)
  27. 270 nt=et:ns=es
  28. 280 get#2,a$
  29. 290 da$=da$+a$
  30. 300 nextn
  31. 310 ifda$=na$then400
  32. 320 nextl
  33. 330 print#15,"b-p";2;0
  34. 340 get#2,nt$:get#2,ns$
  35. 350 nt=asc(nt$+chr$(0)):ns=asc(ns$+chr$(0))
  36. 360 ifns>20then700
  37. 370 print#15,"u1";2;0;nt;ns
  38. 380 goto230
  39. 400 print#15,"b-p";2;l*32+3
  40. 410 get#2,et$:get#2,es$
  41. 420 et=asc(et$+chr$(0)):es=asc(es$+chr$(0))
  42. 430 print#15,"u1";2;0;et;es
  43. 440 nt=et:ns=es
  44. 450 forl=0to255
  45. 460 get#2,a$
  46. 470 a=asc(a$+chr$(0))
  47. 480 ifa<27thenft=ft+1
  48. 490 ifa>26thenft=0
  49. 500 ifft=5thengosub600
  50. 510 nextl
  51. 520 print#15,"b-p";2;0
  52. 530 get#2,nt$:get#2,ns$
  53. 540 nt=asc(nt$+chr$(0)):ns=asc(ns$+chr$(0))
  54. 550 ifns>20then800
  55. 560 print#15,"u1";2;0;nt;ns
  56. 570 goto450
  57. 600 print#3,"track"nt" / sektor"ns" / byte nr."l-5
  58. 610 form=lto255
  59. 620 get#2,a$
  60. 630 a=asc(a$+chr$(0))
  61. 640 ifa>63thenreturn
  62. 650 nextm
  63. 660 goto520
  64. 700 print"datei nicht gefunden !!"
  65. 710 close15:close2:close3
  66. 800 print"ende !!"
  67. 810 close15:close2:close3
  68.