Hallo Leute,
und noch ein Programm von mir.
Würfelmuster:
Code
1 sys58648:poke53280,0:poke53281,9:b=4^5:f=53*b:poke214,11:fori=0to7:readw(i)
2 s(i)=val(mid$("03614725",i+1,1)):c(i)=5-9*(i>2):next:fory=0to24:forx=0to39
3 i=x-s(yand7)and7:pokeb,w(i):pokef+b,c(i):b=b+1:next:next:x$="cube pattern"
4 sys58640:printchr$(30)chr$(18)spc(2):fori=1tolen(x$):printmid$(x$,i,1)spc(42)
5 next:poke198,0:wait198,1:getx$:sys58648:end:data95,160,223,160,160,32,160,160
6 rem 2022 by neptun
Gruss,
Neptun