1000 A=256:GOTO 20:REM GLOBUS
1010 GOTO 1280
1099 REM PUNKT LESEN AUS DATAS
1100 READ L,B:IF L<-200 THEN R=0:RETURN
1110 IF (L=0)AND(B=0)THEN R=0:GOTO 1100
1120 ON A GOSUB1130,1150,1180,1180:GOTO 1100
1129 REM ZYLINDERPROJEKTION
1130 IF (L<-142)OR(L>157)THEN R=0:RETURN
1140 X=.476+DV*L:Y=.5-B/222:GOTO 1260
1149 REM ANGENAEHRT FLAECHENTREUE ZYLPRJ
1150 IF L1*L<-3E4 THEN R=0
1160 L1=L:X=.5+FNC(B)*L:Y=.45-B*DV
1170 IF R<>0 THEN 1270
1172 GOTO 1260
1179 REM AZIMUTALPROJEKTION
1180 L=L*PH:B=B*PH:DW=L-L0
1190 IF DW>PJ THEN DW=DW-2*PJ
1200 IF DW<-PJ THEN DW=DW+2*PJ
1210 TA=TAN(B)*TB:IF (ABS(B0)<1.56)AND(ABS(TA)<1)THEN 1220
1212 FI=PJ/2*SGN(B0*B):GOTO 1230
1220 FI=ATN(TA/SQR(1-TA*TA))
1230 IF ABS(DW)>PJ/2+FI THEN R=0:RETURN
1240 Y=.5-.5*(SIN(B)*CB-COS(B)*SB*COS(DW))
1250 X=.4+.4*COS(B)*SIN(DW)
1260 IF R=0 THEN HO=X:VE=Y:GOSUB 620:R=1:D=X:E=Y:RETURN
1270 HO=X:VE=Y:GOSUB 630:D=X:E=Y:R=1:RETURN
1279 REM ====HAUPTPROGRAMM=======
1280 GOSUB 100:SA=HO:ZA=VE:PH=.017453:PJ=3.14159265
1290 DV=4.44E-3:DU=2.78E-3:DEF FN C(X)=SQR(ABS(COS(X*PH)))*DU
1298 PRINT "======================================="
1300 PRINT "    ***  *     ***  ***  *  *  ***"
1310 PRINT "   *   * *    *   * *  * *  * *   "
1320 PRINT "   *     *    *   * ***  *  *  ** "
1330 PRINT "   *  ** *    *   * *  * *  *    *"
1340 PRINT "   *   * *    *   * *  * *  *    *"
1350 PRINT "    ***  ****  ***  ***   **  *** "
1352 PRINT "======================================="
1354 PRINT :SR$="(C) BIDAT'89":GOSUB 150:PRINT 
1360 PRINT :PRINT "DIESES PROGRAMM ZEIGT IHNEN DIE"
1370 PRINT "WELTKARTE IN DEN FOLGENDEN VARIANTEN:"
1380 PRINT :PRINT "<1> = ZEITZONEN(ZYLINDERPROJEKTION)"
1390 PRINT "<2> = WELTKARTE(UNECHTE FLAECHENTREUE"
1400 PRINT "      ZYLINDERPROJEKTION)"
1410 PRINT "<3> = TAGSEITE DER ERDE(AZIMUTALPROJ.)"
1420 PRINT "<4> = ANSICHT VOM WELTRAUM"
1422 PRINT "      (AZIMUTALPROJEKTION)"
1430 PRINT "<0> = ENDE"
1440 SR$="IHRE AUSWAHL (0-4)":GOSUB 150:INPUT "";A
1450 IF A=0 THEN 950
1470 ON A GOTO 1520,1620,1700,1900
1480 SR$="<ENTER>":VE=.95:HO=.8:GOSUB 650
1490 GOSUB 210
1500 GOSUB 100
1510 GOTO 1280
1520 GOSUB 600:SR$="ZEITZONEN DER ERDE":HO=0:VE=0:GOSUB 650
1530 FOR I=0 TO 19:SR=I-9:GOSUB 300:HO=I*.05:VE=.05
1532 GOSUB 650:NEXT I
1540 SR$="DIESES BILD STELLT GEOGRAFISCHE"
1542 HO=0:VE=.85:GOSUB 650
1550 SR$="ZEITZONEN DAR.DIE POLITISCHEN"
1552 HO=0:VE=.9:GOSUB 650
1560 SR$="WEICHEN GRENZBEDINGT DAVON AB."
1562 HO=0:VE=.95:GOSUB 650
1570 VE=.08:HO=.476:GOSUB 620:VE=.85:HO=.476:GOSUB 630
1580 VE=.5:HO=0:GOSUB 620:VE=.5:HO=.999:GOSUB 630:DV=3.333E-3
1590 RESTORE 25000:GOSUB 1100:FOR I=1 TO 19:HO=I*.05
1600 FOR J=.08 TO .84 STEP .04:VE=J:GOSUB 620:NEXT J:NEXT I
1610 GOTO 1480
1620 GOSUB 600:SR$="WELTKARTE IN BASICODE"
1630 HO=0:VE=.95:GOSUB 650
1632 HO=.5:VE=.05:GOSUB 620:FOR I=0 TO 6.3 STEP .1
1640 HO=.5+.49*SIN(I):VE=.45-.40*COS(I):GOSUB 630:NEXT I
1650 FOR I=-150 TO 150 STEP 30:FOR J=-85 TO 85 STEP 5
1660 HO=.5+FNC(J)*I:VE=.45-J*DV:GOSUB 620:NEXT J:NEXT I
1670 FOR J=-60 TO 60 STEP 30:FOR I=-180 TO 180 STEP 10
1680 HO=.5+FNC(J)*I:VE=.45-J*DV:GOSUB 620:NEXT I:NEXT J
1690 RESTORE 25000:GOSUB 1100:GOTO 1480
1700 PRINT :PRINT :SR$="AUSWAHL DER ZEITBASIS":GOSUB 150
1702 PRINT :PRINT :PRINT "<0> = GMT (UT)"
1710 PRINT "<1> = MEZ":PRINT "<2>   MESZ"
1712 SR$="IHREAUSWAHL:":PRINT :GOSUB 150:INPUT "";ZA
1720 PRINT :INPUT "EINGABE TAG (1-31):";TG
1730 PRINT :INPUT "      MONAT (1-12):";MO
1740 PRINT :INPUT "    UHRZEIT(HH.MM):";ZT
1750 TR=TG:ZR=ZT:ZT=ZT-ZA:TG=30.4*(MO-1)+TG
1760 SD=INT(ZT):SD=SD+(ZT-SD)/.6
1770 L0=PJ*(1-SD/12):M$="TAGSEITE"
1780 B0=23.427*PH*SIN((TG-80)/182.75*PJ)
1790 P1$="DATUM":SR=TR+MO/100:GOSUB 300:P2$=SR$
1792 P3$="UHRZEIT":SR=ZR:GOSUB 300:P4$=SR$
1800 PRINT :INPUT "MIT GRADNETZ (J/N)";G$
1810 L0=PJ*(1-SD/12)
1820 GOSUB 600:HO=.4:VE=0:GOSUB 620:FOR I=0 TO 6.3 STEP .1
1822 HO=.4+.4*SIN(I):VE=.5-.5*COS(I):GOSUB 630:NEXT I
1830 SB=SIN(B0):CB=COS(B0):TB=TAN(B0)
1832 SR$=">GLOBUS<":HO=.8:VE=0:GOSUB 650
1834 SR$=M$:HO=.8:VE=.05:GOSUB 650
1840 IF G$="N" THEN 1890
1850 FOR I=-150 TO 180 STEP 30:FOR J=-85 TO 85 STEP 5
1860 L=I:B=J:R=0:GOSUB 1180:NEXT J:NEXT I
1870 FOR I=-60 TO 60 STEP 30:FOR J=-175 TO 180 STEP 5
1880 L=J:B=I:R=0:GOSUB 1180:NEXT J:NEXT I
1890 SR$=P1$:HO=.8:VE=.1:GOSUB 650
1892 SR$=P2$:HO=.8:VE=.15:GOSUB 650
1894 SR$=P3$:HO=.8:VE=.2:GOSUB 650
1896 SR$=P4$:HO=.8:VE=.25:GOSUB 650
1898 RESTORE 25000:GOSUB 1100:GOTO 1480
1900 PRINT :PRINT "EINGABE DES BEOBACHTERSTANDORTES"
1910 PRINT "IN SEHR GROSSER HOEHE UEBER DEN"
1920 PRINT "GEOGRAFISCHEN KOORDINATEN:":PRINT 
1930 INPUT "EINGABE GEOGR. LAENGE :";L0
1940 INPUT "        GEOGR. BREITE :";B0
1950 M$="ORBITER":P1$="LAENGE":SR=L0:GOSUB 300:P2$=SR$
1960 P3$="BREITE":SR=B0:GOSUB 300:P4$=SR$:B0=B0-1E-4
1970 PRINT :INPUT "MIT GRADNETZ (J/N) ";SR$:GOSUB 330:G$=SR$
1980 L0=L0*PH:B0=B0*PH:GOTO 1820
24999 REM KOORDINATENLISTE
25000 DATA 0,0,-6,50,-2,51,2,52
25002 DATA 2,54,-2,56,-3,58
25004 DATA -6,56,-4,54,-6,52
25006 DATA -3,52,-6,50,0,0,-10,52
25008 DATA -6,52,-6,55,-10,54
25010 DATA -10,52,0,0,-1,60,0,0,-6,63
25012 DATA 0,0,16,76,11,80,20,81
25014 DATA 27,80,16,76,0,0,60,82
25016 DATA 0,0,-18,64,-14,66,-15,67
25018 DATA -21,66,-24,67,-24,65
25020 DATA -18,64,0,0,-8,37,-9,40
25022 DATA -9,43,-5,43,-2,43
25024 DATA -2,46,-5,48,-2,48
25026 DATA -2,50,2,50,2,51
25028 DATA 6,54,8,54,8,57
25030 DATA 11,57,10,55,11,54
25032 DATA 13,55,15,54,18,55 
25034 DATA 22,55,23,57,24,56
25036 DATA 24,59,27,59,30,60
25038 DATA 27,61,23,60,22,63
25040 DATA 26,65,24,66,19,63
25042 DATA 20,60,17,58,16,56
25044 DATA 13,56,11,60,7,57
25046 DATA 7,62,10,64,13,67 
25048 DATA 18,70,22,70,26,72
25050 DATA 32,70,35,69,42,68
25052 DATA 38,67,33,67,35,65
25054 DATA 37,67,35,66,40,65
25056 DATA 42,67,44,69,46,68
25058 DATA 47,67,54,69,60,70
25060 DATA 53,73,60,76,68,77
25062 DATA 60,75,55,72,60,70
25064 DATA 68,68,69,73,73,73
25066 DATA 70,67,75,71,80,74
25068 DATA 86,73,90,76,95,76
25070 DATA 100,76,105,77,110,76
25072 DATA 113,74,118,73,123,73
25074 DATA 128,73,131,71,135,72
25076 DATA 140,72,145,73,150,73
25078 DATA 155,71,160,71,165,69
25080 DATA 170,70,175,70,180,68
25082 DATA -175,68,-171,67,-173,64
25084 DATA -176,66,180,67,178,65
25086 DATA 180,63,175,62,170,60
25088 DATA 165,60,162,58,162,55
25090 DATA 160,53,157,51,155,55
25092 DATA 157,57,160,59,165,63
25094 DATA 160,61,157,62,155,59
25096 DATA 150,59,145,59,140,58
25098 DATA 135,55,140,54,141,51
25100 DATA 140,48,136,44,133,43
25102 DATA 130,43,128,39,129,35
25104 DATA 126,34,126,38,124,40
25106 DATA 121,38,122,41,117,39
25108 DATA 119,37,123,37,119,35
25110 DATA 122,32,120,30,122,30
25112 DATA 120,27,117,23,114,22
25114 DATA 110,21,108,22,106,20
25116 DATA 108,16,109,13,105,9
25118 DATA 103,11,100,13,100,9
25120 DATA 103,5,104,1,101,5,98,10
25122 DATA 98,14,97,17,94,16
25124 DATA 93,20,92,23,87,22
25126 DATA 85,19,81,16,80,13
25128 DATA 80,10,77,8,75,13
25130 DATA 73,17,73,22,71,21
25132 DATA 68,23,66,25,62,25
25134 DATA 57,26,54,26,51,29
25136 DATA 50,30,48,29,51,26
25138 DATA 52,24,56,26,60,23
25140 DATA 57,19,52,16,47,14
25142 DATA 43,13,43,17,39,22
25144 DATA 37,25,35,28,35,25
25146 DATA 37,22,38,18,41,15
25148 DATA 44,12,47,12,51,13
25150 DATA 49,6,46,3,43,0
25152 DATA 40,-4,39,-7,41,-11
25154 DATA 41,-16,37,-17,35,-20
25156 DATA 35,-24,33,-26,32,-30
25158 DATA 28,-33,25,-34,20,-35
25160 DATA 18,-33,16,-28,14,-23
25162 DATA 13,-20,12,-17,13,-14
25164 DATA 14,-11,14,-8,12,-4
25166 DATA 9,0,10,5,6,5,4,6
25168 DATA -1,5,-7,4,-11,6 
25170 DATA -14,10,-16,13,-16,17
25172 DATA -16,21,-14,24,-10,30
25174 DATA -6,33,-5,36,-2,35
25176 DATA 1,37,5,37,10,37
25178 DATA 10,33,15,32,20,31
25180 DATA 20,33,22,33,26,32
25182 DATA 31,32,34,32,36,37
25184 DATA 31,37,27,37,26,41
25186 DATA 23,40,25,36,23,35
25188 DATA 20,40,19,42,13,45
25190 DATA 12,44,18,40,16,38
25192 DATA 16,40,12,42,8,44
25194 DATA 5,43,3,43,0,40
25196 DATA -3,36,-6,36,-8,37
25198 DATA 0,0,100,78,105,78,95,82
25200 DATA 91,80,100,78,0,0,137,75
25202 DATA 150,75,138,76,137,75
25204 DATA 0,0,142,46,142,50,142,54
25206 DATA 144,49,142,46,140,41
25208 DATA 140,38,136,36,133,35
25210 DATA 130,34,131,31,132,33
25212 DATA 136,34,140,35,141,38
25214 DATA 141,42,145,43,142,45
25216 DATA 0,0,121,23,0,0,121,18,124,13
25218 DATA 125,6,0,0,105,-5,100,0
25220 DATA 95,5,100,3,103,0
25222 DATA 105,-5,110,-7,115,-8
25224 DATA 120,-9,125,-8,0,0,115,8
25226 DATA 110,2,110,-3,115,-4
25228 DATA 118,0,118,5,115,8
25230 DATA 0,0,125,2,120,0,120,-5
25232 DATA 0,0,123,-5,120,-2,125,-2
25234 DATA 130,-3,135,-6,138,-8
25236 DATA 142,-8,145,-5,150,-10
25238 DATA 145,-3,140,-3,135,-2
25240 DATA 130,-3,0,0,148,-5,155,-8
25242 DATA 160,-10,0,0,165,-22,0,0,175,-18
25244 DATA 0,0,110,19,0,0,80,10,80,6
25246 DATA 82,7,80,10,0,0,49,-12
25248 DATA 44,-16,44,-21,43,-23
25250 DATA 45,-26,47,-25,48,-20
25252 DATA 51,-15,49,-12,0,0,33,35
25254 DATA 0,0,25,35,0,0,14,37,0,0,9,40,0,0,9,42
25256 DATA 0,0,3,39,0,0,38,47,34,45 
25258 DATA 36,45,34,44,33,46
25260 DATA 28,43,30,42,35,43
25262 DATA 40,42,42,43,36,45
25264 DATA 38,47,0,0,50,41,48,37
25266 DATA 53,36,53,42,50,46
25268 DATA 53,47,47,46,50,41
25270 DATA 0,0,58,44,61,44,62,47
25272 DATA 59,46,58,44,0,0,74,46
25274 DATA 79,46,0,0,104,52,110,56
25276 DATA 0,0,143,-11,145,-15,147,-20
25278 DATA 152,-24,153,-28,153,-32
25280 DATA 150,-37,146,-38,141,-37
25282 DATA 138,-35,136,-35,132,-32
25284 DATA 127,-33,123,-34,118,-35
25286 DATA 115,-33,115,-29,114,-25
25288 DATA 114,-22,118,-21,121,-20
25290 DATA 123,-16,126,-14,130,-15
25292 DATA 131,-12,136,-13,135,-15
25294 DATA 140,-17,142,-15,143,-11
25296 DATA 0,0,175,-42,178,-38,173,-35
25298 DATA 175,-42,170,-45,166,-45
25300 DATA 172,-41,175,-42,0,0,147,-43
25302 DATA 0,0,-70,76,-60,76,-55,73
25304 DATA -54,68,-51,63,-44,60
25306 DATA -40,65,-33,67,-23,70
25308 DATA -20,74,-20,78,-15,82
25310 DATA -30,83,-40,83,-50,83
25312 DATA -60,83,-70,83,-80,83
25314 DATA -90,83,-97,80,-90,75
25316 DATA -80,75,-70,76,0,0,-125,75
25318 DATA 0,0,-100,73,0,0,-93,74,0,0,-80,70
25320 DATA -74,67,-78,65,-72,64
25322 DATA -65,63,-62,67,-70,71
25324 DATA -80,73,-90,73,-86,70
25326 DATA -80,70,-84,66,-80,64
25328 DATA -90,64,-95,60,-90,57
25330 DATA -86,56,-82,56,-80,52
25332 DATA -79,56,-76,58,-76,62
25334 DATA -70,62,-68,58,-64,61
25336 DATA -62,56,-57,54,-55,52
25338 DATA -54,48,-59,48,-54,52
25340 DATA -62,50,-66,50,-71,47
25342 DATA -66,49,-65,46,-60,46
25344 DATA -65,45,-70,45,-74,40
25346 DATA -76,36,-82,32,-80,27
25348 DATA -82,25,-84,30,-89,30
25350 DATA -94,29,-97,26,-97,22
25352 DATA -95,18,-91,18,-90,21
25354 DATA -86,21,-88,16,-84,16
25356 DATA -84,10,-80,10,-76,8
25358 DATA -72,12,-67,11,-62,10
25360 DATA -58,7,-53,5,-50,1
25362 DATA -46,-2,-42,-3,-37,-5
25364 DATA -35,-8,-37,-12,-38,-17
25366 DATA -40,-20,-43,-23,-47,-24
25368 DATA -48,-28,-52,-32,-55,-35
25370 DATA -58,-35,-56,-37,-60,-39
25372 DATA -65,-42,-66,-46,-65,-47
25374 DATA -67,-50,-65,-55,-70,-55
25376 DATA -74,-52,-74,-47,-74,-42
25378 DATA -74,-38,-72,-33,-72,-28
25380 DATA -71,-23,-71,-18,-75,-15
25382 DATA -78,-11,-81,-6,-81,-1
25384 DATA -78,2,-77,5,-77,8
25386 DATA -82,7,-86,10,-90,13
25388 DATA -95,16,-97,16,-102,17
25390 DATA -106,20,-106,23,-110,27
25392 DATA -113,32,-113,27,-110,23
25394 DATA -115,27,-116,32,-120,34
25396 DATA -123,37,-124,43,-125,47
25398 DATA -127,51,-131,54,-138,58
25400 DATA -144,60,-150,60,-155,56
25402 DATA -163,55,-157,58,-163,58
25404 DATA -166,62,-161,65,-168,66
25406 DATA -162,67,-165,68,-158,72
25408 DATA -149,71,-140,69,-135,68
25410 DATA -130,70,-122,69,-115,68
25412 DATA -108,68,-100,68,-95,70
25414 DATA -88,72,-80,70
25416 DATA 0,0,-125,74,-125,72,-115,72
25418 DATA -115,69,-110,68,-101,69
25420 DATA -105,74,-115,73,-125,74
25422 DATA 0,0,-74,20,-77,20,-80,22
25424 DATA -85,22,-80,23,-74,20
25426 DATA 0,0,-68,18,-74,18,-74,20
25428 DATA -70,18,-65,18,-62,15
25430 DATA 0,0,-60,-63,-65,-66,-60,-72
25432 DATA -50,-75,-40,-76,-30,-75
25434 DATA -20,-72,-10,-70,0,-70
25436 DATA 10,-70,20,-72,30,-69
25438 DATA 40,-70,50,-65,60,-67
25440 DATA 70,-70,80,-68,90,-66
25442 DATA 100,-65,110,-67,120,-67
25444 DATA 130,-65,140,-65,150,-70
25446 DATA 160,-70,170,-73,165,-78
25448 DATA 177,-78,-171,-78,0,0,-169,-78
25450 DATA -160,-78,-150,-74,-140,-73,-130,-72
25452 DATA -120,-70,-110,-72,-100,-70
25454 DATA -90,-70,-80,-70,-75,-68
25456 DATA -63,-65,-60,-63,-222,-222
32000 REM        (C) BIDAT 87/88/89
32010 REM AUTOR: BERTHOLD BIENER
32020 REM        R.-EYERMANN-RING 4/0106
32030 REM        5063 ERFURT
32040 REM ENTWICKELT AUF COMMODORE+4
32050 REM FUER RADIO DDR COMPUTERMAGAZIN