home *** CD-ROM | disk | FTP | other *** search
- 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
-