"The ultimate virus killer" program from the book "More Tricks & Tips for the Amiga"

virus-killer.bas

OPEN "sys:c/Virus chk" FOR OUTPUT AS 1
FOR i=l TO 800
READ a$
a%=VAL("&H"+a$)
PRINT #l,CHR$(a%);
NEXT
CLOSE 1
KILL "sys:c/Virus_chk.info"
datas:
DATA 0,0,3,F3,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0
DATA 0,0,0,A4,0,0,3,E9,0,0,0,A4,2C,78,0,4,72,0,4A,AE
DATA 0,2E,67,6,42,AE,0,2E,52,1,C,6E,0,FC,0,94,67,4,54,1
DATA 60,8,4A,AE,2,26,67,A,58,1,42,AE,2,26,42,AE,2,2A,13,C1
DATA 0,0,2,8C,43,F9,0,0,1,12,70,0,4E,AE,FD,D8,23,CO,0,0
DATA 2,84,67,0,0,AA,2C,40,4E,AE,FF,C4,23,CO,0,0,2,88,67,0
DATA 0,9A,24,3C,0,0,1,1E,26,3C,0,0,0,46,4E,B9,0,0,1,8
DATA 4A,39,0,0,2,8C,66,16,24,3C,0,0,1,64,26,3C,0,0,0,2A
DATA 4E,B9,0,0,1,8,60,0,0,6A,8,39,0,0,0,0,2,8C,67,12
DATA 24,3C,0,0,1,8E,26,3C,0,0,0,5E,4E,B9,0,0,1,8,8,39
DATA 0,1,0,0,2,8C,67,14,24,3C,0,0,1,EC,26,3C,0,0,0,29
DATA 4E,B9,0,0,1,8,60,1C,8,39,0,2,0,0,2,8C,67,24,24,3C
DATA 0,0,2,52,26,3C,0,0,0,32,4E,B9,0,0,1,8,24,3C,0,0
DATA 2,16,26,3C,0,0,0,3B,4E,B9,0,0,1,8,2C,78,0,4,20,39
DATA 0,0,2,84,67,6,22,40,4E,AE,FE,62,70,0,4E,75,22,39,0,0
DATA 2,88,4E,EE,FF,D0,64,6F,73,2E,6C,69,62,72,61,72,79,0,C,9B
DATA 31,3B,33,31,3B,34,32,6D,20,2D,20,56,69,72,75,73,2D,4B,69,6C
DATA 6C,65,72,20,56,31,2E,30,20,2D,20,A,D,28,63,29,20,20,31,39
DATA 38,38,20,62,79,20,53,2E,20,4D,61,65,6C,67,65,72,A,D,A,9B
DATA 30,3B,33,31,3B,34,30,6D,4E,6F,20,73,79,6D,70,74,6F,6D,73,20
DATA 66,6F,72,20,56,69,72,75,73,2D,49,6E,66,65,63,74,69,6F,6E,20
DATA 66,6F,75,6E,64,20,21,A,D,A,52,65,73,65,74,2D,56,65,63,74
DATA 6F,72,20,43,6F,6F,6C,2D,43,61,70,74,75,72,65,20,68,61,73,20
DATA 62,65,65,6E,20,75,73,65,64,21,A,D,53,43,41,2D,56,69,72,75
DATA 73,20,73,75,73,70,65,63,74,65,64,20,21,A,D,56,69,72,75,73
DATA 20,69,6E,20,6D,65,6D,6F,72,79,20,64,65,73,74,72,6F,79,72,64
DATA 2E,A,D,A,56,65,72,74,69,63,61,6C,20,42,6C,61,6E,6B,20,49
DATA 6E,74,65,72,72,75,70,74,20,68,61,73,20,62,65,65,6E,20,75,73
DATA 65,64,21,A,D,0,42,79,74,65,2D,42,61,6E,64,69,74,2D,56,69
DATA 72,75,73,20,73,75,73,70,65,63,74,65,64,21,A,D,56,69,72,75
DATA 73,20,69,6E,20,6D,65,6D,6F,72,79,20,64,65,73,74,72,6F,79,65
DATA 64,2E,A,D,A,0,4B,69,63,6B,54,61,67,50,6F,69,6E,74,65,72
DATA 20,69,73,20,6E,6F,20,6C,6F,6E,67,65,72,20,69,6E,20,6F,70,65
DATA 72,61,74,69,6E,67,20,73,79,73,74,65,6D,21,A,D,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,3,EC,0,0,0,16,0,0,0,0
DATA 0,0,0,30,0,0,0,36,0,0,0,42,0,0,0,52,0,0,0,5C
DATA 0,0,0,68,0,0,0,6E,0,0,0,76,0,0,0,82,0,0,0,8E
DATA 0,0,0,96,0,0,0,A2,0,0,0,AA,0,0,0,B2,0,0,0,BE
DATA 0,0,0,C8,0,0,0,D0,0,0,0,DC,0,0,0,E2,0,0,0,EE
DATA 0,0,0,F8,0,0,1,A,0,0,0,0,0,0,3,F2,0,0,3,F2