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,146

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ń: 2 (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

7 Odpowiedź przez seban

  • seban
  • seban
  • Podkasetarz
  • Nieaktywny
  • Skąd: -oo
  • Zarejestrowany: 2002-07-13
  • Posty: 3,146
20000 GRAPHICS 0:POKE 752,1
20001 ? "BACK TO THE FUTURE..."
20002 SOUND 1,255,10,4:SOUND 2,254,10,3:GOSUB 32760
20003 FOR I=4 TO 0 STEP -0.1
20004 POKE 710,144+I:POKE 709,I*2
20005 NEXT I
30000 ? CHR$(125):POKE 623,64:FDA=256*PEEK(756)+16*8:?
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:GOSUB 32760:NEXT N
30032 REM -- THE WARP --
30033 GRAPHICS 10:POKE 559,0:FOR I=0 TO 7:POKE 705+I,2+I*2:NEXT I
30034 C=0:FOR Q=0 TO 31
30035 COLOR C:C=C+0.5:IF C>7 THEN C=1
30036 PLOT 32-Q,64-Q:DRAWTO 48+Q,64-Q:DRAWTO 48+Q,128+Q:DRAWTO 32-Q,128+Q:DRAWTO 32-Q,64-Q
30037 NEXT Q:C=0:POKE 559,34
30038 Q=PEEK(705):FOR I=0 TO 5:POKE 705+I,PEEK(706+I):SOUND 0,I+Q,8,15:NEXT I
30039 Q=Q+16:IF Q>255 THEN Q=Q-256:C=C+1
30040 POKE 711,Q:IF C<4 THEN 30038
30041 FOR I=0 TO 3:SOUND I,0,0,0:NEXT I:PUT #6,125:GOSUB 32760
30042 REM -- WARP DONE --
32758 POKE 752,0: GRAPHICS 0
32759 END
32760 FOR W=1 TO 400:NEXT W:RETURN
32761 REM Prima Aprilis Compo 2026
32762 REM by Lizard, Mono, tbxx, dely, Seban
Post's attachments

pa2026.lst 1.1 kb, nikt jeszcze nie pobierał tego pliku. 

Tylko zalogowani mogą pobierać załączniki.
GitHUB: https://github.com/seban-slt

seban's Strona