H
F* PROBLEM: CASHMAN 7-2
FITEMCDS IP F 80 DISK DAT702
F KASCII
FSCHEDUL O F 132 OF PRINTERSYSLPT
IITEMCDS AA 01
I 01 05 ITEM L1
I 06 20 DESCR
I 21 260DATE
I 21 240MONTH
I 25 260YEAR
I 27 332COST
I 34 350LIFE
C COST DIV LIFE DEVAL 72
C MOVE COST YEVAL 72
C MOVELMONTH YEDATE 60
C MOVE LIFE ESTLFE 20
C LOOP TAG
C 1 ADD YEAR YEAR
C MOVE YEAR YEDATE
C YEVAL SUB DEVAL YEVAL
C EXCPT
C 20 SETOF 2075
C OF SETON 20
C SETOF L1
C LIFE SUB 1 LIFE
C LIFE COMP 0 10
C N10 GOTO LOOP
C 10 SETON 7520
OSCHEDUL H 201 1P
O OR OF
O OR 75
O UDATE Y 08
O 50 'SCHEDULE OF'
O 64 'DEPRECIATION'
O 96 'PAGE'
O PAGE Z 101
O H 1 1P
O OR OF
O OR 75
O 05 'ITEM'
O 22 'ITEM'
O 36 'DATE'
O 50 'ORIGINAL'
O 62 'ESTIMATED'
O 73 'ANNUAL'
O 87 'YEAR-END'
O 101 'DEPRECIATED'
O H 2 1P
O OR OF
O OR 75
O 06 'NUMBER'
O 25 'DESCRIPTION'
O 38 'ACQUIRED'
O 48 'COST'
O 59 'LIFE'
O 76 'DEPRECIATION'
O 85 'DATE'
O 98 'VALUE'
O OF 120 'OF'
O 20 110 '20'
O 75 130 '75'
O EF 1 01
O 20 110 '20'
O OF 120 'OF'
O 75 130 '75'
O L1 ITEM 06
O L1 DESCR 27
O L1 DATE Y 38
O L1 COST 1 50
O L1 ESTLFE 58
O L1 DEVAL 1 75
O OF ITEM 06
O OF DESCR 27
O OF DATE Y 38
O OF COST 1 50
O OF ESTLFE 58
O OF DEVAL 1 75
O YEDATEY 87
O YEVAL 1 100
O* END OF INSTRUCTIONS