BHP-VIRUS-KILLER

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 CF 08 32 00 99 22 93  05 20 20 20 20 20 20 20  |...2.."..       |
000000A0: 12 20 42 48 50 2D 56 49  52 55 53 2D 4B 49 4C 4C  |. BHP-VIRUS-KILL|
000000B0: 45 52 20 92 22 3A 99 22  20 20 20 20 20 20 20 20  |ER .":."        |
000000C0: 20 20 31 30 2E 31 31 2E  38 37 20 28 54 52 29 00  |  10.11.87 (TR).|
000000D0: F0 08 3C 00 99 22 11 11  99 12 20 31 20 92 20 53  |..<..".... 1 . S|
000000E0: 45 41 52 43 48 20 46 4F  52 20 56 49 52 55 53 22  |EARCH FOR VIRUS"|
000000F0: 00 12 09 46 00 99 22 11  12 20 32 20 92 20 53 48  |...F..".. 2 . SH|
00000100: 4F 57 20 49 4E 46 45 43  54 45 44 20 46 49 4C 45  |OW INFECTED FILE|
00000110: 53 22 00 2D 09 50 00 99  22 11 12 20 33 20 92 20  |S".-.P..".. 3 . |
00000120: 52 45 4D 4F 56 45 20 56  49 52 55 53 22 00 45 09  |REMOVE VIRUS".E.|
00000130: 5A 00 99 22 11 12 20 34  20 92 20 44 49 52 45 43  |Z..".. 4 . DIREC|
00000140: 54 4F 52 59 22 00 61 09  64 00 99 22 11 12 20 35  |TORY".a.d..".. 5|
00000150: 20 92 20 51 55 49 54 20  50 52 4F 47 52 41 4D 11  | . QUIT PROGRAM.|
00000160: 22 00 74 09 6E 00 A1 41  24 3A 8B 41 24 B2 22 22  |".t.n..A$:.A$.""|
00000170: A7 31 31 30 00 97 09 78  00 99 41 24 3A 91 C5 28  |.110...x..A$:..(|
00000180: 41 24 29 89 31 34 30 2C  34 37 30 2C 35 32 30 2C  |A$).140,470,520,|
00000190: 38 33 30 2C 39 30 30 00  A0 09 82 00 89 31 31 30  |830,900......110|
000001A0: 00 B1 09 8C 00 8F 20 43  48 45 43 4B 20 44 49 53  |...... CHECK DIS|
000001B0: 4B 00 CF 09 96 00 8D 39  36 30 3A 8B 46 A7 99 22  |K......960:.F.."|
000001C0: 93 12 22 41 32 24 3A 8D  39 33 30 3A 89 35 30 00  |.."A2$:.930:.50.|
000001D0: F9 09 A0 00 9F 31 2C 38  2C 31 35 2C 22 49 22 3A  |.....1,8,15,"I":|
000001E0: 9F 32 2C 38 2C 32 2C 22  23 22 3A 99 22 93 12 20  |.2,8,2,"#":.".. |
000001F0: 50 41 53 53 20 31 20 92  22 00 0D 0A AA 00 54 52  |PASS 1 .".....TR|
00000200: B2 31 38 3A 53 45 B2 31  3A 46 5A B2 30 00 29 0A  |.18:SE.1:FZ.0.).|
00000210: B4 00 98 31 2C 22 55 31  20 32 20 30 20 31 38 22  |...1,"U1 2 0 18"|
00000220: 3B 53 45 3A 53 58 B2 53  45 00 37 0A BE 00 A1 23  |;SE:SX.SE.7....#|
00000230: 32 2C 41 24 2C 42 24 00  57 0A C8 00 54 52 B2 C6  |2,A$,B$.W...TR..|
00000240: 28 41 24 AA C7 28 30 29  29 3A 53 45 B2 C6 28 42  |(A$..(0)):SE..(B|
00000250: 24 AA C7 28 30 29 29 00  68 0A D2 00 81 42 50 B2  |$..(0)).h....BP.|
00000260: 32 A4 32 32 36 A9 33 32  00 7A 0A DC 00 98 31 2C  |2.226.32.z....1,|
00000270: 22 42 2D 50 20 32 22 3B  42 50 00 A2 0A E6 00 A1  |"B-P 2";BP......|
00000280: 23 32 2C 41 24 3A 8B 28  C6 28 41 24 AA C7 28 30  |#2,A$:.(.(A$..(0|
00000290: 29 29 AF 31 35 29 B3 B1  32 A7 82 42 50 3A 89 32  |)).15)..2..BP:.2|
000002A0: 38 30 00 DC 0A F0 00 46  5A B2 46 5A AA 31 3A A1  |80.....FZ.FZ.1:.|
000002B0: 23 32 2C 41 24 2C 42 24  3A 54 52 28 46 5A 29 B2  |#2,A$,B$:TR(FZ).|
000002C0: C6 28 41 24 AA C7 28 30  29 29 3A 53 45 28 46 5A  |.(A$..(0)):SE(FZ|
000002D0: 29 B2 C6 28 42 24 AA C7  28 30 29 29 00 01 0B FA  |)..(B$..(0))....|
000002E0: 00 46 49 24 28 46 5A 29  B2 22 22 3A 44 31 28 46  |.FI$(FZ)."":D1(F|
000002F0: 5A 29 B2 53 58 3A 44 32  28 46 5A 29 B2 42 50 AA  |Z).SX:D2(FZ).BP.|
00000300: 31 00 2A 0B 04 01 81 49  B2 31 A4 31 36 3A A1 23  |1.*....I.1.16:.#|
00000310: 32 2C 41 24 3A 46 49 24  28 46 5A 29 B2 46 49 24  |2,A$:FI$(FZ).FI$|
00000320: 28 46 5A 29 AA 41 24 3A  82 49 00 38 0B 0E 01 99  |(FZ).A$:.I.8....|
00000330: 22 2E 22 3B 3A 82 42 50  00 47 0B 18 01 8B 54 52  |".";:.BP.G....TR|
00000340: B3 B1 30 A7 31 38 30 00  7B 0B 22 01 99 3A 8B 46  |..0.180.{."..:.F|
00000350: 5A B2 30 A7 99 22 11 4E  4F 20 50 52 4F 47 52 41  |Z.0..".NO PROGRA|
00000360: 4D 20 46 49 4C 45 53 20  4F 4E 20 54 48 49 53 20  |M FILES ON THIS |
00000370: 44 49 53 4B 21 22 3A 89  34 32 30 00 8E 0B 2C 01  |DISK!":.420...,.|
00000380: 99 22 11 12 20 50 41 53  53 20 32 20 92 22 00 9B  |.".. PASS 2 ."..|
00000390: 0B 40 01 56 5A B2 30 3A  5A B2 30 00 A5 0B 4A 01  |.@.VZ.0:Z.0...J.|
000003A0: 5A B2 5A AA 31 00 C1 0B  54 01 98 31 2C 22 55 31  |Z.Z.1...T..1,"U1|
000003B0: 20 32 20 30 22 3B 54 52  28 5A 29 3B 53 45 28 5A  | 2 0";TR(Z);SE(Z|
000003C0: 29 00 F5 0B 5E 01 A1 23  32 2C 41 24 2C 42 24 3A  |)...^..#2,A$,B$:|
000003D0: 46 54 B2 C6 28 41 24 AA  C7 28 30 29 29 3A 46 53  |FT..(A$..(0)):FS|
000003E0: B2 C6 28 42 24 AA C7 28  30 29 29 3A A1 23 32 2C  |..(B$..(0)):.#2,|
000003F0: 41 24 2C 41 24 00 15 0C  68 01 81 49 B2 31 A4 33  |A$,A$...h..I.1.3|
00000400: 32 3A A1 23 32 2C 41 24  3A 41 B2 C6 28 41 24 AA  |2:.#2,A$:A..(A$.|
00000410: C7 28 30 29 29 00 2A 0C  72 01 8B 41 B2 44 41 28  |.(0)).*.r..A.DA(|
00000420: 49 29 A7 82 49 3A 89 34  33 30 00 36 0C 7C 01 49  |I)..I:.430.6.|.I|
00000430: B2 33 34 3A 82 49 00 4B  0C 86 01 99 22 2E 22 3B  |.34:.I.K....".";|
00000440: 3A 8B 5A B3 B1 46 5A A7  33 33 30 00 6F 0C 9A 01  |:.Z..FZ.330.o...|
00000450: 8B 56 5A B2 30 A7 99 3A  99 22 11 4E 4F 20 42 48  |.VZ.0..:.".NO BH|
00000460: 50 2D 56 49 52 55 53 20  46 4F 55 4E 44 21 22 00  |P-VIRUS FOUND!".|
00000470: 82 0C A4 01 A0 32 3A A0  31 3A 8D 39 33 30 3A 89  |.....2:.1:.930:.|
00000480: 35 30 00 AA 0C AE 01 99  3A 99 22 56 49 52 55 53  |50......:."VIRUS|
00000490: 20 49 4E 20 50 52 4F 47  52 41 4D 20 12 22 46 49  | IN PROGRAM ."FI|
000004A0: 24 28 5A 29 22 92 21 21  21 22 00 DF 0C B8 01 56  |$(Z)".!!!".....V|
000004B0: 5A B2 56 5A AA 31 3A 56  46 24 28 56 5A 29 B2 46  |Z.VZ.1:VF$(VZ).F|
000004C0: 49 24 28 5A 29 3A 56 54  28 56 5A 29 B2 54 52 28  |I$(Z):VT(VZ).TR(|
000004D0: 5A 29 3A 56 53 28 56 5A  29 B2 53 45 28 5A 29 00  |Z):VS(VZ).SE(Z).|
000004E0: FD 0C C2 01 56 31 28 56  5A 29 B2 44 31 28 5A 29  |....V1(VZ).D1(Z)|
000004F0: 3A 56 32 28 56 5A 29 B2  44 32 28 5A 29 00 06 0D  |:V2(VZ).D2(Z)...|
00000500: CC 01 89 33 39 30 00 20  0D D6 01 8F 20 53 48 4F  |...390. .... SHO|
00000510: 57 20 49 4E 46 45 43 54  45 44 20 46 49 4C 45 53  |W INFECTED FILES|
00000520: 00 52 0D E0 01 99 22 93  22 3B 3A 8B 56 5A B2 30  |.R....".";:.VZ.0|
00000530: A7 99 22 4E 4F 20 44 45  53 45 41 53 45 44 20 50  |.."NO DESEASED P|
00000540: 52 4F 47 52 41 4D 53 2E  22 3A 8D 39 33 30 3A 89  |ROGRAMS.":.930:.|
00000550: 35 30 00 71 0D EA 01 99  22 12 20 49 4E 46 45 43  |50.q....". INFEC|
00000560: 54 45 44 20 50 52 4F 47  52 41 4D 53 3A 20 92 11  |TED PROGRAMS: ..|
00000570: 22 00 88 0D F4 01 81 49  B2 31 A4 56 5A 3A 99 56  |"......I.1.VZ:.V|
00000580: 46 24 28 49 29 3A 82 49  00 95 0D FE 01 8D 39 33  |F$(I):.I......93|
00000590: 30 3A 89 35 30 00 A8 0D  08 02 8F 20 52 45 4D 4F  |0:.50...... REMO|
000005A0: 56 45 20 56 49 52 55 53  00 DA 0D 12 02 99 22 93  |VE VIRUS......".|
000005B0: 22 3B 3A 8B 56 5A B2 30  A7 99 22 4E 4F 20 44 45  |";:.VZ.0.."NO DE|
000005C0: 53 45 41 53 45 44 20 50  52 4F 47 52 41 4D 53 2E  |SEASED PROGRAMS.|
000005D0: 22 3A 8D 39 33 30 3A 89  35 30 00 F8 0D 1C 02 8D  |":.930:.50......|
000005E0: 39 36 30 3A 8B 46 A7 99  22 93 12 22 41 32 24 3A  |960:.F..".."A2$:|
000005F0: 8D 39 33 30 3A 89 35 30  00 13 0E 26 02 9F 31 2C  |.930:.50...&..1,|
00000600: 38 2C 31 35 2C 22 49 22  3A 9F 32 2C 38 2C 32 2C  |8,15,"I":.2,8,2,|
00000610: 22 23 22 00 43 0E 30 02  81 5A B2 31 A4 56 5A 3A  |"#".C.0..Z.1.VZ:|
00000620: 99 22 12 22 56 46 24 28  5A 29 22 92 20 2D 20 22  |."."VF$(Z)". - "|
00000630: 3B 3A 54 52 B2 56 54 28  5A 29 3A 53 45 B2 56 53  |;:TR.VT(Z):SE.VS|
00000640: 28 5A 29 00 5F 0E 3A 02  81 49 B2 31 A4 38 3A 98  |(Z)._.:..I.1.8:.|
00000650: 31 2C 22 42 2D 46 20 30  22 3B 54 52 3B 53 45 00  |1,"B-F 0";TR;SE.|
00000660: 75 0E 44 02 98 31 2C 22  55 31 20 32 20 30 22 3B  |u.D..1,"U1 2 0";|
00000670: 54 52 3B 53 45 00 9F 0E  4E 02 A1 23 32 2C 41 24  |TR;SE...N..#2,A$|
00000680: 2C 42 24 3A 54 52 B2 C6  28 41 24 AA C7 28 30 29  |,B$:TR..(A$..(0)|
00000690: 29 3A 53 45 B2 C6 28 42  24 AA C7 28 30 29 29 00  |):SE..(B$..(0)).|
000006A0: A6 0E 58 02 82 49 00 D0  0E 76 02 98 31 2C 22 55  |..X..I...v..1,"U|
000006B0: 31 20 32 20 30 20 31 38  22 3B 56 31 28 5A 29 3A  |1 2 0 18";V1(Z):|
000006C0: 98 31 2C 22 42 2D 50 20  32 22 3B 56 32 28 5A 29  |.1,"B-P 2";V2(Z)|
000006D0: 00 E4 0E 80 02 98 32 2C  C7 28 54 52 29 3B C7 28  |......2,.(TR);.(|
000006E0: 53 45 29 3B 00 10 0F 8A  02 98 31 2C 22 55 32 20  |SE);......1,"U2 |
000006F0: 32 20 30 20 31 38 22 3B  56 31 28 5A 29 3A 84 31  |2 0 18";V1(Z):.1|
00000700: 2C 41 31 24 2C 41 32 24  2C 41 33 24 2C 41 34 24  |,A1$,A2$,A3$,A4$|
00000710: 00 33 0F 8B 02 8B 41 31  24 B3 B1 22 30 30 22 A7  |.3....A1$.."00".|
00000720: 99 41 32 24 3A A0 32 3A  A0 31 3A 8D 39 33 30 3A  |.A2$:.2:.1:.930:|
00000730: 89 35 30 00 48 0F 94 02  99 22 56 49 52 55 53 20  |.50.H...."VIRUS |
00000740: 52 45 4D 4F 56 45 44 22  00 60 0F 9E 02 98 31 2C  |REMOVED".`....1,|
00000750: 22 42 2D 50 20 32 22 3B  56 32 28 5A 29 AA 32 37  |"B-P 2";V2(Z).27|
00000760: 00 8B 0F A8 02 A1 23 32  2C 41 24 2C 42 24 3A 44  |......#2,A$,B$:D|
00000770: 4C B2 C6 28 41 24 AA C7  28 30 29 29 AA C6 28 42  |L..(A$..(0))..(B|
00000780: 24 AA C7 28 30 29 29 AC  32 35 36 00 94 0F BC 02  |$..(0)).256.....|
00000790: 5A 5A B2 30 00 B2 0F C6  02 5A 5A B2 5A 5A AA 31  |ZZ.0.....ZZ.ZZ.1|
000007A0: 3A 98 31 2C 22 55 31 20  32 20 30 22 3B 54 52 3B  |:.1,"U1 2 0";TR;|
000007B0: 53 45 00 DC 0F D0 02 A1  23 32 2C 41 24 2C 42 24  |SE......#2,A$,B$|
000007C0: 3A 54 52 B2 C6 28 41 24  AA C7 28 30 29 29 3A 53  |:TR..(A$..(0)):S|
000007D0: 45 B2 C6 28 42 24 AA C7  28 30 29 29 00 EB 0F DA  |E..(B$..(0))....|
000007E0: 02 8B 54 52 B3 B1 30 A7  37 31 30 00 FA 0F EE 02  |..TR..0.710.....|
000007F0: 8B 44 4C B2 5A 5A A7 38  32 30 00 27 10 F8 02 98  |.DL.ZZ.820.'....|
00000800: 31 2C 22 55 31 20 32 20  30 20 31 38 22 3B 56 31  |1,"U1 2 0 18";V1|
00000810: 28 5A 29 3A 98 31 2C 22  42 2D 50 20 32 22 3B 56  |(Z):.1,"B-P 2";V|
00000820: 32 28 5A 29 AA 32 37 00  42 10 02 03 5A 4C B2 5A  |2(Z).27.B...ZL.Z|
00000830: 5A AF 32 35 35 3A 5A 48  B2 B5 28 5A 5A AD 32 35  |Z.255:ZH..(ZZ.25|
00000840: 36 29 00 56 10 0C 03 98  32 2C C7 28 5A 4C 29 3B  |6).V....2,.(ZL);|
00000850: C7 28 5A 48 29 3B 00 6F  10 16 03 98 31 2C 22 55  |.(ZH);.o....1,"U|
00000860: 32 20 32 20 30 20 31 38  22 3B 56 31 28 5A 29 00  |2 2 0 18";V1(Z).|
00000870: 85 10 34 03 82 5A 3A 56  5A B2 30 3A A0 32 3A A0  |..4..Z:VZ.0:.2:.|
00000880: 31 3A 89 35 30 00 95 10  3E 03 8F 20 44 49 52 45  |1:.50...>.. DIRE|
00000890: 43 54 4F 52 59 00 B3 10  48 03 8D 39 36 30 3A 8B  |CTORY...H..960:.|
000008A0: 46 A7 99 22 93 12 22 41  32 24 3A 8D 39 33 30 3A  |F..".."A2$:.930:|
000008B0: 89 35 30 00 EE 10 52 03  99 22 93 20 30 20 22 3B  |.50...R..". 0 ";|
000008C0: 3A 9F 31 2C 38 2C 30 2C  22 24 22 3A 97 37 38 31  |:.1,8,0,"$":.781|
000008D0: 2C 31 3A 9E 36 35 34 37  38 3A A1 41 24 2C 41 24  |,1:.65478:.A$,A$|
000008E0: 2C 41 24 2C 41 24 3A 58  24 B2 C7 28 30 29 00 22  |,A$,A$:X$..(0)."|
000008F0: 11 5C 03 81 49 B2 31 A4  37 3A A1 41 24 2C 42 24  |.\..I.1.7:.A$,B$|
00000900: 2C 43 24 2C 44 24 3A 99  41 24 42 24 43 24 44 24  |,C$,D$:.A$B$C$D$|
00000910: 3B 3A 82 3A 99 3A A1 41  24 2C 41 24 2C 41 24 2C  |;:.:.:.A$,A$,A$,|
00000920: 42 24 00 36 11 66 03 8B  53 54 A7 9E 36 35 34 38  |B$.6.f..ST..6548|
00000930: 34 3A 89 38 39 30 00 57  11 70 03 99 C6 28 41 24  |4:.890.W.p...(A$|
00000940: AA 58 24 29 AA 32 35 36  AC C6 28 42 24 AA 58 24  |.X$).256..(B$.X$|
00000950: 29 3B 3A 89 38 36 30 00  67 11 7A 03 A0 31 3A 8D  |);:.860.g.z..1:.|
00000960: 39 33 30 3A 89 35 30 00  71 11 84 03 9E 32 30 34  |930:.50.q....204|
00000970: 38 00 A9 11 8E 03 83 33  31 2C 38 2C 31 39 34 2C  |8......31,8,194,|
00000980: 37 2C 31 35 38 2C 31 39  34 2C 34 30 2C 35 32 2C  |7,158,194,40,52,|
00000990: 35 31 2C 34 31 2C 31 37  30 2C 31 39 34 2C 34 30  |51,41,170,194,40|
000009A0: 2C 35 32 2C 35 32 2C 34  31 00 DD 11 98 03 83 31  |,52,52,41......1|
000009B0: 37 32 2C 35 30 2C 35 33  2C 35 34 2C 31 37 30 2C  |72,50,53,54,170,|
000009C0: 35 32 2C 35 36 2C 35 38  2C 38 36 2C 37 33 2C 38  |52,56,58,86,73,8|
000009D0: 32 2C 38 35 2C 38 33 2C  30 2C 30 2C 30 00 F8 11  |2,85,83,0,0,0...|
000009E0: A2 03 99 3A 99 3A 99 22  3C 52 45 54 55 52 4E 3E  |...:.:."<RETURN>|
000009F0: 22 3A 97 31 39 38 2C 30  00 0F 12 AC 03 A1 41 24  |":.198,0......A$|
00000A00: 3A 8B 41 24 B3 B1 C7 28  31 33 29 A7 39 34 30 00  |:.A$...(13).940.|
00000A10: 15 12 B6 03 8E 00 26 12  C0 03 8F 20 44 49 53 4B  |......&.... DISK|
00000A20: 2D 43 48 45 43 4B 00 5E  12 CA 03 46 B2 31 3A 9F  |-CHECK.^...F.1:.|
00000A30: 31 2C 38 2C 31 35 2C 22  49 22 3A 84 31 2C 41 31  |1,8,15,"I":.1,A1|
00000A40: 24 2C 41 32 24 2C 41 33  24 2C 41 34 24 3A A0 31  |$,A2$,A3$,A4$:.1|
00000A50: 3A 8B 41 31 24 B2 22 30  30 22 A7 46 B2 30 00 64  |:.A1$."00".F.0.d|
00000A60: 12 D4 03 8E 00 00 00                              |.......         |

