Antenas e Linhas de Transmissão

23 de julho de 2017 MSX-Basic 0 comentários Aplicativos, Didáticos

Programa com informações sobre construção e funcionamento de vários tipos de antenas, para freqüências diversas.

Teste o programa no WebMSX – The Online MSX Emulator

Além de cálculos sobre linhas de transmissão.
Ideal para radioamadores.

Funções:

F1 = Dipolo Simples
F2 = Dipolo Reduzido
F3 = Dipolo em Leque
F4 = Plano Terra
F5 = Hertz
F6 = Antenas com Linha Aberta
F7 = Quarto Inclinado
F8 = Linhas de Transmissão
F10 = Gráfico (Ganho/Ângulos)

Contribuição: Jeimes Uchôa

10 CLS:CLEAR:KEYOFF:SCREEN2:COLOR15,1,1
20 KEY1,"A":KEY2,"B":KEY3,"C":KEY4,"D":KEY5,"E"
30 KEY6,"F":KEY7,"G":KEY8,"H":KEY9,"I":KEY10,"J"
40 SCREEN0:LOCATE4,5:PRINT"ANTENAS E LINHAS DE TRANSMISSŽO"
50 PP$="L16V12N40V4R9N40R9N40R9N40V2R9N40":PLAYPP$:PA$="L16V10N45R9V4N45"
60 PRINT:LOCATE9,7:PRINT"F1 - Dipolo Simples"
70 LOCATE9,8:PRINT"F2 - Dipolo Reduzido":LOCATE9,9:PRINT"F3 - Dipolo em Leque"
80 LOCATE9,10:PRINT"F4 - Plano Terra":LOCATE9,11:PRINT"F5 - Hertz"
90 LOCATE9,12:PRINT"F6 - Antenas com Linha Aberta"
100 LOCATE9,13:PRINT"F7 - Quarto Inclinado"
110 LOCATE9,14:PRINT"F8 - Linhas de Transmiss„o"
120 LOCATE9,15:PRINT"F10 - Gr fico (Ganho/Angulos)"
130 LOCATE9,16:PRINT"RETorno - Card pio"
140 DEFFNC(X)=(142.65/F)/2:DEFFNH(X)=INT((300/F)*.2)
150 IN$=INKEY$:IFIN$=""THEN150ELSEPLAYPA$
160 IFIN$="A"THEN210 ELSE IFIN$="B"THEN 520 ELSE IFIN$="C"THEN830
170 IFIN$="D"THEN1140 ELSE IFIN$="E"THEN 1490 ELSE IFIN$="F"THEN2060
180 IFIN$="G" THEN5030 ELSE IFIN$="H" THENRUN"ANT-2.BAS" ELSE IFIN$="J" THEN4410
190 IFIN$<>"A"ANDIN$<>"B"ANDIN$<>"C"ANDIN$<>"E"ANDIN$<>"F"THEN20
200 IFIN$<>"G"ANDIN$<>"H"ANDIN$<>"I"ANDIN$<>"J"THEN20
210 CLS:LOCATE13,9:PRINT"Dipolo Simples":GOSUB1970
220 SCREEN2:CIRCLE(37,66),2:LINE(37,66)-(207,66):CIRCLE(207,66),2
230 DRAW"BM117,66U1R10D2L10U1R3C1R5C15R2"
240 DRAW"BM37,70C15D5BD3D5BD3D5":DRAW"BM124,70C15D5BD3D5BD3D5"
250 DRAW"BM120,70C15D5BD3D5BD3D5":DRAW"BM207,70C15D5BD3D5BD3D5"
260 OPEN"GRP:" FOR OUTPUT AS#1:PRESET(50,80):PRINT#1,USING"###.###";FNC(F)
270 PRESET(137,80):PRINT#1,USING"###.###";FNC(F)
280 PRESET(78,90):PRINT#1,"m":PRESET(165,90):PRINT#1,"m"
290 PRESET(63,110):PRINT#1,"Eis o seu Dipolo.":FORT=1TO1000:NEXT
300 PRESET(63,110):COLOR 1:PRINT#1,"Eis o seu Dipolo.":COLOR 15
310 FORC=1TO2:IFC=2THENCOLOR1
320 PRESET(5,120):PRINT#1,"Proximidade … terra, rvores,mas-"
330 PRESET(5,128):PRINT#1,"tros,etc.,pode dessintoniz -la."
340 PRESET(5,140):PRINT#1,"Se f“r o caso, ajuste-a por in-"
350 PRESET(5,148):PRINT#1,"crementos iguais, nos extremos,"
360 PRESET(5,156):PRINT#1,"procurando o  m¡nino de rela`„o"
370 PRESET(5,164):PRINT#1,"de ondas estacion rias  na fre-"
380 PRESET(5,172):PRINT#1,"quˆncia acima."
390 PRESET(10,5):PRINT#1,F;"MHz"
400 IFZ$="Z"THEN490
410 IFC=2THEN430
420 A$=INKEY$:IFA$="" THEN420 ELSE NEXTC
430 COLOR15:PRESET(5,103):PRINT#1,"Se instalada …";INT((300/F)*.2);"m de solo bom"
440 PRESET(5,111):PRINT#1,"condutor (ou mais alta),cabo de"
450 PRESET(5,119):PRINT#1,"70 Ohms casar  melhor. Do  con-"
460 PRESET(5,127):PRINT#1,"tr rio,use cabo (preferivelmen-"
470 PRESET(5,135):PRINT#1,"te RG 213) de 50 Ohms."
480 IFIN$="A"THENGOSUB2010
490 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7"
500 IS$=INKEY$:IFIS$=""THEN500
510 CLOSE:SCREEN0:GOTO20
520 CLS:LOCATE9,10:PRINT"   Dipolo Reduzido":GOSUB1970
530 SCREEN2:CIRCLE(37,46),2:DRAW"R80U1R10D2L10U1R3BR4R3R80":CIRCLE(207,46),2
540 FORT=1TO1000:NEXT
550 CIRCLE(42,80),2:DRAW"BM37,46C1R40C15G33":FORT=1TO1000:NEXT
560 CIRCLE(77,86),2:DRAW"BM37,46C1R40G33E33C15D40":FORT=1TO1000:NEXT
570 DRAW"BM37,40C1R130D6R40L40C15E31":CIRCLE(199,14),2:FORT=1TO1000:NEXT
580 DRAW"BM37,42C15U5BU3U5BU3U5":DRAW"BM124,50C15D5BD3D5BD3D3"
590 DRAW"BM120,42C15U5BU3U5BU3U5":DRAW"BM207,50C15D5BD3D5BD3D5"
600 DRAW"BM167,80C15D5":DRAW"BM167,49D5":OPEN"GRP:" FOR OUTPUT AS#1
610 PRESET(50,20):PRINT#1,USING"###.###";FNC(F)
620 PRESET(137,57):PRINT#1,USING"###.###";FNC(F)
630 PRESET(78,30):PRINT#1,"m":PRESET(167,67):PRINT#1,"m"
640 PRESET(102,88):PRINT#1,"m(min)"
650 PRESET(93,80):PRINT#1,USING"###.###";FNC(F)
660 PRESET(80,80):PRINT#1,"--":PRESET(152,80):PRINT#1,"--"
670 PRESET(14,120):PRINT#1," Eis o seu Dipolo Reduzido."
680 FORT=1TO1500:NEXT
690 PRESET(14,120):COLOR 1:PRINT#1," Eis o seu Dipolo Reduzido.":COLOR15
700 FORC=1TO2:IFC=2THENCOLOR1
710 PRESET(5,120):PRINT#1,"Este poupa espa`o,  sem a perda"
720 PRESET(5,130):PRINT#1,"de sinal inerente a antenas en-"
730 PRESET(5,140):PRINT#1,"curtadas por bobinas."
740 IFC=2THENCOLOR15:GOTO760
750 A$=INKEY$:IFA$="" THEN750 ELSE NEXTC
760 FORC=1TO2:IFC=2THENCOLOR1
770 PRESET(5,105):PRINT#1,"As extremidades podem ser dobra"
780 PRESET(5,115):PRINT#1,"-das em qualquer dire`„o, desde"
790 PRESET(5,125):PRINT#1,"que  no m¡nimo em  ƒngulo  reto"
800 PRESET(5,135):PRINT#1,"com  a extens„o central linear."
810 IFC=2 THEN COLOR15:GOTO310
820 A$=INKEY$:IFA$="" THEN 820 ELSE NEXTC
830 CLS:LOCATE12,10:PRINT"Dipolo em Leque":GOSUB1970
840 DEFFNC(X)=(125.73/F)/2:DEFFND(X)=13.716/F
850 SCREEN2:LINE(37,40)-(217,80):LINE(217,40)-(37,80)
860 DRAW"BM123,60C15UR10D2L10U2D1L2R3C1R7C15R2"
870 CIRCLE(37,40),2:CIRCLE(217,80),2:CIRCLE(217,40),2:CIRCLE(37,80),2
880 DRAW"BM123,65D5BD3D5BD3D5BD3D5":DRAW"BM131,65D5BD3D5BD3D5BD3D5"
890 DRAW"BM217,46D5":DRAW"BM37,46D5":DRAW"BM217,69D5"
900 DRAW"BM217,88D6":DRAW"BM37,88D6":OPEN"GRP:" FOR OUTPUT AS#1
910 PRESET(50,80):PRINT#1,USING"###.###";FNC(F)
920 PRESET(137,80):PRINT#1,USING"###.###";FNC(F)
930 PRESET(3,57):PRINT#1,USING"###.###";FND(F)
940 PRESET(63,57):PRINT#1,"m"
950 PRESET(175,57):PRINT#1,USING"###.###";FND(F)
960 PRESET(235,57):PRINT#1,"m":PRESET(78,90):PRINT#1,"m"
970 PRESET(165,90):PRINT#1,"m"
980 PRESET(28,145):PRINT#1,"Eis o seu Dipolo em Leque.":FORT=1TO1500:NEXT
990 PRESET(28,145):COLOR1:PRINT#1,"Eis o seu Dipolo em Leque."
1000 FORC=1TO2:IFC=2THENCOLOR1 ELSE COLOR15
1010 PRESET(5,145):PRINT#1,"Caracteriza-se por alta eficiˆn"
1020 PRESET(5,155):PRINT#1,"-cia,excelente largura de faixa"
1030 PRESET(5,165):PRINT#1,"operacional e tamanho reduzido."
1040 IFC=2THENCOLOR15:GOTO1060
1050 A$=INKEY$:IFA$=""THEN1050:ELSE NEXTC
1060 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15
1070 PRESET(5,130):PRINT#1,"Corretamente instalada, cortada"
1080 PRESET(5,145):PRINT#1,"para  o centro da faixa de 80 m"
1090 PRESET(5,155):PRINT#1,"ou 40 m, cobri-las-  satisfato-"
1100 PRESET(5,165):PRINT#1,"riamente sem sintonizador,o que"
1110 PRESET(5,175):PRINT#1,"n„o ocorre com dipolos comuns."
1120 IFC=2THENCOLOR15:GOTO310
1130 A$=INKEY$:IFA$=""THEN1130 ELSE NEXTC
1140 CLS:LOCATE10,10:PRINT"Plano Terra - ¬ Onda":GOSUB1970
1150 DEFFNC(X)=71.33/F:DEFFNR(X)=73.16/F
1160 SCREEN2:LINE(127,10)-(127,76):CIRCLE(127,10),2
1170 DRAW"BM127,82L1U10R2D10L1U1"
1180 LINE(45,50)-(209,110):CIRCLE(45,50),2:CIRCLE(209,110),2
1190 LINE(209,50)-(45,110):CIRCLE(209,50),2:CIRCLE(45,110),2:LINE(134,7)-(140,5)
1200 DRAW"BM140,7C1D3C15D5C1D3C15D5C1D3C15D5C1D19C15D5C1D3C15D5C1D3C15D5"
1210 LINE(214,52)-(222,54):LINE(159,80)-(166,78)
1220 LINE(200,65)-(207,63):OPEN"GRP:" FOR OUTPUT AS#1
1230 PRESET(175,69):PRINT#1,"RA":PRESET(135,37):PRINT#1,"EV"
1240 PRESET(7,70):PRINT#1,"EV=      m"
1250 PRESET(23,70):PRINT#1,USING"###.###";FNC(F)
1260 PRESET(7,80):PRINT#1,"RA=      m"
1270 PRESET(23,80):PRINT#1,USING"###.###";FNR(F)
1280 PRESET(44,130):PRINT#1,"Eis o seu Plano Terra":FORT=1TO1000:NEXT
1290 PRESET(44,130):COLOR1:PRINT#1,"Eis o seu Plano Terra":COLOR15
1300 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15
1310 PRESET(5,130):PRINT#1,"Instalada livre de obst culos,‚"
1320 PRESET(5,138):PRINT#1,"excelente antena para DX,embora"
1330 PRESET(5,146):PRINT#1,"sens¡vel a ru¡dos  de igni`„o e"
1340 PRESET(5,154):PRINT#1,"motores de escova. Em 15 e 10 m"
1350 PRESET(5,162):PRINT#1,"pode ser feita de tubo de  alu-"
1360 PRESET(5,170):PRINT#1,"m¡nio.  Em todo caso,  cuide do"
1370 PRESET(5,178):PRINT#1,"bom isolamento dos elementos."
1380 IFC=2THENCOLOR15:GOTO1400
1390 A$=INKEY$:IFA$="" THEN420 ELSE NEXTC
1400 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15
1410 PRESET(5,130):PRINT#1,"Sua impedƒncia,de aprox.35 Ohms"
1420 PRESET(5,138):PRINT#1,"resultar  em estacion ria 1:1.5"
1430 PRESET(5,146):PRINT#1,"com coaxial de  50 Ohms,  o que"
1440 PRESET(5,154):PRINT#1,"poder  ser corrigido inclinando"
1450 PRESET(5,162):PRINT#1,"os radiais para baixo,  at‚ que"
1460 PRESET(5,170):PRINT#1,"se obtenha casamento melhor."
1470 IFC=2THENCOLOR15:Z$="Z":GOTO310
1480 A$=INKEY$:IFA$=""THEN1480 ELSE NEXTC:CLS
1490 CLS:LOCATE13,10:PRINT"Hertz Multibanda":GOSUB1970
1500 SCREEN2:CIRCLE(70,50),2:LINE(70,50)-(250,50):CIRCLE(250,50),2
1510 DRAW"BM70,75R7U5BU5U5R10BR10R10BR10R10BR65R10BR10R10BR10R10"
1520 DRAW"BM70,50D20":DRAW"BM250,54DR4BD2D4"
1530 CIRCLE(65,70),6,15,,3,5:CIRCLE(63,70),6,15,,3,5:CIRCLE(61,70),6,15,,3,5
1540 CIRCLE(65,70),6,15,,3,5:CIRCLE(63,70),6,15,,3,5:CIRCLE(61,70),6,15,,3,5
1550 CIRCLE(59,70),6,15,,3,5:CIRCLE(57,70),6,15,,3,5:DRAW"BM52,70R4L2U9R5D2"
1560 DRAW"BM66,70R4"
1570 DRAW"BM52,70R4BD8D20L3G3E3R6G3E3L3G3E3U20R4U3D6U3BR2U3D6U3R4U8"
1580 DRAW"BM61,78E3G6":DRAW"BM52,70U5L24D10R24U5":OPEN"GRP:"FOR OUTPUT AS#1
1590 PRESET(30,67):PRINT#1,"ROE"
1600 DRAW"BM52,85U5L24D10R12D5R16L16U5R12U5":DRAW"BM28,85L3U15R3"
1610 PRESET(33,82):PRINT#1,"TR":PRESET(130,57):PRINT#1,USING"###.###";FNC(F)*2
1620 PRESET(157,65):PRINT#1,"m"
1630 PRESET(27,130):PRINT#1,"Eis sua Hertz Multibanda":FORT=1TO1000:NEXT
1640 PRESET(27,130):COLOR1:PRINT#1,"Eis sua Hertz Multibanda":COLOR15
1650 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15
1660 PRESET(5,110):PRINT#1,"Excelente conjunto para emergˆn"
1670 PRESET(5,118):PRINT#1,"cia ou excurs”es,  j  que opera"
1680 PRESET(5,126):PRINT#1,"em todas as faixas superiores …"
1690 PRESET(5,134):PRINT#1,"fundamental prevista e ‚ de mon"
1700 PRESET(70,25):PRINT#1,"Acima de";F;"MHz"
1710 PRESET(5,142):PRINT#1,"tagem r pida.Condi`„o essencial"
1720 PRESET(5,150):PRINT#1,"‚ bom aterramento.Na falta des-"
1730 PRESET(5,158):PRINT#1,"-te  (e at‚ al‚m dele) ,  ligue"
1740 PRESET(5,166):PRINT#1,"fio de meio  comprimento da an-"
1750 PRESET(5,174):PRINT#1,"tena a chassis,fazendo-o  acom-"
1760 PRESET(5,182):PRINT#1,"panhar a antena, solto no ch„o."
1770 IFC=2THENCOLOR15:GOTO1790
1780 A$=INKEY$:IFA$=""THEN420 ELSE NEXTC
1790 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15
1800 PRESET(5,110):PRINT#1,"Como a irradia`„o ocorre a par-"
1810 PRESET(5,118):PRINT#1,"tir do ponto de conex„o com o a"
1820 PRESET(5,126):PRINT#1,"coplador, este n„o deve situar-"
1830 PRESET(5,134):PRINT#1,"se pr¢ximo ao transmissor.Entre"
1840 PRESET(5,142):PRINT#1,"ligue equipamento com acoplador"
1850 PRESET(5,150):PRINT#1,"mediante coaxial de  50 Ohms  e"
1860 PRESET(5,158):PRINT#1,"sintonize o acoplador para  es-"
1870 PRESET(5,166):PRINT#1,"tacion ria (ROE) de 1:1.1."
1880 IFC=2THENCOLOR15:GOTO1910
1890 A$=INKEY$:IFA$=""THEN420 ELSE NEXTC
1900 FORC=1TO2
1910 PRESET(45,115):PRINT#1,"Dados para o Acoplador."
1920 PRESET(5,130):PRINT#1,"Bobina:- Diametro = 65 mm"
1930 PRESET(5,138):PRINT#1,"40 espiras, fio 2mm diam."
1940 PRESET(5,146):PRINT#1,"Passo de 6 esp/25 mm"
1950 PRESET(5,162):PRINT#1,"Capacitor Vari vel: 150 pF"
1960 GOTO490
1970 PRINT:PRINT"     Cobre ou Aluminio (diam.2-3 mm)"
1980 PLAY"R4V8N82":LOCATE2,16:PRINT"Para que Frequˆncia? (MHz)- Ex:27.125"
1990 LOCATE18,20:LINEINPUT F$
2000 F=VAL(F$):IF F<=0 THEN 20 ELSE RETURN
2010 PRESET(5,146):PRINT#1,"A mesma antena,  suportada  por"
2020 PRESET(5,154):PRINT#1,"mastro  central  (n„o condutor)"
2030 PRESET(5,162):PRINT#1,"e  as  pernas  inclinadas  para"
2040 PRESET(5,170):PRINT#1,"baixo (45§),ser  'V Invertida',"
2050 PRESET(5,178):PRINT#1,"onidirecional.":RETURN
2060 CLS:LOCATE1,12:PRINT"Algumas destas antenas s„o  de  grande"
2070 LOCATE1,13:PRINT"extens„o.Use fio adequado … tra`„o pa-"
2080 LOCATE1,14:PRINT"ra evitar alongamento ou ruptura.":A$=INKEY$:IF A$="" THEN 2080
2090 CLS:LOCATE1,12:PRINT"Para todas as antenas alimentadas por"
2100 LOCATE1,13:PRINT"linha aberta,‚ necess rio acoplador a"
2110 LOCATE1,14:PRINT"propriado,  que casar  a alta impedƒn"
2120 LOCATE1,15:PRINT"cia da ponta da linha (<5000 Ohms),com"
2130 LOCATE1,16:PRINT"a do equipamento.":A$=INKEY$:IFA$="" THEN 2130
2140 CLS:LOCATE1,5:PRINT"Linha aberta  de 300 Ohms  ‚ altamente"
2150 LOCATE1,6:PRINT"recomendada  por facilitar o  trabalho"
2160 LOCATE1,7:PRINT"do acoplador."
2170 LOCATE1,9:PRINT"Evite linha paralela fechada (tipo fi-"
2180 LOCATE1,10:PRINT"ta de TV),que introduzir  perdas e in-"
2190 LOCATE1,11:PRINT"convenientes t‚cnicos."
2200 LOCATE1,13:PRINT"Mantenha a linha aberta distante de pa"
2210 LOCATE1,14:PRINT"-redes e metais (minimo 20 cm) e evite"
2220 LOCATE1,15:PRINT"dobras e curvas abruptas."
2230 LOCATE1,17:PRINT"Corretamente instalada, a linha aberta"
2240 LOCATE1,18:PRINT"‚ a melhor linha de transmiss„o.":A$=INKEY$:IFA$="" THEN 2240
2250 CLEAR 300:SCREEN0:KEYOFF:DEFFNC(X)=142.65/F:DEFFNH(X)=(300/F)*.2
2260 DEFFNL(X)=(75/F)*.975:DEFFNZ(X)=365.2/F:DEFFNN(X)=N-.025
2270 DEFFNW(X)=(300*FNN(N))/F:PA$="L16V10N45R9V4N45":PLAYPA$
2280 ON KEY GOSUB 2470,2490,2510,2530,2550,2590,,,,2450
2290 KEY(1)ON:KEY(2)ON:KEY(3)ON:KEY(4)ON:KEY(5)ON
2300 KEY(6)ON:KEY7,"":KEY8,"":KEY9,"":KEY(10)ON
2310 LOCATE2,3:PRINT"F1=   Z e p p e l i n"
2320 LOCATE6,4:PRINT"(Alimenta`„o Central)"
2330 LOCATE2,6:PRINT"F2=   Z e p p e l i n"
2340 LOCATE6,7:PRINT"(Alimenta`„o pelo Extremo)"
2350 LOCATE2,9:PRINT"F3=   Z e p p e l i n  Direcional"
2360 LOCATE6,10:PRINT"(Dupla ou Colinear)"
2370 LOCATE2,12:PRINT"F4=   Z e p p e l i n  Direcional"
2380 LOCATE6,13:PRINT"(Dupla Expandida ou Colinear 5/8)"
2390 LOCATE2,15:PRINT"F5=   L o n g  W i r e"
2400 LOCATE6,16:PRINT"(Direcional Monobanda)"
2410 LOCATE2,18:PRINT"F6=   L o n g  W i r e"
2420 LOCATE6,19:PRINT"(Direcional Multibanda)"
2430 LOCATE2,21:PRINT"F10= Card pio Principal"
2440 GOTO2440
2450 KEY(1)OFF:KEY(2)OFF:KEY(3)OFF:KEY(4)OFF:KEY(5)OFF:KEY(6)OFF:KEY(10)OFF
2460 RUN20
2470 H=1:CLS:GOSUB1980
2480 H=1:SCREEN2,2:GOTO2640
2490 H=2:CLS:GOSUB1980
2500 H=2:SCREEN2,2:GOTO2640
2510 H=3:CLS:GOSUB1980
2520 H=3:SCREEN2,2:GOTO2650
2530 H=4:CLS:GOSUB1980
2540 H=4:SCREEN2,2:GOTO2880
2550 H=5:CLS:GOSUB1980
2560 PLAY"V8N82"
2570 LOCATE,8:INPUT"Quantos comprimentos de onda deve ter a antena";N$:N=VAL(N$)
2580 H=5:SCREEN2,2:GOTO2880
2590 H=6:CLS:GOSUB1980
2600 PLAY"V8N82"
2610 LOCATE,8:INPUT"Quantos comprimentos de onda deve ter a antena";N$:N=VAL(N$)
2620 H=6:SCREEN2,2:GOTO2880
2630 CIRCLE(115,50),2,1:CIRCLE(123,50),2,1
2640 LINE(70,50)-(170,50):CIRCLE(70,50),2:CIRCLE(170,50),2:GOTO2670
2650 CIRCLE(70,50),2,1:CIRCLE(170,50),2,1
2660 LINE(30,50)-(220,50):CIRCLE(30,50),2:CIRCLE(220,50),2
2670 FORI=1TO32:READ A:A$=A$+CHR$(A):NEXTI:SPRITE$(0)=A$
2680 IFH=2THEN2720
2690 IFH=3ORH=4THEN2730
2700 IFH=5ORH=6THEN2740
2710 FORI=255TO115 STEP -.5:GOTO2750
2720 FORI=255TO62 STEP -.5:GOTO2750
2730 FORI=255TO118 STEP -.5:GOTO2750
2740 FORI=255TO25 STEP -.5
2750 J=50
2760 PUT SPRITE 1,(I,J),15,0
2770 NEXTI
2780 IFH=2THEN2810 ELSE IFH=3THEN2850 ELSE IFH=4THEN2930
2790 IFH=5THEN2950 ELSE IFH=6THEN2980
2800 LINE(116,50)-(122,50),1:CIRCLE(115,50),2:CIRCLE(123,50),2
2810 IFH=2THENCIRCLE(62,50),2
2820 IFH=1ORH=2THEN2830 ELSE 2850
2830 GOTO3070
2840 H$=INKEY$:IFH$=""THEN2840 ELSE RETURN2250
2850 CIRCLE(118,50),2:CIRCLE(126,50),2:LINE(119,50)-(125,50),1:IF H<>3 THEN 2870
2860 GOTO3070
2870 CIRCLE(30,50),2,1:CIRCLE(220,50),2,1
2880 LINE(5,50)-(245,50):CIRCLE(5,50),2:CIRCLE(245,50),2:IFH=4THEN2910
2890 IFH=5 OR H=6 THEN2920
2900 CIRCLE(118,50),2,1:CIRCLE(126,50),2,1:LINE(117,50)-(127,50),15
2910 RESTORE:PRESET(116,50),15:PRESET(128,50),15:GOTO2670
2920 RESTORE:PRESET(116,50),15:PRESET(128,50),15:GOTO2670
2930 LINE(119,50)-(125,50),1:CIRCLE(118,50),2:CIRCLE(126,50),2:IF H<>4 THEN 2950
2940 GOTO3070
2950 LINE(26,50)-(32,50),1:CIRCLE(25,50),2:CIRCLE(35,50),2
2960 DRAW"BM215,50C1R12L12C15E1F2E2F2E2F2E1"
2970 GOTO3070
2980 LINE(22,50)-(36,50),15
2990 DRAW"BM215,50C1R12L12C15E1F2E2F2E2F2E1C1R30L30D1C15D7L4G2E2R4G2E2R4G2"
3000 CIRCLE(245,50),2,1:CIRCLE(5,50),2,1
3010 DRAW"R27C1":CIRCLE(25,50),2:CIRCLE(33,50),2
3020 GOTO3070
3030 DATA128,128,255,128,128,128,255,128,128,128,255,128,128,128,255,128
3040 DATA128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128
3050 DATA128,128,255,128,128,128,255,128,128,128,255,128,128,128,255,128
3060 DATA128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128
3070 OPEN"GRP:" FOR OUTPUT AS#1:PRESET(69,30):PRINT#1,"<           >"
3080 IFH=3THEN3100 ELSE IFH=4THEN3110 ELSE IFH=5 OR H=6 THEN3120
3090 PRESET(89,30):PRINT#1,USING"###.###";FNC(F):GOTO3130
3100 PRESET(89,30):PRINT#1,USING"###.###";FNC(F)*2:GOTO3130
3110 PRESET(89,30):PRINT#1,USING"###.###";FNZ(F):GOTO3130
3120 PRESET(89,30):PRINT#1,USING"###.###";FNW(F):GOTO3130
3130 PRESET(118,37):PRINT#1,"m":IF H=1 OR H=2 THEN3170
3140 IFH=3 OR H=4 THEN3160:ELSE PRESET(61,110)
3150 PRINT#1,"Eis a sua Long Wire":FORT=1TO1200:NEXT:COLOR15:GOTO3230
3160 PRESET(15,110):PRINT#1,"Eis sua Zeppelin Direcional":COLOR15:GOTO3180
3170 PRESET(53,110):PRINT#1,"Eis sua Zeppelin":COLOR15
3180 FORT=1TO1000:NEXT:IFH=3 OR H=4 THEN3200
3190 PRESET(53,110):COLOR1:PRINT#1,"Eis sua Zeppelin":COLOR15:GOTO3240
3200 PRESET(15,110):COLOR 1:PRINT#1,"Eis sua Zeppelin Direcional":COLOR 15
3210 IFH=3 THEN 3240:ELSE PRESET(25,130):PRINT#1,"Dupla, expandida, 2 x 5/8"
3220 FORT=1TO1400:NEXT:LINE(24,128)-(240,140),1,BF
3230 PRESET(61,110):COLOR1:PRINT#1,"Eis a sua Long Wire":COLOR15:GOTO3240
3240 PRESET(130,60):PRINT#1,USING"###.##";FNL(F)
3250 PRESET(180,60):PRINT#1,"m":IF H=5 OR H=6 THEN3300
3260 IFH<>1 THEN3280
3270 DRAW "BM132,61F3H3L7E2G2F2U3":GOTO 3310
3280 IFH=2 THEN DRAW "BM105,61F3H3L32E2G2F2U3":GOTO3310
3290 IFH=3 OR H=4 THEN DRAW "BM132,61F3H3L3E2G2F2U3":GOTO3310
3300 DRAW "BM132,61F3H3L85E2G2F2U3":GOTO 3310
3310 PRESET(117,68):PRINT#1,"ou m£ltiplo ¡mpar"
3320 PRESET(10,10):PRINT#1,F;"MHz"
3330 IFH=3THEN3680 ELSE IFH=4THEN3800 ELSE IFH=5 OR H=6 THEN3900
3340 PRESET(5,90):PRINT#1,"Excelente multibanda,   podendo"
3350 PRESET(5,98):PRINT#1,"trabalhar em qualquer  frequˆn-"
3360 PRESET(5,106):PRINT#1,"cia acima da aqui  especificada"
3370 PRESET(5,114):PRINT#1,"e, eventualmente,… metade desta."
3380 PRESET(5,126):PRINT#1,"Apresenta ganho a partir do se-"
3390 PRESET(5,134):PRINT#1,"gundo harm“nico.":IFH=2 THEN 3430
3400 PRESET(5,146):PRINT#1,"O Dipolo em Leque com esta ali-"
3410 PRESET(5,154):PRINT#1,"menta`„o,‚ uma das melhores an-"
3420 PRESET(5,162):PRINT#1,"tenas multibanda para uso geral."
3430 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7"
3440 IK$=INKEY$:IFIK$=""THEN3440
3450 IFH=2THEN3570
3460 LINE(4,89)-(255,170),1,BF
3470 PRESET(5,90):PRINT#1,"NOTA: O ganho harm“nico de an-"
3480 PRESET(5,98):PRINT#1,"tenas alimentadas pelo  centro"
3490 PRESET(5,106):PRINT#1,"distribui-se por igual em for-"
3500 PRESET(5,114):PRINT#1,"ma de trevo,com centro no pon-"
3510 PRESET(5,122):PRINT#1,"to de alimenta`„o. No entanto,"
3520 PRESET(5,130):PRINT#1,"esta antena, no segundo harm“-"
3530 PRESET(5,138):PRINT#1,"nico,  torna-se colinear,bidi-"
3540 PRESET(5,146):PRINT#1,"recional a 90/180§,  com ganho"
3550 PRESET(5,154):PRINT#1,"de 1.8 dBd."
3560 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840
3570 LINE(4,89)-(255,170),1,BF
3580 PRESET(4,90):PRINT#1,"Batizada a  Zeppelin Verdadeira"
3590 PRESET(4,98):PRINT#1,"porque era a antena  de arraste"
3600 PRESET(4,106):PRINT#1,"usada  nos dirig¡veis do  mesmo"
3610 PRESET(4,114):PRINT#1,"nome. Operada acima desta  fre-"
3620 PRESET(4,122):PRINT#1,"quˆncia,  acent£a l¢bulos m xi-"
3630 PRESET(4,130):PRINT#1,"mos,sempre em trevo, que v„o se"
3640 PRESET(4,138):PRINT#1,"alinhando com  o fio da antena."
3650 PRESET(4,152):PRINT#1,"Um lado da linha realmente fica"
3660 PRESET(4,160):PRINT#1,"em aberto,isolado da antena"
3670 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840
3680 PRESET(4,90):PRINT#1,"Multibanda por excelˆncia,pois"
3690 PRESET(4,98):PRINT#1,"trabalha com alta eficiˆncia  a"
3700 PRESET(4,106):PRINT#1,"partir da metade desta frequˆn-"
3710 PRESET(4,114):PRINT#1,"cia.Aqui ‚ uma colinear de duas"
3720 PRESET(4,122):PRINT#1,"meias ondas em fase, resultando"
3730 PRESET(4,130):PRINT#1,"um ganho de 1.8 dBd, bidirecio-"
3740 PRESET(4,138):PRINT#1,"nal a 90/180§ da antena,com l¢-"
3750 PRESET(4,146):PRINT#1,"bulo de 46§ a -3 dB."
3760 PRESET(4,160):PRINT#1,"Em frequˆncias superiores,forma"
3770 PRESET(4,168):PRINT#1,"l¢bulos m£ltiplos  bem aprovei-"
3780 PRESET(4,176):PRINT#1,"t veis e uniformes."
3790 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840
3800 PRESET(4,90):PRINT#1,"Alto ganho para uma antena sim-"
3810 PRESET(4,98):PRINT#1,"ples(3.2 dBd),aliado a alta bi-"
3820 PRESET(4,106):PRINT#1,"direcionalidade,praticamente i-"
3830 PRESET(4,114):PRINT#1,"senta de l¢bulos secund rios. "
3840 PRESET(4,122):PRINT#1,"ideal para alto rendimente a 90"
3850 PRESET(4,130):PRINT#1,"e 180§ do fio.O l¢bulo ‚ de 32§"
3860 PRESET(4,138):PRINT#1,"nesta frequˆncia.  Naturalmente"
3870 PRESET(4,146):PRINT#1,"tamb‚m ‚ boa multibanda,  acima"
3880 PRESET(4,154):PRINT#1,"e abaixo da frequˆncia de corte."
3890 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840
3900 IFH=6 THEN3930 ELSE PRESET(12,64):PRINT#1,"A"
3910 DRAW"BM14,53D1L1R2L1D1L2R4L2D6BD11D9R3"
3920 DRAW"BM233,47UL1R2L1U1L2R4L2U4L4U3"
3930 DRAW"BM221,46U1L1R2L1U1L2R4L2U2L6"
3940 PRESET(134,10):PRINT#1,"+-550 Ohms":DRAW"BM215,47U3BU2U3BU2U3BU2U3"
3950 IFH=6THEN3980
3960 IFH=5THENDRAW"BM5,47BU2U1BU2U3BU2U3BU2U3"
3970 PRESET(69,76):PRINT#1,"m"
3980 IFH=6THENDRAW"BM33,47BU2U1BU2U3BU2U3BU2U3":GOTO4280
3990 PRESET(226,29):PRINT#1,"B=A"
4000 PRESET(12,76):PRINT#1,USING"###.###";FNC(F)/2
4010 PRESET(2,90):PRINT#1,"Nesta conforma`„o ela ‚ monoban-"
4020 PRESET(2,98):PRINT#1,"da e unidirecional (na dire`„o  "
4030 PRESET(2,106):PRINT#1,"do resistor n„o indutivo  dimen-"
4040 PRESET(2,114):PRINT#1,"sionado para absor`„o da  metade"
4050 PRESET(2,122):PRINT#1,"da potˆncia do transmissor).Tor-"
4060 PRESET(2,130):PRINT#1,"na-se bidirecional com  elimina-"
4070 PRESET(2,138):PRINT#1,"`„o do resistor e da se`„o B,en-"
4080 PRESET(2,146):PRINT#1,"bora ainda predomine sinal nesta"
4090 PRESET(2,154):PRINT#1,"dire`„o.A partir de 4 comprimen-"
4100 PRESET(2,162):PRINT#1,"tos de onda os  l¢bulos  princi-"
4110 PRESET(2,170):PRINT#1,"pais estar„o a aprox.20§ do fio"
4120 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7"
4130 IK$=INKEY$:IFIK$=""THEN4130
4140 LINE(1,89)-(255,190),1,BF
4150 PRESET(2,90):PRINT#1,"Formar-se-  um cone de sinal  ao"
4160 PRESET(2,98):PRINT#1,"redor do fio,resultando conside-"
4170 PRESET(2,106):PRINT#1,"ravel ganho pr tico.Embora o ga-"
4180 PRESET(2,114):PRINT#1,"nho calculado possa  decepcionar"
4190 PRESET(2,122):PRINT#1,"se comparado a outras antenas, o"
4200 PRESET(2,130):PRINT#1,"ganho efetivo ‚ da ordem de pos-"
4210 PRESET(2,138):PRINT#1,"sibilitar comunica`„o imposs¡vel"
4220 PRESET(2,146):PRINT#1,"com Yagis e outras  direcionais."
4230 PRESET(2,154):PRINT#1,"A raz„o ‚ sua grande  rea  e seu"
4240 PRESET(2,162):PRINT#1,"baixo ƒngulo,  al‚m da polariza-"
4250 PRESET(2,170):PRINT#1,"`„o m£ltipla.Veja a outra L-W do"
4260 PRESET(2,178):PRINT#1,"programa."
4270 COLOR 15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO 2840
4280 PRESET(2,90):PRINT#1,"Nesta conforma`„o  ela  ‚ multi-"
4290 PRESET(2,98):PRINT#1,"banda unidirecional … extremida-"
4300 PRESET(2,106):PRINT#1,"de do resistor.Bom aterramento ‚"
4310 PRESET(2,114):PRINT#1,"essencial.  Eliminado resistor e"
4320 PRESET(2,122):PRINT#1,"terra,torna-se semi-bidirecional"
4330 PRESET(2,130):PRINT#1,"com algum sinal para o lado ali-"
4340 PRESET(2,138):PRINT#1,"mentado, sem perda alguma.  Veja"
4350 PRESET(2,146):PRINT#1,"tamb‚m LW Monobanda s“bre carac-"
4360 PRESET(2,154):PRINT#1,"ter¡sticas de irradia`„o,etc.No-"
4370 PRESET(2,162):PRINT#1,"te-se que s¢ ‚ LW antena alimen-"
4380 PRESET(2,170):PRINT#1,"tada no ponto correto  e  com um"
4390 PRESET(2,178):PRINT#1,"comprimento de onda ou mais."
4400 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840
4410 PLAY"V8N82N72N62":SCREEN 2:COLOR 14:FORF=10TO100 STEP10:FORG=25TO225
4420 LINE (G,F)-(G,F):NEXTG:NEXTF:FORG=25TO225 STEP10:FORF=10TO100
4430 LINE(G,F)-(G,F):NEXT F:NEXT G:COLOR 15:OPEN"GRP:"FOR OUTPUT AS #1
4440 PRESET(18,7):PRINT#1,"9":PRESET(18,17):PRINT#1,"8"
4450 PRESET(18,27):PRINT#1,"7":PRESET(18,37):PRINT#1,"6"
4460 PRESET(18,47):PRINT#1,"5":PRESET(18,57):PRINT#1,"4"
4470 PRESET(18,67):PRINT#1,"3":PRESET(18,77):PRINT#1,"2"
4480 PRESET(18,87):PRINT#1,"1":PRESET(18,97):PRINT#1,"0"
4490 PRESET(9,47):PRINT#1,"d":PRESET(9,55):PRINT#1,"B"
4500 PRESET(22,105):PRINT#1,"O":PRESET(42,105):PRINT#1,"1"
4510 PRESET(62,105):PRINT#1,"2":PRESET(82,105):PRINT#1,"3"
4520 PRESET(102,105):PRINT#1,"4":PRESET(122,105):PRINT#1,"5"
4530 PRESET(142,105):PRINT#1,"6":PRESET(162,105):PRINT#1,"7"
4540 PRESET(182,105):PRINT#1,"8":PRESET(202,105):PRINT#1,"9"
4550 PRESET(222,105):PRINT#1,"10":PRESET(45,113):PRINT#1,"Comprimentos de Onda"
4560 GOTO4650
4570 COLOR14
4580 DRAW"BM36,20M37,30M40,40M45,48M55,58M65,64M75,68M85,72M95,73M105,75"
4590 DRAW"M115,76M125,78M135,79M145,80M155,80M165,81M175,82M185,82M195,82"
4600 DRAW"M205,83M215,83M225,83"
4610 COLOR15:LINE(35,100)-(125,60):LINE(125,60)-(155,50)
4620 LINE(155,50)-(185,39):LINE(185,39)-(225,26)
4630 COLOR14:DRAW"BM35,20D20":COLOR15
4640 GOTO4730
4650 PRESET(228,97):PRINT#1,"0§":PRESET(228,87):PRINT#1,"10§"
4660 PRESET(228,77):PRINT#1,"20§":PRESET(228,67):PRINT#1,"30§"
4670 PRESET(228,57):PRINT#1,"40§":PRESET(228,47):PRINT#1,"50§"
4680 PRESET(228,37):PRINT#1,"60§":PRESET(228,27):PRINT#1,"70§"
4690 PRESET(228,17):PRINT#1,"80§":PRESET(228,7):PRINT#1,"90§"
4700 LINE(41,31)-(96,39),1,BF:LINE(132,31)-(179,39),1,BF
4710 COLOR14:PRESET(52,32):PRINT#1,"ƒngulo":DRAW"BM50,35L3G3U2R1":PRESET(52,32)
4720 COLOR15:PRESET(133,32):PRINT#1,"ganho":DRAW"BM171,35R3F3U2L1":GOTO 4570
4730 LINE(0,123)-(255,124),2,B
4740 PLAY"V8N82":PRESET(3,128):PRINT#1,"Eis ganho e ƒngulo de irradia`„o"
4750 PRESET(3,136):PRINT#1,"para qualquer  antena  unifilar"
4760 PRESET(3,144):PRINT#1,"desconsiderada altura e cercani-"
4770 PRESET(3,152):PRINT#1,"as, desde que esticada,  sem do-"
4780 PRESET(3,160):PRINT#1,"bras e comprimento m¡nimo = meia"
4790 PRESET(3,168):PRINT#1,"onda. Importante ‚ observar que,"
4800 PRESET(3,176):PRINT#1,"para antenas alimentadas pelo"
4810 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7"
4820 IK$=INKEY$:IFIK$=""THEN4820
4830 LINE(1,127)-(255,190),1,BF
4840 PRESET(3,128):PRINT#1,"centro, os dados correspondem s¢"
4850 PRESET(3,136):PRINT#1,"a antenas cujas pernas(lados)se-"
4860 PRESET(3,144):PRINT#1,"jam iguais ou maiores que 1 com-"
4870 PRESET(3,152):PRINT#1,"primento de onda, j  que elemen-"
4880 PRESET(3,160):PRINT#1,"tos menores ser„o colineares  ou"
4890 PRESET(3,168):PRINT#1,"dipolos simples, com ƒngulos/ga-"
4900 PRESET(3,176):PRINT#1,"nhos bastante diferentes."
4910 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7"
4920 IK$=INKEY$:IFIK$=""THEN4920
4930 LINE(1,127)-(255,190),1,BF
4940 PRESET(3,128):PRINT#1,"EXEMPLOS:- Alimentada num extre-"
4950 PRESET(3,136):PRINT#1,"mo, 4 comprimentos de onda, ter "
4960 PRESET(3,144):PRINT#1,"ganho de +3dBd e l¢bulos princi-"
4970 PRESET(3,152):PRINT#1,"pais a  25§ do fio .  Alimentada"
4980 PRESET(3,160):PRINT#1,"no centro,cada perna 6,5 ondas ="
4990 PRESET(3,168):PRINT#1,"5dBd a 20§ de cada lado do fio."
5000 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7"
5010 IK$=INKEY$:IFIK$=""THEN5010
5020 LINE(1,127)-(255,190),1,BF:CLOSE:GOTO 20
5030 CLS:LOCATE12,10:PRINT"Quarto Inclinado":GOSUB1970
5040 DEFFNC(X)=71.32/F:DEFFNP(X)=73.16/F
5050 SCREEN2:LINE(80,100)-(83,0),,BF:DRAW"BM83,0F5":CIRCLE(88,5),2
5060 CIRCLE(93,9),2:LINE(93,9)-(175,70):CIRCLE(175,70),2
5070 DRAW"BM70,100R5":DRAW"BM70,0R5":LINE(72,95)-(72,60):LINE(72,40)-(72,5)
5080 OPEN"GRP:" FOR OUTPUT AS#1
5090 PRESET(22,140):PRINT#1,"Eis o seu 'Quarto Inclinado'":FORT=1TO1500:NEXT
5100 COLOR1:PRESET(22,140):PRINT#1,"Eis o seu 'Quarto Inclinado'"
5110 COLOR15:PRESET(70,47):PRINT#1,"A"
5120 PRESET(122,42):PRINT#1,"B":PRESET(97,0):PRINT#1,"52 Ohms"
5130 PRESET(90,73):PRINT#1,"A>="
5140 PRESET(105,73):PRINT#1,USING"###.###";FNP(F)
5150 PRESET(161,73):PRINT#1,"m":PRESET(90,83):PRINT#1,"B="
5160 PRESET(105,83):PRINT#1,USING"###.###";FNC(F):PRESET(161,83):PRINT#1,"m"
5170 PRESET(2,105):PRINT#1,"Reduzido espa`o,possibilidade de"
5180 PRESET(2,113):PRINT#1,"uso em torre ou poste  met licos"
5190 PRESET(2,121):PRINT#1,"j   existentes e sens¡vel  ganho"
5200 PRESET(2,129):PRINT#1,"em dire`„o  … extremidade baixa."
5210 PRESET(2,137):PRINT#1,"Incline de forma que o  fio  n„o"
5220 PRESET(2,145):PRINT#1,"fique a menos de 45§ ou mais  de"
5230 PRESET(2,153):PRINT#1,"60§ da vertical. A malha do cabo"
5240 PRESET(2,161):PRINT#1,"coaxial vai ao poste, que servi-"
5250 PRESET(2,169):PRINT#1,"r  de refletor.   Para os demais"
5260 PRESET(2,177):PRINT#1,"lados o sinal ser  reduzido."
5270 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7":IK$=INKEY$:IFIK$=""THEN5270
5280 LINE(0,104)-(255,190),1,BF:COLOR15
5290 PRESET(2,105):PRINT#1,"Ajuste a ROE por aproxima`„o ou"
5300 PRESET(2,113):PRINT#1,"afastamento do poste.   Giro em"
5310 PRESET(2,121):PRINT#1,"torno do poste ou fios  em  v -"
5320 PRESET(2,129):PRINT#1,"rias dire`”es, convenientemente"
5330 PRESET(2,137):PRINT#1,"alimentados, resultam num inte-"
5340 PRESET(2,145):PRINT#1,"ressante sistema direcional pa-"
5350 PRESET(2,153):PRINT#1,"ra DX. Havendo espa`o, um dipo-"
5360 PRESET(2,161):PRINT#1,"lo normal,assim inclinado,trar "
5370 PRESET(2,169):PRINT#1,"¢tima direcionabilidade e ganho"
5380 PRESET(2,177):PRINT#1,"relativo"
5390 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7":IK$=INKEY$:IFIK$=""THEN5390
5400 CLOSE:SCREEN0:GOTO20
5410 KEYOFF:CLS:TL=0:PLAYPA$:PB$="V8N82"

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

