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,57CHR$