Реферат: Программирование игры Змейка

059 } IF IOResult<>0 THen rewrite(d);

060 } clrscr;

061 } gotoxy(28,22);

062 } textcolor(green);

063 } write('Введить ваше iм`я: ');

064 }readln(f1.name);

065 } f1.scor:=scr;

066 } f1.len:=dl;

067 } seek(d,filesize(d));

068 } write(d,f1);

069 } Close(d);

070 } Textcolor(0);

071 } Halt;

072 } End;

{--------------------------------------------------------}

073 } Procedure OverRes(var d:res);

074 } var f1:result;

075 } y:integer;

076 } Begin

077 } ClrScr;

078 } {$I-}

079 } Reset(d);

080 } {$I+}

081 } IF IOResult<>0 THEN begin

082 } gotoxy(28,22);

083 } textcolor(green);

084 }write('Результатiв немає!');end

085 }Else

086 } begin