home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOS_FC / STOSFC01.MSA / STOS.ACB_TESTVIRI.ACB (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  1KB  |  24 lines
  1. 10 REM *********************************************************
  2. 100 REM 
  3. 110 REM ~~~ Use a BIOS Trap Call to read in the boot sector
  4. 120 REM 
  5. 130 TRAP
  6. 140 REM 
  7. 150 REM ~~~ Calculate the CHECKSUM
  8. 160 REM 
  9. 170 FOR
  10. 180 DOKE
  11. 190 NEXT
  12. 20 REM **                                                     **
  13. 200 REM 
  14. 210 REM ~~~ Check for it equalling $1234 (executable)
  15. 220 REM 
  16. 230 IF
  17. 30 REM ** Boot sector Virus Detector - Written by A.C.Porritt **
  18. 40 REM **                                                     **
  19. 50 REM *********************************************************
  20. 60 REM 
  21. 70 REM ~~~ Reserve Memory to put boot sector in
  22. 80 REM 
  23. 90 RESERVE
  24.