home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2001-06_2001_CSW_Side_A.d64 / figuren (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  9KB  |  287 lines
  1. 1000 a=500:goto20:rem ## figuren ##
  2. 1010 goto1470
  3. 1020 rem     unmoegliche figuren  
  4. 1030 rem     als quelle fuer dieses 
  5. 1040 rem     programm diente das 
  6. 1050 rem     heft 2/89 aus der reihe 
  7. 1060 rem            >practic< 
  8. 1070 rem     grundprogramm von       
  9. 1080 rem     wolfgang baessler auf kc85/3&d004
  10. 1090 rem     luxemburgstrasse 10
  11. 1100 rem     4500 dessau
  12. 1110 rem  [[[ figur zeichnen [[[ 
  13. 1120 gosub600
  14. 1130 readx1:ifx1=0 then1230
  15. 1140 ready1,x2,y2
  16. 1150 cn=0
  17. 1160 ho=x1/320
  18. 1170 ve=1-y1/255
  19. 1180 gosub620
  20. 1190 ho=x2/320
  21. 1200 ve=1-y2/255
  22. 1210 gosub630
  23. 1220 goto1130
  24. 1230 gosub250:gosub210
  25. 1240 return
  26. 1250 rem    [[[ information [[[ 
  27. 1260 gosub100
  28. 1270 print:print:print"[196]ieses [208]rogramm zeigt einige"
  29. 1280 print"von [207]. [210]eutersvaerd, einem"
  30. 1290 print"schwedischen [203]unstprofessor,"
  31. 1300 print"entworfene nichteuklidische"
  32. 1310 print"[203]oerperdarstellungen."
  33. 1320 print:print"[196]ie teuflische [213]nmoeglichkeit"
  34. 1330 print"besteht darin, dass zwar die"
  35. 1340 print"[196]etails der [198]ormen exakt"
  36. 1350 print"stimmen, das ganze [199]ebilde"
  37. 1360 print"aber nicht erfassbar ist. "
  38. 1370 print:print"[194]ei laengerem [194]etrachten der"
  39. 1380 print"[196]etails und der [199]esamtdar-"
  40. 1390 print"stellung wird man immer"
  41. 1400 print"unsicherer, weil es nicht"
  42. 1410 print"gelingt, beides zu [203]oerpern"
  43. 1420 print"der uns gewohnten [215]ahr-"
  44. 1430 print"nehmung zu vereinen."
  45. 1440 print:print"     (aus practic 2/89)"
  46. 1450 gosub210:gosub100:return
  47. 1460 rem  [[[ hauptprogramm [[[               
  48. 1470 gosub100
  49. 1480 print"       [213]nmoegliche [198]iguren"
  50. 1490 print:print"    [198]igur 1"
  51. 1500 print:print"    [198]igur 2"
  52. 1510 print:print"    [198]igur 3"
  53. 1520 print:print"    [198]igur 4"
  54. 1530 print:print"    [198]igur 5"
  55. 1540 print:print"     [201]nfo 6"
  56. 1550 print:print"     [197]nde 7"
  57. 1560 print:print:print"   [194]itte   waehlen  [211]ie: "
  58. 1570 gosub200:ifin=0 then1570
  59. 1580 if(in<49)or(in>55) then gosub250:goto1570
  60. 1590 in=in-48
  61. 1600 restore
  62. 1610 ifin=2 then gosub1690
  63. 1620 ifin=3 then gosub1690:gosub1690
  64. 1630 ifin=4 then gosub1690:gosub1690:gosub1690
  65. 1640 ifin=5 then gosub1690:gosub1690:gosub1690:gosub1690
  66. 1650 ifin=6 then gosub1260
  67. 1660 ifin=7 then950:rem ende
  68. 1670 if(in>0)and(in<6) then gosub1120
  69. 1680 goto1470
  70. 1690 readx1
  71. 1700 ifx1=0 thenreturn
  72. 1710 ready1,x2,y2:goto1690
  73. 25000 rem   [[[ figur 1 [[[
  74. 25010 data23,82,23,193,23,193,108,236
  75. 25020 data108,236,133,225,133,225,133,159
  76. 25030 data133,159,230,209,230,209,230,74
  77. 25040 data230,74,208,62,208,62,162,82
  78. 25050 data162,82,162,21,162,21,23,82
  79. 25060 data48,95,48,182,48,182,133,225
  80. 25070 data48,95,71,107,71,107,71,171
  81. 25080 data71,171,108,189,108,189,108,117
  82. 25090 data108,117,208,170,208,170,208,62
  83. 25100 data188,160,188,97,188,97,137,119
  84. 25110 data137,119,137,57,137,57,48,95
  85. 25120 data162,21,185,34,185,34,185,72
  86. 25130 data137,79,71,107,48,182,23,193
  87. 25140 data88,177,88,125,88,125,108,117
  88. 25150 data133,185,205,220,205,220,230,209
  89. 25160 data188,120,160,131,160,131,137,119,0
  90. 25170 rem   [[[ figur 2 [[[
  91. 25180 data20,160,20,168,20,168,205,75
  92. 25190 data205,75,205,67,205,67,20,160
  93. 25200 data20,168,63,187,63,187,69,183
  94. 25210 data108,164,143,146,182,127,248,94
  95. 25220 data248,94,248,86,248,86,205,67
  96. 25230 data205,75,248,94
  97. 25240 data69,136,69,41,69,41,100,26
  98. 25250 data100,26,100,120
  99. 25260 data100,143,100,189,100,189,69,204
  100. 25270 data69,204,69,157
  101. 25280 data69,204,152,240,152,240,182,225
  102. 25290 data182,225,100,189
  103. 25300 data182,225,182,108,182,79,182,62
  104. 25310 data182,62,100,26
  105. 25320 data108,145,108,184,108,184,174,213
  106. 25330 data174,213,174,104,174,81,174,67
  107. 25340 data174,67,108,38,108,38,108,114
  108. 25350 data69,157,100,141,100,141,108,145
  109. 25360 data143,200,143,119,143,97,143,83
  110. 25370 data143,83,108,67,143,119,174,104
  111. 25380 data174,104,182,108,143,83,174,68,0
  112. 25390 rem   [[[ figur 3 [[[
  113. 25400 data1,125,127,213,127,213,253,130
  114. 25410 data253,130,128,41,128,41,1,125
  115. 25420 data253,130,253,122,253,122,128,33
  116. 25430 data128,33,1,117,1,117,1,125
  117. 25440 data128,33,128,41,161,145,188,165
  118. 25450 data188,165,241,130,241,130,213,110
  119. 25460 data213,110,161,145,167,141,188,157
  120. 25470 data188,157,236,125,188,165,188,157
  121. 25480 data75,85,146,135,146,135,198,100
  122. 25490 data198,100,168,78,157,70,129,50
  123. 25500 data129,50,75,85,81,81,146,127
  124. 25510 data146,127,192,96,146,135,146,127
  125. 25520 data55,155,127,205,127,205,173,175
  126. 25530 data61,151,127,197,127,197,168,170
  127. 25540 data173,175,145,155,125,141,121,138
  128. 25550 data101,124,55,155,101,124,60,95
  129. 25560 data60,95,14,126,14,126,43,146
  130. 25570 data43,146,88,115,20,122,43,138
  131. 25580 data43,138,83,110,43,146,43,138
  132. 25590 data127,197,127,205
  133. 25600 data105,96,109,93,109,93,121,101
  134. 25610 data121,101,122,101,109,93,109,100
  135. 25620 data101,119,101,172,101,172,133,150
  136. 25630 data133,150,133,131,101,119,109,114
  137. 25640 data109,114,109,156,109,156,125,145
  138. 25650 data125,145,125,135,125,135,133,130
  139. 25660 data101,172,112,179,112,179,145,157
  140. 25670 data145,157,145,139,145,139,133,130
  141. 25680 data109,114,121,122,121,122,121,149
  142. 25690 data145,157,133,149
  143. 25700 data127,114,127,81,127,81,150,66
  144. 25710 data133,117,133,86,133,86,157,70
  145. 25720 data145,125,145,94,145,94,168,78
  146. 25730 data145,94,133,85,0
  147. 25740 rem    [[[ figur 4 [[[                     
  148. 25750 data190,80,18,168,18,168,84,219
  149. 25760 data84,219,135,193,187,166,238,140
  150. 25770 data238,140,238,52,238,52,218,37
  151. 25780 data218,37,166,64,143,77,74,112
  152. 25790 data47,126,18,141,18,141,18,168
  153. 25800 data88,159,63,171,63,171,89,191
  154. 25810 data89,191,114,178,182,144,218,125
  155. 25820 data218,125,238,140,182,117,190,113
  156. 25830 data190,113,190,80,190,106,172,116
  157. 25840 data143,131,113,146,218,125,218,37
  158. 25850 data88,159,162,216,162,216,187,203
  159. 25860 data187,203,187,148,113,146,187,203
  160. 25870 data136,135,167,159,167,159,167,112
  161. 25880 data172,116,167,112,167,112,143,125
  162. 25890 data143,125,143,140,187,148,182,143
  163. 25900 data182,143,182,116,187,115,187,107
  164. 25910 data50,128,39,120,39,120,39,91
  165. 25920 data39,91,64,78,64,78,95,102
  166. 25930 data39,120,64,107,64,107,74,116
  167. 25940 data64,107,64,78
  168. 25950 data50,128,74,116,74,116,74,110
  169. 25960 data143,77,143,42,143,42,166,31
  170. 25970 data166,31,166,64,166,31,185,45
  171. 25980 data185,45,185,54
  172. 25990 data84,161,89,165,89,165,94,162
  173. 26000 data89,191,89,165,140,138,143,136,0
  174. 26010 rem    [[[ figur 5 [[[
  175. 26020 data77,29,19,63,19,63,80,94
  176. 26030 data80,94,26,126,26,126,77,151
  177. 26040 data77,151,55,165,55,165,179,227
  178. 26050 data179,227,228,197,228,197,214,191
  179. 26060 data77,29,77,24,77,24,19,58,19,58,19,63
  180. 26070 data75,92,26,121,26,121,26,126
  181. 26080 data72,149,55,160,55,160,55,165
  182. 26090 data214,191,190,206,190,206,169,195
  183. 26100 data169,195,184,185,184,185,162,174
  184. 26110 data70,55,228,135,228,135,228,130
  185. 26120 data228,130,73,52
  186. 26130 data70,55,90,43,90,43,99,46,99,46,107,42
  187. 26140 data107,42,77,29,77,24,111,39
  188. 26150 data162,174,184,160,194,154,228,134
  189. 26160 data167,172,184,180,184,180,184,185
  190. 26170 data174,193,190,201,190,201,190,206
  191. 26180 data190,201,205,192
  192. 26190 data161,154,117,132,117,132,151,112
  193. 26200 data151,112,193,134,193,134,184,140
  194. 26210 data172,147,161,154,122,130,161,149
  195. 26220 data161,154,161,149,161,149,171,149
  196. 26230 data107,42,107,46,107,46,112,49
  197. 26240 data112,49,112,53,112,53,117,56
  198. 26250 data117,56,117,60,117,60,122,63
  199. 26260 data122,63,122,67,122,67,127,70
  200. 26270 data127,70,127,74,127,74,132,77
  201. 26280 data132,77,132,81,132,81,137,84
  202. 26290 data99,46,99,50,99,50,104,53
  203. 26300 data104,53,104,57,104,57,109,60
  204. 26310 data109,60,109,64,109,64,114,67
  205. 26320 data114,67,114,71,114,71,119,74
  206. 26330 data119,74,119,75,99,50,107,46
  207. 26340 data112,49,104,53,104,57,112,53
  208. 26350 data117,56,109,60,109,64,117,60
  209. 26360 data122,63,114,67,114,71,122,67
  210. 26370 data127,70,119,74,123,77,127,74
  211. 26380 data132,77,127,79
  212. 26390 data111,39,111,43,111,43,116,46
  213. 26400 data116,46,116,50,116,50,121,53
  214. 26410 data121,53,121,57,121,57,126,60
  215. 26420 data126,60,126,64,126,64,131,67
  216. 26430 data131,67,131,71,131,71,136,74
  217. 26440 data136,74,136,78,136,78,141,81
  218. 26450 data141,81,141,85
  219. 26460 data164,119,164,121,164,121,169,124
  220. 26470 data169,124,169,128,169,128,174,131
  221. 26480 data174,131,174,135,174,135,179,138
  222. 26490 data179,138,179,142,179,142,184,145
  223. 26500 data184,145,184,149,184,149,189,152
  224. 26510 data189,152,189,156,189,156,194,159
  225. 26520 data194,159,194,163,194,163,199,166
  226. 26530 data199,166,199,170,199,170,204,173
  227. 26540 data204,173,204,177,204,177,209,180
  228. 26550 data209,180,209,184,209,184,214,187
  229. 26560 data214,187,214,191
  230. 26570 data151,114,151,118,151,118,156,121
  231. 26580 data156,121,156,125,156,125,161,128
  232. 26590 data161,128,161,132,161,132,166,135
  233. 26600 data166,135,166,139,166,139,171,142
  234. 26610 data171,142,171,146,171,146,176,149
  235. 26620 data176,149,176,153,176,153,181,156
  236. 26630 data181,156,181,160,181,160,186,163
  237. 26640 data186,163,186,167,186,167,191,170
  238. 26650 data191,170,191,174,191,174,196,177
  239. 26660 data196,177,196,181,196,181,201,184
  240. 26670 data201,184,201,188,201,188,206,191
  241. 26680 data206,191,206,195
  242. 26690 data151,118,157,114,162,118,156,121
  243. 26700 data156,125,164,121,169,124,161,128
  244. 26710 data161,132,169,128,174,131,166,135
  245. 26720 data166,139,174,135,179,138,171,142
  246. 26730 data171,146,179,142,184,145,176,149
  247. 26740 data176,153,184,149,189,152,181,156
  248. 26750 data181,160,189,156
  249. 26760 data194,159,186,163,186,167,194,163
  250. 26770 data199,166,191,170,191,174,199,170
  251. 26780 data204,173,196,177,196,181,204,177
  252. 26790 data209,180,201,184,201,188,209,184
  253. 26800 data214,187,206,191
  254. 26810 data173,124,173,125,173,125,178,128
  255. 26820 data178,128,178,132
  256. 26830 data178,132,183,135,183,135,183,139
  257. 26840 data183,139,188,142,188,142,188,146
  258. 26850 data188,146,193,149,193,149,193,153
  259. 26860 data193,153,198,156,198,156,198,160
  260. 26870 data198,160,203,163,203,163,203,167
  261. 26880 data203,167,208,170,208,170,208,174
  262. 26890 data208,174,213,177,213,177,213,181
  263. 26900 data213,181,218,184,218,184,218,187
  264. 26910 data218,187,228,192,228,192,228,197
  265. 26920 data188,132,183,135,0
  266. 30000 rem
  267. 30010 rem druckeraufrufe
  268. 30020 rem koennen noch eingefuegt werden
  269. 30030 rem z.b bs-ausdruck in # 1230
  270. 30040 rem
  271. 30050 rem datensatz uebernommen von:
  272. 30060 rem wolfgang baessler dessau
  273. 30070 rem programm figuren auf kc 85/3
  274. 30080 rem
  275. 32000 rem unmoegliche figuren
  276. 32010 rem in basicode 3
  277. 32020 rem von thomas schaefer
  278. 32030 rem     h.-heine-str.42d
  279. 32040 rem     perleberg 
  280. 32050 rem     o-2910
  281. 32060 rem     auf m r b  z 1 0 1 3
  282. 32070 rem  fertigstellung am
  283. 32080 rem     14.04.91
  284. 32090 rem
  285. 32100 rem erstausstrahlung: deutschlandsender kultur
  286. 32110 rem-spezial 910501
  287.