Category : Miscellaneous Language Source Code
Archive   : DECODE10.ZIP
Filename : 123.RUL

############################################################################
# #
# 123.rul -- Decode It! rule file for Lotus Worksheet files #
# #
# #
# Please note: This rule file is provided as an example only. While #
# every effort has been made to validate the information #
# presented here, Axiom Innovations takes no responsibility #
# for the integrity of the data that results from using #
# this example. #
# #
############################################################################


RECORD RECORD_123

# 123 Record Header

SHORT RecordType

SHORT RecordLength


# Beginning of File
WHILE RECORD_123.RecordType <=> 0
RECORD BeginOfFile

# Id should equal 1028 or 1030
XSHORT Id

WHILE RECORD_123.BeginOfFile.Id <> 1028
BEGIN

WHILE RECORD_123.BeginOfFile.Id <> 1030
EXIT

END

RETURN

END


# End of file
WHILE RECORD_123.RecordType <=> 1
RECORD EndOfFile

# Decode bytes after Lotus EOF
ASCII AfterEOF -1

EXIT

END


# Calculation method
WHILE RECORD_123.RecordType <=> 2
BEGIN

# 0 = manual mode, FF = automatic
XTINY CalcMode

RETURN

END


# Calculation order
WHILE RECORD_123.RecordType <=> 3
BEGIN

# 0 = natural, 1 = by column, FF = by row
XTINY CalcOrder

RETURN

END


# Split window type
WHILE RECORD_123.RecordType <=> 4
BEGIN

# 0 = not split, 1 = vertical split, FF = horizontal split
XTINY SplitType

RETURN

END


# Split window sync
WHILE RECORD_123.RecordType <=> 5
BEGIN

# 0 = not synchronized, FF = synchronized
XTINY SyncType

RETURN

END


# Active worksheet range (start col, start row, end col, end row)
WHILE RECORD_123.RecordType <=> 6
BEGIN

SHORT ActiveRange 4

RETURN

END


# Window 1 and 2
BEGIN

WHILE RECORD_123.RecordType <> 7
BEGIN

WHILE RECORD_123.RecordType <> 9
RESCIND

END

RECORD Window

SHORT CursorPosition 2

#####################################################################
# #
# Each bit of the cell format byte is used as follows: #
# #
# Bit Description Value Meaning #
# --- ----------- ----- ------- #
# 7 protection 1 protected #
# 0 unprotected #
# #
# 4-6 format type 0 fixed #
# 1 scientific notation #
# 2 currency #
# 3 percent #
# 4 comma #
# 5-6 unused #
# 7 ** special ** (see below) #
# #
# 0-3 decimal places 0-15 ** Only if format type = 0-6 ** #
# special format if format type = 7 : #
# 0 +/- #
# 1 general #
# 2 day-month-year #
# 3 day-month #
# 4 month-year #
# 5 text #
# 6 hidden #
# 7 date : hour-min-sec #
# 8 date : hour-min #
# 9 date : international 1 #
# 10 date : international 2 #
# 11 time : international 1 #
# 12 time : international 2 #
# 13-14 not used #
# 15 default #
# #
#####################################################################

XTINY Format

TINY Unused1

SHORT DefaultWidth

SHORT ScreenSize 2

SHORT StartPosition 2

SHORT TitleSize 2

SHORT TitleStart 2

SHORT TopLeftPosition 2

SHORT NumberCols

TINY Unused2 2

RETURN

END RECORD_123.RecordLength

END


# Column width (for window 1)
WHILE RECORD_123.RecordType <=> 8
RECORD ColWidth1

XSHORT Id

XTINY Width

RETURN

END


# Column width (for window 2)
WHILE RECORD_123.RecordType <=> 10
RECORD ColWidth2

XSHORT Id

XTINY Width

RETURN

END


# Named range (start col, start row, end col, end row)
WHILE RECORD_123.RecordType <=> 11
RECORD NamedRange

ASCII Name 16
(OMIT0) RECORD_123.NamedRange.Name

SHORT Range 4

RETURN

END


# Blank Cell
WHILE RECORD_123.RecordType <=> 12
RECORD BlankCell

# Cell Format (see above)
XTINY Format

SHORT Column

SHORT Row

RETURN

END


# Integer number cell
WHILE RECORD_123.RecordType <=> 13
RECORD Integer

# Cell Format (see above)
XTINY Format

SHORT Column

SHORT Row

SHORT Value

RETURN

END


# Floating point number
WHILE RECORD_123.RecordType <=> 14
RECORD Number

# Cell Format (see above)
XTINY Format

SHORT Column

SHORT Row

DFLOAT Value

RETURN

END


# Label cell
WHILE RECORD_123.RecordType <=> 15
RECORD Label

# Cell Format (see above)
XTINY Format

SHORT Column

SHORT Row

# Label format prefix:
# | = printer command, \ = repeating, ' = left alignment,
# " = right alignment, ^ = centered.
ASCII LabelPrefix

ASCII Label -1

RETURN

END RECORD_123.RecordLength


# Formula cell
WHILE RECORD_123.RecordType <=> 16
RECORD Formula

