home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 February / 64er_Magazin_88-02_1988_Markt__Technik_de_Side_A.d64 / bhp-virus-killer (.txt) next >
Commodore BASIC  |  2022-10-26  |  3KB  |  92 lines
  1. 10 poke53280,0:poke53281,0
  2. 20 dimv1(144),v2(144)
  3. 30 dimda(32),fi$(144),tr(144),se(144),vf$(144),vt(144),vs(144),d1(144),d2(144)
  4. 40 fori=1to32:readda(i):nexti
  5. 50 print"[147]        bhp-virus-killer [146]":print"          10.11.87 (tr)
  6. 60 [153]"print 1 wait suche nach viren"
  7. 70 [153]" 2 wait zeige verseuchte files"
  8. 80 [153]" 3 wait viren entfernen"
  9. 90 [153]" 4 wait directory"
  10. 100 [153]" 5 wait programmende"
  11. 110 [161]a$:[139]a$[178]""[167]110
  12. 120 [153]a$:[145][197](a$)[137]140,470,520,830,900
  13. 130 [137]110
  14. 140 [143] ueberpruefe diskette
  15. 150 [141]960:[139]f[167][153]"load"a2$:[141]930:[137]50
  16. 160 [159]1,8,15,"i":[159]2,8,2,"#":[153]"load pass 1 wait"
  17. 170 tr[178]18:se[178]1:fz[178]0
  18. 180 [152]1,"u1 2 0 18";se:sx[178]se
  19. 190 [161]#2,a$,b$
  20. 200 tr[178][198](a$[170][199](0)):se[178][198](b$[170][199](0))
  21. 210 [129]bp[178]2[164]226[169]32
  22. 220 [152]1,"b-p 2";bp
  23. 230 [161]#2,a$:[139]([198](a$[170][199](0))[175]15)[179][177]2[167][130]bp:[137]280
  24. 240 fz[178]fz[170]1:[161]#2,a$,b$:tr(fz)[178][198](a$[170][199](0)):se(fz)[178][198](b$[170][199](0))
  25. 250 fi$(fz)[178]"":d1(fz)[178]sx:d2(fz)[178]bp[170]1
  26. 260 [129]i[178]1[164]16:[161]#2,a$:fi$(fz)[178]fi$(fz)[170]a$:[130]i
  27. 270 [153]".";:[130]bp
  28. 280 [139]tr[179][177]0[167]180
  29. 290 [153]:[139]fz[178]0[167][153]"keine prg-files auf dieser diskette!":[137]420
  30. 300 [153]" pass 2 wait"
  31. 320 vz[178]0:z[178]0
  32. 330 z[178]z[170]1
  33. 340 [152]1,"u1 2 0";tr(z);se(z)
  34. 350 [161]#2,a$,b$:ft[178][198](a$[170][199](0)):fs[178][198](b$[170][199](0)):[161]#2,a$,a$
  35. 360 [129]i[178]1[164]32:[161]#2,a$:a[178][198](a$[170][199](0))
  36. 370 [139]a[178]da(i)[167][130]i:[137]430
  37. 380 i[178]34:[130]i
  38. 390 [153]".";:[139]z[179][177]fz[167]330
  39. 410 [139]vz[178]0[167][153]:[153]"keine bhp-viren gefunden!"
  40. 420 [160]2:[160]1:[141]930:[137]50
  41. 430 [153]:[153]"virus im programm "fi$(z)"wait!!!"
  42. 440 vz[178]vz[170]1:vf$(vz)[178]fi$(z):vt(vz)[178]tr(z):vs(vz)[178]se(z)
  43. 450 v1(vz)[178]d1(z):v2(vz)[178]d2(z)
  44. 460 [137]390
  45. 470 [143] zeige verseuchte files
  46. 480 [153]"load";:[139]vz[178]0[167][153]"keine verseuchten programme.":[141]930:[137]50
  47. 490 [153]" verseuchte programme: wait"
  48. 500 [129]i[178]1[164]vz:[153]vf$(i):[130]i
  49. 510 [141]930:[137]50
  50. 520 [143] viren entfernen
  51. 530 [153]"load";:[139]vz[178]0[167][153]"keine verseuchten programme.":[141]930:[137]50
  52. 540 [141]960:[139]f[167][153]"load"a2$:[141]930:[137]50
  53. 550 [159]1,8,15,"i":[159]2,8,2,"#"
  54. 560 [129]z[178]1[164]vz:[153]""vf$(z)"wait - ";:tr[178]vt(z):se[178]vs(z)
  55. 570 [129]i[178]1[164]8:[152]1,"b-f 0";tr;se
  56. 580 [152]1,"u1 2 0";tr;se
  57. 590 [161]#2,a$,b$:tr[178][198](a$[170][199](0)):se[178][198](b$[170][199](0))
  58. 600 [130]i
  59. 630 [152]1,"u1 2 0 18";v1(z):[152]1,"b-p 2";v2(z)
  60. 640 [152]2,[199](tr);[199](se);
  61. 650 [152]1,"u2 2 0 18";v1(z):[132]1,a1$,a2$,a3$,a4$
  62. 651 [139]a1$[179][177]"00"[167][153]a2$:[160]2:[160]1:[141]930:[137]50
  63. 660 [153]"virus entfernt"
  64. 670 [152]1,"b-p 2";v2(z)[170]27
  65. 680 [161]#2,a$,b$:dl[178][198](a$[170][199](0))[170][198](b$[170][199](0))[172]256
  66. 700 zz[178]0
  67. 710 zz[178]zz[170]1:[152]1,"u1 2 0";tr;se
  68. 720 [161]#2,a$,b$:tr[178][198](a$[170][199](0)):se[178][198](b$[170][199](0))
  69. 730 [139]tr[179][177]0[167]710
  70. 750 [139]dl[178]zz[167]820
  71. 760 [152]1,"u1 2 0 18";v1(z):[152]1,"b-p 2";v2(z)[170]27
  72. 770 zl[178]zz[175]255:zh[178][181](zz[173]256)
  73. 780 [152]2,[199](zl);[199](zh);
  74. 790 [152]1,"u2 2 0 18";v1(z)
  75. 820 [130]z:vz[178]0:[160]2:[160]1:[137]50
  76. 830 [143] directory
  77. 840 [141]960:[139]f[167][153]"load"a2$:[141]930:[137]50
  78. 850 [153]"load 0 ";:[159]1,8,0,"$":[151]781,1:[158]65478:[161]a$,a$,a$,a$:x$[178][199](0)
  79. 860 [129]i[178]1[164]7:[161]a$,b$,c$,d$:[153]a$b$c$d$;:[130]:[153]:[161]a$,a$,a$,b$
  80. 870 [139]st[167][158]65484:[137]890
  81. 880 [153][198](a$[170]x$)[170]256[172][198](b$[170]x$);:[137]860
  82. 890 [160]1:[141]930:[137]50
  83. 900 [158]2048
  84. 910 [131]31,8,194,7,158,194,40,52,51,41,170,194,40,52,52,41
  85. 920 [131]172,50,53,54,170,52,56,58,86,73,82,85,83,0,0,0
  86. 930 [153]:[153]:[153]"<return>":[151]198,0
  87. 940 [161]a$:[139]a$[179][177][199](13)[167]940
  88. 950 [142]
  89. 960 [143] disketten-check
  90. 970 f[178]1:[159]1,8,15,"i":[132]1,a1$,a2$,a3$,a4$:[160]1:[139]a1$[178]"00"[167]f[178]0
  91. 980 [142]
  92.