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

This is a handy Novell menu for running netware functions.

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

Var
  MoveCount ForeColor BackColor ClearChar %ExecSt %Option %Message
  %ThisMenu Ans FileType LptPort = '1' Queue %CaptureCmd

if ColorScreen
  Shadow On
  ForeColor = Yellow
  BackColor = Mag
  ClearChar = 32
else
  Shadow Off
  ForeColor = Black
  BackColor = Grey
  ClearChar = 177
endif

SavePosition On
Explode On
BlockBox
BoxHeaderColor ForeColor BackColor
BoxBorderColor Green Blue
BoxInsideColor Yellow Blue
InverseColor Yellow Red
BlankTime = 10

TextColor Red Red
ClearScreen ClearChar

TextColor ForeColor BackColor
ClearLine
Write '  * The MarxMenu System *'

GotoXY 1 25
ClearLine
WriteCenter 'Copyright 1989 by Marc Perkel * All Rights Reserved'

ClockColor ForeColor BackColor
ClockPos 35 1

TextColor Yellow Blue
DrawBox 22 11 37 3
WriteCenter 'Master Network Control Menu'

MoveCount = 1
While MoveCount < 8
   MoveWindow 0 -1
   MoveCount = MoveCount + 1
EndWhile

DrawBox 29 11 22 3
WriteCenter 'Press ESC to Exit'

MoveCount = 1
While MoveCount < 10
   MoveWindow 0 1
   MoveCount = MoveCount + 1
EndWhile

BoxHeader = ' Select Network Function '
DrawBox 13 9 56 9
UseArrows
TextColor LCyan Blue
ClearLine 205
TextColor Yellow Blue
Writeln
Writeln '   A - Printer Setup         G - Novell Status'
Writeln '   B - DM                    H - Dos Status'
Writeln '   C - Dos Shell             I - Novell Utilities'
Writeln '   D - Pick Directory        J - Folio Help System'
Writeln '   E - Edit NETWARE.MNU      K - Free Space'
Write   '   F - Novell User Options   L - Format Menu'

OnKey 'A'
  ^Printer

OnKey 'B'
  |if ExistOnPath 'DM3.EXE' > ''
  |   %ExecSt = 'DM3.EXE'
  |else
  |   %ExecSt = 'DM.COM'
  |endif
  %ExecSt

OnKey 'C'
  DropTo DoList

OnKey 'D'
  PD

OnKey 'E'
  ME %MenuFileName

OnKey 'F'
  ^User

OnKey 'G'
  ^View

OnKey 'H'
  ^Dos

OnKey 'I'
  ^Novell

OnKey 'J'
  \public\help

OnKey 'K'
  Free
  Pause

OnKey 'L'
  ^Format

:Dos
BoxHeaderColor ForeColor BackColor
BoxBorderColor Yellow Green
BoxInsideColor LCyan Green
InverseColor Yellow Red
BoxHeader = ' Dos Menu '
DrawBox 45 16 25 6
UseArrows
ClearLine 205
Writeln
Writeln '  1 - Disk Free Space'
Writeln '  2 - Directory'
Write   '  3 - Memory Map'

OnKey '1'
  Free
  Pause

OnKey '2'
  D/W

OnKey '3'
  MapMem


:FORMAT
BoxHeaderColor ForeColor BackColor
BoxBorderColor Yellow Green
BoxInsideColor White Green
BoxHeader = ' Format Floppy Disk Menu '
DrawBox 25 13 44 7
TextColor Yellow Green
ClearLine 205
UseArrows
TextColor White Green
Writeln
Writeln '  1 - Format 360      5 - Format /S 360'
Writeln '  2 - Format 1.2M     6 - Format /S 1.2M'
Writeln '  3 - Format 720      7 - Format /S 720'
Write   '  4 - Format 1.4M     8 - Format /S 1.4M'

OnKey '1'
  |%Message = '360k Format with no System Files.'
  |%Option = '/4'
  |Format2

OnKey '2'
  |%Message = '1.2m Format with no System Files.'
  |%Option = ''
  |Format2

OnKey '3'
  |%Message = '720k Format with no System Files.'
  |%Option = '/N:9/T:80'
  |Format2

OnKey '4'
  |%Message = '1.4m Format with no System Files.'
  |%Option = '/N:18/T:80'
  |Format2

OnKey '5'
  |%Message = '360k Format with System Files.'
  |%Option = '/4/S'
  |Format2

OnKey '6'
  |%Message = '1.2m Format with System Files.'
  |%Option = '/S'
  |Format2

OnKey '7'
  |%Message = '720k Format with System Files.'
  |%Option = '/N:9/T:80/S'
  |Format2

OnKey '8'
  |%Message = '1.4m Format with System Files.'
  |%Option = '/N:18/T:80/S'
  |Format2

:Format2
BoxBorderColor LCyan Blue
BoxInsideColor Grey Blue
BoxHeader = ' Drive '
DrawBox 54 17 11 5
TextColor LCyan Blue
ClearLine 205
TextColor Grey Blue
UseArrows
Writeln
Writeln '  A:'
Write   '  B:'

OnKey 'A'
  @Echo Formatting Drive A: %Message
  @Echo To abort, press CTRL-C.
  @Echo .
  FORMAT A:%Option