# Cell Format (see above)
XTINY Format

SHORT Column

SHORT Row

DFLOAT Value

SHORT Size

# Formulas are stored in postfix (reverse polish) notation
RECORD Postfix -1

#### The most frequently used operations are indicated ####

XTINY OpCode

WHILE RECORD_123.Formula.Postfix.OpCode <=> 0
DFLOAT Constant

WHILE RECORD_123.Formula.Postfix.OpCode <=> 1
RECORD Variable

# A '1' in bit 15 indicates relative cell reference
# A '0' in bit 15 indicates absolute cell reference
XSHORT Coordinate 2

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 2

# (start col, start row, end col, end row)
XSHORT Range 4


#### Use RECORDs to indicate the type of operation ####

WHILE RECORD_123.Formula.Postfix.OpCode <=> 3
RECORD __Return__

RETURN

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 4
RECORD __Parenthesis__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 5
SHORT Integer

WHILE RECORD_123.Formula.Postfix.OpCode <=> 6
RECORD StringConstant

UNDEFINE RECORD_123.Formula.Postfix.StringConstant.Data

WHILE RECORD_123.Formula.Postfix.StringConstant.Data <> 0
ASCII Data -1

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 8
RECORD __Negate__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 9
RECORD __Add__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 10
RECORD __Subtract__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 11
RECORD __Multiply__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 12
RECORD __Divide__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 13
RECORD __Exponent__

BREAK

END


WHILE RECORD_123.Formula.Postfix.OpCode <=> 14
RECORD __Equal__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 15
RECORD __NotEqual__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 16
RECORD __LessOrEqual__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 17
RECORD __GreatOrEqual__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 18
RECORD __LessThan__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 19
RECORD __GreaterThan__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 20
RECORD __And__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 21
RECORD __Or__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 22
RECORD __Not__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 47
RECORD __Mod__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 55
RECORD __Today__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 59
RECORD __If__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 80
RECORD __Sum__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <=> 81
RECORD __Avg__

BREAK

END

WHILE RECORD_123.Formula.Postfix.OpCode <= 47
NEXT


#### Filter variable argument opcodes ####
BEGIN

BEGIN

# CHOOSE
WHILE RECORD_123.Formula.Postfix.OpCode <=> 48
BREAK

# Statistical functions
WHILE RECORD_123.Formula.Postfix.OpCode >= 80
BEGIN

WHILE RECORD_123.Formula.Postfix.OpCode <= 84
RESCIND

END

# VAR
WHILE RECORD_123.Formula.Postfix.OpCode <=> 87
BREAK

# STD
WHILE RECORD_123.Formula.Postfix.OpCode <=> 88
BREAK

# INDEX
WHILE RECORD_123.Formula.Postfix.OpCode <=> 98
BREAK

# All non-variable argument functions
RESCIND

END

XTINY ArgCount

END

END

RETURN

END RECORD_123.RecordLength


# Table range (start col, start row, end col, end row)
WHILE RECORD_123.RecordType <=> 24
RECORD TableRange

# 0 = no table, 1 = table 1, 2 = table 2
XTINY TableID

SHORT Range 4


SHORT InputCell1 4

SHORT InputCell2 4

RETURN

END


# Query range (start col, start row, end col, end row)
WHILE RECORD_123.RecordType <=> 25
RECORD QueryRange

SHORT InputRange 4

SHORT OutputRange 4

SHORT CriteriaRange 4

# 0 = no command, 1 = find, 2 = extract, 3 = delete, 4 = unique
XTINY Command

RETURN

END


# Print Range (start col, start row, end col, end row)
WHILE RECORD_123.RecordType <=> 26
BEGIN

SHORT PrintRange 4

RETURN

END


# Sort Range (start col, start row, end col, end row)
WHILE RECORD_123.RecordType <=> 27
BEGIN

SHORT SortRange 4

RETURN

END


# Fill Range (start col, start row, end col, end row)
WHILE RECORD_123.RecordType <=> 28
BEGIN

SHORT FillRange 4

RETURN

END


# Primary and secondary sort key range (start col, start row, end col, end row)
BEGIN

WHILE RECORD_123.RecordType <> 29
BEGIN

WHILE RECORD_123.RecordType <> 35
RESCIND

END

SHORT KeyRange 4

# 0 = descending, FF = ascending order
XTINY SortOrder

RETURN

END


# Distribution Range (start col, start row, end col, end row)
WHILE RECORD_123.RecordType <=> 32
RECORD DistributeRange

SHORT ValuesRange 4

SHORT BinRange 4

RETURN

END


# Global protection
WHILE RECORD_123.RecordType <=> 36
BEGIN

# 0 = off, 1 or FF = on
XTINY ProtectFlag

RETURN

END


# Print footer
WHILE RECORD_123.RecordType <=> 37
RECORD PrintFooter

ASCII Data 242

RETURN

END
(OMIT0) RECORD_123.PrintFooter


# Print header
WHILE RECORD_123.RecordType <=> 38
RECORD PrintHeader

ASCII Data 242

RETURN

