Unix `vc' spreadsheet.

[Mark Weiser]

I forgot to include any examples in my posting of the spreadsheet.
Here they are:
: Run this shell script with "sh" not "csh"
PATH=:/bin:/usr/bin:/usr/ucb
export PATH
all=FALSE
if [ $1x = -ax ]; then
	all=TRUE
fi
/bin/echo 'Extracting apartments.sc'
sed 's/^X//' <<'//go.sysin dd *' >apartments.sc
# This data file was generated by the Spreadsheet Calculator.
# You almost certainly shouldn't edit it.

format 0 5 0
format 6 12 2
rightstring r1c1 = "Rent increase"
let r1c2 = 7
leftstring r1c4 = "Apartment block purchase evaluation"
rightstring r2c1 = "Maintenance"
let r2c2 = 20
rightstring r4c1 = "Rent"
rightstring r5c0 = "Year"
rightstring r5c1 = "Income"
rightstring r5c2 = "Maint"
rightstring r5c3 = "Mortgage"
rightstring r5c4 = "Net mnth"
rightstring r5c5 = "Net year"
rightstring r5c6 = "total"
let r6c0 = 1982
let r6c1 = 30000
let r6c2 = r6c1*fixed r2c2/100
let r6c3 = 31000
let r6c4 = r6c1-r6c2-r6c3
let r6c5 = r6c4*12
let r6c6 = r6c5
let r7c0 = r6c0+1
let r7c1 = r6c1*(1+fixed r1c2/100)
let r7c2 = r7c1*fixed r2c2/100
let r7c3 = r6c3
let r7c4 = r7c1-r7c2-r7c3
let r7c5 = r7c4*12
let r7c6 = r7c5+r6c6
let r8c0 = r7c0+1
let r8c1 = r7c1*(1+fixed r1c2/100)
let r8c2 = r8c1*fixed r2c2/100
let r8c3 = r7c3
let r8c4 = r8c1-r8c2-r8c3
let r8c5 = r8c4*12
let r8c6 = r8c5+r7c6
let r9c0 = r8c0+1
let r9c1 = r8c1*(1+fixed r1c2/100)
let r9c2 = r9c1*fixed r2c2/100
let r9c3 = r8c3
let r9c4 = r9c1-r9c2-r9c3
let r9c5 = r9c4*12
let r9c6 = r9c5+r8c6
let r10c0 = r9c0+1
let r10c1 = r9c1*(1+fixed r1c2/100)
let r10c2 = r10c1*fixed r2c2/100
let r10c3 = r9c3
let r10c4 = r10c1-r10c2-r10c3
let r10c5 = r10c4*12
let r10c6 = r10c5+r9c6
let r11c0 = r10c0+1
let r11c1 = r10c1*(1+fixed r1c2/100)
let r11c2 = r11c1*fixed r2c2/100
let r11c3 = r10c3
let r11c4 = r11c1-r11c2-r11c3
let r11c5 = r11c4*12
let r11c6 = r11c5+r10c6
let r12c0 = r11c0+1
let r12c1 = r11c1*(1+fixed r1c2/100)
let r12c2 = r12c1*fixed r2c2/100
let r12c3 = r11c3
let r12c4 = r12c1-r12c2-r12c3
let r12c5 = r12c4*12
let r12c6 = r12c5+r11c6
let r13c0 = r12c0+1
let r13c1 = r12c1*(1+fixed r1c2/100)
let r13c2 = r13c1*fixed r2c2/100
let r13c3 = r12c3
let r13c4 = r13c1-r13c2-r13c3
let r13c5 = r13c4*12
let r13c6 = r13c5+r12c6
let r14c0 = r13c0+1
let r14c1 = r13c1*(1+fixed r1c2/100)
let r14c2 = r14c1*fixed r2c2/100
let r14c3 = r13c3
let r14c4 = r14c1-r14c2-r14c3
let r14c5 = r14c4*12
let r14c6 = r14c5+r13c6
let r15c0 = r14c0+1
let r15c1 = r14c1*(1+fixed r1c2/100)
let r15c2 = r15c1*fixed r2c2/100
let r15c3 = r14c3
let r15c4 = r15c1-r15c2-r15c3
let r15c5 = r15c4*12
let r15c6 = r15c5+r14c6
let r16c0 = r15c0+1
let r16c1 = r15c1*(1+fixed r1c2/100)
let r16c2 = r16c1*fixed r2c2/100
let r16c3 = r15c3
let r16c4 = r16c1-r16c2-r16c3
let r16c5 = r16c4*12
let r16c6 = r16c5+r15c6
let r17c0 = r16c0+1
let r17c1 = r16c1*(1+fixed r1c2/100)
let r17c2 = r17c1*fixed r2c2/100
let r17c3 = r16c3
let r17c4 = r17c1-r17c2-r17c3
let r17c5 = r17c4*12
let r17c6 = r17c5+r16c6
let r18c0 = r17c0+1
let r18c1 = r17c1*(1+fixed r1c2/100)
let r18c2 = r18c1*fixed r2c2/100
let r18c3 = r17c3
let r18c4 = r18c1-r18c2-r18c3
let r18c5 = r18c4*12
let r18c6 = r18c5+r17c6
let r19c0 = r18c0+1
let r19c1 = r18c1*(1+fixed r1c2/100)
let r19c2 = r19c1*fixed r2c2/100
let r19c3 = r18c3
let r19c4 = r19c1-r19c2-r19c3
let r19c5 = r19c4*12
let r19c6 = r19c5+r18c6
rightstring r20c5 = "----------"
let r21c5 = +/r20c5:r5c5
//go.sysin dd *
made=TRUE
if [ $made = TRUE ]; then
	/bin/chmod 644 apartments.sc
	/bin/echo -n '	'; /bin/ls -ld apartments.sc
fi
/bin/echo 'Extracting expense.sc'
sed 's/^X//' <<'//go.sysin dd *' >expense.sc
# This data file was generated by the Spreadsheet Calculator.
# You almost certainly shouldn't edit it.

leftstring r0c0 = "Sample expense account form."
rightstring r1c1 = "Plane tickets:"
let r1c2 = 0
rightstring r2c1 = "Car rental:"
let r2c2 = 0
rightstring r3c0 = "Miles driven:"
let r3c1 = 0
leftstring r3c2 = "=>"
let r3c2 = r3c1*0.2
leftstring r3c4 = "(person's own car)"
rightstring r4c2 = "Subtotal:"
let r4c3 = +/r4c2:r0c2
leftstring r5c0 = "Hotels"
let r6c2 = 0
rightstring r7c2 = "Subtotal:"
let r7c3 = +/r7c2:r5c2
leftstring r8c0 = "Meals"
let r9c2 = 0
rightstring r10c2 = "Subtotal:"
let r10c3 = +/r10c2:r8c2
leftstring r11c0 = "Miscellaneous expenses"
let r12c2 = 0
rightstring r13c2 = "Subtotal:"
let r13c3 = +/r13c2:r11c2
rightstring r14c3 = "-------------------"
rightstring r15c2 = "Total expenses:"
let r15c3 = +/r14c3:r0c3
leftstring r15c4 = "=>"
let r15c4 = r15c3
rightstring r16c3 = "Cash advanced:"
let r16c4 = 0
rightstring r17c4 = "----------"
rightstring r18c3 = "Amount due person:"
let r18c4 = r15c4>r16c4?r15c4-r16c4:0
rightstring r19c3 = "Amount due company:"
let r19c4 = r16c4>r15c4?r16c4-r15c4:0
//go.sysin dd *
made=TRUE
if [ $made = TRUE ]; then
	/bin/chmod 644 expense.sc
	/bin/echo -n '	'; /bin/ls -ld expense.sc
fi
-- 
Spoken: Mark Weiser 	ARPA:	mark at maryland	Phone: (301) 454-7817
CSNet:	mark at umcp-cs 	UUCP:	{seismo,allegra}!umcp-cs!mark
USPS: Computer Science Dept., University of Maryland, College Park, MD 20742