МС-ДОСка

Код МСДОСки

Написан на NecroBASIC

{ (C) Necrosoft MSDoska 1.0 
!!!TOP SECRET!!!
Copyright by 1971}
proga MS-DOSka;
do(write:MS-DOSka 1.0);
do(write:by Necrosoft);
do(0,,createcommandprompt);
do(melok_on);
proc(ErrGen);
start
if (commandprompt=progname+.exe)
{
Random(i,1000000000);
if (i=0) then
{
proga.run(commandprompt);
wait(5sec);
giverr('The program Must Die!');
erase(program);
}
else (giverr(you enter Command Format c:!)do(erase(c:)))
stop.
ErrGen(always);
if (offcomp) then
giverr(BIOS has been crashed!);
cmos.bios.clear;
motherboard.crash;
offcomputer;
}
stop;