VIRUS-KILLER

FILE INFORMATION

FILENAME(S): VIRUS-KILLER

FILE TYPE(S): PRG

FILE SIZE: 2.7K

FIRST SEEN: 2025-12-01 13:51:31

APPEARS ON: 2 disk(s)

FILE HASH

669cbefe73f25ca26bbf046b6f3af9a19ff5b326cbca50300b71ef51327ad955

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
KORAZ INDUSTRIES	VIRUS-KILLER	PRG	hedning, The Viking	14	8	DOWNLOAD FILE
KORAZ INDUSTRIES	VIRUS-KILLER	PRG	hedning, The Viking	14	8	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 17 08 0A 00 97 35  33 32 38 30 2C 30 3A 97  |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 00  2C 08 14 00 86 56 31 28  |53281,0.,....V1(|
00000020: 31 34 34 29 2C 56 32 28  31 34 34 29 00 7A 08 1E  |144),V2(144).z..|
00000030: 00 86 44 41 28 33 32 29  2C 46 49 24 28 31 34 34  |..DA(32),FI$(144|
00000040: 29 2C 54 52 28 31 34 34  29 2C 53 45 28 31 34 34  |),TR(144),SE(144|
00000050: 29 2C 56 46 24 28 31 34  34 29 2C 56 54 28 31 34  |),VF$(144),VT(14|
00000060: 34 29 2C 56 53 28 31 34  34 29 2C 44 31 28 31 34  |4),VS(144),D1(14|
00000070: 34 29 2C 44 32 28 31 34  34 29 00 90 08 28 00 81  |4),D2(144)...(..|
00000080: 49 B2 31 A4 33 32 3A 87  44 41 28 49 29 3A 82 49  |I.1.32:.DA(I):.I|
00000090: 00 D4 08 32 00 99 22 93  05 20 20 20 20 20 20 20  |...2.."..       |
000000A0: 20 20 12 20 42 48 50 2D  56 49 52 55 53 2D 4B 49  |  . BHP-VIRUS-KI|
000000B0: 4C 4C 45 52 20 92 22 3A  99 22 20 20 20 20 20 20  |LLER .":."      |
000000C0: 20 20 20 20 20 20 53 50  52 45 41 44 20 42 59 20  |      SPREAD BY |
000000D0: 54 48 45 22 00 F5 08 37  00 99 22 20 20 20 20 20  |THE"...7.."     |
000000E0: 20 20 20 20 20 20 20 20  12 56 20 49 20 4B 20 49  |        .V I K I|
000000F0: 20 4E 20 47 22 00 16 09  3C 00 99 22 11 11 99 12  | N G"...<.."....|
00000100: 20 31 20 92 20 53 55 43  48 45 20 4E 41 43 48 20  | 1 . SUCHE NACH |
00000110: 56 49 52 45 4E 22 00 3B  09 46 00 99 22 11 12 20  |VIREN".;.F..".. |
00000120: 32 20 92 20 5A 45 49 47  45 20 56 45 52 53 45 55  |2 . ZEIGE VERSEU|
00000130: 43 48 54 45 20 46 49 4C  45 53 22 00 59 09 50 00  |CHTE FILES".Y.P.|
00000140: 99 22 11 12 20 33 20 92  20 56 49 52 45 4E 20 45  |.".. 3 . VIREN E|
00000150: 4E 54 46 45 52 4E 45 4E  22 00 71 09 5A 00 99 22  |NTFERNEN".q.Z.."|
00000160: 11 12 20 34 20 92 20 44  49 52 45 43 54 4F 52 59  |.. 4 . DIRECTORY|
00000170: 22 00 8D 09 64 00 99 22  11 12 20 35 20 92 20 50  |"...d..".. 5 . P|
00000180: 52 4F 47 52 41 4D 4D 45  4E 44 45 11 22 00 A0 09  |ROGRAMMENDE."...|
00000190: 6E 00 A1 41 24 3A 8B 41  24 B2 22 22 A7 31 31 30  |n..A$:.A$."".110|
000001A0: 00 C3 09 78 00 99 41 24  3A 91 C5 28 41 24 29 89  |...x..A$:..(A$).|
000001B0: 31 34 30 2C 34 37 30 2C  35 32 30 2C 38 33 30 2C  |140,470,520,830,|
000001C0: 39 30 30 00 CC 09 82 00  89 31 31 30 00 E7 09 8C  |900......110....|
000001D0: 00 8F 20 55 45 42 45 52  50 52 55 45 46 45 20 44  |.. UEBERPRUEFE D|
000001E0: 49 53 4B 45 54 54 45 00  05 0A 96 00 8D 39 36 30  |ISKETTE......960|
000001F0: 3A 8B 46 A7 99 22 93 12  22 41 32 24 3A 8D 39 33  |:.F..".."A2$:.93|
00000200: 30 3A 89 35 30 00 2F 0A  A0 00 9F 31 2C 38 2C 31  |0:.50./....1,8,1|
00000210: 35 2C 22 49 22 3A 9F 32  2C 38 2C 32 2C 22 23 22  |5,"I":.2,8,2,"#"|
00000220: 3A 99 22 93 12 20 50 41  53 53 20 31 20 92 22 00  |:.".. PASS 1 .".|
00000230: 43 0A AA 00 54 52 B2 31  38 3A 53 45 B2 31 3A 46  |C...TR.18:SE.1:F|
00000240: 5A B2 30 00 5F 0A B4 00  98 31 2C 22 55 31 20 32  |Z.0._....1,"U1 2|
00000250: 20 30 20 31 38 22 3B 53  45 3A 53 58 B2 53 45 00  | 0 18";SE:SX.SE.|
00000260: 6D 0A BE 00 A1 23 32 2C  41 24 2C 42 24 00 8D 0A  |m....#2,A$,B$...|
00000270: C8 00 54 52 B2 C6 28 41  24 AA C7 28 30 29 29 3A  |..TR..(A$..(0)):|
00000280: 53 45 B2 C6 28 42 24 AA  C7 28 30 29 29 00 9E 0A  |SE..(B$..(0))...|
00000290: D2 00 81 42 50 B2 32 A4  32 32 36 A9 33 32 00 B0  |...BP.2.226.32..|
000002A0: 0A DC 00 98 31 2C 22 42  2D 50 20 32 22 3B 42 50  |....1,"B-P 2";BP|
000002B0: 00 D8 0A E6 00 A1 23 32  2C 41 24 3A 8B 28 C6 28  |......#2,A$:.(.(|
000002C0: 41 24 AA C7 28 30 29 29  AF 31 35 29 B3 B1 32 A7  |A$..(0)).15)..2.|
000002D0: 82 42 50 3A 89 32 38 30  00 12 0B F0 00 46 5A B2  |.BP:.280.....FZ.|
000002E0: 46 5A AA 31 3A A1 23 32  2C 41 24 2C 42 24 3A 54  |FZ.1:.#2,A$,B$:T|
000002F0: 52 28 46 5A 29 B2 C6 28  41 24 AA C7 28 30 29 29  |R(FZ)..(A$..(0))|
00000300: 3A 53 45 28 46 5A 29 B2  C6 28 42 24 AA C7 28 30  |:SE(FZ)..(B$..(0|
00000310: 29 29 00 37 0B FA 00 46  49 24 28 46 5A 29 B2 22  |)).7...FI$(FZ)."|
00000320: 22 3A 44 31 28 46 5A 29  B2 53 58 3A 44 32 28 46  |":D1(FZ).SX:D2(F|
00000330: 5A 29 B2 42 50 AA 31 00  60 0B 04 01 81 49 B2 31  |Z).BP.1.`....I.1|
00000340: A4 31 36 3A A1 23 32 2C  41 24 3A 46 49 24 28 46  |.16:.#2,A$:FI$(F|
00000350: 5A 29 B2 46 49 24 28 46  5A 29 AA 41 24 3A 82 49  |Z).FI$(FZ).A$:.I|
00000360: 00 6E 0B 0E 01 99 22 2E  22 3B 3A 82 42 50 00 7D  |.n....".";:.BP.}|
00000370: 0B 18 01 8B 54 52 B3 B1  30 A7 31 38 30 00 B7 0B  |....TR..0.180...|
00000380: 22 01 99 3A 8B 46 5A B2  30 A7 99 22 11 4B 45 49  |"..:.FZ.0..".KEI|
00000390: 4E 45 20 50 52 47 2D 46  49 4C 45 53 20 41 55 46  |NE PRG-FILES AUF|
000003A0: 20 44 49 45 53 45 52 20  44 49 53 4B 45 54 54 45  | DIESER DISKETTE|
000003B0: 21 22 3A 89 34 32 30 00  CA 0B 2C 01 99 22 11 12  |!":.420...,.."..|
000003C0: 20 50 41 53 53 20 32 20  92 22 00 D7 0B 36 01 56  | PASS 2 ."...6.V|
000003D0: 5A B2 30 3A 5A B2 30 00  E1 0B 4A 01 5A B2 5A AA  |Z.0:Z.0...J.Z.Z.|
000003E0: 31 00 FD 0B 54 01 98 31  2C 22 55 31 20 32 20 30  |1...T..1,"U1 2 0|
000003F0: 22 3B 54 52 28 5A 29 3B  53 45 28 5A 29 00 31 0C  |";TR(Z);SE(Z).1.|
00000400: 5E 01 A1 23 32 2C 41 24  2C 42 24 3A 46 54 B2 C6  |^..#2,A$,B$:FT..|
00000410: 28 41 24 AA C7 28 30 29  29 3A 46 53 B2 C6 28 42  |(A$..(0)):FS..(B|
00000420: 24 AA C7 28 30 29 29 3A  A1 23 32 2C 41 24 2C 41  |$..(0)):.#2,A$,A|
00000430: 24 00 51 0C 68 01 81 49  B2 31 A4 33 32 3A A1 23  |$.Q.h..I.1.32:.#|
00000440: 32 2C 41 24 3A 41 B2 C6  28 41 24 AA C7 28 30 29  |2,A$:A..(A$..(0)|
00000450: 29 00 66 0C 72 01 8B 41  B2 44 41 28 49 29 A7 82  |).f.r..A.DA(I)..|
00000460: 49 3A 89 34 33 30 00 72  0C 7C 01 49 B2 33 34 3A  |I:.430.r.|.I.34:|
00000470: 82 49 00 87 0C 86 01 99  22 2E 22 3B 3A 8B 5A B3  |.I......".";:.Z.|
00000480: B1 46 5A A7 33 33 30 00  B1 0C 9A 01 8B 56 5A B2  |.FZ.330......VZ.|
00000490: 30 A7 99 3A 99 22 11 4B  45 49 4E 45 20 42 48 50  |0..:.".KEINE BHP|
000004A0: 2D 56 49 52 45 4E 20 47  45 46 55 4E 44 45 4E 21  |-VIREN GEFUNDEN!|
000004B0: 22 00 C4 0C A4 01 A0 32  3A A0 31 3A 8D 39 33 30  |"......2:.1:.930|
000004C0: 3A 89 35 30 00 EA 0C AE  01 99 3A 99 22 56 49 52  |:.50......:."VIR|
000004D0: 55 53 20 49 4D 20 50 52  4F 47 52 41 4D 4D 20 12  |US IM PROGRAMM .|
000004E0: 22 46 49 24 28 5A 29 22  92 22 00 1F 0D B8 01 56  |"FI$(Z)".".....V|
000004F0: 5A B2 56 5A AA 31 3A 56  46 24 28 56 5A 29 B2 46  |Z.VZ.1:VF$(VZ).F|
00000500: 49 24 28 5A 29 3A 56 54  28 56 5A 29 B2 54 52 28  |I$(Z):VT(VZ).TR(|
00000510: 5A 29 3A 56 53 28 56 5A  29 B2 53 45 28 5A 29 00  |Z):VS(VZ).SE(Z).|
00000520: 3D 0D C2 01 56 31 28 56  5A 29 B2 44 31 28 5A 29  |=...V1(VZ).D1(Z)|
00000530: 3A 56 32 28 56 5A 29 B2  44 32 28 5A 29 00 46 0D  |:V2(VZ).D2(Z).F.|
00000540: CC 01 89 33 39 30 00 65  0D D6 01 8F 20 41 4E 5A  |...390.e.... ANZ|
00000550: 45 49 47 45 20 56 45 52  53 45 55 43 48 54 45 20  |EIGE VERSEUCHTE |
00000560: 46 49 4C 45 53 00 9E 0D  E0 01 99 22 93 22 3B 3A  |FILES......".";:|
00000570: 8B 56 5A B2 30 A7 99 22  4B 45 49 4E 45 20 56 45  |.VZ.0.."KEINE VE|
00000580: 52 53 45 55 43 48 54 45  4E 20 50 52 4F 47 52 41  |RSEUCHTEN PROGRA|
00000590: 4D 4D 45 2E 22 3A 8D 39  33 30 3A 89 35 30 00 C0  |MME.":.930:.50..|
000005A0: 0D EA 01 99 22 12 20 56  45 52 53 45 55 43 48 54  |....". VERSEUCHT|
000005B0: 45 20 50 52 4F 47 52 41  4D 4D 45 3A 20 92 11 22  |E PROGRAMME: .."|
000005C0: 00 D7 0D F4 01 81 49 B2  31 A4 56 5A 3A 99 56 46  |......I.1.VZ:.VF|
000005D0: 24 28 49 29 3A 82 49 00  E4 0D FE 01 8D 39 33 30  |$(I):.I......930|
000005E0: 3A 89 35 30 00 FA 0D 08  02 8F 20 56 49 52 45 4E  |:.50...... VIREN|
000005F0: 20 45 4E 54 46 45 52 4E  45 4E 00 33 0E 12 02 99  | ENTFERNEN.3....|
00000600: 22 93 22 3B 3A 8B 56 5A  B2 30 A7 99 22 4B 45 49  |".";:.VZ.0.."KEI|
00000610: 4E 45 20 56 45 52 53 45  55 43 48 54 45 4E 20 50  |NE VERSEUCHTEN P|
00000620: 52 4F 47 52 41 4D 4D 45  2E 22 3A 8D 39 33 30 3A  |ROGRAMME.":.930:|
00000630: 89 35 30 00 51 0E 1C 02  8D 39 36 30 3A 8B 46 A7  |.50.Q....960:.F.|
00000640: 99 22 93 12 22 41 32 24  3A 8D 39 33 30 3A 89 35  |.".."A2$:.930:.5|
00000650: 30 00 6C 0E 26 02 9F 31  2C 38 2C 31 35 2C 22 49  |0.l.&..1,8,15,"I|
00000660: 22 3A 9F 32 2C 38 2C 32  2C 22 23 22 00 9C 0E 30  |":.2,8,2,"#"...0|
00000670: 02 81 5A B2 31 A4 56 5A  3A 99 22 12 22 56 46 24  |..Z.1.VZ:."."VF$|
00000680: 28 5A 29 22 92 20 2D 20  22 3B 3A 54 52 B2 56 54  |(Z)". - ";:TR.VT|
00000690: 28 5A 29 3A 53 45 B2 56  53 28 5A 29 00 B8 0E 3A  |(Z):SE.VS(Z)...:|
000006A0: 02 81 49 B2 31 A4 38 3A  98 31 2C 22 42 2D 46 20  |..I.1.8:.1,"B-F |
000006B0: 30 22 3B 54 52 3B 53 45  00 CE 0E 44 02 98 31 2C  |0";TR;SE...D..1,|
000006C0: 22 55 31 20 32 20 30 22  3B 54 52 3B 53 45 00 F8  |"U1 2 0";TR;SE..|
000006D0: 0E 4E 02 A1 23 32 2C 41  24 2C 42 24 3A 54 52 B2  |.N..#2,A$,B$:TR.|
000006E0: C6 28 41 24 AA C7 28 30  29 29 3A 53 45 B2 C6 28  |.(A$..(0)):SE..(|
000006F0: 42 24 AA C7 28 30 29 29  00 FF 0E 58 02 82 49 00  |B$..(0))...X..I.|
00000700: 29 0F 76 02 98 31 2C 22  55 31 20 32 20 30 20 31  |).v..1,"U1 2 0 1|
00000710: 38 22 3B 56 31 28 5A 29  3A 98 31 2C 22 42 2D 50  |8";V1(Z):.1,"B-P|
00000720: 20 32 22 3B 56 32 28 5A  29 00 3D 0F 80 02 98 32  | 2";V2(Z).=....2|
00000730: 2C C7 28 54 52 29 3B C7  28 53 45 29 3B 00 69 0F  |,.(TR);.(SE);.i.|
00000740: 8A 02 98 31 2C 22 55 32  20 32 20 30 20 31 38 22  |...1,"U2 2 0 18"|
00000750: 3B 56 31 28 5A 29 3A 84  31 2C 41 31 24 2C 41 32  |;V1(Z):.1,A1$,A2|
00000760: 24 2C 41 33 24 2C 41 34  24 00 8C 0F 8B 02 8B 41  |$,A3$,A4$......A|
00000770: 31 24 B3 B1 22 30 30 22  A7 99 41 32 24 3A A0 32  |1$.."00"..A2$:.2|
00000780: 3A A0 31 3A 8D 39 33 30  3A 89 35 30 00 A3 0F 94  |:.1:.930:.50....|
00000790: 02 99 22 56 49 52 55 53  20 45 4E 54 46 45 52 4E  |.."VIRUS ENTFERN|
000007A0: 54 21 22 00 BB 0F 9E 02  98 31 2C 22 42 2D 50 20  |T!"......1,"B-P |
000007B0: 32 22 3B 56 32 28 5A 29  AA 32 37 00 E6 0F A8 02  |2";V2(Z).27.....|
000007C0: A1 23 32 2C 41 24 2C 42  24 3A 44 4C B2 C6 28 41  |.#2,A$,B$:DL..(A|
000007D0: 24 AA C7 28 30 29 29 AA  C6 28 42 24 AA C7 28 30  |$..(0))..(B$..(0|
000007E0: 29 29 AC 32 35 36 00 EF  0F BC 02 5A 5A B2 30 00  |)).256.....ZZ.0.|
000007F0: 0D 10 C6 02 5A 5A B2 5A  5A AA 31 3A 98 31 2C 22  |....ZZ.ZZ.1:.1,"|
00000800: 55 31 20 32 20 30 22 3B  54 52 3B 53 45 00 3A 10  |U1 2 0";TR;SE.:.|
00000810: D0 02 A1 23 32 2C 41 24  2C 42 24 3A 54 52 B2 C6  |...#2,A$,B$:TR..|
00000820: 28 41 24 AA 43 48 45 24  28 30 29 29 3A 53 45 B2  |(A$.CHE$(0)):SE.|
00000830: C6 28 42 24 AA C7 28 30  29 29 00 49 10 DA 02 8B  |.(B$..(0)).I....|
00000840: 54 52 B3 B1 30 A7 37 31  30 00 58 10 EE 02 8B 44  |TR..0.710.X....D|
00000850: 4C B2 5A 5A A7 38 32 30  00 85 10 F8 02 98 31 2C  |L.ZZ.820......1,|
00000860: 22 55 31 20 32 20 30 20  31 38 22 3B 56 31 28 5A  |"U1 2 0 18";V1(Z|
00000870: 29 3A 98 31 2C 22 42 2D  50 20 32 22 3B 56 32 28  |):.1,"B-P 2";V2(|
00000880: 5A 29 AA 32 37 00 A0 10  02 03 5A 4C B2 5A 5A AF  |Z).27.....ZL.ZZ.|
00000890: 32 35 35 3A 5A 48 B2 B5  28 5A 5A AD 32 35 36 29  |255:ZH..(ZZ.256)|
000008A0: 00 B4 10 0C 03 98 32 2C  C7 28 5A 4C 29 3B C7 28  |......2,.(ZL);.(|
000008B0: 5A 48 29 3B 00 CB 10 16  03 98 31 2C 22 55 32 20  |ZH);......1,"U2 |
000008C0: 30 20 31 38 22 3B 56 31  28 5A 29 00 E1 10 34 03  |0 18";V1(Z)...4.|
000008D0: 82 5A 3A 56 5A B2 30 3A  A0 32 3A A0 31 3A 89 35  |.Z:VZ.0:.2:.1:.5|
000008E0: 30 00 F1 10 3E 03 8F 20  44 49 52 45 43 54 4F 52  |0...>.. DIRECTOR|
000008F0: 59 00 0F 11 48 03 8D 39  36 30 3A 8B 46 A7 99 22  |Y...H..960:.F.."|
00000900: 93 12 22 41 32 24 3A 8D  39 33 30 3A 89 35 30 00  |.."A2$:.930:.50.|
00000910: 4A 11 52 03 99 22 93 20  30 20 22 3B 3A 9F 31 2C  |J.R..". 0 ";:.1,|
00000920: 38 2C 30 2C 22 24 22 3A  97 37 38 31 2C 31 3A 9E  |8,0,"$":.781,1:.|
00000930: 36 35 34 37 38 3A A1 41  24 2C 41 24 2C 41 24 2C  |65478:.A$,A$,A$,|
00000940: 41 24 3A 58 24 B2 C7 28  30 29 00 7E 11 5C 03 81  |A$:X$..(0).~.\..|
00000950: 49 B2 31 A4 37 3A A1 41  24 2C 42 24 2C 43 24 2C  |I.1.7:.A$,B$,C$,|
00000960: 44 24 3A 99 41 24 42 24  43 24 44 24 3B 3A 82 3A  |D$:.A$B$C$D$;:.:|
00000970: 99 3A A1 41 24 2C 41 24  2C 41 24 2C 42 24 00 92  |.:.A$,A$,A$,B$..|
00000980: 11 66 03 8B 53 54 A7 9E  36 35 34 38 34 3A 89 38  |.f..ST..65484:.8|
00000990: 39 30 00 B3 11 70 03 99  C6 28 41 24 AA 58 24 29  |90...p...(A$.X$)|
000009A0: AA 32 35 36 AC C6 28 42  24 AA 58 24 29 3B 3A 89  |.256..(B$.X$);:.|
000009B0: 38 36 30 00 C3 11 7A 03  A0 31 3A 8D 39 33 30 3A  |860...z..1:.930:|
000009C0: 89 35 30 00 CD 11 84 03  9E 32 30 34 38 00 06 12  |.50......2048...|
000009D0: 8E 03 83 20 33 31 2C 38  2C 31 39 34 2C 37 2C 31  |... 31,8,194,7,1|
000009E0: 35 38 2C 31 39 34 2C 34  30 2C 35 32 2C 35 31 2C  |58,194,40,52,51,|
000009F0: 34 31 2C 31 37 30 2C 31  39 34 2C 34 30 2C 35 32  |41,170,194,40,52|
00000A00: 2C 35 32 2C 34 31 00 3B  12 98 03 83 20 31 37 32  |,52,41.;.... 172|
00000A10: 2C 35 30 2C 35 33 2C 35  34 2C 31 37 30 2C 35 32  |,50,53,54,170,52|
00000A20: 2C 35 36 2C 35 38 2C 38  36 2C 37 33 2C 38 32 2C  |,56,58,86,73,82,|
00000A30: 38 35 2C 38 33 2C 30 2C  30 2C 30 00 56 12 A2 03  |85,83,0,0,0.V...|
00000A40: 99 3A 99 3A 99 22 3C 52  45 54 55 52 4E 3E 22 3A  |.:.:."<RETURN>":|
00000A50: 97 31 39 38 2C 30 00 6D  12 AC 03 A1 41 24 3A 8B  |.198,0.m....A$:.|
00000A60: 41 24 B3 B1 C7 28 31 33  29 A7 39 34 30 00 73 12  |A$...(13).940.s.|
00000A70: B6 03 8E 00 8B 12 C0 03  8F 20 44 49 53 4B 45 54  |......... DISKET|
00000A80: 54 45 4E 20 2D 20 43 48  45 43 4B 00 C3 12 CA 03  |TEN - CHECK.....|
00000A90: 46 B2 31 3A 9F 31 2C 38  2C 31 35 2C 22 49 22 3A  |F.1:.1,8,15,"I":|
00000AA0: 84 31 2C 41 31 24 2C 41  32 24 2C 41 33 24 2C 41  |.1,A1$,A2$,A3$,A|
00000AB0: 34 24 3A A0 31 3A 8B 41  31 24 B2 22 30 30 22 A7  |4$:.1:.A1$."00".|
00000AC0: 46 B2 30 00 C9 12 D4 03  8E 00 00 00              |F.0.........    |

.......53280,0:.53281,0.,....V1(144),V2(
144).Z....DA(32),FI$(144),TR(144),SE(144
),VF$(144),VT(144),VS(144),D1(144),D2(14
4)...(..I.1.32:.DA(I):.I.T.2.."..       
  . BHP-VIRUS-KILLER .":."            SP
READ BY THE"...7.."             .V I K I
 N G"...<..".... 1 . SUCHE NACH VIREN".;
.F..".. 2 . ZEIGE VERSEUCHTE FILES".Y.P.
.".. 3 . VIREN ENTFERNEN".Q.Z..".. 4 . D
IRECTORY"...D..".. 5 . PROGRAMMENDE.". .
N..A$:.A$."".110.C.X..A$:.E(A$).140,470,
520,830,900.L....110...... UEBERPRUEFE D
ISKETTE......960:.F..".."A2$:.930:.50./.
 ..1,8,15,"I":.2,8,2,"#":.".. PASS 1 .".
C...TR.18:SE.1:FZ.0._....1,"U1 2 0 18";S
E:SX.SE.M....#2,A$,B$...H.TR.F(A$.G(0)):
SE.F(B$.G(0))...R..BP.2.226.32......1,"B
-P 2";BP.X....#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)).7...FI$(FZ)."
":D1(FZ).SX:D2(FZ).BP.1.`....I.1.16:.#2,
A$:FI$(FZ).FI$(FZ).A$:.I.N....".";:.BP.}
....TR..0.180..."..:.FZ.0..".KEINE PRG-F
ILES AUF DIESER DISKETTE!":.420.J.,.."..
 PASS 2 .".W.6.VZ.0:Z.0...J.Z.Z.1...T..1
