:59468,12= PRICER COPYRIGHT (C) 1979 GLEN FISHER] CURSOR #7, FEBRUARY, 1979~ BOX 550, GOLETA, CA. 93017: AS OF MAR 7 80ZPG$"PRICER":NM$"7":62000dCR$(13):CM$", ":CL$": "nPL$", PLEASE.":L$"̒":U$"Ւ" :DT04EI$,EN$,ES,PP$:EI$""DTDT1:210SDC$:DC$""DCDC1:220PR$"ENTER OVERHEAD RATE: ":59000:OVNOV0OV1"ENTER A DECIMAL FRACTION";PL$:1000PR$"G&A RATE: ":59000:GAN GA0GA1"ENTER A DECIMAL FRACTION";PL$:10102PR$"PROFIT RATE: ":59000:PFNhPF0PF1"ENTER A DECIMAL FRACTION";PL$:1020zMF1OVGAPFPR$"IS LABOR IN(1) HOURS, OR (2) DAYS? ":L1:H2:58000LPD(N2):LP$" PER HOUR.":LPDLP$" PER DAY."+.L1:HDT:PR$"HOW MANY PEOPLE ON THIS JOB? ":58000:PCNOLEI$(PC),EN$(PC),ES(PC),DC$(DC)V"ENTER INITIALS OF PEOPLE ON THE":"JOB, PRESSING ";`"RETURN AFTER EACH ONE.":I1PCj"INITALS? ";:60000tIN$"""DON'T SKIP ENTRIES";PL$:1130!~QYIN$"?"::J1DT:EI$,EN$,ES,PP$>QY" ";EI$,EN$:1170PEI$IN$1180`J:QY1130"NO ONE HAS THOSE INITIALS.":IN$"?":1150EI$(I)EI$:EN$(I)EN$:ES(I)ES:PP$"YR"ES(I)ES2080"COST FOR ";EN$;" IS:":NES(I):LPDNN8# 58150:" ";ZU$;U$;CM$;ZL$;L$;;LP$* I4 l2500 PR$"ARE TIME ESTIMATES BY(1) WEEKS, OR(2) MONTHS? ":L1:H2:58000 WKN1:UN$"MONTHS":WKUN$"WEEKS" :I1DT1:T$,T$,T$,T$:I I1DC:DC$(I):I:T$:WK2600 MN$(12):I112:MN$(I):I9 "STARTING MONTH? ";:60000:IN$""2550f I112:IN$(MN$(I),(IN$))MNI:2580 I:"UNKNOWN MONTH.":2550  PR$"STARTING YEAR.":L1900:H0:58000:YRN ( PR$"HOW MANY "UN$"IS THE ESTIMATE FOR? ":L1:H0:58000:TMN < LB(PC,TM),DC(TM)' F I1PC:CH2700U K "ENTER LABOR FOR ";EN$(I);PL$:MMN:YYR P J1TM:WKPR$"WEEK"(J)"? ":2660 Z PR$MN$(M)","(Y)"? ":MM1:M12YY1:M1 d 59000:LPDNN8 n LB(I,J)N:J "";EN$(I);"'S LABOR:" NES(I):LPDNN8: 58150:"COST: ";ZU$;U$;CM$;ZL$;L$;LP$:q J1TM:T$""((J),2)" ":NLB(I,J):LPDNN8 58200:T$;Z$,:J: PR$"ANY CHANGES? ":59200:NAY2800 "PRESS ONLYRETURN WHEN DONE." L0:HTM:PR$"WHICH PERIOD? ":58000:JN N02700D PR$"WHAT SHOULD IT BE? ":59000:LPDNN8X LB(I,J)N:2740_ I PR$"ANY OTHER DIRECT COSTS? ":59200:NAY3000  MMN:YYR:I1TM:WKTM$"WEEK"(I):2840  TM$MN$(M)","(Y):MM1:M12YY1:M1 "ENTER COSTS FOR ";TM$;PL$@" J1DC:PR$DC$(J)"? ":59000:DTDTN:Ji, PR$"ANY CHANGES? ":59200:YEA2840p6 I TL0:TC0:" COSTS (LOADED)" T$" ":"PERIOD LABOR";T$;"OTHER";T$;"TOTAL" LN2:MMN:YYR:M1WK0"";((Y),2):LN3 I1TM:L0:C04 WKPR$(" "(I),3):3015Y M1WK0"";((Y),2):LNLN1 PR$(MN$(M),3):MM1:M12YY1:M1 PR$; CDC(I) J1PC:LLLB(J,I)ES(J):J TLTLL:TCTCC:LLMF:CCMF NL:58100:(0)12(Z$));Z$;$ NC:58100:(0)12(Z$));Z$;I NLC:58100:(0)12(Z$));Z$a LNLN1:LN213080 "PRESS ANY KEY TO CONTINUE:" T$:T$""3077 :LN0 I LN6213100 "PRESS ANY KEY TO CONTINUE:" T$:T$""3092  " TOTAL, LOADED:"& " ";G0 NTLMF:58100:(0)12(Z$));Z$;o: NTCMF:58100:(0)12(Z$));Z$;D N(TLTC)MF:58100:(0)12(Z$));Z$N " TOTAL, UNLOADED:":" ";X NTL:58100:(0)12(Z$));Z$;b NTC:58100:(0)12(Z$));Z$;.l NTLTC:58100:(0)12(Z$));Z$n :PR$"WANT TO CHANGE ANY FIGURES? ":59200:YEACH1:2630t'@GF,G T FISHER,80000,YRJRKJ,R JEFFRIES,1.70,HRTCM,CURT MOSSO,40000,YR^RM,R MCELROY,5000,YRhAEN,ALFRED E. NEUMAN,2080,YRrLN,LITTLE NEMO,5,HR&(,,,@2TRAVEL,COMPUTER TIMEH<""sJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNEJULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER59000:(N)N"NO DECIMALS";PL$:58000H058030!NLNH"ENTER A NUMBER FROM";L;"";H;"";PL$:58000'\NL"ENTER A NUMBER";L;"OR GREATER";PL$:58000bZ((N)100.5):Z$((Z),2):Z100Z$("00"Z$,3)Z$(Z$,(Z$)2)"."(Z$,2):N0Z$"-"Z$Z$"$"Z$:&58100:ZU$Z$:NNMF:58100:ZL$Z$:X58100:Z0$(Z$,2)>b(Z0$,1)"0"Z$(Z$,(Z$)1)]lZ0$"00"Z$(Z$,(Z$)2)nvZ$(Z$,2):xPR$;:60000:IN$""N0:PT1:(IN$,1)"$"IN$(IN$,2)IN$""59000II1(IN$):T$(IN$,II,1)T$"0"T$"9"59090%T$".""N ";T$;"'";PL$:59000RPT0"TOO MANY DECIMAL POINTS.":59000[PT0cIIrN(IN$):@YEA0:NAY1JPR$;:60000:IN$""TIN$(IN$,1):YES(IN$"Y"):NAYYEA^NAYIN$"N""PLEASE ANSWER YES OR NO.":59210h"`IN$" ":ZTTI:ZC2:ZD$(20)8jZ$:Z$""60070htZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15s~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:KZ20ZL1IN$(IN$,ZL1):"";:60010~Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010(:2"PRESS RETURN TO ";<"BEGIN:";:60240F"CONTINUE:";PT$:T$""60240ZPNLP"";:100AdPNPN1:"";PG$;" - CURSOR #";NM$;" (C) 1978 PAGE";PN;""GncT I110:"";: I:0"";9);"CURSOR #7 PRICER"2"COPYRIGHT (C) 1979 BY GLEN FISHER"4 60500:"ESTIMATE JOB COSTS."D"THIS PROGRAM WILL ASSIST YOU IN)N"ESTIMATING JOB COSTS. AT LINE40000OX"PUT IN DATA STATEMENTS FOR YOURwb"EMPLOYEES. AT LINE 41010 PUT DATAl"STATEMENTS FOR OTHER DIRECT COSTS.\"PRESS RETURN TO BEGIN."zT$:T$""62330:"":100