home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / circle.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.8 KB  |  91 lines
  1. 4 rem ----------------------------
  2. 5 rem originalwerte fuer textmodus
  3. 6 rem in adressen 251/252 retten
  4. 7 rem ----------------------------
  5. 10 poke251,peek(53272)
  6. 20 poke252,peek(53265)
  7. 30 ba=8192:sys58692
  8. 40 gosub1000:rem hires-grafik ein
  9. 119 rem -------------------------
  10. 120 rem hires-bildschirm loeschen
  11. 121 rem -------------------------
  12. 130 for i=ba to ba+7999
  13. 140 poke i,0
  14. 150 next
  15. 160 sys58692
  16. 200 gosub3000:rem farbram purpur
  17. 201 forx=0to160
  18. 202 y1=100+sqr(160*x-x*x)
  19. 203 y2=100-sqr(160*x-x*x)
  20. 204 fory=y1toy2stepy1-y2
  21. 205 gosub255:nexty,x
  22. 206 forx=0to160
  23. 207 y1=100-sqr(160*x-x*x)
  24. 208 y2=100+sqr(160*x-x*x)
  25. 209 fory=y1toy2stepy1-y2
  26. 210 gosub255:nexty,x
  27. 211 forx=0to180
  28. 212 y1=100-sqr(180*x-x*x)
  29. 213 y2=100+sqr(180*x-x*x)
  30. 214 fory=y1toy2stepy1-y2
  31. 215 gosub255:nexty,x
  32. 216 forx=0to180
  33. 217 y1=100+sqr(180*x-x*x)
  34. 218 y2=100-sqr(180*x-x*x)
  35. 219 fory=y1toy2stepy1-y2
  36. 220 gosub255:nexty,x
  37. 221 forx=0to190
  38. 222 y1=100+sqr(190*x-x*x)
  39. 223 y2=100-sqr(190*x-x*x)
  40. 224 fory=y1toy2stepy1-y2
  41. 225 gosub255:nexty,x
  42. 226 forx=0to190
  43. 227 y1=100-sqr(190*x-x*x)
  44. 228 y2=100+sqr(190*x-x*x)
  45. 229 fory=y1toy2stepy1-y2
  46. 230 gosub255:nexty,x
  47. 231 forx=0to100
  48. 232 y1=100+sqr(100*x-x*x)
  49. 233 y2=100-sqr(100*x-x*x)
  50. 234 fory=y1toy2stepy1-y2
  51. 235 gosub255:nexty,x
  52. 236 forx=0to100
  53. 237 y1=100-sqr(100*x-x*x)
  54. 238 y2=100+sqr(100*x-x*x)
  55. 239 fory=y1toy2stepy1-y2
  56. 240 gosub255:nexty,x
  57. 249 goto280
  58. 250 rem ----------------------
  59. 251 rem unterprogramm fuers
  60. 252 rem setzen der bildpunkte
  61. 253 rem auf der hires-bitmap
  62. 254 rem -----------------=----
  63. 255 ro=int(y/8)
  64. 256 ch=int(x/8)
  65. 257 li=yand7
  66. 258 bi=7-(xand7)
  67. 259 by=ba+ro*320+ch*8+li
  68. 260 poke by,peek(by)or2^bi
  69. 265 return
  70. 266 rem ----------------------
  71. 280 poke198,0:wait198,1
  72. 281 gosub2000:sys58692:poke198,0:end
  73. 994 rem ------------------------
  74. 995 rem unterprogramm
  75. 996 rem hires-grafik einschalten
  76. 997 rem ------------------------
  77. 1000 poke53272,peek(53272)or8
  78. 1010 poke53265,peek(53265)or32
  79. 1020 return
  80. 1994 rem ------------------------
  81. 1995 rem unterprogramm
  82. 1996 rem hires-grafik abschalten
  83. 1997 rem textmodus wieder aktivieren
  84. 1998 rem ------------------------
  85. 2000 poke53272,peek(251)
  86. 2010 poke53265,peek(252)
  87. 2020 return
  88. 3000 for i=1024 to 2023
  89. 3010 pokei,16*1+4
  90. 3020 next: return
  91.