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

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 (Wczoraj 18:10:36)

  • mono
  • Podkasetarz
  • Nieaktywny
  • Skąd: inąd
  • Zarejestrowany: 2007-08-20
  • Posty: 3,041
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,149
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, liczba pobrań: 2 (od 2026-03-29) 

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

seban's Strona

8 Odpowiedź przez seban Ostatnio edytowany przez seban (Dzisiaj 11:01:36)

  • seban
  • seban
  • Podkasetarz
  • Nieaktywny
  • Skąd: -oo
  • Zarejestrowany: 2002-07-13
  • Posty: 3,149
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=1 TO 6: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 -- THE LOGO --
30043 RESTORE 31000:GRAPHICS 24:COLOR 1:POKE 765,1:POKE 712,15:POKE 710,15:POKE 709,0
30044 READ C,X,Y:IF C<0 THEN 30050
30045 SOUND 0,X,10,4:SOUND 1,Y,12,4
30046 IF C=0 THEN PLOT X,Y
30047 IF C=1 THEN DRAWTO X,Y
30048 IF C=2 THEN XIO 18,#6,12,0,"S:"
30049 GOTO 30044
30050 SOUND 0,0,0,0:SOUND 1,0,0,0: GOSUB 32760
30999 REM -- THE VECTOR DATA --
31000 DATA 0,153,2,1,171,2,1,171,127,1,153,127,1,153,2,0,177,2,1,185,2,1,185,23,1,186,23,1,186,33,1
31001 DATA 187,33,1,187,40,1,188,40,1,188,46,1,189,46,1,189,50,1,190,50,1,190,53,1,191,53,1,191,57,1
31002 DATA 192,57,1,192,60,1,193,60,1,193,62,1,194,62,1,194,65,1,195,65,1,195,67,1,196,67,1,196,69,1
31003 DATA 197,69,1,197,71,1,198,71,1,198,73,1,199,73,1,199,75,1,200,75,1,200,76,1,201,76,1,201,78,1
31004 DATA 202,78,1,202,80,1,203,80,1,203,81,1,204,81,1,204,82,1,205,82,1,205,84,1,206,84,1,206,85,1
31005 DATA 207,85,1,207,86,1,208,86,1,208,87,1,209,87,1,209,88,1,210,88,1,210,89,1,211,89,1,211,90,1
31006 DATA 212,90,1,212,91,1,213,91,1,213,92,1,214,92,1,214,93,1,215,93,1,215,94,1,216,94,1,216,95,1
31007 DATA 218,95,1,218,96,1,219,96,1,219,97,1,220,97,1,220,98,1,222,98,1,222,99,1,223,99,1,223,100
31008 DATA 1,225,100,1,225,101,1,227,101,1,227,102,1,229,102,1,229,103,1,231,103,1,231,104,1,233,104
31009 DATA 1,233,105,1,236,105,1,236,106,1,239,106,1,239,107,1,242,107,1,242,108,1,243,108,1,243,128
31010 DATA 1,240,128,1,240,127,1,235,127,1,235,126,1,231,126,1,231,125,1,227,125,1,227,124,1,225,124
31011 DATA 1,225,123,1,222,123,1,222,122,1,220,122,1,220,121,1,218,121,1,218,120,1,216,120,1,216,119
31012 DATA 1,214,119,1,214,118,1,212,118,1,212,117,1,211,117,1,211,116,1,209,116,1,209,115,1,208,115
31013 DATA 1,208,114,1,206,114,1,206,113,1,205,113,1,205,112,1,204,112,1,204,111,1,203,111,1,203,110
31014 DATA 1,202,110,1,202,109,1,200,109,1,200,108,1,199,108,1,199,107,1,198,107,1,198,106,1,197,106
31015 DATA 1,197,104,1,196,104,1,196,103,1,195,103,1,195,102,1,194,102,1,194,101,1,193,101,1,193,99
31016 DATA 1,192,99,1,192,98,1,191,98,1,191,96,1,190,96,1,190,95,1,189,95,1,189,93,1,188,93,1,188,91
31017 DATA 1,187,91,1,187,89,1,186,89,1,186,87,1,185,87,1,185,84,1,184,84,1,184,82,1,183,82,1,183,79
31018 DATA 1,182,79,1,182,75,1,181,75,1,181,71,1,180,71,1,180,66,1,179,66,1,179,60,1,178,60,1,178,50
31019 DATA 1,177,50,1,177,2,0,139,2,1,147,2,1,147,24,1,148,24,1,148,34,1,147,34,1,147,54,1,146,54,1
31020 DATA 146,61,1,145,61,1,145,67,1,144,67,1,144,72,1,143,72,1,143,76,1,142,76,1,142,80,1,141,80,1
31021 DATA 141,82,1,140,82,1,140,85,1,139,85,1,139,88,1,138,88,1,138,90,1,137,90,1,137,92,1,136,92,1
31022 DATA 136,93,1,135,93,1,135,95,1,134,95,1,134,97,1,133,97,1,133,98,1,132,98,1,132,100,1,131,100
31023 DATA 1,131,101,1,130,101,1,130,102,1,129,102,1,129,104,1,128,104,1,128,105,1,127,105,1,127,106
31024 DATA 1,126,106,1,126,107,1,125,107,1,125,108,1,124,108,1,124,109,1,123,109,1,123,110,1,122,110
31025 DATA 1,122,111,1,120,111,1,120,112,1,119,112,1,119,113,1,118,113,1,118,114,1,116,114,1,116,115
31026 DATA 1,115,115,1,115,116,1,114,116,1,114,117,1,112,117,1,112,118,1,110,118,1,110,119,1,109,119
31027 DATA 1,109,120,1,107,120,1,107,121,1,105,121,1,105,122,1,102,122,1,102,123,1,100,123,1,100,124
31028 DATA 1,97,124,1,97,125,1,94,125,1,94,126,1,90,126,1,90,127,1,84,127,1,84,128,1,82,128,1,82,107
31029 DATA 1,85,107,1,85,106,1,88,106,1,88,105,1,91,105,1,91,104,1,93,104,1,93,103,1,95,103,1,95,102
31030 DATA 1,97,102,1,97,101,1,99,101,1,99,100,1,101,100,1,101,99,1,102,99,1,102,98,1,104,98,1,104
31031 DATA 97,1,105,97,1,105,96,1,107,96,1,107,95,1,108,95,1,108,94,1,109,94,1,109,93,1,110,93,1,110
31032 DATA 92,1,111,92,1,111,91,1,112,91,1,112,90,1,114,90,1,114,89,1,115,89,1,115,87,1,116,87,1,116
31033 DATA 86,1,117,86,1,117,85,1,118,85,1,118,84,1,119,84,1,119,83,1,120,83,1,120,81,1,121,81,1,121
31034 DATA 80,1,122,80,1,122,78,1,123,78,1,123,77,1,124,77,1,124,75,1,125,75,1,125,73,1,126,73,1,126
31035 DATA 72,1,127,72,1,127,70,1,128,70,1,128,67,1,129,67,1,129,65,1,130,65,1,130,63,1,131,63,1,131
31036 DATA 60,1,132,60,1,132,57,1,133,57,1,133,54,1,134,54,1,134,51,1,135,51,1,135,47,1,136,47,1,136
31037 DATA 42,1,137,42,1,137,36,1,138,36,1,138,25,1,139,25,1,139,2,0,96,136,1,105,136,1,105,137,1
31038 DATA 106,137,1,106,138,1,107,138,1,107,141,1,108,141,1,108,144,1,109,144,1,109,147,1,110,147,1
31039 DATA 110,150,1,111,150,1,111,153,1,112,153,1,112,156,1,113,156,1,113,159,1,114,159,1,114,163,1
31040 DATA 115,163,1,115,166,1,116,166,1,116,169,1,117,169,1,117,172,1,118,172,1,118,175,1,119,175,1
31041 DATA 119,178,1,120,178,1,120,181,1,121,181,1,121,184,1,122,184,1,122,187,1,113,187,1,113,185,1
31042 DATA 112,185,1,112,182,1,111,182,1,111,178,1,110,178,1,110,176,1,91,176,1,91,179,1,90,179,1,90
31043 DATA 182,1,89,182,1,89,185,1,88,185,1,88,187,1,79,187,1,79,185,1,80,185,1,80,182,1,81,182,1,81
31044 DATA 179,1,82,179,1,82,176,1,83,176,1,83,173,1,84,173,1,84,170,1,85,170,1,85,167,1,86,167,1,86
31045 DATA 163,1,87,163,1,87,160,1,88,160,1,88,157,1,89,157,1,89,154,1,90,154,1,90,151,1,91,151,1,91
31046 DATA 148,1,92,148,1,92,145,1,93,145,1,93,142,1,94,142,1,94,138,1,95,138,1,95,137,1,96,137,1,96
31047 DATA 136,0,160,136,1,168,136,1,168,137,1,169,137,1,169,138,1,170,138,1,170,140,1,171,140,1,171
31048 DATA 143,1,172,143,1,172,146,1,173,146,1,173,149,1,174,149,1,174,152,1,175,152,1,175,156,1,176
31049 DATA 156,1,176,159,1,177,159,1,177,162,1,178,162,1,178,165,1,179,165,1,179,168,1,180,168,1,180
31050 DATA 171,1,181,171,1,181,174,1,182,174,1,182,177,1,183,177,1,183,180,1,184,180,1,184,183,1,185
31051 DATA 183,1,185,187,1,176,187,1,176,184,1,175,184,1,175,181,1,174,181,1,174,177,1,173,177,1,173
31052 DATA 176,1,155,176,1,155,177,1,154,177,1,154,180,1,153,180,1,153,183,1,152,183,1,152,186,1,151
31053 DATA 186,1,151,187,1,142,187,1,142,186,1,143,186,1,143,183,1,144,183,1,144,180,1,145,180,1,145
31054 DATA 177,1,146,177,1,146,174,1,147,174,1,147,171,1,148,171,1,148,168,1,149,168,1,149,165,1,150
31055 DATA 165,1,150,162,1,151,162,1,151,158,1,152,158,1,152,155,1,153,155,1,153,152,1,154,152,1,154
31056 DATA 149,1,155,149,1,155,146,1,156,146,1,156,143,1,157,143,1,157,140,1,158,140,1,158,137,1,160
31057 DATA 137,1,160,136,0,198,136,1,211,136,1,211,137,1,214,137,1,214,138,1,216,138,1,216,139,1,218
31058 DATA 139,1,218,140,1,219,140,1,219,141,1,221,141,1,221,143,1,222,143,1,222,144,1,223,144,1,223
31059 DATA 146,1,224,146,1,224,150,1,225,150,1,225,153,1,224,153,1,224,157,1,223,157,1,223,159,1,222
31060 DATA 159,1,222,161,1,221,161,1,221,162,1,220,162,1,220,163,1,219,163,1,219,164,1,218,164,1,218
31061 DATA 165,1,216,165,1,216,166,1,214,166,1,214,167,1,212,167,1,212,168,1,213,168,1,213,169,1,214
31062 DATA 169,1,214,171,1,215,171,1,215,172,1,216,172,1,216,173,1,217,173,1,217,174,1,218,174,1,218
31063 DATA 176,1,219,176,1,219,177,1,220,177,1,220,178,1,221,178,1,221,180,1,222,180,1,222,181,1,223
31064 DATA 181,1,223,182,1,224,182,1,224,183,1,225,183,1,225,185,1,226,185,1,226,186,1,227,186,1,227
31065 DATA 187,1,216,187,1,216,186,1,215,186,1,215,185,1,214,185,1,214,183,1,213,183,1,213,182,1,212
31066 DATA 182,1,212,181,1,211,181,1,211,179,1,210,179,1,210,178,1,209,178,1,209,177,1,208,177,1,208
31067 DATA 175,1,207,175,1,207,174,1,206,174,1,206,173,1,205,173,1,205,171,1,204,171,1,204,170,1,203
31068 DATA 170,1,203,169,1,202,169,1,202,162,1,203,162,1,203,161,1,207,161,1,207,160,1,211,160,1,211
31069 DATA 159,1,212,159,1,212,158,1,213,158,1,213,157,1,214,157,1,214,156,1,215,156,1,215,153,1,216
31070 DATA 153,1,216,150,1,215,150,1,215,148,1,214,148,1,214,147,1,213,147,1,213,146,1,212,146,1,212
31071 DATA 145,1,209,145,1,209,144,1,200,144,1,200,145,1,199,145,1,199,187,1,190,187,1,190,139,1,191
31072 DATA 139,1,191,138,1,194,138,1,194,137,1,198,137,1,198,136,0,116,136,1,148,136,1,148,144,1,137
31073 DATA 144,1,137,187,1,128,187,1,128,144,1,116,144,1,116,136,0,233,136,1,242,136,1,242,187,1,233
31074 DATA 187,1,233,136,0,101,148,1,100,148,1,100,150,1,99,150,1,99,153,1,98,153,1,98,156,1,97,156
31075 DATA 1,97,160,1,96,160,1,96,163,1,95,163,1,95,166,1,94,166,1,94,167,1,95,167,1,95,168,1,107
31076 DATA 168,1,107,165,1,106,165,1,106,162,1,105,162,1,105,159,1,104,159,1,104,156,1,103,156,1,103
31077 DATA 152,1,102,152,1,102,149,1,101,149,1,101,148,0,164,148,1,163,148,1,163,151,1,162,151,1,162
31078 DATA 154,1,161,154,1,161,157,1,160,157,1,160,161,1,159,161,1,159,164,1,158,164,1,158,168,1,170
31079 DATA 168,1,170,164,1,169,164,1,169,161,1,168,161,1,168,158,1,167,158,1,167,155,1,166,155,1,166
31080 DATA 152,1,165,152,1,165,149,1,164,149,1,164,148,0,142,2,2,143,2,0,142,3,2,143,3,0,142,4,2,143
31081 DATA 4,0,142,5,2,143,5,0,142,6,2,143,6,0,142,7,2,143,7,0,142,8,2,143,8,0,142,9,2,143,9,0,142
31082 DATA 10,2,143,10,0,142,11,2,143,11,0,142,12,2,143,12,0,142,13,2,143,13,0,142,14,2,143,14,0,142
31083 DATA 15,2,143,15,0,142,16,2,143,16,0,142,17,2,143,17,0,142,18,2,143,18,0,142,19,2,143,19,0,142
31084 DATA 20,2,143,20,0,142,21,2,143,21,0,142,22,2,143,22,0,142,23,2,143,23,0,142,24,2,143,24,0,141
31085 DATA 25,2,142,25,0,141,26,2,142,26,0,141,27,2,142,27,0,141,28,2,142,28,0,141,29,2,142,29,0,141
31086 DATA 30,2,142,30,0,141,31,2,142,31,0,141,32,2,142,32,0,141,33,2,142,33,0,141,34,2,142,34,0,141
31087 DATA 35,2,142,35,0,140,36,2,141,36,0,140,37,2,141,37,0,140,38,2,141,38,0,140,39,2,141,39,0,140
31088 DATA 40,2,141,40,0,140,41,2,141,41,0,139,42,2,140,42,0,139,43,2,140,43,0,139,44,2,140,44,0,139
31089 DATA 45,2,140,45,0,139,46,2,140,46,0,138,47,2,139,47,0,138,48,2,139,48,0,138,49,2,139,49,0,138
31090 DATA 50,2,139,50,0,137,51,2,138,51,0,137,52,2,138,52,0,137,53,2,138,53,0,136,54,2,137,54,0,136
31091 DATA 55,2,137,55,0,136,56,2,137,56,0,135,57,2,136,57,0,135,58,2,136,58,0,135,59,2,136,59,0,134
31092 DATA 60,2,135,60,0,134,61,2,135,61,0,134,62,2,135,62,0,133,63,2,134,63,0,133,64,2,134,64,0,132
31093 DATA 65,2,133,65,0,132,66,2,133,66,0,131,67,2,132,67,0,131,68,2,132,68,0,131,69,2,132,69,0,130
31094 DATA 70,2,131,70,0,130,71,2,131,71,0,129,72,2,130,72,0,128,73,2,129,73,0,128,74,2,129,74,0,127
31095 DATA 75,2,128,75,0,135,75,2,136,75,0,127,76,2,128,76,0,126,77,2,127,77,0,134,77,2,135,77,0,125
31096 DATA 78,2,126,78,0,133,78,2,134,78,0,125,79,2,126,79,0,133,79,2,134,79,0,124,80,2,125,80,0,132
31097 DATA 80,2,133,80,0,123,81,2,124,81,0,132,81,2,133,81,0,123,82,2,124,82,0,131,82,2,132,82,0,122
31098 DATA 83,2,123,83,0,131,83,2,132,83,0,121,84,2,122,84,0,130,84,2,131,84,0,120,85,2,121,85,0,129
31099 DATA 85,2,130,85,0,119,86,2,120,86,0,129,86,2,130,86,0,118,87,2,119,87,0,128,87,2,129,87,0,118
31100 DATA 88,2,119,88,0,128,88,2,129,88,0,117,89,2,118,89,0,127,89,2,128,89,0,115,90,2,116,90,0,126
31101 DATA 90,2,127,90,0,114,91,2,115,91,0,125,91,2,126,91,0,113,92,2,114,92,0,124,92,2,125,92,0,112
31102 DATA 93,2,113,93,0,123,93,2,124,93,0,111,94,2,112,94,0,123,94,2,124,94,0,110,95,2,111,95,0,122
31103 DATA 95,2,123,95,0,108,96,2,109,96,0,121,96,2,122,96,0,107,97,2,108,97,0,120,97,2,121,97,0,105
31104 DATA 98,2,106,98,0,118,98,2,119,98,0,104,99,2,105,99,0,118,99,2,119,99,0,102,100,2,103,100,0
31105 DATA 116,100,2,117,100,0,100,101,2,101,101,0,115,101,2,116,101,0,98,102,2,99,102,0,113,102,2
31106 DATA 114,102,0,96,103,2,97,103,0,112,103,2,113,103,0,94,104,2,95,104,0,111,104,2,112,104,0,91
31107 DATA 105,2,92,105,0,109,105,2,110,105,0,88,106,2,89,106,0,107,106,2,108,106,0,85,107,2,86,107
31108 DATA 0,105,107,2,106,107,0,85,108,2,86,108,0,104,108,2,105,108,0,85,109,2,86,109,0,104,109,2
31109 DATA 105,109,0,85,110,2,86,110,0,103,110,2,104,110,0,85,111,2,86,111,0,102,111,2,103,111,0,85
31110 DATA 112,2,86,112,0,102,112,2,103,112,0,85,113,2,86,113,0,101,113,2,102,113,0,85,114,2,86,114
31111 DATA 0,100,114,2,101,114,0,85,115,2,86,115,0,100,115,2,101,115,0,85,116,2,86,116,0,99,116,2
31112 DATA 100,116,0,85,117,2,86,117,0,98,117,2,99,117,0,85,118,2,86,118,0,97,118,2,98,118,0,85,119
31113 DATA 2,86,119,0,97,119,2,98,119,0,85,120,2,86,120,0,96,120,2,97,120,0,85,121,2,86,121,0,95,121
31114 DATA 2,96,121,0,85,122,2,86,122,0,93,122,2,94,122,0,85,123,2,86,123,0,85,124,2,86,124,0,85,125
31115 DATA 2,86,125,0,85,126,2,86,126,0,156,2,2,157,2,0,156,3,2,157,3,0,156,4,2,157,4,0,156,5,2,157
31116 DATA 5,0,156,6,2,157,6,0,156,7,2,157,7,0,156,8,2,157,8,0,156,9,2,157,9,0,156,10,2,157,10,0,156
31117 DATA 11,2,157,11,0,156,12,2,157,12,0,156,13,2,157,13,0,156,14,2,157,14,0,156,15,2,157,15,0,156
31118 DATA 16,2,157,16,0,156,17,2,157,17,0,156,18,2,157,18,0,156,19,2,157,19,0,156,20,2,157,20,0,156
31119 DATA 21,2,157,21,0,156,22,2,157,22,0,156,23,2,157,23,0,156,24,2,157,24,0,156,25,2,157,25,0,156
31120 DATA 26,2,157,26,0,156,27,2,157,27,0,156,28,2,157,28,0,156,29,2,157,29,0,156,30,2,157,30,0,156
31121 DATA 31,2,157,31,0,156,32,2,157,32,0,156,33,2,157,33,0,156,34,2,157,34,0,156,35,2,157,35,0,156
31122 DATA 36,2,157,36,0,156,37,2,157,37,0,156,38,2,157,38,0,156,39,2,157,39,0,156,40,2,157,40,0,156
31123 DATA 41,2,157,41,0,156,42,2,157,42,0,156,43,2,157,43,0,156,44,2,157,44,0,156,45,2,157,45,0,156
31124 DATA 46,2,157,46,0,156,47,2,157,47,0,156,48,2,157,48,0,156,49,2,157,49,0,156,50,2,157,50,0,156
31125 DATA 51,2,157,51,0,156,52,2,157,52,0,156,53,2,157,53,0,156,54,2,157,54,0,156,55,2,157,55,0,156
31126 DATA 56,2,157,56,0,156,57,2,157,57,0,156,58,2,157,58,0,156,59,2,157,59,0,156,60,2,157,60,0,156
31127 DATA 61,2,157,61,0,156,62,2,157,62,0,156,63,2,157,63,0,156,64,2,157,64,0,156,65,2,157,65,0,156
31128 DATA 66,2,157,66,0,156,67,2,157,67,0,156,68,2,157,68,0,156,69,2,157,69,0,156,70,2,157,70,0,156
31129 DATA 71,2,157,71,0,156,72,2,157,72,0,156,73,2,157,73,0,156,74,2,157,74,0,156,75,2,157,75,0,156
31130 DATA 76,2,157,76,0,156,77,2,157,77,0,156,78,2,157,78,0,156,79,2,157,79,0,156,80,2,157,80,0,156
31131 DATA 81,2,157,81,0,156,82,2,157,82,0,156,83,2,157,83,0,156,84,2,157,84,0,156,85,2,157,85,0,156
31132 DATA 86,2,157,86,0,156,87,2,157,87,0,156,88,2,157,88,0,156,89,2,157,89,0,156,90,2,157,90,0,156
31133 DATA 91,2,157,91,0,156,92,2,157,92,0,156,93,2,157,93,0,156,94,2,157,94,0,156,95,2,157,95,0,156
31134 DATA 96,2,157,96,0,156,97,2,157,97,0,156,98,2,157,98,0,156,99,2,157,99,0,156,100,2,157,100,0
31135 DATA 156,101,2,157,101,0,156,102,2,157,102,0,156,103,2,157,103,0,156,104,2,157,104,0,156,105,2
31136 DATA 157,105,0,156,106,2,157,106,0,156,107,2,157,107,0,156,108,2,157,108,0,156,109,2,157,109,0
31137 DATA 156,110,2,157,110,0,156,111,2,157,111,0,156,112,2,157,112,0,156,113,2,157,113,0,156,114,2
31138 DATA 157,114,0,156,115,2,157,115,0,156,116,2,157,116,0,156,117,2,157,117,0,156,118,2,157,118,0
31139 DATA 156,119,2,157,119,0,156,120,2,157,120,0,156,121,2,157,121,0,156,122,2,157,122,0,156,123,2
31140 DATA 157,123,0,156,124,2,157,124,0,156,125,2,157,125,0,156,126,2,157,126,0,180,2,2,181,2,0,180
31141 DATA 3,2,181,3,0,180,4,2,181,4,0,180,5,2,181,5,0,180,6,2,181,6,0,180,7,2,181,7,0,180,8,2,181,8
31142 DATA 0,180,9,2,181,9,0,180,10,2,181,10,0,180,11,2,181,11,0,180,12,2,181,12,0,180,13,2,181,13,0
31143 DATA 180,14,2,181,14,0,180,15,2,181,15,0,180,16,2,181,16,0,180,17,2,181,17,0,180,18,2,181,18,0
31144 DATA 180,19,2,181,19,0,180,20,2,181,20,0,180,21,2,181,21,0,180,22,2,181,22,0,180,23,2,181,23,0
31145 DATA 180,24,2,181,24,0,180,25,2,181,25,0,180,26,2,181,26,0,180,27,2,181,27,0,180,28,2,181,28,0
31146 DATA 180,29,2,181,29,0,180,30,2,181,30,0,180,31,2,181,31,0,180,32,2,181,32,0,180,33,2,181,33,0
31147 DATA 180,34,2,181,34,0,180,35,2,181,35,0,180,36,2,181,36,0,180,37,2,181,37,0,180,38,2,181,38,0
31148 DATA 180,39,2,181,39,0,180,40,2,181,40,0,180,41,2,181,41,0,180,42,2,181,42,0,180,43,2,181,43,0
31149 DATA 180,44,2,181,44,0,180,45,2,181,45,0,180,46,2,181,46,0,180,47,2,181,47,0,180,48,2,181,48,0
31150 DATA 180,49,2,181,49,0,181,50,2,182,50,0,181,51,2,182,51,0,181,52,2,182,52,0,181,53,2,182,53,0
31151 DATA 181,54,2,182,54,0,181,55,2,182,55,0,181,56,2,182,56,0,181,57,2,182,57,0,181,58,2,182,58,0
31152 DATA 181,59,2,182,59,0,182,60,2,183,60,0,182,61,2,183,61,0,182,62,2,183,62,0,182,63,2,183,63,0
31153 DATA 182,64,2,183,64,0,182,65,2,183,65,0,183,66,2,184,66,0,183,67,2,184,67,0,183,68,2,184,68,0
31154 DATA 183,69,2,184,69,0,183,70,2,184,70,0,184,71,2,185,71,0,184,72,2,185,72,0,184,73,2,185,73,0
31155 DATA 184,74,2,185,74,0,185,75,2,186,75,0,185,76,2,186,76,0,193,76,2,194,76,0,185,77,2,186,77,0
31156 DATA 193,77,2,194,77,0,185,78,2,186,78,0,193,78,2,194,78,0,186,79,2,187,79,0,194,79,2,195,79,0
31157 DATA 186,80,2,187,80,0,194,80,2,195,80,0,186,81,2,187,81,0,195,81,2,196,81,0,187,82,2,188,82,0
31158 DATA 196,82,2,197,82,0,187,83,2,188,83,0,196,83,2,197,83,0,188,84,2,189,84,0,197,84,2,198,84,0
31159 DATA 188,85,2,189,85,0,197,85,2,198,85,0,188,86,2,189,86,0,198,86,2,199,86,0,189,87,2,190,87,0
31160 DATA 199,87,2,200,87,0,189,88,2,190,88,0,199,88,2,200,88,0,190,89,2,191,89,0,200,89,2,201,89,0
31161 DATA 190,90,2,191,90,0,201,90,2,202,90,0,191,91,2,192,91,0,202,91,2,203,91,0,191,92,2,192,92,0
31162 DATA 202,92,2,203,92,0,192,93,2,193,93,0,203,93,2,204,93,0,192,94,2,193,94,0,204,94,2,205,94,0
31163 DATA 193,95,2,194,95,0,205,95,2,206,95,0,194,96,2,195,96,0,206,96,2,207,96,0,194,97,2,195,97,0
31164 DATA 207,97,2,208,97,0,195,98,2,196,98,0,208,98,2,209,98,0,196,99,2,197,99,0,209,99,2,210,99,0
31165 DATA 196,100,2,197,100,0,210,100,2,211,100,0,197,101,2,198,101,0,212,101,2,213,101,0,198,102,2
31166 DATA 199,102,0,213,102,2,214,102,0,199,103,2,200,103,0,215,103,2,216,103,0,200,104,2,201,104,0
31167 DATA 216,104,2,217,104,0,200,105,2,201,105,0,218,105,2,219,105,0,201,106,2,202,106,0,220,106,2
31168 DATA 221,106,0,202,107,2,203,107,0,222,107,2,223,107,0,203,108,2,204,108,0,223,108,2,224,108,0
31169 DATA 205,109,2,206,109,0,224,109,2,225,109,0,206,110,2,207,110,0,224,110,2,225,110,0,207,111,2
31170 DATA 208,111,0,225,111,2,226,111,0,208,112,2,209,112,0,225,112,2,226,112,0,209,113,2,210,113,0
31171 DATA 226,113,2,227,113,0,211,114,2,212,114,0,227,114,2,228,114,0,212,115,2,213,115,0,227,115,2
31172 DATA 228,115,0,214,116,2,215,116,0,228,116,2,229,116,0,215,117,2,216,117,0,229,117,2,230,117,0
31173 DATA 217,118,2,218,118,0,230,118,2,231,118,0,219,119,2,220,119,0,231,119,2,232,119,0,221,120,2
31174 DATA 222,120,0,232,120,2,233,120,0,223,121,2,224,121,0,233,121,2,234,121,0,225,122,2,226,122,0
31175 DATA 234,122,2,235,122,0,228,123,2,229,123,0,230,124,2,231,124,0,234,125,2,235,125,0,238,126,2
31176 DATA 239,126,0,99,136,2,100,136,0,98,137,2,99,137,0,97,138,2,98,138,0,97,139,2,98,139,0,97,140
31177 DATA 2,98,140,0,97,141,2,98,141,0,96,142,2,97,142,0,96,143,2,97,143,0,96,144,2,97,144,0,95,145
31178 DATA 2,96,145,0,95,146,2,96,146,0,95,147,2,96,147,0,94,148,2,95,148,0,104,148,2,105,148,0,94
31179 DATA 149,2,95,149,0,105,149,2,106,149,0,94,150,2,95,150,0,105,150,2,106,150,0,93,151,2,94,151
31180 DATA 0,105,151,2,106,151,0,93,152,2,94,152,0,106,152,2,107,152,0,93,153,2,94,153,0,106,153,2
31181 DATA 107,153,0,92,154,2,93,154,0,106,154,2,107,154,0,92,155,2,93,155,0,106,155,2,107,155,0,92
31182 DATA 156,2,93,156,0,107,156,2,108,156,0,91,157,2,92,157,0,107,157,2,108,157,0,91,158,2,92,158
31183 DATA 0,107,158,2,108,158,0,91,159,2,92,159,0,108,159,2,109,159,0,90,160,2,91,160,0,108,160,2
31184 DATA 109,160,0,90,161,2,91,161,0,108,161,2,109,161,0,90,162,2,91,162,0,109,162,2,110,162,0,89
31185 DATA 163,2,90,163,0,109,163,2,110,163,0,89,164,2,90,164,0,109,164,2,110,164,0,89,165,2,90,165
31186 DATA 0,110,165,2,111,165,0,89,166,2,90,166,0,110,166,2,111,166,0,88,167,2,89,167,0,110,167,2
31187 DATA 111,167,0,88,168,2,89,168,0,102,168,2,103,168,0,88,169,2,89,169,0,102,169,2,103,169,0,87
31188 DATA 170,2,88,170,0,102,170,2,103,170,0,87,171,2,88,171,0,102,171,2,103,171,0,87,172,2,88,172
31189 DATA 0,102,172,2,103,172,0,86,173,2,87,173,0,102,173,2,103,173,0,86,174,2,87,174,0,102,174,2
31190 DATA 103,174,0,86,175,2,87,175,0,102,175,2,103,175,0,85,176,2,86,176,0,113,176,2,114,176,0,85
31191 DATA 177,2,86,177,0,113,177,2,114,177,0,85,178,2,86,178,0,114,178,2,115,178,0,84,179,2,85,179
31192 DATA 0,114,179,2,115,179,0,84,180,2,85,180,0,114,180,2,115,180,0,84,181,2,85,181,0,114,181,2
31193 DATA 115,181,0,83,182,2,84,182,0,115,182,2,116,182,0,83,183,2,84,183,0,115,183,2,116,183,0,83
31194 DATA 184,2,84,184,0,115,184,2,116,184,0,82,185,2,83,185,0,116,185,2,117,185,0,82,186,2,83,186
31195 DATA 0,116,186,2,117,186,0,119,136,2,120,136,0,133,136,2,134,136,0,119,137,2,120,137,0,133,137
31196 DATA 2,134,137,0,119,138,2,120,138,0,133,138,2,134,138,0,119,139,2,120,139,0,133,139,2,134,139
31197 DATA 0,119,140,2,120,140,0,133,140,2,134,140,0,119,141,2,120,141,0,133,141,2,134,141,0,119,142
31198 DATA 2,120,142,0,133,142,2,134,142,0,119,143,2,120,143,0,133,143,2,134,143,0,131,144,2,132,144
31199 DATA 0,131,145,2,132,145,0,131,146,2,132,146,0,131,147,2,132,147,0,131,148,2,132,148,0,131,149
31200 DATA 2,132,149,0,131,150,2,132,150,0,131,151,2,132,151,0,131,152,2,132,152,0,131,153,2,132,153
31201 DATA 0,131,154,2,132,154,0,131,155,2,132,155,0,131,156,2,132,156,0,131,157,2,132,157,0,131,158
31202 DATA 2,132,158,0,131,159,2,132,159,0,131,160,2,132,160,0,131,161,2,132,161,0,131,162,2,132,162
31203 DATA 0,131,163,2,132,163,0,131,164,2,132,164,0,131,165,2,132,165,0,131,166,2,132,166,0,131,167
31204 DATA 2,132,167,0,131,168,2,132,168,0,131,169,2,132,169,0,131,170,2,132,170,0,131,171,2,132,171
31205 DATA 0,131,172,2,132,172,0,131,173,2,132,173,0,131,174,2,132,174,0,131,175,2,132,175,0,131,176
31206 DATA 2,132,176,0,131,177,2,132,177,0,131,178,2,132,178,0,131,179,2,132,179,0,131,180,2,132,180
31207 DATA 0,131,181,2,132,181,0,131,182,2,132,182,0,131,183,2,132,183,0,131,184,2,132,184,0,131,185
31208 DATA 2,132,185,0,131,186,2,132,186,0,163,136,2,164,136,0,161,137,2,162,137,0,161,138,2,162,138
31209 DATA 0,161,139,2,162,139,0,160,140,2,161,140,0,160,141,2,161,141,0,160,142,2,161,142,0,159,143
31210 DATA 2,160,143,0,159,144,2,160,144,0,159,145,2,160,145,0,158,146,2,159,146,0,158,147,2,159,147
31211 DATA 0,158,148,2,159,148,0,167,148,2,168,148,0,157,149,2,158,149,0,168,149,2,169,149,0,157,150
31212 DATA 2,158,150,0,168,150,2,169,150,0,157,151,2,158,151,0,168,151,2,169,151,0,156,152,2,157,152
31213 DATA 0,169,152,2,170,152,0,156,153,2,157,153,0,169,153,2,170,153,0,156,154,2,157,154,0,169,154
31214 DATA 2,170,154,0,155,155,2,156,155,0,170,155,2,171,155,0,155,156,2,156,156,0,170,156,2,171,156
31215 DATA 0,155,157,2,156,157,0,170,157,2,171,157,0,154,158,2,155,158,0,171,158,2,172,158,0,154,159
31216 DATA 2,155,159,0,171,159,2,172,159,0,154,160,2,155,160,0,171,160,2,172,160,0,154,161,2,155,161
31217 DATA 0,172,161,2,173,161,0,153,162,2,154,162,0,172,162,2,173,162,0,153,163,2,154,163,0,172,163
31218 DATA 2,173,163,0,153,164,2,154,164,0,173,164,2,174,164,0,152,165,2,153,165,0,173,165,2,174,165
31219 DATA 0,152,166,2,153,166,0,173,166,2,174,166,0,152,167,2,153,167,0,173,167,2,174,167,0,151,168
31220 DATA 2,152,168,0,165,168,2,166,168,0,151,169,2,152,169,0,165,169,2,166,169,0,151,170,2,152,170
31221 DATA 0,165,170,2,166,170,0,150,171,2,151,171,0,165,171,2,166,171,0,150,172,2,151,172,0,165,172
31222 DATA 2,166,172,0,150,173,2,151,173,0,165,173,2,166,173,0,149,174,2,150,174,0,165,174,2,166,174
31223 DATA 0,149,175,2,150,175,0,165,175,2,166,175,0,149,176,2,150,176,0,176,176,2,177,176,0,148,177
31224 DATA 2,149,177,0,177,177,2,178,177,0,148,178,2,149,178,0,177,178,2,178,178,0,148,179,2,149,179
31225 DATA 0,177,179,2,178,179,0,147,180,2,148,180,0,177,180,2,178,180,0,147,181,2,148,181,0,178,181
31226 DATA 2,179,181,0,147,182,2,148,182,0,178,182,2,179,182,0,146,183,2,147,183,0,178,183,2,179,183
31227 DATA 0,146,184,2,147,184,0,179,184,2,180,184,0,146,185,2,147,185,0,179,185,2,180,185,0,145,186
31228 DATA 2,146,186,0,179,186,2,180,186,0,201,136,2,202,136,0,197,137,2,198,137,0,205,137,2,206,137
31229 DATA 0,194,138,2,195,138,0,205,138,2,206,138,0,193,139,2,194,139,0,205,139,2,206,139,0,193,140
31230 DATA 2,194,140,0,206,140,2,207,140,0,193,141,2,194,141,0,207,141,2,208,141,0,193,142,2,194,142
31231 DATA 0,207,142,2,208,142,0,193,143,2,194,143,0,207,143,2,208,143,0,193,144,2,194,144,0,212,144
31232 DATA 2,213,144,0,193,145,2,194,145,0,215,145,2,216,145,0,193,146,2,194,146,0,216,146,2,217,146
31233 DATA 0,193,147,2,194,147,0,217,147,2,218,147,0,193,148,2,194,148,0,218,148,2,219,148,0,193,149
31234 DATA 2,194,149,0,218,149,2,219,149,0,193,150,2,194,150,0,219,150,2,220,150,0,193,151,2,194,151
31235 DATA 0,219,151,2,220,151,0,193,152,2,194,152,0,219,152,2,220,152,0,193,153,2,194,153,0,218,153
31236 DATA 2,219,153,0,193,154,2,194,154,0,218,154,2,219,154,0,193,155,2,194,155,0,218,155,2,219,155
31237 DATA 0,193,156,2,194,156,0,217,156,2,218,156,0,193,157,2,194,157,0,216,157,2,217,157,0,193,158
31238 DATA 2,194,158,0,215,158,2,216,158,0,193,159,2,194,159,0,214,159,2,215,159,0,193,160,2,194,160
31239 DATA 0,210,160,2,211,160,0,193,161,2,194,161,0,206,161,2,207,161,0,193,162,2,194,162,0,205,162
31240 DATA 2,206,162,0,193,163,2,194,163,0,205,163,2,206,163,0,193,164,2,194,164,0,205,164,2,206,164
31241 DATA 0,193,165,2,194,165,0,205,165,2,206,165,0,193,166,2,194,166,0,205,166,2,206,166,0,193,167
31242 DATA 2,194,167,0,205,167,2,206,167,0,193,168,2,194,168,0,205,168,2,206,168,0,193,169,2,194,169
31243 DATA 0,206,169,2,207,169,0,193,170,2,194,170,0,207,170,2,208,170,0,193,171,2,194,171,0,208,171
31244 DATA 2,209,171,0,193,172,2,194,172,0,208,172,2,209,172,0,193,173,2,194,173,0,209,173,2,210,173
31245 DATA 0,193,174,2,194,174,0,210,174,2,211,174,0,193,175,2,194,175,0,211,175,2,212,175,0,193,176
31246 DATA 2,194,176,0,211,176,2,212,176,0,193,177,2,194,177,0,212,177,2,213,177,0,193,178,2,194,178
31247 DATA 0,213,178,2,214,178,0,193,179,2,194,179,0,214,179,2,215,179,0,193,180,2,194,180,0,214,180
31248 DATA 2,215,180,0,193,181,2,194,181,0,215,181,2,216,181,0,193,182,2,194,182,0,216,182,2,217,182
31249 DATA 0,193,183,2,194,183,0,217,183,2,218,183,0,193,184,2,194,184,0,217,184,2,218,184,0,193,185
31250 DATA 2,194,185,0,218,185,2,219,185,0,193,186,2,194,186,0,219,186,2,220,186,0,236,136,2,237,136
31251 DATA 0,236,137,2,237,137,0,236,138,2,237,138,0,236,139,2,237,139,0,236,140,2,237,140,0,236,141
31252 DATA 2,237,141,0,236,142,2,237,142,0,236,143,2,237,143,0,236,144,2,237,144,0,236,145,2,237,145
31253 DATA 0,236,146,2,237,146,0,236,147,2,237,147,0,236,148,2,237,148,0,236,149,2,237,149,0,236,150
31254 DATA 2,237,150,0,236,151,2,237,151,0,236,152,2,237,152,0,236,153,2,237,153,0,236,154,2,237,154
31255 DATA 0,236,155,2,237,155,0,236,156,2,237,156,0,236,157,2,237,157,0,236,158,2,237,158,0,236,159
31256 DATA 2,237,159,0,236,160,2,237,160,0,236,161,2,237,161,0,236,162,2,237,162,0,236,163,2,237,163
31257 DATA 0,236,164,2,237,164,0,236,165,2,237,165,0,236,166,2,237,166,0,236,167,2,237,167,0,236,168
31258 DATA 2,237,168,0,236,169,2,237,169,0,236,170,2,237,170,0,236,171,2,237,171,0,236,172,2,237,172
31259 DATA 0,236,173,2,237,173,0,236,174,2,237,174,0,236,175,2,237,175,0,236,176,2,237,176,0,236,177
31260 DATA 2,237,177,0,236,178,2,237,178,0,236,179,2,237,179,0,236,180,2,237,180,0,236,181,2,237,181
31261 DATA 0,236,182,2,237,182,0,236,183,2,237,183,0,236,184,2,237,184,0,236,185,2,237,185,0,236,186
31262 DATA 2,237,186,-1,0,0
32758 POKE 752,0:GRAPHICS 0
32759 END 
32760 POKE 20,0
32761 IF PEEK(20)<64 THEN 32761
32762 RETURN
32763 REM Prima Aprilis Compo 2026
32764 REM by Lizard, Mono, tbxx, dely, Seban

EDIT:

1) Należy wczytywać z magnetofonu! :) Z załadowanym DOS-em mamy za mało pamięci aby odpalić tryby graficzne! ;-)
2) Używając emulatora można wczytywać z urządzenia "H:", bez załadowanego DOS-a ... wtedy MEMLO będzie na takim poziomie że wszystko się zmieści w pamięci.
3) Można napisać też pełnoprawny FLOOD-FILL (zamiast XIO 18) wtedy dane wektorów będzie można skrócić o 1/2 albo nawet 3/4.

Post's attachments

pa2026.cas 31.2 kb, liczba pobrań: 1 (od 2026-03-30) 

pa2026.lst 27.28 kb, liczba pobrań: 1 (od 2026-03-30) 

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

seban's Strona

9 Odpowiedź przez seban Ostatnio edytowany przez seban (Dzisiaj 12:34:01)

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

No dobra... z tym magnetofonem to żartowałem ;-) ... ale tylko trochę... 

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=1 TO 6: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 -- THE LOGO --
30043 RESTORE 31000:GRAPHICS 24:COLOR 1:POKE 765,1:POKE 712,15:POKE 710,15:POKE 709,0
30044 DIM S$(100):TRAP 30075
30045 READ S$:FOR I=1 TO LEN(S$) STEP 4
30046 V=0:FOR J=0 TO 3:C=ASC(S$(I+J,I+J))
30050 IF C<58 THEN D=C-48:GOTO 30052
30051 D=C-55
30052 V=V*32+D:NEXT J
30053 T=INT(V/4)
30061 CMD=V-T*4
30062 T=INT(V/4)
30063 X=T-INT(T/512)*512
30064 Y=INT(V/2048)
30065 SOUND 0,X,10,4:SOUND 1,Y,12,4
30070 IF CMD=0 THEN PLOT X,Y
30071 IF CMD=1 THEN DRAWTO X,Y
30072 IF CMD=2 THEN XIO 18,#6,12,0,"S:"
30073 NEXT I:GOTO 30045
30075 SOUND 0,0,0,0:SOUND 1,0,0,0: GOSUB 32760: GOSUB 32760
30999 REM -- THE VECTOR DATA (BASE32 ENCODED) --
31000 DATA 04J404LD7ULD7UJ504J504M404N51EN51EN922N922ND2GND2GNH2SNH2SNL34NL34NP3ANP3ANT3INT3IO1
31001 DATA 3OO13OO53SO53SO942O942OD46OD46OH4AOH4AOL4EOL4EOP4IOP4IOT4MOT4MP14OP14OP54SP54SP950P9
31002 DATA 50PD52PD52PH54PH54PL58PL58PP5APP5APT5CPT5CQ15EQ15EQ55GQ55GQ95IQ95IQD5KQD5KQH5MQH5MQL
31003 DATA 5OQL5OQP5QQP5QQT5SQT5SR15UR15UR960R960RD62RD62RH64RH64RP66RP66RT68RT68S56AS56ASD6CSD
31004 DATA 6CSL6ESL6EST6GST6GT56IT56ITH6KTH6KTT6MTT6MU96OU96OUD80UD80U17UU17UTD7STD7SST7QST7QSD
31005 DATA 7OSD7OS57MS57MRP7KRP7KRH7IRH7IR97GR97GR17ER17EQP7CQP7CQH7AQH7AQD78QD78Q576Q576Q174Q1
31006 DATA 74PP72PP72PL70PL70PH6UPH6UPD6SPD6SP96QP96QP16OP16OOT6MOT6MOP6KOP6KOL6GOL6GOH6EOH6EOD
31007 DATA 6COD6CO96AO96AO566O566O164O164NT60NT60NP5UNP5UNL5QNL5QNH5MNH5MND5IND5IN95EN95EN558N5
31008 DATA 58N154N154MT4UMT4UMP4MMP4MML4EML4EMH44MH44MD3OMD3OM934M934M504M504HC04ID1GID1GIH24IH
31009 DATA 24ID3CID3CI93QI93QI546I546I14GI14GHT4OHT4OHP50HP50HL54HL54HH5AHH5AHD5GHD5GH95KH95KH5
31010 DATA 5OH55OH15QH15QGT5UGT5UGP62GP62GL64GL64GH68GH68GD6AGD6AG96CG96CG56GG56GG16IG16IFT6KFT
31011 DATA 6KFP6MFP6MFL6OFL6OFH6QFH6QFD6SFD6SF96UF96UF170F170ET72ET72EP74EP74EH76EH76ED78ED78E9
31012 DATA 7AE97AE17CE17CDP7EDP7EDL7GDL7GDD7IDD7ID57KD57KCP7MCP7MCH7OCH7OC57QC57QBP7SBP7SB97UB9
31013 DATA 7UAH80AH80A96MA96MAL6KAL6KB16IB16IBD6GBD6GBL6EBL6EBT6CBT6CC56AC56ACD68CD68CL66CL66CP
31014 DATA 64CP64D162D162D560D560DD5UDD5UDH5SDH5SDL5QDL5QDP5ODP5ODT5MDT5ME15KE15KE95IE95IED5EED
31015 DATA 5EEH5CEH5CEL5AEL5AEP58EP58ET56ET56F152F152F550F550F94SF94SFD4QFD4QFH4MFH4MFL4IFL4IFP
31016 DATA 4GFP4GFT4CFT4CG146G146G542G542G93UG93UGD3OGD3OGH3IGH3IGL3CGL3CGP36GP36GT2UGT2UH12KH1
31017 DATA 2KH528H528H91IH91IHD04HD8GC08GD58ID58ID98KD98KDD8QDD8QDH90DH90DL96DL96DP9CDP9CDT9IDT
31018 DATA 9IE19OE19OE59UE59UE9A6E9A6EDACEDACEHAIEHAIELAOELAOEPAUEPAUETB4ETB4F1BAF1BAF5BGF5BGF9
31019 DATA BMF9BME5BIE5BIE1BCE1BCDTB4DTB4DPB0DPB0BDB6BDB6B9BCB9BCB5BIB5BIB1BMB1BM9TBI9TBIA1BCA1
31020 DATA BCA5B6A5B6A9B0A9B0ADAQADAQAHAKAHAKALAEALAEAPA6APA6ATA0ATA0B19QB19QB59KB59KB99EB99EBD
31021 DATA 98BD98BH92BH92BL8SBL8SBP8KBP8KBT8IBT8IC18GC18GK08GL18IL18IL58KL58KL98OL98OLD8ULD8ULH
31022 DATA 94LH94LL9ALL9ALP9GLP9GLT9OLT9OM19UM19UM5A4M5A4M9AAM9AAMDAGMDAGMHAMMHAMMLASMLASMPB2MP
31023 DATA B2MTB8MTB8N1BEN1BEN5BMN5BMM1BGM1BGLTBALTBALPB2LPB2LLB0LLB0JDB2JDB2J9B8J9B8J5BEJ5BEJ1
31024 DATA BKJ1BKITBMITBMHPBKHPBKHTBEHTBEI1B8I1B8I5B2I5B2I9ASI9ASIDAMIDAMIHAGIHAGILAAILAAIPA4IP
31025 DATA A4IT9SIT9SJ19MJ19MJ59GJ59GJ99AJ99AJD94JD94JH8UJH8UJL8OJL8OJP8IJP8IK18GK18GOO8GQD8IQD
31026 DATA 8IQP8KQP8KR18MR18MR98OR98ORD8QRD8QRL8URL8URP90RP90RT94RT94S19CS19CS59IS59IS19QS19QRT
31027 DATA 9URT9URPA2RPA2RLA4RLA4RHA6RHA6RDA8RDA8R9AAR9AAR1ACR1ACQPAEQPAEQHAGQHAGQLAIQLAIQPAMQP
31028 DATA AMQTAOQTAOR1AQR1AQR5ASR5ASR9B0R9B0RDB2RDB2RHB4RHB4RLB8RLB8RPBARPBARTBCRTBCS1BES1BES5
31029 DATA BIS5BIS9BKS9BKSDBMSDBMR1BKR1BKQTBIQTBIQPBEQPBEQLBCQLBCQHBAQHBAQDB6QDB6Q9B4Q9B4Q5B2Q5
31030 DATA B2Q1AUQ1AUPTASPTASPPAQPPAQPLAMPLAMPHAKPHAKPDAIPDAIP9A4P9A4PDA2PDA2PTA0PTA0QD9UQD9UQH
31031 DATA 9SQH9SQL9QQL9QQP9OQP9OQT9IQT9IR19CR19CQT98QT98QP96QP96QL94QL94QH92QH92Q590Q590P192P1
31032 DATA 92OTBMOTBMNP8MNP8MNT8KNT8KO98IO98IOP8GOP8GEG8GIH90IH90H5BMH5BMG190G190EH8GEH8GT48GU9
31033 DATA BMU9BMT58GT598CK98CH9CCH9CCD9ICD9IC99OC99OC5A0C5A0C1A6C1A6BTACBTACBPAEBPAEBTAGBTAGDD
31034 DATA AADDAAD9A4D9A4D59UD59UD19OD19OCT9GCT9GCP9ACP9ACL98CL98KG98KD9EKD9EK99KK99KK59QK59QK1
31035 DATA A2K1A2JTA8JTA8JPAGJPAGL9A8L9A8L5A2L5A2L19SL19SKT9MKT9MKP9GKP9GKL9AKL9AKH98KH04HO04HU
31036 DATA 06HO06HU08HO08HU0AHO0AHU0CHO0CHU0EHO0EHU0GHO0GHU0IHO0IHU0KHO0KHU0MHO0MHU0OHO0OHU0QHO
31037 DATA 0QHU0SHO0SHU0UHO0UHU10HO10HU12HO12HU14HO14HU16HO16HU18HO18HU1AHO1AHU1CHO1CHU1EHO1EHU
31038 DATA 1GHO1GHU1IHK1IHQ1KHK1KHQ1MHK1MHQ1OHK1OHQ1QHK1QHQ1SHK1SHQ1UHK1UHQ20HK20HQ22HK22HQ24HK
31039 DATA 24HQ26HK26HQ28HG28HM2AHG2AHM2CHG2CHM2EHG2EHM2GHG2GHM2IHG2IHM2KHC2KHI2MHC2MHI2OHC2OHI
31040 DATA 2QHC2QHI2SHC2SHI2UH82UHE30H830HE32H832HE34H834HE36H436HA38H438HA3AH43AHA3CH03CH63EH0
31041 DATA 3EH63GH03GH63IGS3IH23KGS3KH23MGS3MH23OGO3OGU3QGO3QGU3SGO3SGU3UGK3UGQ40GK40GQ42GG42GM
31042 DATA 44GG44GM46GC46GI48GC48GI4AGC4AGI4CG84CGE4EG84EGE4GG44GGA4IG04IG64KG04KG64MFS4MG24MGS
31043 DATA 4MH24OFS4OG24QFO4QFU4QGO4QGU4SFK4SFQ4SGK4SGQ4UFK4UFQ4UGK4UGQ50FG50FM50GG50GM52FC52FI
31044 DATA 52GG52GM54FC54FI54GC54GI56F856FE56GC56GI58F458FA58G858GE5AF05AF65AG45AGA5CES5CF25CG4
31045 DATA 5CGA5EEO5EEU5EG05EG65GEO5GEU5GG05GG65IEK5IEQ5IFS5IG25KEC5KEI5KFO5KFU5ME85MEE5MFK5MFQ
31046 DATA 5OE45OEA5OFG5OFM5QE05QE65QFC5QFI5SDS5SE25SFC5SFI5UDO5UDU5UF85UFE60DG60DM60F460FA62DC
31047 DATA 62DI62F062F664D464DA64EO64EU66D066D666EO66EU68CO68CU68EG68EM6ACG6ACM6AEC6AEI6CC86CCE
31048 DATA 6CE46CEA6EC06EC66EE06EE66GBO6GBU6GDS6GE26IBC6IBI6IDK6IDQ6KB06KB66KDC6KDI6MAK6MAQ6MD4
31049 DATA 6MDA6OAK6OAQ6OD06OD66QAK6QAQ6QD06QD66SAK6SAQ6SCS6SD26UAK6UAQ6UCO6UCU70AK70AQ70CO70CU
31050 DATA 72AK72AQ72CK72CQ74AK74AQ74CG74CM76AK76AQ76CG76CM78AK78AQ78CC78CI7AAK7AAQ7AC87ACE7CAK
31051 DATA 7CAQ7CC47CCA7EAK7EAQ7EC47ECA7GAK7GAQ7GC07GC67IAK7IAQ7IBS7IC27KAK7KAQ7KBK7KBQ7MAK7MAQ
31052 DATA 7OAK7OAQ7QAK7QAQ7SAK7SAQ04JG04JM06JG06JM08JG08JM0AJG0AJM0CJG0CJM0EJG0EJM0GJG0GJM0IJG
31053 DATA 0IJM0KJG0KJM0MJG0MJM0OJG0OJM0QJG0QJM0SJG0SJM0UJG0UJM10JG10JM12JG12JM14JG14JM16JG16JM
31054 DATA 18JG18JM1AJG1AJM1CJG1CJM1EJG1EJM1GJG1GJM1IJG1IJM1KJG1KJM1MJG1MJM1OJG1OJM1QJG1QJM1SJG
31055 DATA 1SJM1UJG1UJM20JG20JM22JG22JM24JG24JM26JG26JM28JG28JM2AJG2AJM2CJG2CJM2EJG2EJM2GJG2GJM
31056 DATA 2IJG2IJM2KJG2KJM2MJG2MJM2OJG2OJM2QJG2QJM2SJG2SJM2UJG2UJM30JG30JM32JG32JM34JG34JM36JG
31057 DATA 36JM38JG38JM3AJG3AJM3CJG3CJM3EJG3EJM3GJG3GJM3IJG3IJM3KJG3KJM3MJG3MJM3OJG3OJM3QJG3QJM
31058 DATA 3SJG3SJM3UJG3UJM40JG40JM42JG42JM44JG44JM46JG46JM48JG48JM4AJG4AJM4CJG4CJM4EJG4EJM4GJG
31059 DATA 4GJM4IJG4IJM4KJG4KJM4MJG4MJM4OJG4OJM4QJG4QJM4SJG4SJM4UJG4UJM50JG50JM52JG52JM54JG54JM
31060 DATA 56JG56JM58JG58JM5AJG5AJM5CJG5CJM5EJG5EJM5GJG5GJM5IJG5IJM5KJG5KJM5MJG5MJM5OJG5OJM5QJG
31061 DATA 5QJM5SJG5SJM5UJG5UJM60JG60JM62JG62JM64JG64JM66JG66JM68JG68JM6AJG6AJM6CJG6CJM6EJG6EJM
31062 DATA 6GJG6GJM6IJG6IJM6KJG6KJM6MJG6MJM6OJG6OJM6QJG6QJM6SJG6SJM6UJG6UJM70JG70JM72JG72JM74JG
31063 DATA 74JM76JG76JM78JG78JM7AJG7AJM7CJG7CJM7EJG7EJM7GJG7GJM7IJG7IJM7KJG7KJM7MJG7MJM7OJG7OJM
31064 DATA 7QJG7QJM7SJG7SJM04MG04MM06MG06MM08MG08MM0AMG0AMM0CMG0CMM0EMG0EMM0GMG0GMM0IMG0IMM0KMG
31065 DATA 0KMM0MMG0MMM0OMG0OMM0QMG0QMM0SMG0SMM0UMG0UMM10MG10MM12MG12MM14MG14MM16MG16MM18MG18MM
31066 DATA 1AMG1AMM1CMG1CMM1EMG1EMM1GMG1GMM1IMG1IMM1KMG1KMM1MMG1MMM1OMG1OMM1QMG1QMM1SMG1SMM1UMG
31067 DATA 1UMM20MG20MM22MG22MM24MG24MM26MG26MM28MG28MM2AMG2AMM2CMG2CMM2EMG2EMM2GMG2GMM2IMG2IMM
31068 DATA 2KMG2KMM2MMG2MMM2OMG2OMM2QMG2QMM2SMG2SMM2UMG2UMM30MG30MM32MG32MM34MK34MQ36MK36MQ38MK
31069 DATA 38MQ3AMK3AMQ3CMK3CMQ3EMK3EMQ3GMK3GMQ3IMK3IMQ3KMK3KMQ3MMK3MMQ3OMO3OMU3QMO3QMU3SMO3SMU
31070 DATA 3UMO3UMU40MO40MU42MO42MU44MS44N246MS46N248MS48N24AMS4AN24CMS4CN24EN04EN64GN04GN64IN0
31071 DATA 4IN64KN04KN64MN44MNA4ON44ONA4OO44OOA4QN44QNA4QO44QOA4SN44SNA4SO44SOA4UN84UNE4UO84UOE
31072 DATA 50N850NE50O850OE52N852NE52OC52OI54NC54NI54OG54OM56NC56NI56OG56OM58NG58NM58OK58OQ5ANG
31073 DATA 5ANM5AOK5AOQ5CNG5CNM5COO5COU5ENK5ENQ5EOS5EP25GNK5GNQ5GOS5GP25INO5INU5IP05IP65KNO5KNU
31074 DATA 5KP45KPA5MNS5MO25MP85MPE5ONS5OO25OP85OPE5QO05QO65QPC5QPI5SO05SO65SPG5SPM5UO45UOA5UPK
31075 DATA 5UPQ60O860OE60PO60PU62O862OE62PS62Q264OC64OI64Q064Q666OG66OM66Q466QA68OG68OM68Q868QE
31076 DATA 6AOK6AOQ6AQG6AQM6COO6COU6CQK6CQQ6EOS6EP26EQS6ER26GP06GP66GR06GR66IP06IP66IR86IRE6KP4
31077 DATA 6KPA6KRG6KRM6MP86MPE6MRO6MRU6OPC6OPI6ORS6OS26QPK6QPQ6QS06QS66SPO6SPU6SS06SS66UPS6UQ2
31078 DATA 6US46USA70Q070Q670S470SA72Q472QA72S872SE74QC74QI74SC74SI76QG76QM76SC76SI78QO78QU78SG
31079 DATA 78SM7AQS7AR27ASK7ASQ7CR47CRA7CSO7CSU7ERC7ERI7ESS7ET27GRK7GRQ7GT07GT67IRS7IS27IT47ITA
31080 DATA 7KS47KSA7KT87KTE7MSG7MSM7OSO7OSU7QT87QTE7STO7STU8GCC8GCI8IC88ICE8KC48KCA8MC48MCA8OC4
31081 DATA 8OCA8QC48QCA8SC08SC68UC08UC690C090C692BS92C294BS94C296BS96C298BO98BU98D098D69ABO9ABU
31082 DATA 9AD49ADA9CBO9CBU9CD49CDA9EBK9EBQ9ED49EDA9GBK9GBQ9GD89GDE9IBK9IBQ9ID89IDE9KBG9KBM9KD8
31083 DATA 9KDE9MBG9MBM9MD89MDE9OBG9OBM9ODC9ODI9QBC9QBI9QDC9QDI9SBC9SBI9SDC9SDI9UBC9UBI9UDG9UDM
31084 DATA A0B8A0BEA0DGA0DMA2B8A2BEA2DGA2DMA4B8A4BEA4DKA4DQA6B4A6BAA6DKA6DQA8B4A8BAA8DKA8DQAAB4
31085 DATA AABAAADOAADUACB4ACBAACDOACDUAEB0AEB6AEDOAEDUAGB0AGB6AGCOAGCUAIB0AIB6AICOAICUAKASAKB2
31086 DATA AKCOAKCUAMASAMB2AMCOAMCUAOASAOB2AOCOAOCUAQAOAQAUAQCOAQCUASAOASAUASCOASCUAUAOAUAUAUCO
31087 DATA AUCUB0AKB0AQB0E4B0EAB2AKB2AQB2E4B2EAB4AKB4AQB4E8B4EEB6AGB6AMB6E8B6EEB8AGB8AMB8E8B8EE
31088 DATA BAAGBAAMBAE8BAEEBCACBCAIBCECBCEIBEACBEAIBEECBEEIBGACBGAIBGECBGEIBIA8BIAEBIEGBIEMBKA8
31089 DATA BKAEBKEGBKEM8GES8GF28GGK8GGQ8IES8IF28IGK8IGQ8KES8KF28KGK8KGQ8MES8MF28MGK8MGQ8OES8OF2
31090 DATA 8OGK8OGQ8QES8QF28QGK8QGQ8SES8SF28SGK8SGQ8UES8UF28UGK8UGQ90GC90GI92GC92GI94GC94GI96GC
31091 DATA 96GI98GC98GI9AGC9AGI9CGC9CGI9EGC9EGI9GGC9GGI9IGC9IGI9KGC9KGI9MGC9MGI9OGC9OGI9QGC9QGI
31092 DATA 9SGC9SGI9UGC9UGIA0GCA0GIA2GCA2GIA4GCA4GIA6GCA6GIA8GCA8GIAAGCAAGIACGCACGIAEGCAEGIAGGC
31093 DATA AGGIAIGCAIGIAKGCAKGIAMGCAMGIAOGCAOGIAQGCAQGIASGCASGIAUGCAUGIB0GCB0GIB2GCB2GIB4GCB4GI
31094 DATA B6GCB6GIB8GCB8GIBAGCBAGIBCGCBCGIBEGCBEGIBGGCBGGIBIGCBIGIBKGCBKGI8GKC8GKI8IK48IKA8KK4
31095 DATA 8KKA8MK48MKA8OK08OK68QK08QK68SK08SK68UJS8UK290JS90K292JS92K294JO94JU96JO96JU98JO98JU
31096 DATA 98KS98L29AJK9AJQ9AL09AL69CJK9CJQ9CL09CL69EJK9EJQ9EL09EL69GJG9GJM9GL49GLA9IJG9IJM9IL4
31097 DATA 9ILA9KJG9KJM9KL49KLA9MJC9MJI9ML89MLE9OJC9OJI9OL89OLE9QJC9QJI9QL89QLE9SJ89SJE9SLC9SLI
31098 DATA 9UJ89UJE9ULC9ULIA0J8A0JEA0LCA0LIA2J8A2JEA2LGA2LMA4J4A4JAA4LGA4LMA6J4A6JAA6LGA6LMA8J4
31099 DATA A8JAA8LKA8LQAAJ0AAJ6AALKAALQACJ0ACJ6ACLKACLQAEJ0AEJ6AELKAELQAGISAGJ2AGKKAGKQAIISAIJ2
31100 DATA AIKKAIKQAKISAKJ2AKKKAKKQAMIOAMIUAMKKAMKQAOIOAOIUAOKKAOKQAQIOAQIUAQKKAQKQASIKASIQASKK
31101 DATA ASKQAUIKAUIQAUKKAUKQB0IKB0IQB0M0B0M6B2IGB2IMB2M4B2MAB4IGB4IMB4M4B4MAB6IGB6IMB6M4B6MA
31102 DATA B8ICB8IIB8M4B8MABAICBAIIBAM8BAMEBCICBCIIBCM8BCMEBEI8BEIEBEM8BEMEBGI8BGIEBGMCBGMIBII8
31103 DATA BIIEBIMCBIMIBKI4BKIABKMCBKMI8GP48GPA8IOK8IOQ8IPK8IPQ8KO88KOE8KPK8KPQ8MO48MOA8MPK8MPQ
31104 DATA 8OO48OOA8OPO8OPU8QO48QOA8QPS8QQ28SO48SOA8SPS8SQ28UO48UOA8UPS8UQ290O490OA90QG90QM92O4
31105 DATA 92OA92QS92R294O494OA94R094R696O496OA96R496RA98O498OA98R898RE9AO49AOA9AR89ARE9CO49COA
31106 DATA 9CRC9CRI9EO49EOA9ERC9ERI9GO49GOA9GRC9GRI9IO49IOA9IR89IRE9KO49KOA9KR89KRE9MO49MOA9MR8
31107 DATA 9MRE9OO49OOA9OR49ORA9QO49QOA9QR09QR69SO49SOA9SQS9SR29UO49UOA9UQO9UQUA0O4A0OAA0Q8A0QE
31108 DATA A2O4A2OAA2POA2PUA4O4A4OAA4PKA4PQA6O4A6OAA6PKA6PQA8O4A8OAA8PKA8PQAAO4AAOAAAPKAAPQACO4
31109 DATA ACOAACPKACPQAEO4AEOAAEPKAEPQAGO4AGOAAGPKAGPQAIO4AIOAAIPOAIPUAKO4AKOAAKPSAKQ2AMO4AMOA
31110 DATA AMQ0AMQ6AOO4AOOAAOQ0AOQ6AQO4AQOAAQQ4AQQAASO4ASOAASQ8ASQEAUO4AUOAAUQCAUQIB0O4B0OAB0QC
31111 DATA B0QIB2O4B2OAB2QGB2QMB4O4B4OAB4QKB4QQB6O4B6OAB6QOB6QUB8O4B8OAB8QOB8QUBAO4BAOABAQSBAR2
31112 DATA BCO4BCOABCR0BCR6BEO4BEOABER4BERABGO4BGOABGR4BGRABIO4BIOABIR8BIREBKO4BKOABKRCBKRI8GTG
31113 DATA 8GTM8ITG8ITM8KTG8KTM8MTG8MTM8OTG8OTM8QTG8QTM8STG8STM8UTG8UTM90TG90TM92TG92TM94TG94TM
31114 DATA 96TG96TM98TG98TM9ATG9ATM9CTG9CTM9ETG9ETM9GTG9GTM9ITG9ITM9KTG9KTM9MTG9MTM9OTG9OTM9QTG
31115 DATA 9QTM9STG9STM9UTG9UTMA0TGA0TMA2TGA2TMA4TGA4TMA6TGA6TMA8TGA8TMAATGAATMACTGACTMAETGAETM
31116 DATA AGTGAGTMAITGAITMAKTGAKTMAMTGAMTMAOTGAOTMAQTGAQTMASTGASTMAUTGAUTMB0TGB0TMB2TGB2TMB4TG
31117 DATA B4TMB6TGB6TMB8TGB8TMBATGBATMBCTGBCTMBETGBETMBGTGBGTMBITGBITMBKTGBKTM
31118 REM -- END OF VECTOR DATA --
32758 POKE 752,0:GRAPHICS 0
32759 END 
32760 POKE 20,0
32761 IF PEEK(20)<64 THEN 32761
32762 RETURN
32763 REM Prima Aprilis Compo 2026
32764 REM by Lizard, Mono, tbxx, dely, Seban

