|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 12032 (0x2f00)
Types: TextFile
Names: »LESSON4.TXT«
└─⟦dc6c79650⟧ Bits:30004299 FINAR Tutor
└─ ⟦this⟧ »LESSON4.TXT«
..Lesson 4 - Performing Calculations and Changing Data
..Screen 1
..
Copy Stored Instructions 1000 to 5070 from your Primer :
? ü@01##100Colåumns øumn øs ø åQtr1 Qtr2 Qtr3 Qtr4 Year
? ü@02##200Rowås ø åUnits
? ü@03##201Rowås ø å`Matunit(Materials/unit)Packunit(Packaging/unit)
? ü@04##202Rowås ø åMaterials Packaging Freight Labor
? ü@05##203Rowås ø å`Totcost(Totalå costs)
? ü@06##500`Materials=Units*Matunit
? ü@07##501`Packaging=Units*Packunit
? ü@08##502`Freight=Units*5
? ü@09##503`Totcost=sumå of ø åMaterials to Labor
? ü@10##505`Year=sumå of ø åQtr1 to Qtr4
? ü@11##506`Conåsider ø åMatunit to Packunit
? ü@12##507`Year=NA
Ø
..Screen 2
..
Now Calculate the Project.
? üCalculateøCaløC
NOThe Command is CALCULATE.
!2ØP2201Checking Row, Column and Worksheet Definitions
!1ØP2250@#01
!1ØP2200@#02
!1ØP2200@#03
!1ØP2200@#04
!1ØP2200@#05
!1ØP2200@#06
!2ØP2201:!2Checking Calculation Section
!1ØP2232@#06
!1ØP2200@#07
!1ØP2200@#08
!1ØP2200@#09
!1ØP2200@#10
!1ØP2200@#11
!1ØP2200@#12
!4ØP0401:ØP0601:ØP2201:ØP0301
< < Cursor Movement > > ø < < Screen Options > > ø < < Formatting > >
æ^S Left ^D or <CR> Right ø HELP WIN shows this menu ø ^P = Precision
æ^E Up ^X Down ø HELP OFF cancels this menu ø ^W = Column Width
æ^Z first Col of next Row ø WIN OFF will scroll screen ø <ESC> exits ^P/^W
æTAB/^I MOVE to Row/Column ø WIN restores last Window ø and cancels input
Project COSTS Worksheet 1
QTR1 QTR2 QTR3 QTR4 YEAR
UNITS
MATUNIT
PACKUNIT
MATERIALS
PACKAGING
FREIGHT
LABOR
TOTCOST
!2Calculating
!2ØP2301æAuto Input
!2ØP1901For Qtr1,Qtr2,Qtr3 and Qtr4, 4 numbers per line
ØP2001Units? ü5000 5050 4975 4960
ØP11135000 5050 4975 4960
ØP2101Materials/unit? ü7.5 7.75 8 8.25
ØP12137.50 7.75 8.00 8.25
ØP2201Packaging/unit? ü1ø1.0ø1.00å 1.1ø1.10å 1.21 1.331
ØP13131.00 1.10 1.21 1.33
ØP1901:ØP1901:ØP2001:ØP2101:ØP2201:ØP1901Labor? ü2000 2000 2000 2000
ØP17132000 2000 2000 2000
!3ØP1901:ØP2301:
Ø
..Screen 3
..
Now do the same again, starting with CALCULATE, and use the shorthand
method of data entry.
? üCalculateøCaløC
NOThe Command is CALCULATE.
!2ØP2201Checking Row, Column and Worksheet Definitions
!1ØP2250@#01
!1ØP2200@#02
!1ØP2200@#03
!1ØP2200@#04
!1ØP2200@#05
!1ØP2200@#06
!2ØP2201:!2Checking Calculation Section
!1ØP2232@#06
!1ØP2200@#07
!1ØP2200@#08
!1ØP2200@#09
!1ØP2200@#10
!1ØP2200@#11
!1ØP2200@#12
!2ØP0401:ØP0501:ØP0701:ØP2201:ØP0301
< < Cursor Movement > > ø < < Screen Options > > ø < < Formatting > >
æ^S Left ^D or <CR> Right ø HELP WIN shows this menu ø ^P = Precision
æ^E Up ^X Down ø HELP OFF cancels this menu ø ^W = Column Width
æ^Z first Col of next Row ø WIN OFF will scroll screen ø <ESC> exits ^P/^W
æTAB/^I MOVE to Row/Column ø WIN restores last Window ø and cancels input
Project COSTS Worksheet 1
QTR1 QTR2 QTR3 QTR4 YEAR
UNITS
MATUNIT
PACKUNIT
MATERIALS
PACKAGING
FREIGHT
LABOR
TOTCOST
!2Calculating
!2ØP2301æAuto Input
!2ØP1901For Qtr1,Qtr2,Qtr3 and Qtr4, 4 numbers per line
ØP2001Units? ü5000 5050 4975 4960
ØP11135000 5050 4975 4960
ØP2101Materials/unit? ü7.5 groåw by øw ø å.25ø0.25
ØP12137.50 7.75 8.00 8.25
ØP2201Packaging/unit? ü1 groåw by øw ø å10%
ØP13131.00 1.10 1.21 1.33
ØP1901:ØP1901:ØP2001:ØP2101:ØP2201:ØP1901Labor? ü2000...ø2000..ø2000.0...ø2000.0..
ØP17132000 2000 2000 2000
!3ØP1901:ØP2301:
ØH
..Screen 4
..
< < Cursor Movement > > ø < < Screen Options > > ø < < Formatting > >
æ^S Left ^D or <CR> Right ø HELP WIN shows this menu ø ^P = Precision
æ^E Up ^X Down ø HELP OFF cancels this menu ø ^W = Column Width
æ^Z first Col of next Row ø WIN OFF will scroll screen ø <ESC> exits ^P/^W
æTAB/^I MOVE to Row/Column ø WIN restores last Window ø and cancels input
Project COSTS Worksheet 1
æ QTR1 QTR2 QTR3 QTR4 YEAR
æUNITS > æ5000.00æ< æ5050.00 4975.00 4960.00 æ19985.00
æMATUNIT æ7.50 7.75 8.00 8.25 æNA
æPACKUNIT æ1.00 1.10 1.21 1.33 æNA
æMATERIALS 37500.00 39137.50 39800.00 40920.00 157357.50
æPACKAGING 5000.00 5555.00 6019.75 6601.76 23176.51
æFREIGHT 25000.00 25250.00 24875.00 24800.00 99925.00
æLABOR æ2000.00 2000.00 2000.00 2000.00 æ8000.00
æTOTCOST 69500.00 71942.50 72694.75 74321.76 288459.01
!1ØP2101 The items entered at Auto-Input are highlighted.
!1ØP1901?
Ø
..Screen 5
..
< < Cursor Movement > > æø < < Screen Options > > ø < < Formatting > >
æ^S Left ^D or <CR> Right ø HELP WIN shows this menu ø ^P = Precision
æ^E Up ^X Down ø HELP OFF cancels this menu ø ^W = Column Width
æ^Z first Col of next Row ø WIN OFF will scroll screen ø <ESC> exits ^P/^W
æTAB/^I MOVE to Row/Column ø WIN restores last Window ø and cancels input
Project SAMPLE Worksheet 1
æ JAN FEB MAR QTR1
æSALES æ> 1680.00<æ 1730.00 1750.00 5160.00
æVPC 37.00 37.00 37.00 37.00
æVARCOST 621.60 640.10 647.50 1909.20
æFIXED 500.00 505.00 507.00 1512.00
æTCOST 1121.60 1145.10 1154.50 3421.20
æMARGIN 558.40 584.90 595.50 1738.80
?
!2ØP2101æMove the cursor (æ> <æ) to æSALESæ in æQTR1
ØP0501æ^S Left æ^D or <CR> Right
ØP1701:? ü^D
ØP1108æ 1680.00æ> 1730.00<æ
ØP1701:? ü^D
ØP1117æ 1730.00æ> 1750.00<æ
ØP1701:? ü^D
ØP1126æ 1750.00æ> 5160.00<æ
ØP2101:ØP2101æNow move it to æVARCOSTæ in æQTR1
ØP0501æ^S Left ^D or <CR> Right
æ^E Up æ^X Down
ØP1701:? ü^X
ØP1135æ 5160.00
ØP1235>æ æ37.00<æ
ØP1701:? ü^X
ØP1235æ 37.00
ØP1335> 1909.20<
ØP2101:ØP2101æAnd back to æVARCOSTæ in æFEB
ØP0501^S Left
æ^E Up ^X Down
ØP1701:? ü^S
ØP1326> 647.50<æ 1909.20
ØP1701:? ü^S
ØP1317> 640.10<æ 647.50
ØP2101:æGo up to æVPCæ in æFEB
ØP0501æ^S Left
^E Up
ØP1701:? ü^E
ØP1317æ 640.10
ØP1217> 37.00<
ØP2101:æTo æVARCOSTæ in æJANæ, using a single keystroke
ØP0601æ^E Up
ØP0701^Z first Col of next Row
ØP1701:? ü^Z
ØP1217æ 37.00
ØP1308> 621.60<
ØP2101:!2ØP0701æ^Z first Col of next Row
ØH
..Screen 6
..
ØP1308æ 621.60 æ
ØP0401æ ▶bc◀ ▶bc◀ Curso▶f2◀ Movemen▶f4◀ ▶be◀ ▶be◀ ▶fc◀ ▶bc◀ ▶bc◀ Scree▶ee◀ Option▶f3◀ ▶be◀ ▶be◀ ▶fc◀ ▶bc◀ ▶bc◀ Formattin▶e7◀ ▶be◀ >
æ^S Left ^D or <CR> Right ø HELP WIN shows this menu ø ^P = Precision
æ^E Up ^X Down ø HELP OFF cancels this menu ø ^W = Column Width
æ^Z first Col of next Row ø WIN OFF will scroll screen ø <ESC> exits ^P/^W
æTAB/^I MOVE to Row/Column ø WIN restores last Window ø and cancels input
Project SAMPLE Worksheet 1
æ JAN FEB MAR QTR1
æSALES æ> 1680.00<æ 1730.00 1750.00 5160.00
æVPC 37.00 37.00 37.00 37.00
æVARCOST 621.60 640.10 647.50 1909.20
æFIXED 500.00 505.00 507.00 1512.00
æTCOST 1121.60 1145.10 1154.50 3421.20
æMARGIN 558.40 584.90 595.50 1738.80
?
!1ØP2101æChange æSALESæ in æJANæ to æ1000
!1ØP1701:? ü1000.00ø1000.0ø1000.ø1000
NOChange the value to 1000
ØP11101000.00
!1ØP1701:ØP2101:!1æNow move down to æFIXED
ØP0401 ▶bc◀ ▶bc◀ Curso▶f2◀ Movemen▶f4◀ ▶be◀ ▶be◀
ØP0601æ^E Up æ^X Down
ØP1701:? ü^X
ØP1108 æ1000.00
ØP1208> 37.00<æ
ØP1701:? ü^X
ØP1208æ 37.00
ØP1308> 621.60<æ
ØP1701:? ü^X
ØP1308æ 621.60
ØP1408> 500.00<æ
ØP0401æ ▶bc◀ ▶bc◀ Curso▶f2◀ Movemen▶f4◀ ▶be◀ ▶be◀
ØP0601æ^E Up ^X Down
!1ØP2101:!1ØP2101æand change the values to æ700 æ(æJANæ) 705 (FEB) and 707 (MAR)
ØP1701:? ü700.00ø700.0ø700.ø700
NOJAN is 700
ØP1411700.00
ØP2126æ700 (JAN) æ705 æ(æFEBæ)
ØP0401 ▶bc◀ ▶bc◀ Curso▶f2◀ Movemen▶f4◀ ▶be◀ ▶be◀
ØP0501æ^S Left æ^D or <CR> Right
ØP1701:? ü^D
ØP1408æ 700.00æ> 505.00<
ØP0401æ ▶bc◀ ▶bc◀ Curso▶f2◀ Movemen▶f4◀ ▶be◀ ▶be◀
ØP0501æ^S Left ^D or <CR> Right
ØP1701:? ü705.00ø705.0ø705.ø705
NOFEB is 705
ØP1417> 705.00<
ØP2136æ705 (FEB) and æ707 æ(æMARæ)
ØP0401 ▶bc◀ ▶bc◀ Curso▶f2◀ Movemen▶f4◀ ▶be◀ ▶be◀
ØP0501æ^S Left æ^D or <CR> Right
ØP1701:? ü^D
ØP1417æ 705.00æ> 507.00<
ØP0401æ ▶bc◀ ▶bc◀ Curso▶f2◀ Movemen▶f4◀ ▶be◀ ▶be◀
ØP0501æ^S Left ^D or <CR> Right
ØP1701:? ü707.00ø707.0ø707.ø707
NOMAR is 707
ØP1429707.00
!1ØP1701:!1ØP2101:Now recalculate the Worksheet
ØP1701:? üCalculateøCaløC
NOThe Command is CALCULATE.
Calculating
ØP2101:ØP1426æ 707.00
ØP1701:?
ØH
..Screen 7
..
ØP1801:ØP0301
< < Cursor Movement > > ø < < Screen Options > > ø < < Formatting > >
æ^S Left ^D or <CR> Right ø HELP WIN shows this menu ø ^P = Precision
æ^E Up ^X Down ø HELP OFF cancels this menu ø ^W = Column Width
æ^Z first Col of next Row ø WIN OFF will scroll screen ø <ESC> exits ^P/^W
æTAB/^I MOVE to Row/Column ø WIN restores last Window ø and cancels input
Project SAMPLE Worksheet 1
æ JAN FEB MAR QTR1
æSALES > 1000.00< 1730.00 1750.00 5160.00
æVPC 37.00 37.00 37.00 37.00
æVARCOST 621.60 640.10 647.50 1909.20
æFIXED 700.00 705.00 707.00 1512.00
æTCOST 1121.60 1145.10 1154.50 3421.20
æMARGIN 558.40 584.90 595.50 1738.80
!4ØP2101:5000 Varcost = Sales * VPC / 100
!4ØP1311370.00 640.10 647.50 1909.20
!4ØP2101:5010 Tcost = Varcost + Fixed
!4ØP15101070.00 1145.10 1154.50 3421.20
!4ØP2101:5020 Margin = Sales - Tcost
!4ØP1611-70.00 584.90 595.50 1738.80
!4ØP2101:5030 Qtr1 = sum of Jan to Mar
!4ØP11374480.00
!2ØP1200 111.00
!2ØP13001657.60
!2ØP14002112.00
!2ØP15003169.60
!4ØP16001110.40
!4ØP2101:5050 Consider Qtr1
!4ØP2101:5060 VPC = Varcost as % of Sales
!4ØP1237 37.00
!5ØP2101:ØP1701?
Ø
..Screen 8
..
æ < < Cursor Movement > > ø < < Screen Options > > ø < < Formatting > >
æ^S Left ^D or <CR> Right ø HELP WIN shows this menu ø ^P = Precision
æ^E Up ^X Down ø HELP OFF cancels this menu ø ^W = Column Width
æ^Z first Col of next Row ø WIN OFF will scroll screen ø <ESC> exits ^P/^W
æTAB/^I MOVE to Row/Column ø WIN restores last Window ø and cancels input
Project SAMPLE Worksheet 1
JAN FEB MAR QTR1
SALES > 1000.00< 1730.00 1750.00 5160.00
VPC 37.00 37.00 37.00 37.00
VARCOST 621.60 640.10 647.50 1909.20
FIXED 700.00 705.00 707.00 1512.00
TCOST 1121.60 1145.10 1154.50 3421.20
MARGIN 558.40 584.90 595.50 1738.80
ØP2201MOVE MARGINæ/æQTR1æ to the top left hand corner of the Window.
ØP0401 < < Cursor Movement > >
ØP0801TAB/^I MOVE to Row/Column
ØP1701? ü^I
ØP0401æ < < Cursor Movement > >
ØP0801æTAB/^I MOVE to Row/Column
ØP1801 Row to go to üMARGIN
NO The Row is MARGIN
Column to go to üQTR1
NO The Column is QTR1
ØP1701:
ØP0901: QTR1
ØP1001:MARGIN 738.80
ØP1101:ØP1201:ØP1301:ØP1401:ØP1501:ØP1601:ØP1801:ØP1901:ØP2201:ØP1701?
ØP2201æPlace æVARCOSTæ/æMARæ in the top left hand corner of the Window.
ØP0401 < < Cursor Movement > >
ØP0801TAB/^I MOVE to Row/Column
ØP1701? ü^I
ØP0401æ < < Cursor Movement > >
ØP0801æTAB/^I MOVE to Row/Column
ØP1801 Row to go to üVARCOST
NO The Row is VARCOST
Column to go to üMAR
NO The Column is MAR
ØP0901 MAR QTR1
VARCOST 647.50 1909.20
FIXED 707.00 1512.00
TCOST 1154.50 3421.20
MARGIN 595.50 1738.80
ØP1801:ØP1901:ØP2201:ØP2201:ØP1701?
Ø
..Screen 9
..
ØP1123This is the end of Lesson 4. Now
practice the techniques you have
learned in this Lesson in models of
your own. Experiment with the use
of cursor control in Worksheets
that will not fit onto the screen.
«eof»