Artifact 94f241cca17176411c7a576152ec7b72ff22375a1af4348f3c724554c54ad8a8:

• File psl-1983/emode/vs-demo.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 750) [annotate] [blame] [check-ins using] [more...]

% Create a small virtual screen, 10 by 10 characters, starting at
% row 8 column 10.  (Remember the upper left hand corner is Row 0, Column 0.)

s1 := CreateVirtualScreen(10, 10,  8, 10);

% Fill the small screen with the letter A.
for i := 0:9 do for j := 0:9 do WriteToScreen(s1, char A, i, j);


% In normal "two window mode" there are 4 active screens, so the length of
% the list will be 4.

length activescreenlist;


% Selecting s1 gives us 5 active screens, and displays s1.
% However, the "main" screen will partly cover s1.
SelectScreen(s1);

% Deselecting s1 gives us 4 active screens.
DeSelectScreen(s1);

% Execute this FOR loop to see how stuff on the bottom window scrolls
% beneath s1.
for i := 1:30 do write i, "  ",i^2, "  ", i^3;