10 CLS:CLEAR 500
15 PRINT "DETBEG/TXT NOW RUNNING"
20 LPRINT CHR$(27);CHR$(14)
30 LPRINT ,,,,"PAGE ONE"
40 LPRINT CHR$(32)
60 LPRINT CHR$(31);"PERSONAL BEST    DAVID GEFFEN FILMS INC.   PRODUCTION # 409592";CHR$(30)
64 INPUT "ENTER WEEK ENDING DATE";WE$
65 INPUT "ENTER RUN DATE";RD$
70 LPRINT CHR$(32)
80 LPRINT "PRODUCER/DIRECTOR:  ROBERT TOWNE     START PRINCIPAL PHOTOGRAPHY: 06/21/80    HALTED BY STRIKE: 07/21/80    RESUMED: 09/10/80"
90 LPRINT CHR$(32)
100 LPRINT "DETAIL COST SUMMARY AS OF DATE: ";WE$
110 LPRINT "RUN DATE: ";RD$
115 LPRINT CHR$(32)
120 LPRINT "         ACCOUNT TITLE            DETAIL ACCOUNT          CURRENT WEEK           TO DATE           BUDGET       OVER+/UNDER-"
140 U$="   %                          %        ####               ##,######.##-     ##,######.##-   ##,######.##       ##,######.##+"
150 U1$="PRIME DETAIL TOTAL                                        ##,######.##-     ##,######.##-   ##,######.##       ##,######.##+"
152 U2$="%                            %                            ##,######.##-     ##,######.##-   ##,######.##       ##,######.##+"
160 DS$=MID$(WE$,4,2)
162 OPEN"O",1,"DAYDATE:1"
164 PRINT#1,DS$
166 CLOSE
168 DF$="DETMID":DL$="/TXT"
180 DEFDBL A,T,Y
185 DIM A$(50),B(50),A(50,3)
199 GOTO 300
200 L=0:N=2
210 GOSUB 16000 
220 GOSUB 16100
230 GOSUB 16200
240 GOSUB 16300
250 RETURN
300 LPRINT "STORY RIGHTS & CONTINUITY"
302 M=8: GOSUB 200
304 DATA "WRITERS",1101
306 DATA "RESEARCH", 1102
308 DATA "RIGHTS PURCHASED",1103
310 DATA "ROYALTY", 1104
312 DATA "EDITORS & ANALYSTS",1105
314 DATA "XEROX & MIMEO", 1106
316 DATA "SECRETARIES & TYPISTS", 1107
318 DATA "OTHER COSTS", 1185
320 DATA "FRINGE BENEFITS & PR TAXES", 1199
322 DATA 0,0,0
324 DATA 0,0,0
326 DATA 0,0,0
328 DATA 0,0,0
330 DATA 0,0,0
332 DATA 0,0,0
334 DATA 0,0,0
336 DATA 0,0,0
338 DATA 0,0,0
340 LPRINT "PRODUCERS UNIT"
342 M=7: GOSUB 200
344 DATA "EXECUTIVE PRODUCER", 1201
346 DATA "PRODUCER", 1202
348 DATA "ASSOCIATE PRODUCER", 1203
350 DATA "PRODUCTION ASST'S", 1204
352 DATA "SECRETARIES & TYPISTS", 1207
354 DATA "LEGAL & AUDITING", 1208
356 DATA "IND'T PRODUCERS OVERHEAD", 1210
358 DATA "OTHER COSTS", 1285
360 DATA 0,0,0
362 DATA 0,0,0
364 DATA 150,1050,3300
366 DATA 0,0,0
368 DATA 0,4550,21450
370 DATA 0,0,0
372 DATA 0,0,0
374 DATA 0,0,0
376 LPRINT "DIRECTION"
378 M=4: GOSUB 200
380 DATA "DIRECTOR", 1301
382 DATA "DIALOGUE DIRECTION", 1302
384 DATA "DANCE DIRECTOR & ASS'TS", 1303
386 DATA "SECRETARIES & TYPISTS", 1307
388 DATA "OTHER COSTS", 1385
390 DATA 0,0,0
392 DATA 0,0,0
394 DATA 0,0,0
396 DATA 0,0,0
398 DATA 0,0,0
400 LPRINT "CAST"
402 M=8: GOSUB 200
404 DATA "STARS & LEADS", 1401
406 DATA "SUPPORTING CAST", 1402
408 DATA "DAY PLAYERS", 1403
410 DATA "STUNT MEN", 1404
412 DATA "STUNT ADJUSTMENTS", 1405
414 DATA "LOOPING", 1406
416 DATA "OVERTIME", 1407
418 DATA "OTHER COSTS", 1485
420 DATA "CASTING DIRECTORS & SEC'TYS", 1490
422 DATA 0,129545.45,125000
424 DATA 37329.07,427459.96,341877
426 DATA 0,0,18150
428 DATA 0,0,0
430 DATA 0,0,0
432 DATA 0,0,33952
434 DATA 0,0,72754
436 DATA 0,0,8000
438 DATA 0,0,0
442 LPRINT "TRAVEL & LIVING COSTS"
444 M=0: GOSUB 200
446 DATA "TRAVEL AND LIVING COSTS", 1501
448 DATA 500,83072.37,196300
449 P=7: P$= "PAGE TWO": GOSUB 16400
450 LPRINT "PRODUCTION FEE"
452 M=0: GOSUB 200
454 DATA "PRODUCTION FEE", 1601
456 DATA 0,0,0
458 LPRINT "FRINGE BENEFITS & PR TAXES"
460 M=0: GOSUB 200
462 DATA "FRINGE BENEFITS & PR TAXES", 1999
464 DATA 7731.48,99069.34,150797
468 GOSUB 16360 :REM GOING FOR ABOVE LINE TOTAL
500 PRINT "LOADING DETMID"
601 LOAD DF$+DS$+DL$,R
2500 STOP
7000 LPRINT USING U2$;"ABOVE THE LINE TOTAL *", Y(0),Y(1),Y(2),Y(3)
7002 OPEN"O",1,"ABLTOT/TXT:1"
7004 PRINT#1,Y(0);",";Y(1);",";Y(2);",";Y(3)
7005 CLOSE
7006 W=3
7010 FOR J=L TO W
7020 Z1#(J)=Y(J)
7030 NEXT
7040 RETURN
8000 REM REQUIRES OWN GOSUB (NOT TO 16360) FROM 2300
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 7000
16372 FOR J=L TO N
16376 T1(J) = 0
16378 Y(J) = 0
16380 T(J) = 0
16390 NEXT: LPRINT CHR$(32): 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
  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           BUL1)(A$(L1),I1):500 boCL64:C