-
Notifications
You must be signed in to change notification settings - Fork 11
/
Copy pathJOURN13.bc
493 lines (493 loc) · 20.9 KB
/
JOURN13.bc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
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=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"Ausdruck ueber"
1060 PRINT:PRINT" - 1 den Bildschirm,"
1070 PRINT" - 2 den Drucker."
1080 PRINT:PRINT"Welche Nummer ?";:GOSUB210
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"Wieviel Leer-Zeilen "
1150 PRINT"am Seitenende ";:INPUTVL
1160 PRINT:PRINT"Wieviel Text-Zeilen "
1170 PRINT"auf jeder Seite ";:INPUTVR:VR=VR+VL-3
1180 MM$="":IFHL>0 THENMM$=LEFT$(S$,HL)
1190 GOSUB1310:M$=MM$:AL=VL:IFSC=2 THEN GOSUB1290
1200 IFLEN(R$)>HR-HL THEN GOSUB1730
1210 GOSUB1370:IFR$<>"" THENR$=R$+" "
1220 R$=R$+D$:GOTO1200
1230 IFSC=2 THENSR$=M$+SR$:GOSUB350: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 <RETURN/ENTER>":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 READD$
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$="":GOSUB1230: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$=""
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 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=VAL(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 DABEI, 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"AUDIOFREQUENZEN 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-TRANSPONDER 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"
25240 DATA"!POLARISATION HORIZONTAL"
25250 DATA"!!URSPRUNGSLAND GROSSBRITANNIEN"
25260 DATA"!!AUDIO-FREQUENZEN:"
25270 DATA"!- DEUTSCH 7,02 MHz"
25280 DATA"!- ENGLISCH 6,50(PRIM)/7,20 MHz"
25290 DATA"!- FRANZOESISCH 7,38 MHz"
25300 DATA"!- HOLLAENDISCH 7,56 MHz"
25310 DATA"!- (z.Z. NOCH FREI) 7,74 MHz"
25320 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 TELEVISION LUXEMBURG PLUS/RTL+"
25410 DATA"!!RADIO-PROGRAMME:"
25420 DATA"!! DEUTSCHE WELLE"
25430 DATA"! DEUTSCHE WELLE INTERNATIONAL"
25440 DATA"!!FREQUENZ 11,22900 GHz"
25450 DATA"!VIDEOSENDENORM PAL"
25460 DATA"!POLARISATION VERTIKAL"
25470 DATA"!!URSPRUNGSLAND DEUTSCHLAND"
25480 DATA"!!AUDIO-FREQUENZEN:"
25490 DATA"!TV-BEGLEITTON 6,50(PRIM)/7,02 MHz"
25500 DATA"!(Z.Z. NOCH FREI) 7,20 MHz"
25510 DATA"!DEUTSCHE WELLE (DT.PROGR.) 7,38 MHz"
25520 DATA"!DEUTSCHE WELLE INTERNATNAT. 7,56 MHz"
25530 DATA"!!VIDEOTEXT (TELETEXT): NICHT VORHANDEN"
25540 DATA".P0",".RASTRA-TRANSPONDER NUMMER 3"
25550 DATA"!!TV-PROGRAMM:"
25560 DATA"!!.CSCAN-SAT TV3"
25570 DATA"!!FREQUENZ 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 DATA"!!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"!ENGLISCH 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 TELEFON)"
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",".RASTRA-TRANSPONDER NUMMER 5"
25920 DATA"!!TV-PROGRAMME:"
25930 DATA"!!.CTHE CHILDREN'S CHANNEL (TCC)"
25940 DATA".CLIFESTYLE"
25950 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"
26010 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 (7am-9pm) 7,56 MHz MONO"
26070 DATA"!CLUB MUSIC (9pm-4am) 7,38+7,56 MHz"
26080 DATA"! STEREO"
26090 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:"
26160 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 SELL-A-VISION"
26270 DATA"!2000-2200 JSTV"
26280 DATA"!2200-0500 LIVESTYLE SATELLITE JUKEBOX"
26290 DATA"!!SONNTAG:"
26300 DATA"!0600-1200 TCC"
26310 DATA"!1200-1800 LIVESTYLE"
26320 DATA"!1800-2000 SELL-A-VISION"
26330 DATA"!2000-2200 JSTV"
26340 DATA"!2200-2400 SELL-A-VISION"
26350 DATA"!2400-0500 LIVESTYLE SATELLITE JUKEBOX"
26360 DATA"!!ALLE PROGRAMME AUSSER JSTV(JAPANISCH)"
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 DATA"!-TECHNISCHE HINWEISE"
26430 DATA"!!DER TCC-TELETEXT ENTHAELT:"
26440 DATA"!-PROGRAMMHINWEISE"
26450 DATA"!-SPIELE"
26460 DATA"!-SERVICE (Z.T.IN MEHREREN SPRACHEN)"
26470 DATA"!-UNTERTITEL FUER EINIGE SENDUNGEN"
26480 DATA"! (HOLLAENDISCH,SCHWEDISCH,NORWEGISCH)"
26490 DATA"!!HINWEISE ZU DEN UHRZEITEN:"
26500 DATA"!-am = VORMITTAGS / pm = NACHMITTAGS"
26510 DATA"!-ALLE ZEITEN 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"! DEUTSCHLANDFUNK AUSLANDSDIENST"
26590 DATA"!!FREQUENZ 11,28800 GHz"
26600 DATA"!VIDEOSENDENORM PAL"
26610 DATA"!POLARISATION VERTIKAL"
26620 DATA"!!URSPRUNGSLAND DEUTSCHLAND"
26630 DATA"!!AUDIO-FREQUENZEN:"
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 DATA"!ENTHAELT:"
26720 DATA"!!- PROGRAMMHINWEISE (SAT.1)"
26730 DATA"!- NACHRICHTEN AUS:"
26740 DATA"! SPORT,BOERSE,WIRTSCHAFT,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 NORMALVERBRAUCHER WEGEN"
26870 DATA"D2-MAC UND VERSCHLUESSELUNG (PAY-TV) NICHT"
26880 DATA"ZU EMPFANGEN."
26890 DATA".P0",".RASTRA-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"!POLARISATION VERTIKAL"
26970 DATA"!!URSPRUNGSLAND GROSSBRITANNIEN"
26980 DATA"!!AUDIO-FREQUENZEN:"
26990 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-SYSTEM 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,ADRESSEN,REISEMAGAZIN"
27100 DATA"! (BEZIEHT SICH NUR AUF GB)"
27110 DATA".P0",".RASTRA-TRANSPONDER NUMMER 9"
27120 DATA"!!TV-PROGRAMM:"
27130 DATA"!!.CT E L E C L U B"
27140 DATA"!RADIO-PROGRAMM:"
27150 DATA"!! OPUS-RADIO (SCHWEIZ)"
27160 DATA"!!FREQUENZ 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"! (STEREO)"
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",".RASTRA-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-BEGLEITTON 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"
27430 DATA"!- PROGRAMMHINWEISE (3SAT)"
27440 DATA"!- MAGAZIN DEUTSCHL.,OESTERREICH,SCHWEIZ"
27450 DATA".P0",".RASTRA-TRANSPONDER 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 DATA"!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-UNTERTITEL ZU DEN SPIELFILMEM IN:"
27640 DATA"! FINNISCH,SCHWEDISCH,NORWEGISCH"
27650 DATA"! DAENNISCH UND HOLLAENDISCH"
27660 DATA"!- AUSFUEHRLICHE PROGRAMMBESCHREIBUNGEN"
27670 DATA"! IN DEN OBEN GENANNTEN SPRACHEN+ENGL."
27680 DATA"!- STATUSSEITE"
27690 DATA"!- TECHNISCHE HINWEISE"
27700 DATA"!!FILM NET IST EIN PAY-TV PROGRAMM IN ENGLISCHER"
27710 DATA"SPRACHE. DER EMPFANG IST NUR MIT ENTSPRECHENDEM"
27720 DATA"DECODER MOEGLICH. DER VT-EMPFANG IST"
27730 DATA"ZWISCHEN DEN SPIELFILMEN TEILWEISE MOEGLICH."
27740 DATA".P0",".RASTRA-TRANSPONDER NUMMER 12"
27750 DATA"!!TV-PROGRAMM:"
27760 DATA"!!.CS K Y N E W S"
27770 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"
27850 DATA"!(z.Z.NOCH FREI) 7,38/7,56 MHz"
27860 DATA"!!VIDEOTEXT (TELETEXT): SKYTEXT"
27870 DATA"!ENTHAELT u.a.:"
27880 DATA"!- PROGRAMMHOEHEPUNKTE SKY NEWS"
27890 DATA"!- AUSFUEHRLICHE INFORMATIONEN ZUM"
27900 DATA"! ASTRA-SYSTEM (FUER HAENDLER)"
27910 DATA"!!AUSSER MIT DEN OBEN GENANNTEN PUNKTEN STIMMT"
27920 DATA"DER SKY NEWS VIDEOTEXT MIT DEM VON SKY ONE"
27930 DATA"UEBEREIN."
27940 DATA".P0",".RASTRA-TRANSPONDER NUMMER 13"
27950 DATA"!!TV-PROGRAMM:"
27960 DATA"!!.CRTL4-VERONIQUE"
27970 DATA"!RADIO-PROGRAMM:"
27980 DATA"!! RTL-INTERNATIONAL"
27990 DATA"!!FREQUENZ 11,39125 GHz"
28000 DATA"!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-BEGLEITTON STEREO 7,02/7,20 MHz"
28060 DATA"!RTL-INTERNATIONAL 7,38/7,56 MHz"
28070 DATA"! (STEREO)"
28080 DATA"!!VIDEOTEXT (TELETEXT): RTL4-TEXT"
28090 DATA"!ENTHAELT (IN HOLLAENDISCH) u.a.:"
28100 DATA"!- PROGRAMMVORSCHAU (RTL4)"
28110 DATA"!- AUSFUEHRLICHE PROGRAMMBESCHREIBUNG"
28120 DATA"!- SERVICE,TIPS,UNTERHALTUNG"
28130 DATA"!!DER RTL4 VIDEOTEXT 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"
28180 DATA"UNTERTITELN)."
28190 DATA".P0",".RASTRA-TRANSPONDER NUMMER 14"
28200 DATA"!!TV-PROGRAMM:"
28210 DATA"!!.CP R O 7"
28220 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"! (STEREO)"
28360 DATA"!!VIDEOTEXT (TELETEXT): NICHT VORHANDEN"
28370 DATA"!!PRO7 SENDET 24 STUNDEN AM TAG."
28380 DATA".P0",".RASTRA-TRANSPONDER NUMMER 15"
28390 DATA"!!TV-PROGRAMM:"
28400 DATA"!!.CMUSIC-TELEVISION EUROPE (MTV-EUROPE)"
28410 DATA"!RADIO-PROGRAMME: KEINE"
28420 DATA"!!FREQUENZ 11,42075 GHz"
28430 DATA"!VIDEOSENDENORM PAL"
28440 DATA"!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 VORHANDEN"
28520 DATA"!!MTV SENDET 24 STUNDEN AM TAG."
28530 DATA".P0",".RASTRA-TRANSPONDER NUMMER 16"
28540 DATA"!!TV-PROGRAMM:"
28550 DATA"!!.CS K Y M O V I E S"
28560 DATA"!RADIO-PROGRAMME: KEINE"
28570 DATA"!!FREQUENZ 11,43550 GHz"
28580 DATA"!VIDEOSENDENORM PAL"
28590 DATA"!POLARISATION VERTIKAL"
28600 DATA"!!URSPRUNGSLAND 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 DATA"!(Z.Z. NOCH NICHT BELEGT) 7,38+7,56 MHz"
28670 DATA"!!VIDEOTEXT (TELETEXT): SKYTEXT"
28680 DATA"!ENTHAELT U.A.:"
28690 DATA"!- PROGRAMMVORSCHAU SKY MOVIES"
28700 DATA"!- AUSFUEHRLICHE PROGRAMMBESCHREIBUNG"
28710 DATA"!!AUSSER MIT DEN OBEN GENNANTEN PUNKTEN STIMMT"
28720 DATA"DER SKY MOVIES VIDEOTEXT MIT DEM VON SKY ONE"
28730 DATA"UBEREIN."
28740 DATA"!!SKY MOVIES IST EIN PAY-TV PROGRAMM."
28750 DATA"DER VIDEOTEXT KANN AUCH BEI VERSCHLUESSELTEM"
28760 DATA"BILDINHALT EMPFANGEN WERDEN"
28770 DATA"(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-INFO 2 *
32030 REM * *
32040 REM * Informationen zur *
32050 REM * Transponderbelegung *
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-spezial 910417