Business #4

  10 PRINT AT 10,6;"BREAK-EVEN  ANALYSIS"
  20 PRINT ,,"PRODUCES COSTS/REVENUE SCHEDULES"
  30 PAUSE 200
  40 FOR N=1 TO 6
  50 SCROLL 
  60 NEXT N
  70 PRINT "WHAT ARE THE FIXED COSTS?"
  80 INPUT F
  90 SCROLL 
 100 PRINT ,F
 110 SCROLL 
 120 SCROLL 
 130 PRINT "WHAT IS THE PARTS COST PER UNIT?"
 140 INPUT V
 150 SCROLL 
 160 PRINT ,V
 170 SCROLL 
 180 SCROLL 
 190 PRINT "WHAT IS THE UNIT SELLING COST?"
 200 INPUT P
 210 SCROLL 
 220 PRINT ,P
 230 SCROLL 
 240 SCROLL 
 250 PRINT "UNITS IN STOCK AT START?"
 260 INPUT B
 270 SCROLL 
 280 PRINT ,B
 290 SCROLL 
 300 SCROLL 
 310 PRINT "UNITS IN STOCK AT FINISH?"
 320 INPUT C
 330 SCROLL 
 340 PRINT ,C
 350 SCROLL 
 360 SCROLL 
 370 PRINT "ANALYSIS INCREMENT NUMBER?"
 380 INPUT S
 390 SCROLL 
 400 PRINT ,S
 410 PAUSE 200
 420 FAST 
 430 CLS 
 432 PRINT ,,"DO YOU WANT HARD COPY?"
 434 INPUT Y$
 440 SCROLL 
 450 PRINT "QUANT COST  REV   P/L   UN COST"
 455 IF Y$(1)="Y" THEN LPRINT "QUANT COST  REV   P/L   UN COST"
 457 IF Y$(1)="Y" THEN LPRINT 
 460 LET D=F/(P-V)
 470 LET G=P*D
 480 LET H=F+V*D
 490 SCROLL 
 500 SCROLL 
 510 SLOW 
 520 IF B=0 THEN LET B=B+S
 530 FOR N=B TO C STEP S
 540 LET R=P*N
 550 LET E=F+V*N
 560 LET U=E/N
 565 LET U=INT (10*U+.5)/10
 570 LET A=R-E
 580 IF N<D THEN GOTO 1000
 590 PRINT "--------------------------------"
 595 IF Y$(1)="Y" THEN LPRINT "--------------------------------"
 600 SCROLL 
 610 PRINT INT D;TAB 6;INT H;TAB 12;INT G;TAB 18;"BREAK-EVEN"
 613 SCROLL 
 615 IF Y$(1)="Y" THEN LPRINT INT D;TAB 6;INT H;TAB 12;INT G;TAB 18;"BREAK-EVEN"
 620 SCROLL 
 630 PRINT "--------------------------------"
 635 IF Y$(1)="Y" THEN LPRINT "--------------------------------"
 640 SCROLL 
 650 LET D=99999999
