home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 23 / Commodore_Disc_23_19xx_-_de.d64 / demo.graph (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  167 lines
  1. 10 rem demo zu graphbasic
  2. 12 rem (c) commodore disc/butcher
  3. 14 poke53280,0:poke53281,0:printchr$(147)chr$(14)
  4. 15 printtab(8)"[203]leine [199]rafikspielereien"
  5. 17 printtab(9)"mit   [199]raph[194]asic 64  "
  6. 19 fori=0to38:printchr$(192);:next:print
  7. 21 print"[155][206]ach jedem [196]ruck auf eine beliebige "
  8. 22 print"[212]aste werden [201]hnen [200][201][210][197][211]-[199]rafiken auf"
  9. 25 print"dem [194]ildschirm gezeigt, die mit den"
  10. 27 print"[194]efehlen [199][211][195], [199][195][207], [199][208][206], [199][194][204], [199][208][204], "
  11. 29 print"         [199][196][210] und [199][195][210]"
  12. 31 print"in einem [194][193][211][201][195]-[208]rogramm erzeugt werden.":gosub1000
  13. 100 gsc,2:gco,208:gpn,1
  14. 110 fori=10to120step3:gcr,270-i,99,0+i:next
  15. 120 gosub1000
  16. 200 gsc,2
  17. 210 fori=1to120step3:gcr,160,99,i
  18. 212 next
  19. 220 gosub1000
  20. 300 gsc,2
  21. 310 d=(NULL)/120:dx=150:dy=90
  22. 312 sx=2:sy=1.25
  23. 314 fori=0to4*(NULL)step(NULL)/60
  24. 316 x1=sin(i)*dx:y1=cos(i)*dy
  25. 318 x2=sin(i+d)*dx:y2=cos(i)*dy
  26. 320 x1=x1+160:x2=x2+160:y1=y1+100:y2=y2+76
  27. 321 ify1>199theny1=0:goto340
  28. 322 gdr,160,100,x1,y1
  29. 324 gdr,x1,y1,x2,y2
  30. 326 gdr,x2,y2,160,100
  31. 328 dx=dx-sx:dy=dy-sy
  32. 330 next
  33. 340 gosub1000
  34. 400 gsc,2:fori=0to319step8
  35. 402 gdr,159,0,i,199
  36. 404 gdr,i,199,159,199
  37. 406 gdr,159,199,i,0
  38. 408 next
  39. 410 fori=0to24
  40. 412 c=int(rnd(0)*16)*16:ifc=0thenc=1
  41. 414 forj=0to40:gbl,j+i*40,c:next:next
  42. 416 gosub1000
  43. 420 gsc,2:gco,208:gpn,1
  44. 422 l=95:dl=-1.5:a=62.5:da=0:s=65:ra=60
  45. 424 p=(NULL)/180:a=a*p:da=da*p:ra=ra*p:p=0:lh=l:ah=a:ifabs(ra)>0thenp=1.9999*(NULL)
  46. 426 forj=0topstepra
  47. 427 fori=1tos
  48. 428 x1=x0+lh*cos(n*((NULL)-ah)+m*ra)
  49. 430 y1=y0+lh*sin(n*((NULL)-ah)+m*ra)
  50. 432 gdr,x0+160.5,y0+100.5,x1+160.5,y1+100.5
  51. 434 x0=x1:y0=y1:lh=lh+dl:ah=ah+da:n=n+1
  52. 436 next
  53. 438 m=m+1:lh=l:ah=a:x0=0:y0=0:n=0
  54. 440 next:gosub1000
  55. 500 a=159:gsc,2:fori=0toastep3
  56. 540 gdr,0,1,0+2*a,i
  57. 550 gdr,0,1,0+2*i,a
  58. 560 gdr,0+2*a,a,0,i
  59. 570 gdr,0+2*a,a,0+2*i,1
  60. 580 nexti
  61. 590 gosub1000
  62. 600 gsc,2:gco,15:gpn,1
  63. 601 reada,b,c,d:ifa=-1then900
  64. 610 gdr,a,b,c,d
  65. 620 goto601
  66. 900 poke198,0:wait198,1:gsc,0:printchr$(147);:end
  67. 1000 poke198,0:wait198,1:return
  68. 2000 data88,21,133,21
  69. 2002 data133,21,215,55
  70. 2003 data215,55,194,55
  71. 2004 data194,55,194,47
  72. 2005 data194,47,194,91
  73. 2006 data88,21,26,53
  74. 2007 data26,53,50,56
  75. 2008 data50,56,133,21
  76. 2009 data68,49,68,140
  77. 2010 data94,125,68,125
  78. 2011 data68,125,68,140
  79. 2012 data68,140,84,149
  80. 2013 data84,149,84,133
  81. 2014 data84,133,130,133
  82. 2015 data130,133,130,149
  83. 2016 data130,149,84,149
  84. 2017 data94,107,94,133
  85. 2018 data100,107,100,133
  86. 2019 data197,107,197,133
  87. 2020 data194,107,194,133
  88. 2021 data84,133,68,125
  89. 2022 data160,133,207,133
  90. 2023 data207,133,207,149
  91. 2024 data207,133,197,127
  92. 2025 data87,81,110,81
  93. 2026 data110,81,110,68
  94. 2027 data110,68,87,68
  95. 2028 data87,68,87,81
  96. 2029 data98,81,98,68
  97. 2030 data167,69,186,69
  98. 2031 data186,69,186,80
  99. 2032 data186,80,167,80
  100. 2033 data167,80,167,69
  101. 2034 data177,69,177,80
  102. 2035 data124,42,149,42
  103. 2036 data149,42,149,52
  104. 2037 data149,52,124,52
  105. 2038 data124,52,124,42
  106. 2039 data136,42,136,52
  107. 2040 data38,65,55,67
  108. 2041 data55,67,55,80
  109. 2042 data55,80,38,78
  110. 2043 data38,78,38,65
  111. 2044 data47,66,47,79
  112. 2045 data110,112,131,112
  113. 2046 data131,112,131,118
  114. 2047 data131,118,110,118
  115. 2048 data110,118,110,112
  116. 2049 data120,112,120,118
  117. 2050 data166,112,186,112
  118. 2051 data186,112,186,118
  119. 2052 data186,118,166,118
  120. 2053 data166,118,166,112
  121. 2054 data176,112,176,118
  122. 2055 data100,125,139,125
  123. 2056 data139,125,139,111
  124. 2057 data139,111,155,111
  125. 2058 data155,111,155,125
  126. 2059 data155,125,194,125
  127. 2060 data129,81,151,81
  128. 2061 data151,81,151,70
  129. 2062 data151,70,129,70
  130. 2063 data129,70,129,81
  131. 2064 data140,81,140,70
  132. 2065 data160,133,160,141
  133. 2066 data171,149,207,149
  134. 2067 data139,125,139,135
  135. 2068 data155,125,155,135
  136. 2069 data143,124,145,124
  137. 2071 data30,52,30,122
  138. 2072 data30,122,68,140
  139. 2073 data130,142,164,142
  140. 2074 data164,142,171,144
  141. 2075 data171,144,138,144
  142. 2076 data138,144,130,142
  143. 2077 data130,142,130,150
  144. 2078 data130,150,144,159
  145. 2079 data144,159,144,152
  146. 2080 data144,152,138,149
  147. 2081 data138,149,138,144
  148. 2082 data138,149,171,149
  149. 2083 data178,159,144,159
  150. 2084 data144,159,144,153
  151. 2085 data144,153,179,153
  152. 2086 data130,135,160,135
  153. 2087 data38,95,55,97
  154. 2088 data55,97,55,110
  155. 2089 data55,110,38,108
  156. 2090 data38,108,38,95
  157. 2091 data47,96,47,109
  158. 2092 data0,95,26,95
  159. 2093 data200,95,319,95
  160. 2094 data70,91,194,91
  161. 2095 data86,106,206,106,70,91,86,106
  162. 2096 data194,91,206,106
  163. 2097 data171,149,171,144
  164. 2098 data171,149,179,154
  165. 2099 data179,154,179,159
  166. 3000 data-1,-1,-1,-1
  167.