/*  Tutorial  program  for  WindowKey,  can be started by WindowKey (hotkey
lcommand      lshift      numpad     enter     in     the     configuration
presets/Example.WindowKey) */

ADDRESS "WindowKey"
SAY "We'd better get a bigger window first !"
WIN_ZIP"(*A)"

SAY "WindowKey includes screen scrolling facilities !"
DO i=1 TO 200
 SCR_MOVE"(,1,*F)"
END i
DO i=1 TO 200
 SCR_MOVE"(,-1,*F)"
END i

SAY "Tell me what arrangement you want for your windows on the front screen"
SAY " 1: Stacked"
SAY " 2: Diagonal"
SAY " 3: Horizontal"
SAY " 4: Vertical"
SAY " 5: Full size"
SAY " 6: Grid"
PULL Arrangement .
SCR_STACK || "(" || Arrangement || ",*F)"

SAY "Let's call the preferences program, to throw an eye at all commands."
EXEC_PREFS