Życie Wieczne :: Przegląd tematu

Piotr-246 · Wysłany: Pon 13:15, 11 Sty 2021 Temat postu:

Teraz fazy ludzika idącego w górę lub w dół:

--------------------------------------------------------------------------

SCREEN 13

DIM VERTD1(0 TO 32) AS LONG
DIM VERTG1(0 TO 32) AS LONG

VERTD1(0) = &H100040
VERTG1(0) = &H100040

FOR I = 1 TO 16: READ a1$, a2$, a3$, a4$
VERTD1(I * 2) = VAL("&H" + a1$)
VERTD1(I * 2 - 1) = VAL("&H" + a2$)
VERTG1(I * 2) = VAL("&H" + a3$)
VERTG1(I * 2 - 1) = VAL("&H" + a4$)

NEXT I

DATA "00000008","08080000","00000008","08080000"
DATA "0000000F","0F0F0000","00000008","08080000"
DATA "0000000F","0F0F0000","00000008","08080000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "00000C0C","0C0C0C00","00000C0C","0C0C0C00"
DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C"
DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C"
DATA "000C000C","0C0C000C","000C000C","0C0C000C"
DATA "000F0008","0808000F","000F0008","0808000F"
DATA "0000000B","0B0B0000","0000000B","0B0B0000"
DATA "0000000B","000B0000","0000000B","000B0000"
DATA "0000000B","000B0000","0000000B","000B0000"
DATA "0000000B","000B0000","0000000B","000B0000"
DATA "0000000B","000B0000","0000000B","000B0000"
DATA "0000000B","000B0000","0000000B","000B0000"
DATA "00000707","00070700","00000707","00070700"

PUT (50, 50), VERTD1, PSET
PUT (100, 50), VERTG1, PSET

DIM VERTD2(0 TO 32) AS LONG
DIM VERTG2(0 TO 32) AS LONG

VERTD2(0) = &H100040
VERTG2(0) = &H100040

FOR I = 1 TO 16: READ a1$, a2$, a3$, a4$
VERTD2(I * 2) = VAL("&H" + a1$)
VERTD2(I * 2 - 1) = VAL("&H" + a2$)
VERTG2(I * 2) = VAL("&H" + a3$)
VERTG2(I * 2 - 1) = VAL("&H" + a4$)

NEXT I

DATA "00000008","08080000","00000008","08080000"
DATA "0000000F","0F0F0000","00000008","08080000"
DATA "0000000F","0F0F0000","00000008","08080000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "00000C0C","0C0C0C00","00000C0C","0C0C0C00"
DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C"
DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C"
DATA "000C000C","0C0C000C","000C000C","0C0C000C"
DATA "000F0008","0808000F","000F0008","0808000F"
DATA "0000000B","0B0B0000","0000000B","0B0B0000"
DATA "0000000B","000B0000","0000000B","000B0000"
DATA "0000000B","000B0000","0000000B","000B0000"
DATA "0000000B","000B0000","0000000B","000B0000"
DATA "0000000B","000B0000","0000000B","000B0000"
DATA "00000707","000B0000","00000707","000B0000"
DATA "00000000","00070700","00000000","00070700"

PUT (50, 70), VERTD2, PSET
PUT (100, 70), VERTG2, PSET

DIM VERTD3(0 TO 32) AS LONG
DIM VERTG3(0 TO 32) AS LONG

VERTD3(0) = &H100040
VERTG3(0) = &H100040

FOR I = 1 TO 16: READ a1$, a2$, a3$, a4$
VERTD3(I * 2) = VAL("&H" + a1$)
VERTD3(I * 2 - 1) = VAL("&H" + a2$)
VERTG3(I * 2) = VAL("&H" + a3$)
VERTG3(I * 2 - 1) = VAL("&H" + a4$)

NEXT I

DATA "00000008","08080000","00000008","08080000"
DATA "0000000F","0F0F0000","00000008","08080000"
DATA "0000000F","0F0F0000","00000008","08080000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "00000C0C","0C0C0C00","00000C0C","0C0C0C00"
DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C"
DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C"
DATA "000C000C","0C0C000C","000C000C","0C0C000C"
DATA "000F0008","0808000F","000F0008","0808000F"
DATA "0000000B","0B0B0000","0000000B","0B0B0000"
DATA "0000000B","000B0000","0000000B","000B0000"
DATA "0000000B","000B0000","0000000B","000B0000"
DATA "0000000B","000B0000","0000000B","000B0000"
DATA "0000000B","000B0000","0000000B","000B0000"
DATA "0000000B","00070700","0000000B","00070700"
DATA "00000707","00000000","00000707","00000000"

PUT (50, 90), VERTD3, PSET
PUT (100, 90), VERTG3, PSET

Piotr-246 · Wysłany: Nie 23:34, 10 Sty 2021 Temat postu:

Po uporządkowaniu programu zostałem przy 4 fazach ruchu:

-----------------------------------------------------

SCREEN 13
DIM znakp1(0 TO 32) AS LONG
DIM znakl1(0 TO 32) AS LONG
DIM znakp2(0 TO 32) AS LONG
DIM znakl2(0 TO 32) AS LONG
DIM znakp3(0 TO 32) AS LONG
DIM znakl3(0 TO 32) AS LONG
DIM znakp4(0 TO 32) AS LONG
DIM znakl4(0 TO 32) AS LONG

REM ************************* FAZA 1

znakp1(0) = &H100040
znakl1(0) = &H100040

FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$:
znakp1(i * 2) = VAL("&H" + a1$)
znakp1(i * 2 - 1) = VAL("&H" + a2$)
znakl1(i * 2) = VAL("&H" + a3$)
znakl1(i * 2 - 1) = VAL("&H" + a4$)
NEXT i

DATA "00000808","08000000","00000008","08080000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "0000000C","0C000000","0000000C","0C000000"
DATA "00000C0C","0C0C0000","00000C0C","0C0C0000"
DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00"
DATA "000C000C","0C0C0C00","000C0C0C","0C000C00"
DATA "000F0008","08080F00","000F0808","08000F00"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "00000B00","000B0000","00000B00","000B0000"
DATA "00000B00","000B0000","00000B00","000B0000"
DATA "0000000B","00000B00","000B0000","0B000000"
DATA "0000000B","00000B00","000B0000","0B000000"
DATA "00000707","00070707","07070700","07070000"

REM ************ FAZA 2

znakp2(0) = &H100040
znakl2(0) = &H100040

FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$:
znakp2(i * 2) = VAL("&H" + a1$)
znakp2(i * 2 - 1) = VAL("&H" + a2$)
znakl2(i * 2) = VAL("&H" + a3$)
znakl2(i * 2 - 1) = VAL("&H" + a4$)
NEXT i

DATA "00000808","08000000","00000008","08080000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "0000000C","0C000000","0000000C","0C000000"
DATA "00000C0C","0C0C0000","00000C0C","0C0C0000"
DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00"
DATA "000C000C","0C0C0C00","000C0C0C","0C000C00"
DATA "000F0008","08080F00","000F0808","08000F00"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "00000B0B","0B0B0000","00000B0B","0B0B0000"
DATA "00000B00","0B000000","0000000B","000B0000"
DATA "00000B0B","0B0B0B00","000B0B0B","0B0B0000"
DATA "0000000B","00000B07","070B0000","0B000000"
DATA "0000000B","00000700","00070000","0B000000"
DATA "00000707","00000000","00000000","07070000"

REM ************************************ FAZA 3

znakp3(0) = &H100040
znakl3(0) = &H100040

FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$:
znakp3(i * 2) = VAL("&H" + a1$)
znakp3(i * 2 - 1) = VAL("&H" + a2$)
znakl3(i * 2) = VAL("&H" + a3$)
znakl3(i * 2 - 1) = VAL("&H" + a4$)
NEXT i

DATA "00000808","08000000","00000008","08080000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "0000000C","0C000000","0000000C","0C000000"
DATA "00000C0C","0C0C0000","00000C0C","0C0C0000"
DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00"
DATA "000C000C","0C0C0C00","000C0C0C","0C000C00"
DATA "000F0008","08080F00","000F0808","08000F00"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "00000B0B","0B0B0000","00000B0B","0B0B0000"
DATA "000B0B00","0B000000","0000000B","000B0B00"
DATA "00000B0B","0B070700","0007070B","0B0B0000"
DATA "00000000","0B000700","0007000B","00000000"
DATA "00000000","0B000000","0000000B","00000000"
DATA "00000007","07070000","00000707","07000000"

REM ************************ FAZA 4

znakp4(0) = &H100040
znakl4(0) = &H100040

FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$:
znakp4(i * 2) = VAL("&H" + a1$)
znakp4(i * 2 - 1) = VAL("&H" + a2$)
znakl4(i * 2) = VAL("&H" + a3$)
znakl4(i * 2 - 1) = VAL("&H" + a4$)
NEXT i

DATA "00000808","08000000","00000008","08080000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "0000000C","0C000000","0000000C","0C000000"
DATA "00000C0C","0C0C0000","00000C0C","0C0C0000"
DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00"
DATA "000C000C","0C0C0C00","000C0C0C","0C000C00"
DATA "000F0008","08080F00","000F0808","08000F00"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "00000B0B","0B0B0000","00000B0B","0B0B0000"
DATA "000B0B00","0B000000","0000000B","000B0B00"
DATA "00000B0B","07000000","00000007","0B0B0000"
DATA "00000707","0B000000","0000000B","07070000"
DATA "00000000","000B0000","00000B00","00000000"
DATA "00000000","07070700","00070707","00000000"

FOR i = 1 TO 30
PUT (50, 20), znakp1, PSET
PUT (100, 20), znakl1, PSET
FOR j = 1 TO 5000: NEXT j
PUT (50, 20), znakp2, PSET
PUT (100, 40), znakl2, PSET
FOR j = 1 TO 5000: NEXT j
PUT (50, 20), znakp3, PSET
PUT (100, 60), znakl3, PSET
FOR j = 1 TO 5000: NEXT j
PUT (50, 20), znakp4, PSET
PUT (100, 80), znakl4, PSET
FOR j = 1 TO 5000: NEXT j

NEXT i

Piotr-246 · Wysłany: Nie 23:27, 10 Sty 2021 Temat postu:

Pięciostopniowa animacja- ludzi przebiera nogami:

SCREEN 13
DIM znakp(0 TO 32) AS LONG
DIM znakl(0 TO 32) AS LONG

znakp(0) = &H100040
znakl(0) = &H100040

FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$:
znakp(i * 2) = VAL("&H" + a1$)
znakp(i * 2 - 1) = VAL("&H" + a2$)
znakl(i * 2) = VAL("&H" + a3$)
znakl(i * 2 - 1) = VAL("&H" + a4$)
NEXT i

DATA "00000808","08000000","00000008","08080000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "0000000C","0C000000","0000000C","0C000000"
DATA "00000C0C","0C0C0000","00000C0C","0C0C0000"
DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00"
DATA "000C000C","0C0C0C00","000C0C0C","0C000C00"
DATA "000F0008","08080F00","000F0808","08000F00"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "00000B00","000B0000","00000B00","000B0000"
DATA "00000B00","000B0000","00000B00","000B0000"
DATA "0000000B","00000B00","000B0000","0B000000"
DATA "0000000B","00000B00","000B0000","0B000000"
DATA "00000707","00070707","07070700","07070000"

DIM znakp2(0 TO 32) AS LONG
DIM znakl2(0 TO 32) AS LONG

znakp2(0) = &H100040
znakl2(0) = &H100040

FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$:
znakp2(i * 2) = VAL("&H" + a1$)
znakp2(i * 2 - 1) = VAL("&H" + a2$)
znakl2(i * 2) = VAL("&H" + a3$)
znakl2(i * 2 - 1) = VAL("&H" + a4$)
NEXT i

DATA "00000808","08000000","00000008","08080000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "0000000C","0C000000","0000000C","0C000000"
DATA "00000C0C","0C0C0000","00000C0C","0C0C0000"
DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00"
DATA "000C000C","0C0C0C00","000C0C0C","0C000C00"
DATA "000F0008","08080F00","000F0808","08000F00"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "00000B0B","0B0B0000","00000B0B","0B0B0000"
DATA "00000B00","0B000000","0000000B","000B0000"
DATA "00000B0B","0B0B0B00","000B0B0B","0B0B0000"
DATA "0000000B","00000B07","070B0000","0B000000"
DATA "0000000B","00000700","00070000","0B000000"
DATA "00000707","00000000","00000000","07070000"

DIM znakp3(0 TO 32) AS LONG
DIM znakl3(0 TO 32) AS LONG

znakp3(0) = &H100040
znakl3(0) = &H100040

FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$:
znakp3(i * 2) = VAL("&H" + a1$)
znakp3(i * 2 - 1) = VAL("&H" + a2$)
znakl3(i * 2) = VAL("&H" + a3$)
znakl3(i * 2 - 1) = VAL("&H" + a4$)
NEXT i

DATA "00000808","08000000","00000008","08080000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "0000000C","0C000000","0000000C","0C000000"
DATA "00000C0C","0C0C0000","00000C0C","0C0C0000"
DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00"
DATA "000C000C","0C0C0C00","000C0C0C","0C000C00"
DATA "000F0008","08080F00","000F0808","08000F00"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "00000B0B","0B0B0000","00000B0B","0B0B0000"
DATA "000B0B00","0B000000","0000000B","000B0B00"
DATA "00000B0B","0B070700","0007070B","0B0B0000"
DATA "00000000","0B000700","0007000B","00000000"
DATA "00000000","0B000000","0000000B","00000000"
DATA "00000007","07070000","00000707","07000000"

