1000 A=500:GOTO 20:REM ## FIGUREN ## 1010 GOTO 1470 1020 REM UNOEGLICHE 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 GOSUB 600 1130 READ X1:IF X1=0 THEN 1230 1140 READ Y1,X2,Y2 1150 CN=0 1160 HO=X1/320 1170 VE=1-Y1/255 1180 GOSUB 620 1190 HO=X2/320 1200 VE=1-Y2/255 1210 GOSUB 630 1220 GOTO 1130 1230 GOSUB 250:GOSUB 210 1240 RETURN 1250 REM [[[ INFORMATION [[[ 1260 GOSUB 100 1270 PRINT:PRINT:PRINT"Dieses Programm zeigt einige" 1280 PRINT"von O. Reutersvaerd, einem" 1290 PRINT"schwedischen Kunstprofessor," 1300 PRINT"entworfene nichteuklidische" 1310 PRINT"Koerperdarstellungen." 1320 PRINT:PRINT"Die teuflische Unmoeglichkeit" 1330 PRINT"besteht darin, dass zwar die" 1340 PRINT"Details der Formen exakt" 1350 PRINT"stimmen, das ganze Gebilde" 1360 PRINT"aber nicht erfassbar ist. " 1370 PRINT:PRINT"Bei laengerem Betrachten der" 1380 PRINT"Details und der Gesamtdar-" 1390 PRINT"stellung wird man immer" 1400 PRINT"unsicherer, weil es nicht" 1410 PRINT"gelingt, beides zu Koerpern" 1420 PRINT"der uns gewohnten Wahr-" 1430 PRINT"nehmung zu vereinen." 1440 PRINT:PRINT" (aus practic 2/89)" 1450 GOSUB 210:GOSUB 100:RETURN 1460 REM [[[ HAUPTPROGRAMM [[[ 1470 GOSUB 100 1480 PRINT" Unmoegliche Figuren" 1490 PRINT:PRINT" Figur 1" 1500 PRINT:PRINT" Figur 2" 1510 PRINT:PRINT" Figur 3" 1520 PRINT:PRINT" Figur 4" 1530 PRINT:PRINT" Figur 5" 1540 PRINT:PRINT" Info 6" 1550 PRINT:PRINT" Ende 7" 1560 PRINT:PRINT:PRINT" Bitte waehlen Sie: " 1570 GOSUB 200:IF IN=0 THEN 1570 1580 IF (IN<49) OR (IN>55) THEN GOSUB 250:GOTO 1570 1590 IN=IN-48 1600 RESTORE 1610 IF IN=2 THEN GOSUB 1690 1620 IF IN=3 THEN GOSUB 1690:GOSUB 1690 1630 IF IN=4 THEN GOSUB 1690:GOSUB 1690:GOSUB 1690 1640 IF IN=5 THEN GOSUB 1690:GOSUB 1690:GOSUB 1690:GOSUB 1690 1650 IF IN=6 THEN GOSUB 1260 1660 IF IN=7 THEN 950:REM ENDE 1670 IF (IN>0) AND (IN<6) THEN GOSUB 1120 1680 GOTO 1470 1690 READ X1 1700 IF X1=0 THEN RETURN 1710 READ Y1,X2,Y2:GOTO 1690 25000 REM [[[ FIGUR 1 [[[ 25010 DATA 23,82,23,193,23,193,108,236 25020 DATA 108,236,133,225,133,225,133,159 25030 DATA 133,159,230,209,230,209,230,74 25040 DATA 230,74,208,62,208,62,162,82 25050 DATA 162,82,162,21,162,21,23,82 25060 DATA 48,95,48,182,48,182,133,225 25070 DATA 48,95,71,107,71,107,71,171 25080 DATA 71,171,108,189,108,189,108,117 25090 DATA 108,117,208,170,208,170,208,62 25100 DATA 188,160,188,97,188,97,137,119 25110 DATA 137,119,137,57,137,57,48,95 25120 DATA 162,21,185,34,185,34,185,72 25130 DATA 137,79,71,107,48,182,23,193 25140 DATA 88,177,88,125,88,125,108,117 25150 DATA 133,185,205,220,205,220,230,209 25160 DATA 188,120,160,131,160,131,137,119,0 25170 REM [[[ FIGUR 2 [[[ 25180 DATA 20,160,20,168,20,168,205,75 25190 DATA 205,75,205,67,205,67,20,160 25200 DATA 20,168,63,187,63,187,69,183 25210 DATA 108,164,143,146,182,127,248,94 25220 DATA 248,94,248,86,248,86,205,67 25230 DATA 205,75,248,94 25240 DATA 69,136,69,41,69,41,100,26 25250 DATA 100,26,100,120 25260 DATA 100,143,100,189,100,189,69,204 25270 DATA 69,204,69,157 25280 DATA 69,204,152,240,152,240,182,225 25290 DATA 182,225,100,189 25300 DATA 182,225,182,108,182,79,182,62 25310 DATA 182,62,100,26 25320 DATA 108,145,108,184,108,184,174,213 25330 DATA 174,213,174,104,174,81,174,67 25340 DATA 174,67,108,38,108,38,108,114 25350 DATA 69,157,100,141,100,141,108,145 25360 DATA 143,200,143,119,143,97,143,83 25370 DATA 143,83,108,67,143,119,174,104 25380 DATA 174,104,182,108,143,83,174,68,0 25390 REM [[[ FIGUR 3 [[[ 25400 DATA 1,125,127,213,127,213,253,130 25410 DATA 253,130,128,41,128,41,1,125 25420 DATA 253,130,253,122,253,122,128,33 25430 DATA 128,33,1,117,1,117,1,125 25440 DATA 128,33,128,41,161,145,188,165 25450 DATA 188,165,241,130,241,130,213,110 25460 DATA 213,110,161,145,167,141,188,157 25470 DATA 188,157,236,125,188,165,188,157 25480 DATA 75,85,146,135,146,135,198,100 25490 DATA 198,100,168,78,157,70,129,50 25500 DATA 129,50,75,85,81,81,146,127 25510 DATA 146,127,192,96,146,135,146,127 25520 DATA 55,155,127,205,127,205,173,175 25530 DATA 61,151,127,197,127,197,168,170 25540 DATA 173,175,145,155,125,141,121,138 25550 DATA 101,124,55,155,101,124,60,95 25560 DATA 60,95,14,126,14,126,43,146 25570 DATA 43,146,88,115,20,122,43,138 25580 DATA 43,138,83,110,43,146,43,138 25590 DATA 127,197,127,205 25600 DATA 105,96,109,93,109,93,121,101 25610 DATA 121,101,122,101,109,93,109,100 25620 DATA 101,119,101,172,101,172,133,150 25630 DATA 133,150,133,131,101,119,109,114 25640 DATA 109,114,109,156,109,156,125,145 25650 DATA 125,145,125,135,125,135,133,130 25660 DATA 101,172,112,179,112,179,145,157 25670 DATA 145,157,145,139,145,139,133,130 25680 DATA 109,114,121,122,121,122,121,149 25690 DATA 145,157,133,149 25700 DATA 127,114,127,81,127,81,150,66 25710 DATA 133,117,133,86,133,86,157,70 25720 DATA 145,125,145,94,145,94,168,78 25730 DATA 145,94,133,85,0 25740 REM [[[ FIGUR 4 [[[ 25750 DATA 190,80,18,168,18,168,84,219 25760 DATA 84,219,135,193,187,166,238,140 25770 DATA 238,140,238,52,238,52,218,37 25780 DATA 218,37,166,64,143,77,74,112 25790 DATA 47,126,18,141,18,141,18,168 25800 DATA 88,159,63,171,63,171,89,191 25810 DATA 89,191,114,178,182,144,218,125 25820 DATA 218,125,238,140,182,117,190,113 25830 DATA 190,113,190,80,190,106,172,116 25840 DATA 143,131,113,146,218,125,218,37 25850 DATA 88,159,162,216,162,216,187,203 25860 DATA 187,203,187,148,113,146,187,203 25870 DATA 136,135,167,159,167,159,167,112 25880 DATA 172,116,167,112,167,112,143,125 25890 DATA 143,125,143,140,187,148,182,143 25900 DATA 182,143,182,116,187,115,187,107 25910 DATA 50,128,39,120,39,120,39,91 25920 DATA 39,91,64,78,64,78,95,102 25930 DATA 39,120,64,107,64,107,74,116 25940 DATA 64,107,64,78 25950 DATA 50,128,74,116,74,116,74,110 25960 DATA 143,77,143,42,143,42,166,31 25970 DATA 166,31,166,64,166,31,185,45 25980 DATA 185,45,185,54 25990 DATA 84,161,89,165,89,165,94,162 26000 DATA 89,191,89,165,140,138,143,136,0 26010 REM [[[ FIGUR 5 [[[ 26020 DATA 77,29,19,63,19,63,80,94 26030 DATA 80,94,26,126,26,126,77,151 26040 DATA 77,151,55,165,55,165,179,227 26050 DATA 179,227,228,197,228,197,214,191 26060 DATA 77,29,77,24,77,24,19,58,19,58,19,63 26070 DATA 75,92,26,121,26,121,26,126 26080 DATA 72,149,55,160,55,160,55,165 26090 DATA 214,191,190,206,190,206,169,195 26100 DATA 169,195,184,185,184,185,162,174 26110 DATA 70,55,228,135,228,135,228,130 26120 DATA 228,130,73,52 26130 DATA 70,55,90,43,90,43,99,46,99,46,107,42 26140 DATA 107,42,77,29,77,24,111,39 26150 DATA 162,174,184,160,194,154,228,134 26160 DATA 167,172,184,180,184,180,184,185 26170 DATA 174,193,190,201,190,201,190,206 26180 DATA 190,201,205,192 26190 DATA 161,154,117,132,117,132,151,112 26200 DATA 151,112,193,134,193,134,184,140 26210 DATA 172,147,161,154,122,130,161,149 26220 DATA 161,154,161,149,161,149,171,149 26230 DATA 107,42,107,46,107,46,112,49 26240 DATA 112,49,112,53,112,53,117,56 26250 DATA 117,56,117,60,117,60,122,63 26260 DATA 122,63,122,67,122,67,127,70 26270 DATA 127,70,127,74,127,74,132,77 26280 DATA 132,77,132,81,132,81,137,84 26290 DATA 99,46,99,50,99,50,104,53 26300 DATA 104,53,104,57,104,57,109,60 26310 DATA 109,60,109,64,109,64,114,67 26320 DATA 114,67,114,71,114,71,119,74 26330 DATA 119,74,119,75,99,50,107,46 26340 DATA 112,49,104,53,104,57,112,53 26350 DATA 117,56,109,60,109,64,117,60 26360 DATA 122,63,114,67,114,71,122,67 26370 DATA 127,70,119,74,123,77,127,74 26380 DATA 132,77,127,79 26390 DATA 111,39,111,43,111,43,116,46 26400 DATA 116,46,116,50,116,50,121,53 26410 DATA 121,53,121,57,121,57,126,60 26420 DATA 126,60,126,64,126,64,131,67 26430 DATA 131,67,131,71,131,71,136,74 26440 DATA 136,74,136,78,136,78,141,81 26450 DATA 141,81,141,85 26460 DATA 164,119,164,121,164,121,169,124 26470 DATA 169,124,169,128,169,128,174,131 26480 DATA 174,131,174,135,174,135,179,138 26490 DATA 179,138,179,142,179,142,184,145 26500 DATA 184,145,184,149,184,149,189,152 26510 DATA 189,152,189,156,189,156,194,159 26520 DATA 194,159,194,163,194,163,199,166 26530 DATA 199,166,199,170,199,170,204,173 26540 DATA 204,173,204,177,204,177,209,180 26550 DATA 209,180,209,184,209,184,214,187 26560 DATA 214,187,214,191 26570 DATA 151,114,151,118,151,118,156,121 26580 DATA 156,121,156,125,156,125,161,128 26590 DATA 161,128,161,132,161,132,166,135 26600 DATA 166,135,166,139,166,139,171,142 26610 DATA 171,142,171,146,171,146,176,149 26620 DATA 176,149,176,153,176,153,181,156 26630 DATA 181,156,181,160,181,160,186,163 26640 DATA 186,163,186,167,186,167,191,170 26650 DATA 191,170,191,174,191,174,196,177 26660 DATA 196,177,196,181,196,181,201,184 26670 DATA 201,184,201,188,201,188,206,191 26680 DATA 206,191,206,195 26690 DATA 151,118,157,114,162,118,156,121 26700 DATA 156,125,164,121,169,124,161,128 26710 DATA 161,132,169,128,174,131,166,135 26720 DATA 166,139,174,135,179,138,171,142 26730 DATA 171,146,179,142,184,145,176,149 26740 DATA 176,153,184,149,189,152,181,156 26750 DATA 181,160,189,156 26760 DATA 194,159,186,163,186,167,194,163 26770 DATA 199,166,191,170,191,174,199,170 26780 DATA 204,173,196,177,196,181,204,177 26790 DATA 209,180,201,184,201,188,209,184 26800 DATA 214,187,206,191 26810 DATA 173,124,173,125,173,125,178,128 26820 DATA 178,128,178,132 26830 DATA 178,132,183,135,183,135,183,139 26840 DATA 183,139,188,142,188,142,188,146 26850 DATA 188,146,193,149,193,149,193,153 26860 DATA 193,153,198,156,198,156,198,160 26870 DATA 198,160,203,163,203,163,203,167 26880 DATA 203,167,208,170,208,170,208,174 26890 DATA 208,174,213,177,213,177,213,181 26900 DATA 213,181,218,184,218,184,218,187 26910 DATA 218,187,228,192,228,192,228,197 26920 DATA 188,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