OnKey 'B'
  @Echo Formatting Drive B: %Message
  @Echo To abort, press CTRL-C.
  @Echo .
  FORMAT B:%Option


:Printer
BoxHeaderColor ForeColor BackColor
BoxBorderColor Yellow Green
BoxInsideColor LCyan Green
InverseColor Yellow Red
BoxHeader = ' Network Printer Menu '
DrawBox 31 14 44 7
ClearLine 205
UseArrows
Writeln
Writeln '  0 - Dot Matrix      4 - Local Printer'
Writeln '  1 - Laser           5 - Select Port'
Writeln '  2 - Vicki Q         6 - PConsole'
Write   '  3 - PrintQ 3        7 - Show Config'

OnKey '0'
  |Queue = 'PrintQ_0'
  |BuildCommand
  Capture %CaptureCmd

OnKey '1'
  |Queue = 'PrintQ_1'
  |BuildCommand
  Capture %CaptureCmd

OnKey '2'
  |Queue = 'Vicki_Q'
  |BuildCommand
  Capture %CaptureCmd

OnKey '3'
  |Queue = 'Grace_Q'
  |BuildCommand
  Capture %CaptureCmd

OnKey '4'
  EndCap

OnKey '5'
  |BoxBorderColor LCyan Blue
  |BoxInsideColor White Blue
  |BoxHeader = ' Lpt Port '
  |DrawBox 59 7 12 6
  |TextColor Yellow Blue
  |ClearLine 205
  |TextColor White Blue
  |UseArrows
  |Writeln
  |WriteCenter '1'
  |Writeln
  |WriteCenter '2'
  |Writeln
  |WriteCenter '3'
  |LptPort = ReadKey

OnKey '6'
  PConsole

OnKey '7'
  Capture Show
  Echo.
  Pause

OnKey 'E'
  Edit PRINTER.MNU


:Novell
BoxHeaderColor ForeColor BackColor
BoxBorderColor Yellow Green
BoxInsideColor LCyan Green
InverseColor Yellow Red
BoxHeader = ' Network Utilities Menu '
DrawBox 41 3 34 11
ClearLine 205
UseArrows
Writeln
Writeln '  1 - Session Management'
Writeln '  2 - File Management'
Writeln '  3 - Volume Information'
Writeln '  4 - System Configuration'
Writeln '  5 - File Server Monitoring'
Writeln '  6 - Print Queue Management'
Writeln '  7 - Print Job Configurations'
Write   '  8 - Printer Definitions'

OnKey '1'
  Session

OnKey '2'
  Filer

OnKey '3'
  VolInfo

OnKey '4'
  SysCon

OnKey '5'
  FConsole

OnKey '6'
  PConsole

OnKey '7'
  PrintCon

OnKey '8'
  PrintDef


:View
BoxHeaderColor ForeColor BackColor
BoxBorderColor Yellow Green
BoxInsideColor LCyan Green
InverseColor Yellow Red
BoxHeader = ' View Status Menu '
DrawBox 48 12 26 12
ClearLine 205
UseArrows
Writeln
Writeln '  1 - UserList'
Writeln '  2 - Drive Map'
Writeln '  3 - Current Dir'
Writeln '  4 - Directory Rights'
Writeln '  5 - List Servers'
Writeln '  6 - Who Am I?'
Writeln '  7 - Trustees'
Writeln '  8 - System Time'
Write   '  9 - ChkVol'

OnKey '1'
  UserList/A
  Echo.
  Pause

OnKey '2'
  Map
  Echo.
  Pause

OnKey '3'
  NDir
  Pause

OnKey '4'
  Rights
  Echo.
  Pause

OnKey '5'
  SList
  Echo.
  Pause

OnKey '6'
  Whoami/A
  Echo.
  Pause

OnKey '7'
  TList
  Echo.
  Pause

OnKey '8'
  SysTime
  Echo.
  Pause

OnKey '9'
  ChkVol
  Echo.
  Pause

:User
BoxHeaderColor ForeColor BackColor
BoxBorderColor Yellow Green
BoxInsideColor LCyan Green
InverseColor Yellow Red
BoxHeader = ' User Options Menu '
DrawBox 48 13 26 11
ClearLine 205
UseArrows
Writeln
Writeln '  1 - Change Password'
Writeln '  2 - LogOut'
Writeln '  3 - Block Messages'
Writeln '  4 - Receive Messages'
Writeln '  5 - '
Writeln '  6 - '
Writeln '  7 - '
Write   '  8 - '

OnKey '1'
  SetPass

OnKey '2'
  |DrawBox 5 5 20 3
  |Write ' Logout? '
  |Ans = UpperCase(ReadKey)
  |if Ans = 'Y'
  |   StuffKbd = 'Echo Logout' + CR
  |   ExitMenu
  |Endif

OnKey '3'
  CastOff

OnKey '4'
  CastOn

OnKey '5'

OnKey '6'

OnKey '7'

OnKey '8'


Procedure BuildCommand
  %CaptureCmd = 'Queue=' + Queue + ' C=1 NB No FF TimeOut=5 Local=' + LptPort
EndProc