536

537

538

539

540

541

10 CLS:CLEAR:KEYOFF:SCREEN2:COLOR15,1,1

20 KEY1,"A":KEY2,"B":KEY3,"C":KEY4,"D":KEY5,"E"

30 KEY6,"F":KEY7,"G":KEY8,"H":KEY9,"I":KEY10,"J"

40 SCREEN0:LOCATE4,5:PRINT"ANTENAS E LINHAS DE TRANSMISSŽO"

50 PP$="L16V12N40V4R9N40R9N40R9N40V2R9N40":PLAYPP$:PA$="L16V10N45R9V4N45"

60 PRINT:LOCATE9,7:PRINT"F1 - Dipolo Simples"

70 LOCATE9,8:PRINT"F2 - Dipolo Reduzido":LOCATE9,9:PRINT"F3 - Dipolo em Leque"

80 LOCATE9,10:PRINT"F4 - Plano Terra":LOCATE9,11:PRINT"F5 - Hertz"

90 LOCATE9,12:PRINT"F6 - Antenas com Linha Aberta"

100 LOCATE9,13:PRINT"F7 - Quarto Inclinado"

110 LOCATE9,14:PRINT"F8 - Linhas de Transmiss„o"

120 LOCATE9,15:PRINT"F10 - Gr fico (Ganho/Angulos)"

130 LOCATE9,16:PRINT"RETorno - Card pio"

140 DEFFNC(X)=(142.65/F)/2:DEFFNH(X)=INT((300/F)*.2)

150 IN$=INKEY$:IFIN$=""THEN150ELSEPLAYPA$

160 IFIN$="A"THEN210 ELSE IFIN$="B"THEN 520 ELSE IFIN$="C"THEN830

170 IFIN$="D"THEN1140 ELSE IFIN$="E"THEN 1490 ELSE IFIN$="F"THEN2060

180 IFIN$="G" THEN5030 ELSE IFIN$="H" THENRUN"ANT-2.BAS" ELSE IFIN$="J" THEN4410

190 IFIN$<>"A"ANDIN$<>"B"ANDIN$<>"C"ANDIN$<>"E"ANDIN$<>"F"THEN20

200 IFIN$<>"G"ANDIN$<>"H"ANDIN$<>"I"ANDIN$<>"J"THEN20

210 CLS:LOCATE13,9:PRINT"Dipolo Simples":GOSUB1970

220 SCREEN2:CIRCLE(37,66),2:LINE(37,66)-(207,66):CIRCLE(207,66),2

230 DRAW"BM117,66U1R10D2L10U1R3C1R5C15R2"

240 DRAW"BM37,70C15D5BD3D5BD3D5":DRAW"BM124,70C15D5BD3D5BD3D5"

250 DRAW"BM120,70C15D5BD3D5BD3D5":DRAW"BM207,70C15D5BD3D5BD3D5"

260 OPEN"GRP:" FOR OUTPUT AS#1:PRESET(50,80):PRINT#1,USING"###.###";FNC(F)

270 PRESET(137,80):PRINT#1,USING"###.###";FNC(F)

280 PRESET(78,90):PRINT#1,"m":PRESET(165,90):PRINT#1,"m"

290 PRESET(63,110):PRINT#1,"Eis o seu Dipolo.":FORT=1TO1000:NEXT

300 PRESET(63,110):COLOR 1:PRINT#1,"Eis o seu Dipolo.":COLOR 15

310 FORC=1TO2:IFC=2THENCOLOR1

320 PRESET(5,120):PRINT#1,"Proximidade … terra, rvores,mas-"

330 PRESET(5,128):PRINT#1,"tros,etc.,pode dessintoniz -la."

340 PRESET(5,140):PRINT#1,"Se f“r o caso, ajuste-a por in-"

350 PRESET(5,148):PRINT#1,"crementos iguais, nos extremos,"

360 PRESET(5,156):PRINT#1,"procurando o m¡nino de rela`„o"

370 PRESET(5,164):PRINT#1,"de ondas estacion rias na fre-"

380 PRESET(5,172):PRINT#1,"quˆncia acima."

390 PRESET(10,5):PRINT#1,F;"MHz"

400 IFZ$="Z"THEN490

410 IFC=2THEN430

420 A$=INKEY$:IFA$="" THEN420 ELSE NEXTC

430 COLOR15:PRESET(5,103):PRINT#1,"Se instalada …";INT((300/F)*.2);"m de solo bom"

440 PRESET(5,111):PRINT#1,"condutor (ou mais alta),cabo de"

450 PRESET(5,119):PRINT#1,"70 Ohms casar melhor. Do con-"

460 PRESET(5,127):PRINT#1,"tr rio,use cabo (preferivelmen-"

470 PRESET(5,135):PRINT#1,"te RG 213) de 50 Ohms."

480 IFIN$="A"THENGOSUB2010

490 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7"

500 IS$=INKEY$:IFIS$=""THEN500

510 CLOSE:SCREEN0:GOTO20

520 CLS:LOCATE9,10:PRINT" Dipolo Reduzido":GOSUB1970

530 SCREEN2:CIRCLE(37,46),2:DRAW"R80U1R10D2L10U1R3BR4R3R80":CIRCLE(207,46),2

540 FORT=1TO1000:NEXT

550 CIRCLE(42,80),2:DRAW"BM37,46C1R40C15G33":FORT=1TO1000:NEXT

560 CIRCLE(77,86),2:DRAW"BM37,46C1R40G33E33C15D40":FORT=1TO1000:NEXT

570 DRAW"BM37,40C1R130D6R40L40C15E31":CIRCLE(199,14),2:FORT=1TO1000:NEXT

580 DRAW"BM37,42C15U5BU3U5BU3U5":DRAW"BM124,50C15D5BD3D5BD3D3"

590 DRAW"BM120,42C15U5BU3U5BU3U5":DRAW"BM207,50C15D5BD3D5BD3D5"

600 DRAW"BM167,80C15D5":DRAW"BM167,49D5":OPEN"GRP:" FOR OUTPUT AS#1

610 PRESET(50,20):PRINT#1,USING"###.###";FNC(F)

620 PRESET(137,57):PRINT#1,USING"###.###";FNC(F)

630 PRESET(78,30):PRINT#1,"m":PRESET(167,67):PRINT#1,"m"

640 PRESET(102,88):PRINT#1,"m(min)"

650 PRESET(93,80):PRINT#1,USING"###.###";FNC(F)

660 PRESET(80,80):PRINT#1,"--":PRESET(152,80):PRINT#1,"--"

670 PRESET(14,120):PRINT#1," Eis o seu Dipolo Reduzido."

680 FORT=1TO1500:NEXT

690 PRESET(14,120):COLOR 1:PRINT#1," Eis o seu Dipolo Reduzido.":COLOR15

700 FORC=1TO2:IFC=2THENCOLOR1

710 PRESET(5,120):PRINT#1,"Este poupa espa`o, sem a perda"

720 PRESET(5,130):PRINT#1,"de sinal inerente a antenas en-"

730 PRESET(5,140):PRINT#1,"curtadas por bobinas."

740 IFC=2THENCOLOR15:GOTO760

750 A$=INKEY$:IFA$="" THEN750 ELSE NEXTC

760 FORC=1TO2:IFC=2THENCOLOR1

770 PRESET(5,105):PRINT#1,"As extremidades podem ser dobra"

780 PRESET(5,115):PRINT#1,"-das em qualquer dire`„o, desde"

790 PRESET(5,125):PRINT#1,"que no m¡nimo em ƒngulo reto"

800 PRESET(5,135):PRINT#1,"com a extens„o central linear."

810 IFC=2 THEN COLOR15:GOTO310

820 A$=INKEY$:IFA$="" THEN 820 ELSE NEXTC

830 CLS:LOCATE12,10:PRINT"Dipolo em Leque":GOSUB1970

840 DEFFNC(X)=(125.73/F)/2:DEFFND(X)=13.716/F

850 SCREEN2:LINE(37,40)-(217,80):LINE(217,40)-(37,80)

860 DRAW"BM123,60C15UR10D2L10U2D1L2R3C1R7C15R2"

870 CIRCLE(37,40),2:CIRCLE(217,80),2:CIRCLE(217,40),2:CIRCLE(37,80),2

880 DRAW"BM123,65D5BD3D5BD3D5BD3D5":DRAW"BM131,65D5BD3D5BD3D5BD3D5"

890 DRAW"BM217,46D5":DRAW"BM37,46D5":DRAW"BM217,69D5"

900 DRAW"BM217,88D6":DRAW"BM37,88D6":OPEN"GRP:" FOR OUTPUT AS#1

910 PRESET(50,80):PRINT#1,USING"###.###";FNC(F)

920 PRESET(137,80):PRINT#1,USING"###.###";FNC(F)

930 PRESET(3,57):PRINT#1,USING"###.###";FND(F)

940 PRESET(63,57):PRINT#1,"m"

950 PRESET(175,57):PRINT#1,USING"###.###";FND(F)

960 PRESET(235,57):PRINT#1,"m":PRESET(78,90):PRINT#1,"m"

970 PRESET(165,90):PRINT#1,"m"

980 PRESET(28,145):PRINT#1,"Eis o seu Dipolo em Leque.":FORT=1TO1500:NEXT

990 PRESET(28,145):COLOR1:PRINT#1,"Eis o seu Dipolo em Leque."

1000 FORC=1TO2:IFC=2THENCOLOR1 ELSE COLOR15

1010 PRESET(5,145):PRINT#1,"Caracteriza-se por alta eficiˆn"

1020 PRESET(5,155):PRINT#1,"-cia,excelente largura de faixa"

1030 PRESET(5,165):PRINT#1,"operacional e tamanho reduzido."

1040 IFC=2THENCOLOR15:GOTO1060

1050 A$=INKEY$:IFA$=""THEN1050:ELSE NEXTC

1060 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15

1070 PRESET(5,130):PRINT#1,"Corretamente instalada, cortada"

1080 PRESET(5,145):PRINT#1,"para o centro da faixa de 80 m"

1090 PRESET(5,155):PRINT#1,"ou 40 m, cobri-las- satisfato-"

1100 PRESET(5,165):PRINT#1,"riamente sem sintonizador,o que"

1110 PRESET(5,175):PRINT#1,"n„o ocorre com dipolos comuns."

1120 IFC=2THENCOLOR15:GOTO310

1130 A$=INKEY$:IFA$=""THEN1130 ELSE NEXTC

1140 CLS:LOCATE10,10:PRINT"Plano Terra - ¬ Onda":GOSUB1970

1150 DEFFNC(X)=71.33/F:DEFFNR(X)=73.16/F

1160 SCREEN2:LINE(127,10)-(127,76):CIRCLE(127,10),2

1170 DRAW"BM127,82L1U10R2D10L1U1"

1180 LINE(45,50)-(209,110):CIRCLE(45,50),2:CIRCLE(209,110),2

1190 LINE(209,50)-(45,110):CIRCLE(209,50),2:CIRCLE(45,110),2:LINE(134,7)-(140,5)

1200 DRAW"BM140,7C1D3C15D5C1D3C15D5C1D3C15D5C1D19C15D5C1D3C15D5C1D3C15D5"

1210 LINE(214,52)-(222,54):LINE(159,80)-(166,78)

1220 LINE(200,65)-(207,63):OPEN"GRP:" FOR OUTPUT AS#1

1230 PRESET(175,69):PRINT#1,"RA":PRESET(135,37):PRINT#1,"EV"

1240 PRESET(7,70):PRINT#1,"EV= m"

1250 PRESET(23,70):PRINT#1,USING"###.###";FNC(F)

1260 PRESET(7,80):PRINT#1,"RA= m"