END
(OMIT0) RECORD_123.PrintHeader


# Printer setup string
WHILE RECORD_123.RecordType <=> 39
RECORD PrintSetUp

ASCII Data 40

RETURN

END
(OMIT0) RECORD_123.PrintSetUp

# Margins (left, right, page length, top, bottom)
WHILE RECORD_123.RecordType <=> 40
BEGIN

SHORT Margins 5

RETURN

END


# Global label alignment
WHILE RECORD_123.RecordType <=> 41
BEGIN

# 27h = left, 22h = right, 5Eh = center
XTINY LabelAlignment

RETURN

END


# PrintBorders (start col, start row, end col, end row)
WHILE RECORD_123.RecordType <=> 42
RECORD PrintBorders

SHORT RowRange 4

SHORT ColRange 4

RETURN

END


# Graph settings (named or current)
WHILE RECORD_123.RecordType >= 45
BEGIN

WHILE RECORD_123.RecordType <= 46
RECORD GraphSettings

# Label of Named Graph Setting
WHILE RECORD_123.RecordType <=> 46
ASCII Name 16
(OMIT0) RECORD_123.GraphSettings.Name

#### Ranges are of the form: (start col, start row, end col, end row) ####

RECORD Ranges 7

SHORT Range 4

END

RECORD Labels 6

SHORT LabelRange 4

END

# 0 = XY, 1 = bar, 2 = pie, 4 = line, 5 = stacked bar
XTINY GraphType

# 0 = none, 1 = horizontal, 2 = vertical, 3 = both
XTINY Grid

XTINY ColorFlag

# 0 = none, 1 = line, 2 = symbol, 3 = line-symbol
XTINY LineFormats 6

# 0 = center, 1 = right, 2 = below, 3 = left, 4 = above
XTINY Alignments 6

RECORD XYAxis 2

# 0 = auto, FF = manual
XTINY ScaleFlag

DFLOAT Limits 2

END

RECORD Titles 4

ASCII Title 40

END
(OMIT0) RECORD_123.GraphSettings.Titles

RECORD Legends 6

ASCII Legend 20

END
(OMIT0) RECORD_123.GraphSettings.Legends

# Cell Format (see above)
XTINY XFormat

# Cell Format (see above)
XTINY YFormat

SHORT SkipFactor

XTINY Extra -1

RETURN

END RECORD_123.RecordLength

END


# Iteration count
WHILE RECORD_123.RecordType <=> 47
BEGIN

TINY CalcCount

RETURN

END


# Print format mode
WHILE RECORD_123.RecordType <=> 48
BEGIN

# 0 = formatted, 1 or FF = unformatted
XTINY PrintFormat

RETURN

END


# Cursor location
WHILE RECORD_123.RecordType <=> 49
BEGIN

# 1 = window 1, 2 = window 2
XTINY CursorWindow

RETURN

END


# String formula
WHILE RECORD_123.RecordType <=> 51
RECORD StringFormula

# Cell Format (see above)
XTINY Format

SHORT Column

SHORT Row

ASCII Label -1

RETURN

END RECORD_123.RecordLength


# Symphony named range (start col, start row, end col, end row)
WHILE RECORD_123.RecordType <=> 71
RECORD SymphonyRange

ASCII Name 16
(OMIT0) RECORD_123.SymphonyRange.Name

SHORT Range 4

# 0 = single cell, 1 or FFh = range
XTINY RangeType

RETURN

END


# Worksheet password
WHILE RECORD_123.RecordType <=> 75
RECORD Password

XTINY Encrypt -1

RETURN

END RECORD_123.RecordLength


# Hidden columns 1 and 2
WHILE RECORD_123.RecordType >= 100
BEGIN

WHILE RECORD_123.RecordType <= 101
RECORD HiddenColumns

# Each bit indicates if a column is hidden (1) or not (0)
XTINY HiddenFlags 32

RETURN

END

END


# Parse ranges (start col, start row, end col, end row)
WHILE RECORD_123.RecordType <=> 102
RECORD ParseRanges

SHORT InputRange 4

SHORT OutputRange 4

RETURN

END


# Linear regression ranges (start col, start row, end col, end row)
WHILE RECORD_123.RecordType <=> 103
RECORD LinearRegression

SHORT DependVarRange 4

SHORT IndependVarRange 4

SHORT OutputRange 4

# 0 = no forced zero-intercept, FFh = forced intercept at origin
XTINY ZeroInterceptFlg

RETURN

END


# Matrix mathematics ranges (start col, start row, end col, end row)
WHILE RECORD_123.RecordType <=> 105
RECORD MatrixRanges


SHORT InversionSource 4

SHORT InversionDest 4

SHORT Multiplicand 4

SHORT MultiplierRange 4

SHORT ProductRange 4

RETURN

END


# Cell pointer index
WHILE RECORD_123.RecordType <=> 150
RECORD CellPointerIndex

REPEAT

SHORT Column

SHORT FirstRow

SHORT LastRow

END

RETURN

END RECORD_123.RecordLength


# Unknown (maybe Symphony?) record
TINY unknown RECORD_123.RecordLength

END