Created
June 27, 2015 00:28
-
-
Save pmachapman/eab16a57a763ad1a5560 to your computer and use it in GitHub Desktop.
"The ultimate virus killer" program from the book "More Tricks & Tips for the Amiga"
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment