Scroll poziomy.

Tamtego wieczoru się nie udało, ale dziś, jak wszyscy już śpią, mogę chwilę się pobawić. Przykłady w książkach Ziętary być może nie były bezpośrednio jego autorstwa, ale jednak były bardzo fajne.

Poniżej przykład scrollowania poziomego i coś podobnego w Action!

100 POKE 82,0:GRAPHICS 0:FOR I=1 TO 92:? I,"   ";:NEXT I
110 DL=PEEK(560)+256*PEEK(561)
120 POKE 54276,7
130 FOR I=DL+10 TO DL+20:POKE I,PEEK(I)+16:NEXT I
140 FOR K=1 TO 10:FOR J=7 TO 0 STEP -1
150 POKE 54276,J:GOSUB 300
160 NEXT J:NEXT K
170 FOR K=1 TO 20:FOR J=7 TO 0 STEP -1
180 POKE 54276,J
190 NEXT J:NEXT K:J=7
200 POKE 54276,J:J=J-1
210 IF J>=0 THEN 200
220 J=7:L=PEEK(DL+4):H=PEEK(DL+5):L=L+2
230 IF L>255 THEN L=L-256:H=H+1
240 IF H>255 THEN POKE 82,2:GRAPHICS 0:END
250 POKE DL+4,L:POKE DL+5,H:GOTO 200
300 FOR I=1 TO 100:NEXT I:RETURN

 

proc delay()
 int i for i=0 to 500 do od
 return

proc main()

byte lmarg=82
int i, j, k
card dl=560, hscrol=54276
byte pointer ptr
card pointer p

lmarg=0 graphics(0)

for i=10 to 92 do
 printf("%I         ", i)
od

hscrol=7
ptr=dl+10

for i=10 to 20 do
 ptr^==+16
 ptr==+1
od

for k=1 to 10 do
 for j=7 to 0 step -1 do
  hscrol=j delay()
 od
od

for k=1 to 20 do
 for j=7 to 0 step -1 do
  hscrol=j
 od
od

j=7 p=dl+4
do
 hscrol=j
 j==-1
 if j<0 then
  j=7
  p^==+2
  if p^ > 65530 then
   lmarg=2 graphics(0)
   main()
  fi
 fi
delay()
od
return

Skomentuj

Wprowadź swoje dane lub kliknij jedną z tych ikon, aby się zalogować:

Logo WordPress.com

Komentujesz korzystając z konta WordPress.com. Log Out / Zmień )

Zdjęcie z Twittera

Komentujesz korzystając z konta Twitter. Log Out / Zmień )

Facebook photo

Komentujesz korzystając z konta Facebook. Log Out / Zmień )

Google+ photo

Komentujesz korzystając z konta Google+. Log Out / Zmień )

Connecting to %s