Ein kleiner Gruß in Programmform:
Code
- 10 goto60
- 20 fori=.to7:b=16*i+8:waitd,e:pokea,b:pokec,7
- 30 forj=6to.step-1:waitd,e:pokec,j:waitd,e,e:next:next:ifpeek(t)=.then20
- 40 fori=.to96:pokev+32,i:next:poket,.:waitt,1:poke56576,199:sys58784
- 50 pokev+32,11:pokev+33,.:printc$:poket,.:poke56,160:clr:end
- 60 poke56,160:clr:dimc(61e2):clr:poke56,32:clr:l=peek(2)+1and1:poke2,l
- 70 sys58784:v=53248:pokev+33,.:pokev+32,11:c$=chr$(147):a=v+24:c=v+22:d=v+17
- 80 dimb,i,j:e=128:t=198:u=255:m=24576:p=32704:g=1105:fori=ptop+62:pokei,.:next
- 90 deffnby(z)=asc(mid$(x$,z))+16*asc(mid$(x$,z+1))-g
- 100 readx$:fori=1tolen(x$)step2:pokep,fnby(i):p=p+1:next:pokev,160:pokev+1,130
- 110 pokev+39,3-2*l:fori=.to7:poke1024*(i+17)-8,u:next:pokev+23,u:pokev+29,u
- 120 printchr$(5)c$:pokev+21,1
- 130 poked,55:poke56576,198
- 140 dimc1(7),c2(7):fork=.to1:fori=.to7:readn:ifk=lthenc1(i)=n
- 150 next:next:fori=.to7:c2(i)=c1(i)+16*c1(i+1and7):next
- 180 q=.:fori=.to7:pokea,16*i+8:p=1024*(16+i)
- 190 fory=.to23:forx=.to39:pokep,c2(i+x+yand7):p=p+1:next:next
- 200 q=q+q+1:forj=m+itom+7679step8:pokej,q:next:next
- 210 w=.:f=-6*(l=0):pokev+21,.
- 220 fori=32256toi+511:pokei,u:next
- 230 fori=7to.step-1:pokev+39+i,f
- 240 p=1024*(17+i)-8:forj=0to7:pokep+j,248+j:next
- 250 r=v+i+i:x=88+(iand3)*48:poker,xandu:w=w+w-(x>u):poker+1,108+int(i/4)*42
- 260 next:pokev+16,w:pokev+21,u
- 270 b1=32256:s=v+2048:poke56334,.
- 280 poke1,51:fork=.to3:b2=b1+256*int(k/2)+(kand1)*3*10+6:readx$
- 290 fori=.tolen(x$)/2-1:b=s+8*fnby(2*i+1)
- 300 forj=b2+61*int(i/3)+itoj+3*7step3:pokej,peek(b):b=b+1:next:next:next
- 310 poke1,55:poke56334,1:x$=""
- 320 pokev+32,.:poket,.:goto20
- 330 rem spritedaten
- 340 data aiiiolaiejiiaickiiaickiiiickiiiioliijecciiffcciiffcciiccccii
- 350 rem farben 1
- 360 data 00,11,12,15,01,15,12,11
- 370 rem farben 2
- 380 data 02,08,07,05,03,14,06,04
- 390 rem text
- 400 data bmmimifioiakgmpicjfjnink,glelnkcmfidjfjdiiificjoi
- 410 data hjfjfioidjdiiifiakjidiii,gmcjpiiifiakpmdjejficjoi
- 420 rem 2020 by neptun
- 430 :
Gruß,
Neptun