TDF VIRUS KILLER
FILE INFORMATION
FILENAME(S): TDF VIRUS KILLER
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 16:59:43
APPEARS ON: 1 disk(s)
FILE HASH
278e34ebfb1d97310dd1e260ac211cf57e699e7be2f0beeab18086daca3e3e89
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | TDF VIRUS KILLER | PRG | High Voltage Complete C64 Collection | 33 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 0A 00 97 20 35 33 32 38 30 2C 31 31 |....... 53280,11| 00000010: 3A 97 20 35 33 32 38 31 2C 31 32 00 31 08 14 00 |:. 53281,12.1...| 00000020: 86 20 56 31 28 31 34 34 29 2C 56 32 28 31 34 34 |. V1(144),V2(144| 00000030: 29 00 80 08 1E 00 86 20 44 41 28 33 32 29 2C 46 |)...... DA(32),F| 00000040: 49 24 28 31 34 34 29 2C 54 52 28 31 34 34 29 2C |I$(144),TR(144),| 00000050: 53 45 28 31 34 34 29 2C 56 46 24 28 31 34 34 29 |SE(144),VF$(144)| 00000060: 2C 56 54 28 31 34 34 29 2C 56 53 28 31 34 34 29 |,VT(144),VS(144)| 00000070: 2C 44 31 28 31 34 34 29 2C 44 32 28 31 34 34 29 |,D1(144),D2(144)| 00000080: 00 99 08 28 00 81 20 49 B2 31 A4 33 32 3A 87 20 |...(.. I.1.32:. | 00000090: 44 41 28 49 29 3A 82 20 49 00 D9 08 32 00 99 22 |DA(I):. I...2.."| 000000A0: 93 05 20 20 20 20 20 20 20 12 20 42 48 50 2D 56 |.. . BHP-V| 000000B0: 49 52 55 53 2D 4B 49 4C 4C 45 52 20 92 22 3A 99 |IRUS-KILLER .":.| 000000C0: 22 20 20 20 20 20 20 20 20 20 30 34 2E 30 32 2E |" 04.02.| 000000D0: 38 38 20 54 2E 44 2E 46 2E 00 FA 08 3C 00 99 22 |88 T.D.F....<.."| 000000E0: 11 11 90 12 20 31 20 92 20 53 45 41 52 43 48 20 |.... 1 . SEARCH | 000000F0: 46 4F 52 20 56 49 52 55 53 22 00 1C 09 46 00 99 |FOR VIRUS"...F..| 00000100: 22 11 12 20 32 20 92 20 53 48 4F 57 20 49 4E 46 |".. 2 . SHOW INF| 00000110: 45 43 54 45 44 20 46 49 4C 45 53 22 00 35 09 50 |ECTED FILES".5.P| 00000120: 00 99 22 11 12 20 33 20 92 20 4B 49 4C 4C 20 56 |..".. 3 . KILL V| 00000130: 49 52 55 53 22 00 4D 09 5A 00 99 22 11 12 20 34 |IRUS".M.Z..".. 4| 00000140: 20 92 20 44 49 52 45 43 54 4F 52 59 22 00 69 09 | . DIRECTORY".i.| 00000150: 64 00 99 22 11 12 20 35 20 92 20 45 4E 44 20 50 |d..".. 5 . END P| 00000160: 52 4F 47 52 41 4D 4D 11 22 00 7E 09 6E 00 A1 20 |ROGRAMM.".~.n.. | 00000170: 41 24 3A 8B 41 24 B2 22 22 A7 20 31 31 30 00 A3 |A$:.A$."". 110..| 00000180: 09 78 00 99 41 24 3A 91 20 C5 28 41 24 29 89 20 |.x..A$:. .(A$). | 00000190: 31 34 30 2C 34 37 30 2C 35 32 30 2C 38 33 30 2C |140,470,520,830,| 000001A0: 39 30 30 00 AD 09 82 00 89 20 31 31 30 00 C4 09 |900...... 110...| 000001B0: 8C 00 8F 20 53 45 41 52 43 48 20 46 4F 52 20 56 |... SEARCH FOR V| 000001C0: 49 52 55 53 00 E6 09 96 00 8D 20 39 36 30 3A 8B |IRUS...... 960:.| 000001D0: 46 A7 20 99 22 93 12 22 41 32 24 3A 8D 20 39 33 |F. .".."A2$:. 93| 000001E0: 30 3A 89 20 35 30 00 11 0A A0 00 9F 20 31 2C 38 |0:. 50...... 1,8| 000001F0: 2C 31 35 2C 22 49 22 3A 9F 32 2C 38 2C 32 2C 22 |,15,"I":.2,8,2,"| 00000200: 23 22 3A 99 22 93 12 20 50 41 53 53 20 31 20 92 |#":.".. PASS 1 .| 00000210: 22 00 25 0A AA 00 54 52 B2 31 38 3A 53 45 B2 31 |".%...TR.18:SE.1| 00000220: 3A 46 5A B2 30 00 41 0A B4 00 98 31 2C 22 55 31 |:FZ.0.A....1,"U1| 00000230: 20 32 20 30 20 31 38 22 3B 53 45 3A 53 58 B2 53 | 2 0 18";SE:SX.S| 00000240: 45 00 4F 0A BE 00 A1 23 32 2C 41 24 2C 42 24 00 |E.O....#2,A$,B$.| 00000250: 6F 0A C8 00 54 52 B2 C6 28 41 24 AA C7 28 30 29 |o...TR..(A$..(0)| 00000260: 29 3A 53 45 B2 C6 28 42 24 AA C7 28 30 29 29 00 |):SE..(B$..(0)).| 00000270: 85 0A D2 00 81 20 42 50 B2 32 20 A4 20 32 32 36 |..... BP.2 . 226| 00000280: 20 A9 20 33 32 00 97 0A DC 00 98 31 2C 22 42 2D | . 32......1,"B-| 00000290: 50 20 32 22 3B 42 50 00 C4 0A E6 00 A1 23 32 2C |P 2";BP......#2,| 000002A0: 41 24 3A 8B 28 C6 28 41 24 AA C7 28 30 29 29 AF |A$:.(.(A$..(0)).| 000002B0: 20 31 35 29 B3 B1 32 20 A7 20 82 20 42 50 3A 89 | 15)..2 . . BP:.| 000002C0: 20 32 38 30 00 FE 0A F0 00 46 5A B2 46 5A AA 31 | 280.....FZ.FZ.1| 000002D0: 3A A1 23 32 2C 41 24 2C 42 24 3A 54 52 28 46 5A |:.#2,A$,B$:TR(FZ| 000002E0: 29 B2 C6 28 41 24 AA C7 28 30 29 29 3A 53 45 28 |)..(A$..(0)):SE(| 000002F0: 46 5A 29 B2 C6 28 42 24 AA C7 28 30 29 29 00 23 |FZ)..(B$..(0)).#| 00000300: 0B FA 00 46 49 24 28 46 5A 29 B2 22 22 3A 44 31 |...FI$(FZ)."":D1| 00000310: 28 46 5A 29 B2 53 58 3A 44 32 28 46 5A 29 B2 42 |(FZ).SX:D2(FZ).B| 00000320: 50 AA 31 00 4C 0B 04 01 81 49 B2 31 A4 31 36 3A |P.1.L....I.1.16:| 00000330: A1 23 32 2C 41 24 3A 46 49 24 28 46 5A 29 B2 46 |.#2,A$:FI$(FZ).F| 00000340: 49 24 28 46 5A 29 AA 41 24 3A 82 49 00 5B 0B 0E |I$(FZ).A$:.I.[..| 00000350: 01 99 22 2E 22 3B 3A 82 20 42 50 00 6D 0B 18 01 |..".";:. BP.m...| 00000360: 8B 20 54 52 B3 B1 30 20 A7 20 31 38 30 00 A6 0B |. TR..0 . 180...| 00000370: 22 01 99 3A 8B 20 46 5A B2 30 20 A7 20 99 22 11 |"..:. FZ.0 . .".| 00000380: 4E 4F 20 50 52 47 2D 46 49 4C 45 53 20 4F 4E 20 |NO PRG-FILES ON | 00000390: 54 48 49 53 20 44 49 53 4B 45 54 54 45 20 21 22 |THIS DISKETTE !"| 000003A0: 3A 89 20 34 32 30 00 B9 0B 2C 01 99 22 11 12 20 |:. 420...,..".. | 000003B0: 50 41 53 53 20 32 20 92 22 00 C6 0B 40 01 56 5A |PASS 2 ."...@.VZ| 000003C0: B2 30 3A 5A B2 30 00 D0 0B 4A 01 5A B2 5A AA 31 |.0:Z.0...J.Z.Z.1| 000003D0: 00 EC 0B 54 01 98 31 2C 22 55 31 20 32 20 30 22 |...T..1,"U1 2 0"| 000003E0: 3B 54 52 28 5A 29 3B 53 45 28 5A 29 00 20 0C 5E |;TR(Z);SE(Z). .^| 000003F0: 01 A1 23 32 2C 41 24 2C 42 24 3A 46 54 B2 C6 28 |..#2,A$,B$:FT..(| 00000400: 41 24 AA C7 28 30 29 29 3A 46 53 B2 C6 28 42 24 |A$..(0)):FS..(B$| 00000410: AA C7 28 30 29 29 3A A1 23 32 2C 41 24 2C 41 24 |..(0)):.#2,A$,A$| 00000420: 00 40 0C 68 01 81 49 B2 31 A4 33 32 3A A1 23 32 |.@.h..I.1.32:.#2| 00000430: 2C 41 24 3A 41 B2 C6 28 41 24 AA C7 28 30 29 29 |,A$:A..(A$..(0))| 00000440: 00 56 0C 72 01 8B 20 41 B2 44 41 28 49 29 A7 82 |.V.r.. A.DA(I)..| 00000450: 49 3A 89 34 33 30 00 62 0C 7C 01 49 B2 33 34 3A |I:.430.b.|.I.34:| 00000460: 82 49 00 77 0C 86 01 99 22 2E 22 3B 3A 8B 5A B3 |.I.w....".";:.Z.| 00000470: B1 46 5A A7 33 33 30 00 9D 0C 9A 01 8B 20 56 5A |.FZ.330...... VZ| 00000480: B2 30 A7 99 3A 99 22 11 4E 4F 20 42 48 50 2D 56 |.0..:.".NO BHP-V| 00000490: 49 52 55 53 20 46 4F 55 4E 44 20 21 22 00 B2 0C |IRUS FOUND !"...| 000004A0: A4 01 A0 32 3A A0 31 3A 20 8D 20 39 33 30 3A 89 |...2:.1: . 930:.| 000004B0: 35 30 00 DB 0C AE 01 99 3A 99 22 56 49 52 55 53 |50......:."VIRUS| 000004C0: 20 49 4E 20 50 52 4F 47 52 41 4D 4D 20 12 22 46 | IN PROGRAMM ."F| 000004D0: 49 24 28 5A 29 22 92 21 21 21 22 00 10 0D B8 01 |I$(Z)".!!!".....| 000004E0: 56 5A B2 56 5A AA 31 3A 56 46 24 28 56 5A 29 B2 |VZ.VZ.1:VF$(VZ).| 000004F0: 46 49 24 28 5A 29 3A 56 54 28 56 5A 29 B2 54 52 |FI$(Z):VT(VZ).TR| 00000500: 28 5A 29 3A 56 53 28 56 5A 29 B2 53 45 28 5A 29 |(Z):VS(VZ).SE(Z)| 00000510: 00 2E 0D C2 01 56 31 28 56 5A 29 B2 44 31 28 5A |.....V1(VZ).D1(Z| 00000520: 29 3A 56 32 28 56 5A 29 B2 44 32 28 5A 29 00 38 |):V2(VZ).D2(Z).8| 00000530: 0D CC 01 89 20 33 39 30 00 52 0D D6 01 8F 20 53 |.... 390.R.... S| 00000540: 48 4F 57 20 49 4E 46 45 43 54 45 44 20 46 49 4C |HOW INFECTED FIL| 00000550: 45 53 00 89 0D E0 01 99 22 93 22 3B 3A 8B 20 56 |ES......".";:. V| 00000560: 5A B2 30 A7 20 99 22 4E 4F 20 49 4E 46 45 43 54 |Z.0. ."NO INFECT| 00000570: 45 44 20 50 52 4F 47 52 41 4D 4D 27 53 2E 22 3A |ED PROGRAMM'S.":| 00000580: 8D 20 39 33 30 3A 89 35 30 00 AA 0D EA 01 99 22 |. 930:.50......"| 00000590: 12 20 49 4E 46 45 43 54 45 44 20 50 52 4F 47 52 |. INFECTED PROGR| 000005A0: 41 4D 4D 27 53 3A 20 92 11 22 00 C3 0D F4 01 81 |AMM'S: .."......| 000005B0: 20 49 B2 31 A4 56 5A 3A 99 20 56 46 24 28 49 29 | I.1.VZ:. VF$(I)| 000005C0: 3A 82 49 00 D2 0D FE 01 8D 20 39 33 30 3A 89 20 |:.I...... 930:. | 000005D0: 35 30 00 E3 0D 08 02 8F 20 4B 49 4C 4C 20 56 49 |50...... KILL VI| 000005E0: 52 55 53 00 18 0E 12 02 99 22 93 22 3B 3A 8B 20 |RUS......".";:. | 000005F0: 56 5A B2 30 A7 99 22 4E 4F 20 49 4E 46 45 43 54 |VZ.0.."NO INFECT| 00000600: 45 44 20 50 52 4F 47 52 41 4D 4D 27 53 2E 22 3A |ED PROGRAMM'S.":| 00000610: 8D 39 33 30 3A 89 35 30 00 3A 0E 1C 02 8D 20 39 |.930:.50.:.... 9| 00000620: 36 30 3A 8B 46 A7 20 99 22 93 12 22 41 32 24 3A |60:.F. .".."A2$:| 00000630: 8D 20 39 33 30 3A 89 20 35 30 00 57 0E 26 02 9F |. 930:. 50.W.&..| 00000640: 20 31 2C 38 2C 31 35 2C 22 49 22 3A 9F 20 32 2C | 1,8,15,"I":. 2,| 00000650: 38 2C 32 2C 22 23 22 00 89 0E 30 02 81 5A B2 31 |8,2,"#"...0..Z.1| 00000660: 20 A4 20 56 5A 3A 99 22 12 22 56 46 24 28 5A 29 | . VZ:."."VF$(Z)| 00000670: 22 92 20 2D 20 22 3B 3A 54 52 B2 56 54 28 5A 29 |". - ";:TR.VT(Z)| 00000680: 3A 53 45 B2 56 53 28 5A 29 00 A5 0E 3A 02 81 49 |:SE.VS(Z)...:..I| 00000690: B2 31 A4 38 3A 98 31 2C 22 42 2D 46 20 30 22 3B |.1.8:.1,"B-F 0";| 000006A0: 54 52 3B 53 45 00 BB 0E 44 02 98 31 2C 22 55 31 |TR;SE...D..1,"U1| 000006B0: 20 32 20 30 22 3B 54 52 3B 53 45 00 E5 0E 4E 02 | 2 0";TR;SE...N.| 000006C0: A1 23 32 2C 41 24 2C 42 24 3A 54 52 B2 C6 28 41 |.#2,A$,B$:TR..(A| 000006D0: 24 AA C7 28 30 29 29 3A 53 45 B2 C6 28 42 24 AA |$..(0)):SE..(B$.| 000006E0: C7 28 30 29 29 00 EC 0E 58 02 82 49 00 16 0F 76 |.(0))...X..I...v| 000006F0: 02 98 31 2C 22 55 31 20 32 20 30 20 31 38 22 3B |..1,"U1 2 0 18";| 00000700: 56 31 28 5A 29 3A 98 31 2C 22 42 2D 50 20 32 22 |V1(Z):.1,"B-P 2"| 00000710: 3B 56 32 28 5A 29 00 2A 0F 80 02 98 32 2C C7 28 |;V2(Z).*....2,.(| 00000720: 54 52 29 3B C7 28 53 45 29 3B 00 56 0F 8A 02 98 |TR);.(SE);.V....| 00000730: 31 2C 22 55 32 20 32 20 30 20 31 38 22 3B 56 31 |1,"U2 2 0 18";V1| 00000740: 28 5A 29 3A 84 31 2C 41 31 24 2C 41 32 24 2C 41 |(Z):.1,A1$,A2$,A| 00000750: 33 24 2C 41 34 24 00 7D 0F 8B 02 8B 20 41 31 24 |3$,A4$.}.... A1$| 00000760: B3 B1 22 30 30 22 A7 20 99 20 41 32 24 3A A0 32 |.."00". . A2$:.2| 00000770: 3A A0 31 3A 8D 20 39 33 30 3A 89 35 30 00 91 0F |:.1:. 930:.50...| 00000780: 94 02 99 22 56 49 52 55 53 20 4B 49 4C 4C 45 44 |..."VIRUS KILLED| 00000790: 22 00 A9 0F 9E 02 98 31 2C 22 42 2D 50 20 32 22 |"......1,"B-P 2"| 000007A0: 3B 56 32 28 5A 29 AA 32 37 00 D4 0F A8 02 A1 23 |;V2(Z).27......#| 000007B0: 32 2C 41 24 2C 42 24 3A 44 4C B2 C6 28 41 24 AA |2,A$,B$:DL..(A$.| 000007C0: C7 28 30 29 29 AA C6 28 42 24 AA C7 28 30 29 29 |.(0))..(B$..(0))| 000007D0: AC 32 35 36 00 DD 0F BC 02 5A 5A B2 30 00 FB 0F |.256.....ZZ.0...| 000007E0: C6 02 5A 5A B2 5A 5A AA 31 3A 98 31 2C 22 55 31 |..ZZ.ZZ.1:.1,"U1| 000007F0: 20 32 20 30 22 3B 54 52 3B 53 45 00 25 10 D0 02 | 2 0";TR;SE.%...| 00000800: A1 23 32 2C 41 24 2C 42 24 3A 54 52 B2 C6 28 41 |.#2,A$,B$:TR..(A| 00000810: 24 AA C7 28 30 29 29 3A 53 45 B2 C6 28 42 24 AA |$..(0)):SE..(B$.| 00000820: C7 28 30 29 29 00 37 10 DA 02 8B 20 54 52 B3 B1 |.(0)).7.... TR..| 00000830: 30 20 A7 20 37 31 30 00 49 10 EE 02 8B 20 44 4C |0 . 710.I.... DL| 00000840: B2 5A 5A 20 A7 20 38 32 30 00 76 10 F8 02 98 31 |.ZZ . 820.v....1| 00000850: 2C 22 55 31 20 32 20 30 20 31 38 22 3B 56 31 28 |,"U1 2 0 18";V1(| 00000860: 5A 29 3A 98 31 2C 22 42 2D 50 20 32 22 3B 56 32 |Z):.1,"B-P 2";V2| 00000870: 28 5A 29 AA 32 37 00 93 10 02 03 5A 4C B2 5A 5A |(Z).27.....ZL.ZZ| 00000880: 20 AF 20 32 35 35 3A 5A 48 B2 B5 28 5A 5A AD 32 | . 255:ZH..(ZZ.2| 00000890: 35 36 29 00 A7 10 0C 03 98 32 2C C7 28 5A 4C 29 |56)......2,.(ZL)| 000008A0: 3B C7 28 5A 48 29 3B 00 C0 10 16 03 98 31 2C 22 |;.(ZH);......1,"| 000008B0: 55 32 20 32 20 30 20 31 38 22 3B 56 31 28 5A 29 |U2 2 0 18";V1(Z)| 000008C0: 00 D7 10 34 03 82 20 5A 3A 56 5A B2 30 3A A0 32 |...4.. Z:VZ.0:.2| 000008D0: 3A A0 31 3A 89 35 30 00 E7 10 3E 03 8F 20 44 49 |:.1:.50...>.. DI| 000008E0: 52 45 43 54 4F 52 59 00 09 11 48 03 8D 20 39 36 |RECTORY...H.. 96| 000008F0: 30 3A 8B 20 46 20 A7 20 99 22 93 12 22 41 32 24 |0:. F . .".."A2$| 00000900: 3A 8D 39 33 30 3A 89 35 30 00 45 11 52 03 99 22 |:.930:.50.E.R.."| 00000910: 93 20 30 20 22 3B 3A 9F 20 31 2C 38 2C 30 2C 22 |. 0 ";:. 1,8,0,"| 00000920: 24 22 3A 97 37 38 31 2C 31 3A 9E 36 35 34 37 38 |$":.781,1:.65478| 00000930: 3A A1 41 24 2C 41 24 2C 41 24 2C 41 24 3A 58 24 |:.A$,A$,A$,A$:X$| 00000940: B2 C7 28 30 29 00 79 11 5C 03 81 49 B2 31 A4 37 |..(0).y.\..I.1.7| 00000950: 3A A1 41 24 2C 42 24 2C 43 24 2C 44 24 3A 99 41 |:.A$,B$,C$,D$:.A| 00000960: 24 42 24 43 24 44 24 3B 3A 82 3A 99 3A A1 41 24 |$B$C$D$;:.:.:.A$| 00000970: 2C 41 24 2C 41 24 2C 42 24 00 91 11 66 03 8B 20 |,A$,A$,B$...f.. | 00000980: 53 54 A7 20 9E 20 36 35 34 38 34 3A 89 20 38 39 |ST. . 65484:. 89| 00000990: 30 00 B4 11 70 03 99 20 C6 28 41 24 AA 58 24 29 |0...p.. .(A$.X$)| 000009A0: AA 32 35 36 AC C6 28 42 24 AA 58 24 29 3B 3A 89 |.256..(B$.X$);:.| 000009B0: 20 38 36 30 00 C6 11 7A 03 A0 20 31 3A 8D 20 39 | 860...z.. 1:. 9| 000009C0: 33 30 3A 89 35 30 00 D1 11 84 03 9E 20 32 30 34 |30:.50...... 204| 000009D0: 38 00 0A 12 8E 03 83 20 33 31 2C 38 2C 31 39 34 |8...... 31,8,194| 000009E0: 2C 37 2C 31 35 38 2C 31 39 34 2C 34 30 2C 35 32 |,7,158,194,40,52| 000009F0: 2C 35 31 2C 34 31 2C 31 37 30 2C 31 39 34 2C 34 |,51,41,170,194,4| 00000A00: 30 2C 35 32 2C 35 32 2C 34 31 00 3F 12 98 03 83 |0,52,52,41.?....| 00000A10: 20 31 37 32 2C 35 30 2C 35 33 2C 35 34 2C 31 37 | 172,50,53,54,17| 00000A20: 30 2C 35 32 2C 35 36 2C 35 38 2C 38 36 2C 37 33 |0,52,56,58,86,73| 00000A30: 2C 38 32 2C 38 35 2C 38 33 2C 30 2C 30 2C 30 00 |,82,85,83,0,0,0.| 00000A40: 5A 12 A2 03 99 3A 99 3A 99 22 3C 52 45 54 55 52 |Z....:.:."<RETUR| 00000A50: 4E 3E 22 3A 97 31 39 38 2C 30 00 73 12 AC 03 A1 |N>":.198,0.s....| 00000A60: 20 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 20 | A$:.A$...(13). | 00000A70: 39 34 30 00 79 12 B6 03 8E 00 8F 12 C0 03 8F 20 |940.y.......... | 00000A80: 44 49 53 4B 45 54 54 45 4E 2D 43 48 45 43 4B 00 |DISKETTEN-CHECK.| 00000A90: C9 12 CA 03 46 B2 31 3A 9F 20 31 2C 38 2C 31 35 |....F.1:. 1,8,15| 00000AA0: 2C 22 49 22 3A 84 31 2C 41 31 24 2C 41 32 24 2C |,"I":.1,A1$,A2$,| 00000AB0: 41 33 24 2C 41 34 24 3A A0 31 3A 8B 41 31 24 B2 |A3$,A4$:.1:.A1$.| 00000AC0: 22 30 30 22 A7 20 46 B2 30 00 CF 12 D4 03 8E 00 |"00". F.0.......| 00000AD0: 00 00 |.. |
....... 53280,11:. 53281,12.1.... V1(144 ),V2(144)...... DA(32),FI$(144),TR(144), SE(144),VF$(144),VT(144),VS(144),D1(144) ,D2(144)...(.. I.1.32:. DA(I):. I.Y.2.." .. . BHP-VIRUS-KILLER .":." 04.02.88 T.D.F....<..".... 1 . SEARCH FOR VIRUS"...F..".. 2 . SHOW INFECTED FI LES".5.P..".. 3 . KILL VIRUS".M.Z..".. 4 . DIRECTORY".I.D..".. 5 . END PROGRAMM. ".~.N.. A$:.A$."". 110...X..A$:. E(A$). 140,470,520,830,900...... 110.D.... SEAR CH FOR VIRUS...... 960:.F. .".."A2$:. 93 0:. 50... .. 1,8,15,"I":.2,8,2,"#":.".. PASS 1 .".%...TR.18:SE.1:FZ.0.A....1,"U1 2 0 18";SE:SX.SE.O....#2,A$,B$.O.H.TR.F (A$.G(0)):SE.F(B$.G(0))...R.. BP.2 . 226 . 32......1,"B-P 2";BP.D....#2,A$:.(F(A $.G(0)). 15)..2 . . BP:. 280.....FZ.FZ.1 :.#2,A$,B$:TR(FZ).F(A$.G(0)):SE(FZ).F(B$ .G(0)).#...FI$(FZ)."":D1(FZ).SX:D2(FZ).B P.1.L....I.1.16:.#2,A$:FI$(FZ).FI$(FZ).A $:.I.[....".";:. BP.M.... TR..0 . 180... "..:. FZ.0 . .".NO PRG-FILES ON THIS DIS KETTE !":. 420...,..".. PASS 2 .".F.@.VZ .0:Z.0.P.J.Z.Z.1...T..1,"U1 2 0";TR(Z);S E(Z). .^..#2,A$,B$:FT.F(A$.G(0)):FS.F(B$ .G(0)):.#2,A$,A$.@.H..I.1.32:.#2,A$:A.F( A$.G(0)).V.R.. A.DA(I)..I:.430.B.|.I.34: .I.W....".";:.Z..FZ.330...... VZ.0..:.". NO BHP-VIRUS FOUND !"..... 2: 1: . 930:. 50......:."VIRUS IN PROGRAMM ."FI$(Z)".! !!".....VZ.VZ.1:VF$(VZ).FI$(Z):VT(VZ).TR (Z):VS(VZ).SE(Z)...B.V1(VZ).D1(Z):V2(VZ) .D2(Z).8.L.. 390.R.V.. SHOW INFECTED FIL ES......".";:. VZ.0. ."NO INFECTED PROGR AMM'S.":. 930:.50......". INFECTED PROGR AMM'S: ..".C.... I.1.VZ:. VF$(I):.I.R... . 930:. 50...... KILL VIRUS......".";:. VZ.0.."NO INFECTED PROGRAMM'S.":.930:.50 .:.... 960:.F. .".."A2$:. 930:. 50.W.&.. 1,8,15,"I":. 2,8,2,"#"...0..Z.1 . VZ:." ."VF$(Z)". - ";:TR.VT(Z):SE.VS(Z)...:..I .1.8:.1,"B-F 0";TR;SE...D..1,"U1 2 0";TR ;SE...N..#2,A$,B$:TR.F(A$.G(0)):SE.F(B$. G(0))...X..I...V..1,"U1 2 0 18";V1(Z):.1 ,"B-P 2";V2(Z).*....2,G(TR);G(SE);.V.... 1,"U2 2 0 18";V1(Z):.1,A1$,A2$,A3$,A4$.} .... A1$.."00". . A2$: 2: 1:. 930:.50... ..."VIRUS KILLED"......1,"B-P 2";V2(Z).2 7.T....#2,A$,B$:DL.F(A$.G(0)).F(B$.G(0)) .256.....ZZ.0...F.ZZ.ZZ.1:.1,"U1 2 0";TR ;SE.%.P..#2,A$,B$:TR.F(A$.G(0)):SE.F(B$. G(0)).7.Z.. TR..0 . 710.I.... DL.ZZ . 82 0.V....1,"U1 2 0 18";V1(Z):.1,"B-P 2";V2 (Z).27.....ZL.ZZ . 255:ZH..(ZZ.256)..... .2,G(ZL);G(ZH);......1,"U2 2 0 18";V1(Z) .W.4.. Z:VZ.0: 2: 1:.50...>.. DIRECTORY. ..H.. 960:. F . .".."A2$:.930:.50.E.R.." . 0 ";:. 1,8,0,"$":.781,1:.65478:.A$,A$, A$,A$:X$.G(0).Y.\..I.1.7:.A$,B$,C$,D$:.A $B$C$D$;:.:.:.A$,A$,A$,B$...F.. ST. . 65 484:. 890...P.. F(A$.X$).256.F(B$.X$);:. 860.F.Z. 1:. 930:.50.Q.... 2048...... 31,8,194,7,158,194,40,52,51,41,170,194,4 0,52,52,41.?.... 172,50,53,54,170,52,56, 58,86,73,82,85,83,0,0,0.Z....:.:."<RETUR N>":.198,0.S.... A$:.A$..G(13). 940.Y... ....... DISKETTEN-CHECK.I.J.F.1:. 1,8,15 ,"I":.1,A1$,A2$,A3$,A4$: 1:.A1$."00". F. 0.O.T.....
> CLICK IMAGE PREVIEW FOR FULL MODAL