Best Objectech Shareware Selections/UNTITLED.iso/boss/util/menu/010/marxread.me

Text File | 1993-01-01 | 18KB | 718 lines

Version 2.39

06-22-92

Did some serious internal cleanup and I'd like to think everything works
better but if there is anything that doesn't work that used to, let me
know and I'll fix it.

I'm in the process of expanding the marxmenu syntax allowing you to do
things that you couldn't do before. You can now return Arrays as results
from procedures.

 Example:
   var X

   X = Test

   Procedure Test
   var Z
      ReadTextFile ('MARX.BAT',Z)
      Return Z
   EndProc

I've also improved the Novell menu translator so that it works better
with nasty menus.

07-01-92

Made a modification to be compatible with Software Carousel from Soft
Logic. MarxMenu will now find the master environment under Carousel and
it will read that TaskNumber and create unique batch file names under
each window.

The LockWord feature can now be used with the UseNovPassword feature. If
both are used then either the novell password or the lockword will
unblank the screen. This allows you to create a master password that
only the supervisor knows so that the supervisor can unlock anyones
screen.

07-13-92

MarxMenu can now read and write the CMOS ram and the battery backed up
clock.

CMOS (Number) : Number
CMOS allows to to read and write the CMOS ram on the clock chip.

 Example:
    Writeln CMOS(16)
    CMOS(16) = $42


NovUsedVolumeSpace (Path) : Number
Returns the used volume space of Path.

 Example:
   Writeln NovUsedVolumeSpace('F:')


ReadSqDirectory (Path,2DArray)
ReadSqDirectory works like ReadDirectory but rather than just returning
the file name it return all the information about the file in a 2
dimensional array.  The fields of the array are as follows:

 1 - Name
 2 - Date last Updated
 3 - Size
 4 - Attributes

Under Netware there are several other fields:

 5 - Date Created
 6 - Date last Accessed
 7 - Date last Archived
 8 - Owner

 Example:
 Var X Y
 ReadSqDirectory('*.EXE',X)
 Writeln 'Listing File Name, Date Last Accessed, and Size.'
 Loop X
    Y = LoopIndex
    Writeln X[Y,1] ' ' DateString(X[Y,6]) ' ' X[Y,3]
 EndLoop


DiskType (Drive) : String
DiskType returns the type of disk of a drive letter. Types recognized
are:

 FLOPPY360
 FLOPPY720
 FLOPPY12
 FLOPPY14
 RAMDISK
 SUBST
 HARDDISK
 BERNOULI
 NOVELL
 UNKNOWN

 Example
 Writeln DiskType('F')


08-06-92

ReadlnAsc (File,Array)
ReadlnAsc reads a single line from a comma delimited Ascii file and
breaks the fields out into an array. All fields in quotes are considered
strings. If the field is just comma delimited and numeric then it is
converted to a number. If it has a decimal point then it is converted to
a real number.

08-18-92

In addition to the SetEnv and ReadEnv commands, MarxMenu now can address
environment variables as if they were local variables.

 Example:
   Writeln %PATH%
   %PATH% = 'C:\;C:\DOS;'

===============================================================

Version 2.40

09-16-92

Well since I rolled over to 2.4 I decided to do something special a make
a semi-major leap forward. I'm added modem communication features to
MarxMenu. My intention is eventually to use MarxMenu for ny BBS software
instead of TBBS which has been nothing but grief.

So far I have XModem, YModem, ZModem anf Kermit but I'm not done with
them so I'm not going to document them yet.


ComPort : Number
Sets or reads the port that communication commands will effect.

 Example:
   ComPort = Com1
   Writeln ComPort


ComInitPort (Baud,DataBits,Parity,StopBits)
Initializes the ComPort. This must be run first before any other comport
command is executed.

 Example:
   ComInitPort(38400,8,'N',1)

ComBaud : Number
Reads or sets the baud rate. Range from 110 to 115,000 baud.

 Example:
   ComBaud = 9600
   Writeln ComBaud


ComDataBits : Number
Reads or sets the number of data bits. Range 5 - 8 bits.

 Example:
   ComDataBits = 8
   Writeln ComDataBits


ComStopBits : Number
Reads or sets the number of stop bits. Range 1 - 2 bits.

 Example:
   ComStopBits = 1
   Writeln ComStopBits


ComParity : String
Reads or sets the parity.

 N - None
 E - Even
 O - Odd
 M - Mark
 S - Space

 Example:
   ComParity = 'E'
   Writleln ComParity

ComDone
UnInitializes the port. Dealocates memory used by ComInitPort and
restores interupt vectors.


ComDTR (On/Off)
Turns DTR (Data Terminal Ready) on or off. Setting DTR to off can be
used to hang up a modem.

 Example:
   ComDTR Off


ComRTS (On/Off)
Turns RTS (Request to Send) on and off.

 Example:
   ComRTS On


ComCharReady : Boolean
Tests to see if a character has been received in the input buffer.

 Example:
   if ComCharReady then Ch = ComReadChar


ComReadChar : String
Reads one character from the com port or input buffer. It will wait up
to ComReadTimeout ticks for the character. If no character is received
then ComTimeOut is set to True.

 Example:
   Ch = ComReadChar


ComReadln : String
Reads a line from the com port or input buffer. It will wait up to
ComReadTimeout ticks for the character. If no character is received then
ComTimeOut is set to True.

 Example:
   if ComReadln = 'OK' then


ComWrite (String)
Writes a string to the com port with no CR.

 Example:
   ComWrite '+++'


ComWriteln (String)
Writes a string to the com port with CR.

 Example:
   ComWriteln 'ATTD 1-417-866-1665'


ComTimeout : Boolean
ComTimeout is set to True if the last command ended in a timeout error.

 Example:
   if ComTimeout then Writeln 'Something is stuck!'


ComReadTimeout : Number
This variable controls the number of timer ticks (18.2 ticks per second)
that a read command will wait to receive data.

 Example:
    ComReadTimeout = 36  ;2 seconds


ComWriteTimeout : Number
This variable controls the number of timer ticks (18.2 ticks per second)
that a write command will wait to send data.

 Example:
    ComWriteTimeout = 36  ;2 seconds


09-28-92

NovShellVersion : String

Returns the Novell shell version number.


10-19-92

Added new syntax option to the Mid string function allowing you to write
to the middle of a string. See the MID function.


10-26-92
Added a new internation command.

CurrencySymbol : String
Returns the currency symbol based on the country code.


11-09-92

ComCD : Boolean
Returns the status of the carrier detect line on serial ports.

ComRI : Boolean
Returns the status of the ring indicator line on serial ports.

ComBreakReceived : Boolean
Returns True if a break signal has been received at the serial port.

ComSendBreak
Sends a break signal out the modem.

NovBinderyAccess : Number
NovBinderyAccess returns the users bindery access level.

 0 - Not logged in.
 1 - Logged in.
 2 - Object Access.
 3 - Supervisor Access.


WorkString : String
WorkString is a MarxMenu variable that contains the string that Readln
is editing. This string can be accessed by KeyEvent routines so that a
KeyEvent procedure can set what is being entered.

 Example:
   WorkString = PickOne(List)


11-13-92

I changed the syntax on KeyEvent so if you got MarxMenu in the last 4
days and now you get an error on KeyEvent, make a few simple changes.

KeyEvent (Key) : Procedure
KeyEvent allows you to assign a procedure to a key so that any time the
key is pressed the procedure is called. Setting a key to Nil clears the
key. This command can be used to create global OnKey.

 Example:
    KeyEvent(F1) = loc ShowHelp   ;runs ShowHelp when F1 is pressed
    KeyEvent(F1) = Nil            ;clears F1 key
    Run KeyEvent(F1)              ;executes procedure assigned to F1


11-16-92

ComReceiveXmodem (FileName)
Receive a file by Xmodem protocol.

 Example:
   ComRecieveXmodem 'MXMENU.ZIP'


ComSendXmodem (FileName)
Send a file by Xmodem protocol.

 Example:
   ComSendXmodem 'MXMENU.ZIP'


ComReceive1kXmodem (FileName)
Receive a file by 1k Xmodem protocol.

 Example:
   ComRecieve1kXmodem 'MXMENU.ZIP'


ComSend1kXmodem (FileName)
Send a file by