Skip to content

Instantly share code, notes, and snippets.

@podstawek

podstawek/concurrency.pp

Created April 11, 2022 13:33
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save podstawek/75a65970b043c3fe90c93e5daa9e15e5 to your computer and use it in GitHub Desktop.
Save podstawek/75a65970b043c3fe90c93e5daa9e15e5 to your computer and use it in GitHub Desktop.
Download ZIP
BEEP call in Apple Lisa's Pascal is non-blocking. Which is very different from e.g. ZX Spectrum implementation. This program illustrates how a loop can run while sound is playing.
Raw
concurrency.pp
PROGRAM sound;
USES HWINT;
var i:integer;
begin
SetVolume(2);
noise(3000);
for i:= 1 to 600 do
begin
writeln(i, ' counter');
end;
silence;
END
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment