DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦76b6c3772⟧ TextFile

    Length: 9216 (0x2400)
    Types: TextFile
    Names: »LESSON3.TXT«

Derivation

└─⟦dc6c79650⟧ Bits:30004299 FINAR Tutor
    └─ ⟦this⟧ »LESSON3.TXT« 

TextFile

..Lesson 3 - Calculation Section
..Screen 1
..
20 / 4 + 12   = ü17
NOThat should have been easy enough!

100 + 8 / 9   = ü12
NODid you do the arithmetic LEFT to RIGHT ?

5% of 200     = ü10
NOSurely not that difficult ?

5 + 5 ^ 2     = ü100
NOAdd first, then square.

-15 * 3 + 20  = ü-25
NOHave you got the sign correct ?
Ø
..Screen 2
..
ØP0520
æ+--------+--------+--------+--------+
æø        ø        ø        ø        ø
æ+--------+--------+--------+--------+
æø        ø        ø        ø        ø
æ+--------+--------+--------+--------+
æø        ø        ø        ø        ø
æ+--------+--------+--------+--------+
æø        ø        ø        ø        ø
æ+--------+--------+--------+--------+
æø        ø        ø        ø        ø
æ+--------+--------+--------+--------+
ØP0425æJan      Feb      Mar     Qtr1
ØP0710æSales
ØP0900æOthinc
ØP1100æTotrev
ØP1300æTotexp
ØP1500æProfit
ØP1801
æThe Name æSALESæ describes a æRowæ containing æ4æ elements in the Worksheet.
ØP0710Sales     æøæ      X æøæ      X æøæ      X æøæ      X
ØP2201ü
ØP2201:ØP1901:ØP0710æSales     ø        ø        ø        ø       
ØP1801
æThe Name æQTR1æ describes a æColumnæ containing æ5æ elements in the Worksheet.
ØP0451Qtr1
ØP0754X
ØP0900X
ØP1100X
ØP1300X
ØP1500X
Ø
..Screen 3
..
              Wk1     Wk2     Wk3     Wk4

Units      100.00  110.00  105.00  120.00
Sellprice 
Costprice
Sales
Costs
Margin
!1

The values for Units have been supplied during Auto-Input.

Here are the  Calculation Stored Instructions :
!1
ØP1701
5000 Sellprice = 1.4 1.4 1.6 1.6     ; Data generation Instruction.
5010 Costprice = 75% of Sellprice    ; Instruction using a CONSTANT.
5020 Sales = Units * Sellprice       ; Instructions
5030 Costs = Units * Costprice       ; using only
5040 Margin = Sales - Costs          ; Row Names.
ØH
..Screen 4
..
ØP1401:ØP0301
æ              Wk1     Wk2     Wk3     Wk4

æUnits      100.00  110.00  105.00  120.00
Sellprice    1.40    1.40    1.60    1.60
æCostprice
æSales
æCosts
æMargin
!1ØP1701
5000 Sellprice = 1.4 1.4 1.6 1.6æ     ; Data generation Instruction.
æ5010 Costprice = 75% of Sellprice    ; Instruction using a CONSTANT.
æ5020 Sales = Units * Sellprice       ; Instructions
æ5030 Costs = Units * Costprice       ; using only
æ5040 Margin = Sales - Costs          ; Row Names.
ØH
..Screen 5
..
æ              Wk1     Wk2     Wk3     Wk4

æUnits      100.00  110.00  105.00  120.00
æSellprice    1.40    1.40    1.60    1.60
Costprice    1.05    1.05    1.20    1.20
æSales
æCosts
æMargin
!1ØP1701
æ5000 Sellprice = 1.5 1.5 1.6 1.6     ; Data generation Instruction.
5010 Costprice = 75% of Sellpriceæ    ; Instruction using a CONSTANT.
æ5020 Sales = Units * Sellprice       ; Instructions
æ5030 Costs = Units * Costprice       ; using only
æ5040 Margin = Sales - Costs          ; Row Names.
ØH
..Screen 6
..
æ              Wk1     Wk2     Wk3     Wk4

æUnits      100.00  110.00  105.00  120.00
æSellprice    1.40    1.40    1.60    1.60
æCostprice    1.05    1.05    1.20    1.20
æSales
æCosts
æMargin
!1ØP1701
æ5000 Sellprice = 1.5 1.5 1.6 1.6     ; Data generation Instruction.
æ5010 Costprice = 75% of Sellprice    ; Instruction using a CONSTANT.
5020 Sales = Units * Sellpriceæ       ; Instructions
æ5030 Costs = Units * Costprice       ; using only
æ5040 Margin = Sales - Costs          ; Row Names.
ØP0901Sales      140.00  154.00  168.00  192.00
ØP2001æ5020 Sales = Units * Sellprice       ; Instructions
ØP1401ü
ØP1401:ØP0901æSales      140.00  154.00  168.00  192.00
ØP21015030 Costs = Units * Costpriceæ       ; using only
ØP1001Costs      105.00  115.50  126.00  144.00
ØP1401ü
ØP1401:ØP2101æ5030 Costs = Units * Costprice       ; using only
ØP1001æCosts      105.00  115.50  126.00  144.00
ØP22015040 Margin = Sales - Costsæ          ; Row Names.
ØP1101Margin      25.00   38.50   42.00   48.00
ØP1401ü
ØP1401:ØP2201æ5040 Margin = Sales - Costs          ; Row Names.
ØP1101æMargin      25.00   38.50   42.00   48.00
Ø
..Screen 7
..
          Mon     Tue     Wed     Thu     Fri    Week

Hours  125.00  130.00  140.00  120.00  125.00
Rate     3.50    3.75    3.60    3.60    3.80
Cost

!1
Here are the Calculation Stored Instructions :
!1ØP1401
5000 Cost = Hours * Rate              ; a Row Calculation.
5010 Week = sum of Monday to Friday   ; a Column Calculation.
!1
Type CALCULATE to perform the calculations.

? üCalculateøCaløCø
NOCALCULATE
!2Calculating
!1
ØH
..Screen 8
..
ØP1801:ØP2001:ØP2101:ØP0301
æ          Mon     Tue     Wed     Thu     Fri    Week

æHours  125.00  130.00  140.00  120.00  125.00
æRate     3.50    3.75    3.60    3.60    3.80
Cost   437.50  487.50  504.00  432.00  475.00    0.00
ØP1401
5000 Cost = Hours * Rate              ; a Row Calculation.
æ5010 Week = sum of Monday to Friday   ; a Column Calculation.

That's the Row Calculation - note the blanks still in WEEK.
ØH
..Screen 9
..
ØP1801:ØP2001:ØP0301
æ          Mon     Tue     Wed     Thu     Fri    Week

æHours  125.00  130.00  140.00  120.00  125.00æ  640.00
æRate     3.50    3.75    3.60    3.60    3.80æ   18.25 **
æCost   437.50  487.50  504.00  432.00  475.00æ 2336.00
ØP1401
æ5000 Cost = Hours * Rate              ; a Row Calculation.
5010 Week = sum of Monday to Friday   ; a Column Calculation.

That's the Column calculation, with the incorrect value marked **  
Ø
..Screen 10
..
Copy the Instructions to produce the correct result for Rate 
in Column Week :
!2
? ü@01##505ConsiderøConå Week
? ü@02##506`Rate=Cost/Hours

Now LIST the Instructions, and CALCULATE again :

? üListøLisøLø
NOLIST.
  1000 Columns Mon Tue Wed Thu Fri Week
  2000 Rows Hours Rate Cost
  5000 Cost = Rate * Hours
  5010 Week = sum of Mon to Fri
  @@01  
  @@02  
? üCalculateøCaløCø
NONow CALCULATE.
!1
ØP2201!1Checking Calculation Section
!1ØP22325000
!1ØP22005010
!1ØP2200@#01
!1ØP2200@#02
!2ØP2201:!2Calculating
Ø
..Screen 11
..
æ          Mon     Tue     Wed     Thu     Fri    Week

æHours  125.00  130.00  140.00  120.00  125.00  640.00
æRate     3.50    3.75    3.60    3.60    3.80    æ3.65
æCost   437.50  487.50  504.00  432.00  475.00 2336.00

æThe value for æRATEæ in the Column æWEEKæ is now correct.
ØH
..Screen 12
..
æ          Mon     Tue     Wed     Thu     Fri    Week

æHours  125.00  130.00  140.00  120.00  125.00  640.00
æRate     3.50    3.75    3.60    3.60    3.80      æNA
æCost   437.50  487.50  504.00  432.00  475.00 2336.00

æThe value for æRATEæ in the Column æWEEKæ has now been set to æNAæ
æas a result of the Instructions :

  5050 Consider Week
  5060 Rate = NA
Ø
..Screen 13
..
ØP0720æ+--------+--------+--------+--------+
ØP0920æ+--------+--------+--------+--------+
ØP1120æ+--------+--------+--------+--------+
ØP1320æ+--------+--------+--------+--------+
ØP0624æCol1     Col2     Col3     Col4
ØP0810æRow1      ø      - ø      - ø      - ø      - ø

æRow2      ø      - ø      - ø      - ø      - ø

æRow3      ø      - ø      - ø      - ø      - ø
!2ØP17105000 Consider all columns   æ Subsequent Row Instructions will apply
                            æ to æALL COLUMNSæ.

5020 Row1 = 1 2 4 5         æ Set æROW1æ to these values.
!2ØP0624Col1     Col2     Col3     Col4
ØP0810Row1      æøæ   1.00 æøæ   2.00 æøæ   4.00 æøæ   5.00
ØP1510ü
ØP1501:ØP1701:ØP1801:ØP1901:ØP2001:ØP0624æCol1     Col2     Col3     Col4
ØP0810æRow1      ø   1.00 ø   2.00 ø   4.00 ø   5.00
ØP17105100 Consider Col1          æ Now restrict subsequent Row Instructions
                            æ to Columns æCOL1æ only.

5120 Row2 = Row1 * 2        æ Only 1 item - æROW2æ in æCOL1æ.
!2ØP0624Col1
ØP1010Row2      æøæ   2.00
ØP1510ü
ØP1501:ØP1701:ØP1801:ØP1901:ØP2001:
ØP0624æCol1
ØP1010æRow2      ø   2.00
ØP17105200 Consider Col2 to Col3  æ The middle two Columns
5220 Row3 = 3 8             æ Two values for æROW3æ.
!2ØP0633Col2     Col3
ØP1210Row3
ØP12333.00 æøæ   8.00
ØP1510ü
ØP1501:ØP1701:ØP1801:
ØP0633æCol2     Col3
ØP1210æRow3
ØP1233æ3.00 ø   8.00
ØH
..Screen 14
..
ØP0720æ+--------+--------+--------+--------+
ØP0920æ+--------+--------+--------+--------+
ØP1120æ+--------+--------+--------+--------+
ØP1320æ+--------+--------+--------+--------+
ØP0624æCol1     Col2     Col3     Col4
ØP0810æRow1      ø   1.00 ø   2.00 ø   4.00 ø   5.00 ø

æRow2      ø   2.00 ø      - ø      - ø      - ø

æRow3      ø      - ø   3.00 ø   8.00 ø      - ø
!2ØP17106000 Consider Row1
6020 Col4 = sum of Col1 to Col3
ØP08517.00
ØP1510ü
ØP1501:ØP1701:ØP1801:ØP0851æ7.00
!2ØP17106100 Consider Row2
6120 Col2 to Col3 = 0 0
!1ØP10330.00 æøæ   0.00
ØP1510ü
ØP1501:ØP1701:ØP1801:ØP1033æ0.00 ø   0.00
!2ØP17106200 Consider Row3
6220 Col1 = Col2 * Col3
ØP122324.00
ØP1510ü
ØP1501:ØP1701:ØP1801:ØP1223æ24.00
!2ØP17106300 Consider Row2 to Row3
6320 Col4 = Col1 + Col2
!1ØP10512.00
ØP125027.00
ØP1510ü
ØP1501:ØP1701:ØP1801:ØP1051æ2.00
ØP1250æ27.00
Ø
..Screen 15
..
ØP1123Tha▶f4◀  i▶f3◀ th▶e5◀ en▶e4◀  o▶e6◀  Lesso▶ee◀ 3▶ae◀  Now
use  FINAR  to create some models of
             your  own.

«eof»