.......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.O.2.."..       
. BHP-VIRUS-KILLER .":."          10.11.
87 (TR)...<..".... 1 . SEARCH FOR VIRUS"
...F..".. 2 . SHOW INFECTED FILES".-.P..
".. 3 . REMOVE VIRUS".E.Z..".. 4 . DIREC
TORY".A.D..".. 5 . QUIT PROGRAM.".T.N..A
$:.A$."".110...X..A$:.E(A$).140,470,520,
830,900. ....110...... CHECK DISK.O....9
60:.F..".."A2$:.930:.50... ..1,8,15,"I":
.2,8,2,"#":.".. PASS 1 .".....TR.18:SE.1
:FZ.0.)....1,"U1 2 0 18";SE:SX.SE.7....#
2,A$,B$.W.H.TR.F(A$.G(0)):SE.F(B$.G(0)).
H.R..BP.2.226.32.Z....1,"B-P 2";BP......
#2,A$:.(F(A$.G(0)).15)..2..BP:.280.....F
Z.FZ.1:.#2,A$,B$:TR(FZ).F(A$.G(0)):SE(FZ
).F(B$.G(0)).....FI$(FZ)."":D1(FZ).SX:D2
(FZ).BP.1.*....I.1.16:.#2,A$:FI$(FZ).FI$
(FZ).A$:.I.8....".";:.BP.G....TR..0.180.
{."..:.FZ.0..".NO PROGRAM FILES ON THIS 
DISK!":.420...,..".. PASS 2 ."...@.VZ.0:
Z.0...J.Z.Z.1.A.T..1,"U1 2 0";TR(Z);SE(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)).*.R..A.DA(I)..I:.430.6.|.I.34:.I.K
....".";:.Z..FZ.330.O....VZ.0..:.".NO BH
P-VIRUS FOUND!"..... 2: 1:.930:.50......
:."VIRUS IN PROGRAM ."FI$(Z)".!!!".....V
Z.VZ.1:VF$(VZ).FI$(Z):VT(VZ).TR(Z):VS(VZ
).SE(Z)...B.V1(VZ).D1(Z):V2(VZ).D2(Z)...
L..390. .V.. SHOW INFECTED FILES.R....".
";:.VZ.0.."NO DESEASED PROGRAMS.":.930:.
50.Q....". INFECTED PROGRAMS: .."......I
.1.VZ:.VF$(I):.I......930:.50...... REMO
VE VIRUS.Z....".";:.VZ.0.."NO DESEASED P
ROGRAMS.":.930:.50......960:.F..".."A2$:
.930:.50...&..1,8,15,"I":.2,8,2,"#".C.0.
.Z.1.VZ:."."VF$(Z)". - ";:TR.VT(Z):SE.VS
(Z)._.:..I.1.8:.1,"B-F 0";TR;SE.U.D..1,"
U1 2 0";TR;SE...N..#2,A$,B$:TR.F(A$.G(0)
):SE.F(B$.G(0))...X..I.P.V..1,"U1 2 0 18
";V1(Z):.1,"B-P 2";V2(Z)......2,G(TR);G(
SE);......1,"U2 2 0 18";V1(Z):.1,A1$,A2$
,A3$,A4$.3....A1$.."00"..A2$: 2: 1:.930:
.50.H...."VIRUS REMOVED".`....1,"B-P 2";
V2(Z).27......#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)):S
E.F(B$.G(0))...Z..TR..0.710......DL.ZZ.8
20.'....1,"U1 2 0 18";V1(Z):.1,"B-P 2";V
2(Z).27.B...ZL.ZZ.255:ZH..(ZZ.256).V....
2,G(ZL);G(ZH);.O....1,"U2 2 0 18";V1(Z).
..4..Z:VZ.0: 2: 1:.50...>.. DIRECTORY...
H..960:.F..".."A2$:.930:.50...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$.6.F..ST..65484:.890.W
.P..F(A$.X$).256.F(B$.X$);:.860.G.Z. 1:.
930:.50.Q....2048......31,8,194,7,158,19
4,40,52,51,41,170,194,40,52,52,41......1
72,50,53,54,170,52,56,58,86,73,82,85,83,
0,0,0......:.:."<RETURN>":.198,0......A$
:.A$..G(13).940.......&.... DISK-CHECK.^
.J.F.1:.1,8,15,"I":.1,A1$,A2$,A3$,A4$: 1
:.A1$."00".F.0.D.T.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL