1000 A=500:GOTO20:REM ## FIGUREN ## 1010 GOTO1470 1020 REM UNMOEGLICHE FIGUREN 1030 REM ALS QUELLE FUER DIESES 1040 REM PROGRAMM DIENTE DAS 1050 REM HEFT 2/89 AUS DER REIHE 1060 REM >PRACTIC< 1070 REM GRUNDPROGRAMM VON 1080 REM WOLFGANG BAESSLER AUF KC85/3&D004 1090 REM LUXEMBURGSTRASSE 10 1100 REM 4500 DESSAU 1110 REM [[[ FIGUR ZEICHNEN [[[ 1120 GOSUB600 1130 READX1:IFX1=0 THEN1230 1140 READY1,X2,Y2 1150 CN=0 1160 HO=X1/320 1170 VE=1-Y1/255 1180 GOSUB620 1190 HO=X2/320 1200 VE=1-Y2/255 1210 GOSUB630 1220 GOTO1130 1230 GOSUB250:GOSUB210 1240 RETURN 1250 REM [[[ INFORMATION [[[ 1260 GOSUB100 1270 PRINT:PRINT:PRINT"[196]IESES [208]ROGRAMM ZEIGT EINIGE" 1280 PRINT"VON [207]. [210]EUTERSVAERD, EINEM" 1290 PRINT"SCHWEDISCHEN [203]UNSTPROFESSOR," 1300 PRINT"ENTWORFENE NICHTEUKLIDISCHE" 1310 PRINT"[203]OERPERDARSTELLUNGEN." 1320 PRINT:PRINT"[196]IE TEUFLISCHE [213]NMOEGLICHKEIT" 1330 PRINT"BESTEHT DARIN, DASS ZWAR DIE" 1340 PRINT"[196]ETAILS DER [198]ORMEN EXAKT" 1350 PRINT"STIMMEN, DAS GANZE [199]EBILDE" 1360 PRINT"ABER NICHT ERFASSBAR IST. " 1370 PRINT:PRINT"[194]EI LAENGEREM [194]ETRACHTEN DER" 1380 PRINT"[196]ETAILS UND DER [199]ESAMTDAR-" 1390 PRINT"STELLUNG WIRD MAN IMMER" 1400 PRINT"UNSICHERER, WEIL ES NICHT" 1410 PRINT"GELINGT, BEIDES ZU [203]OERPERN" 1420 PRINT"DER UNS GEWOHNTEN [215]AHR-" 1430 PRINT"NEHMUNG ZU VEREINEN." 1440 PRINT:PRINT" (AUS PRACTIC 2/89)" 1450 GOSUB210:GOSUB100:RETURN 1460 REM [[[ HAUPTPROGRAMM [[[ 1470 GOSUB100 1480 PRINT" [213]NMOEGLICHE [198]IGUREN" 1490 PRINT:PRINT" [198]IGUR 1" 1500 PRINT:PRINT" [198]IGUR 2" 1510 PRINT:PRINT" [198]IGUR 3" 1520 PRINT:PRINT" [198]IGUR 4" 1530 PRINT:PRINT" [198]IGUR 5" 1540 PRINT:PRINT" [201]NFO 6" 1550 PRINT:PRINT" [197]NDE 7" 1560 PRINT:PRINT:PRINT" [194]ITTE WAEHLEN [211]IE: " 1570 GOSUB200:IFIN=0 THEN1570 1580 IF(IN<49)OR(IN>55) THEN GOSUB250:GOTO1570 1590 IN=IN-48 1600 RESTORE 1610 IFIN=2 THEN GOSUB1690 1620 IFIN=3 THEN GOSUB1690:GOSUB1690 1630 IFIN=4 THEN GOSUB1690:GOSUB1690:GOSUB1690 1640 IFIN=5 THEN GOSUB1690:GOSUB1690:GOSUB1690:GOSUB1690 1650 IFIN=6 THEN GOSUB1260 1660 IFIN=7 THEN950:REM ENDE 1670 IF(IN>0)AND(IN<6) THEN GOSUB1120 1680 GOTO1470 1690 READX1 1700 IFX1=0 THENRETURN 1710 READY1,X2,Y2:GOTO1690 25000 REM [[[ FIGUR 1 [[[ 25010 DATA23,82,23,193,23,193,108,236 25020 DATA108,236,133,225,133,225,133,159 25030 DATA133,159,230,209,230,209,230,74 25040 DATA230,74,208,62,208,62,162,82 25050 DATA162,82,162,21,162,21,23,82 25060 DATA48,95,48,182,48,182,133,225 25070 DATA48,95,71,107,71,107,71,171 25080 DATA71,171,108,189,108,189,108,117 25090 DATA108,117,208,170,208,170,208,62 25100 DATA188,160,188,97,188,97,137,119 25110 DATA137,119,137,57,137,57,48,95 25120 DATA162,21,185,34,185,34,185,72 25130 DATA137,79,71,107,48,182,23,193 25140 DATA88,177,88,125,88,125,108,117 25150 DATA133,185,205,220,205,220,230,209 25160 DATA188,120,160,131,160,131,137,119,0 25170 REM [[[ FIGUR 2 [[[ 25180 DATA20,160,20,168,20,168,205,75 25190 DATA205,75,205,67,205,67,20,160 25200 DATA20,168,63,187,63,187,69,183 25210 DATA108,164,143,146,182,127,248,94 25220 DATA248,94,248,86,248,86,205,67 25230 DATA205,75,248,94 25240 DATA69,136,69,41,69,41,100,26 25250 DATA100,26,100,120 25260 DATA100,143,100,189,100,189,69,204 25270 DATA69,204,69,157 25280 DATA69,204,152,240,152,240,182,225 25290 DATA182,225,100,189 25300 DATA182,225,182,108,182,79,182,62 25310 DATA182,62,100,26 25320 DATA108,145,108,184,108,184,174,213 25330 DATA174,213,174,104,174,81,174,67 25340 DATA174,67,108,38,108,38,108,114 25350 DATA69,157,100,141,100,141,108,145 25360 DATA143,200,143,119,143,97,143,83 25370 DATA143,83,108,67,143,119,174,104 25380 DATA174,104,182,108,143,83,174,68,0 25390 REM [[[ FIGUR 3 [[[ 25400 DATA1,125,127,213,127,213,253,130 25410 DATA253,130,128,41,128,41,1,125 25420 DATA253,130,253,122,253,122,128,33 25430 DATA128,33,1,117,1,117,1,125 25440 DATA128,33,128,41,161,145,188,165 25450 DATA188,165,241,130,241,130,213,110 25460 DATA213,110,161,145,167,141,188,157 25470 DATA188,157,236,125,188,165,188,157 25480 DATA75,85,146,135,146,135,198,100 25490 DATA198,100,168,78,157,70,129,50 25500 DATA129,50,75,85,81,81,146,127 25510 DATA146,127,192,96,146,135,146,127 25520 DATA55,155,127,205,127,205,173,175 25530 DATA61,151,127,197,127,197,168,170 25540 DATA173,175,145,155,125,141,121,138 25550 DATA101,124,55,155,101,124,60,95 25560 DATA60,95,14,126,14,126,43,146 25570 DATA43,146,88,115,20,122,43,138 25580 DATA43,138,83,110,43,146,43,138 25590 DATA127,197,127,205 25600 DATA105,96,109,93,109,93,121,101 25610 DATA121,101,122,101,109,93,109,100 25620 DATA101,119,101,172,101,172,133,150 25630 DATA133,150,133,131,101,119,109,114 25640 DATA109,114,109,156,109,156,125,145 25650 DATA125,145,125,135,125,135,133,130 25660 DATA101,172,112,179,112,179,145,157 25670 DATA145,157,145,139,145,139,133,130 25680 DATA109,114,121,122,121,122,121,149 25690 DATA145,157,133,149 25700 DATA127,114,127,81,127,81,150,66 25710 DATA133,117,133,86,133,86,157,70 25720 DATA145,125,145,94,145,94,168,78 25730 DATA145,94,133,85,0 25740 REM [[[ FIGUR 4 [[[ 25750 DATA190,80,18,168,18,168,84,219 25760 DATA84,219,135,193,187,166,238,140 25770 DATA238,140,238,52,238,52,218,37 25780 DATA218,37,166,64,143,77,74,112 25790 DATA47,126,18,141,18,141,18,168 25800 DATA88,159,63,171,63,171,89,191 25810 DATA89,191,114,178,182,144,218,125 25820 DATA218,125,238,140,182,117,190,113 25830 DATA190,113,190,80,190,106,172,116 25840 DATA143,131,113,146,218,125,218,37 25850 DATA88,159,162,216,162,216,187,203 25860 DATA187,203,187,148,113,146,187,203 25870 DATA136,135,167,159,167,159,167,112 25880 DATA172,116,167,112,167,112,143,125 25890 DATA143,125,143,140,187,148,182,143 25900 DATA182,143,182,116,187,115,187,107 25910 DATA50,128,39,120,39,120,39,91 25920 DATA39,91,64,78,64,78,95,102 25930 DATA39,120,64,107,64,107,74,116 25940 DATA64,107,64,78 25950 DATA50,128,74,116,74,116,74,110 25960 DATA143,77,143,42,143,42,166,31 25970 DATA166,31,166,64,166,31,185,45 25980 DATA185,45,185,54 25990 DATA84,161,89,165,89,165,94,162 26000 DATA89,191,89,165,140,138,143,136,0 26010 REM [[[ FIGUR 5 [[[ 26020 DATA77,29,19,63,19,63,80,94 26030 DATA80,94,26,126,26,126,77,151 26040 DATA77,151,55,165,55,165,179,227 26050 DATA179,227,228,197,228,197,214,191 26060 DATA77,29,77,24,77,24,19,58,19,58,19,63 26070 DATA75,92,26,121,26,121,26,126 26080 DATA72,149,55,160,55,160,55,165 26090 DATA214,191,190,206,190,206,169,195 26100 DATA169,195,184,185,184,185,162,174 26110 DATA70,55,228,135,228,135,228,130 26120 DATA228,130,73,52 26130 DATA70,55,90,43,90,43,99,46,99,46,107,42 26140 DATA107,42,77,29,77,24,111,39 26150 DATA162,174,184,160,194,154,228,134 26160 DATA167,172,184,180,184,180,184,185 26170 DATA174,193,190,201,190,201,190,206 26180 DATA190,201,205,192 26190 DATA161,154,117,132,117,132,151,112 26200 DATA151,112,193,134,193,134,184,140 26210 DATA172,147,161,154,122,130,161,149 26220 DATA161,154,161,149,161,149,171,149 26230 DATA107,42,107,46,107,46,112,49 26240 DATA112,49,112,53,112,53,117,56 26250 DATA117,56,117,60,117,60,122,63 26260 DATA122,63,122,67,122,67,127,70 26270 DATA127,70,127,74,127,74,132,77 26280 DATA132,77,132,81,132,81,137,84 26290 DATA99,46,99,50,99,50,104,53 26300 DATA104,53,104,57,104,57,109,60 26310 DATA109,60,109,64,109,64,114,67 26320 DATA114,67,114,71,114,71,119,74 26330 DATA119,74,119,75,99,50,107,46 26340 DATA112,49,104,53,104,57,112,53 26350 DATA117,56,109,60,109,64,117,60 26360 DATA122,63,114,67,114,71,122,67 26370 DATA127,70,119,74,123,77,127,74 26380 DATA132,77,127,79 26390 DATA111,39,111,43,111,43,116,46 26400 DATA116,46,116,50,116,50,121,53 26410 DATA121,53,121,57,121,57,126,60 26420 DATA126,60,126,64,126,64,131,67 26430 DATA131,67,131,71,131,71,136,74 26440 DATA136,74,136,78,136,78,141,81 26450 DATA141,81,141,85 26460 DATA164,119,164,121,164,121,169,124 26470 DATA169,124,169,128,169,128,174,131 26480 DATA174,131,174,135,174,135,179,138 26490 DATA179,138,179,142,179,142,184,145 26500 DATA184,145,184,149,184,149,189,152 26510 DATA189,152,189,156,189,156,194,159 26520 DATA194,159,194,163,194,163,199,166 26530 DATA199,166,199,170,199,170,204,173 26540 DATA204,173,204,177,204,177,209,180 26550 DATA209,180,209,184,209,184,214,187 26560 DATA214,187,214,191 26570 DATA151,114,151,118,151,118,156,121 26580 DATA156,121,156,125,156,125,161,128 26590 DATA161,128,161,132,161,132,166,135 26600 DATA166,135,166,139,166,139,171,142 26610 DATA171,142,171,146,171,146,176,149 26620 DATA176,149,176,153,176,153,181,156 26630 DATA181,156,181,160,181,160,186,163 26640 DATA186,163,186,167,186,167,191,170 26650 DATA191,170,191,174,191,174,196,177 26660 DATA196,177,196,181,196,181,201,184 26670 DATA201,184,201,188,201,188,206,191 26680 DATA206,191,206,195 26690 DATA151,118,157,114,162,118,156,121 26700 DATA156,125,164,121,169,124,161,128 26710 DATA161,132,169,128,174,131,166,135 26720 DATA166,139,174,135,179,138,171,142 26730 DATA171,146,179,142,184,145,176,149 26740 DATA176,153,184,149,189,152,181,156 26750 DATA181,160,189,156 26760 DATA194,159,186,163,186,167,194,163 26770 DATA199,166,191,170,191,174,199,170 26780 DATA204,173,196,177,196,181,204,177 26790 DATA209,180,201,184,201,188,209,184 26800 DATA214,187,206,191 26810 DATA173,124,173,125,173,125,178,128 26820 DATA178,128,178,132 26830 DATA178,132,183,135,183,135,183,139 26840 DATA183,139,188,142,188,142,188,146 26850 DATA188,146,193,149,193,149,193,153 26860 DATA193,153,198,156,198,156,198,160 26870 DATA198,160,203,163,203,163,203,167 26880 DATA203,167,208,170,208,170,208,174 26890 DATA208,174,213,177,213,177,213,181 26900 DATA213,181,218,184,218,184,218,187 26910 DATA218,187,228,192,228,192,228,197 26920 DATA188,132,183,135,0 30000 REM 30010 REM DRUCKERAUFRUFE 30020 REM KOENNEN NOCH EINGEFUEGT WERDEN 30030 REM Z.B BS-AUSDRUCK IN # 1230 30040 REM 30050 REM DATENSATZ UEBERNOMMEN VON: 30060 REM WOLFGANG BAESSLER DESSAU 30070 REM PROGRAMM FIGUREN AUF KC 85/3 30080 REM 32000 REM UNMOEGLICHE FIGUREN 32010 REM IN BASICODE 3 32020 REM VON THOMAS SCHAEFER 32030 REM H.-HEINE-STR.42D 32040 REM PERLEBERG 32050 REM O-2910 32060 REM AUF M R B Z 1 0 1 3 32070 REM FERTIGSTELLUNG AM 32080 REM 14.04.91 32090 REM 32100 REM ERSTAUSSTRAHLUNG: DEUTSCHLANDSENDER KULTUR 32110 REM-SPEZIAL 910501