HEADER
002CARD TYPE #1 (CONSTANT):0:1
004REGION 05 (CONSTANT):0:05
006CARD TYPE #2 (CONSTANT):0:2
008CARD TYPE #3 (CONSTANT):0:3
010 :0:@RUN,J W51C99,1105206553R1,REGION05,1,500/500
012 :0:@SYM PRINT$,,FCR017
013 :0:@USER*JOB.IDENT $$GIVE$TO,$$CLARA,$$FISCAL
014 :0:@DELETE,C ASRP1.
016 :0:@ERS
018 :0:@ASG,UP ASRP1.
020 :0:@BRKPT PRINT$/ASRP1
022 :0:@ASG,A ASR*RECEIPTS.
024 :0:@TASG,T XA,200
026 :0:@TASG,T TRANS-IN-SRT,200
028 :0:@DELETE,C 
030 :0:-01.
032 :0:@ERS
034 :0:@ERS
036 :0:@ASG,UP 
038 :0:@USE REG-COLL-MST.,
040 :0:@BRKPT PUNCH$/
042 :0:@XQT ASR*RECEIPTS.ASR01-REGEDT
044 :0:@ADD,P ASR*RECEIPTS.NF-TABLE
046 :0:@EOF
048 :0:05
050 :0:@EOF
052 :0:@BRKPT PUNCH$
054 :0:@BRKPT PRINT$
056 :0:@FREE ASRP1.
058 :0:@SYM,U ASRP1.,,FCR017
060 :0:@SAVE REGION05*
062 :0:-01.
064 :0:RECEIPTS FY
066 :0:-
068 :0:@FIN
070 :0:@@
072 :0:*
074 :0:,
076 :0:-QTR
DATA
080ENTER QUARTER (1234):+01:14
082ENTER FISCAL YEAR:+2:
084ENTER CALANDAR YEAR:+2:
086ENTER MMMDD ENDING QUARTER (EXAMPLE DEC31):-5:
088ENTER A-ACTUAL E-ESTIMATED:-1:AE
090ENTER (RETURN):+1:
091ENTER ACT-ACTUAL EST-ESTIMATE:-3:ACTEST
092NF/NG ID NUMBER:Z04:
094NF - 1; NG - 2:+01:12
096RECEIPT CLASS 1, TIMBER      :Z11:
098RECEIPT CLASS 2, GRAZING-EAST:Z11:
100RECEIPT CLASS 3, LAND USE    :Z11:
102RECEIPT CLASS 4, RECREATION  :Z11:
104RECEIPT CLASS 5, POWER       :Z11:
106RECEIPT CLASS 6, MINERALS    :Z11:
108NF/NG ID NUMBER:Z04:
110NF - 1;NG - 2:+1:12
112RECEIPT CLASS 7, ADM & USER FEES:Z11:
114RECEIPT CLASS 8, GRAZING-WEST   :Z11:
116TOTAL NFF                       :Z11:
118KV RECEIPTS                     :Z11:
120TIMBER PURCHASER ROAD CREDITS   :Z11:
122GRAND TOTAL NF OR NG            :Z11:
124NF/NG ID NUMBER:Z04:
126NF - 1; NG - 2:+1:12
128OREGON AND CALIFORNIA GRANT:Z11:
130ENTER SAVE DATE (YYMMDD):+06:
131ENTER QUARTER (1234):+01:14
132ENTER (RETURN):+01:
133ENTER FISCAL YEAR:+2:
134ENTER ACT-ACTUAL, EST-ESTIMATE:-3:ACTEST
OUTPUT
2,10,1,90,50
2,12,1,90,40
2,13,1,90,50
2,14,1,90,40
2,16,1,90,40
2,18,1,90,40
2,20,1,90,40
2,22,1,90,40
2,24,1,90,40
2,26,1,90,40
5,28,1,91,11,76,14,80,18,30,19
2,32,1,90,40
2,34,1,90,40
5,36,1,91,9,76,12,80,16,30,17
5,38,1,91,20,76,23,80,27,30,28
5,40,1,91,15,76,18,80,22,30,23
2,42,1,90,50
2,44,1,90,50
2,46,1,90,15
9,72,1,82,2,84,4,86,6,84,11,88,13,80,14,82,15,4,22
10,2,1,4,2,92,4,94,8,96,9,98,20,100,31,102,42,104,53,106,64
10,6,1,4,2,108,4,110,8,112,9,114,20,116,31,118,42,120,53,122,64
5,8,1,4,2,124,4,126,8,128,9
2,50,1,132,10
2,52,1,132,20
2,54,1,132,20
2,56,1,132,20
2,58,1,132,40
7,60,1,134,16,76,19,131,23,62,24,74,28,130,29
5,134,1,64,5,133,17,66,19,131,20
2,68,1,132,10
2,70,1,132,10
TYPE
1 8,92,94,96,98,100,102,104,106
2 8,108,110,112,114,116,118,120,122
3 3,124,126,128
H 7,80,82,84,86,88,90,91
T 5,131,133,130,132,134
END