Category : Network Files
Archive   : MXMNU229.ZIP
Filename : QUICK.MNU

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

Copyright 1990-91 by Marc Perkel * All right reserved.

This file is a quick menu system for you to get going with MarxMenu
quickly and esilly. It is written not only to be useful to us but to be
an example of what can be done with MarxMenu.

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

;------ Personalize Your Screen Messages

StatusLineText = '*-<< Acme Manufacturing Company >>-*'
MenuTitle = "Joe Blow's Master Menu"

;------ Menu look and feel include files

Include 'CUSTOM.INC'

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

I have defined a couple of procedures called CenterStretchWindow and
CornerStretchBox which takes as parameters a menu title, array of
choices, and the XY coordinants of the center of the window. It then
displays all the choices and numbers them. This method allows you to
update the menu more quickly.

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

;----- Main Menu

AppendArray(Choices,'Applications Menu')
AppendArray(Choices,'Dos Menu')
AppendArray(Choices,'Format Disk Menu')
AppendArray(Choices,'Dos Command Line')
AppendArray(Choices,'Menu Utilities')

CornerStretchBox ('Main Menu',11,6)

OnKey 'A'
^Apps

OnKey 'B'
^Dos

OnKey 'C'
|SelectFormat
|LastKey = ' '

OnKey 'D'
|if ExistOnPath('DOLIST.EXE') > ''
DropTo DoList
|else
| Bat 'DropTo ' + ReadEnv('COMSPEC')
|endif

OnKey 'E'
^MenuUtils

OnKey Esc
|LeaveMenu

;----- Applications Menu

:Apps

AppendArray(Choices,'Word Processing')
AppendArray(Choices,'Database')
AppendArray(Choices,'Accounting')
AppendArray(Choices,'Communications')
AppendArray(Choices,'Time Manager')

CornerStretchBox ('Apps Menu',43,6)

OnKey 'A'

OnKey 'B'

OnKey 'C'

OnKey 'D'

OnKey 'E'

;----- Dos Menu

:Dos

AppendArray(Choices,'Memory Map')
AppendArray(Choices,'Free Space')
AppendArray(Choices,'Show Directory')
AppendArray(Choices,'Pick Directory')
AppendArray(Choices,'Directory Master')
AppendArray(Choices,'Backup Hard Disk')
AppendArray(Choices,'Run a Program')

CornerStretchBox ('DOS Menu',43,6)

OnKey 'A'
RamMap
Pause

OnKey 'B'
Free
Pause

OnKey 'C'
D/W

OnKey 'D'
PD

OnKey 'E'
|if ExistOnPath('DM3.EXE') > ''
DropTo DM3
|else
DropTo DM
|endif

OnKey 'F'
CD\
BACKUP C: A: /S
|Bat 'CD ' + Path

OnKey 'G'
|Bat SelectFile (ProgType)

;----- Menu Utils

:MenuUtils

AppendArray(Choices,'Edit this Menu')
AppendArray(Choices,'Edit another Menu')
AppendArray(Choices,'Run a Menu')

CornerStretchBox ('Apps Menu',43,6)

OnKey 'A'
ME %MenuFileName

OnKey 'B'
|Bat 'ME ' + SelectFile ('*.MNU')

OnKey 'C'
|SavePosition Off
|Bat 'MARX ' + SelectFile ('*.MNU')

;----- This routines selects floppy disk format

Procedure SelectFormat
var Ch Message Option
DrawTheBox(28,12,42,4 + HeightDifference,'Format Floppy Disk Menu')
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'
Ch = ReadKey
if Ch = '1'
Message = '360k Format with no System Files.'
Option = '/4'
endif
if Ch = '2'
Message = '1.2m Format with no System Files.'
Option = ''
endif
if Ch = '3'
Message = '720k Format with no System Files.'
Option = '/N:9/T:80'
endif
if Ch = '4'
Message = '1.4m Format with no System Files.'
Option = '/N:18/T:80'
endif
if Ch = '5'
Message = '360k Format with System Files.'
Option = '/4/S'
endif
if Ch = '6'
Message = '1.2m Format with System Files.'
Option = '/S'
endif
if Ch = '7'
Message = '720k Format with System Files.'
Option = '/N:9/T:80/S'
endif
if Ch = '8'
Message = '1.4m Format with System Files.'
Option = '/N:18/T:80/S'
endif
if Message = '' then Return
if DosVersionString >= '5.00' then Option = Option + '/U'
DrawTheBox(54,18,11,2 + HeightDifference,'Drive')
Writeln ' A:'
Write ' B:'
Ch = ReadKey
if Ch = Esc then Return
if Ch = 'A'
Bat '@Echo Formatting Drive A: ' + Message
Bat '@Echo To abort, press CTRL-C.'
Bat '@Echo .'
Bat 'FORMAT A:' + Option
endif
if Ch = 'B'
Bat '@Echo Formatting Drive B: ' + Message
Bat '@Echo To abort, press CTRL-C.'
Bat '@Echo .'
Bat 'FORMAT B:' + Option
endif
EndProc

;------ Select a File

Procedure SelectFile (Mask)
if Mask = '' then Return ''
Return PickFile Mask 29 9 14
EndProc


;------ Choose Program Type

Procedure ProgType
var Progs
Progs[1] = 'COM File'
Progs[2] = 'EXE File'
Progs[3] = 'BAT File'

CornerStretchBox ('Program Type',Progs,11,16)

OnScreenOnly On
LastKey = ReadKey

if LastKey = 'A' then Return '*.COM'

if LastKey = 'B' then Return '*.EXE'
if LastKey = 'C' then Return '*.BAT'
if LastKey = Esc then Return ''

EndProc