home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 87 / 64er_Magazin_Sonderheft_87_19xx_Markt__Technik_de_Side_A.d64 / grafik-demo1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  202 lines
  1. 100 :
  2. 101 C\0,14,15:Cy:Cu13,3,"grafik - demo"
  3. 102 Cu5,7
  4. 103 Cz"bitte jedes mal , wenn in der",80
  5. 104 printtab(5);:Cz"rechten oberen ecke ein blin -",80
  6. 105 printtab(4);:Cz"kendes rechteck erscheint , eine",80
  7. 106 Cu12,18,"taste druecken"
  8. 107 C;
  9. 108 geta$:x=x+1
  10. 109 ifx/2=int(x/2)thenCu39,0," ":C7Cu39,0,"[188]"
  11. 110 C@a$<>""
  12. 111 :
  13. 112 D_    D%    D{$60}
  14. 113 :
  15. 114 D%6,14
  16. 115 C\0,14,14:D
  17. 116 :
  18. 117 D_     D)    D{$60}
  19. 118 :
  20. 119 D8125,0,"plot",2,2,16,1
  21. 120 forx=0to319
  22. 121 y=int(100+80*sin(x*2*(NULL)/160))
  23. 122 D)x,y,1
  24. 123 next
  25. 124 Ce get
  26. 125 :
  27. 126 D_    D,     D{$60}
  28. 127 :
  29. 128 D%5,13:C\0,13,13
  30. 129 D8125,0,"draw",2,2,16,1
  31. 130 x=0:y=0
  32. 131 fora=1to50
  33. 132 xx=320*rnd(0):yy=200*rnd(0)
  34. 133 D,x,y,xx,yy,1
  35. 134 x=xx:y=yy
  36. 135 next
  37. 136 Ce get
  38. 137 :
  39. 138 D_    D.     D{$60}
  40. 139 :
  41. 140 D%10,2:C\2,2,2
  42. 141 D8125,0,"rec",2,2,16,1
  43. 142 forx=0to100step2
  44. 143 D.x,x,x,x,1:D.320-2*x,x,x,x,1
  45. 144 next
  46. 145 Ce get
  47. 146 :
  48. 147 D_    D0     D{$60}
  49. 148 :
  50. 149 D%0,15:C\15,15,15
  51. 150 D8125,0,"box",2,2,16,1
  52. 151 f=0:forx=10to280step30
  53. 152 D'f,15:f=f+1
  54. 153 y=int(100*rnd(0))
  55. 154 D0x,170-y,20,y,1
  56. 155 D'0,15
  57. 156 D8x-7,180,C("##",y),1,2,8,1
  58. 157 next
  59. 158 Ce get
  60. 159 :
  61. 160 D_    D1  D{$60}
  62. 161 :
  63. 162 D%1,12:C\3,3,3
  64. 163 D815,0,"circle",2,2,16,1
  65. 164 forx=5to96step13
  66. 165 D1160,100,x,96,1
  67. 166 D1160,100,96,x,1
  68. 167 next
  69. 168 Ce get
  70. 169 :
  71. 170 D_    D2     D{$60}
  72. 171 :
  73. 172 D%7,0:C\0,0,15
  74. 173 D8125,0,"arc",2,2,16,1
  75. 174 D2100,100,30,20,0,180,12,1
  76. 175 D2100,100,15,20,0,180,12,1
  77. 176 D3120,100,1
  78. 177 fori=1to20
  79. 178 x=320*rnd(0):y=200*rnd(0)
  80. 179 D2x,y,4,4,0,360,120,1
  81. 180 D2x,y,4,4,180,540,120,1
  82. 181 next
  83. 182 Ce get
  84. 183 :
  85. 184 D_    D3   D{$60}
  86. 185 :
  87. 186 D%14,6:C\6,6,6
  88. 187 D815,0,"paint",2,2,16,1
  89. 188 D1160,100,90,90,1
  90. 189 D1160,100,70,70,1
  91. 190 D3160,15,1
  92. 191 Ce get
  93. 192 :
  94. 193 D_    D5  D{$60}
  95. 194 :
  96. 195 D%4,4
  97. 196 D26,6,5,5,0,360,120,1:D26,6,5,5,180,540,120,1
  98. 197 D5g$,0,0,11,11
  99. 198 :        
  100. 199 D_    D4  D{$60}
  101. 200 :
  102. 201 D%8,0
  103. 202 D840,0,"sshape & gshape",2,2,16,1
  104. 203 fori=1to40
  105. 204 D4g$,320*rnd(0),200*rnd(0),1
  106. 205 next
  107. 206 Ce get
  108. 207 :
  109. 208 D_    D7  D{$60}
  110. 209 :
  111. 210 D%11,15
  112. 211 D
  113. 212 D70,2,0,0
  114. 213 :
  115. 214 D_    D6  D{$60}
  116. 215 :
  117. 216 D1,0,11,0,0:D1,0,0:D1,24,50
  118. 217 Dq2:D;
  119. 218 D840,0,"sblock & gblock",2,2,16,1:Ce get
  120. 219 fori=1to10
  121. 220 x=320*rnd(0):y=180*rnd(0)+20
  122. 221 D1,x+24,y+50,5:D60,2,x,y,1,1,1
  123. 222 next
  124. 223 Ce get
  125. 224 D
  126. 225 :
  127. 226 D_    D8    D{$60}
  128. 227 :
  129. 228 D%4,9:C\0,9,15
  130. 229 D8125,15,"text",2,2,16,1
  131. 230 D80,0,C("[211]",40),1,1,8,1
  132. 231 D80,192,C("[211]",40),1,1,8,1
  133. 232 D'7,9
  134. 233 D85,40,"special basic",3,8,24,1
  135. 234 D'1,9
  136. 235 D840,150,"the best of all",2,3,16,1
  137. 236 D'4,9:Ce get
  138. 237 :
  139. 238 D_    D9  D{$60}
  140. 239 :
  141. 240 Cy:Cu10,23,"bitte taste druecken":Cu0,13:list237-243
  142. 241 D90,103:Cta$
  143. 242 D9:D(:Cta$
  144. 243 :
  145. 244 D_    D:  D{$60}
  146. 245 :
  147. 246 D%3,1:C\0,4,15
  148. 247 D8125,0,"revers",2,2,16,1
  149. 248 D,0,0,319,199,1
  150. 249 D,0,199,319,0,1
  151. 250 D,160,0,160,199,1
  152. 251 D,0,100,319,100,1
  153. 252 D0130,80,60,40,1
  154. 253 Dq1
  155. 254 D::Dq1:D:
  156. 255 Dq1:D::Dq1
  157. 256 fora=0to10:D::next
  158. 257 Ce get
  159. 258 :
  160. 259 D_    D@   D{$60}
  161. 260 :
  162. 261 D0125,0,95,16,0
  163. 262 D8125,0,"grcol",2,2,16,1
  164. 263 fori=1to100
  165. 264 x=int(33*rnd(0)):y=int(18*rnd(0))
  166. 265 D@x,y,8,8,16*rnd(0),16*rnd(0)
  167. 266 next
  168. 267 Ce get
  169. 268 :
  170. 269 D_    D(     D{$60}
  171. 270 :
  172. 271 D(
  173. 272 :
  174. 273 D_    C    D{$60}
  175. 274 :
  176. 275 C;
  177. 276 Cy
  178. 277 print" welcher punkt soll getestet werden ?"
  179. 278 input"x , y  ";x,y
  180. 279 C@x>=0andx<=65535andy>=0andy<=255
  181. 280 ifC(x,y)=0thenC8
  182. 281 Cu7,8,"der punkt ist nicht gesetzt"
  183. 282 C9
  184. 283 Cu9,8,"der punkt ist gesetzt"
  185. 284 C:
  186. 285 Cu9,14,"bitte taste druecken"
  187. 286 Cta$
  188. 287 :
  189. 288 D%1,0:C\0,0,15
  190. 289 D80,12,"ende",10,25,80,1
  191. 290 Cta$
  192. 291 C\0,6,15:Cy
  193. 292 end
  194. 293 :
  195. 294 Cd get
  196. 295 C;
  197. 296 geta$
  198. 297 D0316,0,3,3,2
  199. 298 C@a$<>""
  200. 299 Cg
  201. 300 :
  202.