–€ €ÃLBLâLL·L5L L&}ìèäàlhd`¬¨¤ ,($ ÿƒÜP6.4RF¬ðH ä©€…$©…%…A¬­¦$Ž¦%Ž® ž0"¬±$)ªÈ$ð±$H­ ”h¨ŠLZ °©,©À ¨`e$…$æ%` Œ ©R @­< €Œ Œ 1Œ­ Ð ­ É°¢©€Êð *  ¦.­`¢©yÊú­ w­ v©h © `¬"ÌÐLA®½xÐ*H ¹H¹_™ˆÐó„A X®˜x h™ÈÀ÷„Ah®½x0­ €É£©xLYäÓ@×­xðÎx©ÒL,ëHallo Bit Byter !! } Da der ABBUC der gr|sste ATARI-8-Bit Computerclub ist, m|chte ich auch hier nochmal da}s Thema 'BASICODE' vorstellen. BASICODE wurde 1979 in Holland entwickelt. Es ist eine }einheitliche 'Minimal-BASIC-Version' und aufÅ0 allenÁ0 Rechnern lauff{hig. Voraussetzung ist das BASICODE-An}passungsprogramm (Interpreter) f}r den jeweiligen Rechner. (Bascoder genannt) } Benutzt wird BASICODE in Computersendungen des Rundfunks. (in Holland: Radio TROS und N }OS) (in Deutschland: Deutschlandsender DS-Kultur) } Es werden kleinere Anwendungsprogramme,Spielprogramme und Informationen in Form von BASICODE-Journalen ausgestrahlt }. Sozusagen eine Mailbox per Radio- wellen. Die } }ber den Rundfunk ausgestrahlten Programme werden mit einem einfachen Kassettenrekorder (mono ist am besten) aufgenommen} und mit der Datasette in den Rechner geladen. Bei den ATARI-Computern gibt es ein kleines Problem mit dem einheit}lichen BASICODE-Kassettenformat. Hier muss an der Datasette eine kleine Hardware{nderung vorgenommen werden. } Die Kurzbeschreibung des ATARI-Bascoders und die Anleitung zum Umbau der Datasette befinden sich a}ls Textfile's (STARTEXTER) auf der Diskette. Dazu geh|ren die zwei Schaltbilder (XC12A.PIC und XC12B.PIC) im 62 Sect. Fo}rmat. Dazu ist noch folgendes zu sagen: Die Umbauanleitung (XC12) bezieht sich auf Datasetten, die bereits auf "Tu}rbo-Betrieb" (Schleife 88' & Chaos) um- ger}stet sind. Ich hoffe, dass diese Informationen den Hobbybastlern aus- }reichen, um auch "normale" Datasetten umzubauen. Der ATARI-Bascoder ist PD-Software, darf also} frei kopiert und weitergege- ben werden. (siehe auch H.A.C.-Clubmagazin 4/5 90 ,Seite B ,Punkt 1 ) } Ladehinweis: Diskette mit OPTION booten, nach der READ}Y-Meldung eingeben: LOAD"D:ROOT.BC3",-999 (LOAD"D:ROOT.*") } Erst jetzt ist BASICODE betriebsbereit und es k|nnen Programme ge}laden und gestartet werden. z.B.: LOAD"D:BAUMPY.BC3",1000- } Ein ganz grosses Manko beim ATARI-Bascoder: Es fehlt ein Befehl (DIR) um } sich den Disketteninhalt ansehen zu k|nnen. Vielleicht kann dies ein interessierter }ATARI-User ab{ndern? Meine Pro- grammierkentnisse reichen daf}r leider nicht. } Zur ]bertragungssicherheit: Diese ist sehr hoch - }auf Mittelwelle k|nnen Entfernungen von mehr als tausend Kilometern }berbr}ckt werden. Auch bei teilweise fehle}rhafter ]bertragung ist es m|glich, das Programm lauff{hig zu bekommen: Es wird einfach "gelistet" und der b.z.w. die F }ehler besei- tigt. (Programme werden also trotz kurzzeitig,fehlerhafter ]bertragung vollst{ndig eingelesen) !} Der beste Zeitpunkt,um bei Radio Hilversum (Holland) mitzuschneiden,is"}t nach meinen Erfahrungen in den Wintermonaten (klare Atmosph{re) Aber das liegt letztendlich an der #}jeweiligen geografischen Lage. (je n{her, desto besser - logisch !) $} Ich weise darauf hin, dass ich nicht der Verf%}asser der Kurzbeschreibung, der Umbauanleitung und der Schaltpl{ne bin - ich habe diese ledeglich von Papier&} auf Diskette }bertragen !! '} Auf der A-Seite der Diskette befindet sich der ATARI-BASCODER (AUTORUN.SYS und RO(}OT.BC3) und ein BASICODE-Kurs in BASICODE programmiert (KURS1.BC3 - KURS9.BC3). )} Auf der B-Seite ist die Kurzbeschreibung und die Umbauanleitung zu ATARI- BASICODE . Alle anderen File's*} mit dem Extender "BC3" sind BASICODE-Pro- gramme. º} BÄAÄSÄIÄCÄOÄDÄEÄ  ,} EÄiÄnÄ EÄsÄpÄeÄrÄaÄnÄtÄoÄ fÄ}ÄrÄ CÄoÄmÄpÄuÄtÄeÄrÄ  -}  .} Folgende Sender strahlen BASICODE-Programme aus: >Radio Hilversum /}auf Mittelwelle 1008 kHz -jeden Montag ca. 21.05 bis ca. 21.30 UHR 0} -jeden Mittwoch ca. 17.35 bis ca. 17.55 UHR (die obigen Zeiten k|nnten1} sich inzwischen ge{ndert haben) >Deutschlandsender-Kultur ("REM-das Computermagazin") 2} -Diensta's -alle vier Wochen- von 22.15 bis 23.00 UHR  3} >Deutschlandsender-Kultur ("REM-Spezial-Softwareservice") -4}Mittwoch's -alle zwei Wochen- von 23.05 bis 23.20 UHR 5} Andreas Tartz **************************************************************************** 6} Kurzbeschreibung BASICODE 800XL/XE 600XL 130XE 7} von A.Graf --------------------------------------------------------------------------- Der Umbau wurde an ein8}er Datasette ATARI1010 durchgefuehrt.Besitzer anderer Datasetten muessen bei ihren Geraeten die analogen Schritte durchfu9}ehren. Nun zur Aenderung:BASICODE wird immer auf beide Kanaele der Kassette aufge- zeichnet,ATARI nutzt nur den rec:}hten Kanal,um Signale aufzuzeichnen. Der linke Kanal geht direkt zum Audiokanal des Fernsehers oder Monitors und ist ;} fuer Zusatzinformation,z.B.Sprache,gedacht.Das zum linken Kanal gehoerige Kabel muss vom Tonkopf entfernt werden und<} beide Tonkopfkanaele phasenrich- tig(!)in Reihe(nicht parallel)geschaltet werden.Damit haben wir keine Moeg- lichkei=}t zum Mithoeren mehr.Um dennoch etwas zu hoeren,verband ich den Kol- lektor des zweiten Vorverstaerker-Transistors Q102 u>}eber einen Kondensator von 22 nF direkt mit Pin 11 der seriellen Buchse.Die Aufzeichnungen mit beiden Kanaelen e?}rhoeht auch die Sicherheit von Kassettenaufzeichnungen im ATARI-Format erheblich.Zur Aufnahme sind keine Aenderungen not@}wendig,alle Anpassungen wurden softwareseitig ausgefuehrt.Etwas schwieriger ist die Wiedergabe.ATARI-DatasettenA} besitzen einen eingebauten Frequenzdecoder und geben ein bereits decodiertes bitserielles Signal ab.Dieser Decoder mussB} fuer die Wiedergabe von BASICODE-Aufzeichnungen ausser Kraft gesetzt werden Unmittelbar vor dem Signalausgang(PinC} 3 der seriellen Buchse) liegt ein Inverter mit offenem Kollektor(Transistor Q103).Die Drahtbruecke an seiner BaD}sis wurde aufgetrennt und durch einen normalen Schalter (z.B.von einer Tischlampe) ersetzt.Das noch nicht dekodierte SE}ignal wird an der gleichen Stelle wie oben beschrieben (Q102) abgegriffen und auf den Schleifer eines RegelwiderstF}ands von 68 KOhm gelegt. Das eine feste Ende des Regelwider- stands liegt auf Masse,das andere an der Basis von Q103. G}Der Regler muss bei geoeffnetem Schalter so abgeglichen werden,dass beim Einlesen eines BASICODE-Programms BitH} 4 des Ports 53775 mit gleicher Haeufigkeit 0 und 1 annimmt,bei Kassettenrauschen jedoch immer auf 0 liegt.Das laesst sI}ich sehr einfach mit folgendem Programm durchfuehren:  J} 10 POKE 54018,52 K} 20 PRINT PEEK(53775) AND 16:GOTO 20  L} Wird nun der Schalter geoeffnet,ist der Frequenzdecoder unwirksam,und der RecordeM}r kann BASICODE-Kassetten verarbeiten.Dieses Regime wird in Zukunft BASICODE-Modus oder einfach 'B' genannt.Wird der SchN}alter geschlossen, wird der Frequenzdecoder wirksam.Die Widerstandsverhaeltnisse sind dabei so,dass der nichtO} dekodierte Pegel,der immer noch an der Basis von Q103 anliegt,unwirksam wird.In diesem Regime kann die Datasette KasP}setten im ATARI-Format verarbeiten,es wird ATARI-Modus oder 'A' genannt. Wer seine Datasette wie obeQ}n beschrieben umgebaut hat,kann schon mal BASICODE starten.Dazu wird die Kassette eingelegt,der Recorder auf 'A' R} geschaltet,gestartet,die START-und die OPTION-Taste gedrueckt und der Rechner eingeschaltet. Nachdem sich BS}ASICODE gemeldet hat, wird der Recor- der auf 'B' geschaltet, der Befehl  T} LOAD "B" U} eingegeben und bei Ertoenen des BASICODE-Vorlauftons eine Taste gedrueckt. Der BildschiV}rm muss viermal dunkel werden,nach der darauf folgenden READY- Meldung ist BASICODE betriebsbereit. Mit CL. werden BasicW}ode-Programme eingelesen, mit CS. geschrieben und mit RUN gestartet.  X} Befehlsbeschreibung: Y} Fuer die 'kleinen' ATARI-Rechner gibt es kein Anpassungs-und Uebersetzungs- programm,das BASICODE an das im Z}Rechner uebliche BASIC anpasst.Ich schrieb speziell fuer BASICODE einen eigenen Interpreter,der die Arbeitsweise von [} BASICODE (Lesen und Schreiben von BASICODE-Programmen,bearbeiten von BASICODE-Datenbestaenden u.s,w.)als seinen\} normalen Standard ansieht.Dieser Interpreter bearbeitet alle in BASICODE zugelassenen Befehle und Funktionen  ]} LOAD filename ^} Laden eines Programms. filename ist ein String(Variable oder Konstante), der einen Filenam_}en entsprechend der ATARI-Norm, also Geraetename,Doppel- punkt,Filename,Punkt,Filetyp darstellt. Bei anderen Geraeten a`}ls Diskette kann alles ab dem Doppelpunkt entfallen. Das File wird eingelesen und dem schon vorhandenen Programm a}zugefuegt.Zusaetzlich zu den bekannten Geraeten gibt es das Geraet 'B'. Dies ist die Kassette im BASICODE-Bestandsformatb}.  SAVE filename (,range) c} Abspeichern eines Programms. Zu filename siehe LOAD, range ist wie bei LId}ST. Wird range weggelassen,kann das Komma auch weggelassen werden. Dann wird das gesamte Programm einschliesslich der Ae}npassungszeilen unter 1000 abgespeichert. Wichtige Anwendungen sind: SAVE "P:" Drucken des Programms SAVE "D:xxx.f}BC3",1000- Abspeichern eines BASICODE-Programms auf Diskette SAVE "D:ROOT.BC3",-999 - " - des BASICODE-Anpassungsprogg}r. auf Diskette. SAVE "B",-999 Abspeichern des BASICODE-Anpassungsprogramms auf Kassette im BASICODE-Bestandsfoh}rmat (nicht Programmformat!)  i} CLR Loeschen aller Variablen,Arrays j}und selbstdefinierter Funktionen. NEW k} Wie CLR, zusaetzlich wird das Programm ab zeile 1000 geloescht.  l} LIST (range) gibt dam}s Programm in Klartext auf den Bildschirm aus. range kann wegge- lassen werden,dann wird das gesamte Programm ausgegen}ben.Es kann bestehen aus einer Zahl,dann wird nur diese Zeile ausgegeben;aus einem Minuszeichen und einer Zahl,dao}nn wird das Programm vom Anfang bis zu dieser Zeile aus- gegeben, aus einer Zahl und einem Minuszeichen,dann wird das Pp}rogramm von dieser Zeile bis zum Programmende ausgegeben, oder aus zwei mit Minus- zeichen verbundene Zahlen,dq}ann wird das Programm von der Zeile mit der ersten Nummer bis zur Zeile mit der zweiten Nummer ausgegeben. r}  CL. s} Laden von BASICODE-Kasstte. Hier wie bei den folgenden Kommandos ist der Put}nkt Pflicht.Dieses Kommando fuehrt folgende Schritte durch: 1. Das Pro- gramm ab Zeile 1000 wird geloescht. 2. Die Datau}sette wird eingeschaltet. Bei Ertoenen des BASICODE-Vorlauftons ist eine Taste zu druecken,danach wird das Prov}gramm eingelesen.Waehrend dieser Zeit ist der Bildschirm ab- geschaltet.Soll der Lesevorgang abgebrochen werden,ist STw}ART zu druecken. 3. Nach Beendigung des Lesens wird der Recorder vom Rechner angehalten, das Bild erscheint wiex}der.Jetzt setzt der Interpreter das eingelesene Programm in seine interne Darstellung um,dies kann bei langen Progry}ammen schon einige -zig Sekunden dauern.Mit READY wird das Ende der Aktion an- gezeigt.Ein eventuell aufgetretez}ner Pruefsummenfehler wird erst jetzt gemeldet,sofern der Lesefehler nicht so katastrophale Folgen hatte,dass {} die Grundstruktur des Programms zerstoert wurde.  |} CS. Abspeic}}hern des Programms im BASICODE-Format. Abgespeichert werden alle Programmzeilen ab 1000. Der Recorder ist vorher vorz~}ubereiten,also die RECORD- und die PLAY-Taste sind zu druecken.Auch hier wird wieder waeh- rend der Kassette}narbeit der Bildschirm abgeschaltet. -Ausser den hier genannten Kommandos gibt es noch einige Komma€}ndos und Funktionen,die nur fuer die Programmzeilen unter 1000 gebraucht werden und die der Nutzer von BAS}ICODE-Programmen nicht benutzen sollte.  ‚} INFO - Datasette XC12 f}r BASICODE ------------------ƒ}---------------- Die Datasette XC12 weicht von der Datasette 1010 ab.Deshalb stimmen nicht al„}le Angaben des Herrn Graf. Meine XC12 ist von mir mit einem Hardwarezusatz…} f}r 4800 Baud erweitert worden,wie es viele ATARI-Freunde auch schon gemacht haben.Dieser Zusatz kann f}r BAS†}ICODE genutzt werden.  ‡} Es gibt zwei Varianten bei 4800 Baud,je nach Phasenlage des Tonkopfes. 1. Variante mit 1 x B ˆ}555 2. Variante mit 1 x B 555 , 1 x DL 000 ‰} F}r BASICODE ist die zweite Variante die vorteilhaftere.Bei der ersten Variante muss ein Gatter nachgesŠ}chaltet werden. DATA OUT (3) wird auf den jeweiligen Betriebszustand umgeschaltet.Bei beiden‹} Varianten braucht kein Leiterzug aufgetrennt zu werden. ATARI-Freunde,die noch keinen 4800 BaudzusŒ}atz haben,brauchen nur eine kleine Zusatzleiterplatte in die Datasette einzubauen.Ein Abgleich entf{llt.Es herrsch}en f}r jeden Betriebszustand optimale Bedingungen. Es gibt noch Varianten mit B 061 o.{.. Mit diesen isŽ}t analog zu verfahren. Die [nderung am Tonkopf ist wie von Herrn Graf beschrieben vorzunehmen.Auch die f}r die Mith|}rkontrolle }ber 22 nF.Bei 4800 Baud muss noch eine Leitung zwischen Datasette und Computer nachgezogen werden,wenn die Au}dioverbindung f}r PROCEED benutzt wurde.  ‘} Meine so umgebaute Datasette XC12 funktioniert einwandfrei. ’} Ich hoffe,dass Ihnen diese Informationen nutzen.  “} W.Koronowski i Programmierhinweise zu BASICODE ---------------------------•}---- -grunds{tzlicher Zeilenaufbau:  –} 0 - 999 Bascoder(f}r jeden Computer anders) —} 1000 Erste Zeile des Basicode-Programms. Si˜}e muss folgende Form haben: 1000 A=(Wert) : GOTO 20 : REM (Programmname) ™} 1010 - 19999 Eigentliches Basicode-Programm 20000 - 24999 Subroutinen,š} welche unerlaubte Befehle verwenden.Sie sol- len m|glichst vermieden,zumindest aber in REM-Zeilen ge-›} nau erkl{rt werden.Ein m|gliches Beispiel sind farbige Bilder,welche in BASICœ}ODE-3 noch nicht m|glich sind. 25000 - 29999 Eventuell ben|tigte DATA-Zeilen. 300}00 - 31999 REM-Zeilen,die zB.eine kurze Beschreibung des Programms und Literaturhinweise enthalten.ž} 32000 - 32767 REM-Zeilen f}r den Namen und die Anschrift des Autors und Ÿ} andere formale Bemerkungen.   } Der Zeilenaufbau sollte im Programm m|glichst in 10er Abst{nden gew{hlt werden. ¡}  ¢} -]bersicht der GOSUB-Befehle und etwa vergleichbarer Befehl im BASIC:  £} 20 Programmstart,System-Reset,Variable l|schen usw. CLEAR ¤} 100 Bildschirm l|schen und Text-Modus einschalten CLS 110 Cursor auf die Position HO,VE ¥} LOCATE 120 Cursor-Position in HO,VE zur}ckholen VGET, POS 150 Auff¦}{lliges Anzeigen von SR$;rechts und links 3 Spaces 200 Daten einer evtl. getr}ckten Taste in IN$ und IN §} INKEY$ 210 wie 200, jedoch mit warten auf Tastendruck 220 Holen des Zeic¨}hens aus Schirmposition HO,VE auf IN VGET$ 250 Erzeugen eines kurzen Aufmerksamkeitstones ©} BEEP 260 Zufallsvariable in RV mit 0 <= RV < 1 RND 270 Ausf}hren von garbage coª}llection und Speicherplatz in FR FRE(X) 280 Aus-bzw. Einschalten der BREAK-Taste , FR=0 bzw. 1 «} 300 SR wird ohne Space in SR$ gewandelt STR$ 310 wie 300, jedoch als Zahl mit CT un¬}d CN formatiert USING 330 Alle Kleinbuchstaben in SR$ in Grossbuchstaben umwandeln 350­} ]bergabe von SR$ an den Drucker PRINT#2 360 Sendet Newline,also 0D,0A (CRLF) an den Druc®}ker 400 Erzeugen eines Tones gem{ss SV,SD und SP SOUND 450 Warten vo¯}n maximal SD*0.1 s auf einen Tastendruck PAUSE 500 Er|ffnen eines File mit Namen NF$ gem{ss NF °} OPEN 540 Aus dem File wird ein String an IN$ }bergeben LOAD* 560 SR$ wird in das Fil±}e geschrieben SAVE* 580 man schliesse den Bestand mit Code NF ab CLOS²}E 600 Rechner auf graphischen Betrieb umschalten SCREEN,GR. 620 Setzen eines Punktes in die P³}osition HO,VE mit Farbe CN PSET,PLOT 630 Zeichnen einer Linie zum Punkt HO,VE in Farbe CN DRAWTO ´} 650 SR$ an der Position HO,VE anzeigen (Grafik-Mode) 950 Beenden des BASICODE-Mode µ} END  ¶} Erg{nzungen zu einigen GOSUB-Routinen -------------------------------------·} 20 Dieser Befehl darf und muss einzig in Zeile 1000 stehen.(ist wegen GOTO eigentlich kein¸}e Subroutine).Es wird auch ein "RANDOMIZE" erzeugt,da- durch ist die Pseudozufallsfolge in ihrem Start bei RUN unbe¹}stimmt. 150 Eine in SR$ abgelegte Zeichenkette wird auff{llig(meist invers) auf den Bildschirm gebracht,rechtº}s und links 3 Leerzeichen. 210 IN erh{lt ASCII-Werte in leicht modifizierter Art.So werden meist nur»} die Zahlenwerte f}r Grossbuchstaben }bergeben,auch wenn Kleinbuchstaben bet{tigt wurden. IN$ enth{lt das Ze¼}ichen,also z.B."A" bzw. "a" bei IN=65.Ferner werden folgende Steuerzeichen }bergeben: ½}13 f}r ENTER,CR 127 f}r DELETE 28 f}r Cursor nach links 29 f}r Curs¾}or nach rechts 30 f}r Cursor nach unten 31 f}r Cursor nach oben 220 liefert nu¿}r einen Wert f}r IN,genauer nur ASCII-Werte f}r Grossbuchsta- ben.Wenn auf der Position des Bildschirms ein KleinbuchÀ}stabe steht,wird der Wert in IN den des zugeh|rigen Grossbuchstabens annehmen. 270 Im Gegensatz zu FRE Á}werden der Speicherplatz von FRE(X) und FRE(X$) addiert auf die Variable FR }bergeben. Â} 310 CT enth{lt die Anzahl der darzustellenden Ziffern und Hilfszeichen (Gesamtl{nge von SR$) Ã} CN benennt die davon hinter dem Dezimalpunkt stehenden Ziffern. Ä} 400 Die Subroutine wird erst beendet,wenn der Ton abgelaufen ist.Es gelten folgende Datengrenzen (werden nicht von Å}jedem Rechner voll erf}llt): SP (Sound Pitch) f}r die Tonh|he, 0 <= SP <= 127 KaÆ}mmerton a bei SP=69, zentrales C bei SP=60 Eine ganze Zahl bedeutet einen Halbtonschritt Ç} SD (Sound Duration)f}r die Dauer, 1 <= SD <= 255 SV (Sound VolumÈ}e) f}r die St{rke, 0 <= SV <= 15 = 0 bedeutet kein h|rbarer Ton,Pause É} 450 Abbruch dieser Routine durch zwei Arten m|glich:durch Ablauf der Zeit oder durch beliebige TastÊ}enbet{tigung. Im ersten Fall gilt: SD=0,IN$="" und IN=0. Im zweiten Fall enth{llt SDË} die noch verbliebene Restzeit und IN,IN$ die Werte gem{ss GOSUB 200,210 F}r eine nicht unterbrechbare WarteÌ}routine kann GOSUB 400 mit SV=0 be- nutzt werden. 500 Í}sowie 540,560 und 580 verwenden teilweise die unterste Bildschirmzeile f}r Anweisungen und Meldungen.Sie sind nur imÎ} Text-Mode nutzbar.Als Statusmeldung fungiert die Variable IN wie folgt: IN=0 : FehÏ}lerfreier Verlauf. IN=1 : Es wurde jetzt oder fr}her der letzte String gelÐ}esen. IN=-1: Ein nicht behebbarer Fehler ist aufgetreten. Mit dem Code in NF Ñ}werden vorbereitet: NF=0 : Lesen von einer BASICODE-Kassette. Ò} NF=1 : Schreiben auf eine BASICODE-Kassette. NF=2 : Lesen von einem rechneÓ}rspezifischen externen Speicher. NF=3 : Schreiben auf einen rechnerspezifischen externen Speicher. Ô} NF=4 : Lesen von Diskette. NF=5 : Schreiben auf Diskette. Õ} NF=6 : Lesen von einer zweiten Diskette. NF=7Ö} : Schreiben auf einer zweiten Diskette. Nur f}r 0 und 1 wird universelle Lesbarkeit gem{ss×} BASICODE bewirkt. Bei der Diskettenarbeit stellen die meisten Bascoder die M|glichkeit von bis zu dreiØ} ge|ffneten Files bereit. 540 Im Normalfall ist IN=0 und IN$ enth{llt den gelesenen StringÙ}.Bei Lese- fehlern wird IN=-1. Der letzte String wird mit IN=1 an IN$ }bergeben. Bei weiteren Zugriffen blÚ}eibt IN=1 und IN$ wird ein Leerstring.Wenn auf eine nicht ge|ffnete Datei zugegriffen wird,erfolgt eine FehlermeldungÛ}. 600 Die Subroutinen GOSUB 110,120,150 und 220 sind verboten.Im Grafikmode ist auch keine File-Arbeit m|glich.Ü}Der Grafikmode muss mit Gosub 100 beendet werden. 620 Ý}Beachten Sie die unterschiedlichen Maszst{be in X- und Y-Richtung von 4:3 und die Belegung mit dem Farbwert CN. Þ} 630 Die Linie geht von der aktuellen (unsichtbaren) Cursor-Position zu den Pixel-Koorß}dinaten HO,VE 650 Der unsichtbare Cursor ist die linke obere Ecke des Schà}riftbeginns.Es ist darauf zu achten,dass die Schrift nicht den rechten Bildrand }ber- schreitet.Die Schrifá}t erscheint meist im normalen Textformat.Nach der Schriftausgabe ist der Ort des grafischen Cursors in HO und VE enâ}thal- ten.  ã} -in BASICODE verbotene Variablen: ä} 1. Alle Variablen,die mit dem Buchstaben O beginnen. 2. AS, AT, DI, EI, FN, GO, GR, IF, LN, SQ, å}ST, TI, TI$, TO, DI$; EI$, SQ$. 3. PI, es enth{llt aber auch nicht den Zahlenwert 3.14159 .  æ} -Variablen mit besonderer Bedeutung: ç} A, CN, CT, FR, HG, HO, IN, IN$, NF, NF$, RV, SD, SP, SR, SR$, SV, VE, VG .  è} -weitere Hinweise: é} Variablen in BASICODE bestehen aus ein oder zwei Zeichen,wovon das erste ein Grossbuchstabe sein mussê}.Anf}gen von %,! oder # ist nicht erlaubt.Alle Variablen besitzen das Format real und je nach Rechnertyp zumindest 6 g}lë}- tige Mantissenziffern.Stringvariablen sind durch Anh{ngen von $ gekenn- zeichnet.Logische Variablen werden indì}irekt realisiert und k|nnen nur'war' oder 'falsch' sein.Mit logischen Variablen darf nicht numerisch gerechnet werí}den,denn 'wahr' wird in Rechnern unterschiedlich durch +/- 1 oder ande- re Werte realisiert.Deshalb ist etwa A=3*(B=1) nî}icht erlaubt.Statt dessen ist zB. zu verwenden A=0:IF B=1 THEN A=3. Bevor eine Vaï}riable verwendet wird,muss ihr ein Wert zugewiesen werden. Nicht jeder Rechner setzt die V. am Programmbeginn zu Nullð}.F}r ein schnelles Programm ist auch die Reihenfolge dieser Initialisierung zu be- achten.Oft gebrauchte Vñ}. sollten zuerst - evtl.auch mit Dummy-Werten - be- legt werden.Arrays sollten ebenfalls vor jeder Anwendung dimensionieò}rt werden.Nicht alle Rechner w{hlen sonst automatisch den Wert 10.  ó} -in BASICODE g}ltige BASIC-Befehle: ô} ABS AND ASC ATN CHR$ COS DATA DIM EXP FOR GOSUB GOTO IF INPUT INT LEFT$ LEN Lõ}ET LOG MID$ NEXT NOT ON OR PRINT READ REM RESTORE RETURN RIGHT$ SGN SIN SQR + - ö} * / ^ = < > <= >= <>  ÷} Im begrenzten Umfang ist DEF FN m|glich.  ø} -eventuelle Abweichungen vom }blichen Gebrauch: ù} AND Es darf nur auf logische Ausdr}cke (Vergleich)bezogen werden.Die zu- geh|rigen Ausdr}cke soú}llten immer geklammert werden.Also z.B. (X>45) AND (X<70).Zuweisungen von logischen Ergebnissen an eine Variable û} sind zur besseren ]bersicht und Verk}rzung zul{ssig.Also z.B.: Q=(A=5) AND (B=0): IF Q THEN ...ü} ASC Nicht alle Computer liefern in allen F{llen exakt den gleichen Wert. ý} Das ist jedoch f}r die Buchstaben weitgehend erf}llt.Die Nutzung der Funktion sollte daher mit Umsicht und f}r þ}nur ein Zeichen erfolgen. (Besonderheiten beim Commodore beachten!) CHR$ Bei Werÿ}ten,die kleiner als 32 sind (Steuerzeichen) empfielt sich Vorsicht. } DIM Hat immer vor der Nutzung von Feldern zu erfolgen;in BASICODE sind maximal 2 Dimensi }onen,also z.B. DIM A(3,15),zugelassen.Das Feld be- ginnt stets mit dem nullten Element,also A(0,0). } FOR...TO...STEP...NEXT: Die Schleife wird mindestens einmal durchlaufen. STEP und der Wert danach da }rf weggelassen werden,dann betr{gt die Schrittweite 1. Nach NEXT muss immer die zugeh|rige Variable stehen. } Zu einem FOR ist auch nur ein NEXT zul{ssig. D.h.die Schleife kann nur an einer einzigen Stelle verlasse }n werden.Aus der Schleife darf nicht herausgesprungen werden.Vorzeitiges Verlassen }ber eine Be- di }ngung erfolgt durch Setzen des Laufparameters auf seinen Endwert und Sprung zum NEXT. } GOSUB Es muss eine Zahl und keine Variable als Zeilennummer folgen.Eine nicht existi }erende Zeilenzahl darf nicht verwendet werden. IF ... GOSUB ist nicht zul{ssig,richtig ist IF...THEN GOSUB. } GOTO Wie GOSUB,mit Ausnahme von 20 und 950.Auch IF ... GOTO ist nicht zu- l{ssig.Auch wenn meist } IF ... THEN Zeilennummer funktioniert, sollte konsequenterweise IF...THEN GOTO benutzt werden. } LOG Bezieht sich auf die Basis e. Es ist zu beachten,dass in einigen Rechnern hierf}r auch LN existie }rt,was nicht verwendet werden darf. In diesen F{llen kann sich LOG f{lschlicherweise auf den dekadischen } Logarithmus beziehen. MID$ Erfordert drei oder zwei Werte. MID$(A$,5) } ist erlaubt. NEXT Verlangt die Laufvariable,siehe FOR NOT Verlang }t Klammern,Siehe AND ON Nach ON darf die Variable nur die zul{ssigen Werte a }nnehmen,also von 1 bis zur Anzahl der nach GOTO bzw. GOSUB stehenden Adressen. OR siehe AND } PRINT Zur Formatierung existieren nur das Komma,Semikolon und TAB.Me }hrere Druckauftr{ge hinter PRINT m}ssen generell durch ein Semikolon ge- trennt werden.Es wird empfo }hlen,TAB oder Komma durch GOSUB 110 zu ersetzen. } REM es gibt keine alternative Zeichen ,wie zB. ! . In einer REM-Zeile sollte kein Doppelpunkt verwendet wer }den. RESTORE existiert nur ohne Zeilenzahl. TAB TA }B(0) ist nicht erlaubt.Vorsicht! Es gibt einige Computer die mit 1 zu z{hlen beginnen.F}r die meisten ist die er }ste Position 0. Subroutine GOSUB 110 befreit von dieser Unsicherheit. VAL nimmt bei ni }cht rein numerischen Argumenten in verschiedenen Rech- nern unterschiedliche Werte an. } ..........................................................................rte an. \ø }ø€€€ }€€3³·ø7·»€ }=½»€ø9¹»€€?Ÿ;€ }û»óñðqññð~€ÿÿÿÿÿÿÿàã»»»¸ó»;8wð€€ Àã»»ó¸ñó{x~?€€ ÿ }ÿÿ ã»ó»¸s»ÛØww€€ Àãû»»øû»›˜wwwÀ8‹óûûú áÛ»ñðqññð~;pw DË»ƒƒ‚<  }~~wÿÿÿÿÿÿÿÿÿ‹óóóò?w T˸88:!w>À8Ë»»»º! !}>‹ñññò!€€!ð€#€ "}€%@ÿøÿåÿ€%@ #}€#€ŸÈ>!€  '}þ@pwˆ @àøpœ 8ƒ€A¼pp"Ÿˆ DD@A˜à (}wóÿÿÿÿÿÿÿÈ?ÿÿÿÿÀìp>*Èg TE@@8ˆ> 8ƒ€@ð )}€ @~>€ @wnwð€ @ÿð *}wÿøÿà@~wwÿÿà€ @pww@ € @p>w> +}@ pŸÈ @@ ˆœ @À?ÿÿŸˆ> @@ ,} ¨Èn?ÿÀ@ pÈ!@@ ˆ!|@ÿÿà € -}!Î@ €!@ €!8@qüùÀ ÿÿÿÿÿÿ .}ÿáp@ñÁÌ þ@qù½Ø @píð  /}ÿðqÝÍØ üøùÌ ÿÿÿÿÿÿÿÿ  0} ãÁññð ³Ã;;8 »Ã{{x 1} »ÃÛÛØ ÿÿÿþóÛ›˜ ãùññð 2}  ?ÿÿøÿÿð 3} 4}ÿÿÿþ 5}ÃãçÆvw0Æö÷`Ç··À 6}Ç77`óãç0 7} 8}ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð 9} :} ;}ü8|þ||øþ8þ8üþü8|þ|î|î8îîìð <}|8|î8î|î8îüîp8àîîüüî8îî8üîp8àîî8àîîðî8îü8îî8àîþî8îþüðþ8 =}þî8îþî8îüî|þ||øþî8îîþüî|þ| >}  ?}@ÿÿþ@ @}  A} B} C}ÿÿ D}à8ÿÿÿÿÿÿÿÿà8à8 E} € F}@@€ þàø8þ8|îþ€ 8pì|8|îî8ÿÿÿÿÿÿÿÿÿÿÿü G}080îî8îîî8€ 00îî8îîî8€ 8Îpüþ8þþþ8@@|àø H}î8î|v8 € I} J} K} L}îxxà8|þì|88|æþ M}|Üîøî88îì8îîîøî88þø8îàþ8ìî88àì8îàüp N}î||||æ|àvp O} P} Q}w R}î|Ü|Üþ|xÜÜðÜqÜp S}¹û€áû¸ãøà T}çwÇwqÇÀ‡nÇnáçÀà€ U} V} W} 7Y}Z}[}\}]}^}_}`}a}b}ÿþ~c}wppp~~~~wd}wwww~>>>Èe}p7‚*ˆ3f}ÿÿÿÿø‚*¨gp>g} ?»¿??€ ;»»»€;³³€;ƒ€ ÿÿÿÿü;»¿;€7·€?€q}ó#)HALLO TXTbi+BASICOD1TXTb†”BASICOD2TXTb>XC12A PICb>XXC12B PICb/ŸWORT BC3b¤ÎASTRA1 BC3#¨rASTRA2 BC3#=¼DREIECK BC3#MfREM10 BC3#SRECHNEN BC3~ ;¿;»€7;½½€;»œwn ?»»¿€?»¹¹€;»œww> s}?øˆÈt}ˆu}Èÿþv}w}|x>>>vxgggwxooox}wx{{{~xsss|>>>y}z}{}@|}~>>>|~~>>w>wwwvx>>ww>ww~w8pww~~}}www~w8pwwpwwxww~wwpwww~xwwww~w>>>|www~}~w>>} €}ÿÿ }‚}ƒ}„}?ÿ€?ÿ€p…}ÿÿÿÿÿÿÿÿðp†}€@ ‡}@9ýÀ@p8àÿÿÿÿÿÿÿÿÿÿÿþ`p`@`8`ˆ}@qœà 8ùÀ@‰}€Š}ƒã€Îïà €ÇÇÀî》} €îãŽàî　îãŽàîã€Ïãàï「}ŽãŽàÇc€}w<<p>v>>s>nw|wwvwwŽ}w|w|wpvwpvwp~8w>>>>s>p;8}}‘}’}“}”}•}–}—}¸ààðsæàæ˜}çóàpàîç€îãŽàÀ™}ÏÜÝÇÀ;¸;»Ž8š};p>;w>›}œ}}ž}7›1000 A=500:GOTO20:REM "WOORDENSPEL"›1010 DIMA$(30),A(30),B$(30),B(30)›1020 REM---DATA tellen--›1030 TT=0›1040 READD$:TT=TT+1 }:IFD$<>"Z" THEN1040›1050 TT=TT-1›1060 GOSUB260:K=RV*TT+1›1070 S1=0:S2=0:BT=1›1080 REM === HOOFDLUS ===›1090 GOSUB100›1100 BT=¡}BT+1:IFBT=2 THENBT=0›1110 REM---woord kiezen--›1120 GOSUB260:K=RV*5+K+1›1130 IFK>TT THENK=1›1140 RESTORE›1150 FORN=1 TOK:READ¢}X$:NEXTN›1160 X=LEN(X$)›1170 REM---letters en volgnr---›1180 FORN=1 TOX›1190 A$(N)=MID$(X$,N,1):A(N)=N›1200 NEXTN›1210 REM---£}letters "schudden"--›1220 FORN=1 TOX›1230 IFX=1 THENY=1:GOTO1250›1240 GOSUB260:Y=INT(RV*X+1)›1250 B$(N)=A$(Y):B(N)=A(Y)›1260 ¤}FORT=Y TO19›1270 A$(T)=A$(T+1):A(T)=A(T+1):NEXTT›1280 X=X-1:NEXTN›1290 REM---verhaspeld woord Z$--›1300 Z$="":X=LEN(X$)›1310 ¥}FORN=1 TOX:Z$=Z$+B$(N):NEXTN›1320 REM---de opgave tonen---›1330 GOSUB100:PRINT:SR=X:GOSUB300›1340 PRINT" HIER UNTEN STEHEN ";¦}SR$;" BUCHSTABEN":PRINT›1350 PRINT" DIESE BILDEN ZUSAMMEN EIN WORT":PRINT›1360 PRINT" DRUECKE DIE SPACE-TASTE,WENN":PRINT›137§}0 PRINT" DU DAS WORT ERRATEN HAST...":PRINT›1380 PRINT" DRUECKE 'S' FUER ENDE "›1390 HO=1:VE=13:GOSUB110:PRINTZ$›1400 GOS¨}UB3070:GOSUB3040:GOSUB3040›1410 REM--letters goed zetten--›1420 M=LEN(X$):H=12›1430 REM (H=12 is bovenlangs, H=14 onderlangs)©}›1440 L=2:REM (bij L kijken of die letter goed staat)›1450 F=L:T=B(F):REM (F=from,T=to)›1460 M$=" ":IF(L=M)AND(L=T)THEN1790›1ª}470 IFT=L THENL=L+1:F=L:T=B(L):GOTO1460:REM (staat goed)›1480 GOSUB3040›1490 TR$=B$(F):MT$=" "+TR$+" "›1500 REM (maak uitpark«}eerpositie leeg)›1510 HO=F:FORN=12 TO14:VE=N:GOSUB110›1520 PRINT" ":NEXTN›1530 HO=F:VE=H:GOSUB110:PRINTTR$›1540 HO=F:VE=13:GO¬}SUB110:PRINTM$:REM (letter uitparkeren)›1550 IFF>T THEN1610›1560 Q=0:FORN=F TOT:REM (naar rechts)›1570 GOSUB200:IFIN=32 THENQ­}=1:N=T:GOTO1590›1580 HO=N-1:VE=H:GOSUB110:PRINTMT$:GOSUB3040›1590 NEXTN:IFQ=1 THEN1840›1600 GOTO1670›1610 Q=0:FORN=F TOT STEP®}-1:REM (naar links)›1620 GOSUB200:IFIN=32 THENQ=1:N=T:GOTO1650›1630 IFIN=83 THENQ=2:N=T:GOTO1650›1640 HO=N-1:VE=H:GOSUB110:PR¯}INTMT$:GOSUB3040›1650 NEXTN:IFQ=1 THEN1840›1660 IFQ=2 THEN950:REM (stoppen bij S)›1670 M$=TR$›1680 IFT=L THENHO=T:VE=13:GOSUB°}110:PRINTTR$:REM (inparkeren)›1690 REM (omschakelen onder-/bovenlangs)›1700 H=26-H›1710 IFT<>L THEN1750›1720 B$(T)=TR$:B(T)=T±}›1730 HO=L:VE=12:GOSUB110:PRINT" "›1740 VE=14:GOSUB110:PRINT" ":GOTO1460›1750 J$=B$(T):J=B(T):B$(T)=TR$:B(T)=T›1760 F=T:T=J:T²}R$=J$:MT$=" "+TR$+" "›1770 GOTO1510›1780 REM---niet geraden--›1790 HO=1:VE=18:GOSUB110:PRINT"falsch geraten - 0 Punkte!›1800 ³}SC=0:GOSUB3070:HO=5:VE=23:GOSUB110›1810 PRINT"Taste druecken ";:GOSUB210›1820 GOTO1100›1830 REM---spatiebalk ingedrukt---›18´}40 IFL=X THENSC=0:GOTO1950›1850 SC=(LEN(X$))*10›1860 FORN=1 TOLEN(X$):MI=B(N):IFMI=N THENSC=SC-10›1870 NEXTN›1880 HO=1:VE=16:µ}GOSUB110›1890 PRINT"Es heisst ";:INPUTSR$:PRINT›1900 IFSR$="" THEN1930›1910 REM--hoofdletters maken--›1920 GOSUB330›1930 IFS¶}R$<>X$ THEN1950›1940 PRINT"Sehr gut! Score ";SC;" Punkte":GOTO1960›1950 PRINT"Falsch! Es heisst ";X$:SC=0›1960 IFBT=0 THENS1=·}S1+SC:GOTO1980›1970 IFBT=1 THENS2=S2+SC›1980 GOSUB3070›1990 HO=5:VE=23:GOSUB110›2000 PRINT"Taste druecken ";:GOSUB210›2010 G¸}OTO1100›3000 REM›3010 REM === SUBROUTINES ===›3020 REM›3030 REM---wacht 1 seconde---›3040 SP=0:SV=0:SD=10:GOSUB400:RETURN›305¹}0 REM›3060 REM--score afdrukken--›3070 HO=11:VE=20:GOSUB110›3080 IFBT=1 THEN3100›3090 PRINT"<==":GOTO3110›3100 PRINT"==>"›311º}0 HO=1:VE=21:GOSUB110:PRINT;S1;" pt"›3120 HO=18:VE=21:GOSUB110:PRINT;S2;" pt"›3130 RETURN›3140 REM›25000 DATA"WANDERSTOCK","R»}EGENTONNNE","STRASSENBAHN"›25010 DATA"ALUMINIUM","ELEKTRIZITAET","MILLIMETER"›25020 DATA"TELEVISION","BLOCKFLOETE","ZIMMERMAN¼}N"›25030 DATA"METZGER","POSTBOOTE","POSTSIEGEL"›25040 DATA"BUTTERBLUME","GLADIOLE","SONNENBLUME"›25050 DATA"MADEMOISELLE","LE½}BENSBAUM","MEDIZIN"›25060 DATA"SPUCKNAPF","PAPIERKORB","KLIMAANLAGE"›25070 DATA"LESERATTE","SILBERBERG","REGENSCHIRM"›25080 D¾}ATA"KATZENPFOTE","KREUZSPINNE","OHRWURM"›25090 DATA"KAMPFHAHN","MAIKAEFER","SPINNGEWEBE"›25100 DATA"STUBENFLIEGE","STECHMUECK¿}E","KAKERLAK"›25110 DATA"BLATTLAUS","KOHLRABI","PAMPELMUSE"›25120 DATA"SITTICH","PAPAGAI","NACHTIGALL"›25130 DATA"HERKULES","À}WITZBOLD","POSTAMT"›25140 DATA"SILBERLING","MEERKATZE","ZIEHBRUNNEN"›25150 DATA"ABWASCH","ELSTER","PFLAUMENMUS"›25160 DATA"ELÁ}EFANT","NILPFERD","KAENGERU"›25170 DATA"KROKODIL","KAKADU","SCHIMPANSE"›25180 DATA"PAVIAN","DROMEDAR","KAMEL"›25190 DATA"NASHÂ}ORN","SEEHUND","LEOPARD"›25200 DATA"BEEFSTEAK","GITTER","STOPPLICHT"›25210 DATA"KABELROLLE","COMPUTER","LEBKUCHEN"›25220 DATAÃ}"KLARINETTTE","FEUERWEHR","RESTAURANT"›25230 DATA"PUPLIKUM","ZIEGENHALS","KLEISTER"›25240 DATA"MUSEUM","WENDEHALS","FORUM"›25Ä}250 DATA"FLUGTAG","AMPTMANN","FLUGPLATZ"›25260 DATA"KUECHE","BADESTUBE","HANDTUCH"›25270 DATA"FUSSBALLFELD","KALENDER","BATTEÅ}RIE"›25280 DATA"LIEGESTUHL","INTERSHOP","REISELUST"›25290 DATA"KOHLENKASTEN","AUTOBUS","CHAUFFEUR"›25300 DATA"FILZSTIFT","LEDÆ}ERHOSE","WASCHMITTEL"›25310 DATA"ROSINENBROT","RAHMBUTTER","MARGARINE"›25320 DATA"BENZINPUMPE","VERBRAUCH","HANDBREMSE"›25330Ç} DATA"REGENJACKE","SONNENBRILLE","SCHWIMMWESTE"›25340 DATA"NAEHMASCHINE","TRABANT","MERCEDES"›25350 DATA"KORNFELD","MOTORBOOTÈ}","SEGELJACHT"›25360 DATA"AUTOBAHN","LUFTPUMPE","BASICODE"›25370 DATA"MICKYMAUS","PANNENHILFE","FUSSBREMSE"›25380 DATA"SCHWIMÉ}MBAD","DEVISENKURS","MELODIE"›25390 DATA"SPIEGELEIER","FLASCHENPOST","SPINAT"›25400 DATA"Z"›25410 REM›25420 REM evt andere DAÊ}TA woorden in HOOFDLETTERS›25430 REM het aantal DATA woorden is vrij, maar het›25440 REM laatste DATAWOORD moet "Z" zijn›3000Ë}0 REM----------------------------›30010 REM geschikt voor twee personen›30020 REM met beurtaanwijzer en score›30030 REM------Ì}----------------------›30040 REM gemaakt op 'n MSX2 computer›30050 REM----------------------------›32000 REM Ch.W.Brederode›3Í}2010 REM Von Bonninghausenlaan 33›32030 REM 2161 ES LISSE›32040 REM›32050 REM TROS-RADIO dd 891115›2000 REM Ch.W.Brederode›3d›1000 A=500:GOTO20:REM # BASICODE-3 JOURNAL 8 / ASTRA-INFO #›1010 HT=HO:VT=VE:S$="":FORI=1 TOHT:S$=S$+" ":NEXTI›1020 HL=0:HR=Ï}HT:VL=2:VR=VT-2:R$="":READT$›1030 GOSUB1340:HO=(HT-LEN(SR$)-6)/2:VE=0:GOSUB110›1040 GOSUB150:PRINT:PRINT:PRINT›1050 PRINT"AusÐ}druck ueber"›1060 PRINT:PRINT" - 1 den Bildschirm,"›1070 PRINT" - 2 den Drucker."›1080 PRINT:PRINT"Welche Nummer ?";:GOÑ}SUB210›1090 SC=IN-48:PRINTSC:IFSC<>2 THENSC=1:GOTO1180›1100 PRINT:PRINT"Wieviel Leerzeichen "›1110 PRINT"am Zeilenanfang Ò} ";:INPUTHL›1120 PRINT:PRINT"Wieviel Text-Zeichen "›1130 PRINT"auf jeder Zeile ";:INPUTI:HR=HL+I-1›1140 PRINT:PRINT"WieÓ}viel Leer-Zeilen "›1150 PRINT"am Seitenende ";:INPUTVL›1160 PRINT:PRINT"Wieviel Text-Zeilen "›1170 PRINT"auf jeder SÔ}eite ";:INPUTVR:VR=VR+VL-3›1180 MM$="":IFHL>0 THENMM$=LEFT$(S$,HL)›1190 GOSUB1310:M$=MM$:AL=VL:IFSC=2 THEN GOSUB1290›120Õ}0 IFLEN(R$)>HR-HL THEN GOSUB1730›1210 GOSUB1370:IFR$<>"" THENR$=R$+" "›1220 R$=R$+D$:GOTO1200›1230 IFSC=2 THENSR$=M$+SR$:GOSUÖ}B350:GOTO1250›1240 GOSUB120:PRINTM$;SR$;:VE=VE+1:HO=0:GOSUB110:HL=0›1250 M$=MM$:AL=AL+1:IFAL<=VR THENRETURN›1260 IFSC=1 THEN1×}310›1270 REM IFVL>0 THENFORI=1 TOVL:GOSUB360:NEXTI›1280 AL=VL›1290 SR$=LEFT$(S$,(HR-HL-LEN(T$))/2)+T$:GOSUB1230›1300 SR$="":GØ}OSUB1230:AL=VL:RETURN›1310 HO=0:VE=VT:GOSUB110›1320 SR$="WEITER: druecke ":GOSUB150›1330 GOSUB210:IFIN<>13 THENÙ}1330›1340 GOSUB100:AL=VL:SR$=T$›1350 PRINTLEFT$(S$,(HT-LEN(SR$))/2-3);:GOSUB150›1360 PRINT:PRINT:RETURN›1370 READD$›1380 IFD$Ú}="" THEN1370›1390 IFLEFT$(D$,1)="." THEN1440›1400 IFLEFT$(D$,1)<>"!" THENRETURN›1410 IFD$="!" THEND$="":GOTO1430›1420 D$=RIGHÛ}T$(D$,LEN(D$)-1)›1430 GOSUB1670:GOTO1380›1440 IFD$<>".E" THEN1490›1450 J=1:GOSUB1670:T$="E N D E"›1460 SR$="":GOSUB1230:GOSUBÜ}1230:SR$=T$:GOSUB1230:T$=""›1470 SR$="":GOSUB1230:IFAL<>VL THEN1470›1480 GOTO950›1490 DD$=MID$(D$,2,1):D$=RIGHT$(D$,LEN(D$)-2Ý})›1500 IFDD$<>"R" THEN1550›1510 IFSC=2 THENRETURN›1520 IFLEN(R$)+6+LEN(D$)>=HR-HL THENSR$=R$:GOSUB1230:R$=""›1530 PRINTM$;R$;Þ}:SR$=D$:GOSUB150:M$=""›1540 HL=HL+LEN(R$)+LEN(D$)+6:R$="":GOTO1370›1550 IFDD$<>"M" THEN1580›1560 I=VAL(D$):MM$="":IFI+HL=0 THß}EN1370›1570 MM$=LEFT$(S$,I+HL):GOTO1370›1580 IFDD$="P" THENJ=VAL(D$):GOSUB1670:GOSUB1690:GOTO1370›1590 IFDD$="T" THENT$=D$:J=à}10:GOSUB1670:GOSUB1690:GOTO1510›1600 IFDD$="Q" THENR$=R$+CHR$(34)+D$:GOTO1370›1610 IFDD$<>"F" THEN1640›1620 J=VAL(D$):GOSUB16á}70›1630 J=J-1:IFJ>-1 THENSR$="":GOSUB1230:GOTO1630›1640 IFDD$<>"C" THEN1660›1650 SR$=LEFT$(S$,(HR-HL-LEN(D$))/2)+D$:GOSUB1230â}›1660 GOTO1370›1670 GOSUB1730:SR$=R$:GOSUB1230:R$="":J=J-1›1680 RETURN›1690 IF(SC=1)OR(AL+J>VR)THEN1710›1700 SR$="":GOSUB1230ã}:GOSUB1230:RETURN›1710 IFAL<>VL THENSR$="":GOSUB1230:GOTO1710›1720 RETURN›1730 K=HR-HL+1-LEN(M$)›1740 IFLEN(R$)<=K THENRETURNä}›1750 IFMID$(R$,K,1)=" " THEN1780›1760 K=K-1:IFK>0 THEN1750›1770 SR$="":GOTO1790›1780 SR$=LEFT$(R$,K-1):R$=RIGHT$(R$,LEN(R$)-å}K)›1790 GOSUB1230:GOTO1730›1800 REM›1810 REM UEBERSETZTE VERSION:›1820 REM›1830 REM COMPUTER-BULLETIN NO.32 (7/89)›1840 REM Sæ}TICHTING BASICODE, EINDHOVEN›1850 REM›25000 DATA"A S T R A - INFORMATIONEN"›25010 DATA›25020 DATA"!INFORMATIONEN ZUM"›25030 ç}DATA"!SATELLITEN-DIREKT-"›25040 DATA"!EMPFANG ANHAND DES"›25050 DATA"! A S T R A"›25060 DATA"!SATELLITEN-SYSTEMS"›25070è} DATA".P0"›25080 DATA"!.RWO GIBT ES EMPFANGSANLAGEN ?"›25090 DATA"!!!IN MEHR ALS 6000 FACHGESCHAEFTEN EUROPAS,"›25100 DATA"40é}00 DARUNTER BEFINDEN SICH IN DER BRD."›25110 DATA"AUCH IN DER DDR WIRD ES EIN NETZ VON ASTRA"›25120 DATA"SERVICE-BETRIEBEN GEê}BEN."›25130 DATA"INFORMATIONEN IN DER DDR GIBT ES IM MOMENT"›25140 DATA"BEI:","!LEIPZIGER OERTZEN ELEKTROVERTRIEBS"›25150 DATë}A"GmbH","!BURGAUENSTR.18, 7033 LEIPZIG"›25160 DATA"!!!.RWAS GEHOERT ZUR AUSRUESTUNG ?"›25170 DATA"!!!NUR DREI GERAETE:"›25180ì} DATA"!!- eine PARABOLANTENNE (SCHUESSEL) MIT"›25190 DATA"! AUSSENEINHEIT (KONVERTER)"›25200 DATA"!!- ein SATELLITENEMPFAENGí}ER (RECEIVER)"›25210 DATA"!!- ein FERNSEHGERAET",".P0"›25220 DATA".RWIE GROSS MUSS DIE PARABOLANTENNE"›25230 DATA".RSEIN ?"›2î}5240 DATA"!!FUER DEN EMPFANG DES ASTRA SATELLITEN WERDEN"›25250 DATA"IN DER REGEL 55 BIS 65cm SPIEGEL ANGEBOTEN."›25260 DATA"ï}DAS IST"›25270 DATA"VOELLIG AUSREICHEND FUER DEN EMPFANG IN DER DDR."›25280 DATA"NATUERLICH KANN MAN AUCH GROESSERE"›25290 DAð}TA"PARABOLANTENNEN VERWENDEN."›25300 DATA"!!.RWOHIN MIT DER SCHUESSEL ?"›25310 DATA"!!DER SATELLIT BEFINDET SICH IM WELTRAUM ñ}ETWA"›25320 DATA"UEBER DEM AFRIKANISCHEN STAAT ZAIRE - DAHER"›25330 DATA"MUESSEN DIE ANTENNEN IN SUEDLICHER RICHTUNG"›25340 Dò}ATA"AUSGERICHTeT WERDEN (GENAUER GESAGT IN"›25350 DATA"SUED-OESTLICHER RICHTUNG). AM BESTEN DORT"›25360 DATA", WO FREIER ZUGAó}NG MOEGLICH IST, DENN DER"›25370 DATA"EINSTRAHLUNGSBEREICH DARF NICHT DURCH BAEUME,"›25380 DATA"GEBAEUDE,HOCHSPANNUNGSLEITUNGô}EN ODER BERGE"›25390 DATA"VERDECKT WERDEN. DIE SCHUESSEL KANN AN DER"›25400 DATA"WAND (WANDMONTAGE) ODER AN EINEM MASTEN"›254õ}10 DATA"(VORTEILHAFT KANN EIN SCHON VORHANDENER"›25420 DATA"ANTENNENMAST VERWENDET WERDEN) MONTIERT WERDEN."›25430 DATA".P0"›ö}25440 DATA"!.RSIND GENEMIGUNGEN NOTWENDIG ?"›25450 DATA"!!JA. SIE WERDEN VON DER ZUSTAENDIGEN"›25460 DATA"BEZIRKSDIREKTION DE÷}R DEUTSCHEN POST, ABT."›25470 DATA"FUNKWESEN, ERTEILT. DAZU SIND ANGABEN UEBER"›25480 DATA"DEN HERSTELLER, DEN AUFBAU (TYP) Uø}ND EVENTUELL"›25490 DATA"UEBER STATIK (BEI DAECHERN Z.B.) NOTWENDIG."›25500 DATA"!!!.RWIEVIEL SPEICHERPLAETZE SOLLTE "›25510 ù}DATA".RDER EMPFAENGER (RECEIVER) HABEN ?"›25520 DATA"!!AM BESTEN 48. IM HERBST WIRD EIN WEITERER"›25530 DATA"ASTRA-SATELLIT Gú}ESTARTET, DER AUCH 16 PROGRAMME"›25540 DATA"UEBERTRAEGT (ASTRA 1B). DIE BETREIBER LASSEN"›25550 DATA"OFFEN, OB IHM EIN DRITTEû}R FOLGEN WIRD - DAS"›25560 DATA"WAEREN DANN INSGESAMT 48 PROGRAMME.",".P0"›25570 DATA"!.RBRAUCHT MAN DAFUER ZUSAETZLICHE"›255ü}80 DATA".REMPFANGSGERAETE ?"›25590 DATA"!!NEIN. WEITERE ASTRA-SATELLITEN WERDEN AUF"›25600 DATA"ETWA DER GLEICHEN POSITION IMý} ALL STATIONIERT,"›25610 DATA"SO DASS MIT DER KLEINEN 65cm SCHUESSEL ALLE"›25620 DATA"ASTRA-TROGRAMME EMPFANGEN WERDEN KOENNEþ}N."›25630 DATA"!!!.RWAS UNTERSCHEIDET ASTRA VON"›25640 DATA".RANDEREM SATELLITEN-FERNSEHEN ?"›25650 DATA"!!ASTRA ERMOEGLICHT ÿ}ERSTMALS IN EUROPA"›25660 DATA"DEN EMPFANG VON 16 KANAELEN MIT EINER EINZIGEN"›25670 DATA"KLEINEN SCHUESSEL AUS EINER EINZIGE}N"›25680 DATA"POSITION, DIE NICHT VERAENDERT WERDEN MUSS."›25690 DATA"DIE NOTWENDIGEN EMPFANGSANLAGEN SIND KLEINER"›25700 DAT}A"UND DAMIT PREISGUENSTIGER ALS ANLAGEN ZUM"›25710 DATA"EMPFANG BISHERIGER FERNMELDESATELLITEN.",".P0"›25720 DATA"!.RWELCHE Z}USAETLICHEN PROGRAMME"›25730 DATA".RBRINGT ASTRA 1B ?"›25740 DATA"!!DARUEBER WIRD NOCH VERHANDELT. IM GESPRAECH"›25750 DATA"S}IND ABER TELE 5 SOWIE DIE DRITTEN PROGRAMME"›25760 DATA"DER ARD."›25770 DATA"!!!.RWIE HOCH SIND DIE KOSTEN ?"›25780 DATA"!!ES} SIND FUER DEN ASTRA-SATELLITEN-"›25790 DATA"EMPFANG VIELE VERSCHIEDENE KOMPLETT-SYSTEME IM"›25800 DATA"ANGEBOT. IN IHNEN IST} ALLES ENTHALTEN WAS"›25810 DATA"MAN BRAUCHT - VOM SPIEGEL, DEM EMPFAENGER -"›25820 DATA"BIS ZUR LETZTEN SCHRAUBE DER HALTERU}NG."›25830 DATA"DIE PREISE SCHWANKEN JE NACH FIRMA,TYP UND"›25840 DATA"AUSSTATTUNG ZWISCHEN CA. 850 - 1000 DM.",".P0"›25850 D}ATA"!.RINFORMATIONEN ZUM SATELLITEN"›25860 DATA"!!!ASTRA 1A WURDE AM 11.DEZEMBER 1988"›25870 DATA"ERFOLGREICH MIT DEM ERSTEN }KOMMERZIELLEN FLUG"›25880 DATA"DER ARIANE-4-RAKETE GESTARTET UND STEHT"›25890 DATA"SEITDEM IN 36000 KM ENTFERNUNG UEBER DEM"› }25900 DATA"AEQUATOR - ETWA UEBER ZAIRE. ER HAT 16"›25910 DATA"TRANSPONDER, DIE JEWEILS ZUR UEBERTRAGUNG EINES"›25920 DATA"FER }NSEHKANALS DIENEN. VERSTAERKER GLEICHEN"›25930 DATA"MOEGLICHE SCHWANKUNGEN INFOLGE WECHSELNDER"›25940 DATA"WETTERLAGEN AUS. T }RETEN TECHNISCHE STOERUNGEN"›25950 DATA"AUF, HAT DER SATELLIT RESERVETRANSPONDER"›25960 DATA", DIE ZUGESCHALTET WERDEN KOENNE }N. MIT ASTRA 1A"›25970 DATA"IST ES MOEGLICH, JEWEILS EIN PROGRAMM"›25980 DATA"GLEICHZEITIG IN BIS ZU 5 VERSCHIEDENEN"›25990 D }ATA"SPRACHEN AUSZUSTRAHLEN ODER HOERFUNK"›26000 DATA"PROGRAMME ZU UEBERTRAGEN - DAFUER SORGEN"›26010 DATA"MEHRFACH-TONUNTERTR}AEGER."›26020 DATA"DIE ANZAHL DER TONKANAELE JE TV-KANAL IST"›26030 DATA"UNTERSCHIEDLICH.",".P0"›26040 DATA"!!ASTRA 1A WURDE }VON DER SES (SOCIETE"›26050 DATA"EUROPEENNE DES SATELLITES) PRAKTISCH VON DER"›26060 DATA"STANGE GEKAUFT. IN DEN USA ALS 164.}SATELLIT"›26070 DATA"EINER SERIE HERGESTELLT, WAR ER RELATIV"›26080 DATA"PREISGUENSTIG. ER IST ETWA 7 METER HOCH UND"›26090 D}ATA"WOG BEIM START 1768 KILOGRAMM. DIE"›26100 DATA"SPANNWEITE SEINER SONNENPADDEL BETRAEGT"›26110 DATA"20 METER.",".P0"›26120} DATA"!.RDIE BODENKONTROLLSTATION"›26130 DATA"!!IN DER SATELLITENKONTROLLZENTRALE SAMMELN"›26140 DATA"UND ANALYSIEREN 80 UEBE}RWIEGEND JUNGE LEUTE"›26150 DATA"AUS 13 LAENDERN LAUFEND DATEN UEBER POSITION"›26160 DATA"UND ZUSTAND DES SATELLITEN. ALLE ZW}EI"›26170 DATA"SEKUNDEN WIRD ER ABGEFRAGT. ERFAHRUNG UND VIEL"›26180 DATA"GESCHICK ERFORDERN REGELMAESSIGE MANOEVER"›26190 DA}TA", DIE IHN AUF SEINE RICHTIGE POSITION"›26200 DATA"'ZURUECKSCHUBSEN', OBWOHL MAN SAGT, DASS"›26210 DATA"ASTRA 1A AUF DER FE}STEN GEOSTATIONAEREN"›26220 DATA"POSITION VON 19,2 GRAD OST STEHT. DENNOCH"›26230 DATA": SONNE ,MOND UND ERDE ZIEHEN IHN HIN }UND HER."›26240 DATA"DROHT ER AUS EINEM GEDACHTEN KAEFIG VON 70 KM"›26250 DATA"LAENGE,BREITE UND HOEHE AUSZUBRECHEN, WERDEN"›}26260 DATA"VOM BODEN AUS SEINE KLEINEN TRIEBWERKE"›26270 DATA"GEZUENDET, DIE IHN STEUERN. BRENNSTOFF FUER"›26280 DATA"DIESE M}ANOEVER STEHT NUR IN BESCHRAENGTEM"›26290 DATA"UMFANG - WENNGLEICH FUER MINDESTENS 10 JAHRE"›26300 DATA"ZUR VERFUEGUNG. IST E}R AUFGEBRAUCHT, DRIFTET"›26310 DATA"DER SATELLIT UNKONTROLLIERBAR INS WELTALL AB."›26320 DATA".P0"›26330 DATA"!!DIE FERNSEHPR}OGRAMM-SENDESTATION SENDET"›26340 DATA"5 PROGRAMME DIREKT VON BETZDORF (25KM"›26350 DATA"AUSSERHALB VON LUXEMBURG) AUS ZUM SA}TELLITEN."›26360 DATA"DAS JEWEILIGE SIGNAL KOMMT VON DEN EINZELNEN"›26370 DATA"FERNSEHSTUDIOS DORTHIN UND GEHT UEBER EINEN"›2}6380 DATA"RIESSIGEN PARAPOLSPIEGEL (UPLINKSTATION) ZUM"›26390 DATA"SATELLITEN. DIE QUALITAET DIESER FUENF UND"›26400 DATA"ALL}ER ANDEREN VON ASTRA 1A VERTEILTEN"›26410 DATA"PROGRAMME WIRD UNUNTERBROCHEN VON TECHNIKERN"›26420 DATA"AUF BILDSCHIRMEN IN D}ER FERNSEHPROGRAMM -"›26430 DATA"UEBERWACHUNGSZENTRALE KONTROLLIERT."›26440 DATA"AUSSERDEM BIETET BETZDORF DEN PROGRAMMANBIET }ERN"›26450 DATA"UND HERSTELLERN DER ERFORDERLICHEN"›26460 DATA"EMPFANGSGERAETE HERVORRAGENDE TECHNISCHE"›26470 DATA"MOEGLICHK!}EITEN, UM DIE GERAETE ZU TESTEN ODER"›26480 DATA"DEN EMPFANG MITTELS ZAHLREICHER VERSCHIEDENER"›26490 DATA"ANTENNEN AUF EINER"} KLEINEN 'ANTENNENFARM'"›26500 DATA"ZU DEMONSTRIEREN.",".P0"›26510 DATA"!!.RDAS ASTRA-KONZEPT"›26520 DATA"!!DR.PIERRE MEYRAT,#} GEBUERTIGER SCHWEIZER UND"›26530 DATA"GENERALDIREKTOR DER SES, SIEHT KLARE VORTEILE"›26540 DATA"GEGENUEBER ANDEREN SATELLITE$}NBETREIBERN:"›26550 DATA" DIE SES, DEREN AKTIONAERE GROESSTENTEILS"›26560 DATA"BANKEN SIND, IST DER EINZIGE PRIVATE"›26570 DA%}TA"SATELLITENBETREIBER UND DAMIT NICHT DURCH"›26580 DATA"UEBERRAGENDE MEDIENINTERESSEN BEHINDERT."›26590 DATA"AUSGANGSPUNKT A&}LLER UEBERLEGUNGEN WAR DIE"›26600 DATA"FRAGE: WIE KANN EIN SYSTEM SO AUFGEBAUT WERDEN"›26610 DATA", DASS DER KONSUMENT MOEGLI'}CHST VIEL VOM"›26620 DATA"SATELLITENSYSTEM PROFITIERT ? SES ENTSCHIED"›26630 DATA"SICH FUER EINEN MEDIEN-POWER-SATELLITEN, DE(}R"›26640 DATA"EINEN PROGRAMMEMPFANG MIT EINER RELATIV KLEINEN"›26650 DATA"SCHUESSEL SICHERT. ASTRA 1A BIETET 16 PROGRAMME"›26)}660 DATA"UND DAMIT DAS GROESSTE ANGEBOT, DAS DERZEIT"›26670 DATA"UEBER EINEN SATELLITEN VERTEILT WIRD.",".P0"›26680 DATA"!.RD*}AS MOMENTANE PROGRAMMANGEBOT"›26690 DATA"!!ES FOLGT DIE BELEGUNGSLISTE DER"›26700 DATA"16 TRANSPONDER VON ASTRA 1A."›26710 DA+}TA"!DIE UNGERADE NUMMERIERTEN KANAELE SIND"›26720 DATA"HORIZONTAL POLARISIERT, DIE ANDEREN VERTIKAL."›26730 DATA"!!!TRANSPOND,}ER NR.1:"›26740 DATA"!!.RS P O R T K A N A L"›26750 DATA"!!SPORTPROGRAMM IN BIS ZU 4 SPRACHEN."›26760 DATA"ES WIRD ENGLISCH,D-}EUTSCH,HOLLAENDISCH"›26770 DATA"UND FRANZOESISCH ANGEBOTEN."›26780 DATA"VON 8.00 UHR FRUEH BIS CA. 2.00 UHR NACHTS"›26790 DAT.}A"WIRD UEBER SPORTEREIGNISSE AUS ALLER WELT"›26800 DATA"BERICHTET.","!!!DIE ANSCHRIFT DES SENDERS:"›26810 DATA"!!8000 MUENCHE/}N 40"›26820 DATA"!!JOSEPH-DOLLINGER-BOGEN 30",".P0"›26830 DATA"!TRANSPONDER NR.5"›26840 DATA"!!!.RC H I L D R E N S C H A N 0}N E L"›26850 DATA"!!.RL I F E S T Y L E"›26860 DATA"!!.RJ. S. T. V."›26870 DATA"!!!ENGLISCHSPRACHIGES FERNSEHPROGRAMM AUS"›261}880 DATA"GROSSBRITANNIEN. THE CHILDRENS CHANNEL"›26890 DATA"LAEUFT VORMITTAGS VON 6.00 - 10.00 UHR (BST)."›26900 DATA"LIFESTY2}LE LAEUFT VON 10.00 - 19.00 UHR (BST)"›26910 DATA"UND J.S.T.V. VON 20.00 - 22.00 UHR (BST)."›26920 DATA"!!!!IM TONKANAL BEFIN3}DET SICH DER ENGLISCHE"›26930 DATA"RADIOSENDER 'ITN' MIT ITN-NEWS AUS LONDON.",".P0"›26940 DATA"!TRANSPONDER NR.9"›26950 DATA4}"!!!.RT E L E C L U B"›26960 DATA"!!!DEUTSCHER KINOKANAL (PAY-TV)."›26970 DATA"SENDET VON 11.00 UHR FRUEH BIS CA.1.00 NACHTS"5}›26980 DATA"HAUPTSAECHLICH AKTUELLE SPIELFILME."›26990 DATA"MITGLIED IM TELECLUB KANN MAN WERDEN"›27000 DATA"WENN MAN AN DIE"6},"!!TELECLUB GmbH /POSTFACH"›27010 DATA"!D-8043 UNTERFOEHRING","!!SCHREIBT."›27020 DATA"DER EINTRITT KOSTET CA.90 DM, DIE"›277}030 DATA"MITGLIEDSCHAFT PRO MONAT CA.35 DM."›27040 DATA"DEN DECODER KANN MAN FUER CA.400 DM ERWERBEN."›27050 DATA"!!ANSCHRIFT8} SENDER:"›27060 DATA"!!8043 UNTERFOEHRING/ BAHNHOFSTRASSE 27a"›27070 DATA".P0"›27080 DATA"!.RWAS IST PAY-TV ?"›27090 DATA"!!E9}INIGE PROGRAMME WERDEN ALS ABONNEMENT-"›27100 DATA"FERNSEHEN ANGEBOTEN. DAS BEDEUTET, DIESE"›27110 DATA"PROGRAMME BEINHALTEN :}KEINE WERBUNG, SONDERN"›27120 DATA"FINANZIEREN SICH DURCH DEN VERKAUF VON"›27130 DATA"ABONNEMENTS. SIE WERDEN VERSCHLUESSELT";}›27140 DATA"AUSGESTRAHLT UND KOENNEN NUR MIT EINEM"›27150 DATA"SPEZIELLEN DECODER EMPFANGEN WERDEN. DER"›27160 DATA"VERANSTAL<}TER VERLANGT DAFUER EINE"›27170 DATA"BESTIMMTE (Z.B.MONATLICHE) GEBUEHR."›27180 DATA"!!!TRANSPONDER NR.13"›27190 DATA"!!.RR T=} L VERONIQUE"›27200 DATA"!!FERNSEHPROGRAMM IN HOLLAENDISCH/"›27210 DATA"!FRANZOESISCHER SPRACHE."›27220 DATA"!!!IM TON GIBT >}ES 'RTL international'"›27230 DATA"!MIT NONSTOP MUSIK.",".P0"›27240 DATA"!!TRANSPONDER NR.15"›27250 DATA"!!!.RM T V EUROPE"›?}27260 DATA"!!!24 STUNDEN MUSIKPROGRAMM MIT ROCK UND"›27270 DATA"POPMUSIK AUS GROSSBRITANNIEN."›27280 DATA"ES WERDEN ALTE UND @}NEUE VIDEOCLIPS GEZEIGT."›27290 DATA"ZUM BILD GIBT ES EINEN STEREOTON."›27300 DATA"!!!ANSCHRIFT:"›27310 DATA"!!CENTRO HOUSE, A}20-23"›27320 DATA"!!MANDELA STREET"›27330 DATA"!!LONDON NW1 ODU"›27340 DATA"!!ENGLAND"›27350 DATA".P0"›27360 DATA"TRANSPONDERB} NR.2"›27370 DATA"!!.RR T L plus"›27380 DATA"!!DEUTSCHES PRIVATFERNSEHEN MIT EINEM"›27390 DATA"VOLLPROGRAMM."›27400 DATA"C}!!ADRESSE:","!!5000 KOELN-JUNKERSDORF"›27410 DATA"!AACHENER STRASSE 1036"›27420 DATA"!!!!TRANSPONDER NR.4"›27430 DATA"!!.RE UD} R O S P O R T"›27440 DATA"!!SPORTPROGRAMM IN BIS ZU 4 SPRACHEN"›27450 DATA"(U.A. IN DEUTSCH,ENGLISCH)."›27460 DATA"GESENDET E}WIRD TAEGLICH VON 6.00 UHR FRUEH"›27470 DATA"BIS CA.2.00 UHR NACHTS."›27480 DATA"!!ADRESSE:","!!6 CENTAUERS BUSINESS PARK,"›2F}7490 DATA"GRANT WAY","!ISLEWORTH,MIDDLESEX TW7 5QD, "›27500 DATA"ENGLAND",".P0"›27510 DATA"TRANSPONDER NR.6"›27520 DATA"!!.RSG} A T . 1"›27530 DATA"!!DEUTSCHES PRIVATFERNSEHEN MIT EINEM"›27540 DATA"VOLLPROGRAMM."›27550 DATA"!!ADRESSE:"›27560 DATA"!!650H}0 MAINZ, HEGELSTRASSE 61"›27570 DATA"!!!!TRANSPONDER NR.8"›27580 DATA"!!.RS K Y O N E"›27590 DATA"!!ENGLISCHSPRACHIGES FERNSI}EHPROGRAMM AUS"›27600 DATA"GROSSBRITANNIEN (VOLLPROGRAMM)."›27610 DATA"!!IM TONKANAL: SKY-RADIO (CD-MUSIC)"›27620 DATA"!!ADREJ}SSE:"›27630 DATA"!!6 CENTAURS BUSINESS PARK, GRANT WAY"›27640 DATA"!ISLEWORTH,MIDDLESEX TW7 5QD,ENGLAND",".P0"›27650 DATA"!TRK}ANSPONDER NR.10"›27660 DATA"!!!.R3 S A T"›27670 DATA"!!!SATELLITENFERNSEHEN DES DEUTSCHSPRACHIGEN"›27680 DATA"RAUMES, AN DEML} MIT OEFFENTLICH-RECHTLICHEN"›27690 DATA"ANSTALTEN DIE BRD (DURCH ZDF), OESTERREICH"›27700 DATA"(DURCH ORF), DIE SCHWEIZ (DURM}CH SRG) UND DIE"›27710 DATA"DDR (DURCH DFF) BETEILTIGT SIND."›27720 DATA"GESENDET WIRD VON 14.00 - CA.0.00 UHR EIN"›27730 DATN}A"KULTURPROGRAMM.","!!!!ADRESSE:"›27740 DATA"!!6500 MAINZ, ESSENHEIMER LANDSTRASSE"›27750 DATA"!!POSTFACH 4040"›27760 DATA"!!O}TELEFON: 061 31-701",".P0"›27770 DATA"!TRANSPONDER NR.12"›27780 DATA"!!.RS K Y N E W S"›27790 DATA"!!ENGLISCHSPRACHIGES NACHP}RICHTENPROGRAMM"›27800 DATA"AUS GROSSBRITANNIEN."›27810 DATA"!!!TRANSPONDER NR.14"›27820 DATA"!!.RP R O 7"›27830 DATA"!!DEUTQ}SCHES PRIVATFERNSEHEN MIT TV-SERIEN"›27840 DATA"UND SPIELFILMEN. GESENDET WIRD VON CA.7.00"›27850 DATA"UHR MORGENS BIS CA. 3.R}00 UHR NACHTS."›27860 DATA"!!!ADRESSE:"›27870 DATA"!!8043 UNTERFOEHRING"›27880 DATA"!! BAHNHOFSTRASSE 27a",".P0"›27890 DAS}TA"!TRANSPONDER NR.16"›27900 DATA"!!!.RS K Y M O V I E S /"›27910 DATA"!!.RS H O P P I N G C H A N N E L"›27920 DATA"!!!SKT}Y MOVIES IST EIN ENGLISCHSPRACHIGER PAY-TY"›27930 DATA"SPIELFILMKANAL AUS GROSSBRITANNIEN."›27940 DATA"DER SHOPPING-CHANNEL LU}AEUFT AM VORMITTAG BIS"›27950 DATA"CA. 15.00 UHR. DAS PROGRAMM KANN OHNE DECODER"›27960 DATA"EMPFANGEN WERDEN UND IST ENGLISCV}HSPRACHIG."›27970 DATA"ES WERDEN ALLERLEI PRODUKTE FUER IRLAND"›27980 DATA"UND GROSSBRITANNIEN ANGEBOTEN."›27990 DATA"!!!DIE W}TRANSPONDER NR.3,NR.7 UND NR.11"›28000 DATA"SIND MIT PAY-TV PROGRAMMEN BELEGT."›28010 DATA"AUF NR.11 IST FILMNET UND IM TON 'X}RADIO 10'"›28020 DATA".P0"›28030 DATA".RPERSOENLICHE HINWEISE UND"›28040 DATA"!.RERFAHRUNGEN"›28050 DATA"!!DEN AUFBAU EINER SY}ATELLITEN-EMPFANSANLAGE"›28060 DATA"KANN JEDER MIT EIN WENIG GESCHICK AUCH"›28070 DATA"SELBST VORNEHMEN. DER SCHWIERIGSTE TEIZ}L IST"›28080 DATA"DIE MECH. STABILE BEFESTIGUNG DER SCHUESSEL."›28090 DATA"SEHR VORTEILHAFT KANN DIE BEFESTIGUNG AN EINER"›28[}100 DATA"NACH SUEDEN AUSGERICHTETEN WAND EINES"›28110 DATA"GEBAEUDES ERFOLGEN. DIESE ANBAUART"›28120 DATA"GARANTIERT EINE STA\}BILE BEFESTIGUNG UND WENIG"›28130 DATA"ANGRIFFSFLAECHE BEI STARKEM WIND. WENN"›28140 DATA"PARABOLANTENNEN MIT 24 GRAD OFFSET ]}VERWENDET"›28150 DATA"WERDEN, STEHT DER SPIEGEL FAST SENKRECHT."›28160 DATA"DIE AUSSENEINHEIT (KONVERTER)"›28170 DATA"AM SPIE^}GEL UND DEN RECEIVER KANN MAN MIT"›28180 DATA"HANDELSUEBLICHEM 75 OHM KOAXKABEL VERBINDEN."›28190 DATA"BEI INSTABILER BEFESTI_}GUNG DES SPIEGELS"›28200 DATA"TRETEN BEI WIND BILDSTOERUNGEN AUF. WIRD DIE"›28210 DATA"PARABOLANTENNE AUF DEM DACH INSTALLIER`}T,"›28220 DATA"IST ES SEHR PRAKTISCH,WENN MAN EIN KLEINES"›28230 DATA"KOFFERFERNSEHGERAET UND DEN SATELLITEN-"›28240 DATA"EMPa}FAENGER MIT HINAUF NIMMT. SO IST ES SEHR"›28250 DATA"EINFACH, DEN SPIEGEL EXAKT AUSZURICHTEN.",".P0"›28260 DATA"!!!SEIT ETWA b}3 MONATEN IST EINE ASTRA"›28270 DATA"SATELLITEN-EMPFANGSANLAGE ZU MEINER VOLLSTEN"›28280 DATA"ZUFRIEDENHEIT BEI MIR IN BETRIEc}B."›28290 DATA"VORBEIFAHRENDE AUTOS ODER GEWITTER BILDEN"›28300 DATA"KEINE STOERQUELLE. NUR BEI SEHR STARKEM"›28310 DATA"REGEd}N SIND LEICHTE BILDSTOERUNGEN ZU"›28320 DATA"VERZEICHNEN. ANSONSTEN KANN MAN DURCHWEG"›28330 DATA"VON EINER HOHEN BILDQUALITAe}ET SPRECHEN."›28340 DATA".P10","Das war das","!!"›28350 DATA".C****************************"›28360 DATA".C* f} *"›28370 DATA".C* BASICODE-3 Journal *"›28380 DATA".C* Nummer 8 *"›28390 DATA".C* 25. Mag}i 1990 *"›28400 DATA".C* *"›28410 DATA".C****************************",".E"›30000 REM *********h}*******************›30010 REM * *›30020 REM * QUELLE: * ›30030 REM * FERNSEHMAGAZIi}N FF-DABEI *›30040 REM * NR.17 UND 18/1990 S.46 * ›30050 REM * *›30060 REM ***********************j}*****›30070 REM›32000 REM ****************************›32010 REM * *›32020 REM * INFORMATIONEN Zk}UM *›32030 REM * ASTRA-SATELLITEN *›32040 REM * SYSTEM. *›32050 REM * *›l}32060 REM * ------------------------ *›32070 REM * *›32080 REM * FUER BASICODE-3 *›32090 REm}M * GESCHRIEBEN *›32100 REM * *›32110 REM * von MICHAEL FIEDLER *›32120 REM * n} KOETHENER STR.1 *›32130 REM * ZOERBIG *›32140 REM * 4415 *›32150 REM * o} *›32160 REM * auf KC85/3 *›32170 REM * *›32180 REM * am 05.05.1990 p} *›32190 REM * *›32200 REM ****************************›32210 REM Erstausstrahlung: Radio DDR›32q}220 REM-spezial 900525› *›32200 REM ****************************›32210 REM Erstausstrahlung: Radio DDR›32›1000 A=500:GOTO20:REM # BASICODE JOURN 13 / ASTRA-INFO-2 #›1010 HT=HO:VT=VE:S$="":FORI=1 TOHT:S$=S$+" ":NEXTI›1020 HL=0:HR=Hs}T:VL=2:VR=VT-2:R$="":READT$›1030 GOSUB1340:HO=(HT-LEN(SR$)-6)/2:VE=0:GOSUB110›1040 GOSUB150:PRINT:PRINT:PRINT›1050 PRINT"Ausdt}ruck ueber"›1060 PRINT:PRINT" - 1 den Bildschirm,"›1070 PRINT" - 2 den Drucker."›1080 PRINT:PRINT"Welche Nummer ?";:GOSu}UB210›1090 SC=IN-48:PRINTSC:IFSC<>2 THENSC=1:GOTO1180›1100 PRINT:PRINT"Wieviel Leerzeichen "›1110 PRINT"am Zeilenanfang v} ";:INPUTHL›1120 PRINT:PRINT"Wieviel Text-Zeichen "›1130 PRINT"auf jeder Zeile ";:INPUTI:HR=HL+I-1›1140 PRINT:PRINT"Wievw}iel Leer-Zeilen "›1150 PRINT"am Seitenende ";:INPUTVL›1160 PRINT:PRINT"Wieviel Text-Zeilen "›1170 PRINT"auf jeder Sex}ite ";:INPUTVR:VR=VR+VL-3›1180 MM$="":IFHL>0 THENMM$=LEFT$(S$,HL)›1190 GOSUB1310:M$=MM$:AL=VL:IFSC=2 THEN GOSUB1290›1200y} IFLEN(R$)>HR-HL THEN GOSUB1730›1210 GOSUB1370:IFR$<>"" THENR$=R$+" "›1220 R$=R$+D$:GOTO1200›1230 IFSC=2 THENSR$=M$+SR$:GOSUBz}350:GOSUB360:GOTO1250›1240 GOSUB120:PRINTM$;SR$;:VE=VE+1:HO=0:GOSUB110:HL=0›1250 M$=MM$:AL=AL+1:IFAL<=VR THENRETURN›1260 IFSC{}=1 THEN1310›1270 IFVL>0 THENFORI=1 TOVL:GOSUB360:NEXTI:GOSUB210›1280 AL=VL›1290 SR$=LEFT$(S$,(HR-HL-LEN(T$))/2)+T$:GOSUB1230›|}1300 SR$="":GOSUB1230:AL=VL:RETURN›1310 HO=0:VE=VT:GOSUB110›1320 SR$="WEITER: druecke ":GOSUB150›1330 GOSUB210:}}IFIN<>13 THEN1330›1340 GOSUB100:AL=VL:SR$=T$›1350 PRINTLEFT$(S$,(HT-LEN(SR$))/2-3);:GOSUB150›1360 PRINT:PRINT:RETURN›1370 REA~}DD$›1380 IFD$="" THEN1370›1390 IFLEFT$(D$,1)="." THEN1440›1400 IFLEFT$(D$,1)<>"!" THENRETURN›1410 IFD$="!" THEND$="":GOTO1430}›1420 D$=RIGHT$(D$,LEN(D$)-1)›1430 GOSUB1670:GOTO1380›1440 IFD$<>".E" THEN1490›1450 J=1:GOSUB1670:T$="E N D E"›1460 SR$="":GO€}SUB1230:GOSUB1230:SR$=T$:GOSUB1230:T$=""›1470 SR$="":GOSUB1230:IFAL<>VL THEN1470›1480 GOTO950›1490 DD$=MID$(D$,2,1):D$=RIGHT$}(D$,LEN(D$)-2)›1500 IFDD$<>"R" THEN1550›1510 IFSC=2 THENRETURN›1520 IFLEN(R$)+6+LEN(D$)>=HR-HL THENSR$=R$:GOSUB1230:R$=""›153‚}0 PRINTM$;R$;:SR$=D$:GOSUB150:M$=""›1540 HL=HL+LEN(R$)+LEN(D$)+6:R$="":GOTO1370›1550 IFDD$<>"M" THEN1580›1560 I=VAL(D$):MM$="ƒ}":IFI+HL=0 THEN1370›1570 MM$=LEFT$(S$,I+HL):GOTO1370›1580 IFDD$="P" THENJ=VAL(D$):GOSUB1670:GOSUB1690:GOTO1370›1590 IFDD$="T"„} THENT$=D$:J=10:GOSUB1670:GOSUB1690:GOTO1510›1600 IFDD$="Q" THENR$=R$+CHR$(34)+D$:GOTO1370›1610 IFDD$<>"F" THEN1640›1620 J=VA…}L(D$):GOSUB1670›1630 J=J-1:IFJ>-1 THENSR$="":GOSUB1230:GOTO1630›1640 IFDD$<>"C" THEN1660›1650 SR$=LEFT$(S$,(HR-HL-LEN(D$))/2)†}+D$:GOSUB1230›1660 GOTO1370›1670 GOSUB1730:SR$=R$:GOSUB1230:R$="":J=J-1›1680 RETURN›1690 IF(SC=1)OR(AL+J>VR)THEN1710›1700 SR$‡}="":GOSUB1230:GOSUB1230:RETURN›1710 IFAL<>VL THENSR$="":GOSUB1230:GOTO1710›1720 RETURN›1730 K=HR-HL+1-LEN(M$)›1740 IFLEN(R$)<ˆ}=K THENRETURN›1750 IFMID$(R$,K,1)=" " THEN1780›1760 K=K-1:IFK>0 THEN1750›1770 SR$="":GOTO1790›1780 SR$=LEFT$(R$,K-1):R$=RIGHT‰}$(R$,LEN(R$)-K)›1790 GOSUB1230:GOTO1730›25000 DATA"ASTRA-INFO 2"›25010 DATA›25020 DATA"IN VIELEN ZEITUNGEN UND ZEITSCHRIFTEN"Š}›25030 DATA"SIND MITTLERWEILE INFORMATIONEN ZUM"›25040 DATA"ASTRA SATELLITEN-SYSTEM ERSCHIENEN."›25050 DATA"AUFFAELLIG IST DA‹}BEI, DASS IN DEN ABGEDRUCKTEN"›25060 DATA"KANALBELEGUNGSLISTEN EINIGE KLEINE FEHLER"›25070 DATA"AUFTRETEN.","!DESHALB SCHIEN Œ}ES MIR SINNVOLL"›25080 DATA"ZU SEIN, EINIGE ALLGEMEINUMFASSENDE"›25090 DATA"INFORMATIONEN MIT SCHWERPUNKT"›25100 DATA"AUDIOFR}EQUENZEN UND TELETEXT (UEBER DEN"›25110 DATA"BISHER KAUM ETWAS VEROEFFENTLICHT"›25120 DATA"WURDE) IN EINEM BASICODE-JOURNAL"›Ž}25130 DATA"ZUSAMMENZUFASSEN.","!DIE HIER AUFGEFUEHRTEN"›25140 DATA"ANGABEN BEZIEHEN SICH AUF STAND 02/91."›25150 DATA"!!INFOS} ZUM PROGRAMM VON ASTRA-1B WERDEN"›25160 DATA"BALD FOLGEN (GEPLANTE INBETRIEBNAHME: 04/91)."›25170 DATA".P0",".RASTRA-TRANSPO}NDER NUMMER 1"›25180 DATA"!!TV-PROGRAMM:"›25190 DATA"!!.CTHE EUROPEAN SPORTS NETWORK"›25200 DATA".C(SPORTKANAL)"›25210 DATA"!‘}RADIO-PROGRAMME: KEINE"›25220 DATA"!!FREQUENZ 11,21425 GHz"›25230 DATA"!VIDEOSENDENORM PAL"›2524’}0 DATA"!POLARISATION HORIZONTAL"›25250 DATA"!!URSPRUNGSLAND GROSSBRITANNIEN"›25260 DATA"!!AUDIO-FREQUENZE“}N:"›25270 DATA"!- DEUTSCH 7,02 MHz"›25280 DATA"!- ENGLISCH 6,50(PRIM)/7,20 MHz"›25290 DATA"!- FRANZOESI”}SCH 7,38 MHz"›25300 DATA"!- HOLLAENDISCH 7,56 MHz"›25310 DATA"!- (z.Z. NOCH FREI) 7,74 MHz"›2•}5320 DATA"!!VIDEOTEXT (TELETEXT): SPORTEXT"›25330 DATA"!ENTHAELT DIE PROGRAMMVORSCHAU"›25340 DATA"UND DIE HIGHLIGHTS DER–} WOCHE IN DEUTSCH"›25350 DATA"(SPORTKANAL), HOLLAENDISCH"›25360 DATA"(SPORTNET) UND ENGLISCH (SCREENSPORT)"›25370 DATA"SOWIE —}EINIGE TECHNISCHE HINWEISE."›25380 DATA".P0",".RASTRA-TRANSPONDER NUMMER 2"›25390 DATA"!!TV-PROGRAMM:"›25400 DATA"!!.CRADIO T˜}ELEVISION LUXEMBURG PLUS/RTL+"›25410 DATA"!!RADIO-PROGRAMME:"›25420 DATA"!! DEUTSCHE WELLE"›25430 DATA"! DEUTSCHE WELLE INTER™}NATIONAL"›25440 DATA"!!FREQUENZ 11,22900 GHz"›25450 DATA"!VIDEOSENDENORM PAL"›25460 DATA"!POš}LARISATION VERTIKAL"›25470 DATA"!!URSPRUNGSLAND DEUTSCHLAND"›25480 DATA"!!AUDIO-FREQUENZEN:"›2549›}0 DATA"!TV-BEGLEITTON 6,50(PRIM)/7,02 MHz"›25500 DATA"!(Z.Z. NOCH FREI) 7,20 MHz"›25510 DATA"!DEUTSCHE WELLœ}E (DT.PROGR.) 7,38 MHz"›25520 DATA"!DEUTSCHE WELLE INTERNATNAT. 7,56 MHz"›25530 DATA"!!VIDEOTEXT (TELETEXT): NICHT VORH}ANDEN"›25540 DATA".P0",".RASTRA-TRANSPONDER NUMMER 3"›25550 DATA"!!TV-PROGRAMM:"›25560 DATA"!!.CSCAN-SAT TV3"›25570 DATA"!!FRž}EQUENZ 11,24375 GHz"›25580 DATA"!VIDEOSENDENORM D2-MAC"›25590 DATA"!POLARISATION Ÿ} HORIZONTAL"›25600 DATA"!AUDIO-SENDENORM DIGITAL"›25610 DATA"!!SCHWEDISCHES PAY-TV FUER SKANDINAVIEN."›25620 DAT }A"!!FUER DEN NORMALVERBRAUCHER WEGEN D2-MAC UND"›25630 DATA"VERSCHLUESSELUNG (PAY-TV) NICHT ZU EMPFANGEN."›25640 DATA".P0",".¡}RASTRA-TRANSPONDER NUMMER 4"›25650 DATA"!!TV-PROGRAMM:"›25660 DATA"!!.CE U R O S P O R T"›25670 DATA"!!RADIO-PROGRAMME: KEINE¢}"›25680 DATA"!!FREQUENZ 11,25850 GHz"›25690 DATA"!VIDEOSENDENORM PAL"›25700 DATA"!POLARISATION£} VERTIKAL"›25710 DATA"!!URSPRUNGSLAND GROSSBRITANNIEN"›25720 DATA"!!AUDIO-FREQUENZEN:"›25730 DATA"!ENGL¤}ISCH 6,50(PRIM)/7,02 MHz"›25740 DATA"!DEUTSCH 7,20 MHz"›25750 DATA"!HOLLAENDISCH ¥} 7,38 MHz"›25760 DATA"!NOCH UNBESTIMMT"›25770 DATA"!(Z.Z. MIT ENGLISCH BELEGT) 7,56 MHz"›25780 DATA"!!VIDEOTEXT (TELETEXT)¦}: EUROTEXT"›25790 DATA"!!ENTHAELT (IN ENGLISCHER SPRACHE):"›25800 DATA"!- PROGRAMMHINWEISE (EUROSPORT,SKY)"›25810 DATA§}"!- EUROPEAN TRAVEL NETWORK"›25820 DATA"! (UMFANGREICHES REISEMAGAZIN;AUCH FUER"›25830 DATA"! DEUTSCHLAND; BUCHUNGEN PER TE¨}LEFON)"›25840 DATA"!- EIN SCHWEDISCHES-,DAENNISCHES-,"›25850 DATA"! FINNISCHES- UND NORWEGISCHES MAGAZIN"›25860 DATA"! (MIT©} INFOS FUER DIE UNTERSCHIEDLICHEN"›25870 DATA"! LAENDER IN DER JEWEILIGEN SPRACHE)"›25880 DATA"!- WETTER u.v.a."›25890 DATA"ª}!!DER DEUTSCHE UND HOLLAENDISCHE BEGLEITTON"›25900 DATA"WIRD NICHT FUER ALLE SENDUNGEN AUSGESTRAHLT."›25910 DATA".P0",".RASTR«}A-TRANSPONDER NUMMER 5"›25920 DATA"!!TV-PROGRAMME:"›25930 DATA"!!.CTHE CHILDREN'S CHANNEL (TCC)"›25940 DATA".CLIFESTYLE"›2595¬}0 DATA".CJAPAN SATELLITE TELEVISION (JSTV)"›25960 DATA"!RADIO-PROGRAMME:"›25970 DATA"!! RADIO NOVA INTERNATIONAL"›25980 DATA­}"! CLUB MUSIC","! ITN"›25990 DATA"!!FREQENZ 11,27325 GHz"›26000 DATA"!VIDEOSENDENORM PAL"›2601®}0 DATA"!POLARISATION HORIZONTAL"›26020 DATA"!!URSPRUNGSLAND GROSSBRITANNIEN"›26030 DATA"!AUDIO FREQUENZEN¯}:"›26040 DATA"!LIFESTYLE,TCC & JSTV 7,02+7,20 MHz"›26050 DATA"!(TV-BEGLEITTON) STEREO"›26060 DATA"!!RADIO NOVA (7°}am-9pm) 7,56 MHz MONO"›26070 DATA"!CLUB MUSIC (9pm-4am) 7,38+7,56 MHz"›26080 DATA"! STEREO"›2609±}0 DATA"!!ITN RADIO NEWS (6am-11pm) 7,74 MHz"›26100 DATA"!!VIDEOTEXT (TELETEXT):"›26110 DATA"!- TCC (VORHANDEN)"›26120 DATA"!-²} LIVESTYLE (VORHANDEN)"›26130 DATA"!- JSTV (KEIN EIGENER VT)"›26140 DATA"!!PROGRAMMSTRUKTUR:"›26150 DATA"!!MONTAG-FREITAG:"›2³}6160 DATA"!0600-1000 TCC"›26170 DATA"!1000-1800 LIVESTYLE"›26180 DATA"!1800-2000 SELL-A-VISION (SHOPPING CHANNEL)"›26190 DATA´}"!2000-2200 JSTV"›26200 DATA"!2200-2400 SELL-A-VISION"›26210 DATA"!2400-0500 LIVESTYLE SATELLITE JUKEBOX"›26220 DATA"! µ} (MUSIK-VIDEOS)"›26230 DATA"!!SAMSTAG:"›26240 DATA"!0600-1200 TCC"›26250 DATA"!1200-1600 LIVESTYLE"›26260 DATA"!1600-2000 S¶}ELL-A-VISION"›26270 DATA"!2000-2200 JSTV"›26280 DATA"!2200-0500 LIVESTYLE SATELLITE JUKEBOX"›26290 DATA"!!SONNTAG:"›26300 DAT·}A"!0600-1200 TCC"›26310 DATA"!1200-1800 LIVESTYLE"›26320 DATA"!1800-2000 SELL-A-VISION"›26330 DATA"!2000-2200 JSTV"›26340 DAT¸}A"!2200-2400 SELL-A-VISION"›26350 DATA"!2400-0500 LIVESTYLE SATELLITE JUKEBOX"›26360 DATA"!!ALLE PROGRAMME AUSSER JSTV(JAPANI¹}SCH)"›26370 DATA"SIND IN ENGLISCHER SPRACHE."›26380 DATA"!!DER LIVESTYLE-TELETEXT ENTHAELT:"›26390 DATA"!-PROGRAMMVORSCHAU (1º} WOCHE IM VORAUS)"›26400 DATA"!-HOEHEPUNKTE DES LIVESTYLE-PROGRAMMS"›26410 DATA"!-TITELLISTE DER SATELLITE JUKEBOX"›26420 DAT»}A"!-TECHNISCHE HINWEISE"›26430 DATA"!!DER TCC-TELETEXT ENTHAELT:"›26440 DATA"!-PROGRAMMHINWEISE"›26450 DATA"!-SPIELE"›26460 D¼}ATA"!-SERVICE (Z.T.IN MEHREREN SPRACHEN)"›26470 DATA"!-UNTERTITEL FUER EINIGE SENDUNGEN"›26480 DATA"! (HOLLAENDISCH,SCHWEDISC½}H,NORWEGISCH)"›26490 DATA"!!HINWEISE ZU DEN UHRZEITEN:"›26500 DATA"!-am = VORMITTAGS / pm = NACHMITTAGS"›26510 DATA"!-ALLE ZE¾}ITEN BST (ENGLISCHE ZEIT)"›26520 DATA"! FUER DEUTSCHLAND +1 ."›26530 DATA".P0",".RASTRA-TRANSPONDER NUMMER 6"›26540 DATA"!!TV¿}-PROGRAMM:"›26550 DATA"!!.CS A T . 1"›26560 DATA"!RADIO-PROGRAMME:"›26570 DATA"!! DEUTSCHLANDFUNK (DLF)"›26580 DATA"! DEUTSÀ}CHLANDFUNK AUSLANDSDIENST"›26590 DATA"!!FREQUENZ 11,28800 GHz"›26600 DATA"!VIDEOSENDENORM PALÁ}"›26610 DATA"!POLARISATION VERTIKAL"›26620 DATA"!!URSPRUNGSLAND DEUTSCHLAND"›26630 DATA"!!AUDIO-FRÂ}EQUENZEN:"›26640 DATA"!TV-BEGLEITTON 6,50(PRIM)/7,02 MHz"›26650 DATA"!(Z.Z. NOCH FREI) 7,20 MHz"›26660 DATAÃ}"!DEUTSCHLANDFUNK 7,38+7,56 MHz"›26670 DATA"! (STEREO)"›26680 DATA"!DLF-AUSLANDSDIENST (1) Ä} 7,74 MHz"›26690 DATA"!DLF-AUSLANDSDIENST (2) 7,92 MHz"›26700 DATA"!!VIDEOTEXT (TELETEXT): SAT.1-TEXT"›26710 DÅ}ATA"!ENTHAELT:"›26720 DATA"!!- PROGRAMMHINWEISE (SAT.1)"›26730 DATA"!- NACHRICHTEN AUS:"›26740 DATA"! SPORT,BOERSE,WIRTSCHAFÆ}T,POLITIK"›26750 DATA"!- TIPS + SERVICE"›26760 DATA"!- REISE + AUTO-MAGAZIN"›26770 DATA"!- HOROSKOP,STELLENMARKT u.a."›26780 Ç}DATA".P0",".RASTRA-TRANSPONDER NUMMER 7"›26790 DATA"!!TV-PROGRAMM:"›26800 DATA"!!.CSCAN-SAT TV1000"›26810 DATA"!FREQUENZ È} 11,30275 GHz"›26820 DATA"!VIDEOSENDENORM D2-MAC"›26830 DATA"!POLARISATION HORIZONTALÉ}"›26840 DATA"!AUDIO-SENDENORM DIGITAL"›26850 DATA"!!SCHWEDISCHES PAY-TV FUER SKANDINAVIEN."›26860 DATA"!!VOM NORMÊ}ALVERBRAUCHER WEGEN"›26870 DATA"D2-MAC UND VERSCHLUESSELUNG (PAY-TV) NICHT"›26880 DATA"ZU EMPFANGEN."›26890 DATA".P0",".RASTRË}A-TRANSPONDER NUMMER 8"›26900 DATA"!!TV-PROGRAMM:"›26910 DATA"!!.CS K Y O N E"›26920 DATA"!RADIO PROGRAMM:"›26930 DATA"!! Ì}SKY RADIO"›26940 DATA"!!FREQUENZ 11,31750 GHz"›26950 DATA"!VIDEOSENDENORM PAL"›26960 DATA"!PÍ}OLARISATION VERTIKAL"›26970 DATA"!!URSPRUNGSLAND GROSSBRITANNIEN"›26980 DATA"!!AUDIO-FREQUENZEN:"›269Î}90 DATA"!TV-BEGLEITTON MONO 6,50 MHz"›27000 DATA"!TV-BEGLEITTON STEREO 7,02+7,20 MHz"›27010 DATA"!SKY RADIO Ï} STEREO 7,38+7,56 MHz"›27020 DATA"!!SKY RADIO UND DER STEREO TV-TON WERDEN"›27030 DATA"MIT DEM RAUSCHUNTERDRUECKUNGS-SYSÐ}TEM PANDA-1"›27040 DATA"AUSGESTRAHLT."›27050 DATA"!!VIDEOTEXT (TELETEXT): SKYTEXT"›27060 DATA"!ENTHAELT u.a.:"›27070 DATAÑ}"!-PROGRAMMHINWEISE (SKY ONE-NEWS-MOVIES)"›27080 DATA"!-AUSFUEHRL. PROG.BESCHREIBUNG SKY ONE"›27090 DATA"!-SERVICE,WETTER,ADRÒ}ESSEN,REISEMAGAZIN"›27100 DATA"! (BEZIEHT SICH NUR AUF GB)"›27110 DATA".P0",".RASTRA-TRANSPONDER NUMMER 9"›27120 DATA"!!TV-PRÓ}OGRAMM:"›27130 DATA"!!.CT E L E C L U B"›27140 DATA"!RADIO-PROGRAMM:"›27150 DATA"!! OPUS-RADIO (SCHWEIZ)"›27160 DATA"!!FREQÔ}UENZ 11,33225 GHz"›27170 DATA"!VIDEOSENDENORM PAL"›27180 DATA"!POLARISATION Õ} HORIZONTAL"›27190 DATA"!!URSPRUNGSLAND DEUTSCHLAND"›27200 DATA"!!AUDIO-FREQUENZEN:"›27210 DATA"!TV-BEGLEITTONÖ} 6,50(PRIM)/7,02 MHz"›27220 DATA"!OPUS-RADIO 7,20+7,38 MHz"›27230 DATA"! (STER×}EO)"›27240 DATA"!!VIDEOTEXT (TELETEXT): NICHT VORHANDEN"›27250 DATA"!!TELECLUB IST EIN PAY-TV PROGRAMM. DER EMPFANG"›27260 Ø}DATA"IST NUR MIT EINEM SPEZIELLEN DECODER (290 DM)"›27270 DATA"MOEGLICH (MONATLICHER BEITRAG: 34 DM)."›27280 DATA".P0",".RASTÙ}RA-TRANSPONDER NUMMER 10"›27290 DATA"!!TV-PROGRAMM:"›27300 DATA"!!.C3 S A T"›27310 DATA"!RADIO-PROGRAMME: KEINE"›27320 DATA"!Ú}!FREQUENZ 11,34700 GHz"›27330 DATA"!VIDEODSENDENORM PAL"›27340 DATA"!POLARISATION Û} VERTIKAL"›27350 DATA"!!URSPRUNGSLAENDER BRD/SCHWEIZ/OESTER."›27360 DATA"!!AUDIO-FREQUENZEN:"›27370 DATA"!TV-BEGLEITTÜ}ON MONO 6,50 MHz"›27380 DATA"!TV-BEGLEITTON STEREO 7,02+7,20 MHz"›27390 DATA"!!VIDEOTEXT (TELETEXT): Ý} 3SAT-TEXT"›27400 DATA"!ENTHAELT:"›27410 DATA"!- NACHRICHTEN,SPORT,WIRTSCHAFT"›27420 DATA"!- KURSE,DEVISEN,WETTER,STRASSEN"›2Þ}7430 DATA"!- PROGRAMMHINWEISE (3SAT)"›27440 DATA"!- MAGAZIN DEUTSCHL.,OESTERREICH,SCHWEIZ"›27450 DATA".P0",".RASTRA-TRANSPONDß}ER NUMMER 11"›27460 DATA"!!TV-PROGRAMM:"›27470 DATA"!!.CF I L M N E T"›27480 DATA"!RADIO-PROGRAMM:"›27490 DATA"!! RADIO 10à} (NIEDERLANDE)"›27500 DATA"!!FREQUENZ 11,36175 GHz"›27510 DATA"!VIDEOSENDENORM PAL"›27520 DAá}TA"!POLARISATION HORIZONTAL"›27530 DATA"!!URSPRUNGSLAENDER NIEDERLANDE/GB"›27540 DATA"!!AUDIO-FREQUENZENâ}:"›27550 DATA"!TV-BEGLEITTON 6,50 MHz"›27560 DATA"!TV-BEGLEITTON (PANDA-1) 7,02 MHz"›27570 DATA"!RADIO ã}10 7,92+8,10 MHz"›27580 DATA"! (STEREO)"›27590 DATA"!MIT DIGITALEN SIGNALEN BELEGT:"ä}›27600 DATA"!7,20/7,38+7,56/7,74"›27610 DATA"!!VIDEOTEXT (TELETEXT): VORHANDEN"›27620 DATA"!ENTHAELT:"›27630 DATA"!- VT-Uå}NTERTITEL ZU DEN SPIELFILMEM IN:"›27640 DATA"! FINNISCH,SCHWEDISCH,NORWEGISCH"›27650 DATA"! DAENNISCH UND HOLLAENDISCH"›276æ}60 DATA"!- AUSFUEHRLICHE PROGRAMMBESCHREIBUNGEN"›27670 DATA"! IN DEN OBEN GENANNTEN SPRACHEN+ENGL."›27680 DATA"!- STATUSSEITç}E"›27690 DATA"!- TECHNISCHE HINWEISE"›27700 DATA"!!FILM NET IST EIN PAY-TV PROGRAMM IN ENGLISCHER"›27710 DATA"SPRACHE. DER EMè}PFANG IST NUR MIT ENTSPRECHENDEM"›27720 DATA"DECODER MOEGLICH. DER VT-EMPFANG IST"›27730 DATA"ZWISCHEN DEN SPIELFILMEN TEILWEé}ISE MOEGLICH."›27740 DATA".P0",".RASTRA-TRANSPONDER NUMMER 12"›27750 DATA"!!TV-PROGRAMM:"›27760 DATA"!!.CS K Y N E W S"›2777ê}0 DATA"!RADIO-PROGRAMME: KEINE"›27780 DATA"!!FREQUENZ 11,37650 GHz"›27790 DATA"!VIDEOSENDENORM ë} PAL"›27800 DATA"!POLARISATION VERTIKAL"›27810 DATA"!!URSPRUNGSLAND GROSSBRITANNIEN"›27820 DATA"!!ì}AUDIO-FREQUENZEN:"›27830 DATA"!TV-BEGLEITTON MONO 6,50 MHz"›27840 DATA"!TV-BEGLEITTON STEREO 7,02/7,20 MHz"›27í}850 DATA"!(z.Z.NOCH FREI) 7,38/7,56 MHz"›27860 DATA"!!VIDEOTEXT (TELETEXT): SKYTEXT"›27870 DATA"!ENTHAELT u.a.:"›278î}80 DATA"!- PROGRAMMHOEHEPUNKTE SKY NEWS"›27890 DATA"!- AUSFUEHRLICHE INFORMATIONEN ZUM"›27900 DATA"! ASTRA-SYSTEM (FUER HAENï}DLER)"›27910 DATA"!!AUSSER MIT DEN OBEN GENANNTEN PUNKTEN STIMMT"›27920 DATA"DER SKY NEWS VIDEOTEXT MIT DEM VON SKY ONE"›2793ð}0 DATA"UEBEREIN."›27940 DATA".P0",".RASTRA-TRANSPONDER NUMMER 13"›27950 DATA"!!TV-PROGRAMM:"›27960 DATA"!!.CRTL4-VERONIQUE"›2ñ}7970 DATA"!RADIO-PROGRAMM:"›27980 DATA"!! RTL-INTERNATIONAL"›27990 DATA"!!FREQUENZ 11,39125 GHz"›28000 DATò}A"!VIDEOSENDENORM PAL"›28010 DATA"!POLARISATION HORIZONTAL"›28020 DATA"!!URSPRUNGSLAND ó} NIEDERLANDE"›28030 DATA"!!AUDIO-FREQUENZEN"›28040 DATA"!TV-BEGLEITTON MONO 6,50 MHz"›28050 DATA"!TV-BEGLEITTô}ON STEREO 7,02/7,20 MHz"›28060 DATA"!RTL-INTERNATIONAL 7,38/7,56 MHz"›28070 DATA"! (STEREõ}O)"›28080 DATA"!!VIDEOTEXT (TELETEXT): RTL4-TEXT"›28090 DATA"!ENTHAELT (IN HOLLAENDISCH) u.a.:"›28100 DATA"!- PROGRAMMVORSCHö}AU (RTL4)"›28110 DATA"!- AUSFUEHRLICHE PROGRAMMBESCHREIBUNG"›28120 DATA"!- SERVICE,TIPS,UNTERHALTUNG"›28130 DATA"!!DER RTL4 V÷}IDEOTEXT IST SEHR UMFANGREICH."›28140 DATA"!!RTL4-VERONIQUE SENDET 24 STUNDEN AM TAG. DAS"›28150 DATA"PROGRAMM IST TEILWEISE ø}VERSCHLUESSELT."›28160 DATA"AUSLAENDISCHE PRODUKTIONEN WERDEN IM"›28170 DATA"ORIGINALTON AUSGESTRAHLT (MIT HOLLAENDISCHEN"›28ù}180 DATA"UNTERTITELN)."›28190 DATA".P0",".RASTRA-TRANSPONDER NUMMER 14"›28200 DATA"!!TV-PROGRAMM:"›28210 DATA"!!.CP R O 7"›2ú}8220 DATA"!RADIO-PROGRAMME:"›28230 DATA"!! STAR SAT RADIO"›28240 DATA"! RADIOROPA"›28250 DATA"!!FREQUENZ û} 11,40600 GHz"›28260 DATA"!VIDEOSENDENORM PAL"›28270 DATA"!POLARISATION VERTIKAL"›28280 DATAü}"!!URSPRUNGSLAND DEUTSCHLAND"›28290 DATA"!!AUDIO-FREQUENZEN:"›28300 DATA"!TV-BEGLEITTON 6,50(PRIM)/7,02 MHzý}"›28310 DATA"!(z.Z.NOCH FREI) 7,20 MHz"›28320 DATA"!STAR SAT RADIO 7,38+7,56 MHz"›28330 DATA"! þ} (STEREO)"›28340 DATA"!RADIOROBA 7,74+7,92 MHz"›28350 DATA"! (STEREÿ}O)"›28360 DATA"!!VIDEOTEXT (TELETEXT): NICHT VORHANDEN"›28370 DATA"!!PRO7 SENDET 24 STUNDEN AM TAG."›28380 DATA".P0",".RASTR}A-TRANSPONDER NUMMER 15"›28390 DATA"!!TV-PROGRAMM:"›28400 DATA"!!.CMUSIC-TELEVISION EUROPE (MTV-EUROPE)"›28410 DATA"!RADIO-PR}OGRAMME: KEINE"›28420 DATA"!!FREQUENZ 11,42075 GHz"›28430 DATA"!VIDEOSENDENORM PAL"›28440 DA}TA"!POLARISATION HORIZONTAL"›28450 DATA"!!URSPRUNGSLAND GROSSBRITANNIEN"›28460 DATA"!!AUDIO-FREQUENZEN}:"›28470 DATA"!TV-BEGLEITTON 6,50 MHz"›28480 DATA"!TV-BEGLEITTON (PANDA-1) 7,02/7,20 MHz"›28490 DATA"! } (STEREO)"›28500 DATA"!(z.Z.NOCH FREI) 7,38 MHz"›28510 DATA"!!VIDEOTEXT (TELETEXT): NICHT V}ORHANDEN"›28520 DATA"!!MTV SENDET 24 STUNDEN AM TAG."›28530 DATA".P0",".RASTRA-TRANSPONDER NUMMER 16"›28540 DATA"!!TV-PROGRAM}M:"›28550 DATA"!!.CS K Y M O V I E S"›28560 DATA"!RADIO-PROGRAMME: KEINE"›28570 DATA"!!FREQUENZ 11,43550 GH}z"›28580 DATA"!VIDEOSENDENORM PAL"›28590 DATA"!POLARISATION VERTIKAL"›28600 DATA"!!URSPRUNGSLA}ND GROSSBRITANNIEN"›28610 DATA"!!AUDIO-FREQUENZEN:"›28620 DATA"!TV-BEGLEITTON 6,50 MHz"›28630 DATA"! }TV-BEGLEITTON (PANDA-1) 7,02+7,20 MHz"›28640 DATA"! (STEREO)"›28650 DATA"!NOCH UNBESTIMMT"›28660 DA }TA"!(Z.Z. NOCH NICHT BELEGT) 7,38+7,56 MHz"›28670 DATA"!!VIDEOTEXT (TELETEXT): SKYTEXT"›28680 DATA"!ENTHAELT U.A.:"›28690 DAT }A"!- PROGRAMMVORSCHAU SKY MOVIES"›28700 DATA"!- AUSFUEHRLICHE PROGRAMMBESCHREIBUNG"›28710 DATA"!!AUSSER MIT DEN OBEN GENNANTE }N PUNKTEN STIMMT"›28720 DATA"DER SKY MOVIES VIDEOTEXT MIT DEM VON SKY ONE"›28730 DATA"UBEREIN."›28740 DATA"!!SKY MOVIES IST E }IN PAY-TV PROGRAMM."›28750 DATA"DER VIDEOTEXT KANN AUCH BEI VERSCHLUESSELTEM"›28760 DATA"BILDINHALT EMPFANGEN WERDEN"›28770 D}ATA"(WAS BEI ANDEREN PAY-TV PROGRAMMEN NICHT"›28780 DATA"MOEGLICH IST)."›29900 DATA".P10","Das war das","!!"›29910 DATA".C***}***********************"›29920 DATA".C* *"›29930 DATA".C* BASICODE-3 Journal *"›29940 DATA".C* } Nummer 13 *"›29950 DATA".C* 17.April 1991 *"›29960 DATA".C* *"›29970 DATA".C*******}*******************",".E"›32000 REM ****************************›32010 REM * *›32020 REM * ASTRA-I}NFO 2 *›32030 REM * *›32040 REM * Informationen zur *›32050 REM * Transponderbele}gung *›32060 REM * von ASTRA-1A *›32070 REM * *›32080 REM * ------------------------ }*›32090 REM * *›32100 REM * Fuer BASICODE-3 *›32110 REM * geschrieben *›32120 }REM * *›32130 REM * von MICHAEL FIEDLER *›32140 REM * KOETHENER STR.1 *›32150 REM * } ZOERBIG *›32160 REM * O-4415 *›32170 REM * *›32180 REM * auf KC85}/3 *›32190 REM * *›32200 REM * am 17.02.1991 *›32210 REM * } *›32220 REM ****************************›32230 REM›32240 REM Erstausstrahlung: Deutschlandsender Kultur›32250 REM-spez}ial 910417›220 REM ****************************›32230 REM›32240 REM Erstausstrahlung: Deutschlandsender Kultur›32250 REM-spez ›1000 A=300:GOTO20:REM " Rekenwonder "›1010 DIMPP$(8),C$(10):FO=0:GOSUB100:PRINT›1020 VT=2:REM vertraging, evt.aanpassen <<<›+}1030 GOSUB100:SR$="REKENEN":GOSUB150:PRINT:PRINT›1040 PRINT" WE GAAN SAMEN SOMMEN MAKEN.":PRINT›1050 RESTORE:FORN=0 TO10:READ+}D$:C$(N)=D$:NEXTN›1060 PRINT" 1 = OPTELLEN":PRINT›1070 PRINT" 2 = AFTREKKEN":PRINT›1080 PRINT" 3 = VERMENIGVULDIGEN":PRINT›10+}90 PRINT" 4 = DELEN":PRINT›1100 PRINT" 5 = STOPPEN":PRINT›1110 PRINT" welk nummer kies je? ";›1120 GOSUB210:IF+}(IN<49)OR(IN>53)THEN1120›1130 PRINTIN$:KS=VAL(IN$):PRINT›1140 IFKS=5 THEN950›1150 PRINT" Wil je kijken of zelf rekenen (K/R) +}";›1160 HP=0:GOSUB210:IF(IN<>75)AND(IN<>82)THEN1160›1170 PRINTIN$:Q$=IN$:Q=IN:IFQ=82 THENHP=2:PRINT›1180 GOSUB100:ONKS GOTO12+ }10,1370,1680,2200›1190 REM›1200 REM === 1: optellen ===›1210 GOSUB100:SR$="OPTELLEN":GOSUB150:GOSUB3770›1220 PRINT:PRINT:L=1:+!}BB=.1:FO=0:FF=0›1230 PRINT" Hoeveel getallen: 2,3,4,5,6,7 of 8?";›1240 GOSUB210:IF(IN<50)OR(IN>56)THEN1240›1250 TT=VAL(IN$):P+"}RINTIN$:PRINT:FORK=1 TOTT›1260 PRINT" geef het ";K;"e getal: ";:LL=8:GOSUB3300›1270 PRINT:PRINT›1280 LA=LEN(AO$):IFLA>L THENL+#}=LA›1290 PP$(K)=AO$:NEXTK:GOSUB3810›1300 GOSUB600:GOSUB3440:FF=0:X=.8:Y=0›1310 FORK=1 TOTT:G$=PP$(K):XC=X:YC=Y:GOSUB3060›1320+$} Y=Y+.1:NEXTK:IFQ=75 THEN GOSUB2810›1330 FF=1:HC=.9-.1*L:VC=Y-.1:GOSUB3480›1340 GOSUB2880:GOTO1210›1350 REM›1360 REM === 2: a+%}ftrekken ===›1370 GOSUB100:SR$="AFTREKKEN":GOSUB150:GOSUB3770›1380 PRINT:PRINT:L=1:BB=.1:FO=0:FF=0›1390 PRINT"Geef twee getal+&}len":PRINT:FORN=1 TO2›1400 PRINTN;"e GETAL ";:LL=8:GOSUB3300:PRINT:PRINT›1410 PP$(N)=AO$:LA=LEN(AO$):IFLA>L THENL=LA›1420 NEX+'}TN:A=VAL(PP$(1)):B=VAL(PP$(2))›1430 IFA>B THEN1480›1440 PRINT"Het tweede is te groot !":PRINT›1450 PRINT"tik RETURN en doe he+(}t nog eens.";›1460 GOSUB210:IFIN<>13 THEN1460›1470 GOTO1370›1480 GOSUB3810›1490 GOSUB600:GOSUB3440:FF=0:X=.8:Y=0:TT=2›1500 FO+)}RK=1 TOTT:G$=PP$(K):XC=X:YC=Y:GOSUB3060›1510 Y=Y+.1:NEXTK:L=L+1›1520 PP$(1)=RIGHT$("000000000"+PP$(1),L)›1530 PP$(2)=RIGHT$("+*}000000000"+PP$(2),L)›1540 HO=X+.1:VE=Y-.02:GOSUB620:HO=X-.1*(L-2):GOSUB630:FF=1›1550 HO=.95:VE=.16:SR$="-":GOSUB650›1560 IFQ=++}75 THEN GOSUB2810›1570 REM --- aftreklus ---›1580 BW=0:A$=PP$(1):B$=PP$(2):G$=""›1590 FORJ=L TO1 STEP-1›1600 A=VAL(MID$(A$,J,+,}1)):B=BW+VAL(MID$(B$,J,1)):BW=0›1610 IFA}NT:PRINT:GOSUB3810›2320 GOSUB3440›2330 REM --- plaats deeltal ---›2340 SR=A:GOSUB300:A$=SR$:LA=LEN(A$):HA=.3:VA=0›2350 G$=A$:+?}XC=HA:YC=VA:GOSUB3040›2360 REM --- schuine lijnen ---›2370 HO=.28:VE=0:GOSUB620›2380 HO=.2:VE=.2:GOSUB630›2390 HO=.3+BB*LA:VE+@}=0:GOSUB620:HC=HO-.03:VC=0›2400 HO=HO+.09:VE=.2:GOSUB630›2410 REM --- deler ---›2420 SR=B:GOSUB300:B$=SR$:LB=LEN(B$)›2430 G$=+A}B$:XC=.24-BB*LB:VE=0:GOSUB3040›2440 A$=A$+"000000":FF=1›2450 IFQ=75 THEN GOSUB2810›2460 REM --- zoek startpositie ---›2470 IF+B}C<1 THENTT=LA:ZK=A:HA=HA+.08*(LA-1):GOTO2510›2480 TT=1:ZK=VAL(MID$(A$,TT,1))›2490 IFZK>=B THEN2510›2500 TT=TT+1:HA=HA+BB:ZK=Z+C}K*10+VAL(MID$(A$,TT,1)):GOTO2490›2510 LV=TT:DD=VAL(LEFT$(A$,1))›2520 IFTT=1 THEN2550›2530 FORN=2 TOTT:DD=DD*10+VAL(MID$(A$,N,+D}1)):NEXTN›2540 REM --- hoofd deel lus ---›2550 FORQO=1 TO4›2560 REM --- quotient ---›2570 IFTT=LA+1 THENXC=HC:YC=VC:CF=10:GOS+E}UB3120:HC=HC+.04›2580 HC=HC+BB:GOSUB2980›2590 G$=QO$:XC=HC:YC=VC:GOSUB3040›2600 REM --- produkt ---›2610 PR=B*VAL(QO$):SR=PR:+F}GOSUB300:PR$=SR$:LP=LEN(PR$)›2620 VA=VA+.1:XC=HA:YC=VA›2630 G$=PR$:GOSUB3060›2640 REM --- streepje ---›2650 HO=HA+BB:VE=VA+.0+G}85:GOSUB620›2660 HO=HO-BB*LV:GOSUB630›2670 REM --- verschil ---›2680 VS=DD-PR:SR=VS:GOSUB300:VS$=SR$›2690 LV=LEN(VS$)+1›2700 +H}VA=VA+.1:XC=HA:YC=VA:G$=VS$:GOSUB3060›2710 REM --- cijfer bijhalen ---›2720 IF(TT>=LA)AND(VS=0)THENQO=7›2730 IFQO=7 THEN2780›+I}2740 TT=TT+1:HA=HA+BB:BY=VAL(MID$(A$,TT,1))›2750 SR=BY:GOSUB300:BY$=SR$›2760 VS$=VS$+BY$:XC=HA:YC=VA:G$=BY$:GOSUB3040›2770 DD+J}=10*VS+VAL(BY$)›2780 NEXTQO:GOSUB2860:GOTO2200›2790 REM›2800 REM === sbr.SPATIEBALK ===›2810 HO=.1:VE=.9:SR$=" druk op de SP+K}ATIEBALK"›2820 GOSUB650:RETURN›2830 REM›2840 REM === sbr.AFWERKING ===›2850 REM --- staartdeling ---›2860 IFVS<>0 THENHO=HC+.+L}06:VE=VC+.05:SR$=". .":GOSUB650›2870 REM --- overige prgrms ---›2880 CN=1:GOSUB2810:CN=0›2890 SR$=" KLAAR ! "›2900 IF(HP>0)AN+M}D(FO=0)THENSR$=" GOED GEDAAN! "›2910 SR$=SR$+" - NOG 'N KEER ?"›2920 HO=.1:VE=.9:GOSUB650›2930 GOSUB210:IF(IN=78)THEN1000›294+N}0 IF(IN=74)THENRETURN›2950 GOTO2890›2960 REM›2970 REM === sbr.QUOTIENT === DD / QO$›2980 EE=DD:QQ=0›2990 IFEE>=B THENEE=EE-B:+O}QQ=QQ+1:GOTO2990›3000 SR=QQ:GOSUB300:QO$=SR$›3010 RETURN›3020 REM›3030 REM === sbr.PRINT STRING vooruit === G$,XC,YC›3040 XC=+P}XC-BB:FORNP=1 TOLEN(G$):XC=XC+BB:GOTO3080›3050 REM === PRINT STRING achteruit === G$,XC,YC›3060 XC=XC+BB:FORNP=LEN(G$)TO1 STE+Q}P-1:XC=XC-BB›3070 IF(FF=1)THEN GOSUB3380›3080 CF=VAL(MID$(G$,NP,1)):GOSUB3120›3090 NEXTNP:RETURN›3100 REM›3110 REM === sbr.TE+R}KEN EEN CIJFER === CF,XC,YC›3120 M$=SR$:IF(FF=0)OR(CF=10)THEN3180›3130 IFHP>0 THENHO=XC+.01:VE=YC+.03:SR$="?":GOSUB650›3140 G+S}OSUB210:IFHP<2 THEN3180›3150 CN=1:GOSUB650:CN=0›3160 IFCF=10 THEN3180›3170 IFIN<>CF+48 THENFO=FO+1:GOTO3130›3180 T$=C$(CF):SS+T}=VAL(LEFT$(T$,1)):PP=2›3190 FORRR=1 TOSS:EE=VAL(MID$(T$,PP,1)):PP=PP+1›3200 HO=XC+VAL(MID$(T$,PP,1))*.01:PP=PP+1›3210 VE=YC+V+U}AL(MID$(T$,PP,1))*.01:PP=PP+1›3220 GOSUB620›3230 FORLL=1 TOEE›3240 HO=XC+VAL(MID$(T$,PP,1))*.01:PP=PP+1›3250 VE=YC+VAL(MID$(T+V}$,PP,1))*.01:PP=PP+1›3260 GOSUB630:NEXTLL:NEXTRR›3270 SR$=M$:RETURN›3280 REM›3290 REM === sbr.INNEMEN GETAL === LL / AO A+W}O$›3300 GOSUB210:IF(IN<49)OR(IN>57)THEN3300›3310 AI=VAL(IN$):PRINTIN$;:AO$=IN$:AO=IN›3320 GOSUB210:IF(IN=13)OR(LEN(AO$)=LL)TH+X}EN3350›3330 IF(IN<48)OR(IN>57)THEN3320›3340 AO$=AO$+IN$:PRINTIN$;:AI=AI*10+VAL(IN$):GOTO3320›3350 AO=VAL(AO$):RETURN›3360 REM+Y}›3370 REM === sbr.WACHTLUS ===›3380 IFIN=83 THENRETURN›3390 IF(HP=0)THENSV=0:SP=0:SD=VT:GOSUB400:RETURN›3400 REM AANPASSEN NA+Z}AR WENS VIA VT IN REGEL 1030›3410 RETURN›3420 REM›3430 REM === sbr.PLAATS (K) OF (R) ===›3440 GOSUB600:CN=0:HO=0:VE=.9:SR$="(+[}"+Q$+")":GOSUB650›3450 RETURN›3460 REM›3470 REM === sbr.OPTELLEN ===›3480 HO=HC:VE=VC+.085:GOSUB620:HO=.9:GOSUB630›3490 SR$="+\}+":HO=.95:VE=VE-.02:GOSUB650›3500 FORN=TT TO1 STEP-1›3510 PP$(N)=RIGHT$("00000000000000"+PP$(N),14):NEXTN›3520 REM --- de opt+]}ellus ---›3530 BW=0:UI$=""›3540 FORM=14 TO1 STEP-1:G=0›3550 FORN=1 TOTT›3560 H=VAL(MID$(PP$(N),M,1))›3570 G=G+H›3580 NEXTN›35+^}90 G=G+BW›3600 SR=G:GOSUB300›3610 G$=RIGHT$(SR$,1)›3620 UI$=UI$+G$›3630 BW=INT(G/10)›3640 NEXTM›3650 REM›3660 L=LEN(UI$)›3670+_} IFMID$(UI$,L,1)="0" THENL=L-1:GOTO3670›3680 UI$=LEFT$(UI$,L)›3690 REM --- uitkomst printen ---›3700 HC=.8+BB:VC=VC+.1›3710 F+`}ORN=1 TOLEN(UI$)›3720 G$=MID$(UI$,N,1):CF=VAL(G$)›3730 HC=HC-BB:XC=HC:YC=VC:GOSUB3380:GOSUB3120:NEXTN›3740 RETURN›3750 REM›37+a}60 REM === sbr.KOP ===›3770 IFHP=0 THENPRINT"KIJKEN":RETURN›3780 PRINT"ZELF REKENEN":RETURN›3790 REM›3800 REM === sbr.INNAME +b}===›3810 PRINT:PRINT" Dank je wel. TIK OP RETURN";›3820 GOSUB210:IFIN<>13 THEN3820›3830 RETURN›3840 REM›3850 REM === CIJFERCO+c}DES ===›25000 DATA"18010617374641301001 0"›25010 DATA"12213037 1"›25020 DATA"1601103041430747 2"›25030 DATA"26011030414233236+d}23334446371706 3"›25040 DATA"2200044413237 4"›25050 DATA"27000333444637170610040 5"›25060 DATA"1930100106173746443303 6"›2507+e}0 DATA"12004017 7"›25080 DATA"2613040617374644944331302011030414233 8"›25090 DATA"254130100103145144441463717 9"›25100 DATA"1+³}›1000 A=500:GOTO20:REM *** REM-KONTAKT-10 ***›1010 READN$:DIMA$(25):FR=0:GOSUB280›1020 H=HO:GOSUB1700›1030 REM›1040 HO=0:VE=2'g}:GOSUB110›1050 PRINT"Mit dieser besonderen Form des"›1060 PRINT"'Journals' haben Sie als Hoerer"›1070 PRINT"Gelegenheit, Kont'h}akte zu"›1080 PRINT"knuepfen, Fragen zu stellen oder"›1090 PRINT"Probleme aufzuwerfen. Wir"›1100 PRINT"hoffen, dass Ihnen von'i} anderen"›1110 PRINT"Hoerern geholfen werden kann.":PRINT›1120 PRINT"Dieser Teil des Software-Service"›1130 PRINT"soll auch H'j}oerern, die nicht"›1140 PRINT"mehr benoetigte Hard- oder Soft-"›1150 PRINT"ware abgeben wollen, eine"›1160 PRINT"Gelegenheit 'k}zum Angebot geben.":PRINT›1170 PRINT"Bieten Sie bitte keine Programme"›1180 PRINT"rassistischen, sexistischen oder"›1190 PRIN'l}T"militanten Inhalts und keine"›1200 PRINT"Raubkopien sondern nur Original-"›1210 PRINT"software mit Begleitmaterial an!"›122'm}0 REM›1230 FL=1:N=0›1240 REM›1250 READA$›1260 IFLEFT$(A$,1)="#" THENZ=N-1:N=1:GOTO1310›1270 IFLEFT$(A$,1)="." THEN1370›1280 I'n}FA$="***" THENZ=N:GOSUB1410›1290 A$(N)=A$:N=N+1:PRINTA$:GOTO1250›1300 REM›1310 IFFL=1 THEN GOSUB1740:GOTO1330›1320 GOSUB1790›'o}1330 FL=0:N=1:Z=1:A$=RIGHT$(A$,LEN(A$)-1)›1340 HO=0:VE=2:GOSUB110:PRINT:A$(N)=A$:N=N+1:PRINTA$›1350 GOTO1250›1360 REM›1370 A$'p}=RIGHT$(A$,LEN(A$)-1):A$(N)=""›1380 PRINT:A$(N+1)=A$:N=N+2:PRINTA$›1390 GOTO1250›1400 REM›1410 GOSUB1790›1420 GOSUB100:HO=0:V'q}E=0:GOSUB110›1430 PRINT"Das war ";›1440 SR$="REM - Kontakt Nr. "+N$›1450 HO=4:VE=2:GOSUB110:GOSUB150›1460 HO=0:VE=4:GOSUB110›'r}1470 PRINT"Suchen Sie Kontakte, Hard- oder"›1480 PRINT"Software oder wollen Sie etwas"›1490 PRINT"anbieten, dann schreiben Si's}e an:":PRINT›1500 PRINT"- Bitte fassen Sie sich kurz -"›1510 HO=6:VE=10:GOSUB110›1520 PRINT"Funkhaus Berlin"›1530 VE=11:GOSUB't}110›1540 PRINT"Deutschlandsender Kultur"›1550 VE=12:GOSUB110›1560 PRINT"Computermagazin REM"›1570 VE=13:GOSUB110›1580 PRINT"K'u}ennwort: REM-KONTAKT"›1590 VE=14:GOSUB110›1600 PRINT"Nalepastrasse"›1610 VE=15:GOSUB110›1620 PRINT"O-1160 Berlin ";›1630 HO='v}0:VE=17:GOSUB110›1640 PRINT"Wir bitten die hier genannten"›1650 PRINT"nach ca 2 Wochen um Rueckantwort"›1660 PRINT"(Zahl der 'w}Zuschriften etc.) - Danke!"›1670 REM›1680 GOTO1950›1690 REM›1700 SR$="REM - Kontakt Nr. "+N$›1710 HO=(H-LEN(SR$)-6)/2:VE=0:GO'x}SUB110:GOSUB150›1720 RETURN›1730 REM›1740 SR$="Weiter mit "›1750 HO=5:VE=22:GOSUB110:GOSUB150›1760 GOSUB210:GOSUB100:G'y}OSUB1700›1770 RETURN›1780 REM›1790 SR$="Weiter mit "›1800 HO=5:VE=21:GOSUB110:GOSUB150›1810 SR$="Ausdruck mit < P >"›1'z}820 HO=5:VE=22:GOSUB110:GOSUB150›1830 SR$="Ende mit < X >"›1840 HO=5:VE=23:GOSUB110:GOSUB150›1850 GOSUB210›1860 IFIN=80 T'{}HEN GOSUB1900:GOSUB100:RETURN›1870 IFIN=88 THEN1420›1880 GOSUB100:GOSUB1700:RETURN›1890 REM›1900 FORN=1 TOZ›1910 SR$=" "+'|}A$(N):GOSUB350:GOSUB360›1920 NEXTN›1930 GOSUB360:GOSUB360:RETURN›1940 REM›1950 SR$="Ende/Wiederholung "›1960 HO=0:VE=22:'}}GOSUB110:GOSUB150›1970 GOSUB210›1980 IFIN=88 THEN950›1990 IFIN=87 THEN1000›2000 GOTO1950›25000 DATA"10"›25010 DATA"#Ein Servi'~}ce von REM:"›25020 DATA"Wir haben noch Restbestaende"›25030 DATA"der schriftl. Materialien zu"›25040 DATA"den Programmierkur'}sen, also:"›25050 DATA"-BASIC-1x1 des Programmierens"›25060 DATA"-BASIC fuer Fortgeschrittene"›25070 DATA"-Einfuehrung in Mas'€}chinencode"›25080 DATA"-Einfuehrung in BASICODE"›25090 DATA"-Beschr. d. Pascal-Compiler"›25100 DATA"Wenn Sie etwas davon habe'}n "›25110 DATA"moechten, schreiben Sie uns was"›25120 DATA"und schicken einen (mehrere)"›25130 DATA"ausreichend frankierten u'‚}nd an"›25140 DATA"sich adressierten A-5 Umschlag."›25150 DATA"Nun aber zu IHREN Kontakten:"›25160 DATA"#Henrik Haftmann"›2517'ƒ}0 DATA"Fr.-Engels-Str.12"›25180 DATA"O-8355 NEUSTADT"›25190 DATA"KC 85/4 + K6320"›25200 DATA".Biete Softw. zur Nachnutzung:"›'„}25210 DATA"-CDIR Kassettenlistprogr. mit"›25220 DATA" Zaehlwerkang. u. Coverdruck"›25230 DATA" (auch f. Musikkass. geeignet) '…}"›25240 DATA"-RAMDOS verwaltet RAM-Floppy"›25250 DATA" (als Assemblerquelltext), "›25260 DATA" Zusatz-RAM erforderlich"›25270'†} DATA"#W.Baessler"›25280 DATA"Luxemburgstr.10"›25290 DATA"O-4500 DESSAU"›25300 DATA"KC 85/3+4 + D004"›25310 DATA".Biete Progr'‡}. Tausch"›25320 DATA".Suche Progr. Beschreibung f."›25330 DATA"Grafikprogr. BOTICELLI"›25340 DATA"#Eberhard Richter"›25350 DA'ˆ}TA"W.-Bredel-Ring 2"›25360 DATA"O-4308 THALE"›25370 DATA"KC 85/3"›25380 DATA".Wer koennte ueber REM-Kontakt"›25390 DATA"volls'‰}taendige Uebersicht ueber"›25400 DATA"Module (M001, M003, D004 usw.)"›25410 DATA"veroeffentlichen?!"›25420 DATA"#Joachim Henz'Š}e"›25430 DATA"Str. d. DSF 1"›25440 DATA"O-7272 RACKWITZ"›25450 DATA"KC 87"›25460 DATA".Suche Kopierprog.,um von KC 87 "›25470'‹} DATA"auf A 5105 zu kop. (Kass.vers.)"›25480 DATA".Su. preisw. LCR DATA o.a. ,"›25490 DATA"Laufwerk 1.6 und LX 86"›25500 DATA'Œ}".Biete A5105 (neu) und"›25510 DATA"umfangr. Softw. f. KC 87"›25520 DATA"#Wilfried Koinzer"›25530 DATA"Dorfstr.27"›25540 DATA'}"O-7571 JERISCHKE"›25550 DATA".Biete:"›25560 DATA"-Schreibmasch. SM 8200i mit An-"›25570 DATA" passung an KC 85/4 inkl. M003"'Ž}›25580 DATA"-Z 1013"›25590 DATA"-Software f. KC 85/4"›25600 DATA"#Olaf Krause"›25610 DATA"H.-Heine-Str.13 / Zi. 32"›25620 DAT'}A"O-9200 FREIBERG"›25630 DATA"KC 85/4 + D004"›25640 DATA".Biete:"›25650 DATA"-Modul M027"›25660 DATA"-Kass. C0161, 0164, 0169'}"›25670 DATA".Suche:"›25680 DATA"-D002, D005, M007, M008, M010,"›25690 DATA" M011, M022, M025, M029, M030,"›25700 DATA" M032,'‘} M033, M125, C0124, C0151"›25710 DATA"-dok. ROM-Listing(4.1 o. 4.2)"›25720 DATA" u. Stromlaufplaene f. KC u. "›25730 DATA" Mo'’}dule"›25740 DATA"#Mario Zeyner"›25750 DATA"Dierhagenerstr. 2"›25760 DATA"O-1093 BERLIN"›25770 DATA"C'64, Dragon 32"›25780 DAT'“}A".Biete ca. 50 BASICDE-Prog. aus"›25790 DATA" REM"›25800 DATA".Suche BASICODE-Prog. GLOBUS u."›25810 DATA"Bascoder f. Dragon'”} 32 oder"›25820 DATA"Tandy-Color-Computer"›25830 DATA"#Ruediger Nuetzmann"›25840 DATA"M.-Leistner-Str. 38"›25850 DATA"O-2003 '•}FRIEDLAND"›25860 DATA"KC 85/3+4, D004"›25870 DATA".Biete:"›25880 DATA"-Origkass.:Spiele,Forth,RAMDOS"›25890 DATA" Approx.,Zei'–}chenbilder,M003 V24 "›25900 DATA" Progmix 1+2 mit Beschr."›25910 DATA"-Zweitlaufwerk zu D004"›25920 DATA"-Softw.tausch CAOS, '—}MICRODOS"›25930 DATA".Suche:"›25940 DATA"-Forth f. MICRODOS u. Kass."›25950 DATA" C0153 (Fouriertr., Dok. vorh.)"›25960 DATA"'˜}#Helmut Nitkowski"›25970 DATA"Hauptstr. 63"›25980 DATA"O-2355 SASSNITZ, Tel. 22362"›25990 DATA".Suche C'64-Hardware (EPROM-"›'™}26000 DATA"Karte,Plotter,Parallelbeschl.,"›26010 DATA"Betriebssystemumsch. ... )"›26020 DATA".Biete Thermodr. (Centr.)+Kabel"'š}›26030 DATA"+Papier(VB 45,-) sowie"›26040 DATA"ZX 81+48kRAM+Drucker (VB 65,-)"›26050 DATA".Tausche Softw. BASICODE + C'64"›26'›}060 DATA"#Armin Goldammer"›26070 DATA"E.-Thaelmann-Str.42"›26080 DATA"O-7302 HARTHA"›26090 DATA"KC 85/4"›26100 DATA".Biete 9-'œ}Nadeldr. mit Centr."›26110 DATA".Suche Profitastatur D 005"›26120 DATA"#Steffen Lehmann"›26130 DATA"Halsbruecker Str.35"›2614'}0 DATA"O-9200 FREIBERG"›26150 DATA"KC 85/3"›26160 DATA".Suche RAM-Erw. 16kB u."›26170 DATA"Interesse an Softw.-Tausch"›26180 'ž}DATA"#Sven Lehmann"›26190 DATA"Karl-Marx-Str. 11"›26200 DATA"O-7533 WELZOW"›26210 DATA"KC 85/4"›26220 DATA".Suche:"›26230 DAT'Ÿ}A"-Diskettenlaufwerk+Software"›26240 DATA"-M011(64k), M032(256k)"›26250 DATA"-grafikf. Drucker m. V24"›26260 DATA"-Softwareta' }usch"›26270 DATA"#Andreas Zeidler"›26280 DATA"O.-Nuschke-Str. 31"›26290 DATA"O-4732 Bad FRANKENHAUSEN"›26300 DATA".Biete:"›26'¡}310 DATA"-Lerncomputer LC 80"›26320 DATA"-Schriftreihe IIR"›26330 DATA" (Informatik*Informationen*"›26340 DATA" Reporte) der'¢} AdW"›26350 DATA"-Erfahrungen KC 85/3+Fl.+S3004"›26360 DATA".Suche:"›26370 DATA"-einf. Drucker (V24)"›26380 DATA"-Softw. f. F'£}loppy"›26390 DATA"#Uwe Brytscha"›26400 DATA"Th.-Muentzer-Platz 7"›26410 DATA"O-8019 DRESDEN"›26420 DATA"KC 87, C'64"›26430 DA'¤}TA".Suche alles ueber C'64, Softw. "›26440 DATA"Lernprog.(dt.) ab Schulkl.2"›26450 DATA".PS: REM-KONTAT ist Klasse!"›26460 DA'¥}TA"#E. Stephan"›26470 DATA"Niederhaeslicher Str. 2"›26480 DATA"O-8210 FREITAL"›26490 DATA"KC 85/3 + Floppy"›26500 DATA".Suche'¦}:"›26510 DATA"-Progr. f. Amateurfunk "›26520 DATA" (RTTY, CW usw.)"›26530 DATA"-M032 (256k-RAM)"›26540 DATA"-M011 ( 64k-RAM)"'§}›26550 DATA"#Bernhard Brandt"›26560 DATA"Feldstr.19"›26570 DATA"O-2320 GRIMMEN"›26580 DATA"KC 85/3"›26590 DATA".Suche:"›26600'¨} DATA"-Hardware (insb. D004)"›26610 DATA"-Joy-Modul+ -stick+ Treiber"›26620 DATA"-preisg. Drucker"›26630 DATA" m. Kabel u. Tr'©}eiber"›26640 DATA".Software+Erfahrungsaustausch"›26650 DATA"#Steffen Haertel"›26660 DATA"Hauptstr. 15"›26670 DATA"O-9252 ALTM'ª}ITTWEIDA"›26680 DATA"KC 85/3"›26690 DATA".Biete Buch 'Spiel u. Spass mit"›26700 DATA"dem Computer' u. Software"›26710 DATA".S'«}uche:"›26720 DATA"-Laufwerk D 004"›26730 DATA"-Module M011 bzw. M022"›26740 DATA"-Software"›26750 DATA"#Juergen Toepfer"›2676'¬}0 DATA"Fr.-Gaebler-Ring 13/25"›26770 DATA"O-5063 ERFURT"›26780 DATA".Biete KC85/4mit kom. Tast."›26790 DATA"+floppy D004, Far'­}bmonit., "›26800 DATA"Module V24,64k,128k, Dig.I/O,"›26810 DATA"Developm.,USER und ca. 20"›26820 DATA"Prog-Disk (CAOS,MICRODO'®}S) und"›26830 DATA"Liter. (VB=900,- auch einzeln)"›26840 DATA".Biete Z1013-Brosig-Tast.- 64k"›26850 DATA"RAM u. 64-Zeichenpla'¯}t., RAM-fl. "›26860 DATA"E/A-Mod., Eprommer + ca 20 Kass"›26870 DATA"u.Lit. (Pr. n. Vereinb.)"›26880 DATA"***"›30000 REM ****'°}**************›30010 REM * REM - KONTAKT *›30020 REM ******************›32000 REM›32010 REM Basisprogramm auf C64 von:›32020'±} REM Friedrich Dormeier›32030 REM Bismarckstr. 11a›32040 REM W-1000 BERLIN 39›32050 REM Tel. (030) 8033111›32060 REM›32070 RE'²}M Erstausstrahlung: Deutschlandsender Kultur›32080 REM-spezial 910417›RLIN 39›32050 REM Tel. (030) 8033111›32060 REM›32070 RE$F47766767768 ,"›25110 REM›30000 REM --- uitleg cijfers ---›30010 REM De cijfers worden getekend›30020 REM met gebroken lijnen +´}volgens›30030 REM de coordinaten, die uit de›30040 REM code gelezen worden.›30050 REM Het eerste cijfer is het›30060 REM aant+µ}al lijnenseries (1 of 2)›30070 REM Daarachter staat per lijnen-›30080 REM serie eerst het aantal lijn-›30090 REM stukken van +¶}de serie, dan de›30100 REM x,y van het beginpunt en dan›30110 REM de x,y van de vervolgpunten.›30120 REM De coordinaten zijn +·}vanuit›30130 REM de linkerbovenhoek=0, x naar›30140 REM rechts en y omlaag.›30150 REM Alles in waarden van 0 tot 9›30160 REM +¸}----------------------------›32000 REM Ch.W.Brederode›32010 REM Von Bonninghausenlaan 33›32020 REM 2161 ES LISSE›32030 REM›3+¹}2040 REM TROS-RADIO dd 891115›2000 REM Ch.W.Brederode›32010 REM Von Bonninghausenlaan 33›32020 REM 2161 ES LISSE›32030 REM›3( »} Andreas Tartz ›1000 A=500:GOTO20:REM DREIECKSBERECHNUNG›1010 S0$=" =":S1$=" "+S0$›1020 S2$="Seite ":S3$="Winkel "›1030 S4$="Sei#½}tenhalbierende ":S5$="Winkelhalbier. "›1040 S6$="alpha":S7$="beta "›1050 S8$="gamma":S9$="Hoehe auf "+S2$›1060 SM$=" --------#¾}------------------------------"›1070 GOTO3030›2000 REM * RECHENUNTERROUTINEN *›2010 N=A:P=X›2020 M=N*SIN(PY*Q/F)/SIN(PY*P/F):#¿}RETURN›2030 M=(N*N+Q*Q-P*P)/(2*N*Q):IF(M>=1)OR(M<=-1)THEN3310›2040 M=(-ATN(M/SQR(1-M*M))+PY/2)*F/PY:RETURN›2050 M=SQR(N*N+Q*Q#À}-2*N*Q*COS(PY*P/F)):RETURN›2060 IFN1 THEN3310›2#Á}090 M=ATN(M/SQR(1-M*M))*F/PY:RETURN›2100 M=N*SIN(PY*Q/F)/(SIN(PY*(F-P/2-Q)/F)):RETURN›2110 REM›2200 REM * VERZOEGERUNG / TAST#Â}ATUR *›2210 FORI=0 TO1000:NEXTI:GOTO3030›2220 REM›2300 REM * TASTATURABFRAGE *›2310 GOSUB200›2320 IFIN=32 THENRETURN›2330 IFI#Ã}N=64 THEN GOSUB5030:GOTO4810:REM @›2340 IFIN=69 THEN950:REM E(NDE)›2350 GOTO2310›2360 REM›2400 REM * SYSTEMROUTINEN *›2410 VE#Ä}=2:SR=A:GOTO2470›2420 VE=3:SR=B:GOTO2470›2430 VE=4:SR=C:GOTO2470›2440 VE=6:SR=X:GOTO2470›2450 VE=7:SR=Y:GOTO2470›2460 VE=8:SR#Å}=Z›2470 HO=23:GOSUB300:GOSUB110:GOSUB150›2480 PRINT:RETURN›2500 IFA<>0 THENQ=A:GOSUB2060:X=M:GOTO3810›2510 RETURN›2600 IFM<0 #Æ}THEN3250›2610 E=E+1›2620 IFM<=0 THEN2700›2630 IFE=1 THENE1=1›2640 IFE=2 THENE2=1›2650 IFE=3 THENE3=1›2660 IFE=4 THENE4=1›2670#Ç} IFE=5 THENE5=1›2680 IFE=6 THENE6=1›2690 D=D+1:IFE>=4 THEND=D+3›2700 RETURN›2800 PRINT" ";S2$;"a";S1$;:RETURN›2810 PRINT" ";S#È}2$;"b";S1$;:RETURN›2820 PRINT" ";S2$;"c";S1$;:RETURN›2830 PRINT" ";S3$;S6$;S0$;:RETURN›2840 PRINT" ";S3$;S7$;S0$;:RETURN›2850#É} PRINT" ";S3$;S8$;S0$;:RETURN›3000 REM›3010 REM * HAUPTPROGRAMM *›3020 REM›3030 ZL=1:E=0:E1=0:E2=0:E3=0:H1=0:H2=0:H3=0:E4=0:E#Ê}5=0:E6=0›3040 PY=3.14159265:REM (PY=PI)›3050 A=0:B=0:C=0:D=0:F=180:X=0:Y=0:Z=0›3060 GOSUB100:PRINTTAB(13);"Easy Triangles":PR#Ë}INT›3070 PRINTTAB(4);"BASICODE-3-Version D.Winkel '89"›3080 PRINT›3090 PRINT:GOSUB2800:INPUTA:M=A:GOSUB2600›3100 PRINT:GOSUB2#Ì}810:INPUTB:M=B:GOSUB2600›3110 PRINT:GOSUB2820:INPUTC:M=C:GOSUB2600›3120 PRINT›3130 PRINT:GOSUB2830:INPUTX:M=X:GOSUB2600›3140 #Í}PRINT:GOSUB2840:INPUTY:M=Y:GOSUB2600›3150 PRINT:GOSUB2850:INPUTZ:M=Z:GOSUB2600›3160 PRINT›3170 REM * EINGABE PRUEFEN *›3180 I#Î}F(X+Y>=180)OR(Y+Z>=180)OR(X+Z>=180)THEN3250›3190 IFD=9 THEN3810›3200 IFD=6 THEN3610›3210 IFD=3 THEN3520›3220 IF(D<3)OR(D=4)OR#Ï}(D=5)OR(D=8)THEN3270›3230 IF(D=7)OR(D=10)OR(D=11)OR(D>12)THEN3290›3240 REM * SYSTEMMELDUNGEN *›3250 PRINT:PRINTTAB(10);"unzul#Ð}aessige Werte !":GOSUB250›3260 GOTO2210›3270 PRINT:PRINTTAB(10);"zu wenig Parameter !":GOSUB250›3280 GOTO2210›3290 PRINT:PRIN#Ñ}TTAB(9);"nur 3 Werte eingeben !":GOSUB250›3300 GOTO2210›3310 GOSUB100:PRINT:PRINTTAB(12);"keine Loesung !":PRINT›3320 GOSUB25#Ò}0:GOSUB2310›3330 GOTO3030›3500 REM ** RECHENROUTINEN **›3510 REM * 3 SEITEN *›3520 IFX=0 THENN=B:Q=C:P=A:GOSUB2030:X=M›3530 I#Ó}FY=0 THENN=A:Q=C:P=B:GOSUB2030:Y=M›3540 IFZ=0 THENN=A:Q=B:P=C:GOSUB2030:Z=M›3550 GOTO4010›3600 REM * 2 SEITEN + EING. WINKEL #Ô}*›3610 IF(A=0)OR(B=0)OR(Z=0)THEN3630›3620 N=A:Q=B:P=Z:GOSUB2050:C=M:H1=1:GOTO3520›3630 IF(B=0)OR(C=0)OR(X=0)THEN3650›3640 N=B#Õ}:Q=C:P=X:GOSUB2050:A=M:H2=1:GOTO3520›3650 IF(A=0)OR(C=0)OR(Y=0)THEN3690›3660 N=A:Q=C:P=Y:GOSUB2050:B=M:H3=1:GOTO3520›3670 REM#Ö} * 2 SEITEN + 1 WINKEL *›3680 REM IFA+B=XTHENX=X-.00001:REM EVENTUELL EINFUEGEN›3690 IFX<>0 THENN=A:P=X:GOTO3710›3700 GOTO373#×}0›3710 IFB<>0 THENQ=B:GOSUB2060:Y=M:GOTO3810›3720 Q=C:GOSUB2060:Z=M:GOTO3810›3730 IFY<>0 THENN=B:P=Y:GOSUB2500:GOTO3750›3740 #Ø}GOTO3760›3750 Q=C:GOSUB2060:Z=M:GOTO3810›3760 N=C:P=Z:GOSUB2500:Q=B:GOSUB2060:Y=M›3800 REM * 1 SEITE + 2 WINKEL *›3810 W=F-X-#Ù}Y-Z›3820 IFX=0 THENX=W›3830 IFY=0 THENY=W›3840 IFZ=0 THENZ=W›3850 IFC<>0 THENN=C:P=Z:GOTO3880›3860 IFB<>0 THENN=B:P=Y:GOTO388#Ú}0›3870 IFA<>0 THENQ=Y:GOSUB2010:B=M:GOTO3900›3880 Q=X:GOSUB2020:A=M›3890 IFB=0 THENQ=Y:GOSUB2010:B=M:GOTO4010›3900 Q=Z:GOSUB2#Û}010:C=M›4000 REM * HOEHEN/S.-HALB./W.-HALB. *›4010 HA=B*SIN(PY*Z/F):HB=C*SIN(PY*X/F):HC=A*SIN(PY*Y/F)›4020 N=A/2:Q=C:P=Y:GOSU#Ü}B2050:SA=M›4030 N=B/2:Q=A:P=Z:GOSUB2050:SB=M:N=C/2›4040 Q=B:P=X:GOSUB2050:SC=M:N=C:Q=Y:P=X:GOSUB2100›4050 WA=M:N=A:Q=Z:P=Y:GO#Ý}SUB2100›4060 WB=M:N=B:Q=X:P=Z:GOSUB2100:WG=M:UM=A+B+C›4070 FL=.5*A*B*SIN(PY*Z/F)›4500 REM * LOESUNGEN AUSGEBEN *›4510 D=6:G$=#Þ}"A":IFZL=3 THENG$="B"›4520 GOSUB100:PRINTTAB(12);"Loesungen ";G$:PRINT›4530 GOSUB2800:IFE1=1 THEN GOSUB2410:GOTO4550›4540 P#ß}RINTA›4550 GOSUB2810:IFE2=1 THEN GOSUB2420:GOTO4570›4560 PRINTB›4570 GOSUB2820:IFE3=1 THEN GOSUB2430:GOTO4590›4580 PRINTC›459#à}0 PRINTSM$›4600 GOSUB2830:IFE4=1 THEN GOSUB2440:GOTO4620›4610 PRINTX›4620 GOSUB2840:IFE5=1 THEN GOSUB2450:GOTO4640›4630 PRINT#á}Y›4640 GOSUB2850:IFE6=1 THEN GOSUB2460:GOTO4660›4650 PRINTZ›4660 PRINTSM$›4670 PRINT" ";S9$;"a =";HA›4680 PRINT" ";S9$;"b #â} =";HB›4690 PRINT" ";S9$;"c =";HC›4700 PRINTSM$›4710 PRINT" ";S4$;"a =";SA›4720 PRINT" ";S4$;"b =";SB›4730 PRINT" ";S4#ã}$;"c =";SC›4740 PRINTSM$›4750 PRINT" ";S5$;S6$;" =";WA›4760 PRINT" ";S5$;S7$;" =";WB›4770 PRINT" ";S5$;S8$;" =";WG›4780 PRIN#ä}TSM$›4790 PRINT" Flaecheninhalt =";FL›4800 PRINT" Umfang ";S1$;UM;:GOSUB2310›4810 IFZL<>2 THEN3030›4820 REM * 2. LOESUN#å}G BEI SSW(K) *›4830 ZL=3:IFE4=1 THEN4870›4840 IFE5=1 THEN4890›4850 IFE1=1 THENB=0:Y=0:GOTO4930›4860 A=0:X=0:GOTO4920›4870 IFE#æ}2=1 THENC=0:Z=0:GOTO4920›4880 B=0:Y=0:GOTO4910›4890 IFE1=1 THENC=0:Z=0:GOTO4930›4900 A=0:X=0›4910 Z=F-Z:GOTO3810›4920 Y=F-Y:G#ç}OTO3810›4930 X=F-X:GOTO3810›5000 REM›5010 REM * BS-HARDCOPY *›5020 REM›5030 FORVE=0 TO23›5040 SR$=""›5050 FORHO=0 TO39›5060 G#è}OSUB220:SR$=SR$+CHR$(IN)›5070 NEXTHO›5080 GOSUB330:GOSUB350:GOSUB360›5090 NEXTVE›5100 RETURN›30000 REM **********************#é}******›30010 REM * *›30020 REM * DAS PROGRAMM BERECHNET *›30030 REM * ALLE WICHTIGEN WERTE *›3#ê}0040 REM * EINES DREIECKS *›30050 REM * *›30060 REM * DREI WERTE MUESSEN *›30070 REM#ë} * EINGEGEBEN WERDEN *›30080 REM * *›30090 REM * UNBEKANNTE WERTE MIT *›30100 REM * 'ENT#ì}ER' BZW. 'RETURN' *›30110 REM * UEBERSPRINGEN *›30120 REM * *›30130 REM * DAS PROGRAM#í}M ERKENNT *›30140 REM * WENN KEINE LOESUNG *›30150 REM * ODER EINE 2. LOESUNG *›30160 REM * MOEGLICH IST #î} *›30170 REM * *›30180 REM * INPUT-WERTE WERDEN *›30190 REM * REVERS DARGESTELLT *›30#ï}200 REM * *›30210 REM * BEI HARDCOPY EINGERUECKT *›30220 REM * *›30230 REM #ð}* BS-HARDCOPY MIT '@' *›30240 REM * *›30250 REM * UMSCHALTUNG IN NORMAL- *›30260 REM * B#ñ}ETRIEB MIT 'E' *›30270 REM * *›30280 REM * PROGRAMMFORTSETZUNG MIT *›30290 REM * 'SPACE#ò}' *›30300 REM * *›30310 REM * VARIABLE PY=PI *›30320 REM * #ó} *›30330 REM ****************************›30340 REM›32000 REM ****************************›32010 REM * #ô} *›32020 REM * BC-3 DREIECKSBERECHNUNG *›32030 REM * DETLEV WINKEL *›32040 REM * AM SEE 4 *›3#õ}2050 REM * BERLINGERODE *›32060 REM * 5 6 0 1 *›32070 REM * D D R *›32080 REM#ö} * *›32090 REM * NACH F. SCHNEIDER *›32100 REM * IN '64ER' 4/89 *›32110 REM * #÷} *›32120 REM * (W) 4/89 AUF C=64 *›32130 REM * *›32140 REM ***************#ø}*************›32150 REM Erstausstrahlung:›32160 REM REM-Computernacht,15/16.9.89›32170 REM ACORN-Master›REM *************** jORN=1 TOLEN(UI$)›3720 G$=MID$(UI$,N,1):CF=VAL(G$)›3730 HC=HC-BB:XC=HC:YC=VC:GOSUB3380:GOSUB3120:NEXTN›3740 RETURN›3750 REM›37+ú}60 REM === sbr.KOP ===›3770 IFHP=0 THENPRINT"KIJKEN":RETURN›3780 PRINT"ZELF REKENEN":RETURN›3790 REM›3800 REM === sbr.INNAME +û}===›3810 PRINT:PRINT" Dank je wel. TIK OP RETURN";›3820 GOSUB210:IFIN<>13 THEN3820›3830 RETURN›3840 REM›3850 REM === CIJFERCO+ü}DES ===›25000 DATA"18010617374641301001 0"›25010 DATA"12213037 1"›25020 DATA"1601103041430747 2"›25030 DATA"26011030414233236+ý}23334446371706 3"›25040 DATA"2200044413237 4"›25050 DATA"27000333444637170610040 5"›25060 DATA"1930100106173746443303 6"›2507+þ}0 DATA"12004017 7"›25080 DATA"2613040617374644944331302011030414233 8"›25090 DATA"254130100103145144441463717 9"›25100 DATA"1+ÿ}47766767768 ,"›25110 REM›30000 REM --- uitleg cijfers ---›30010 REM De cijfers worden getekend›30020 REM met gebroken lijnen (}