Życie Wieczne
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Życie Wieczne Strona Główna
->
Offtopic
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
----------------
Ogólna dyskusja
Kościół rzymsko katolicki
Biblia
Objawienia
Własne przemyślenia
Inne religie i ateizm
Nasza twórczość
Offtopic
Przegląd tematu
<table border="0" cellpadding="3" cellspacing="1" width="100%" class="forumline"> <tr> <th class="thCornerL" width="22%" height="26">Autor</th> <th class="thCornerR">Wiadomość</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 19:10, 18 Wrz 2021<span class="gen"> </span> Temat postu: Zbiór grafiki</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">SCREEN 13 <br />DIM bi$(0 TO 15) <br />DIM tablica(0 TO 512) AS LONG <br />DIM malatab(0 TO 64) AS LONG <br /> <br />REM dane elementow <br />bi$(0) = "0000000000000000" + "0000000000000000" + "1111111111111110" + "0000000100000000" <br />bi$(1) = "0111111101111111" + "0000111111110000" + "1000000100000010" + "0000000100000000" <br />bi$(2) = "0111111101111111" + "0000100000010000" + "1000000100000010" + "0000000100000000" <br />bi$(3) = "0111111101111111" + "0000100000010000" + "1000000100000010" + "0000000100000000" <br />bi$(4) = "0111111101111111" + "0000111111110000" + "1000000100000010" + "0111000100011100" <br />bi$(5) = "0111111101111111" + "0000000110000000" + "1000000100000010" + "0111000100011100" <br />bi$(6) = "0111111101111111" + "0000011111100000" + "1000000100000010" + "0111000100011100" <br />bi$(7) = "0111111101111111" + "0001111111111000" + "1000000100000010" + "0001001110010000" <br />bi$(8) = "0000000000000000" + "1111111111111111" + "1000010101000010" + "0000110001100000" <br />bi$(9) = "1111011111110111" + "0010000000000100" + "1000000100000010" + "0000000000000000" <br />bi$(10) = "1111011111110111" + "0010000000000100" + "1000000100000010" + "0000000000000000" <br />bi$(11) = "1111011111110111" + "0010000000000100" + "1000000100000010" + "0000000000000000" <br />bi$(12) = "1111011111110111" + "0010000000000100" + "1000000100000010" + "0000000000000000" <br />bi$(13) = "1111011111110111" + "0010000000000100" + "1000000100000010" + "0000000000000000" <br />bi$(14) = "1111011111110111" + "0010000000000100" + "1000000100000010" + "0000000000000000" <br />bi$(15) = "1111011111110111" + "0010000000000100" + "1111111111111110" + "0000000000000000" <br /> <br />FOR yb = 0 TO 15 <br />FOR xb = 0 TO 63 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br /> <br />REM dane elementow <br />bi$(0) = "1111111111111111" + "1111111111111111" + "0111111111111110" + "0111111100000000" <br />bi$(1) = "1000000000000001" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(2) = "1011111111111101" + "1111111111111111" + "1000000000001101" + "0111111101111111" <br />bi$(3) = "1010000000000101" + "0000000000000000" + "1000000000000101" + "0111111101111111" <br />bi$(4) = "1010111111110101" + "1111111111111111" + "1000000000000001" + "0000000001111111" <br />bi$(5) = "1010100000010101" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(6) = "1010101111010101" + "1111111111111111" + "1000000000000001" + "0111111101111111" <br />bi$(7) = "1010101001010101" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(8) = "1010101001010101" + "1111111111111111" + "1000000000000001" + "0111111100000000" <br />bi$(9) = "1010101111010101" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(10) = "1010100000010101" + "1111111111111111" + "1000000000000001" + "0111111101111111" <br />bi$(11) = "1010111111110101" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(12) = "1010000000000101" + "1111111111111111" + "1010000000000001" + "0000000001111111" <br />bi$(13) = "1011111111111101" + "0000000000000000" + "1011000000000001" + "0111111101111111" <br />bi$(14) = "1000000000000001" + "1111111111111111" + "1000000000000001" + "0111111101111111" <br />bi$(15) = "1111111111111111" + "0000000000000000" + "0111111111111110" + "0111111101111111" <br /> <br />FOR yb = 0 TO 15 <br />FOR xb = 0 TO 63 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb + 64, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(127, 15), tablica <br />GET (0, 0)-(15, 15), malatab <br /> <br />FOR powt = 1 TO 200 <br /> <br />pozycja = RND(1) * 7 <br />p4 = INT(pozycja) * 4 <br />FOR yy = 0 TO 15 <br />FOR xx = 0 TO 3 <br />malatab(1 + xx + yy * 4) = tablica(1 + p4 + xx + yy * 32) <br />NEXT xx <br />NEXT yy <br />PUT (RND(1) * 300, RND(1) * 150), malatab, PSET <br /> NEXT powt</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </table>
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj