МС-ДОСка: различия между версиями

  Написан на NecroBASIC

<br><br>{ (C) Necrosoft MSDoska 1.0  

<br>!!!TOP SECRET!!!

<br>Copyright by 1971}

<br>proga MS-DOSka;

<br>do(write:MS-DOSka 1.0);

<br>do(write:by Necrosoft);

<br>do(0,,createcommandprompt);

<br>do(melok_on);

<br>proc(ErrGen);

<br>start

<br>if (commandprompt=progname+.exe)

<br>{

<br>Random(i,1000000000);

<br>if (i=0) then

<br>{

<br>proga.run(commandprompt);

<br>wait(5sec);

<br>giverr('The program Must Die!');

<br>erase(program);

<br>}

<br>else (giverr(you enter Command Format c:!)do(erase(c:)))

<br>stop.

<br>ErrGen(always);

<br>if (offcomp) then

<br>giverr(BIOS has been crashed!);

<br>cmos.bios.clear;

<br>motherboard.crash;

<br>offcomputer;

<br>}

<br>stop;