The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]



Вариант для распечатки  
Пред. тема | След. тема 
Форум Разговоры, обсуждение новостей
Режим отображения отдельной подветви беседы [ Отслеживать ]

Оглавление

Опубликованы исходные тексты программного окружения компьютера Apple Lisa, opennews (?), 20-Янв-23, (0) [смотреть все]

Сообщения [Сортировка по времени | RSS]


4. "Опубликованы исходные тексты программного окружения компьюте..."  +/
Сообщение от Аноним (4), 20-Янв-23, 08:24 
Здравствуйте. Интересно то что, есть куски кода на паскале:

FUNCTION HeapError(hz: Thz; bytesNeeded: INTEGER): INTEGER;
BEGIN
  WRITELN; WRITELN('The heap is full.  User Croak !! ');
  write('type SPACE to exit'); readln;
  goto 999;
END;


procedure Mistake(s: Str255);
begin
   writeln;
   writeln('Fatal error in Phrase File, Alert Section.', chr(7));
   if alertNumber<0 then writeln('At the beginning of the file')
   else writeln('At alert number ', alertNumber:1, '.');
   writeln;
   writeln('Error is... ', s, '.');
   writeln;
   writeln('Type CR to return to the shell.');
   readln;
   goto 999;
end;

Ответить | Правка | Наверх | Cообщить модератору

21. "Опубликованы исходные тексты программного окружения компьюте..."  +20 +/
Сообщение от Аноним (21), 20-Янв-23, 09:30 
Странно что в ОС, написанной на Паскале, есть куски кода на паскале?
Ответить | Правка | Наверх | Cообщить модератору

25. "Опубликованы исходные тексты программного окружения компьюте..."  +/
Сообщение от _hide_ (ok), 20-Янв-23, 09:59 
Там в каждой программе по своей функции heapError:

FUNCTION heapError(hz:thz; bytesNeeded:integer):integer;
begin
  writeln(TechDiff);
  writeln(FixIt);
  HALT;
end;

Ответить | Правка | Наверх | Cообщить модератору

105. "Опубликованы исходные тексты программного окружения компьюте..."  +/
Сообщение от Аноним (105), 22-Янв-23, 17:08 
> goto 999;
>END;

Интересный выход из процедуры. Хорошо что не 666.

Ответить | Правка | К родителю #4 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру