1000 a=600:goto 20:rem hobbyscoop-krant 1010 gosub 100:rem eerst scherm opmeten 1020 i=0:j=i:ve=i:ip=64:jp=ip:for a=1 to 7 1030 i=i+ip:ho=i:gosub 110:gosub 120:if ho<>i then i=i-ip 1040 j=j+jp:ve=j:gosub 110:gosub 120:if ve<>j then j=j-jp 1050 ip=ip/2:jp=jp/2:next a:hp=i+1:vp=j+1 1060 rem begin programma 1070 dim k$(6) 1080 gosub 100:print"HOBBYSCOOPKRANT" 1090 print:print"Naar P)rinter of S)cherm ?"; 1100 gosub 210:gosub 1800 1110 if(in$<>"p") and(in$<>"s") then 1100 1120 print in$:print 1130 pt=1:if in$="s" then pt=0:goto 1310 1140 print"Hoeveel letters per regel "; 1150 input hp 1160 print:print"Kantlijnbreedte "; 1170 input sp:gosub 1900:kl$=sp$ 1180 hp=hp-sp:if sp>1 then hp=hp-sp+2 1190 print:print"Hoeveel regels tekst per pagina "; 1200 input vp 1210 print:print"K)ettingformulieren of L)osse vellen ?"; 1220 gosub 210:gosub 1800 1230 if(in$<>"k") and(in$<>"l") then 1220 1240 print in$:print 1250 kf=1:if in$="l" then kf=0:goto 1280 1260 print"Hoeveel lege regels onderaan vel "; 1270 input lr:print 1280 print"Zet de printer klaar" 1290 print"en druk op een toets" 1300 gosub 210 1310 rt=0:h=0:n=1:kl=0 1320 rem print de kop 1330 k$(0)="******************************" 1340 k$(1)="* N.O.S.- HOBBYSCOOP *" 1350 k$(2)="* RADIOTEKST *" 1360 k$(3)="* BEELDKRANT MET DAARIN *" 1370 k$(4)="* OPGENOMEN DE *" 1380 k$(5)="* LANDELIJKE COMPUTER AGENDA *" 1390 k$(6)="******************************" 1400 gosub 100 1410 sp=int((hp-30)/2):if pt=1 then sp=sp-3 1420 gosub 1900 1430 sr$=" ":gosub 20000 1440 for i=0 to 6:sr$=sp$+k$(i):gosub 20000:next i 1450 restore:read dd$ 1460 sr$=" ":gosub 20000 1470 a$="Aflevering no: "+dd$ 1480 sp=int((hp-len(a$))/2):if pt=1 then sp=sp-3 1490 gosub 1900 1500 sr$=sp$+a$:gosub 20000 1510 sr$=" ":gosub 20000 1520 sr$="Zend uw bijdragen voor onze":gosub 20000 1530 sr$="beeldkrant aan:":gosub 20000 1540 sr$=" ":gosub 20000 1550 sr$="N.O.S. Hobbyscoop Beeldkrant,":gosub 20000 1560 sr$="Postbus 1200,":gosub 20000 1570 sr$="1200 BE Hilversum.":gosub 20000 1580 a$="":rem print de overige data 1590 read bb$ 1600 gosub 23000 1610 gosub 24000 1620 if kl=0 then 1600 1630 end 1800 if(in$<"A") or(in$>"Z") then return 1810 in$=chr$(asc(in$)-asc("a")+asc("A")) 1820 return 1900 sp$="":if sp<1 then return 1910 for i=1 to sp:sp$=sp$+" ":next i 1920 return 20000 rem afdruk subroutine 20010 if sr$="" then return 20020 if pt=1 then 20060 20030 print sr$ 20040 rt=rt+1:if rt=vp-4 then gosub 21000 20050 return 20060 sr$=kl$+sr$:gosub 350:gosub 360:rt=rt+1 20070 if rt=vp then gosub 22000 20080 return 21000 rem scherm vol 21010 if rt=0 then return 21020 ho=0:ve=vp-1:gosub 110 21030 print""; 21040 gosub 210:gosub 100:rt=0:return 22000 rem papier vol 22010 if kf=1 then for i=1 to lr:gosub 360:next i:goto 22050 22020 print"Zet de printer bovenaan nieuwe pagina" 22030 print"en druk daarna op een toets." 22040 gosub 210:gosub 100 22050 rt=0:n=n+1:sr=n:gosub 300:n$=sr$ 22060 sr$="Afl. no: "+dd$+", pag. "+n$ 22070 rl=len(sr$):gosub 20060:sr$="" 22080 for i=1 to rl:sr$=sr$+"-":next i 22090 gosub 20060:sr$=" ":gosub 20060:return 23000 if bb$="$$$$$" then kl=1:h=1:return 23010 if a$<>"" then a$=a$+" " 23020 a$=a$+bb$:read bb$ 23030 if left$(bb$,1)="#" then h=1:return 23040 if left$(bb$,1)="." then h=1:return 23050 if a$=". " then return 23060 if left$(a$,1)="#" then return 23070 if len(a$)".") and(h<2) then 24070 24030 a$=right$(a$,len(a$)-1) 24040 if h<2 then 24070 24050 if pt=0 then gosub 21000 24060 if pt=1 then sr$=" ":gosub 20000 24070 if a$=" " then sr$=a$:a$="":gosub 20000:goto 24160 24080 l=len(a$):if(h=0) and(l. Op" 25250 data"een of andere manier zullen we uw verhaal of" 25260 data"anecdote publiceren. Komen er veel reacties" 25270 data"dan kunnen we ze mogelijk bundelen. Liefst" 25280 data"hebben we uw reacties als vanouds naar" 25290 data"Postbus 1200, 1200 BE in Hilversum. Graag" 25300 data"ontvangen we uw inzending VOOR 15 oktober a.s." 25310 data"#NIEUW: BEELDKRANT COLUMN" 25320 data"We hebben de afgelopen vier jaar diverse" 25330 data"nieuwtjes in de Beeldkrant geintroduceerd," 25340 data"zoals bv. overzichten van frequenties voor" 25350 data"zend- en luisteramateurs, mini-cursussen," 25360 data"non-commerciele advertenties, en natuurlijk" 25370 data"de landelijke actuele computer-agenda. Om" 25380 data"deze elektronische krant nog completer te" 25390 data"maken, voegen we daar nu opnieuw iets aan toe:" 25400 data"een heuse COLUMN! We hebben Thijs Timmerman," 25410 data"student informatica te Delft, communicatie" 25420 data"deskundige en verwoed snuffelaar in Fido-" 25430 data"databanken, bereid gevonden om wekelijks een" 25440 data"stukje te schrijven voor de Beeldkrant." 25450 data"Thijs heeft 'Delfts Blauw' als naam voor zijn" 25460 data"column gekozen. We wensen hem veel inspiratie" 25470 data"en u veel leesplezier toe!" 25480 data"#DELFTS BLAUW" 25490 data"De telefoon moest weer eens worden omgebouwd." 25500 data"Het betreft een apparaat dat kan werken volgens" 25510 data"zowel Impuls Druktoets Keuze als Toon Druktoets" 25520 data"Keuze. Iedereen heeft het echter altijd over" 25530 data"pulsjes en toontjes. Het woord 'toonpuls' leidt" 25540 data"in dit opzicht tot verwarring." 25550 data". " 25560 data"Mijn telefoon beschikt echter niet over een" 25570 data"schakelaartje waarmee je dat eenvoudig kunt" 25580 data"omzetten. Toen ik het beestje dan ook kocht," 25590 data"stond deze op puls en was zo op elke centrale" 25600 data"te gebruiken. Na nog geen dag begon dat al te" 25610 data"vervelen en werd het ding opengeschroefd. Het" 25620 data"aansluitpunt voor de optionele schakelaars" 25630 data"werd gevonden en de zaak werd omgelegd. Leve" 25640 data"het Dual Tone Multi Frequency systeem en" 25650 data"vooral de toepassing daarvan in het Toon" 25660 data"Druktoets Keuze systeem." 25670 data". " 25680 data"Het uberhaupt aangesloten zijn op een" 25690 data"semi-electronische centrale realiseer je je" 25700 data"immers pas als je ineens op een mechanische" 25710 data"centrale bent aangewezen. Het moeten wachten" 25720 data"na het opnemen van de hoorn op de voorkiezer" 25730 data"(VK) totdat deze een vrije uitgang heeft" 25740 data"gevonden en zo het kiezen kan aanvangen. Of" 25750 data"de irritante schakelklikken na het kiezen van" 25760 data"een cijfer. Het zweven van kiestonen of het" 25770 data"helemaal afwezig zijn van signalering. Terwijl" 25780 data"complete regio's zijn gedigitaliseerd en het" 25790 data"interlokale verkeer binnen die regio's over" 25800 data"glasvezel loopt (waarbij centrales i.v.m." 25810 data"opvang storingen/ voorkoming overbelasting" 25820 data"vaak meervoudig benaderbaar zijn), wordt het" 25830 data"verkeer in hele stedelijke gebieden" 25840 data"afgewikkeld door mechanische centrales met" 25850 data"al hun nukken en eigenaardigheden." 25860 data". " 25870 data"Er wordt echter naar gestreefd om in 1995 alle" 25880 data"mechanische centrales buiten werking gesteld" 25890 data"te hebben. Het hele net zal dan minimaal" 25900 data"semi-electrisch zijn. Landelijk volledig stil" 25910 data"telefoneren zal dan een feit zijn. De bel" 25920 data"rinkelt al nog voordat de toets van het laatste" 25930 data"cijfer van het telefoonnummer is losgelaten." 25940 data"Even nadenken over wat er eigenlijk gezegd" 25950 data"moet worden als er wordt opgenomen is er niet" 25960 data"meer bij, er kan elk moment worden opgenomen." 25970 data"Misschien wel door een Warffums ISDN-toestel..." 25980 data".Thijs [WOEF] Timmerman." 25990 data"#RUIMTE-STATION MIR" 26000 data"Op 5 september om 2138 UTC is SOYUZ-TM 8" 26010 data"gelanceerd vanaf Baykonoer met aan boord de" 26020 data"twee Russische kosmonauten Aleksandr Viktorenko" 26030 data"(42 jaar) en Aleksandr Serebrov (45 jaar). Op" 26040 data"7 september 2225 UTC werd de SOYUZ" 26050 data"aangekoppeld aan de koppelpoort van KVANT." 26060 data"Omdat de automatische koppeling niet goed" 26070 data"verliep moesten de laatste meters van de" 26080 data"koppelmanoeuvre met de hand worden uitgevoerd." 26090 data". " 26100 data"Op 16 oktober moet de nieuwe module D worden" 26110 data"gelanceerd met een PROTON-raket vanaf" 26120 data"Baykonoer. Na een autonome vlucht van een week" 26130 data"moet deze 12,5 meter lange module aan" 26140 data"MIR aangekoppeld worden. Deze module moet het" 26150 data"uitvoeren van ruimtewandelingen (EVA's)" 26160 data"vergemakkelijken. Aleksandr Serebrov wil" 26170 data"tijdens zijn verblijf in de ruimte vijf" 26180 data"ruimtewandelingen maken met behulp van de" 26190 data"nieuwe ruimtescooter SPK, ook wel ORLAN" 26200 data"genoemd, dat is Russisch voor 'zeearend'." 26210 data". " 26220 data"Op 27 oktober 1989 zal het ruimtevrachtschip" 26230 data"Progress-M2 worden gelaceerd. Twee dagen" 26240 data"later zal de koppeling aan de KVANT plaats" 26250 data"vinden (aan achterzijde MIR-station)." 26260 data". " 26270 data"Op 28 januari 1990 zal de Soyuz-TM8 capsule" 26280 data"worden teruggezet van de voorzijde van MIR" 26290 data"naar KVANT. (De Progress-M2 is dan alweer" 26300 data"losgekoppeld). Op 30 januari 1990 zal nl. de" 26310 data"tweede nieuwe module T worden gelanceerd." 26320 data"Deze zal op 6 februari aan de voorzijde van" 26330 data"MIR aankpelen. In deze module zullen" 26340 data"materiaal- proeven worden uitgevoerd. Men wil" 26350 data"daarin halfgeleiders en ook supergeleidende" 26360 data"materialen produceren. Met de toevoeging van" 26370 data"de twee nieuwe modules wordt de massa van het" 26380 data"ruimtestation opgevoerd van 34 naar 70 ton." 26390 data". " 26400 data"Tot slot van dit overzicht vermelden we alvast" 26410 data"dat op 11 feb. de Soyuz-TM9 zal worden" 26420 data"gelanceerd, met de aflossers voor de huidige" 26430 data"bemanning, die op 19 feb. naar aarde zal" 26440 data"terugkeren met de Soyuz-TM8." 26450 data". " 26460 data"Eind september is MIR een week lang weer goed" 26470 data"zichtbaar in de eerste uren na zonsondergang" 26480 data"tijdens hoge passages over Nederland van west" 26490 data"naar oost. Het radioverkeer van MIR is te" 26500 data"beluisteren op 143,625 MHz. (Met dank aan" 26510 data"Nico Janssen en Chris van den Berg)" 26520 data"#OLYMPUS 1" 26530 data"Olympus 1, de communicatie satelliet die" 26540 data"gebouwd werd door een consortium van" 26550 data"ruimtevaart instituten, heeft een aantal" 26560 data"tests ondergaan die onlangs succesvol werden" 26570 data"afgerond. De tests werden afgenomen nadat" 26580 data"de satelliet zijn geostationaire positie op" 26590 data"19 graden Westerlengte had bereikt." 26600 data"Tot eind oktober zullen er nog diverse" 26610 data"tests uitgevoerd moeten worden voordat de" 26620 data"satelliet wordt vrijgegeven voor gebruik." 26630 data". " 26640 data"Olympus 1 staat onder controle van ESA's" 26650 data"European Space Operations Centre in Darmstadt," 26660 data"Duitsland. Zodra de satelliet in gebruik is" 26670 data"genomen, zal de controle worden overgenomen" 26680 data"door ESA's grondstation in Fucino, Italie." 26690 data". " 26700 data"De satelliet werd gelanceerd op 11 juli j.l." 26710 data"vanuit Kourou, Frans Guyana, en woog 2.612" 26720 data"kg. De satelliet werd voor ESA gebouwd om" 26730 data"een groot satellietcommunicatie platform" 26740 data"te demonstreren. Het gebruik van allerlei" 26750 data"satelliet services en technieken krijgt" 26760 data"hierdoor een extra stimulans." 26770 data"#MINDER VERKEER DOOR TELECOMMUNICATIE" 26780 data"Het toenemend gebruik van telecommunicatie" 26790 data"leidt in de toekomst tot minder gereden" 26800 data"kilometers. Vooral in de periode na 2000 is" 26810 data"het effect van telecommunicatie op verkeer" 26820 data"en vervoer van betekenis. De Nederlandse" 26830 data"Organisatie voor Toegepast" 26840 data"Natuurwetenschappelijk Onderzoek (TNO) komt" 26850 data"tot deze conclusie in een zojuist verschenen" 26860 data"rapport, dat is opgestel Rn opdracht van" 26870 data"NOVEM, Nederlandse Maatschappij voor Energie" 26880 data"en Milieu B.V." 26890 data"#TOEKOMST-SCENARIO'S" 26900 data"TNO onderzocht niet alleen de invloed van" 26910 data"teleommunicatie op verkeer en vervoer, maar" 26920 data"oo de gevolgen daarvan voor energie en" 26930 data"milieu. Uitgaande van drie scenario's heeft" 26940 data"de onderzoeksgroep de effecten van" 26950 data"telecommunicatie berekend in de jaren 2000" 26960 data"en 2025. Door onder andere teleshopping," 26970 data"thuiswerken en het thuis volgen van onderwijs," 26980 data"neemt het verkeer en vervoer in 2025 af met" 26990 data"maximaal 15%. Anderzijds leidt" 27000 data"telecommunicatie indirect tot een toename" 27010 data"van het aantal afgelegde kilometers. Vooral" 27020 data"in hun vrije tijd zullen mensen geneigd zijn" 27030 data"zich vaker en over grotere afstanden te" 27040 data"verplaatsen. Per saldo zal het aantal" 27050 data"afgelegde kilometers echter met 5% afnemen." 27060 data"#MINDER WOONWERKVERKEER" 27070 data"De afname van de mobiliteit heeft vooral" 27080 data"betrekking op het woonwerk verkeer. Aangezien" 27090 data"dit verkeer met name in de spitsuren op de" 27100 data"weg is, kan een vermindering gunstige gevolgen" 27110 data"hebben voor files, luchtverontreiniging en" 27120 data"geluidshinder. Het overheidsbeleid zou zich" 27130 data"volgens de onderzoekers moeten richten op het" 27140 data"stimuleren van deze effecten. Daarentegen zou" 27150 data"de toename van de mobiliteit buiten de spits" 27160 data"moeten worden afgeremd. Om na te gaan ho dit" 27170 data"moet gebeuren, is er verder onderzoek nodig." 27180 data"#GUNSTIGE GEVOLGEN VOOR HET MILIEU" 27190 data"De vermindering van verkeer en vervoer heeft" 27200 data"ook gunstige gevolgen voor het energieverbruik" 27210 data"en het milieu. De TNO-onderzoekers verwachten" 27220 data"in 2025 per saldo een energiebesparing van" 27230 data"3 tot 6% en een afname van schadelijke" 27240 data"emissies met 5 tot 10%. Telecommunicatie zorgt" 27250 data"dan bovendien voor een spreiding in de tijd" 27260 data"van emissies, wat bv. voor de b>hrijding van" 27270 data"stankoverlast spitsuren van belang is." 27280 data". " 27290 data"Hoewel de genoemde percentages geenszins" 27300 data"verwaarloosbaar zijn, is het effect van" 27310 data"telecommunicatie in deze toch beperkt. Andere" 27320 data"factoren, zoals de mate van economische groei" 27330 data"en de aard van de technologische" 27340 data"ontwikkelingen, hebben een grotere invloed." 27350 data"#MAANDAG-UITZENDING VERVROEGD" 27360 data"Met ingang van 1 oktober 1989 is de zendtijd-" 27370 data"indeling van de middengolf- zender Radio 5" 27380 data"enigszins veranderd. Hierdoor zal vanaf oktober" 27390 data"de computer- bijlage van Hobbyscoop op de" 27400 data"maandagavond 35 minuten naar voren worden" 27410 data"verplaatst: we zijn dan te beluisteren van" 27420 data"21.00 uur tot 21.30 uur. Dit betekent dus" 27430 data"tevens dat we 5 minuten zendtijd erbij krijgen!" 27440 data". " 27450 data"Radio 5 is te ontvangen op 1008 kHz (Flevoland)" 27460 data"en 891 kHz (steunzender Hulsberg). Deze" 27470 data"laatste frequentie is vooral belangrijk voor" 27480 data"luisteraars in Zuid-Limburg en Noordoost-" 27490 data"Belgie." 27500 data". " 27510 data"De nieuwe zendtijd geldt voor de periode van" 27520 data"1 oktober 1989 t/m 31 december 1989. Daarna" 27530 data"zal er waarschijnlijk opnieuw het een en ander" 27540 data"gaan veranderen voor Hobbyscoop. Dus: blijf" 27550 data"luisteren, we houden u op de hoogte!" 27560 data"#AGENDA SEPTEMBER" 27570 data"Deze agenda bevat vooral veel actuele gegevens." 27580 data"Voor een compleet overzicht van alle computer" 27590 data"bijeenkomsten verwijzen wij naar de Nieuwsbrief" 27600 data"van de landelijke Hobby Computer Club (HCC)," 27610 data"Postbus 149, 3990 DC Houten." 27620 data". " 27630 data".23 CC Rijnmond Vlaardingen 10:00 u" 27640 data". Meerkoetstraat 1 (open dag)" 27650 data".23 GGPC Groningen 10:45-11:15 u" 27660 data". Kantine Philips Europaweg 8" 27670 data".23 Sinclair GG Groningen 14:00 u" 27680 data". 'Denksport' Oliemuldersweg 43" 27690 data".23 MSX/CUC Mechelen (Belgie)" 27700 data". 'Tivoli' Antwerpsesteenweg" 27710 data".23 MSX/ C CC Groningen" 27720 data". 'Sonde', Zonnelaan 30" 27730 data".26 PTC Haarlem 19:00-22:00 u" 27740 data". Scholengem. Verspronckweg 150" 27750 data".26 MSX GG West-Brabant 19:30 u" 27760 data". Nieuwe Markt 88 Roosendaal" 27770 data".28 CC Rijnmond Vlaardingen 19:30 u" 27780 data". 'Heipaal' Meerkoetstraat 1" 27790 data".30 VCGN Rijswijk VLOOIENMARKT" 27800 data". Lodewijk Makeblijde College" 27810 data".30 MS(X)-DOS GG Groningen 11:30@u" 27820 data". Isebrantsheerd 97 (Beyum)" 27830 data"$$$$$" 30000 rem copyright nos hilversum