10 CLS:CLEAR 500
20 PRINT "DETMID 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 500
200 L=0:N=2
210 GOSUB 16000 
220 GOSUB 16100
230 GOSUB 16200
240 GOSUB 16300
250 RETURN
500 LPRINT "PRODUCTION STAFF"
502 M=6: GOSUB 200
504 DATA "UNIT PRODUCTION MANAGER", 2001
506 DATA "FIRST ASSISTANT DIRECTOR",2002
508 DATA "SECOND ASSISTANT DIRECTORS", 2003
510 DATA "SCRIPT SUPERVISORS", 2004
512 DATA "TECHNICAL ADVISORS", 2006
514 DATA "PRODUCTION SECRETARIES", 2007
516 DATA "OTHER COSTS", 2085
518 DATA 1646.37,46250.16,45624
520 DATA 1990.65,27732.98,32294
522 DATA 1649.38,29088.30,27337
524 DATA 1045,17971.50,22650
526 DATA 0,4225,25000
528 DATA 865.38,13456.47,12226
530 DATA 2825,18337.50,26500
532 LPRINT "EXTRA TALENT"
534 M=7: GOSUB 200
536 DATA "EXTRAS & STANDINS", 2101
538 DATA "DANCERS, SKATERS, ETC.", 2102
540 DATA "SIDELINE MUSICIANS", 2103
542 DATA "TEACHERS, WELFARE WORKERS", 2104
544 DATA "LOCATION HIRE EXTRAS", 2105
546 DATA "INTERVIEWS & CARFARES", 2115
548 DATA "ATMOSPHERE CARS", 2116
550 DATA "OTHER COSTS", 2185
552 DATA 42922,6150.54,17347
554 DATA 0,0,0
556 DATA 0,0,5000
558 DATA 0,1917.04,1000
560 DATA 0,454804.41,172576
562 DATA 0,0,5000
564 DATA 0,0,1000
566 DATA 0,0,5000
568 LPRINT "SET DESIGN"
570 M=6: GOSUB 200
572 DATA "ART DIRECTORS & ASS'TS", 2201
574 DATA "DRAFTSMEN", 2202
576 DATA "MODEL MAKERS", 2203
578 DATA "SKETCH ARTISTS", 2204
580 DATA "SET ESTIMATORS", 2205
582 DATA "PURCHASES", 2216
584 DATA "OTHER COSTS", 2285
586 DATA 15000,33766.05,38000
588 DATA 720,7200,20750
590 DATA 0,260,6000
592 DATA 1680,8880,24000
594 DATA 0,0,0
596 DATA 84.09,1151.41,3000
598 DATA 106.12,103.81,1000
600 LPRINT "SET CONSTRUCTION"
602 M=5: GOSUB 200
604 DATA "CONSTRUCTION LABOR", 2301
606 DATA "CONSTRUCTION COORDINATOR", 2302
608 DATA "CONSTRUCTION PURCHASES", 2316
610 DATA "CONSTRUCTION OUTSIDE RENTALS", 2317
612 DATA "OTHER COSTS", 2385
614 DATA "STUDIO CHARGES", 2395
616 DATA 11281.95,96271.15,195408
618 DATA 1250,13000,22800
620 DATA 10512.26,70568.16,60000
622 DATA 0,0,5137
624 DATA 0,0,0
626 DATA 306.25,8940.04,15405
628 LPRINT "SET STRIKING"
630 M=3: GOSUB 200
632 DATA "STRIKING-LABOR", 2401
634 DATA "STRIKING-MATERIALS", 2416
636 DATA "OTHER COSTS",2485
638 DATA "STUDIO CHARGES", 2495
640 DATA 0,0,30753
642 DATA 0,0,5723
644 DATA 0,0,0
646 DATA 0,0,34500
648 LET P=5
650 LET P$= "PAGE THREE"
652 GOSUB 16400
656 LPRINT "SET OPERATIONS"
658 M=12: GOSUB 200
660 DATA "FIRST COMPANY GRIP", 2501
662 DATA "SECOND COMPANY GRIP", 2502
664 DATA "OTHER COMPANY GRIPS", 2503
666 DATA "PROP SHOP, PLUMBERS", 2504
668 DATA "GREENSMEN", 2505
670 DATA "STANDBY PAINTER", 2506
672 DATA "CRAFTSERVICEMEN", 2508
674 DATA "MISCELLANEOUS LABOR", 2509
676 DATA "PURCHASES", 2516
678 DATA "OUTSIDE RENTALS", 2517
680 DATA "OTHER COSTS", 2585
682 DATA "FIRST AID-LABOR", 2586
684 DATA "STUDIO CHARGES", 2595
686 DATA 1135,21586,30450
688 DATA 938.13,16265.41,23026
690 DATA 3583.76,70728.25,63806
692 DATA 0,0,1000
694 DATA 0,0,0
696 DATA 0,3861.64,16088
698 DATA 1442.10,11046.75,13822
700 DATA 0,23.24,14000
702 DATA 1822.56,27792.17,11000
704 DATA 100,12827.39,9045
706 DATA 0,0,2000
708 DATA 774.58,3836.42,10540
710 DATA 3071.20,12380.03,8500
712 LPRINT "SPECIAL EFFECTS"
714 M=8: GOSUB 200
716 DATA "FOREMEN & OPERATING LABOR", 2601
718 DATA "MANUFACTURING-LABOR", 2602
720 DATA "RIGGING-LABOR", 2603
722 DATA "STRIKING-LABOR", 2604
724 DATA "OTHER DEPT. LABOR", 2609
726 DATA "PURCHASES", 2616
728 DATA "OUTSIDE RENTALS", 2617
730 DATA "OTHER COSTS", 2685
732 DATA "STUDIO CHARGES", 2695
734 DATA 3480.80,39544.39,45762
736 DATA 0,0,2000
738 DATA 0,0,0
740 DATA 0,0,0
742 DATA 0,0,2000
744 DATA 5673.19,6733.54,6000
746 DATA 0,8548,16300
748 DATA 0,0,0
750 DATA 0,0,2000
752 LPRINT "SET DRESSING"
754 M=10: GOSUB 200
756 DATA "SET DECORATOR", 2701
758 DATA "SWING GANG", 2702
760 DATA "DRAPERY/CARPET'G-LAB/MAT.", 2703
762 DATA "FIXTURES-LAB/MAT.", 2704
764 DATA "MANUFACTURING LABOR", 2711
766 DATA "MANUFACTURING-MATERIAL", 2712
768 DATA "PURCHASES", 2716
770 DATA "OUTSIDE RENTALS", 2717
772 DATA "LOSS & DAMAGES", 2748
774 DATA "OTHER COSTS", 2785
776 DATA "STUDIO CHARGES", 2795
778 DATA 1400,20540,29760
780 DATA 2174.17,34714.26,45372
782 DATA 0,0,19000
784 DATA 0,0,3000
786 DATA 0,0,5000
788 DATA 0,0,0
790 DATA 444.46,14643.93,30000
792 DATA 1627,9051.57,25000
794 DATA 0,0,1000
796 DATA 0,0,0
798 DATA 521.34,7085.07,3500
800 LPRINT "PROPERTY"
802 M=11: GOSUB 200
804 DATA "PROPERTY MASTER", 2801
806 DATA "OTHER PROP. LABOR", 2802
808 DATA "ANIMAL HANDLERS", 2804
810 DATA "MANUFACTURING LABOR", 2811
812 DATA "MANUFACTURING MATERIAL", 2812
814 DATA "PURCHASES", 2816
816 DATA "OUTSIDE RENTALS", 2817
818 DATA "ANIMALS", 2837
820 DATA "PICTURE VEHICLES", 2841
822 DATA "LOSS & DAMAGES", 2848
824 DATA "OTHER COSTS", 2885
826 DATA "STUDIO CHARGES", 2895
828 DATA 1130,21431.90,29940
830 DATA 1450,30227.06,41509
832 DATA 0,0,0
834 DATA 0,0,8500
836 DATA 0,0,0
838 DATA 3803.63,27940.07,6000
840 DATA 272.32,60475.25,131900
842 DATA 0,0,0
844 DATA 0,0,5000
846 DATA 0,0,1000
848 DATA 0,207.05,1000
850 DATA 0,0,0
851 LET P=5: LET P$="PAGE FOUR": GOSUB 16400
852 LPRINT "MEN'S WARDROBE"
854 M=10: GOSUB 200
856 DATA "OPERATING LABOR", 2901
858 DATA "MANUFACTURING-LABOR", 2911
860 DATA "MANUFACTURING-MATERIALS", 2912
862 DATA "PURCHASES", 2916
864 DATA "OUTSIDE RENTALS", 2917
866 DATA "ALTERATIONS/REPAIRS", 2921
868 DATA "OTHER DEPTAL. CHARGES", 2934
870 DATA "CLEANING & DYEING", 2946
872 DATA "LOSS & DAMAGES", 2948
874 DATA "OTHER COSTS", 2985
876 DATA "STUDIO CHARGES", 2995
878 DATA 1523.86,26159.16,20520
880 DATA 431.03,477.10,2000
882 DATA 0,0,1000
884 DATA 0,11254.60,30000
886 DATA 150,1208.90,10000
888 DATA 0,0,3000
890 DATA 0,0,0
892 DATA 0,2719,7500
894 DATA 0,0,500
896 DATA 0,0,0
898 DATA 0,0,0
900 LPRINT "WOMEN'S WARDROBE"
902 M=11: GOSUB 200
904 DATA "OPERATING LABOR", 3001
906 DATA "DESIGNER & ASSTS.", 3002
908 DATA "MANUFACTURING-LABOR", 3011
910 DATA "MANUFACTURING-MATERIALS", 3012
912 DATA "PURCHASES", 3016
914 DATA "OUTSIDE RENTALS", 3017
916 DATA "ALTERATIONS & REPAIRS", 3021
918 DATA "OTHER DEPTAL. CHARGES", 3034
920 DATA "CLEANING & DYEING", 3046
922 DATA "LOSS & DAMAGES", 3048
924 DATA "OTHER COSTS", 3085
926 DATA "STUDIO CHARGES", 3095
928 DATA 1657.45,31884.28,38967
930 DATA 0,0,16500
932 DATA 0,0,3000
934 DATA 0,0,1000
936 DATA 0,26598,42000
938 DATA 200,1465.86,12000
940 DATA 0,30,7500
942 DATA 0,0,0
944 DATA 0,3191.55,10000
946 DATA 0,0,1000
948 DATA 0,0,0
950 DATA 0,0,0
952 LPRINT "MAKEUP & HAIRDRESSING"
954 M=6: GOSUB 200
956 DATA "MAKEUP ARTISTS",3101
958 DATA "HAIRDRESSERS",3102
960 DATA "BODY MAKEUP",3103
962 DATA "PURCHASES",3116
964 DATA "OUTSIDE RENTALS", 3117
966 DATA "OTHER COSTS", 3185
968 DATA "STUDIO CHARGES", 3195
970 DATA 1285.71,21522.41,32415
972 DATA 0,23712.07,24942
974 DATA 547,9238.84,3120
976 DATA 663.51,511.22,2000
978 DATA 525,1972.52,5750
980 DATA 0,0,0
982 DATA 0,0,0
984 LPRINT "LIGHTING"
986 M=9: GOSUB 200
988 DATA "RIGGING", 3201
990 DATA "STRIKING", 3202
992 DATA "GAFFER", 3203
994 DATA "BEST BOY", 3204
996 DATA "OPERATING LABOR", 3205
998 DATA "BURNOUTS-CARBONS-GELATINS",3209
1000 DATA "PURCHASES", 3216
1002 DATA "OUTSIDE EQUIP. RENTALS", 3217
1004 DATA "OTHER COSTS", 3285
1006 DATA "STUDIO CHARGES", 3295
1008 DATA 4544.09,4073.93,11000
1010 DATA 0,0,3000
1012 DATA 1135,23570.44,29610
1014 DATA 966.25,18385.50,22312
1016 DATA 3205,67903,78032
1018 DATA 0,13422.82,15200
1020 DATA 0,9151.73,10000
1022 DATA 3133.06,22844.96,31400
1024 DATA 0,0,0
1026 DATA 0,1515.41,31760
1027 LET P=10: LETP$="PAGE FIVE":GOSUB 16400
1028 LPRINT "CAMERA"
1030 M=8: GOSUB 200
1032 DATA "FIRST CAMERAMAN", 3301
1034 DATA "OPERATORS", 3302
1036 DATA "ASSISTANTS", 3303
1038 DATA "LOADERS, MACHINISTS", 3304
1040 DATA "STILLMAN", 3305
1042 DATA "PURCHASES", 3316
1044 DATA "OUTSIDE EQUIP. RENTALS", 3317
1046 DATA "OTHER COSTS", 3385
1048 DATA "STUDIO CHARGES", 3395
1050 DATA 1240,51250,132000
1052 DATA 3063.42,44117.66,55192
1054 DATA 1825.06,39530.56,88476
1056 DATA 1458.27,25881.76,4490
1058 DATA 1139.91,19137.40,24645
1060 DATA 0,3433.12,5000
1062 DATA 1625,109934.17,310555
1064 DATA 0,0,0
1066 DATA 96.02,684.23,2000
1068 LPRINT "PRODUCTION SOUND"
1070 M=5: GOSUB 200
1072 DATA "RECORDING CREW", 3401
1074 DATA "TRANSFER LABOR COST", 3410
1076 DATA "PURCHASES", 3416
1078 DATA "OUTSIDE EQUIP. RENTALS", 3417
1080 DATA "OTHER COSTS", 3485
1082 DATA "STUDIO CHARGES", 3495
1084 DATA 2951.31,52398.57,70695
1086 DATA 0,0,5300
1088 DATA 2512.81,25732.67,15343
1090 DATA 0,0,0
1092 DATA 0,87.10,2820
1094 DATA 217.51,12430.98,14675
1096 LPRINT "TRANSPORTATION"
1098 M=7: GOSUB 200
1100 DATA "STUDIO DRIVERS", 3501
1102 DATA "LOCAL HIRE DRIVERS", 3502
1104 DATA "LOCAL OUTSIDE EQUIP. RENTAL", 3542
1106 DATA "EQUIP. RENTALS/DISTANT LOC'N", 3543
1108 DATA "GAS/OIL/MILEAGE", 3544
1110 DATA "REPAIRS & MAINT./STUDIO EQUIP.", 3545
1112 DATA "OTHER COSTS", 3585
1114 DATA "STUDIO EQUIP. CHARGES", 3595
1116 DATA 23348.84,263362.37,369892
1118 DATA 0,94282.88,10931
1120 DATA 8619.10,54661.88,187670
1122 DATA 0,109821.48,8225
1124 DATA 8828.66,31997.84,55500
1126 DATA 0,5810.48,2000
1128 DATA 0,2168.84,5000
1130 DATA 805.76,1370.45,2000
1132 LPRINT "LOCATION"
1134 M=16: GOSUB 200
1136 DATA "TRANSPORTATION FARES", 3601
1138 DATA "SITE RENTALS/FEES/PERMITS", 3602
1140 DATA "LODGING", 3603
1142 DATA "MEALS", 3604
1144 DATA "SURVEY COSTS", 3605
1146 DATA "SHIPPING & FORWARDING cOSTS", 3606
1148 DATA "FIRST AID/MEDICAL SERVICE", 3607
1150 DATA "OFFICE/EQUIP RENT/SUPPLIES", 3608
1152 DATA "TELEPHONE & TELEGRAPH", 3609
1154 DATA "COURTESY PAYMENTS", 3610
1156 DATA "CUSTOM FEES/TAXES/ETC.", 3611
1158 DATA "STUDIO EMPLOYEES", 3628
1160 DATA "MISC. LOCAL EMPLOYEES", 3634
1162 DATA "LOCATION CASTING COORD'R", 3635
1164 DATA "SPECIAL EQUIPMENT", 3665
1166 DATA "OTHER COSTS", 3685
1168 DATA "STUDIO CHARGES", 3695
1170 DATA 0,31719.45,42100
1172 DATA 1350,96208.83,150000
1174 DATA 0,178362.59,108000
1176 DATA 10518.37,268743.38,172365
1178 DATA 0,4345.91,20000
1180 DATA 107.81,4875.43,5000
1182 DATA 0,8536.82,1500
1184 DATA 0,4096.77,4000
1186 DATA 0,7546.95,4500
1188 DATA 0,513.98,10000
1190 DATA 0,0,0
1192 DATA 2487.50,35289.43,74690
1194 DATA 2022.44,14998.24,43500
1196 DATA 0,4279.36,1500
1198 DATA 0,0,0
1200 DATA 150,4084.03,4000
1202 DATA 0,0,0
1203 LET P=10: LET P$="PAGE SIX": GOSUB 16400
1204 LPRINT "PRODUCTION FILM & LABORATORY"
1206 M=6: GOSUB 200
1208 DATA "NEGATIVE FILM", 3702
1210 DATA "NEGATIVE DEVELOP", 3704
1212 DATA "PRINT ONE LIGHT DAILIES", 3705
1214 DATA "COLOR CORRECTED DAILIES", 3706
1216 DATA "PROCESS PRINTS", 3728
1218 DATA "STILLS/LAB PROCESSING", 3729
1220 DATA "OTHER COSTS", 3785
1222 DATA 1330.08,108703.56,168476
1224 DATA 3331.38,27024.69,60192
1226 DATA 4212.99,57905.97,87213
1228 DATA 0,0,2500
1230 DATA 0,0,0
1232 DATA 207.84,7055.58,8500
1234 DATA 0,0,0
1236 LPRINT "PROCESS"
1238 M=4: GOSUB 200
1240 DATA "PROJECTIONISTS", 3901
1242 DATA "SET-UP & STRIKE", 3902
1244 DATA "OUTSIDE EQUIP. RENTALS", 3917
1246 DATA "OTHER COSTS", 3985
1248 DATA "STUDIO CHARGES", 3995
1250 DATA 0,0,0
1252 DATA 0,0,0
1254 DATA 0,0,0
1256 DATA 0,0,0
1258 DATA 0,0,0
1260 LPRINT "SECOND UNIT"
1262 M=20: GOSUB 200
1264 DATA "DIRECTOR", 4013
1266 DATA "PURCHASES", 4016
1268 DATA "OUTSIDE RENTALS", 4017
1270 DATA "PRODUCTION STAFF", 4020
1272 DATA "EXTRA TALENT", 4021
1274 DATA "SET CONST./MINIATURES", 4023
1276 DATA "SET STRIKING", 4024
1278 DATA "SET OPERATIONS", 4025
1280 DATA "SPECIAL EFFECTS", 4026
1282 DATA "SET DRESSING", 4027
1284 DATA "PROPERTY", 4028
1286 DATA "MEN'S WARDROBE", 4029
1288 DATA "WOMEN'S WARDROBE", 4030
1290 DATA "MAKEUP & HAIRDRESSING", 4031
1292 DATA "LIGHTING", 4032
1302 DATA "CAMERA", 4033
1312 DATA "PRODUCTION SOUND", 4034
1322 DATA "TRANSPORTATION", 4035
1332 DATA "LOCATION", 4036
1342 DATA "OTHER COSTS", 4085
1352 DATA "STUDIO CHARGES", 4095
1362 DATA 0,0,0
1372 DATA 0,0,0
1382 DATA 0,0,0
1392 DATA 0,0,0
1402 DATA 0,0,0
1412 DATA 0,0,0
1422 DATA 0,0,0
1432 DATA 0,0,0
1442 DATA 0,0,0
1452 DATA 0,0,0
1462 DATA 0,0,0
1472 DATA 0,0,0
1474 DATA 0,0,0
1476 DATA 0,0,0
1478 DATA 0,0,0
1480 DATA 0,0,0
1482 DATA 0,0,0
1484 DATA 0,0,0
1486 DATA 0,0,0
1488 DATA 0,0,0
1490 DATA 6022.45,41229.89,73000
1492 LPRINT "TESTS"
1502 M=7: GOSUB 200
1512 DATA "OPERATING LABOR", 4101
1522 DATA "NEGATIVE FILM & LAB", 4114
1532 DATA "SOUND TAPE & TRANSFER", 4115
1542 DATA "PURCHASES", 4116
1552 DATA "OUTSIDE RENTALS", 4117
1562 DATA "STILL NEGATIVES & PRINTS", 4125
1572 DATA "OTHER COSTS", 4185
1582 DATA "STUDIO CHARGES", 4195
1592 DATA 0,0,0
1602 DATA 0,0,0
1612 DATA 0,0,0
1622 DATA 0,0,0
1632 DATA 0,0,0
1642 DATA 0,0,0
1652 DATA 0,0,0
1662 DATA 0,0,0
1670 LET P=9: LET P$= "PAGE SEVEN": GOSUB 16400
1672 LPRINT "MISC. PRODUCTION EXPENSE"
1682 M=2: GOSUB 200
1692 DATA "OUTSIDE STAGE RENTALS", 4202
1702 DATA "OTHER COSTS", 4285
1712 DATA "STUDIO CHARGES", 4295
1722 DATA 0,0,0
1732 DATA 0,0,0
1742 DATA 3416.75,32060.32,64000
1752 LPRINT "PRODUCTION PERIOD FRINGE BENEFITS"
1762 M=0: GOSUB 200
1772 DATA "FRINGE BENEFITS/PR TAXES", 4399
1782 DATA 27883.24,446725.12,741391
1784 GOSUB 16360: REM GOING FOR PRODUCTION TOTAL
1786 PRINT "LOADING DETEND"
1788 OPEN"I",1,"DAYDATE:1"
1790 INPUT#1,DS$
1792 CLOSE
1794 DF$="DETEND":DL$="/TXT"
1796 LOAD DF$+DS$+DL$,R
2500 STOP
7100 LPRINT USING U2$; "BELOW LINE PRODUCTION TOTAL *", Y(0),Y(1),Y(2),Y(3)
7102 OPEN"O",1,"PRODTOT/TXT:1"
7104 PRINT#1,Y(0);",";Y(1);",";Y(2);",";Y(3)
7106 CLOSE
7108 W=3
7110 FOR J=L TO W
7120 Z2#(J)=Y(J)
7130 NEXT: RETURN
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$(32)
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))
16370 GOSUB 7100
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$(32)
16420 NEXT
16430 LPRINT ,,,,P$
16440 LPRINT CHR$(32)
16445 LPRINT "         ACCOUNT TITLE            DETAIL ACCOUNT          CURRENT WEEK           TO DATE           BUDGET       OVER+/UNDER-"
16450 RETURN
URN
16400 FOR I=L TO P
16410 LPRINT CHR$(32)
16420 NEXT
16430 LPRINT ,,,,P$
16440 LPRINT CHR$(32)
16445 LPRINT "         ACCOUNT TITLE           