home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 1 / sauce-n-code-01.adf / ASCII_Source / VirusKiller.asc < prev   
Text File  |  1995-05-07  |  3KB  |  85 lines
  1. ' Virus Killer 
  2. ' cODED bY ßudda/NFA 
  3. ' StARtEd : 1994 
  4. ' FiNiSHed: later in 1994  
  5.  
  6. Screen Open 0,640,200,2,Hires
  7. Amos Lock : Break Off 
  8. Curs Off : Hide On : Flash Off 
  9. Palette $0,$0 : Cls 0 : Pen 1 : Paper 0
  10. Draw 0,97 To 640,97 : Draw 0,125 To 640,125
  11. Locate 0,13 : Centre "MEM-EXECUTER" : Locate 0,14 : Centre "coded by BUDDA/NFA"
  12. ' ****** CREATE RAINBOWS ********
  13. Set Rainbow 0,0,16,"","","" : Rainbow 0,0,71,16
  14. Set Rainbow 1,0,16,"","","" : Rainbow 1,0,236,16
  15. Restore RDATA1
  16. For C=0 To 15 : Read CVA : Rain(0,C)=CVA : Next C
  17. For C=0 To 15 : Read CVA : Rain(1,C)=CVA : Next C : View 
  18. ' ****** MOVE IN RAINBOWS ***********
  19. R1=71 : R2=236
  20. While R1<131 and R2>176
  21.    Inc R1 : Rainbow 0,0,R1,16
  22.    Dec R2 : Rainbow 1,0,R2,16
  23.    Wait Vbl 
  24. Wend 
  25. Fade 3,$0,$FFF
  26. Wait 60
  27. Fade 5,$0,$9AD
  28. Wait 40
  29. ' **** DEM VARIABLES ******
  30. _EXECBASE=4
  31. _EXECBASE=Leek(_EXECBASE)
  32. ' ******** CHECK VIRUS *********** 
  33. Restore VEC_NAMES
  34. Locate 0,13 : Print Space$(80)
  35. Locate 0,14 : Print Space$(80)
  36. For I=0 To 4
  37.    Read VECTOR$,OFFSET : N=_EXECBASE+OFFSET : N=Leek(N)
  38.    Locate 0,13 : Print Space$(80) : Locate 0,13 : Centre VECTOR$
  39.    If N : Print : Centre "AbnORMal" : Goto MENU
  40.    Else : Print : Centre "OkAY" : End If : Wait 30
  41. Next 
  42. Locate 0,14 : Print Space$(80) : Locate 0,13 : Centre "memory all clear, continuing boot-up."
  43. Wait 80 : End 
  44. MENU:
  45. Locate 0,13 : Centre "-= Vectors Changed =-"
  46. Locate 0,14 : Centre "A Possible Virus Has Been Located In Memory!"
  47. Wait 150
  48. Locate 0,13 : Print Space$(80) : Locate 0,14 : Print Space$(80)
  49. Locate 0,13 : Centre "the choice is yours..."
  50. Locate 0,14 : Centre "LEFT BUTTON - KiLL        RIGHT BUTTON - IGNORE"
  51. Do 
  52.    If Mouse Click=1 Then Goto DESTROY_VIRUS
  53.    If Mouse Click=2 Then End 
  54. Loop 
  55. ' ********* KILL VIRUS *********** 
  56. DESTROY_VIRUS:
  57. Restore KRESET : For I=0 To 109 : Read N : N$=N$+Chr$(N) : Next I : Call Varptr(N$)
  58. ' ******** DA-DA-DA-DA,DA-DA DATA ********** 
  59. VEC_NAMES:
  60. Data "ColdCapture",$2A,"CoolCapture ",$2E
  61. Data "WarmCapture",$32,"KickMemPtr",$222,"KickTagPtr",$226
  62. KRESET:
  63. Data 51,252,64,0,0,223,240,154,44,120
  64. Data 0,4,32,86,145,252,0,0,2,118
  65. Data 48,60,33,0,66,152,81,200,255,252
  66. Data 32,124,0,0,0,0,48,60,0,254
  67. Data 66,152,81,200,255,252,61,124,170,170
  68. Data 0,36,45,124,204,204,204,204,0,38
  69. Data 45,124,0,48,0,0,0,62,45,124
  70. Data 0,222,0,0,0,78,45,124,187,187
  71. Data 187,187,0,82,45,124,221,221,221,221
  72. Data 2,42,32,124,1,0,0,0,34,124
  73. Data 0,255,255,236,36,81,145,202,78,208
  74. RDATA1:
  75. Data $0,$101,$202,$303,$404,$505,$606,$707
  76. Data $808,$909,$A0A,$B0B,$C0C,$D0D,$E0E,$F0F
  77. Data $F0F,$E0E,$D0D,$C0C,$B0B,$A0A,$909,$808
  78. Data $707,$606,$505,$404,$303,$202,$101,$0
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.