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 >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
91 lines
4 rem ----------------------------
5 rem originalwerte fuer textmodus
6 rem in adressen 251/252 retten
7 rem ----------------------------
10 poke251,peek(53272)
20 poke252,peek(53265)
30 ba=8192:sys58692
40 gosub1000:rem hires-grafik ein
119 rem -------------------------
120 rem hires-bildschirm loeschen
121 rem -------------------------
130 for i=ba to ba+7999
140 poke i,0
150 next
160 sys58692
200 gosub3000:rem farbram purpur
201 forx=0to160
202 y1=100+sqr(160*x-x*x)
203 y2=100-sqr(160*x-x*x)
204 fory=y1toy2stepy1-y2
205 gosub255:nexty,x
206 forx=0to160
207 y1=100-sqr(160*x-x*x)
208 y2=100+sqr(160*x-x*x)
209 fory=y1toy2stepy1-y2
210 gosub255:nexty,x
211 forx=0to180
212 y1=100-sqr(180*x-x*x)
213 y2=100+sqr(180*x-x*x)
214 fory=y1toy2stepy1-y2
215 gosub255:nexty,x
216 forx=0to180
217 y1=100+sqr(180*x-x*x)
218 y2=100-sqr(180*x-x*x)
219 fory=y1toy2stepy1-y2
220 gosub255:nexty,x
221 forx=0to190
222 y1=100+sqr(190*x-x*x)
223 y2=100-sqr(190*x-x*x)
224 fory=y1toy2stepy1-y2
225 gosub255:nexty,x
226 forx=0to190
227 y1=100-sqr(190*x-x*x)
228 y2=100+sqr(190*x-x*x)
229 fory=y1toy2stepy1-y2
230 gosub255:nexty,x
231 forx=0to100
232 y1=100+sqr(100*x-x*x)
233 y2=100-sqr(100*x-x*x)
234 fory=y1toy2stepy1-y2
235 gosub255:nexty,x
236 forx=0to100
237 y1=100-sqr(100*x-x*x)
238 y2=100+sqr(100*x-x*x)
239 fory=y1toy2stepy1-y2
240 gosub255:nexty,x
249 goto280
250 rem ----------------------
251 rem unterprogramm fuers
252 rem setzen der bildpunkte
253 rem auf der hires-bitmap
254 rem -----------------=----
255 ro=int(y/8)
256 ch=int(x/8)
257 li=yand7
258 bi=7-(xand7)
259 by=ba+ro*320+ch*8+li
260 poke by,peek(by)or2^bi
265 return
266 rem ----------------------
280 poke198,0:wait198,1
281 gosub2000:sys58692:poke198,0:end
994 rem ------------------------
995 rem unterprogramm
996 rem hires-grafik einschalten
997 rem ------------------------
1000 poke53272,peek(53272)or8
1010 poke53265,peek(53265)or32
1020 return
1994 rem ------------------------
1995 rem unterprogramm
1996 rem hires-grafik abschalten
1997 rem textmodus wieder aktivieren
1998 rem ------------------------
2000 poke53272,peek(251)
2010 poke53265,peek(252)
2020 return
3000 for i=1024 to 2023
3010 pokei,16*1+4
3020 next: return