1270 PRESET(23,80):PRINT#1,USING"###.###";FNR(F)

1280 PRESET(44,130):PRINT#1,"Eis o seu Plano Terra":FORT=1TO1000:NEXT

1290 PRESET(44,130):COLOR1:PRINT#1,"Eis o seu Plano Terra":COLOR15

1300 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15

1310 PRESET(5,130):PRINT#1,"Instalada livre de obst culos,‚"

1320 PRESET(5,138):PRINT#1,"excelente antena para DX,embora"

1330 PRESET(5,146):PRINT#1,"sens¡vel a ru¡dos de igni`„o e"

1340 PRESET(5,154):PRINT#1,"motores de escova. Em 15 e 10 m"

1350 PRESET(5,162):PRINT#1,"pode ser feita de tubo de alu-"

1360 PRESET(5,170):PRINT#1,"m¡nio. Em todo caso, cuide do"

1370 PRESET(5,178):PRINT#1,"bom isolamento dos elementos."

1380 IFC=2THENCOLOR15:GOTO1400

1390 A$=INKEY$:IFA$="" THEN420 ELSE NEXTC

1400 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15

1410 PRESET(5,130):PRINT#1,"Sua impedƒncia,de aprox.35 Ohms"

1420 PRESET(5,138):PRINT#1,"resultar em estacion ria 1:1.5"

1430 PRESET(5,146):PRINT#1,"com coaxial de 50 Ohms, o que"

1440 PRESET(5,154):PRINT#1,"poder ser corrigido inclinando"

1450 PRESET(5,162):PRINT#1,"os radiais para baixo, at‚ que"

1460 PRESET(5,170):PRINT#1,"se obtenha casamento melhor."

1470 IFC=2THENCOLOR15:Z$="Z":GOTO310

1480 A$=INKEY$:IFA$=""THEN1480 ELSE NEXTC:CLS

1490 CLS:LOCATE13,10:PRINT"Hertz Multibanda":GOSUB1970

1500 SCREEN2:CIRCLE(70,50),2:LINE(70,50)-(250,50):CIRCLE(250,50),2

1510 DRAW"BM70,75R7U5BU5U5R10BR10R10BR10R10BR65R10BR10R10BR10R10"

1520 DRAW"BM70,50D20":DRAW"BM250,54DR4BD2D4"

1530 CIRCLE(65,70),6,15,,3,5:CIRCLE(63,70),6,15,,3,5:CIRCLE(61,70),6,15,,3,5

1540 CIRCLE(65,70),6,15,,3,5:CIRCLE(63,70),6,15,,3,5:CIRCLE(61,70),6,15,,3,5

1550 CIRCLE(59,70),6,15,,3,5:CIRCLE(57,70),6,15,,3,5:DRAW"BM52,70R4L2U9R5D2"

1560 DRAW"BM66,70R4"

1570 DRAW"BM52,70R4BD8D20L3G3E3R6G3E3L3G3E3U20R4U3D6U3BR2U3D6U3R4U8"

1580 DRAW"BM61,78E3G6":DRAW"BM52,70U5L24D10R24U5":OPEN"GRP:"FOR OUTPUT AS#1

1590 PRESET(30,67):PRINT#1,"ROE"

1600 DRAW"BM52,85U5L24D10R12D5R16L16U5R12U5":DRAW"BM28,85L3U15R3"

1610 PRESET(33,82):PRINT#1,"TR":PRESET(130,57):PRINT#1,USING"###.###";FNC(F)*2

1620 PRESET(157,65):PRINT#1,"m"

1630 PRESET(27,130):PRINT#1,"Eis sua Hertz Multibanda":FORT=1TO1000:NEXT

1640 PRESET(27,130):COLOR1:PRINT#1,"Eis sua Hertz Multibanda":COLOR15

1650 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15

1660 PRESET(5,110):PRINT#1,"Excelente conjunto para emergˆn"

1670 PRESET(5,118):PRINT#1,"cia ou excurs”es, j que opera"

1680 PRESET(5,126):PRINT#1,"em todas as faixas superiores …"

1690 PRESET(5,134):PRINT#1,"fundamental prevista e ‚ de mon"

1700 PRESET(70,25):PRINT#1,"Acima de";F;"MHz"

1710 PRESET(5,142):PRINT#1,"tagem r pida.Condi`„o essencial"

1720 PRESET(5,150):PRINT#1,"‚ bom aterramento.Na falta des-"

1730 PRESET(5,158):PRINT#1,"-te (e at‚ al‚m dele) , ligue"

1740 PRESET(5,166):PRINT#1,"fio de meio comprimento da an-"

1750 PRESET(5,174):PRINT#1,"tena a chassis,fazendo-o acom-"

1760 PRESET(5,182):PRINT#1,"panhar a antena, solto no ch„o."

1770 IFC=2THENCOLOR15:GOTO1790

1780 A$=INKEY$:IFA$=""THEN420 ELSE NEXTC

1790 FORC=1TO2:IFC=2THENCOLOR1:ELSE COLOR15

1800 PRESET(5,110):PRINT#1,"Como a irradia`„o ocorre a par-"

1810 PRESET(5,118):PRINT#1,"tir do ponto de conex„o com o a"

1820 PRESET(5,126):PRINT#1,"coplador, este n„o deve situar-"

1830 PRESET(5,134):PRINT#1,"se pr¢ximo ao transmissor.Entre"

1840 PRESET(5,142):PRINT#1,"ligue equipamento com acoplador"

1850 PRESET(5,150):PRINT#1,"mediante coaxial de 50 Ohms e"

1860 PRESET(5,158):PRINT#1,"sintonize o acoplador para es-"

1870 PRESET(5,166):PRINT#1,"tacion ria (ROE) de 1:1.1."

1880 IFC=2THENCOLOR15:GOTO1910

1890 A$=INKEY$:IFA$=""THEN420 ELSE NEXTC

1900 FORC=1TO2

1910 PRESET(45,115):PRINT#1,"Dados para o Acoplador."

1920 PRESET(5,130):PRINT#1,"Bobina:- Diametro = 65 mm"

1930 PRESET(5,138):PRINT#1,"40 espiras, fio 2mm diam."

1940 PRESET(5,146):PRINT#1,"Passo de 6 esp/25 mm"

1950 PRESET(5,162):PRINT#1,"Capacitor Vari vel: 150 pF"

1960 GOTO490

1970 PRINT:PRINT" Cobre ou Aluminio (diam.2-3 mm)"

1980 PLAY"R4V8N82":LOCATE2,16:PRINT"Para que Frequˆncia? (MHz)- Ex:27.125"

1990 LOCATE18,20:LINEINPUT F$

2000 F=VAL(F$):IF F<=0 THEN 20 ELSE RETURN

2010 PRESET(5,146):PRINT#1,"A mesma antena, suportada por"

2020 PRESET(5,154):PRINT#1,"mastro central (n„o condutor)"

2030 PRESET(5,162):PRINT#1,"e as pernas inclinadas para"

2040 PRESET(5,170):PRINT#1,"baixo (45§),ser 'V Invertida',"

2050 PRESET(5,178):PRINT#1,"onidirecional.":RETURN

2060 CLS:LOCATE1,12:PRINT"Algumas destas antenas s„o de grande"

2070 LOCATE1,13:PRINT"extens„o.Use fio adequado … tra`„o pa-"

2080 LOCATE1,14:PRINT"ra evitar alongamento ou ruptura.":A$=INKEY$:IF A$="" THEN 2080

2090 CLS:LOCATE1,12:PRINT"Para todas as antenas alimentadas por"

2100 LOCATE1,13:PRINT"linha aberta,‚ necess rio acoplador a"

2110 LOCATE1,14:PRINT"propriado, que casar a alta impedƒn"

2120 LOCATE1,15:PRINT"cia da ponta da linha (<5000 Ohms),com"

2130 LOCATE1,16:PRINT"a do equipamento.":A$=INKEY$:IFA$="" THEN 2130

2140 CLS:LOCATE1,5:PRINT"Linha aberta de 300 Ohms ‚ altamente"

2150 LOCATE1,6:PRINT"recomendada por facilitar o trabalho"

2160 LOCATE1,7:PRINT"do acoplador."

2170 LOCATE1,9:PRINT"Evite linha paralela fechada (tipo fi-"

2180 LOCATE1,10:PRINT"ta de TV),que introduzir perdas e in-"

2190 LOCATE1,11:PRINT"convenientes t‚cnicos."

2200 LOCATE1,13:PRINT"Mantenha a linha aberta distante de pa"

2210 LOCATE1,14:PRINT"-redes e metais (minimo 20 cm) e evite"

2220 LOCATE1,15:PRINT"dobras e curvas abruptas."

2230 LOCATE1,17:PRINT"Corretamente instalada, a linha aberta"

2240 LOCATE1,18:PRINT"‚ a melhor linha de transmiss„o.":A$=INKEY$:IFA$="" THEN 2240

2250 CLEAR 300:SCREEN0:KEYOFF:DEFFNC(X)=142.65/F:DEFFNH(X)=(300/F)*.2

2260 DEFFNL(X)=(75/F)*.975:DEFFNZ(X)=365.2/F:DEFFNN(X)=N-.025

2270 DEFFNW(X)=(300*FNN(N))/F:PA$="L16V10N45R9V4N45":PLAYPA$

2280 ON KEY GOSUB 2470,2490,2510,2530,2550,2590,,,,2450

2290 KEY(1)ON:KEY(2)ON:KEY(3)ON:KEY(4)ON:KEY(5)ON

2300 KEY(6)ON:KEY7,"":KEY8,"":KEY9,"":KEY(10)ON

2310 LOCATE2,3:PRINT"F1= Z e p p e l i n"

2320 LOCATE6,4:PRINT"(Alimenta`„o Central)"

2330 LOCATE2,6:PRINT"F2= Z e p p e l i n"

2340 LOCATE6,7:PRINT"(Alimenta`„o pelo Extremo)"

2350 LOCATE2,9:PRINT"F3= Z e p p e l i n Direcional"

2360 LOCATE6,10:PRINT"(Dupla ou Colinear)"

2370 LOCATE2,12:PRINT"F4= Z e p p e l i n Direcional"

2380 LOCATE6,13:PRINT"(Dupla Expandida ou Colinear 5/8)"

2390 LOCATE2,15:PRINT"F5= L o n g W i r e"

2400 LOCATE6,16:PRINT"(Direcional Monobanda)"

2410 LOCATE2,18:PRINT"F6= L o n g W i r e"

2420 LOCATE6,19:PRINT"(Direcional Multibanda)"

2430 LOCATE2,21:PRINT"F10= Card pio Principal"

2440 GOTO2440

2450 KEY(1)OFF:KEY(2)OFF:KEY(3)OFF:KEY(4)OFF:KEY(5)OFF:KEY(6)OFF:KEY(10)OFF

2460 RUN20

2470 H=1:CLS:GOSUB1980

2480 H=1:SCREEN2,2:GOTO2640

2490 H=2:CLS:GOSUB1980

2500 H=2:SCREEN2,2:GOTO2640

2510 H=3:CLS:GOSUB1980

2520 H=3:SCREEN2,2:GOTO2650

2530 H=4:CLS:GOSUB1980

2540 H=4:SCREEN2,2:GOTO2880

2550 H=5:CLS:GOSUB1980

2560 PLAY"V8N82"

2570 LOCATE,8:INPUT"Quantos comprimentos de onda deve ter a antena";N$:N=VAL(N$)

2580 H=5:SCREEN2,2:GOTO2880

2590 H=6:CLS:GOSUB1980

2600 PLAY"V8N82"

2610 LOCATE,8:INPUT"Quantos comprimentos de onda deve ter a antena";N$:N=VAL(N$)

2620 H=6:SCREEN2,2:GOTO2880

2630 CIRCLE(115,50),2,1:CIRCLE(123,50),2,1

2640 LINE(70,50)-(170,50):CIRCLE(70,50),2:CIRCLE(170,50),2:GOTO2670

2650 CIRCLE(70,50),2,1:CIRCLE(170,50),2,1

2660 LINE(30,50)-(220,50):CIRCLE(30,50),2:CIRCLE(220,50),2

2670 FORI=1TO32:READ A:A$=A$+CHR$(A):NEXTI:SPRITE$(0)=A$

2680 IFH=2THEN2720

2690 IFH=3ORH=4THEN2730

2700 IFH=5ORH=6THEN2740

2710 FORI=255TO115 STEP -.5:GOTO2750

2720 FORI=255TO62 STEP -.5:GOTO2750

2730 FORI=255TO118 STEP -.5:GOTO2750

2740 FORI=255TO25 STEP -.5

2750 J=50

2760 PUT SPRITE 1,(I,J),15,0

2770 NEXTI

2780 IFH=2THEN2810 ELSE IFH=3THEN2850 ELSE IFH=4THEN2930

2790 IFH=5THEN2950 ELSE IFH=6THEN2980

2800 LINE(116,50)-(122,50),1:CIRCLE(115,50),2:CIRCLE(123,50),2

2810 IFH=2THENCIRCLE(62,50),2

2820 IFH=1ORH=2THEN2830 ELSE 2850

2830 GOTO3070

2840 H$=INKEY$:IFH$=""THEN2840 ELSE RETURN2250

2850 CIRCLE(118,50),2:CIRCLE(126,50),2:LINE(119,50)-(125,50),1:IF H<>3 THEN 2870

2860 GOTO3070

2870 CIRCLE(30,50),2,1:CIRCLE(220,50),2,1

2880 LINE(5,50)-(245,50):CIRCLE(5,50),2:CIRCLE(245,50),2:IFH=4THEN2910

2890 IFH=5 OR H=6 THEN2920

2900 CIRCLE(118,50),2,1:CIRCLE(126,50),2,1:LINE(117,50)-(127,50),15

2910 RESTORE:PRESET(116,50),15:PRESET(128,50),15:GOTO2670

2920 RESTORE:PRESET(116,50),15:PRESET(128,50),15:GOTO2670

2930 LINE(119,50)-(125,50),1:CIRCLE(118,50),2:CIRCLE(126,50),2:IF H<>4 THEN 2950

2940 GOTO3070

2950 LINE(26,50)-(32,50),1:CIRCLE(25,50),2:CIRCLE(35,50),2

2960 DRAW"BM215,50C1R12L12C15E1F2E2F2E2F2E1"

2970 GOTO3070

2980 LINE(22,50)-(36,50),15

2990 DRAW"BM215,50C1R12L12C15E1F2E2F2E2F2E1C1R30L30D1C15D7L4G2E2R4G2E2R4G2"

3000 CIRCLE(245,50),2,1:CIRCLE(5,50),2,1

3010 DRAW"R27C1":CIRCLE(25,50),2:CIRCLE(33,50),2

3020 GOTO3070

3030 DATA128,128,255,128,128,128,255,128,128,128,255,128,128,128,255,128

3040 DATA128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128

3050 DATA128,128,255,128,128,128,255,128,128,128,255,128,128,128,255,128

3060 DATA128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128

3070 OPEN"GRP:" FOR OUTPUT AS#1:PRESET(69,30):PRINT#1,"< >"

3080 IFH=3THEN3100 ELSE IFH=4THEN3110 ELSE IFH=5 OR H=6 THEN3120

3090 PRESET(89,30):PRINT#1,USING"###.###";FNC(F):GOTO3130

3100 PRESET(89,30):PRINT#1,USING"###.###";FNC(F)*2:GOTO3130

3110 PRESET(89,30):PRINT#1,USING"###.###";FNZ(F):GOTO3130

3120 PRESET(89,30):PRINT#1,USING"###.###";FNW(F):GOTO3130

3130 PRESET(118,37):PRINT#1,"m":IF H=1 OR H=2 THEN3170

3140 IFH=3 OR H=4 THEN3160:ELSE PRESET(61,110)

3150 PRINT#1,"Eis a sua Long Wire":FORT=1TO1200:NEXT:COLOR15:GOTO3230

3160 PRESET(15,110):PRINT#1,"Eis sua Zeppelin Direcional":COLOR15:GOTO3180

3170 PRESET(53,110):PRINT#1,"Eis sua Zeppelin":COLOR15

3180 FORT=1TO1000:NEXT:IFH=3 OR H=4 THEN3200

3190 PRESET(53,110):COLOR1:PRINT#1,"Eis sua Zeppelin":COLOR15:GOTO3240

3200 PRESET(15,110):COLOR 1:PRINT#1,"Eis sua Zeppelin Direcional":COLOR 15

3210 IFH=3 THEN 3240:ELSE PRESET(25,130):PRINT#1,"Dupla, expandida, 2 x 5/8"

3220 FORT=1TO1400:NEXT:LINE(24,128)-(240,140),1,BF

3230 PRESET(61,110):COLOR1:PRINT#1,"Eis a sua Long Wire":COLOR15:GOTO3240

3240 PRESET(130,60):PRINT#1,USING"###.##";FNL(F)

3250 PRESET(180,60):PRINT#1,"m":IF H=5 OR H=6 THEN3300

3260 IFH<>1 THEN3280

3270 DRAW "BM132,61F3H3L7E2G2F2U3":GOTO 3310

3280 IFH=2 THEN DRAW "BM105,61F3H3L32E2G2F2U3":GOTO3310

3290 IFH=3 OR H=4 THEN DRAW "BM132,61F3H3L3E2G2F2U3":GOTO3310

3300 DRAW "BM132,61F3H3L85E2G2F2U3":GOTO 3310

3310 PRESET(117,68):PRINT#1,"ou m£ltiplo ¡mpar"

3320 PRESET(10,10):PRINT#1,F;"MHz"

3330 IFH=3THEN3680 ELSE IFH=4THEN3800 ELSE IFH=5 OR H=6 THEN3900

3340 PRESET(5,90):PRINT#1,"Excelente multibanda, podendo"

3350 PRESET(5,98):PRINT#1,"trabalhar em qualquer frequˆn-"

3360 PRESET(5,106):PRINT#1,"cia acima da aqui especificada"

3370 PRESET(5,114):PRINT#1,"e, eventualmente,… metade desta."

3380 PRESET(5,126):PRINT#1,"Apresenta ganho a partir do se-"

3390 PRESET(5,134):PRINT#1,"gundo harm“nico.":IFH=2 THEN 3430

3400 PRESET(5,146):PRINT#1,"O Dipolo em Leque com esta ali-"

3410 PRESET(5,154):PRINT#1,"menta`„o,‚ uma das melhores an-"

3420 PRESET(5,162):PRINT#1,"tenas multibanda para uso geral."

3430 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7"

3440 IK$=INKEY$:IFIK$=""THEN3440

3450 IFH=2THEN3570

3460 LINE(4,89)-(255,170),1,BF

3470 PRESET(5,90):PRINT#1,"NOTA: O ganho harm“nico de an-"

3480 PRESET(5,98):PRINT#1,"tenas alimentadas pelo centro"

3490 PRESET(5,106):PRINT#1,"distribui-se por igual em for-"

3500 PRESET(5,114):PRINT#1,"ma de trevo,com centro no pon-"

3510 PRESET(5,122):PRINT#1,"to de alimenta`„o. No entanto,"

3520 PRESET(5,130):PRINT#1,"esta antena, no segundo harm“-"

3530 PRESET(5,138):PRINT#1,"nico, torna-se colinear,bidi-"

3540 PRESET(5,146):PRINT#1,"recional a 90/180§, com ganho"

3550 PRESET(5,154):PRINT#1,"de 1.8 dBd."

3560 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840

3570 LINE(4,89)-(255,170),1,BF

3580 PRESET(4,90):PRINT#1,"Batizada a Zeppelin Verdadeira"

3590 PRESET(4,98):PRINT#1,"porque era a antena de arraste"

3600 PRESET(4,106):PRINT#1,"usada nos dirig¡veis do mesmo"

3610 PRESET(4,114):PRINT#1,"nome. Operada acima desta fre-"

3620 PRESET(4,122):PRINT#1,"quˆncia, acent£a l¢bulos m xi-"

3630 PRESET(4,130):PRINT#1,"mos,sempre em trevo, que v„o se"

3640 PRESET(4,138):PRINT#1,"alinhando com o fio da antena."

3650 PRESET(4,152):PRINT#1,"Um lado da linha realmente fica"

3660 PRESET(4,160):PRINT#1,"em aberto,isolado da antena"

3670 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840

3680 PRESET(4,90):PRINT#1,"Multibanda por excelˆncia,pois"

3690 PRESET(4,98):PRINT#1,"trabalha com alta eficiˆncia a"

3700 PRESET(4,106):PRINT#1,"partir da metade desta frequˆn-"

3710 PRESET(4,114):PRINT#1,"cia.Aqui ‚ uma colinear de duas"

3720 PRESET(4,122):PRINT#1,"meias ondas em fase, resultando"

3730 PRESET(4,130):PRINT#1,"um ganho de 1.8 dBd, bidirecio-"

3740 PRESET(4,138):PRINT#1,"nal a 90/180§ da antena,com l¢-"

3750 PRESET(4,146):PRINT#1,"bulo de 46§ a -3 dB."

3760 PRESET(4,160):PRINT#1,"Em frequˆncias superiores,forma"

3770 PRESET(4,168):PRINT#1,"l¢bulos m£ltiplos bem aprovei-"

3780 PRESET(4,176):PRINT#1,"t veis e uniformes."

3790 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840

3800 PRESET(4,90):PRINT#1,"Alto ganho para uma antena sim-"

3810 PRESET(4,98):PRINT#1,"ples(3.2 dBd),aliado a alta bi-"

3820 PRESET(4,106):PRINT#1,"direcionalidade,praticamente i-"

3830 PRESET(4,114):PRINT#1,"senta de l¢bulos secund rios. "

3840 PRESET(4,122):PRINT#1,"ideal para alto rendimente a 90"

3850 PRESET(4,130):PRINT#1,"e 180§ do fio.O l¢bulo ‚ de 32§"

3860 PRESET(4,138):PRINT#1,"nesta frequˆncia. Naturalmente"

3870 PRESET(4,146):PRINT#1,"tamb‚m ‚ boa multibanda, acima"

3880 PRESET(4,154):PRINT#1,"e abaixo da frequˆncia de corte."

3890 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840

3900 IFH=6 THEN3930 ELSE PRESET(12,64):PRINT#1,"A"

3910 DRAW"BM14,53D1L1R2L1D1L2R4L2D6BD11D9R3"

3920 DRAW"BM233,47UL1R2L1U1L2R4L2U4L4U3"

3930 DRAW"BM221,46U1L1R2L1U1L2R4L2U2L6"

3940 PRESET(134,10):PRINT#1,"+-550 Ohms":DRAW"BM215,47U3BU2U3BU2U3BU2U3"

3950 IFH=6THEN3980

3960 IFH=5THENDRAW"BM5,47BU2U1BU2U3BU2U3BU2U3"

3970 PRESET(69,76):PRINT#1,"m"

3980 IFH=6THENDRAW"BM33,47BU2U1BU2U3BU2U3BU2U3":GOTO4280

3990 PRESET(226,29):PRINT#1,"B=A"

4000 PRESET(12,76):PRINT#1,USING"###.###";FNC(F)/2

4010 PRESET(2,90):PRINT#1,"Nesta conforma`„o ela ‚ monoban-"

4020 PRESET(2,98):PRINT#1,"da e unidirecional (na dire`„o "

4030 PRESET(2,106):PRINT#1,"do resistor n„o indutivo dimen-"

4040 PRESET(2,114):PRINT#1,"sionado para absor`„o da metade"

4050 PRESET(2,122):PRINT#1,"da potˆncia do transmissor).Tor-"

4060 PRESET(2,130):PRINT#1,"na-se bidirecional com elimina-"

4070 PRESET(2,138):PRINT#1,"`„o do resistor e da se`„o B,en-"

4080 PRESET(2,146):PRINT#1,"bora ainda predomine sinal nesta"

4090 PRESET(2,154):PRINT#1,"dire`„o.A partir de 4 comprimen-"

4100 PRESET(2,162):PRINT#1,"tos de onda os l¢bulos princi-"

4110 PRESET(2,170):PRINT#1,"pais estar„o a aprox.20§ do fio"

4120 COLOR15:DRAW "BM240,188E2G2F2U3D1R3U7"

4130 IK$=INKEY$:IFIK$=""THEN4130

4140 LINE(1,89)-(255,190),1,BF

4150 PRESET(2,90):PRINT#1,"Formar-se- um cone de sinal ao"

4160 PRESET(2,98):PRINT#1,"redor do fio,resultando conside-"

4170 PRESET(2,106):PRINT#1,"ravel ganho pr tico.Embora o ga-"

4180 PRESET(2,114):PRINT#1,"nho calculado possa decepcionar"

4190 PRESET(2,122):PRINT#1,"se comparado a outras antenas, o"

4200 PRESET(2,130):PRINT#1,"ganho efetivo ‚ da ordem de pos-"

4210 PRESET(2,138):PRINT#1,"sibilitar comunica`„o imposs¡vel"

4220 PRESET(2,146):PRINT#1,"com Yagis e outras direcionais."

4230 PRESET(2,154):PRINT#1,"A raz„o ‚ sua grande rea e seu"

4240 PRESET(2,162):PRINT#1,"baixo ƒngulo, al‚m da polariza-"

4250 PRESET(2,170):PRINT#1,"`„o m£ltipla.Veja a outra L-W do"

4260 PRESET(2,178):PRINT#1,"programa."

4270 COLOR 15:DRAW "BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO 2840

4280 PRESET(2,90):PRINT#1,"Nesta conforma`„o ela ‚ multi-"

4290 PRESET(2,98):PRINT#1,"banda unidirecional … extremida-"

4300 PRESET(2,106):PRINT#1,"de do resistor.Bom aterramento ‚"

4310 PRESET(2,114):PRINT#1,"essencial. Eliminado resistor e"

4320 PRESET(2,122):PRINT#1,"terra,torna-se semi-bidirecional"

4330 PRESET(2,130):PRINT#1,"com algum sinal para o lado ali-"

4340 PRESET(2,138):PRINT#1,"mentado, sem perda alguma. Veja"

4350 PRESET(2,146):PRINT#1,"tamb‚m LW Monobanda s“bre carac-"

4360 PRESET(2,154):PRINT#1,"ter¡sticas de irradia`„o,etc.No-"

4370 PRESET(2,162):PRINT#1,"te-se que s¢ ‚ LW antena alimen-"

4380 PRESET(2,170):PRINT#1,"tada no ponto correto e com um"

4390 PRESET(2,178):PRINT#1,"comprimento de onda ou mais."

4400 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7":CLOSE:GOTO2840

4410 PLAY"V8N82N72N62":SCREEN 2:COLOR 14:FORF=10TO100 STEP10:FORG=25TO225

4420 LINE (G,F)-(G,F):NEXTG:NEXTF:FORG=25TO225 STEP10:FORF=10TO100

4430 LINE(G,F)-(G,F):NEXT F:NEXT G:COLOR 15:OPEN"GRP:"FOR OUTPUT AS #1

4440 PRESET(18,7):PRINT#1,"9":PRESET(18,17):PRINT#1,"8"

4450 PRESET(18,27):PRINT#1,"7":PRESET(18,37):PRINT#1,"6"

4460 PRESET(18,47):PRINT#1,"5":PRESET(18,57):PRINT#1,"4"

4470 PRESET(18,67):PRINT#1,"3":PRESET(18,77):PRINT#1,"2"

4480 PRESET(18,87):PRINT#1,"1":PRESET(18,97):PRINT#1,"0"

4490 PRESET(9,47):PRINT#1,"d":PRESET(9,55):PRINT#1,"B"

4500 PRESET(22,105):PRINT#1,"O":PRESET(42,105):PRINT#1,"1"

4510 PRESET(62,105):PRINT#1,"2":PRESET(82,105):PRINT#1,"3"

4520 PRESET(102,105):PRINT#1,"4":PRESET(122,105):PRINT#1,"5"

4530 PRESET(142,105):PRINT#1,"6":PRESET(162,105):PRINT#1,"7"

4540 PRESET(182,105):PRINT#1,"8":PRESET(202,105):PRINT#1,"9"

4550 PRESET(222,105):PRINT#1,"10":PRESET(45,113):PRINT#1,"Comprimentos de Onda"

4560 GOTO4650

4570 COLOR14

4580 DRAW"BM36,20M37,30M40,40M45,48M55,58M65,64M75,68M85,72M95,73M105,75"

4590 DRAW"M115,76M125,78M135,79M145,80M155,80M165,81M175,82M185,82M195,82"

4600 DRAW"M205,83M215,83M225,83"

4610 COLOR15:LINE(35,100)-(125,60):LINE(125,60)-(155,50)

4620 LINE(155,50)-(185,39):LINE(185,39)-(225,26)

4630 COLOR14:DRAW"BM35,20D20":COLOR15

4640 GOTO4730

4650 PRESET(228,97):PRINT#1,"0§":PRESET(228,87):PRINT#1,"10§"

4660 PRESET(228,77):PRINT#1,"20§":PRESET(228,67):PRINT#1,"30§"

4670 PRESET(228,57):PRINT#1,"40§":PRESET(228,47):PRINT#1,"50§"

4680 PRESET(228,37):PRINT#1,"60§":PRESET(228,27):PRINT#1,"70§"

4690 PRESET(228,17):PRINT#1,"80§":PRESET(228,7):PRINT#1,"90§"

4700 LINE(41,31)-(96,39),1,BF:LINE(132,31)-(179,39),1,BF

4710 COLOR14:PRESET(52,32):PRINT#1,"ƒngulo":DRAW"BM50,35L3G3U2R1":PRESET(52,32)

4720 COLOR15:PRESET(133,32):PRINT#1,"ganho":DRAW"BM171,35R3F3U2L1":GOTO 4570

4730 LINE(0,123)-(255,124),2,B

4740 PLAY"V8N82":PRESET(3,128):PRINT#1,"Eis ganho e ƒngulo de irradia`„o"

4750 PRESET(3,136):PRINT#1,"para qualquer antena unifilar"

4760 PRESET(3,144):PRINT#1,"desconsiderada altura e cercani-"

4770 PRESET(3,152):PRINT#1,"as, desde que esticada, sem do-"

4780 PRESET(3,160):PRINT#1,"bras e comprimento m¡nimo = meia"

4790 PRESET(3,168):PRINT#1,"onda. Importante ‚ observar que,"

4800 PRESET(3,176):PRINT#1,"para antenas alimentadas pelo"

4810 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7"

4820 IK$=INKEY$:IFIK$=""THEN4820

4830 LINE(1,127)-(255,190),1,BF

4840 PRESET(3,128):PRINT#1,"centro, os dados correspondem s¢"

4850 PRESET(3,136):PRINT#1,"a antenas cujas pernas(lados)se-"

4860 PRESET(3,144):PRINT#1,"jam iguais ou maiores que 1 com-"

4870 PRESET(3,152):PRINT#1,"primento de onda, j que elemen-"

4880 PRESET(3,160):PRINT#1,"tos menores ser„o colineares ou"

4890 PRESET(3,168):PRINT#1,"dipolos simples, com ƒngulos/ga-"

4900 PRESET(3,176):PRINT#1,"nhos bastante diferentes."

4910 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7"

4920 IK$=INKEY$:IFIK$=""THEN4920

4930 LINE(1,127)-(255,190),1,BF

4940 PRESET(3,128):PRINT#1,"EXEMPLOS:- Alimentada num extre-"

4950 PRESET(3,136):PRINT#1,"mo, 4 comprimentos de onda, ter "

4960 PRESET(3,144):PRINT#1,"ganho de +3dBd e l¢bulos princi-"

4970 PRESET(3,152):PRINT#1,"pais a 25§ do fio . Alimentada"

4980 PRESET(3,160):PRINT#1,"no centro,cada perna 6,5 ondas ="

4990 PRESET(3,168):PRINT#1,"5dBd a 20§ de cada lado do fio."

5000 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7"

5010 IK$=INKEY$:IFIK$=""THEN5010

5020 LINE(1,127)-(255,190),1,BF:CLOSE:GOTO 20

5030 CLS:LOCATE12,10:PRINT"Quarto Inclinado":GOSUB1970

5040 DEFFNC(X)=71.32/F:DEFFNP(X)=73.16/F

5050 SCREEN2:LINE(80,100)-(83,0),,BF:DRAW"BM83,0F5":CIRCLE(88,5),2

5060 CIRCLE(93,9),2:LINE(93,9)-(175,70):CIRCLE(175,70),2

5070 DRAW"BM70,100R5":DRAW"BM70,0R5":LINE(72,95)-(72,60):LINE(72,40)-(72,5)

5080 OPEN"GRP:" FOR OUTPUT AS#1

5090 PRESET(22,140):PRINT#1,"Eis o seu 'Quarto Inclinado'":FORT=1TO1500:NEXT

5100 COLOR1:PRESET(22,140):PRINT#1,"Eis o seu 'Quarto Inclinado'"

5110 COLOR15:PRESET(70,47):PRINT#1,"A"

5120 PRESET(122,42):PRINT#1,"B":PRESET(97,0):PRINT#1,"52 Ohms"

5130 PRESET(90,73):PRINT#1,"A>="

5140 PRESET(105,73):PRINT#1,USING"###.###";FNP(F)

5150 PRESET(161,73):PRINT#1,"m":PRESET(90,83):PRINT#1,"B="

5160 PRESET(105,83):PRINT#1,USING"###.###";FNC(F):PRESET(161,83):PRINT#1,"m"

5170 PRESET(2,105):PRINT#1,"Reduzido espa`o,possibilidade de"

5180 PRESET(2,113):PRINT#1,"uso em torre ou poste met licos"

5190 PRESET(2,121):PRINT#1,"j existentes e sens¡vel ganho"

5200 PRESET(2,129):PRINT#1,"em dire`„o … extremidade baixa."

5210 PRESET(2,137):PRINT#1,"Incline de forma que o fio n„o"

5220 PRESET(2,145):PRINT#1,"fique a menos de 45§ ou mais de"

5230 PRESET(2,153):PRINT#1,"60§ da vertical. A malha do cabo"

5240 PRESET(2,161):PRINT#1,"coaxial vai ao poste, que servi-"

5250 PRESET(2,169):PRINT#1,"r de refletor. Para os demais"

5260 PRESET(2,177):PRINT#1,"lados o sinal ser reduzido."

5270 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7":IK$=INKEY$:IFIK$=""THEN5270

5280 LINE(0,104)-(255,190),1,BF:COLOR15

5290 PRESET(2,105):PRINT#1,"Ajuste a ROE por aproxima`„o ou"

5300 PRESET(2,113):PRINT#1,"afastamento do poste. Giro em"

5310 PRESET(2,121):PRINT#1,"torno do poste ou fios em v -"

5320 PRESET(2,129):PRINT#1,"rias dire`”es, convenientemente"

5330 PRESET(2,137):PRINT#1,"alimentados, resultam num inte-"

5340 PRESET(2,145):PRINT#1,"ressante sistema direcional pa-"

5350 PRESET(2,153):PRINT#1,"ra DX. Havendo espa`o, um dipo-"

5360 PRESET(2,161):PRINT#1,"lo normal,assim inclinado,trar "

5370 PRESET(2,169):PRINT#1,"¢tima direcionabilidade e ganho"

5380 PRESET(2,177):PRINT#1,"relativo"

5390 COLOR15:DRAW"BM240,188E2G2F2U3D1R3U7":IK$=INKEY$:IFIK$=""THEN5390

5400 CLOSE:SCREEN0:GOTO20

5410 KEYOFF:CLS:TL=0:PLAYPA$:PB$="V8N82"

Compartilhe: