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

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

Юный Принц Джон Леннон в какой-то момент так увлекся Компьютерным Моделированием, что разработал свою Операционную Систему! В 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;

end;
WriteLn(Wave, ',', Level);
Delay(10);

end;

end.

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

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

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