,"U1 2 0";TR(Z);SE(Z).1.^..#2,A$,B$:FT.F
(A$.G(0)):FS.F(B$.G(0)):.#2,A$,A$.Q.H..I
.1.32:.#2,A$:A.F(A$.G(0)).F.R..A.DA(I)..
I:.430.R.|.I.34:.I......".";:.Z..FZ.330.
.....VZ.0..:.".KEINE BHP-VIREN GEFUNDEN!
".D... 2: 1:.930:.50......:."VIRUS IM PR
OGRAMM ."FI$(Z)".".....VZ.VZ.1:VF$(VZ).F
I$(Z):VT(VZ).TR(Z):VS(VZ).SE(Z).=.B.V1(V
Z).D1(Z):V2(VZ).D2(Z).F.L..390.E.V.. ANZ
EIGE VERSEUCHTE FILES......".";:.VZ.0.."
KEINE VERSEUCHTEN PROGRAMME.":.930:.50..
....". VERSEUCHTE PROGRAMME: ..".W....I.
1.VZ:.VF$(I):.I......930:.50...... VIREN
 ENTFERNEN.3....".";:.VZ.0.."KEINE VERSE
UCHTEN PROGRAMME.":.930:.50.Q....960:.F.
.".."A2$:.930:.50.L.&..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
.N.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);.I....1,"U2 2 0 18";V1(Z):.
1,A1$,A2$,A3$,A4$......A1$.."00"..A2$: 2
: 1:.930:.50......"VIRUS ENTFERNT!".....
.1,"B-P 2";V2(Z).27......#2,A$,B$:DL.F(A
$.G(0)).F(B$.G(0)).256.....ZZ.0...F.ZZ.Z
Z.1:.1,"U1 2 0";TR;SE.:.P..#2,A$,B$:TR.F
(A$.CHE$(0)):SE.F(B$.G(0)).I.Z..TR..0.71
0.X....DL.ZZ.820......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);.K....1,"U2 
0 18";V1(Z)...4..Z:VZ.0: 2: 1:.50...>.. 
DIRECTORY...H..960:.F..".."A2$:.930:.50.
J.R..". 0 ";:.1,8,0,"$":.781,1:.65478:.A
$,A$,A$,A$:X$.G(0).~.\..I.1.7:.A$,B$,C$,
D$:.A$B$C$D$;:.:.:.A$,A$,A$,B$...F..ST..
65484:.890...P..F(A$.X$).256.F(B$.X$);:.
860.C.Z. 1:.930:.50.M....2048...... 31,8
,194,7,158,194,40,52,51,41,170,194,40,52
,52,41.;.... 172,50,53,54,170,52,56,58,8
6,73,82,85,83,0,0,0.V....:.:."<RETURN>":
.198,0.M....A$:.A$..G(13).940.S.........
. DISKETTEN - CHECK.C.J.F.1:.1,8,15,"I":
.1,A1$,A2$,A3$,A4$: 1:.A1$."00".F.0.I.T.
....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL