МС-ДОСка

Код МСДОСки

Написан на 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 { prun(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;