Иван Трунаев

Просмотр кода страницы Сказка про ОСЮНИКС страница

===Сказка про ОС ЮНИКС===

Юный Принц Джон Леннон в какой-то момент так увлекся Компьютерным Моделированием, что разработал свою Операционную Систему! В 13 лет он предложил Архитектуру, в которой была Консоль и Графическая Среда BeOS: сначала запускалась консоль, но если нужно было — можно было запустить графическую среду и через скрипт Автозапуска LIFO.

Чтобы все получилось Юный Монах предложил поставить в каждую Персональный Компьютер — КАМЕНЬ ОНИКС — он не дешевый, но может все выполнить, и случилось Чудо — камень согласился, и Джон Леннон лично на фабрике ЭВМ в Чехословакии поставил Камень со своего Персня — красный рубин в прототип ZX Sepectrum, и запустилась Консолько управления Рабочей Станцией, все начали апплодировать гению, он — запустил Pascal, и запрограммировал синтезатор Звуков — Amigo за 6 минут, код был такой:

program Amingo;

uses Crt, SysUtils;
const
  Level = 0.5; // Sound Power Value
var
  Key: Char;
  Wave: Float;
  Start: Boolean;
begin
  WriteLn('Press key to synth...');
  StartTime := GetTickCount;
   Start := false;
  while (true) do begin
    if KeyPressed then
    begin
      Key := ReadKey;
      if (Key = #27) then begin
         exit;
      end;
      Start := true;
    end;

    if Start then begin 
       Wave := 440.0 * ord(Key) / 255.0;
       WriteLn(Wave, ',', Level);
    end;
    Delay(10);
  end;
end.

А запускалась программа так:
freepascal amigo.pas > sound

Если нажимать кнопки на Клавиатуре — компьютер издавал звуки, а есть нажать Escape — программа выключалась.

Это подтвердило мощь Джона Леннона, как гения, Компьютер Работал, управлялся приложениями, это стало началом ЭЛЕКТРОННОЙ МУЗЫКИ, которую так все любят!