Comment
==============================================================

This menu doesn't actually run anything in it's present form.
It just shows what pull down menus look like.

==============================================================
EndComment


ClearScreen
PullMenu On

Procedure VerticalBox
   SingleLineBox
   BoxBorderColor Green Red
   BoxInsideColor Grey Red
EndProc

BlockBox
Explode On
BoxHeaderColor Yellow Mag
BoxBorderColor Yellow Mag
BoxInsideColor Yellow Mag
DrawBox 16 17 48 7
Shadow Off
BoxBorderColor Green Blue
BoxInsideColor Yellow Blue
DrawBox 20 19 40 3
WriteCenter 'MarxMenu PullDown Demo'

Explode Off
BoxBorderColor Cyan Blue
BoxInsideColor Grey Blue
InverseColor Yellow LCyan
CapsColor LCyan Blue
BlankTime = 10

DoubleLineBox
DrawBox 2 2 79 3
Write '     File   Window   Block   Search   Print   Macro   Editing   Quit'
UseArrows

OnKey 'Z'
  EDIT PULL.MNU

OnKey 'F'
  ^File

OnKey 'W'
  ^SWindow

OnKey 'B'
  ^Block

OnKey 'S'
  ^Search

OnKey 'P'
  ^PrintM

OnKey 'M'
  ^Macro

OnKey 'E'
  ^Edit

OnKey 'Q'
  ^Quit


:File
VerticalBox
DrawBox 6 5 15 14
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Load'
Writeln ' File'
ClearLine 196
Writeln
Writeln ' Save'
Writeln ' Quitfile'
Writeln ' Next'
Writeln ' Prev'
Writeln ' Read'
Writeln ' Change name'
Writeln ' Write block'
Writeln ' OS shell'
Write   ' Global file'

OnKey 'L'

:SWindow
VerticalBox
DrawBox 13 5 10 10
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Close'
Writeln ' Grow'
Writeln ' Split'
Writeln ' Next'
Writeln ' One'
Writeln ' Prev'
Writeln ' shRink'
Write   ' Zoom'

OnKey 'R'
  EDIT PULL.MNU

:Block
VerticalBox
DrawBox 22 5 20 9
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' mark block Begin'
Writeln ' mark block End'
Writeln ' Copy block'
Writeln ' Move block'
Writeln ' Delete block'
Writeln ' Unmark'
Write   ' mark Line'

OnKey 'C'

:Search
VerticalBox
DrawBox 30 5 11 5
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Find'
Writeln ' Replace'
Write   ' Again'

OnKey 'F'

:PrintM
VerticalBox
DrawBox 39 5 19 7
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' print All'
Writeln ' print Block'
Writeln ' send Formfeed'
Writeln ' set Left margin'
Write   ' set Page size'

OnKey 'A'

:Macro
VerticalBox
DrawBox 47 5 16 5
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Macro record'
Writeln ' Read macro'
Write   ' Write macro'

OnKey 'M'

:Edit
VerticalBox
DrawBox 55 5 17 8
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Add line'
Writeln ' Delete line'
Writeln ' Insert line'
Writeln ' Join line'
Writeln ' Split line'
Write   ' Undelete line'

OnKey 'D'

:Quit
VerticalBox
DrawBox 62 5 18 4
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Quit all files'
Write   ' eXit all file'

OnKey 'Q'