10 REM *********************************************************
100 REM 
110 REM ~~~ Use a BIOS Trap Call to read in the boot sector
120 REM 
130 TRAP
140 REM 
150 REM ~~~ Calculate the CHECKSUM 
160 REM 
170 FOR
180 DOKE
190 NEXT
20 REM **                                                     **
200 REM 
210 REM ~~~ Check for it equalling $1234 (executable)
220 REM 
230 IF
30 REM ** Boot sector Virus Detector - Written by A.C.Porritt **
40 REM **                                                     **
50 REM *********************************************************
60 REM 
70 REM ~~~ Reserve Memory to put boot sector in 
80 REM 
90 RESERVE