^^^ powyżej wersja z bardziej upakowanymi vector-data, niestety dekodowanie sporo spowalnia renderowanie, za to da się to załadować z DOS-em obecnym w pamięci ;D Miłego przepisywania listingu... szczególnie polecam sekcję DATA! :D

Post's attachments

pa2026.lst 12.82 kb, liczba pobrań: 3 (od 2026-03-30) 

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

seban's Strona

10 Odpowiedź przez mono

  • mono
  • Podkasetarz
  • Nieaktywny
  • Skąd: inąd
  • Zarejestrowany: 2007-08-20
  • Posty: 3,041

Przepiękne! A pomysł z trybem GTIA pierwszorzędny. Chyba w PAC jeszcze nie było sztandarowych trybów Atari.

hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje

mono's Strona

11 Odpowiedź przez seban

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

Wizualnie zmian praktycznie żadnych, jednak poprawiłem (wywaliłem śmieci + drobna optymalizacja) pęte dekodera BASE32/RENDER-era, wrzucam tylko dla porządku.

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=1 TO 6: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 -- THE LOGO --
30043 RESTORE 31000:GRAPHICS 24:COLOR 1:POKE 765,1:POKE 712,15:POKE 710,15:POKE 709,0
30044 DIM S$(100):TRAP 30075
30045 READ S$:FOR I=1 TO LEN(S$) STEP 4
30046 V=0:FOR J=0 TO 3:C=ASC(S$(I+J,I+J))
30050 C=C-48:IF C>9 THEN C=C-7
30052 V=V*32+C:NEXT J
30053 T=INT(V/4):C=V-T*4
30063 X=T-INT(T/512)*512
30064 Y=INT(V/2048)
30065 SOUND 0,X,10,4:SOUND 1,Y,12,4
30070 IF C=0 THEN PLOT X,Y
30071 IF C=1 THEN DRAWTO X,Y
30072 IF C=2 THEN XIO 18,#6,12,0,"S:"
30073 NEXT I:GOTO 30045
30075 SOUND 0,0,0,0:SOUND 1,0,0,0: GOSUB 32760: GOSUB 32760
30999 REM -- THE VECTOR DATA (BASE32 ENCODED) --
31000 DATA 04J404LD7ULD7UJ504J504M404N51EN51EN922N922ND2GND2GNH2SNH2SNL34NL34NP3ANP3ANT3INT3IO1
31001 DATA 3OO13OO53SO53SO942O942OD46OD46OH4AOH4AOL4EOL4EOP4IOP4IOT4MOT4MP14OP14OP54SP54SP950P9
31002 DATA 50PD52PD52PH54PH54PL58PL58PP5APP5APT5CPT5CQ15EQ15EQ55GQ55GQ95IQ95IQD5KQD5KQH5MQH5MQL
31003 DATA 5OQL5OQP5QQP5QQT5SQT5SR15UR15UR960R960RD62RD62RH64RH64RP66RP66RT68RT68S56AS56ASD6CSD
31004 DATA 6CSL6ESL6EST6GST6GT56IT56ITH6KTH6KTT6MTT6MU96OU96OUD80UD80U17UU17UTD7STD7SST7QST7QSD
31005 DATA 7OSD7OS57MS57MRP7KRP7KRH7IRH7IR97GR97GR17ER17EQP7CQP7CQH7AQH7AQD78QD78Q576Q576Q174Q1
31006 DATA 74PP72PP72PL70PL70PH6UPH6UPD6SPD6SP96QP96QP16OP16OOT6MOT6MOP6KOP6KOL6GOL6GOH6EOH6EOD
31007 DATA 6COD6CO96AO96AO566O566O164O164NT60NT60NP5UNP5UNL5QNL5QNH5MNH5MND5IND5IN95EN95EN558N5
31008 DATA 58N154N154MT4UMT4UMP4MMP4MML4EML4EMH44MH44MD3OMD3OM934M934M504M504HC04ID1GID1GIH24IH
31009 DATA 24ID3CID3CI93QI93QI546I546I14GI14GHT4OHT4OHP50HP50HL54HL54HH5AHH5AHD5GHD5GH95KH95KH5
31010 DATA 5OH55OH15QH15QGT5UGT5UGP62GP62GL64GL64GH68GH68GD6AGD6AG96CG96CG56GG56GG16IG16IFT6KFT
31011 DATA 6KFP6MFP6MFL6OFL6OFH6QFH6QFD6SFD6SF96UF96UF170F170ET72ET72EP74EP74EH76EH76ED78ED78E9
31012 DATA 7AE97AE17CE17CDP7EDP7EDL7GDL7GDD7IDD7ID57KD57KCP7MCP7MCH7OCH7OC57QC57QBP7SBP7SB97UB9
31013 DATA 7UAH80AH80A96MA96MAL6KAL6KB16IB16IBD6GBD6GBL6EBL6EBT6CBT6CC56AC56ACD68CD68CL66CL66CP
31014 DATA 64CP64D162D162D560D560DD5UDD5UDH5SDH5SDL5QDL5QDP5ODP5ODT5MDT5ME15KE15KE95IE95IED5EED
31015 DATA 5EEH5CEH5CEL5AEL5AEP58EP58ET56ET56F152F152F550F550F94SF94SFD4QFD4QFH4MFH4MFL4IFL4IFP
31016 DATA 4GFP4GFT4CFT4CG146G146G542G542G93UG93UGD3OGD3OGH3IGH3IGL3CGL3CGP36GP36GT2UGT2UH12KH1
31017 DATA 2KH528H528H91IH91IHD04HD8GC08GD58ID58ID98KD98KDD8QDD8QDH90DH90DL96DL96DP9CDP9CDT9IDT
31018 DATA 9IE19OE19OE59UE59UE9A6E9A6EDACEDACEHAIEHAIELAOELAOEPAUEPAUETB4ETB4F1BAF1BAF5BGF5BGF9
31019 DATA BMF9BME5BIE5BIE1BCE1BCDTB4DTB4DPB0DPB0BDB6BDB6B9BCB9BCB5BIB5BIB1BMB1BM9TBI9TBIA1BCA1
31020 DATA BCA5B6A5B6A9B0A9B0ADAQADAQAHAKAHAKALAEALAEAPA6APA6ATA0ATA0B19QB19QB59KB59KB99EB99EBD
31021 DATA 98BD98BH92BH92BL8SBL8SBP8KBP8KBT8IBT8IC18GC18GK08GL18IL18IL58KL58KL98OL98OLD8ULD8ULH
31022 DATA 94LH94LL9ALL9ALP9GLP9GLT9OLT9OM19UM19UM5A4M5A4M9AAM9AAMDAGMDAGMHAMMHAMMLASMLASMPB2MP
31023 DATA B2MTB8MTB8N1BEN1BEN5BMN5BMM1BGM1BGLTBALTBALPB2LPB2LLB0LLB0JDB2JDB2J9B8J9B8J5BEJ5BEJ1
31024 DATA BKJ1BKITBMITBMHPBKHPBKHTBEHTBEI1B8I1B8I5B2I5B2I9ASI9ASIDAMIDAMIHAGIHAGILAAILAAIPA4IP
31025 DATA A4IT9SIT9SJ19MJ19MJ59GJ59GJ99AJ99AJD94JD94JH8UJH8UJL8OJL8OJP8IJP8IK18GK18GOO8GQD8IQD
31026 DATA 8IQP8KQP8KR18MR18MR98OR98ORD8QRD8QRL8URL8URP90RP90RT94RT94S19CS19CS59IS59IS19QS19QRT
31027 DATA 9URT9URPA2RPA2RLA4RLA4RHA6RHA6RDA8RDA8R9AAR9AAR1ACR1ACQPAEQPAEQHAGQHAGQLAIQLAIQPAMQP
31028 DATA AMQTAOQTAOR1AQR1AQR5ASR5ASR9B0R9B0RDB2RDB2RHB4RHB4RLB8RLB8RPBARPBARTBCRTBCS1BES1BES5
31029 DATA BIS5BIS9BKS9BKSDBMSDBMR1BKR1BKQTBIQTBIQPBEQPBEQLBCQLBCQHBAQHBAQDB6QDB6Q9B4Q9B4Q5B2Q5
31030 DATA B2Q1AUQ1AUPTASPTASPPAQPPAQPLAMPLAMPHAKPHAKPDAIPDAIP9A4P9A4PDA2PDA2PTA0PTA0QD9UQD9UQH
31031 DATA 9SQH9SQL9QQL9QQP9OQP9OQT9IQT9IR19CR19CQT98QT98QP96QP96QL94QL94QH92QH92Q590Q590P192P1
31032 DATA 92OTBMOTBMNP8MNP8MNT8KNT8KO98IO98IOP8GOP8GEG8GIH90IH90H5BMH5BMG190G190EH8GEH8GT48GU9
31033 DATA BMU9BMT58GT598CK98CH9CCH9CCD9ICD9IC99OC99OC5A0C5A0C1A6C1A6BTACBTACBPAEBPAEBTAGBTAGDD
31034 DATA AADDAAD9A4D9A4D59UD59UD19OD19OCT9GCT9GCP9ACP9ACL98CL98KG98KD9EKD9EK99KK99KK59QK59QK1
31035 DATA A2K1A2JTA8JTA8JPAGJPAGL9A8L9A8L5A2L5A2L19SL19SKT9MKT9MKP9GKP9GKL9AKL9AKH98KH04HO04HU
31036 DATA 06HO06HU08HO08HU0AHO0AHU0CHO0CHU0EHO0EHU0GHO0GHU0IHO0IHU0KHO0KHU0MHO0MHU0OHO0OHU0QHO
31037 DATA 0QHU0SHO0SHU0UHO0UHU10HO10HU12HO12HU14HO14HU16HO16HU18HO18HU1AHO1AHU1CHO1CHU1EHO1EHU
31038 DATA 1GHO1GHU1IHK1IHQ1KHK1KHQ1MHK1MHQ1OHK1OHQ1QHK1QHQ1SHK1SHQ1UHK1UHQ20HK20HQ22HK22HQ24HK
31039 DATA 24HQ26HK26HQ28HG28HM2AHG2AHM2CHG2CHM2EHG2EHM2GHG2GHM2IHG2IHM2KHC2KHI2MHC2MHI2OHC2OHI
31040 DATA 2QHC2QHI2SHC2SHI2UH82UHE30H830HE32H832HE34H834HE36H436HA38H438HA3AH43AHA3CH03CH63EH0
31041 DATA 3EH63GH03GH63IGS3IH23KGS3KH23MGS3MH23OGO3OGU3QGO3QGU3SGO3SGU3UGK3UGQ40GK40GQ42GG42GM
31042 DATA 44GG44GM46GC46GI48GC48GI4AGC4AGI4CG84CGE4EG84EGE4GG44GGA4IG04IG64KG04KG64MFS4MG24MGS
31043 DATA 4MH24OFS4OG24QFO4QFU4QGO4QGU4SFK4SFQ4SGK4SGQ4UFK4UFQ4UGK4UGQ50FG50FM50GG50GM52FC52FI
31044 DATA 52GG52GM54FC54FI54GC54GI56F856FE56GC56GI58F458FA58G858GE5AF05AF65AG45AGA5CES5CF25CG4
31045 DATA 5CGA5EEO5EEU5EG05EG65GEO5GEU5GG05GG65IEK5IEQ5IFS5IG25KEC5KEI5KFO5KFU5ME85MEE5MFK5MFQ
31046 DATA 5OE45OEA5OFG5OFM5QE05QE65QFC5QFI5SDS5SE25SFC5SFI5UDO5UDU5UF85UFE60DG60DM60F460FA62DC
31047 DATA 62DI62F062F664D464DA64EO64EU66D066D666EO66EU68CO68CU68EG68EM6ACG6ACM6AEC6AEI6CC86CCE
31048 DATA 6CE46CEA6EC06EC66EE06EE66GBO6GBU6GDS6GE26IBC6IBI6IDK6IDQ6KB06KB66KDC6KDI6MAK6MAQ6MD4
31049 DATA 6MDA6OAK6OAQ6OD06OD66QAK6QAQ6QD06QD66SAK6SAQ6SCS6SD26UAK6UAQ6UCO6UCU70AK70AQ70CO70CU
31050 DATA 72AK72AQ72CK72CQ74AK74AQ74CG74CM76AK76AQ76CG76CM78AK78AQ78CC78CI7AAK7AAQ7AC87ACE7CAK
31051 DATA 7CAQ7CC47CCA7EAK7EAQ7EC47ECA7GAK7GAQ7GC07GC67IAK7IAQ7IBS7IC27KAK7KAQ7KBK7KBQ7MAK7MAQ
31052 DATA 7OAK7OAQ7QAK7QAQ7SAK7SAQ04JG04JM06JG06JM08JG08JM0AJG0AJM0CJG0CJM0EJG0EJM0GJG0GJM0IJG
31053 DATA 0IJM0KJG0KJM0MJG0MJM0OJG0OJM0QJG0QJM0SJG0SJM0UJG0UJM10JG10JM12JG12JM14JG14JM16JG16JM
31054 DATA 18JG18JM1AJG1AJM1CJG1CJM1EJG1EJM1GJG1GJM1IJG1IJM1KJG1KJM1MJG1MJM1OJG1OJM1QJG1QJM1SJG
31055 DATA 1SJM1UJG1UJM20JG20JM22JG22JM24JG24JM26JG26JM28JG28JM2AJG2AJM2CJG2CJM2EJG2EJM2GJG2GJM
31056 DATA 2IJG2IJM2KJG2KJM2MJG2MJM2OJG2OJM2QJG2QJM2SJG2SJM2UJG2UJM30JG30JM32JG32JM34JG34JM36JG
31057 DATA 36JM38JG38JM3AJG3AJM3CJG3CJM3EJG3EJM3GJG3GJM3IJG3IJM3KJG3KJM3MJG3MJM3OJG3OJM3QJG3QJM
31058 DATA 3SJG3SJM3UJG3UJM40JG40JM42JG42JM44JG44JM46JG46JM48JG48JM4AJG4AJM4CJG4CJM4EJG4EJM4GJG
31059 DATA 4GJM4IJG4IJM4KJG4KJM4MJG4MJM4OJG4OJM4QJG4QJM4SJG4SJM4UJG4UJM50JG50JM52JG52JM54JG54JM
31060 DATA 56JG56JM58JG58JM5AJG5AJM5CJG5CJM5EJG5EJM5GJG5GJM5IJG5IJM5KJG5KJM5MJG5MJM5OJG5OJM5QJG
31061 DATA 5QJM5SJG5SJM5UJG5UJM60JG60JM62JG62JM64JG64JM66JG66JM68JG68JM6AJG6AJM6CJG6CJM6EJG6EJM
31062 DATA 6GJG6GJM6IJG6IJM6KJG6KJM6MJG6MJM6OJG6OJM6QJG6QJM6SJG6SJM6UJG6UJM70JG70JM72JG72JM74JG
31063 DATA 74JM76JG76JM78JG78JM7AJG7AJM7CJG7CJM7EJG7EJM7GJG7GJM7IJG7IJM7KJG7KJM7MJG7MJM7OJG7OJM
31064 DATA 7QJG7QJM7SJG7SJM04MG04MM06MG06MM08MG08MM0AMG0AMM0CMG0CMM0EMG0EMM0GMG0GMM0IMG0IMM0KMG
31065 DATA 0KMM0MMG0MMM0OMG0OMM0QMG0QMM0SMG0SMM0UMG0UMM10MG10MM12MG12MM14MG14MM16MG16MM18MG18MM
31066 DATA 1AMG1AMM1CMG1CMM1EMG1EMM1GMG1GMM1IMG1IMM1KMG1KMM1MMG1MMM1OMG1OMM1QMG1QMM1SMG1SMM1UMG
31067 DATA 1UMM20MG20MM22MG22MM24MG24MM26MG26MM28MG28MM2AMG2AMM2CMG2CMM2EMG2EMM2GMG2GMM2IMG2IMM
31068 DATA 2KMG2KMM2MMG2MMM2OMG2OMM2QMG2QMM2SMG2SMM2UMG2UMM30MG30MM32MG32MM34MK34MQ36MK36MQ38MK
31069 DATA 38MQ3AMK3AMQ3CMK3CMQ3EMK3EMQ3GMK3GMQ3IMK3IMQ3KMK3KMQ3MMK3MMQ3OMO3OMU3QMO3QMU3SMO3SMU
31070 DATA 3UMO3UMU40MO40MU42MO42MU44MS44N246MS46N248MS48N24AMS4AN24CMS4CN24EN04EN64GN04GN64IN0
31071 DATA 4IN64KN04KN64MN44MNA4ON44ONA4OO44OOA4QN44QNA4QO44QOA4SN44SNA4SO44SOA4UN84UNE4UO84UOE
31072 DATA 50N850NE50O850OE52N852NE52OC52OI54NC54NI54OG54OM56NC56NI56OG56OM58NG58NM58OK58OQ5ANG
31073 DATA 5ANM5AOK5AOQ5CNG5CNM5COO5COU5ENK5ENQ5EOS5EP25GNK5GNQ5GOS5GP25INO5INU5IP05IP65KNO5KNU
31074 DATA 5KP45KPA5MNS5MO25MP85MPE5ONS5OO25OP85OPE5QO05QO65QPC5QPI5SO05SO65SPG5SPM5UO45UOA5UPK
31075 DATA 5UPQ60O860OE60PO60PU62O862OE62PS62Q264OC64OI64Q064Q666OG66OM66Q466QA68OG68OM68Q868QE
31076 DATA 6AOK6AOQ6AQG6AQM6COO6COU6CQK6CQQ6EOS6EP26EQS6ER26GP06GP66GR06GR66IP06IP66IR86IRE6KP4
31077 DATA 6KPA6KRG6KRM6MP86MPE6MRO6MRU6OPC6OPI6ORS6OS26QPK6QPQ6QS06QS66SPO6SPU6SS06SS66UPS6UQ2
31078 DATA 6US46USA70Q070Q670S470SA72Q472QA72S872SE74QC74QI74SC74SI76QG76QM76SC76SI78QO78QU78SG
31079 DATA 78SM7AQS7AR27ASK7ASQ7CR47CRA7CSO7CSU7ERC7ERI7ESS7ET27GRK7GRQ7GT07GT67IRS7IS27IT47ITA
31080 DATA 7KS47KSA7KT87KTE7MSG7MSM7OSO7OSU7QT87QTE7STO7STU8GCC8GCI8IC88ICE8KC48KCA8MC48MCA8OC4
31081 DATA 8OCA8QC48QCA8SC08SC68UC08UC690C090C692BS92C294BS94C296BS96C298BO98BU98D098D69ABO9ABU
31082 DATA 9AD49ADA9CBO9CBU9CD49CDA9EBK9EBQ9ED49EDA9GBK9GBQ9GD89GDE9IBK9IBQ9ID89IDE9KBG9KBM9KD8
31083 DATA 9KDE9MBG9MBM9MD89MDE9OBG9OBM9ODC9ODI9QBC9QBI9QDC9QDI9SBC9SBI9SDC9SDI9UBC9UBI9UDG9UDM
31084 DATA A0B8A0BEA0DGA0DMA2B8A2BEA2DGA2DMA4B8A4BEA4DKA4DQA6B4A6BAA6DKA6DQA8B4A8BAA8DKA8DQAAB4
31085 DATA AABAAADOAADUACB4ACBAACDOACDUAEB0AEB6AEDOAEDUAGB0AGB6AGCOAGCUAIB0AIB6AICOAICUAKASAKB2
31086 DATA AKCOAKCUAMASAMB2AMCOAMCUAOASAOB2AOCOAOCUAQAOAQAUAQCOAQCUASAOASAUASCOASCUAUAOAUAUAUCO
31087 DATA AUCUB0AKB0AQB0E4B0EAB2AKB2AQB2E4B2EAB4AKB4AQB4E8B4EEB6AGB6AMB6E8B6EEB8AGB8AMB8E8B8EE
31088 DATA BAAGBAAMBAE8BAEEBCACBCAIBCECBCEIBEACBEAIBEECBEEIBGACBGAIBGECBGEIBIA8BIAEBIEGBIEMBKA8
31089 DATA BKAEBKEGBKEM8GES8GF28GGK8GGQ8IES8IF28IGK8IGQ8KES8KF28KGK8KGQ8MES8MF28MGK8MGQ8OES8OF2
31090 DATA 8OGK8OGQ8QES8QF28QGK8QGQ8SES8SF28SGK8SGQ8UES8UF28UGK8UGQ90GC90GI92GC92GI94GC94GI96GC
31091 DATA 96GI98GC98GI9AGC9AGI9CGC9CGI9EGC9EGI9GGC9GGI9IGC9IGI9KGC9KGI9MGC9MGI9OGC9OGI9QGC9QGI
31092 DATA 9SGC9SGI9UGC9UGIA0GCA0GIA2GCA2GIA4GCA4GIA6GCA6GIA8GCA8GIAAGCAAGIACGCACGIAEGCAEGIAGGC
31093 DATA AGGIAIGCAIGIAKGCAKGIAMGCAMGIAOGCAOGIAQGCAQGIASGCASGIAUGCAUGIB0GCB0GIB2GCB2GIB4GCB4GI
31094 DATA B6GCB6GIB8GCB8GIBAGCBAGIBCGCBCGIBEGCBEGIBGGCBGGIBIGCBIGIBKGCBKGI8GKC8GKI8IK48IKA8KK4
31095 DATA 8KKA8MK48MKA8OK08OK68QK08QK68SK08SK68UJS8UK290JS90K292JS92K294JO94JU96JO96JU98JO98JU
31096 DATA 98KS98L29AJK9AJQ9AL09AL69CJK9CJQ9CL09CL69EJK9EJQ9EL09EL69GJG9GJM9GL49GLA9IJG9IJM9IL4
31097 DATA 9ILA9KJG9KJM9KL49KLA9MJC9MJI9ML89MLE9OJC9OJI9OL89OLE9QJC9QJI9QL89QLE9SJ89SJE9SLC9SLI
31098 DATA 9UJ89UJE9ULC9ULIA0J8A0JEA0LCA0LIA2J8A2JEA2LGA2LMA4J4A4JAA4LGA4LMA6J4A6JAA6LGA6LMA8J4
31099 DATA A8JAA8LKA8LQAAJ0AAJ6AALKAALQACJ0ACJ6ACLKACLQAEJ0AEJ6AELKAELQAGISAGJ2AGKKAGKQAIISAIJ2
31100 DATA AIKKAIKQAKISAKJ2AKKKAKKQAMIOAMIUAMKKAMKQAOIOAOIUAOKKAOKQAQIOAQIUAQKKAQKQASIKASIQASKK
31101 DATA ASKQAUIKAUIQAUKKAUKQB0IKB0IQB0M0B0M6B2IGB2IMB2M4B2MAB4IGB4IMB4M4B4MAB6IGB6IMB6M4B6MA
31102 DATA B8ICB8IIB8M4B8MABAICBAIIBAM8BAMEBCICBCIIBCM8BCMEBEI8BEIEBEM8BEMEBGI8BGIEBGMCBGMIBII8
31103 DATA BIIEBIMCBIMIBKI4BKIABKMCBKMI8GP48GPA8IOK8IOQ8IPK8IPQ8KO88KOE8KPK8KPQ8MO48MOA8MPK8MPQ
31104 DATA 8OO48OOA8OPO8OPU8QO48QOA8QPS8QQ28SO48SOA8SPS8SQ28UO48UOA8UPS8UQ290O490OA90QG90QM92O4
31105 DATA 92OA92QS92R294O494OA94R094R696O496OA96R496RA98O498OA98R898RE9AO49AOA9AR89ARE9CO49COA
31106 DATA 9CRC9CRI9EO49EOA9ERC9ERI9GO49GOA9GRC9GRI9IO49IOA9IR89IRE9KO49KOA9KR89KRE9MO49MOA9MR8
31107 DATA 9MRE9OO49OOA9OR49ORA9QO49QOA9QR09QR69SO49SOA9SQS9SR29UO49UOA9UQO9UQUA0O4A0OAA0Q8A0QE
31108 DATA A2O4A2OAA2POA2PUA4O4A4OAA4PKA4PQA6O4A6OAA6PKA6PQA8O4A8OAA8PKA8PQAAO4AAOAAAPKAAPQACO4
31109 DATA ACOAACPKACPQAEO4AEOAAEPKAEPQAGO4AGOAAGPKAGPQAIO4AIOAAIPOAIPUAKO4AKOAAKPSAKQ2AMO4AMOA
31110 DATA AMQ0AMQ6AOO4AOOAAOQ0AOQ6AQO4AQOAAQQ4AQQAASO4ASOAASQ8ASQEAUO4AUOAAUQCAUQIB0O4B0OAB0QC
31111 DATA B0QIB2O4B2OAB2QGB2QMB4O4B4OAB4QKB4QQB6O4B6OAB6QOB6QUB8O4B8OAB8QOB8QUBAO4BAOABAQSBAR2
31112 DATA BCO4BCOABCR0BCR6BEO4BEOABER4BERABGO4BGOABGR4BGRABIO4BIOABIR8BIREBKO4BKOABKRCBKRI8GTG
31113 DATA 8GTM8ITG8ITM8KTG8KTM8MTG8MTM8OTG8OTM8QTG8QTM8STG8STM8UTG8UTM90TG90TM92TG92TM94TG94TM
31114 DATA 96TG96TM98TG98TM9ATG9ATM9CTG9CTM9ETG9ETM9GTG9GTM9ITG9ITM9KTG9KTM9MTG9MTM9OTG9OTM9QTG
31115 DATA 9QTM9STG9STM9UTG9UTMA0TGA0TMA2TGA2TMA4TGA4TMA6TGA6TMA8TGA8TMAATGAATMACTGACTMAETGAETM
31116 DATA AGTGAGTMAITGAITMAKTGAKTMAMTGAMTMAOTGAOTMAQTGAQTMASTGASTMAUTGAUTMB0TGB0TMB2TGB2TMB4TG
31117 DATA B4TMB6TGB6TMB8TGB8TMBATGBATMBCTGBCTMBETGBETMBGTGBGTMBITGBITMBKTGBKTM
31118 REM -- END OF VECTOR DATA --
32758 POKE 752,0:GRAPHICS 0
32759 END 
32760 POKE 20,0
32761 IF PEEK(20)<64 THEN 32761
32762 RETURN
32763 REM Prima Aprilis Compo 2026
32764 REM by Lizard, Mono, tbxx, dely, Seban
Post's attachments

pa2026.lst 12.77 kb, liczba pobrań: 1 (od 2026-03-30) 

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

seban's Strona