\n1000 PRINT N;TAB 6;E;TAB 12;R;TAB 18;A;TAB 24;U
\n1003 SCROLL 
\n1005 IF Y$(1)="Y" THEN LPRINT N;TAB 6;E;TAB 12;R;TAB 18;A;TAB 24;U
\n1010 SCROLL 
\n1020 SCROLL 
\n1030 NEXT N
\n1040 SCROLL 
\n1050 SCROLL 
\n1060 IF Y$(1)="Y" THEN LPRINT "                                QUANT COST  REV   P/L   UN COST"
\n2000 SCROLL 
\n2010 SCROLL 
\n2020 PRINT "PRESS ENTER TO RECYCLE :::"
\n2030 LET Y$=INKEY$
\n2040 IF Y$="" THEN GOTO 2040
\n2050 CLS 
\n2060 RUN 
\n9998 SAVE "BREAK EVE%N"
\n9999 RUN 

  10 CLS 
  20 LET D=0
 100 CLS 
 110 PRINT AT 12,0;" %*%*%*% %J%O%B% %Q%U%O%T%E% %E%S%T%I%M%A%T%E%R% %*%*%*"
 200 SCROLL 
 205 LET D=D+1
 210 PRINT "   PRESS ENTER TO START :::"
 220 INPUT Y$
 230 CLS 
 240 SCROLL 
 250 PRINT "JOB NAME?  ";
 260 INPUT N$
 270 PRINT N$
 280 SCROLL 
 290 SCROLL 
 300 PRINT "NUMBER OF INSTALLATIONS?"
 310 SCROLL 
 320 INPUT Q
 330 PRINT ,Q
 340 SCROLL 
 350 SCROLL 
 360 GOSUB 1000
 370 GOSUB 2000
 380 SCROLL 
 390 PRINT "OVERHEAD (PER. OF DIRECT LABOR)?"
 400 SCROLL 
 410 INPUT C
 420 SCROLL 
 425 PRINT ,C
 426 SCROLL 
 430 LET O=C/100
 440 SCROLL 
 450 PRINT "PROFIT (PER OF JOB COST)?"
 460 SCROLL 
 470 INPUT Z
 480 PRINT ,Z
 490 SCROLL 
 500 SCROLL 
 510 LET P=Z/100
 520 PRINT "PRESS ENTER TO SEE QUOTE :::"
 530 INPUT Y$
 540 CLS 
 550 LET B=Q*M
 560 LET K=Q*L
 570 LET J=H*Q
 590 LET V=O*(L+H)
 600 LET W=V*Q
 610 LET R=P*(B+K+J+W)
 620 LET X=R/Q
 630 LET S=B+K+J+R+W
 640 LET T=S/Q
 650 GOSUB 3000
 660 SCROLL 
 665 SCROLL 
 670 PRINT "PRESS ENTER FOR ANOTHER QUOTE ::"
 680 INPUT Y$
 690 GOTO 100
\n1000 PRINT "ARE MATERIAL COSTS TO BE"
\n1010 SCROLL 
\n1020 PRINT "ITEMIZED (Y/N)?"
\n1030 SCROLL 
\n1040 INPUT B$
\n1050 IF B$(1)="Y" THEN GOTO 1100
\n1060 IF B$(1)="N" THEN GOTO 1160
\n1070 GOTO 1040
\n1100 SCROLL 
\n1110 SCROLL 
\n1120 PRINT "MATERIAL COSTS :::"
\n1130 SCROLL 
\n1140 SCROLL 
\n1150 GOSUB 1200
\n1155 LET M=C
\n1156 RETURN 
\n1160 SCROLL 
\n1170 SCROLL 
\n1180 PRINT "TOTAL MATERIAL COST?  ";
\n1184 INPUT M
\n1186 PRINT M
\n1188 SCROLL 
\n1190 RETURN 
\n1200 LET C=0
\n1205 SCROLL 
\n1210 PRINT "ESTIMATE NO.";D
\n1220 SCROLL 
\n1230 SCROLL 
\n1240 PRINT "ITEM?",
\n1250 INPUT B$
\n1255 IF B$="" THEN GOTO 1600
\n1260 PRINT B$
\n1270 SCROLL 
\n1280 SCROLL 
\n1290 PRINT "COST?",
\n1300 INPUT A
\n1310 PRINT A
\n1320 SCROLL 
\n1340 SCROLL 
\n1350 PRINT "QUANTITY?",
\n1360 INPUT G
\n1370 PRINT G
\n1380 LET E=A*G
\n1390 SCROLL 
\n1400 SCROLL 
\n1410 SCROLL 
\n1430 PRINT "ITEM    COST    QUANT   EXTEND"
\n1440 SCROLL 
\n1450 SCROLL 
\n1455 LET E=INT (100*E+.05)/100
\n1460 PRINT B$;TAB 8;A;TAB 16;G;TAB 24;E
\n1470 SCROLL 
\n1480 SCROLL 
\n1490 LET C=C+E
\n1500 GOTO 1220
\n1600 SCROLL 
\n1605 SCROLL 
\n1610 PRINT "TOTAL",C
\n1620 SCROLL 
\n1630 SCROLL 
\n1640 PRINT "PRESS ENTER TO CONTINUE :::"
\n1650 INPUT B$
\n1660 CLS 
\n1670 RETURN 
\n2000 SCROLL 
\n2010 SCROLL 
\n2020 PRINT "DO YOU WANT SHOP LABOR ITEMIZED?"
\n2030 INPUT Y$
\n2040 IF Y$(1)="N" THEN GOTO 2140
\n2050 IF Y$(1)="Y" THEN GOTO 2070
\n2060 GOTO 2030
\n2070 SCROLL 
\n2080 SCROLL 
\n2090 PRINT "SHOP LABOR PER HOUR"
\n2100 SCROLL 
\n2110 SCROLL 
\n2115 GOSUB 1200
\n2120 LET L=C
\n2130 GOTO 2240
\n2140 SCROLL 
\n2150 SCROLL 
\n2160 PRINT "COST FOR TOTAL SHOP LABOR?"
\n2170 SCROLL 
\n2180 SCROLL 
\n2190 INPUT L
\n2200 PRINT ,L
\n2210 SCROLL 
\n2240 SCROLL 
\n2260 PRINT "ON SITE LABOR TO BE ITEMIZED?"
\n2270 SCROLL 
\n2280 INPUT B$
\n2290 IF B$(1)="Y" THEN GOTO 2320
\n2300 IF B$(1)="N" THEN GOTO 2500
\n2310 GOTO 2280
\n2320 CLS 
\n2330 PRINT ,,"ON SITE LABOR PER HOUR :::"
\n2340 GOSUB 1200
\n2350 LET H=C
\n2360 RETURN 
\n2500 SCROLL 
\n2510 SCROLL 
\n2520 PRINT "ON SITE LABOR TOTAL COST?"
\n2530 INPUT H
\n2540 SCROLL 
\n2550 RETURN 
\n3000 SCROLL 
\n3010 SCROLL 
\n3020 PRINT "NAME   ";N$;TAB 16;"ESTIMATE ";D
\n3030 SCROLL 
\n3040 SCROLL 
\n3050 PRINT "EST PAR    NO. UNITS    EXTENDED"
\n3060 SCROLL 
\n3070 SCROLL 
\n3080 PRINT "NUMBER OF INSTALATIONS   ";Q
\n3090 SCROLL 
\n3100 SCROLL 
\n3102 LET M=INT (100*M+.05)/100
\n3104 LET B=INT (100*B+.05)/100
\n3110 PRINT "MATERIAL COST ";M;TAB 25;B
\n3120 SCROLL 
\n3130 SCROLL 
\n3132 LET L=INT (100*L+.05)/100
\n3134 LET K=INT (100*K+.05)/100
\n3140 PRINT "SHOP LAB COST ";L;TAB 25;K
\n3150 SCROLL 
\n3160 SCROLL 
\n3162 LET H=INT (100*H+.05)/100
\n3164 LET J=INT (100*J+.05)/100
\n3170 PRINT "SITE LAB COST ";H;TAB 25;J
\n3180 SCROLL 
\n3190 SCROLL 
\n3195 LET W=INT (100*W+.05)/100
\n3196 LET V=INT (100*V+.05)/100
\n3200 PRINT "OVRHD";" (";C;")";TAB 14;V;TAB 25;W
\n3210 SCROLL 
\n3220 SCROLL 
\n3225 LET R=INT (100*R+.05)/100
\n3226 LET X=INT (100*X+.05)/100
\n3230 PRINT "PROFIT";" (";Z;")";TAB 14;X;TAB 25;R
\n3240 SCROLL 
\n3250 SCROLL 
\n3255 LET S=INT (100*S+.05)/100
\n3256 LET T=INT (100*T+.05)/100
\n3260 PRINT "JOB QUOTE";TAB 14;T;TAB 25;S
\n3262 SCROLL 
\n3263 SCROLL 
\n3265 PRINT AT 21,0;"PRESS <Z> FOR COPY ::"
\n3270 PAUSE 40000
\n3275 PRINT AT 21,0;"                     "
\n3280 IF INKEY$="Z" THEN COPY 
\n3290 RETURN 
\n9998 SAVE "QUOT%E"
\n9999 RUN