DIM znakp4(0 TO 32) AS LONG
DIM znakl4(0 TO 32) AS LONG

znakp4(0) = &H100040
znakl4(0) = &H100040

FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$:
znakp4(i * 2) = VAL("&H" + a1$)
znakp4(i * 2 - 1) = VAL("&H" + a2$)
znakl4(i * 2) = VAL("&H" + a3$)
znakl4(i * 2 - 1) = VAL("&H" + a4$)
NEXT i

DATA "00000808","08000000","00000008","08080000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "0000000C","0C000000","0000000C","0C000000"
DATA "00000C0C","0C0C0000","00000C0C","0C0C0000"
DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00"
DATA "000C000C","0C0C0C00","000C0C0C","0C000C00"
DATA "000F0008","08080F00","000F0808","08000F00"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "00000B0B","0B0B0000","00000B0B","0B0B0000"
DATA "000B0B00","0B000000","0000000B","000B0B00"
DATA "00000B0B","0B070000","0000070B","0B0B0000"
DATA "00000000","07070000","00000707","00000000"
DATA "00000000","000B0000","00000B00","00000000"
DATA "00000000","07070700","00070707","00000000"

DIM znakp5(0 TO 32) AS LONG
DIM znakl5(0 TO 32) AS LONG

znakp5(0) = &H100040
znakl5(0) = &H100040

FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$:
znakp5(i * 2) = VAL("&H" + a1$)
znakp5(i * 2 - 1) = VAL("&H" + a2$)
znakl5(i * 2) = VAL("&H" + a3$)
znakl5(i * 2 - 1) = VAL("&H" + a4$)
NEXT i

DATA "00000808","08000000","00000008","08080000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "0000000C","0C000000","0000000C","0C000000"
DATA "00000C0C","0C0C0000","00000C0C","0C0C0000"
DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00"
DATA "000C000C","0C0C0C00","000C0C0C","0C000C00"
DATA "000F0008","08080F00","000F0808","08000F00"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "00000B0B","0B0B0000","00000B0B","0B0B0000"
DATA "000B0B00","0B000000","0000000B","000B0B00"
DATA "00000B0B","07000000","00000007","0B0B0000"
DATA "00000707","0B000000","0000000B","07070000"
DATA "00000000","000B0000","00000B00","00000000"
DATA "00000000","07070700","00070707","00000000"

FOR i = 1 TO 30
PUT (50, 20), znakp, PSET
PUT (100, 20), znakl, PSET
FOR j = 1 TO 5000: NEXT j
PUT (50, 20), znakp2, PSET
PUT (100, 40), znakl2, PSET
FOR j = 1 TO 5000: NEXT j
PUT (50, 20), znakp3, PSET
PUT (100, 60), znakl3, PSET
FOR j = 1 TO 5000: NEXT j
PUT (50, 20), znakp4, PSET
PUT (100, 80), znakl4, PSET
FOR j = 1 TO 5000: NEXT j

PUT (50, 20), znakp5, PSET
PUT (100, 100), znakl5, PSET
FOR j = 1 TO 5000: NEXT j

NEXT i

Piotr-246 · Wysłany: Nie 23:12, 10 Sty 2021 Temat postu:

Poniżej programik, który pokazuje kolejny etap rozwoju małej animacji.
Trzy fazy przebierania nogami ludzika:

-----------------------------------------------------------------

SCREEN 13
DIM znakp(0 TO 32) AS LONG
DIM znakl(0 TO 32) AS LONG

znakp(0) = &H100040
znakl(0) = &H100040

FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$:
znakp(i * 2) = VAL("&H" + a1$)
znakp(i * 2 - 1) = VAL("&H" + a2$)
znakl(i * 2) = VAL("&H" + a3$)
znakl(i * 2 - 1) = VAL("&H" + a4$)
NEXT i

DATA "00000808","08000000","00000008","08080000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "0000000C","0C000000","0000000C","0C000000"
DATA "00000C0C","0C0C0000","00000C0C","0C0C0000"
DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00"
DATA "000C000C","0C0C0C00","000C0C0C","0C000C00"
DATA "000F0008","08080F00","000F0808","08000F00"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "0000000B","000B0000","00000B00","0B000000"
DATA "00000B00","000B0000","00000B00","000B0000"
DATA "00000B00","000B0000","00000B00","000B0000"
DATA "0000000B","00000B00","000B0000","0B000000"
DATA "0000000B","00000B00","000B0000","0B000000"
DATA "00000707","00070707","07070700","07070000"

