0 'HELPER.BA Don Villiard 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 10 CLS 20 LINE(5,5)-(239,58),1,B 30 LINE(50,15)-(190,48),1,BF 40 LINE (55,20)-(185,43),0,B 50 PRINT@131," BUILDER'S HELPER " 60 PRINT@171," By Don Villiard " 70 FOR I=1TO2000:NEXT I:GOSUB 15000 90 CLS:PRINT"PLEASE SELECT FROM THE FOLLOWING:" 100 PRINT:PRINT" 1 SQ FOOTAGE 2 FRAMING 3 COVERING 4 COST" 105 PRINT" 5 QUIT" 110 INPUT "YOUR SELECTION :";A 120 IF A=1 THEN 1000 130 IF A=2 THEN 1200 140 IF A=3 THEN 1500 150 IF A=4 THEN 4000 160 IF A=5 THEN END 1000 CLS:GOSUB 1070 1009 CLS 1010 INPUT "WIDTH OF PROJECT IN INCHES:";W 1020 INPUT "LENGTH OF PROJECT IN INCHES:";L 1030 LET S=W*L 1040 T=S/144 1050 CLS:PRINT:PRINT"THE SQUARE FOOTAGE OF YOUR PROJECT IS GOING TO BE :";T;" SQ FT" 1060 FOR I=1 TO 3000: NEXT I: GOTO 90 1070 LINE(5,5)-(234,58),1,BF 1080 PRINT@131," SQUARE FOOTAGE " 1090 PRINT@171," WIDTH TIMES LENGTH " 1100 FOR I=1 TO 2000: NEXT I: RETURN 1200 CLS 1210 LINE(10,5)-(10,50),1 1220 LINE(11,5)-(11,50),1 1230 LINE(28,5)-(28,50),1 1240 LINE(44,5)-(44,50),1 1250 LINE(60,5)-(60,50),1 1260 LINE(76,5)-(76,50),1 1270 LINE(92,5)-(92,50),1 1280 LINE(93,5)-(93,50),1 1290 LINE(10,5)-(93,5),1 1300 LINE(10,50)-(93,50),1 1310 CALL 17001: PRINT@60," FRAMING STRUCTURE " 1320 PRINT@100," WITH 2 BY 4 STUDS " 1330 PRINT@140," WITH DOUBLE STUDS " 1340 PRINT@180," AT EACH CORNER. " 1342 PRINT@220," STUDS WILL BE 16 " 1344 PRINT@260," INCHES APART. " 1350 FOR I=1 TO 5000: NEXT I: CALL 17006 1351 CALL 17001 1352 CLS: PRINT" IN THIS PORTION YOU WILL NEED TO ENTER THE WIDTH OF THE PROJECT AND THE LENGTH OF THE 2 BY 4'S YOU PLAN ON USING." 1353 PRINT 1354 PRINT" HEIGHT OF PROJECT SHOULD BE THE SAME AS THE LENGTH OF THE 2 BY 4'S YOU PLAN ON USING." 1356 FOR I=1 TO 5000: NEXT I 1357 CALL 17006 1358 CLS:INPUT"WIDTH OF PROJECT IN INCHES :";W 1360 CLS:INPUT"LENGTH OF 2 BY 4'S YOU PLAN ON USING :";B 1370 T=W/B 1380 S=W/16 1390 X=T*2 1400 D=X+S 1410 CLS:PRINT:PRINT" YOU WILL NEED :";D;" STUDS" 1430 FOR I=1 TO 2500: NEXT I: CLS: GOTO 90 1500 CLS 1520 LINE(10,5)-(42,21),1,BF 1530 LINE(44,5)-(75,21),1,BF 1540 LINE(77,5)-(108,21),1,BF 1550 LINE(10,23)-(42,39),1,BF 1560 LINE(44,23)-(75,39),1,BF 1570 LINE(77,23)-(108,39),1,BF 1580 LINE(10,41)-(42,57),1,BF 1585 LINE(44,41)-(75,57),1,BF 1590 LINE(77,41)-(108,57),1,BF 1600 CALL 17001:PRINT@60," COVERING STRUCTURE " 1610 PRINT@100," WITH PANELING OR " 1620 PRINT@140," BOARDS. " 1630 CALL 17006 1640 FOR I=1 TO 5000: NEXT I 1710 CLS 1720 INPUT "WIDTH OF PROJECT IN INCHES :";W 1730 INPUT "LENGTH OF PROJECT IN INCHES :";L 1740 C=W*L 1750 CLS:PRINT"PLEASE SELECT THE TYPE OF COVERING YOU PLAN ON USING:" 1770 PRINT" 1 4X8 PANELING 2 12 INCH BOARDS 3 6 INCH BOARDS 4 4 INCH BOARDS" 1790 INPUT"YOUR SELECTION PLEASE :";S 1820 IF S=1 THEN 1900 1830 IF S=2 THEN 2000 1840 IF S=3 THEN 2100 1850 IF S=4 THEN 2200 1900 CLS 1910 D=C/144 1920 E=D/32 1930 PRINT"YOU WILL NEED :";E;" PANELS":GOSUB 10000 1940 GOTO 90 2000 CLS 2010 PRINT "YOU WILL NEED " 2015 D=C/144 2020 PRINT D 2030 PRINT "LINEAR FT OF 12 INCH BOARDS" 2040 :GOSUB 10000:GOTO 90 2100 CLS 2110 D=C/144 2120 E=D*2 2130 PRINT"YOU WILL NEED" 2140 PRINT 2150 PRINT E 2160 PRINT 2170 PRINT "LINEAR FT OF 6 INCH BOARDS":GOSUB 10000: GOTO 90 2200 CLS 2210 D=C/144 2220 E=D*3 2230 PRINT"YOU WILL NEED" 2240 PRINT 2250 PRINT E 2255 PRINT 2260 PRINT"LINEAR FT OF 4 INCH BOARDS":GOSUB 10000:GOTO 90 4000 CLS 4010 LINE(5,5)-(234,58),1,B 4020 PRINT@131,"COST ESTIMATOR" 4030 PRINT@170,"MATERIAL & TAXES" 4040 FOR I=1 TO 2000: NEXT I 4050 CLS:INPUT"PLEASE ENTER THE TAX RATE FOR YOUR AREA :";T 4060 CLS:INPUT"PLEASE ENTER THE NUMBER OF UNITS THAT YOU WILL NEED :";N 4070 CLS:INPUT"ENTER THE COST OF EACH UNIT :";C 4080 A=(T*N)*.01 4090 B=N*C 5000 S=A+B 5010 U$="$####.##" 5020 CLS:PRINT"YOUR OVERALL COST INCLUDING TAXES WILL BE :" 5030 PRINT:PRINT USING U$;S 5040 FOR I=1 TO 3000: NEXT I: GOTO 90 9999 END 10000 FOR I=1 TO 2500: NEXT I: RETURN 15000 CLS 15010 PRINT"BUILDER'S HELPER IS DESIGNED TO HELP THE HANDYMAN ESTIMATE THE MATERIAL THAT HE WILL NEED AND ALSO THE COST THAT" 15020 PRINT"WILL BE INVOLVED IN BUILDING THE PROJECT." 15030 GOSUB 15500 15040 CLS: PRINT"PLEASE ENTER THE REQUIRED INFORMATION WHEN ASKED. NOTE THAT ALL MEASUREMENTS ARE IN INCHES." 15045 PRINT:PRINT"YOU WILL NEED TO KNOW THE COST OF EACH ITEM THAT YOU WILL USE AND ALSO THE SALES TAX FOR YOUR AREA." 15500 FOR I=1TO 3500:NEXT I:RETURN