home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mis / helper.ba < prev    next >
Text File  |  2006-10-19  |  5KB  |  140 lines
  1. 0 'HELPER.BA Don Villiard
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 10 CLS
  4. 20 LINE(5,5)-(239,58),1,B
  5. 30 LINE(50,15)-(190,48),1,BF
  6. 40 LINE (55,20)-(185,43),0,B
  7. 50 PRINT@131," BUILDER'S HELPER "
  8. 60 PRINT@171," By Don Villiard  "
  9. 70 FOR I=1TO2000:NEXT I:GOSUB 15000
  10. 90 CLS:PRINT"PLEASE SELECT FROM THE FOLLOWING:"
  11. 100 PRINT:PRINT" 1      SQ FOOTAGE                       2      FRAMING                          3      COVERING                         4      COST"
  12. 105 PRINT" 5      QUIT"
  13. 110 INPUT "YOUR SELECTION :";A
  14. 120 IF A=1 THEN 1000
  15. 130 IF A=2 THEN 1200
  16. 140 IF A=3 THEN 1500
  17. 150 IF A=4 THEN 4000
  18. 160 IF A=5 THEN END
  19. 1000 CLS:GOSUB 1070
  20. 1009 CLS
  21. 1010 INPUT "WIDTH OF PROJECT IN INCHES:";W
  22. 1020 INPUT "LENGTH OF PROJECT IN INCHES:";L
  23. 1030 LET S=W*L
  24. 1040 T=S/144
  25. 1050 CLS:PRINT:PRINT"THE SQUARE FOOTAGE OF YOUR PROJECT IS   GOING TO BE :";T;" SQ FT"
  26. 1060 FOR I=1 TO 3000: NEXT I: GOTO 90
  27. 1070 LINE(5,5)-(234,58),1,BF
  28. 1080 PRINT@131,"   SQUARE FOOTAGE   "
  29. 1090 PRINT@171," WIDTH TIMES LENGTH "
  30. 1100 FOR I=1 TO 2000: NEXT I: RETURN 
  31. 1200 CLS
  32. 1210 LINE(10,5)-(10,50),1
  33. 1220 LINE(11,5)-(11,50),1
  34. 1230 LINE(28,5)-(28,50),1
  35. 1240 LINE(44,5)-(44,50),1
  36. 1250 LINE(60,5)-(60,50),1
  37. 1260 LINE(76,5)-(76,50),1
  38. 1270 LINE(92,5)-(92,50),1
  39. 1280 LINE(93,5)-(93,50),1
  40. 1290 LINE(10,5)-(93,5),1
  41. 1300 LINE(10,50)-(93,50),1
  42. 1310 CALL 17001: PRINT@60," FRAMING STRUCTURE "
  43. 1320 PRINT@100," WITH 2 BY 4 STUDS "
  44. 1330 PRINT@140," WITH DOUBLE STUDS "
  45. 1340 PRINT@180," AT EACH CORNER.   "
  46. 1342 PRINT@220," STUDS WILL BE 16  "
  47. 1344 PRINT@260," INCHES APART.     "
  48. 1350 FOR I=1 TO 5000: NEXT I: CALL 17006
  49. 1351 CALL 17001
  50. 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."
  51. 1353 PRINT
  52. 1354 PRINT" HEIGHT OF PROJECT SHOULD BE THE SAME    AS THE LENGTH OF THE 2 BY 4'S YOU PLAN  ON USING."
  53. 1356 FOR I=1 TO 5000: NEXT I
  54. 1357 CALL 17006
  55. 1358 CLS:INPUT"WIDTH OF PROJECT IN INCHES :";W
  56. 1360 CLS:INPUT"LENGTH OF 2 BY 4'S YOU PLAN ON          USING :";B
  57. 1370 T=W/B
  58. 1380 S=W/16
  59. 1390 X=T*2
  60. 1400 D=X+S
  61. 1410 CLS:PRINT:PRINT" YOU WILL NEED :";D;" STUDS"
  62. 1430 FOR I=1 TO 2500: NEXT I: CLS: GOTO 90
  63. 1500 CLS
  64. 1520 LINE(10,5)-(42,21),1,BF
  65. 1530 LINE(44,5)-(75,21),1,BF
  66. 1540 LINE(77,5)-(108,21),1,BF
  67. 1550 LINE(10,23)-(42,39),1,BF
  68. 1560 LINE(44,23)-(75,39),1,BF
  69. 1570 LINE(77,23)-(108,39),1,BF
  70. 1580 LINE(10,41)-(42,57),1,BF
  71. 1585 LINE(44,41)-(75,57),1,BF
  72. 1590 LINE(77,41)-(108,57),1,BF
  73. 1600 CALL 17001:PRINT@60," COVERING STRUCTURE "
  74. 1610 PRINT@100," WITH PANELING OR   "
  75. 1620 PRINT@140," BOARDS.            "
  76. 1630 CALL 17006
  77. 1640 FOR I=1 TO 5000: NEXT I
  78. 1710 CLS
  79. 1720 INPUT "WIDTH OF PROJECT IN INCHES :";W
  80. 1730 INPUT "LENGTH OF PROJECT IN INCHES :";L
  81. 1740 C=W*L
  82. 1750 CLS:PRINT"PLEASE SELECT THE TYPE OF COVERING YOU  PLAN ON USING:"
  83. 1770 PRINT" 1       4X8 PANELING                    2       12 INCH BOARDS                  3       6 INCH BOARDS                   4       4 INCH BOARDS"
  84. 1790 INPUT"YOUR SELECTION PLEASE :";S
  85. 1820 IF S=1 THEN 1900
  86. 1830 IF S=2 THEN 2000
  87. 1840 IF S=3 THEN 2100
  88. 1850 IF S=4 THEN 2200
  89. 1900 CLS
  90. 1910 D=C/144
  91. 1920 E=D/32
  92. 1930 PRINT"YOU WILL NEED :";E;" PANELS":GOSUB 10000
  93. 1940 GOTO 90
  94. 2000 CLS
  95. 2010 PRINT "YOU WILL NEED "
  96. 2015 D=C/144
  97. 2020 PRINT D 
  98. 2030 PRINT "LINEAR FT OF 12 INCH BOARDS"
  99. 2040 :GOSUB 10000:GOTO 90
  100. 2100 CLS
  101. 2110 D=C/144
  102. 2120 E=D*2
  103. 2130 PRINT"YOU WILL NEED"
  104. 2140 PRINT
  105. 2150 PRINT E
  106. 2160 PRINT
  107. 2170 PRINT "LINEAR FT OF 6 INCH BOARDS":GOSUB 10000: GOTO 90
  108. 2200 CLS
  109. 2210 D=C/144
  110. 2220 E=D*3
  111. 2230 PRINT"YOU WILL NEED"
  112. 2240 PRINT
  113. 2250 PRINT E
  114. 2255 PRINT
  115. 2260 PRINT"LINEAR FT OF 4 INCH BOARDS":GOSUB 10000:GOTO 90
  116. 4000 CLS
  117. 4010 LINE(5,5)-(234,58),1,B
  118. 4020 PRINT@131,"COST ESTIMATOR"
  119. 4030 PRINT@170,"MATERIAL & TAXES"
  120. 4040 FOR I=1 TO 2000: NEXT I
  121. 4050 CLS:INPUT"PLEASE ENTER THE TAX RATE FOR           YOUR AREA :";T
  122. 4060 CLS:INPUT"PLEASE ENTER THE NUMBER OF UNITS THAT   YOU WILL NEED :";N
  123. 4070 CLS:INPUT"ENTER THE COST OF EACH UNIT :";C
  124. 4080 A=(T*N)*.01
  125. 4090 B=N*C
  126. 5000 S=A+B
  127. 5010 U$="$####.##"
  128. 5020 CLS:PRINT"YOUR OVERALL COST INCLUDING TAXES WILL  BE :"
  129. 5030 PRINT:PRINT USING U$;S
  130. 5040 FOR I=1 TO 3000: NEXT I: GOTO 90
  131. 9999 END
  132. 10000 FOR I=1 TO 2500: NEXT I: RETURN
  133. 15000 CLS
  134. 15010 PRINT"BUILDER'S HELPER IS DESIGNED TO HELP    THE HANDYMAN ESTIMATE THE MATERIAL THAT HE WILL NEED AND ALSO THE COST THAT"
  135. 15020 PRINT"WILL BE INVOLVED IN BUILDING THE        PROJECT."
  136. 15030 GOSUB 15500
  137. 15040 CLS: PRINT"PLEASE ENTER THE REQUIRED INFORMATION   WHEN ASKED. NOTE THAT ALL MEASUREMENTS  ARE IN INCHES."
  138. 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."
  139. 15500 FOR I=1TO 3500:NEXT I:RETURN
  140.