home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / fish / 881-890 / ff885 / false / src / vcheck.f < prev    next >
Text File  |  1993-07-16  |  295b  |  14 lines

  1. { checking vectors: we misuse the ";" operator to peek in execbase }
  2.  
  3. [+$;$0=$[\%\%"ok!"]?~["infected! (value=".")
  4. clear (y/n)? "ß^ß'y=$[\0\:]?~[%]?]?10,]c:    { checkfunction }
  5.  
  6. "Virusdetector in FALSE
  7.  
  8. "
  9. 4;$$$
  10. "Coldcapture: "42c;!
  11. "CoolCapture: "46c;!
  12. "KickMemPtr : "546c;!
  13. "KickTagPtr : "550c;!
  14.