home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh69b.d64 / circle.multi (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  98 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. 170 POKE53281,0:REM HINTERGRUNDFARBE WEISS
  17. 180 F=16*2+7:GOSUB3000
  18. 200 GOSUB4000
  19. 201 FORX=0TO160
  20. 202 Y1=100+SQR(160*X-X*X)
  21. 203 Y2=100-SQR(160*X-X*X)
  22. 204 FORY=Y1TOY2STEPY1-Y2
  23. 205 GOSUB255:NEXTY,X
  24. 206 FORX=0TO160
  25. 207 Y1=100-SQR(160*X-X*X)
  26. 208 Y2=100+SQR(160*X-X*X)
  27. 209 FORY=Y1TOY2STEPY1-Y2
  28. 210 GOSUB255:NEXTY,X
  29. 211 FORX=0TO180
  30. 212 Y1=100-SQR(180*X-X*X)
  31. 213 Y2=100+SQR(180*X-X*X)
  32. 214 FORY=Y1TOY2STEPY1-Y2
  33. 215 GOSUB255:NEXTY,X
  34. 216 FORX=0TO180
  35. 217 Y1=100+SQR(180*X-X*X)
  36. 218 Y2=100-SQR(180*X-X*X)
  37. 219 FORY=Y1TOY2STEPY1-Y2
  38. 220 GOSUB255:NEXTY,X
  39. 221 FORX=0TO190
  40. 222 Y1=100+SQR(190*X-X*X)
  41. 223 Y2=100-SQR(190*X-X*X)
  42. 224 FORY=Y1TOY2STEPY1-Y2
  43. 225 GOSUB255:NEXTY,X
  44. 226 FORX=0TO190
  45. 227 Y1=100-SQR(190*X-X*X)
  46. 228 Y2=100+SQR(190*X-X*X)
  47. 229 FORY=Y1TOY2STEPY1-Y2
  48. 230 GOSUB255:NEXTY,X
  49. 231 FORX=0TO100
  50. 232 Y1=100+SQR(100*X-X*X)
  51. 233 Y2=100-SQR(100*X-X*X)
  52. 234 FORY=Y1TOY2STEPY1-Y2
  53. 235 GOSUB255:NEXTY,X
  54. 236 FORX=0TO100
  55. 237 Y1=100-SQR(100*X-X*X)
  56. 238 Y2=100+SQR(100*X-X*X)
  57. 239 FORY=Y1TOY2STEPY1-Y2
  58. 240 GOSUB255:NEXTY,X
  59. 249 GOTO280
  60. 250 REM ----------------------
  61. 251 REM UNTERPROGRAMM FUERS
  62. 252 REM SETZEN DER BILDPUNKTE
  63. 253 REM AUF DER HIRES-BITMAP
  64. 254 REM -----------------=----
  65. 255 RO=INT(Y/8)
  66. 256 CH=INT(X/8)
  67. 257 LI=YAND7
  68. 258 BI=7-(XAND7)
  69. 259 BY=BA+RO*320+CH*8+LI
  70. 260 POKE BY,PEEK(BY)OR2^BI
  71. 265 RETURN
  72. 266 REM ----------------------
  73. 280 POKE198,0:WAIT198,1
  74. 281 GOSUB2000:SYS58692:POKE198,0:END
  75. 994 REM ------------------------
  76. 995 REM UNTERPROGRAMM
  77. 996 REM HIRES-GRAFIK EINSCHALTEN
  78. 997 REM ------------------------
  79. 1000 POKE53272,PEEK(53272)OR8
  80. 1010 POKE53265,PEEK(53265)OR32
  81. 1015 POKE53270,PEEK(53270)OR16
  82. 1020 RETURN
  83. 1994 REM ------------------------
  84. 1995 REM UNTERPROGRAMM
  85. 1996 REM HIRES-GRAFIK ABSCHALTEN
  86. 1997 REM TEXTMODUS WIEDER AKTIVIEREN
  87. 1998 REM ------------------------
  88. 2000 POKE53272,PEEK(251)
  89. 2010 POKE53265,PEEK(252)
  90. 2015 POKE53270,PEEK(53270)AND239
  91. 2020 RETURN
  92. 3000 FORI=1024 TO 2023
  93. 3010 POKE I,F
  94. 3020 NEXT:RETURN
  95. 4000 FOR I=55296 TO 56295
  96. 4010 POKEI,8
  97. 4020 NEXT: RETURN
  98.