10 PROGRAM "hoatbocs.bas" 20 TEXT 40 100 ! 101 ! a vizsgalando szerkezetek kivalasztasa 102 ! 105 PRINT :PRINT " Höåtbocsåtåsi tényezö szåmitåsa" 108 PRINT " -------------------------------" 110 PRINT :PRINT 115 SET #102:INK2:PRINT " <1>";:SET #102:INK0:PRINT " Külsö fal" 120 SET #102:INK2:PRINT " <2>";:SET #102:INK0:PRINT " Belsö fal" 130 SET #102:INK2:PRINT " <3>";:SET #102:INK0:PRINT " Lapostetö" 140 SET #102:INK2:PRINT " <4>";:SET #102:INK0:PRINT " Padlåsfödém" 150 SET #102:INK2:PRINT " <5>";:SET #102:INK0:PRINT " Pincefödém" 160 SET #102:INK2:PRINT " <6>";:SET #102:INK0:PRINT " Årkåd feletti födém" 170 PRINT :SET #102:INK2:PRINT " ";:SET #102:INK0:PRINT " Befejezés" 180 PRINT :PRINT " Melyik szerkezetre van szüksége?" 200 DO 205 GET B$ 210 LOOP WHILEB$="" 220 IF B$=CHR$(27)THENSTOP 230 IF B$<"1"ORB$>"6"THENGOTO 200 240 ! 250 ! a hoatadasi tenyezok bevitele 260 ! 270 RESTORE 310 280 FOR Z=1TOVAL(B$) 290 READ ALFAE,ALFAI 295 NEXT 300 LET K=(1/ALFAE)+(1/ALFAI) 310 DATA 24,8 !kulso 320 DATA 8,8 !belso 330 DATA 24,10!laposfodem 340 DATA 12,10!paddlas 350 DATA 8,6 !pince 360 DATA 12,6 !arkad 370 ! 371 ! retegenkenti szamitas kezdete 372 ! 380 TEXT 382 PRINT :PRINT 385 INPUT PROMPT" Håny réteget tartalmaz?:":R 390 IF R<1THENGOTO 380 400 NUMERIC L(1TOR),S(1TOR) 410 FOR N=1TOR 415 TEXT 420 PRINT :PRINT "A szerkezet ";R;"rétegböl åll." 430 PRINT :PRINT "A(z)";N;". réteg vastagsåga cm-ben:"; 435 INPUT S(N) 438 LET S(N)=S(N)/100 ! centimeter atszamolasa meterbe 440 IF S(N)<=0THEN 443 PRINT "Helytelen adat! Ird be mégegyszer!" 446 GOTO 430 448 END IF 450 GOSUB 580 455 LET K=K+A 460 NEXT 465 LET LAMBDA=ROUND(1/K,3) 470 PRINT :PRINT " A höåtbocsåtåsi tényezö:"; 480 PRINT :PRINT LAMBDA;" W/m2*`C (W/m2*K)" 490 LET Z=1 500 IF B$="1"THENLET Z=.45-(LAMBDA) 510 IF B$="4"THENLET Z=.3-(LAMBDA) 520 IF Z<0THENGOSUB 8000 530 PRINT :PRINT "Akarja folytatni? (I=igen, Mås=nem)" 540 DO 545 GET A$ 550 LOOP WHILEA$="" 560 IF A$="I"ORA$="i"THENRUN 570 END 572 ! 574 ! szubrutinok kezdete 576 ! 580 LET Z$="0" 600 PRINT :PRINT "Anyaga?" 605 PRINT "--------------------------" 610 PRINT :PRINT " <1> Betonok " 620 PRINT " <2> Faanyagok, lemezek " 630 PRINT " <3> Höszigetelö anyagok " 640 PRINT " <4> Téglåk, falazoblokkok" 650 PRINT " <5> Habarcsok, vakolatok " 660 PRINT " <6> Feltöltések " 670 PRINT " <7> Födémszerkezetek " 680 PRINT " <8> Burkolatok " 690 PRINT " <9> Egyéb anyagok " 700 DO 703 GET A$ 705 LOOP WHILEA$="" 710 IF A$<"1"ORA$>"9"THENGOTO 700 720 ON VAL(A$)GOSUB 900, 1700, 2500, 3300, 4100, 4900, 5700, 6500, 7300 799 RETURN 900 ! 902 ! betonok 904 ! 908 TEXT 910 PRINT " Betonok 1. testsürüség" 920 PRINT "-------------------------------------" 930 PRINT " <1> Vasbeton 2400" 940 PRINT " <2> Kavicsbeton 2200" 950 PRINT " <3> Kohohabsalak beton 1400" 960 PRINT " <4> Kohohabsalak beton 1600" 970 PRINT " <5> Kazånsalak beton 1400" 980 PRINT " <6> Kazånsalak beton 1600" 990 PRINT " <7> Bitumenperlit 300" 1000 PRINT " <8> bitumenperlit 400" 1010 PRINT :PRINT " <0> Következö oldal" 1020 GET A$ 1022 IF A$=""THEN 1020 1030 IF A$="0"THEN 1100 1040 IF A$<"1"ORA$>"8"THEN 1020 1050 RESTORE 1055 1055 DATA 1.55,1.28,0.47,0.58,0.56,0.7,0.09,0.12 1060 FOR J=1TOVAL(A$) 1065 READ L(N) 1068 NEXT 1080 LET A=S(N)/L(N) 1090 RETURN 1100 TEXT ! 23456789012345678901234567890123456789 1110 PRINT " Betonok 2. testsürüség" 1120 PRINT "-------------------------------------" 1130 PRINT " <1> Perlitbeton 300" 1140 PRINT " <2> Perlitbeton 400" 1150 PRINT " <3> Perlitbeton 500" 1160 PRINT " <4> Perlitbeton 600" 1170 PRINT " <5> Polisztirolbeton 250" 1180 PRINT " <6> Polisztirolbeton 300" 1190 PRINT " <7> Polisztirolbeton 350" 1195 PRINT " <8> Egyszemcsés közuzalék- " 1198 PRINT " beton 1750" 1200 PRINT :PRINT " <0> Elözö oldal " 1210 GET A$ 1222 IF A$=""THEN 1210 1230 IF A$="0"THEN 900 1240 IF A$<"1"ORA$>"8"THEN 1210 1250 RESTORE 1255 1255 DATA 0.12,0.14,0.16,0.2,0.08,0.1,0.12,0.76 1260 FOR J=1TOVAL(A$) 1265 READ L(N) 1268 NEXT 1280 LET A=S(N)/L(N) 1290 RETURN 1700 ! 1702 ! faanyagok, lemezek 1704 ! 1710 TEXT ! 23456789012345678901234567890123456789 1720 PRINT " Faanyagok, Lemezek 1. testsürüség" 1725 PRINT "--------------------------------------" 1730 PRINT " <1> Fenyöfa 400" 1740 PRINT " <2> Fenyöfa 550" 1750 PRINT " <3> Tölgyfa 750" 1760 PRINT " <4> Farostlemez 400" 1770 PRINT " <5> Farostlemez 500" 1780 PRINT " <6> Gipszkarton lemez 1140" 1790 PRINT :PRINT " <0> Következö oldal " 1800 GET A$ 1820 IF A$=""THEN 1800 1830 IF A$="0"THEN 1900 1840 IF A$<"1"ORA$>"6"THEN 1800 1850 RESTORE 1855 1855 DATA 0.13,0.19,0.22,0.1,0.12,0.23 1860 FOR J=1TOVAL(A$) 1865 READ L(N) 1868 NEXT 1870 LET A=S(N)/L(N) 1875 RETURN 1900 TEXT ! 23456789012345678901234567890123456789 1920 PRINT " Faanyagok, Lemezek 2. testsürüség" 1925 PRINT " -------------------------------------" 1930 PRINT " <1> Faforgåcslap 650" 1940 PRINT " <2> Faforgåcslap 750" 1950 PRINT " <3> Karton (papir) lemez 700" 1960 PRINT " <4> Azbesztcement lemez 1800" 1970 PRINT " <5> Azbesztcement lemez 2000" 1980 PRINT " <6> Beton IP faforgåcslap 1200" 1990 PRINT :PRINT " <0> Elözö oldal " 2000 GET A$ 2020 IF A$=""THEN 2000 2030 IF A$="0"THEN 1710 2040 IF A$<"1"ORA$>"6"THEN 2000 2050 RESTORE 2055 2055 DATA 0.16,0.19,0.17,0.42,0.45,0.26 2060 FOR J=1TOVAL(A$) 2065 READ L(N) 2068 NEXT 2070 LET A=S(N)/L(N) 2075 RETURN 2500 ! höszigetelö anyagok 1. 2510 TEXT ! 23456789012345678901234567890123456789 2520 PRINT " Höszigetelö anyagok 1. testsürüség" 2525 PRINT " -------------------------------------" 2530 PRINT " <1> Polisztirolhab 15" 2540 PRINT " <2> Polisztirolhab 20" 2550 PRINT " <3> Nikecell `S` 28" 2560 PRINT " <4> Poliuretån keményhab 40" 2570 PRINT " <5> Poliuretån lågyhab 30" 2580 PRINT " <6> Åsvånygyapot 100" 2590 PRINT " <7> Åsvånygyapot 150" 2600 PRINT " <8> Isolith `L` isopanel 140" 2610 PRINT " <9> Fagyapot 550" 2620 PRINT :PRINT " <0> Következö oldal " 2700 GET A$ 2710 IF A$=""THEN 2700 2730 IF A$="0"THEN 2800 2740 IF A$<"1"ORA$>"9"THEN 2700 2750 RESTORE 2755 2755 DATA 0.04,0.042,0.047,0.035,0.045,0.042,0.044,0.047,0.1 2760 FOR J=1TOVAL(A$) 2765 READ L(N) 2768 NEXT 2770 LET A=S(N)/L(N) 2775 RETURN 2800 ! hoszigetelo anyagok 2. 2810 TEXT ! 23456789012345678901234567890123456789 2820 PRINT " Höszigetelö anyagok 2. testsürüség" 2825 PRINT " -------------------------------------" 2830 PRINT " <1> Üveggyapot 200" 2840 PRINT " <2> `TEL` üveggyapot 20-110" 2850 PRINT " <3> Habüveg 350" 2860 PRINT " <4> Habüveg 400" 2870 PRINT " <5> Köszivacslap 750" 2880 PRINT " <6> Köszivacslap 1100" 2890 PRINT " <7> Perlitbeton 130" 2893 PRINT " <8> TERMONIT hab 40" 2895 PRINT " <9> Parafalemez 110" 2898 PRINT :PRINT " <0> Elözö oldal " 2900 GET A$ 2910 IF A$=""THEN 2900 2930 IF A$="0"THEN 2500 2940 IF A$<"1"ORA$>"9"THEN 2900 2950 RESTORE 2955 2955 DATA 0.058,0.035,0.93,0.105,0.174,0.35,0.068,0.034,0.046 2960 FOR J=1TOVAL(A$) 2965 READ L(N) 2968 NEXT 2970 LET A=S(N)/L(N) 2975 RETURN 3300 ! tegla, falazoblokk 1. 3310 TEXT ! 23456789012345678901234567890123456789 3320 PRINT " Tégla, Falazoblokk 1. testsürüség" 3325 PRINT " -------------------------------------" 3330 PRINT " <1> Falburkolo tégla v=12cm 1800" 3340 PRINT " <2> Proton falazat v=30cm 800" 3350 PRINT " <3> Gåzszilikåt falazat v=30cm 630" 3360 PRINT " <4> Gåzszilikåt falazat v=30cm 615" 3370 PRINT " <5> ALFA falazat v=29cm 740" 3380 PRINT " <6> RÅBA falazat v=25cm 710" 3390 PRINT " <7> RÅBA falazat v=38cm 710" 3400 PRINT " <8> Kisméretü tömör tégla 1730" 3410 PRINT " <9> Soklyuku tégla (C1) 1280" 3420 PRINT :PRINT " <0> Måsodik oldal " 3500 GET A$ 3510 IF A$=""THEN 3500 3520 IF A$="0"THEN 3600 3540 IF A$<"1"ORA$>"9"THEN 3500 3550 RESTORE 3555 3555 DATA 0.93,0.31,0.27,0.34,0.42,0.4,0.35,0.78,0.5 3560 FOR J=1TOVAL(A$) 3565 READ L(N) 3568 NEXT 3570 LET A=S(N)/L(N) 3575 RETURN 3600 ! tegla, falazoblokk 2. 3610 TEXT ! 23456789012345678901234567890123456789 3620 PRINT " Tégla, Falazoblokk 2. testsürüség" 3625 PRINT " -------------------------------------" 3630 PRINT " <1> Kevéslyuku téglafal " 3640 PRINT " (A,A1,A2) 1530" 3650 PRINT " Üreges falazoblokk " 3660 PRINT " <2> B25 V=25cm 1220" 3670 PRINT " <3> B29 V=29cm 1520" 3680 PRINT " <4> B30 V=30cm 1460" 3690 PRINT " <5> B38 V=38cm 1650" 3693 PRINT " Tufabeton blokk " 3695 PRINT " <6> TB50 V=30cm 1350" 3696 PRINT " <7> TB35 V=30cm 1250" 3698 PRINT :PRINT " <0> Harmadik oldal " 3700 GET A$ 3710 IF A$=""THEN 3700 3730 IF A$="0"THEN 3800 3740 IF A$<"1"ORA$>"7"THEN 3700 3750 RESTORE 3755 3755 DATA 0.7,0.49,0.6,0.64,0.45,0.64,0.5 3760 FOR J=1TOVAL(A$) 3765 READ L(N) 3768 NEXT 3770 LET A=S(N)/L(N) 3775 RETURN 3800 ! tégla, falazoblokk 3. 3810 TEXT ! 23456789012345678901234567890123456789 3820 PRINT " Tégla, Falazoblokk 3. testsürüség" 3825 PRINT " -------------------------------------" 3830 PRINT " <1> Gåzszilikåt höszgetelölap " 3840 PRINT " falazat 537" 3850 PRINT " <2> TERMOTON falazat V=30cm na" 3860 PRINT " <3> UNIFORM falazat V=30cm na" 3870 PRINT " <4> UNIFORM falazat V=45cm na" 3880 PRINT " <5> Köszivacs lap falazat 780" 3890 PRINT " <6> Gipszperlit falazat V=8 700" 3893 PRINT " <7> Gipszperlit falazat V=10 900" 3896 PRINT " <8> Egetett agyag falazat 1350" 3898 PRINT :PRINT " <0> Elsö oldal " 3900 GET A$ 3910 IF A$=""THEN 3900 3930 IF A$="0"THEN 3300 3940 IF A$<"1"ORA$>"8"THEN 3900 3950 RESTORE 3955 3955 DATA 0.24,0.3,0.55,0.42,0.23,0.2,0.23,0.65 3960 FOR J=1TOVAL(A$) 3965 READ L(N) 3968 NEXT 3970 LET A=S(N)/L(N) 3975 RETURN 4100 ! habarcsok, vakolatok 1. 4110 TEXT ! 23456789012345678901234567890123456789 4120 PRINT " Habarcsok, vakolatok 1. testsürüség" 4125 PRINT " -------------------------------------" 4130 PRINT " <1> Mészvakolat 1650" 4140 PRINT " <2> javitott mészvakolat 1700" 4150 PRINT " <3> Cementvakolat 1800" 4160 PRINT " <4> Nemesvakolat 1850" 4170 PRINT " <5> Perlitvakolat 800" 4180 PRINT " <6> Perlitvakolat 500" 4185 PRINT " <7> Perlitvakolat 350" 4190 PRINT " <8> Perlithabarcs 300" 4195 PRINT " <9> Perlithabarcs 400" 4198 PRINT :PRINT " <0> következö oldal " 4200 GET A$ 4210 IF A$=""THEN 4200 4230 IF A$="0"THEN 4300 4240 IF A$<"1"ORA$>"9"THEN 4200 4250 RESTORE 4255 4255 DATA 0.81,0.87,0.93,0.99,0.87,0.174,0.127,0.12,0.14 4260 FOR J=1TOVAL(A$) 4265 READ L(N) 4268 NEXT 4270 LET A=S(N)/L(N) 4275 RETURN 4300 ! habarcsok, vakolatok 2. 4310 TEXT ! 23456789012345678901234567890123456789 4320 PRINT " Habarcsok, vakolatok 2. testsürüség" 4325 PRINT " -------------------------------------" 4330 PRINT " <1> DRYVIT Kvarc Putz 1800" 4340 PRINT " <2> Polisztirolhabarcs vakolat 300" 4350 PRINT " <3> Gipszvakolat 800" 4360 PRINT " <4> Gipszes simitovakolat 1200" 4370 PRINT " <5> DRYVIT Primus 1800" 4380 PRINT " <6> Rabitz 1200" 4390 PRINT " <7> TERRA-NOVA nemesvakolat 1700" 4393 PRINT " <8> TERRA-NOVA höszig. vakolat 600" 4395 PRINT " <9> HÖSTOP höszigetelö vakolat 350" 4398 PRINT :PRINT " <0> Elözö oldal " 4400 GET A$ 4410 IF A$=""THEN 4400 4430 IF A$="0"THEN 4100 4440 IF A$<"1"ORA$>"9"THEN 4400 4450 RESTORE 4455 4455 DATA 1,0.09,0.29,0.52,1,0.43,0.87,0.11,0.08 4460 FOR J=1TOVAL(A$) 4465 READ L(N) 4468 NEXT 4470 LET A=S(N)/L(N) 4475 RETURN 4900 ! feltöltések 4910 TEXT ! 23456789012345678901234567890123456789 4920 PRINT " Feltöltések testsürüség" 4925 PRINT " -------------------------------------" 4930 PRINT " <1> Homok feltöltés 1600" 4940 PRINT " <2> Kavics feltöltés 1800" 4950 PRINT " <3> Kazånsalak feltöltés 800" 4960 PRINT " <4> Kohosalak feltöltés 1400" 4970 PRINT " <5> Duzzasztott perlit 110" 4980 PRINT " <6> Duzzasztott perlit 130" 4990 PRINT " <7> Vizzel töltött perlit 180" 5000 GET A$ 5010 IF A$=""THEN 2900 5030 IF A$="0"THEN 2500 5040 IF A$<"1"ORA$>"7"THEN 2900 5050 RESTORE 5055 5055 DATA 0.58,0.35,0.29,0.45,0.052,0.058,0.08 5060 FOR J=1TOVAL(A$) 5065 READ L(N) 5068 NEXT 5070 LET A=S(N)/L(N) 5075 RETURN 5700 ! födémszerkezetek 5710 TEXT ! 23456789012345678901234567890123456789 5720 PRINT " Födémszerkezetek " 5725 PRINT " -------------------------------------" 5730 PRINT " <1> Vasbeton pallofödém +1cm vakolat " 5740 PRINT " <2> Vasbetongerendås födém +1cm vak. " 5750 PRINT " <3> Kermiaelemes födém felbetonnal, " 5760 PRINT " vakolat nélkül " 5770 PRINT " <4> Bohn födém +1cm vakolat " 5780 PRINT " <5> Monolit vasbetonlemez födém " 5800 GET A$ 5810 IF A$=""THEN 2900 5830 IF A$="0"THEN 2500 5840 IF A$<"1"ORA$>"5"THEN 2900 5850 RESTORE 5855 5855 DATA 1.2,1.2,0.66,0.76,1.55 5860 FOR J=1TOVAL(A$) 5865 READ L(N) 5868 NEXT 5870 LET A=S(N)/L(N) 5875 RETURN 6500 ! Burkolatok 6510 TEXT ! 23456789012345678901234567890123456789 6520 PRINT " Burkolatok " 6525 PRINT " ------------------------" 6530 PRINT " <1> Szalagparketta " 6540 PRINT " <2> Parkettapanel " 6550 PRINT " <3> Tölgyparketta " 6560 PRINT " <4> Hajopadlo " 6570 PRINT " <5> Habalåtétes szönyeg" 6580 PRINT " <6> Esztrich " 6590 PRINT " <7> Kölap burkolat " 6592 PRINT " <8> Csempe burkolat " 6595 PRINT " <9> Padloburkolo tégla " 6600 GET A$ 6610 IF A$=""THEN 6600 6640 IF A$<"1"ORA$>"9"THEN 2900 6650 RESTORE 6655 6655 DATA 0.21,0.2,0.22,0.19,0.044,0.23,3.5,1.054,0.5 6660 FOR J=1TOVAL(A$) 6665 READ L(N) 6668 NEXT 6670 LET A=S(N)/L(N) 6675 RETURN 7300 ! egyeb anyagok 7310 TEXT ! 23456789012345678901234567890123456789 7320 PRINT " Egyéb anyagok testsürüség" 7325 PRINT " -------------------------------------" 7330 PRINT " <1> Aluminium lemez " 7340 PRINT " <2> Gumi lemez " 7350 PRINT " <3> Linoleum " 7360 PRINT " <4> Habüveg 400" 7370 PRINT " <5> Köszivacslap 750" 7400 GET A$ 7410 IF A$=""THEN 7400 7440 IF A$<"1"ORA$>"5"THEN 2900 7450 RESTORE 7455 7455 DATA 170,.15,.38,.06,.76 7460 FOR J=1TOVAL(A$) 7465 READ L(N) 7468 NEXT 7470 LET A=S(N)/L(N) 7475 RETURN 8000 PRINT :PRINT "--- Nem felel meg a szabvånynak!" 8010 PRINT :PRINT "--- A külsö oldalra tegyen "; 8020 PRINT -(INT((.04*Z*K^2/(1+Z*K))*1000))/10;"cm " 8030 PRINT "--- polisztirolhab szigetelo anyagot." 8099 RETURN