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