DIM znakp2(0 TO 32) AS LONG
DIM znakl2(0 TO 32) AS LONG

znakp2(0) = &H100040
znakl2(0) = &H100040

FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$:
znakp2(i * 2) = VAL("&H" + a1$)
znakp2(i * 2 - 1) = VAL("&H" + a2$)
znakl2(i * 2) = VAL("&H" + a3$)
znakl2(i * 2 - 1) = VAL("&H" + a4$)
NEXT i

DATA "00000808","08000000","00000008","08080000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "0000000C","0C000000","0000000C","0C000000"
DATA "00000C0C","0C0C0000","00000C0C","0C0C0000"
DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00"
DATA "000C000C","0C0C0C00","000C0C0C","0C000C00"
DATA "000F0008","08080F00","000F0808","08000F00"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "00000B0B","0B0B0000","00000B0B","0B0B0000"
DATA "000B0B00","0B000000","0000000B","000B0B00"
DATA "00000B0B","0B0B0B00","000B0B0B","0B0B0000"
DATA "0000000B","00000B07","070B0000","0B000000"
DATA "0000000B","00000700","00070000","0B000000"
DATA "00000707","00000000","00000000","07070000"

DIM znakp3(0 TO 32) AS LONG
DIM znakl3(0 TO 32) AS LONG

znakp3(0) = &H100040
znakl3(0) = &H100040

FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$:
znakp3(i * 2) = VAL("&H" + a1$)
znakp3(i * 2 - 1) = VAL("&H" + a2$)
znakl3(i * 2) = VAL("&H" + a3$)
znakl3(i * 2 - 1) = VAL("&H" + a4$)
NEXT i

DATA "00000808","08000000","00000008","08080000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "0000000C","0C000000","0000000C","0C000000"
DATA "00000C0C","0C0C0000","00000C0C","0C0C0000"
DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00"
DATA "000C000C","0C0C0C00","000C0C0C","0C000C00"
DATA "000F0008","08080F00","000F0808","08000F00"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "00000B0B","0B0B0000","00000B0B","0B0B0000"
DATA "000B0B00","0B000000","0000000B","000B0B00"
DATA "00000B0B","0B070700","0007070B","0B0B0000"
DATA "00000000","0B000700","0007000B","00000000"
DATA "00000000","0B000000","0000000B","00000000"
DATA "00000007","07070000","00000707","07000000"

FOR i = 1 TO 30
PUT (50, 100), znakp, PSET
PUT (100, 100), znakl, PSET
FOR j = 1 TO 5000: NEXT j
PUT (50, 100), znakp2, PSET
PUT (100, 100), znakl2, PSET
FOR j = 1 TO 5000: NEXT j
PUT (50, 100), znakp3, PSET
PUT (100, 100), znakl3, PSET
FOR j = 1 TO 5000: NEXT j

NEXT i

Piotr-246

[b]Animacja w QuickBasic[/b]

Poniższy programik to dopiero wstęp do stworzenia małej animacji.
Ludzik w dwóch wariantach, idący w lewo lub w prawo.

Dla ułatwienia, oba warianty kodowane są jednocześnie i umieszczone obok siebie w ciągach danych DATA.

SCREEN 13
DIM znakp(0 TO 32) AS LONG
DIM znakl(0 TO 32) AS LONG

znakp(0) = &H100040
znakl(0) = &H100040

FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$:
znakp(i * 2) = VAL("&H" + a1$)
znakp(i * 2 - 1) = VAL("&H" + a2$)
znakl(i * 2) = VAL("&H" + a3$)
znakl(i * 2 - 1) = VAL("&H" + a4$)
NEXT i

DATA "00000808","08000000","00000008","08080000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000F0F","0F000000","0000000F","0F0F0000"
DATA "00000000","0F000000","00000000","0F000000"
DATA "0000000C","0C000000","0000000C","0C000000"
DATA "00000C0C","0C0C0000","00000C0C","0C0C0000"
DATA "000C0C0C","0C0C0C00","000C0C0C","0C0C0C00"
DATA "000C000C","0C0C0C00","000C0C0C","0C000C00"
DATA "000F0008","08080F00","000F0808","08000F00"
DATA "0000000B","0B0B0000","00000B0B","0B000000"
DATA "0000000B","000B0000","00000B00","0B000000"
DATA "00000B00","000B0000","00000B00","000B0000"
DATA "00000B00","000B0000","00000B00","000B0000"
DATA "0000000B","00000B00","000B0000","0B000000"
DATA "0000000B","00000B00","000B0000","0B000000"
DATA "00000707","00070707","07070700","07070000"
PUT (50, 50), znakp
PUT (100, 50), znakl