10 CLS:CLEAR 500
130 PRINT "DETEND/TXT NOW RUNNING"
140 U$="   %                          %         ####                   ##,######.##-      ##,######.##-    ##,######.##        ##,######.##+"
150 U1$="PRIME DETAIL TOTAL                                             ##,######.##-      ##,######.##-    ##,######.##        ##,######.##+"
152 U2$="%                            %                                 ##,######.##-      ##,######.##-    ##,######.##        ##,######.##+"
180 DEFDBL A,T,Y
185 DIM A$(50),B(50),A(50,3)
199 GOTO 1802
200 L=0:N=2
210 GOSUB 16000 
220 GOSUB 16100
230 GOSUB 16200
240 GOSUB 16300
250 RETURN
603 STOP
1802 LPRINT "FILM EDITING"
1804 M=13: GOSUB 200
1806 DATA "EDITORS", 4501
1808 DATA "ASSISTANT EDITORS", 4502
1810 DATA "LOOPING EDITORS & ASS'TS", 4503
1812 DATA "MUSIC EFFECTS ED'RS & ASS'TS", 4504
1814 DATA "SOUND EFFECTS ED'RS ' ASS'TS", 4505
1816 DATA "DIALOGUE TRANSCRIPTION", 4506
1818 DATA "CODING", 4509
1820 DATA "PROJECTION", 4510
1822 DATA "MUSIC&EFFECTS/PURCH.&RENTALS", 4511
1824 DATA "OUTSIDE EQUIP. RENTALS", 4515
1826 DATA "FILM SHIPPING & MESSENGERS", 4516
1828 DATA "OTHER COSTS", 4585
1830 DATA "PROJECTION ROOMS-LOCATIONS", 4586
1832 DATA "STUDIO CHARGES", 4595
1834 DATA 5605.86,24602.96,126800
1836 DATA 3366.04,15125.51,71680
1838 DATA 0,0,9000
1840 DATA 0,0,19092
1842 DATA 0,0,39357
1844 DATA 0,0,1000
1846 DATA 0,0,900
1848 DATA 1210,12529,10700
1850 DATA 0,0,2000
1852 DATA 0,0,18050
1854 DATA 0,0,4000
1856 DATA 0,1441.38,1700
1858 DATA 0,1225,1400
1860 DATA 0,0,0
1862 LPRINT "MUSIC"
1864 M=10: GOSUB 200
1866 DATA "MUSICIANS", 4601
1868 DATA "COMPOSERS-LYRICISTS", 4602
1870 DATA "ARRANGERS-ORCHESTRATORS", 4603
1872 DATA "COPYISTS", 4604
1874 DATA "SINGERS", 4608
1876 DATA "OTHER LABOR", 4609
1878 DATA "MUSIC RIGHTS", 4646
1880 DATA "INSTRUMENT RENTALS", 4647
1882 DATA "CARTAGE", 4648
1884 DATA "OTHER COSTS", 4685
1886 DATA "STUDIO CHARGES", 4695
1888 DATA 0,0,44420
1890 DATA 0,0,35000
1892 DATA 0,0,20000
1894 DATA 0,0,4000
1896 DATA 0,0,0
1898 DATA 0,0,500
1900 DATA 0,0,65000
1902 DATA 0,0,800
1904 DATA 0,0,600
1906 DATA 0,0,800
1908 DATA 0,0,0
1910 LPRINT "POST PRODUCTION SOUND"
1912 M=10: GOSUB 200
1914 DATA "TRANSFER COSTS", 4703
1916 DATA "DUBBING CREW",4704
1918 DATA "SCORING CREW",4705
1920 DATA "LOOPING&SOUND EFFECTS CREWS", 4706
1922 DATA "MAGNETIC STOCK-REPRINTS",4707
1924 DATA "MAGNETIC STOCK-LOOPS&NARRATN", 4708
1926 DATA "MAGNETIC STOCK-MUSIC PRINTS", 4709
1928 DATA "MAGNETIC STOCK-DUBBED MASTER", 4710
1930 DATA "OUTSIDE RENTALS", 4717
1932 DATA "OTHER COSTS", 4785
1934 DATA "STUDIO CHARGES", 4795
1936 DATA 0,0,8000
1938 DATA 0,0,39560
1940 DATA 0,0,5670
1942 DATA 0,0,8580
1944 DATA 0,0,2500
1946 DATA 0,0,3250
1948 DATA 0,0,3500
1950 DATA 0,0,4680
1952 DATA 0,0,0
1954 DATA 0,0,500
1956 DATA 0,0,2340
1957 LET P=5: LET P$="PAGE EIGHT": GOSUB 16400
1958 LPRINT "POST PRODUCTION FILM & LABORATORY"
1960 M=13: GOSUB 200
1962 DATA "STOCK FOOTAGE",4810
1964 DATA "REVERSAL PRINTS-B&W",4814
1966 DATA "SHIPPING CHARGES-INC-REELS",4815
1968 DATA "EDITORIAL REPRINTS",4819
1970 DATA "SOUND NEGATIVE-DEVELOP",4820
1972 DATA "COLOR REVERSAL INTERNEGATIVE",4822
1974 DATA "INSERTS",4823
1976 DATA "LEADER & MISC.",4824
1978 DATA "MATTE SHOTS",4825
1980 DATA "PROTECTIVE MASTERS",4826
1982 DATA "OPTICAL MANUFACTURE",4827
1984 DATA "MISC. LABORATORY COSTS",4828
1986 DATA "NEGATIVE CUTTING",4830
1988 DATA "OTHER COSTS", 4885
1990 DATA 0,0,10000
1992 DATA 0,0,3119
1994 DATA 0,0,500
1996 DATA 0,0,1120
1998 DATA 0,0,1000
2000 DATA 0,0,12900
2002 DATA 0,0,0
2004 DATA 0,0,1250
2006 DATA 0,0,0
2008 DATA 0,0,30953
2010 DATA 0,0,10000
2012 DATA 0,0,1875
2014 DATA 0,0,5057
2016 DATA 0,0,0
2018 LPRINT "MAIN AND END TITLES"
2020 M=0: GOSUB 200
2022 DATA "MAIN AND END TITLES", 4901
2024 DATA 0,0,25000
2026 LPRINT "FIRST DOMESTIC TRAILER"
2028 M=10: GOSUB 200
2030 DATA "TRAILER CONTINUITY WRITERS", 5001
2032 DATA "TRAILER EDITING", 5002 
2034 DATA "MUSIC DEPARTMENT",5003
2036 DATA "SOUND OPERATIONS", 5004
2038 DATA "REGULAR COMPANY OPERATIONS",5005
2040 DATA "FILM-LAB. PROCESSING/B&W",5006
2042 DATA "FILM-LAB. PROCESSING/COLOR",5008
2044 DATA "PURCHASES", 5016
2046 DATA "RENTALS", 5017
2048 DATA "TITLES", 5060
2050 DATA "OTHER COSTS", 5085
2052 DATA 0,0,0
2054 DATA 0,0,0
2056 DATA 0,0,0
2058 DATA 0,0,0
2060 DATA 0,0,0
2062 DATA 0,0,0
2064 DATA 0,0,0
2066 DATA 0,0,0
2068 DATA 0,0,0
2070 DATA 0,0,0
2072 DATA 0,0,0
2076 LPRINT "POST PROD. PERIOD FRINGE BENEFITS"
2078 M=0: GOSUB 200
2080 DATA "FRINGE BENEFITS/PR TAXES", 5299
2082 DATA 3319.60,14699.53,133857
2084 GOSUB 16360: REM GOING FOR POST PRODUCTION TOTAL
2104 LPRINT "PUBLICITY"
2106 M=2: GOSUB 200
2108 DATA "PUBLICITY PAYROLL", 6501
2110 DATA "NEGATIVES, PRINTS, SUPPLIES", 6515
2112 DATA "OTHER CHARGES", 6585
2114 DATA 1050,6200,25000
2116 DATA 257.34,928.70,3000
2118 DATA 0,0,12500
2120 LPRINT "INSURANCE"
2122 M=4: GOSUB 200
2124 DATA "CAST INSURANCE", 6701
2126 DATA "NEGATIVE INSURANCE",6702
2128 DATA "ERRORS & OMISSIONS", 6703
2130 DATA "PROPERTY FLOATER", 6704
2132 DATA "OTHER INSURANCE CHARGES",6705
2134 DATA 0,0,0
2136 DATA 0,80000,80000
2138 DATA 0,35000,35000
2140 DATA 0,10000,10000
2142 DATA 0,67170,35000
2143 LET P= 7: LET P$="PAGE NINE": GOSUB 16400
2144 LPRINT "GENERAL EXPENSE"
2146 M=14: GOSUB 200
2148 DATA "TELEPHONE & TELEGRAPH",6801
2150 DATA "XEROX & MIMEO",6803
2152 DATA "CITY LICENSE", 6804
2154 DATA "SALES TAX", 6805
2156 DATA "LOCAL MEALS",6806
2158 DATA "FACILITY SALES TAX", 6808
2160 DATA "CODE SEAL", 6809
2162 DATA "EXECUTIVE ENTERTAINMENT", 6810
2164 DATA "OFFICE RENTALS", 6811
2166 DATA "OFFICE SUPPLIES",6812
2168 DATA "ACCOUNTING FEES", 6813
2170 DATA "MISC. TRAVELING/LIVING EXP.",6872
2172 DATA "OTHER COSTS",6885
2174 DATA "PREVIEW EXPENSE", 6886
2176 DATA "STUDIO CHARGES", 6895
2178 DATA 736.76,170.71,10000
2180 DATA 0,0,5000
2182 DATA 0,0,0
2184 DATA 0,0,0
2186 DATA 0,0,3800
2188 DATA 0,0,2000
2190 DATA 0,0,6000
2192 DATA 118.42,771.03,2500
2194 DATA 213.55,29.91,25000
2196 DATA 0,44.26,3000
2198 DATA 0,0,0
2200 DATA 0,0,10000
2202 DATA 2601.56,2074.29,30000
2204 DATA 0,0,6000
2206 DATA 0,0,0
2208 LPRINT "RETROACTIVE SALARIES"
2210 M=0: GOSUB 200
2212 DATA "SALARY ADJUSTMENTS",6901
2214 DATA 0,0,0
2216 LPRINT "LOCATION CASH ACCTS"
2220 M=3: GOSUB 200
2230 DATA "ADVANCES TO INDIVDIDUALS",7006
2240 DATA "IND ADV ACCOUNTED FOR",7007
2250 DATA "LOCATION BANK ACCOUNT",7008
2260 DATA "LOCATION BANK ACCT CLEAR",7009
2270 DATA 0,0,0
2272 DATA 0,0,0
2274 DATA 0,0,0
2276 DATA 0,0,0
2280 LPRINT "ALL OTHER FRINGE BENEFITS"
2282 M=0:GOSUB 200
2284 DATA "FRINGE BENEFITS P/R TAXES",7499
2286 DATA 1034,244.48,8750
2288 LET W= 3
2290 GOSUB 16360: REM GOING FOR B/L MISC COSTS
2300 GOSUB 8000: REM GOING FOR B/L TOTAL
2350 GOSUB 8100: REM GOING FOR DIRECT COST TOTAL
2400 GOSUB 8160: REM GOING FOR O/H & OTHER TOTAL
2450 GOTO 8200 : REM GOING FOR TOTAL PRODUCTION COST
2500 STOP
7200 LPRINT USING U2$; "B/L POST PRODUCTION TOTAL *", Y(0),Y(1),Y(2),Y(3)
7205 LET W = 3
7210 FOR J= LTO W
7220 Z3#(J)=Y(J)
7230 NEXT: RETURN
7300 LPRINT USING U2$; "OTHER CHARGES TOTAL *", Y(0),Y(1),Y(2),Y(3)
7310 FOR J=L TO W
7320 Z4#(J)=Y(J)
7330 NEXT: LPRINT CHR$(138): RETURN
7400 LPRINT USING U2$;"OVERHEAD & OTHER TOTAL *", Y(0),Y(1),Y(2),Y(3)
7410 FOR J=L TO W
7420 Z7#(J)=Y(J)
7430 T1(J)=0
7440 Y(J)=0
7450 NEXT: RETURN
8000 REM REQUIRES OWN GOSUB (NOT TO 16360) FROM 2300
8002 OPEN"I",1,"PRODTOT/TXT:1"
8004 IF EOF(1) THEN 8008
8006 INPUT#1,Z2#(0),Z2#(1),Z2#(2),Z2#(3)
8008 CLOSE
8010 FOR J=L TO W
8020 Z5#(J)=Z2#(J)+Z3#(J)+Z4#(J)
8030 NEXT
8040 LPRINT USING U2$; "BELOW THE LINE TOTAL **", Z5#(0),Z5#(1),Z5#(2),Z5#(3)
8045 LPRINT CHR$(138)
8050 RETURN
8100 REM REQUIRES OWN GOSUB (NOT TO 16360) FROM 2350
8102 OPEN"I",1,"ABLTOT/TXT:1"
8104 IF EOF(1) THEN 8108
8106 INPUT#1,Z1#(0),Z1#(1),Z1#(2),Z1#(3)
8108 CLOSE
8110 FOR J=L TO W
8120 Z6#(J)=Z5#(J)+Z1#(J)
8130 NEXT
8140 LPRINT USING U2$; "DIRECT COST TOTAL **", Z6#(0),Z6#(1),Z6#(2),Z6#(3)
8145 LPRINT CHR$(138)
8150 RETURN
8160 REM OVERHEAD & OTHER COSTS FROM 2400
8162 LPRINT "OVERHEAD & OTHER COSTS"
8164 M=1: GOSUB 200
8166 DATA "CONTRACTUAL OVERHEAD",8000
8168 DATA "OTHER COSTS NO OVERHEAD",8200
8170 DATA 0,0,0
8171 DATA 0,0,0
8172 GOSUB 16360
8174 RETURN
8200 REM REQUIRES OWN GOTO FROM 2450
8210 FOR J=L TO W
8220 ZZ#(J)=Z6#(J)+Z7#(J)
8230 NEXT
8240 LPRINT USING U2$; "TOTAL PRODUCTION COST ***", ZZ#(0),ZZ#(1),ZZ#(2),ZZ#(3)
8250 END
15999 STOP
16000 REM READ DETAIL TITLE & ACCOUNT #
16010 FOR I=L TO M
16020 READ A$(I),B(I)
16030 NEXT
16040 RETURN
16100 REM READ DATA FOR THIS WEEK, LAST WEEK, BUDGET
16110 FOR I = L TO M
16120 FOR J = L TO N
16130 READ A (I,J)
16140 T(J)=T(J)+A(I,J)
16145 T1(J)= T1(J)+A(I,J)
16150 NEXT J,I
16160 RETURN
16200 REM DETAIL PRINT ROUTINE
16210 FOR I=L TO M
16220 LPRINT USING U$;A$(I),B(I),A(I,O),A(I,O)+A(I,1),A(I,2),A(I,2)-(A(I,O)+A(I,1))
16230 NEXT
16240 RETURN
16300 REM PRINT DETAIL TOTAL
16320 LPRINT USING U1$; T(O), T(O)+T(1),T(2),T(2)-(T(O)+T(1))
16325 T(0)=0: T(1)=0: T(2)=0
16330 LPRINT CHR$(138)
16350 RETURN
16360 Y(0)=T1(0):Y(1)=T1(0)+T1(1):Y(2)=T1(2):Y(3)=T1(2)-(T1(0)+T1(1))
16365 C=C+1
16370 ON C GOSUB 7200,7300,7400
16372 FOR J=L TO N
16376 T1(J) = 0
16378 Y(J) = 0
16380 T(J) = 0
16390 NEXT: LPRINT CHR$(138): RETURN
16400 FOR I=L TO P
16410 LPRINT CHR$(138)
16420 NEXT
16430 LPRINT ,,,,P$
16440 LPRINT CHR$(138)
16445 LPRINT "         ACCOUNT TITLE             DETAIL ACCOUNT              CURRENT WEEK            TO DATE            BUDGET        OVER+/UNDER-"
16450 RETURN
PRINT CHR$(138): RETURN
16400 FOR I=L TO P
16410 LPRINT CHR$(138)
16420 NEXT
16430 LPRINT ,,,,P$
16440 LPRINT CHR$(138)
16445 LPRINT "         ACCOUNT TITLE             DETAIL ACCOUNT              CURRENT WEEK            TO DATE            BUDG