Hier mal ein kleines Demo zu der Blockgrafik:
Bitte melde dich an, um diesen Anhang zu sehen.
Code
1 goto10
2 n=x(x)+y(y):poken,z(t%(peek(n))orh(xand1,yand1)):return
3 n=x(x)+y(y):poken,z(t%(peek(n))andnoth(xand1,yand1)):return
4 pokee,-(x>t):pokev,xandt:pokev+1,y:g=peek(tp):return
5 dx=x2-x1:dy=y2-y1:ifabs(dx)<abs(dy)then7
6 s=sgn(dx):f=dy/dx*s:y=y1:forx=x1tox2steps:gosub2:y=y+f:next:return
7 s=sgn(dy):f=dx/dy*s:x=x1:fory=y1toy2steps:gosub2:x=x+f:next:return
10 sys58784:v=53248:c$=chr$(147):d$=chr$(17):gosub400
20 printd$" bitte warten ..."d$
200 vr=1024:c=40:e=v+16:t=255:z=rnd(-ti):pi=4*atn(1):fr=55296:tp=198
205 dim u(3,3),s(3),z(15),x(79),y(49)
210 dim h(1,1),t%(t),xs%(399),ys%(399)
220 dim xp(4),yp(4),f1(5),x$(7),q$(5)
302 j=50:fori=.to79:x(i)=int(i/2):ifi<jtheny(i)=vr+c*x(i)
303 next:fori=.to15:read z(i):t%(z(i))=i:next:fori=.to3:h(iand1,x(i))=2^i:next
304 fori=.to5:read x$(i):next
305 n=1105:k=832:forj=3to.step-1:printj;chr$(145):read a$:fori=1tolen(a$)step2
306 pokek,asc(mid$(a$,i))+16*asc(mid$(a$,i+1))-n:k=k+1:next:next:gosub1300
307 gosub400:printc$d$chr$(30)" blockgrafik-demo"
308 fori=.to5:poke646,1+13*(iand1):b$=mid$(str$(i+1),2):ifi=5thenb$="e"
309 printspc(41)chr$(175):print" "chr$(18)b$chr$(146)" "x$(i)
310 next
320 gosub700:geta$:ifa$="e"then350
340 t1=val(a$):ift1<1ort1>5then320
341 on t1 gosub 2000,4000,3000,1000,5000
342 pokev+21,.:goto307
350 sys58648:poketp,.:end
400 c1=.:pokev+32,11
500 pokev+33,c1:poke646,c2:printc$chr$(5);:return
600 poke646,c3:printx$(t1-1):pokev+32,.:return
700 poketp,.:waittp,1:return
1000 c2=1:gosub500:printchr$(144)
1050 fori=.to5:f=f1(i):x$=q$(i):printchr$(19)x$:m=len(x$)-1:ifm>9thenm=9
1060 poke56334,.:forj=.tom:a=peek(vr+j):ifa=32then1110
1070 b=v+8*a:n=vr+4*j+c*(1+4*i):poke1,51
1080 fork=.to3:w1=peek(b):w2=peek(b+1)
1090 forl=n+3tonstep-1:pokel,u(w1and3,w2and3):w1=int(w1/4):w2=int(w2/4):next
1100 b=b+2:n=n+c:next:poke1,55
1110 next:poke56334,1
1120 forx=fr+c*(4*i+1)tox+159:pokex,f:next:next:printchr$(19);
1130 i=peek(2):poke2,i+1and1:ifithen1160
1140 j=peek(fr+c):fori=.to39:pokevr+i,32:pokefr+i,j:next
1145 c3=4:gosub600
1150 j=128:fori=vrtoi+999:pokei,peek(i)+jandt:next
1155 gosub700:return
1160 n=fr+c:fory=.to23:f=s(yand3):forx=.to39:poken,f:n=n+1:next:next
1170 c3=15:gosub600:gosub700:return
1300 fori=.to3
1310 forj=.to3:read u(i,j):next:next
1320 fori=.to3:read s(i):next
1330 fori=.to5:read f1(i),q$(i):next
1340 return
2000 c1=6:c2=1:c3=2:gosub500
2005 x=39:fory=.to49:gosub2:next
2010 y=24:forx=.to79:gosub2:next
2020 r=23:f=2*pi/80*2:m=24.5:y1=24
2030 forx=.to79:w=f*x:y2=int(m-r*sin(w))
2040 fory=y1toy2stepsgn(y2-y1):gosub2:next:next
2050 printchr$(19)" ";:gosub600:gosub700:return
3000 c1=0:c2=7:c3=14:gosub500
3005 fory=.to49:forx=.to79:ifxandythengosub2
3010 next:next:gosub600:gosub700:return
4000 c1=0:c2=8:c3=7:gosub500
4005 fori=.to50
4006 x1=1+int(rnd(1)*78):y1=1+int(rnd(1)*48)
4007 x=x1-1:y=y1:gosub3:x=x+2:gosub3
4008 x=x1:y=y-1:gosub3:y=y+2:gosub3
4009 x=x1:y=y1:gosub2:next
4010 xm=39:ym=24:r=20:q=r*r:s=.5
4020 fori=-rtor:x=xm+i:k=int(s+sqr(q-i*i)):fory=ym-ktoym+k:gosub2:next:next
4040 r1=37:r2=15:p=int(2*pi*r1+1):f=2*pi/p:fori=.top-1:w=f*i
4050 x=int(xm+r1*cos(w))
4060 y=int(ym-r2*sin(w))
4070 ifi>160andi<191thengosub3:goto4080
4075 gosub2
4080 next:gosub600
4081 poke2040,14:pokev+37,11:pokev+38,12:pokev+39,6:pokev+28,1
4083 w=.:poketp,.
4084 y=2e2:pokev+21,1
4085 forx=.to4e2:gosub4:y=y-.3:ifgthenreturn
4086 next:pokev+21,.:pokev,.:pokev+16,.:pokev+27,w:w=1-w
4087 goto4084
5000 c1=2:c2=7:c3=.:gosub500
5001 z=5:xm=39.5:ym=24.5:r=24:f=2*pi/z
5002 fori=.toz-1:w=f*(i+.5)
5003 xp(i)=int(xm+r*sin(w))
5004 yp(i)=int(ym-r*cos(w))
5005 next
5006 i=.:fork=1toz:x1=xp(i):y1=yp(i):i=i+2:ifi>=ztheni=i-z
5007 x2=xp(i):y2=yp(i):gosub5:next
5008 u=int(2*pi*r)
5009 fori=.tou:w=i/r
5010 x=int(xm+r*cos(w))
5011 y=int(ym-r*sin(w))
5012 gosub2:next:printd$" ";:gosub600
5028 n=4e2:r=88:xm=172.5:ym=140.5:f=2*pi/n
5029 poke2040,13:pokev+39,.:pokev+27,.:pokev+28,.:pokev+21,1:poketp,.
5030 fori=.ton-1:w=f*i
5040 x=int(xm+r*sin(w+w))
5050 y=int(ym-r*cos(w))
5060 xs%(i)=x:ys%(i)=y:gosub4:ifgthenreturn
5070 next
5091 fori=.ton-1:x=xs%(i):y=ys%(i):gosub4:ifgthenreturn
5095 next:goto5091
7000 data 32,126,124,226,123,97,255,236,108,127,225,251,98,252,254,160
7010 data sinuskurve,saturn,fraktal,"4*4-zeichensatz",pentagramm,ende
7100 data phmpaapbppaihaplaobakhaaaappaiaaohaeaamddaaaohgadampinhappaghajpaipa
7101 data ppaapippamheppaodoppamphjjaiipddaaihggaaaphpaaagjbaiaiaaaacc
7200 data fbffefkgjgjkkgjgjkffffffkgjgjkkgjgjkfbffeffaaaafnbnnmnhphhhhnbnn
7201 data mnhphhhhnbnnmnfaaaaffbffefkgjgjkkgjgjkffffffkgjgjkkgjgjkfbffef
7300 data 32,108,123,98,124,225,255,254,126,127,97,252,226,251,236,160
7310 data 1,3,14,6
7320 :
7330 data 04,"9876543210"
7340 data 06,"the quick"
7350 data 13,"brown fox"
7360 data 07,"jumps over"
7370 data 08," the lazy"
7380 data 02,"dog. * * *"
7999 :
9000 rem 2020 by neptun
9010 :
Alles anzeigen
Gruß,
Neptun