1 Temat przez Lizard

  • Skąd: Syreni Gród
  • Zarejestrowany: 2003-05-16
  • Posty: 1,564

Tym razem zaszczyt postąpienia zgodnie ze starą, świecką tradycją przypadł mi, więc czas najwyższy, aby oznajmić, zakomunikować, zapowiedzieć, ujawnić, zaanonsować, upublicznić, ogłosić, rozgłosić, obwieścić nie tylko ubi, ale także et orbi.

Startujemy 29 marca o 18:00 czasu forumowego - to już będzie letni, więc godzinę wcześniej. Kończymy 1 kwietnia o 23:59. Tę ostatnią minutę poświęcimy na wspólne pogratulowanie sobie dobrze wykonaniej, nikomu niepotrzebnej roboty.

Zasady się nie zmieniły.

Zawsze mam rację, tylko nikt mnie nie słucha.

2 Odpowiedź przez seban

  • seban
  • seban
  • Podkasetarz
  • Nieaktywny
  • Skąd: -oo
  • Zarejestrowany: 2002-07-13
  • Posty: 3,145

O! Notuję termin, spróbuję nie zapomnieć ;-)

GitHUB: https://github.com/seban-slt

seban's Strona

3 Odpowiedź przez Lizard

  • Skąd: Syreni Gród
  • Zarejestrowany: 2003-05-16
  • Posty: 1,564

Czas się zaczął... cofać. Motywem przewodnim niech będzie powrót do przyszłości. A jak powrót, to wiadomo, że jesteśmy na końcu. ;-)

1 REM Prima Aprilis Compo 2026
2 REM by Lizard
32767 END
Zawsze mam rację, tylko nikt mnie nie słucha.

4 Odpowiedź przez mono Ostatnio edytowany przez mono (Dzisiaj 18:10:36)

  • mono
  • Podkasetarz
  • Nieaktywny
  • Skąd: inąd
  • Zarejestrowany: 2007-08-20
  • Posty: 3,040
20000 ? "BACK TO THE FUTURE..."

30000 POKE 752,1:FDA=256*PEEK(756)+8*16:FOR N=9 TO 0 STEP -1:FOR B=0 TO 7:FDB=PEEK(FDA+8*N+B)
30010 IF FDB>0 THEN ? CHR$(32+64*(FDB>=128));:FDB=(FDB-128*(FDB>=128))*2:GOTO 30010
30020 ?:NEXT B:NEXT N

32759 END

32760 REM Prima Aprilis Compo 2026
32762 REM by Lizard, Mono

Edit: Przepraszam, ciut lepiej.

Post's attachments

PA2026.LST 307 b, liczba pobrań: 1 (od 2026-03-29) 

Tylko zalogowani mogą pobierać załączniki.
hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

mono's Strona

5 Odpowiedź przez tbxx

  • tbxx
  • Przechodzień
  • Nieaktywny
  • Zarejestrowany: 2014-11-02
  • Posty: 3

20005 FOR I=0 TO 200:NEXT I: GRAPHICS 0
30005 POKE 623,64
32762 REM by Lizard, Mono, tbxx

6 Odpowiedź przez dely

  • dely
  • dely
  • Kierownik Zamieszania
  • Nieaktywny
  • Skąd: Radom
  • Zarejestrowany: 2002-03-08
  • Posty: 7,164

Proszę o dopisywanie się do listingu, wstawiania go w całości i stosowaniu tagu [ code ] [ / code ]

20000 ? "BACK TO THE FUTURE..."
20005 FOR I=0 TO 200:NEXT I: GRAPHICS 0
30000 GRAPHICS 0:POKE 752,1:FDA=256*PEEK(756)+16*8
30004 POKE 623,64
30005 FOR N=9 TO 0 STEP -1:Y=8
30010 FOR B=0 TO 7:FDB=PEEK(FDA+N*8+B):X=16:POSITION X,Y
30015 FOR BIT=0 TO 7:? CHR$(32+64*(FDB>=128));:FDB=(FDB-128*(FDB>=128))*2:NEXT BIT
30020 Y=Y+1:NEXT B
30025 FOR W=1 TO 500:NEXT W:NEXT N
32758 POKE 752,0: GRAPHICS 0
32759 END
32760 REM Prima Aprilis Compo 2026
32762 REM by Lizard, Mono, tbxx, dely
Czy możecie wyjaśnić, Stirlitz, dlaczego wasz służbowy adres stirlitz@rsha.gov.de ma aliasa justas@gru.su?
Nie czytam PM. Proszę używać e-mail.

dely's Strona