Source Code
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
\n3270 RETURN
\n9998 SAVE "QUOT%E"
\n9999 RUN
