Życie Wieczne

Piotr-246 · Gość

SCREEN 13
DIM bi$(0 TO 15)
DIM tablica(0 TO 512) AS LONG
DIM malatab(0 TO 64) AS LONG

REM dane elementow
bi$(0) = "0000000000000000" + "0000000000000000" + "1111111111111110" + "0000000100000000"
bi$(1) = "0111111101111111" + "0000111111110000" + "1000000100000010" + "0000000100000000"
bi$(2) = "0111111101111111" + "0000100000010000" + "1000000100000010" + "0000000100000000"
bi$(3) = "0111111101111111" + "0000100000010000" + "1000000100000010" + "0000000100000000"
bi$(4) = "0111111101111111" + "0000111111110000" + "1000000100000010" + "0111000100011100"
bi$(5) = "0111111101111111" + "0000000110000000" + "1000000100000010" + "0111000100011100"
bi$(6) = "0111111101111111" + "0000011111100000" + "1000000100000010" + "0111000100011100"
bi$(7) = "0111111101111111" + "0001111111111000" + "1000000100000010" + "0001001110010000"
bi$(8) = "0000000000000000" + "1111111111111111" + "1000010101000010" + "0000110001100000"
bi$(9) = "1111011111110111" + "0010000000000100" + "1000000100000010" + "0000000000000000"
bi$(10) = "1111011111110111" + "0010000000000100" + "1000000100000010" + "0000000000000000"
bi$(11) = "1111011111110111" + "0010000000000100" + "1000000100000010" + "0000000000000000"
bi$(12) = "1111011111110111" + "0010000000000100" + "1000000100000010" + "0000000000000000"
bi$(13) = "1111011111110111" + "0010000000000100" + "1000000100000010" + "0000000000000000"
bi$(14) = "1111011111110111" + "0010000000000100" + "1000000100000010" + "0000000000000000"
bi$(15) = "1111011111110111" + "0010000000000100" + "1111111111111110" + "0000000000000000"

FOR yb = 0 TO 15
FOR xb = 0 TO 63
znak$ = MID$(bi$(yb), xb + 1, 1)
znak = VAL(znak$)
COLOR 15 * znak: PSET (xb, yb)
NEXT xb
NEXT yb

REM dane elementow
bi$(0) = "1111111111111111" + "1111111111111111" + "0111111111111110" + "0111111100000000"
bi$(1) = "1000000000000001" + "0000000000000000" + "1000000000000001" + "0111111101111111"
bi$(2) = "1011111111111101" + "1111111111111111" + "1000000000001101" + "0111111101111111"
bi$(3) = "1010000000000101" + "0000000000000000" + "1000000000000101" + "0111111101111111"
bi$(4) = "1010111111110101" + "1111111111111111" + "1000000000000001" + "0000000001111111"
bi$(5) = "1010100000010101" + "0000000000000000" + "1000000000000001" + "0111111101111111"
bi$(6) = "1010101111010101" + "1111111111111111" + "1000000000000001" + "0111111101111111"
bi$(7) = "1010101001010101" + "0000000000000000" + "1000000000000001" + "0111111101111111"
bi$(8) = "1010101001010101" + "1111111111111111" + "1000000000000001" + "0111111100000000"
bi$(9) = "1010101111010101" + "0000000000000000" + "1000000000000001" + "0111111101111111"
bi$(10) = "1010100000010101" + "1111111111111111" + "1000000000000001" + "0111111101111111"
bi$(11) = "1010111111110101" + "0000000000000000" + "1000000000000001" + "0111111101111111"
bi$(12) = "1010000000000101" + "1111111111111111" + "1010000000000001" + "0000000001111111"
bi$(13) = "1011111111111101" + "0000000000000000" + "1011000000000001" + "0111111101111111"
bi$(14) = "1000000000000001" + "1111111111111111" + "1000000000000001" + "0111111101111111"
bi$(15) = "1111111111111111" + "0000000000000000" + "0111111111111110" + "0111111101111111"

FOR yb = 0 TO 15
FOR xb = 0 TO 63
znak$ = MID$(bi$(yb), xb + 1, 1)
znak = VAL(znak$)
COLOR 15 * znak: PSET (xb + 64, yb)
NEXT xb
NEXT yb
GET (0, 0)-(127, 15), tablica
GET (0, 0)-(15, 15), malatab

FOR powt = 1 TO 200

pozycja = RND(1) * 7
p4 = INT(pozycja) * 4
FOR yy = 0 TO 15
FOR xx = 0 TO 3
malatab(1 + xx + yy * 4) = tablica(1 + p4 + xx + yy * 32)
NEXT xx
NEXT yy
PUT (RND(1) * 300, RND(1) * 150), malatab, PSET
NEXT powt