Aktualności ze świata Atari

2026-04-12 15:00:33

@Pawex Dzięki WILEKIE! Za te zdjęcia! To potwierdza tylko moje przeczucia że KNS Corporation nie było częścią ATARES, początkowo myślałem że KNS Corporation (Grzegorz Kania) jest jakoś związany blisko ale teraz widząc adres Gliwicki mam pewność że Pan Kania nie był z Chorzowa, tak jak firma Atares, co tylko potwierdza moje przypuszczenia że Atares "zaadaptował" rozwiązania opracowane Przez KNS Corp.

2026-04-09 16:05:02

Hejka!

No właśnie ową "klątwę" zostawiłem na sam koniec licząc że będzie to ciekawy przypadek... a mówimy o takim nieboraku:

^^^ otóż ta dodatkowa naklejka z napisem "KLĄTWA", była dość intrygująca.

Prawdę mówiąc liczyłem na jakieś dziwne combo typu cart zawierający grę "KLĄTWA" oraz dodatkowo soft do Turbo 2000F/2001, jednak okazało się to dużą nadinterpretacją z mojej strony... normalnie klątwa mnie dopadła i spotkał swego rodzaju zwód ;-) bo jakże to tak? Nie będzie nowego wyzwania!?! Bleh... Nie wiem kto sobie wymyślił taki numer, ale w pełni mu się to udało... może Turbo 2001 okazało się prawdziwą klątwą dla właściciela tego kartridża ;-P

Z pewną taką nieśmiałością zabrałem się do otwierania tego carta... i moim oczom ukazał się las... (to żart oczywiście :P) ... a tak naprawdę ukazała się następująca płytka drukowana:

Strona elementów:

Strona lutowania:

Jak to zobaczyłem to wydałem z siebie jęk zawodu... otóż jest typowy kartridż oparty o 4kB pamięć EPROM, mieszczący w sobie tylko i wyłącznie oprogramowanie systemu Turbo 2000F/2001 oznaczone w tym wypadku sygnaturą v.2.2, mówię oczywiście o naklejce na obudowie. Po uruchomieniu oczywiście można zobaczyć co następuje:

Standardowy cart dla Turbo 2001 zawierał 2KB pamięć EPROM i nie zawierał programu kopiującego, był zmontowany na identycznej PCB, o czym pisałem już w tym poście: Turbo 2001 v.2.1. Również w tym wątku pojawił się dump tożsamego carta udostępniony przez użytkownika "Yezy", dokładnie w tym poście: Turbo 2001 + COPY.

Zawartość pamięci "wyklętego" carta okazała się tożsama z tym co udało się wrzucić na forum Yezemu, ale dla porządku i weryfikacji poprawności zrzutów umieszczam również i ten dump: Turbo 2001 v.2.2. Skróty (MD5/SHA256) plików się zgadzają z tym co udostępnił Yezy:

t2k1_v22_klatwa.bin | 61e5ee7ab9a59c7544c317935acaa8af                                  | MD5
t2k1_v22_klatwa.bin | 1a4ea1b4f5f4e653f6813672a391f9735dd219bf3ac004fc35828c874e293380  | SHA256

Co mi więcej pozostało? Dla porządku narysowałem schemat tego co było na PCB:

oczywiście do pobrania wersja wektor: Turbo 2001 4K CART (PDF).

Jak więc widać jest to typowy cart z tamtego okresu który mapuje się w oknie $A000-$BFFF, a ponieważ pamięć ma tylko 4kB a okno wynosi 8kB, to w obszarze $A000-$BFFF widać dwa powtórzenia zawartości pamięci, tzn. obszar $A000-$AFFF zawiera dokładnie to samo co obszar $B000-$BFFF. Cartridge wyłącza się samoistnie po paru sekundach, do tego czasu soft zawarty w carcie kopiuje się do RAM i cierpliwie czeka na odłączenie się kartridża aby przejść dalej.

Program kopiujący "Universal Copy II" dodany do carta był napisany przez Jakuba Kruszonę. Nie mam natomiast żadnej pewności czy autor programu kopiującego pozwolił na to działanie, czy też twórcy carta po prostu umieścili ów program bez wiedzy autora.

No i taki smutny koniec, nieco przeklęty nam się trafił na koniec. To chyba był ostatni cart z obecnej transzy od uicr0Bee, teraz pozostało mi doprowadzić magnetofony które mi pozostały w pudle do porządku, ale to nie będzie ciekawa robota... jeden to magnet w standardzie, drugi (ten do którego był dołączony "Klątwa" kartridż to magnet z Turbo 2000F/2001 pozbawiony kabelka.

Czeka nas w wątku chwilowa przerwa bo muszę obrobić to co pozostało i zająć się na chwilę czym innym, ale obiecuje że niebawem będzie trochę o kasetach w formacie AST, także proszę o cierpliwość i na chwilę obecną odmeldowuje się.

PS) Będę miał do Was, szanowni forumowicze, kilka pytań dotyczących Atares i KNS Corporation. Może ktoś coś jeszcze pamięta - ale to w następnym poście (za jakiś czas), bo muszę najpierw uporządkować to, co udało mi się do tej pory ustalić. Nie chcę pisać chaotycznie, więc wolę zebrać wszystko do kupy i dopiero wtedy zadać konkretne pytania. Być może ktoś z Was będzie w stanie rozwiać moje wątpliwości i rzucić nieco światła na tę historię. Na razie pozwoliłem sobie nieco rozbudować wpis na Atariki o firmie ATARES. Jeśli ktoś ma coś do dodania albo uściślenia - będę wdzięczny za informacje.

2026-04-08 10:34:03

Dzień Dobry!

Dziś kolejny mały kroczek wykonany, czyli kolejny cart z kolekcji uicr0Bee został przeanalizowany. Tym razem był to klon cartridge "Phoenix" dla systemu Blizzard. Ten typ carta pojawiał się już kilkukrotnie na tym forum, pozwolę sobie zatem przypomnieć wątki i posty w których się pojawił ów mistyczny Phoenix opracowany przez Hurka:

Tym razem nasz "nieborak" tym razem prezentował się tak:

^^^ tym razem samotnik bez żadnej naklejki pozwalającej go zidentyfikować "na pierwszy rzut oka".

Nie było to jednak przeszkodą, ponieważ zawsze możemy zajrzeć do środka i obejrzeć sobie płytkę drukowaną (od góry):

^^^ na naklejce na pamięci EPROM o rozmiarze 16kB widzimy napis "PH 32", płytka drukowana w porównaniu ze starszymi konstrukcjami od ATARES wygląda na całkiem porządnie wykonaną, oraz w miarę estetycznie polutowaną.

dolna strona płytki drukowanej (PCB) prezentuje się następująco:

Patrząc na płytkę drukowaną możemy dojść do wniosku że jest to swego rodzaju rozwiązanie "uniwersalne", tzn. możliwe jest wykonanie na tej płytce innej wersji cartridge (mamy miejsce na drugi układ scalony), ścieżki doprowadzone do pamięci EPROM sugerują że możliwe jest również użycie większej pamięci EPROM (np. 27256 czyli 32kB), dołożenie przełączników, etc.

Ta sama płytke drukowana została użyta w cartridge Marka Góreckiego (EGR) o nazwie Turbo Toolbox I, z tym że w przypadku carta Turbo Toolbox I, była użyta pamięć o rozmiarze 8kB. Było tez parę innych cartów w historii tego wątku opartych na podobnej PCB, a więc mogę się domyśleć że to była swego rodzaju "uniwersalna" płytka stosowana przez różnych ludzi do budowania cartów z różną zawartością i w różnej konfiguracji.

Oczywiście ponieważ nie pamiętam już, że wcześniej rysowałem już schemat oparty na tej płytce to uczyniłem to ponownie, zatem nie pozostaje mi nic innego jak ten schemat po prostu wrzucić dla porządku do tego postu:

^^^ Do pobrania oczywiście również wersja wektorowa: Blizzard 16KB - Phoenix (clone).

Cart po uruchomieniu prezentuje się tak:

Oczywiście zawartość pamięci EPROM do pobrania tutaj: Blizzard Phoenix 1.0 (clone). Dla porządku również skróty pliku:

d17c7ac16b581577a88628da15dd522c                                  blz_phoenix_1.0.bin | MD5
aa49e16095708e153d2350e818a3348d6590bd8c26ec9a2a690e6d4174f8fd5d  blz_phoenix_1.0.bin | SHA256

Są inne niż w przypadku wcześniej prezentowanych dump-ów. Dlaczego? Ponieważ osoba wykonujaca klon postanowiła usunąć informacje o firmie ATARES, zastępując informacje o pochodzeniu softu albo "spacjami", albo innymi napisami o to dlatego nazywam ten cartridge klonem. Szybkie porównanie z dumpem od ATARES:

File A size:      16384 bytes
File B size:      16384 bytes
Compared length:  16384 bytes
Different bytes:  189 (1.1536%)
Equal bytes:      16195
Diff blocks:      3
Compare mode:     full 8-bit
Text mode:        atascii-unicode

Largest diff block: 80 bytes

========================================================================================================
BLOCK 1: diff @ 0x0000270A..0x00002731 (len=40 bytes)
--------------------------------------------------------------------------------------------------------
OFFSET     FILE A HEX               A TXT         FILE B HEX               B TXT
--------------------------------------------------------------------------------------------------------
0000270A  CD C9 C3 D2 CF CC CF C1  |MICROLOA|    A0 CD C9 CB D2 CF CC CF  | MIKROLO|
00002712  C4 C5 D2 A0 B1 AE B0 A0  |DER 1.0 |    C1 C4 C5 D2 A0 B1 AE B0  |ADER 1.0|
0000271A  A0 A0 A0 A0 A0 A0 A0 D0  |       P|    A0 E2 F9 A0 C7 AE CB AE  | by G.K.|
00002722  C8 CF C5 CE C9 D8 A0 C3  |HOENIX C|    A0 E6 F2 EF ED A0 CB CE  | from KN|
0000272A  C1 D2 D4 D2 C9 C4 C7 C5  |ARTRIDGE|    D3 A0 C3 CF D2 D0 AE A0  |S CORP. |

========================================================================================================
BLOCK 2: diff @ 0x00002D29..0x00002D78 (len=80 bytes)
--------------------------------------------------------------------------------------------------------
OFFSET     FILE A HEX               A TXT         FILE B HEX               B TXT
--------------------------------------------------------------------------------------------------------
00002D29  CD C9 C3 D2 CF CC CF C1  |MICROLOA|    A0 CD C9 C3 D2 CF CC CF  | MICROLO|
00002D31  C4 C5 D2 A0 B2 AE B0 A0  |DER 2.0 |    C1 C4 C5 D2 A0 B2 AE B0  |ADER 2.0|
00002D39  A0 A0 A0 A0 A0 A0 A0 D0  |       P|    A0 E2 F9 A0 C7 AE CB AE  | by G.K.|
00002D41  C8 CF C5 CE C9 D8 A0 C3  |HOENIX C|    A0 E6 F2 EF ED A0 CB CE  | from KN|
00002D49  C1 D2 D4 D2 C9 C4 C7 C5  |ARTRIDGE|    D3 A0 C3 CF D2 D0 AE A0  |S CORP. |
00002D51  20 20 20 20 20 20 20 20  |        |    AA AA AA AA AA AA AA AA  |********|
00002D59  20 20 20 20 20 20 20 20  |        |    AA AA AA AA AA AA AA AA  |********|
00002D61  20 20 20 20 20 20 20 20  |        |    AA AA AA AA AA AA AA AA  |********|
00002D69  20 20 20 20 20 20 20 20  |        |    AA AA AA AA AA AA AA AA  |********|
00002D71  20 20 20 20 20 20 20 20  |        |    AA AA AA AA AA AA AA AA  |********|

========================================================================================================
BLOCK 3: diff @ 0x00003291..0x000032E0 (len=80 bytes)
--------------------------------------------------------------------------------------------------------
OFFSET     FILE A HEX               A TXT         FILE B HEX               B TXT
--------------------------------------------------------------------------------------------------------
00003291  CD C9 C3 D2 CF CC CF C1  |MICROLOA|    A0 CD C9 C3 D2 CF CC CF  | MICROLO|
00003299  C4 C5 D2 A0 B2 AE B7 A0  |DER 2.7 |    C1 C4 C5 D2 A0 B2 AE B7  |ADER 2.7|
000032A1  A0 A0 A0 A0 A0 A0 A0 D0  |       P|    A0 A0 E2 F9 A0 A0 C7 AE  |  by  G.|
000032A9  C8 CF C5 CE C9 D8 A0 C3  |HOENIX C|    CB E1 EE E9 E1 A0 A0 A2  |Kania  "|
000032B1  C1 D2 D4 D2 C9 C4 C7 C5  |ARTRIDGE|    C1 D4 C1 D2 C5 D3 A2 A0  |ATARES" |
000032B9  20 20 20 20 20 20 20 20  |        |    C3 E8 EF F2 FA EF F7 A0  |Chorzow |
000032C1  20 20 20 20 20 20 20 20  |        |    C2 E1 F4 EF F2 F9 A0 F5  |Batory u|
000032C9  20 20 20 20 20 20 20 20  |        |    EC AE CA E5 F3 E9 EF EE  |l.Jesion|
000032D1  20 20 20 20 20 20 20 20  |        |    EF F7 E1 A0 B3 A0 F4 E5  |owa 3 te|
000032D9  20 20 20 20 20 20 20 20  |        |    EC AE B4 B6 B5 B7 B1 B9  |l.465719|

I to chyba tyle jeżeli chodzi to co miałem do napisania na temat tego carta. Do usłszenia wkrótce.

2026-04-03 08:19:13

Hej!

Po krótkiej przerwie następny cart od uicr0Bee, dziś postaram się krótko i zwięźle, w sumie to miała być formalność, bo to kolejny klon carta z serii "Blizzard HIT", o których pisaliśmy już w tutaj: Blizzard HIT - z kolekcji Dely-ego oraz tutaj, gdzie zaprezentowałem kolejny klon z tej serii: Blizzart HIT - modern clone <--- w tym wypadku wszystko wskazywało na to że była to "nowożytna' replika.

W sumie do tego carta też miałem podejść "po łebkach", bo w sumie to kolejna odmiana Blizzard 32K cart z softem "HIT" w środku. Jednak tym razem autor tego rozwiącania, postanowił nie usuwać do końca śladów po oryginalnym autorze tejże składanki, a jedynie dopisał swoje inicjały do linii z "credits", pozostawiając Artura Miareckiego jako autora oryginalnej "składanki". Sam cart prezentuje się tak:

górna warstwa płytki drukowanej wygląda tak:

a dolna strona prezentuje się następująco:

Po uruchomieniu widzimy następujący ekran powitalny:

^^^ Widzimy na nim standardowe menu carta "Blizzard HIT", jednak tak jak wspominałem wyżej pozostała informacja o autorze oraz inicjały "H.M", które prawdopodobnie są inicjałami autora PCB. Dodatkowo na naklejce pamięci EPROM widzimy napisy: "HIT1" oraz wersję oprogramowania "3.93".

Jak wspominałem wyżej, miałem podejść do tego klona "po łebkach", ale w ostatniej chwili tknęło mnie że ta PCB jest nieco inne i schemat nieco się różni od cartów prezentowanych wcześniej, te różnice mnie na tyle zaciekawiły że postanowiłem przerysować schemat na nowo:

oczywiście do pobrania schemat również w wersji wektorowej: Blizzard 32k - HIT clone "HENS".

Kończąc już ten post pozostaje mi udostępnienie pliku zawierającego zrzut pamięci EPROM: blz_hit_hens.bin.zip.

34ea8c233be22c17e8a02e2eb532dbaf04b89d61a7868d701209aa504572b142  blz_hit_hens.bin | SHA256

hash pliku jest oczywiście inny niż we wcześniej wymienionych klonach, ale to z tego względu że pozmieniano linię zawierającą "credits". Porównując pliki różnice znajdziemy właściewie tylko w tych miejscach gdzie dokonano modyfikacji napisów.

A i jeszcze jedno; Cart to standardowy cart mapujący się w przestrzeni $A000-$BFFF. Cart posiada na pokładzie pamięć 27256, czyli 256kb (kilo-bitów), a więc 32kB. 8kB okno umieszczone w obszarze $A000-$BFFF ma przełączaną zawartość (4 banki po 8 kB). Przełączenie następuje przed odwołanie do obszaru $D500-$D5FF, to powoduje aktywność sygnału ~CCTL, który jest podłączony do wejścia zliczającego licznika 7493. Licznik generuje dwa dodatkowe bity adresu A13,A14. Cart startuje z włączonym BANK #0, kolejne aktywności w obszarze $D5xx powodują przełączanie banków, a w chwili 4 odwołania następuje wyłączenie cartridge. Czyli po starcie mamy BANK #0, potem BANK #1, BANK #2, BANK #3, CARTRIDGE OFF. Kolejne uruchomienie carta wymaga albo cyklu wyłącz/włącz komputera, albo naciśnięcie na carcie przycisku (resetuje przerzutnik RS oraz lincznik 7493 wewnątrz carta) oraz wciśnięci RESET na klawiaturze komputera, wtedy to system operacyjny wykryje pojawienie się cartridge i uruchomi go ponownie. Przypomną tylko jeszcze, że aby uruchomić obraz pod emulatorem wybieramy typ cartridge "Blizzard 32K".

Teraz zaczynam się zastanawiać czy ten "klon" jest faktycznie klonem czy też może to była współpraca Artura Miareckiego i kogoś kto podpisywał się inicjałami "H.M.", a cart był sygnowany jako "HENS". Schemat wygląda na wczesną wersję projektu, klony miały nieco inną konstrukcję (pozbyto się tranzystora, wykorzystano inne części liczników 7490/7493). Ale ja to mogę sobie jedynie dywagować, na te moje dywagacje mógłby pewnie odpowiedzieć jedynie sam autor (Artur Miarecki). Jeżeli ktoś wie kim mógł być H.M. lub HENS proszę o informacje, być może udałoby się wtedy ustalić pochodzenie tego cartridge.

Na dziś tyle! Do usłyszenia niebawem.

2026-04-02 10:01:57

Dzięki Panowie! Fajnie było móc podziałać razem z wami! Sądzę że całkiem zgrabnie nam to wszystko wyszło jak na Atari BASIC!

2026-04-01 13:23:06

#1) dodałem dekoder BASE32 w ML, bo mnie telepało jak widziałem jak to wolno się rysuje! ;-)
#2) wprowadziłem kod BCA
#3) +parę drobnych poprawek

20000 GRAPHICS 0:POKE 752,1
20001 ? "BACK TO THE FUTURE...":SOUND 1,255,10,4:SOUND 2,254,10,3
20002 I=1536: RESTORE 31200
20003 READ V:IF V>=0 THEN POKE I,V:I=I+1:GOTO 20003
20004 FOR I=4 TO 0 STEP -0.1
20005   POKE 710,144+I:POKE 709,I*2
20006 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:SOUND 1,255-Q*2,10,4:SOUND 2,254-Q*2,10,3
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$:IF LEN(S$)<4 THEN 30060
30049 Q=USR(1536,ADR(S$),LEN(S$))
30050 FOR I=1 TO LEN(S$) STEP 4
30051 C=USR(1536,0):X=USR(1536,1):Y=USR(1536,2)
30054 IF C=0 THEN PLOT X,Y
30055 IF C=1 THEN DRAWTO X,Y
30056 IF C=2 THEN XIO 18,#6,12,0,"S:"
30057 SOUND 0,X,10,4:SOUND 1,Y,12,4
30058 NEXT I:GOTO 30045
30060 SOUND 0,0,0,0:SOUND 1,0,0,0:GOSUB 32760:GOSUB 32760
30075 REM -- BCA FLASHER --- 
30076 FOR II=0 TO 1500:SETCOLOR II/500,II,II:NEXT II
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 --
31200 REM -- ML BASE32 DECODER --
31201 DATA 104,201,2,144,87,104,133,204,104,133,203,104,104,141,83,6
31202 DATA 160,0,140,58,6,162,4,138,72,162,5,6,205,38,206,38
31203 DATA 207,202,208,247,104,170,177,203,56,233,48,201,10,144,2,233
31204 DATA 7,5,205,133,205,200,202,208,222,162,51,165,205,157,0,4
31205 DATA 232,165,206,157,0,4,232,165,207,41,7,157,0,4,232,142
31206 DATA 58,6,192,68,144,191,169,0,141,96,6,96,104,104,168,162
31207 DATA 51,192,0,208,12,189,0,4,41,3,133,212,169,0,133,213
31208 DATA 96,192,1,208,15,189,0,4,133,212,189,1,4,41,7,133
31209 DATA 213,76,161,6,192,2,208,33,189,1,4,133,212,189,2,4
31210 DATA 41,7,133,213,24,169,3,109,96,6,141,96,6,70,213,102
31211 DATA 212,70,213,102,212,70,213,102,212,96,-1
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, BCA

2026-04-01 08:06:39

Certyfikat wygasł ponownie dziś (2026.04.01) ... niezły żarcik na prima aprilis ;-)

ps) nie da się tego z automatu cert-botem ogarnąć?

2026-03-30 13:05:24

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

2026-03-30 12:06:57

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

2026-03-30 10:47:03

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.

2026-03-29 21:05:33

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

2026-03-25 08:11:30

Jeżeli używasz Turgen to najprościej będzie Ci generować nagrania wybierając kategorię "Lower Silesian Turbo 2000" i potem format np. "Auto Turbo". Działa też wybór czeskiego T2000, ale w większości przypadków działają tylko programy które dają się skonwertować przy wyborze "Monolithic Binary File". Formaty zapisu są zgodne w warstwie fizycznej, jednak są niuanse na poziomie softu, loaderów, etc. sprawdziłem kilka pozycji... i najlepsze efekty konwersji daje tak jak wspominałem na początku "Lower Silesian Turbo 2000".

2026-03-24 10:41:37

Dziś kolejny cart od uicr0Bee, tym razem "na warsztacie" mamy "Universal Turbo", o którym jak widać w linkowanym poście rozpisywałem się jakiś czas temu (ależ ten czas leci :-O). Wspominam tutaj o tym carcie ponieważ co prawda soft zawarty w cartridge jest taki sam jak w tym od "robecc", ale wersja tutaj prezentowana jest wykonana na nieco innym PCB. Wszystko wskazuje na to że ktoś sobie dostosował PCB od innego cartridge do uruchamiania "Universal Turbo", na co wskazuje masa drutów, cięć i przeróbek na PCB :). Schemat carta jest tożsamy z tym co zostało zaprezentowane w poście opisującym cart od robecc.

Sam cart prezentuje się tak:

Płytka drukowana od strony elementów:

Spód płytki drukowanej:

I dla porządku zawartość EPROM, mimo tego że jest tożsama z tym co było w carcie od robecc: uni_turbo.bin.zip

SHA256: 0f3150194aaf13985f75791d781a65d1dcf8a28c75d3b58ab67a1fa73b3d4bab  uni_turbo.bin

To kolejny przypadek w którym dzięki temu że mamy drugi egzemplarz, możemy zweryfikować wcześniejszy "dump", teraz możemy mieć pewność że zawartość pamięci EPROM przetrwała z niezmienionej formie.

EDIT #1: Niestety do dziś żaden z emulatorów nie emuluje tego typu carta, więc obrazu nie uruchomicie pod emulatorem, oczywiście można go przerobić tak aby był zgodny z innym typem carta, ale ponieważ zrobiłem wcześniej wersję .XEX to nie czuję jakiejś potrzeby dalszego dłubania w tym obrazie. Czasu na to aby dłubać w emulatorze Atari800 i dodawać kolejny typ cartridge też nie mam.

EDIT #2: Jedna ważna uwaga. Cart domyślnie (po włączeniu komputera) startuje w stanie "wyłączonym". Aby go aktywować należy wcisnąć przycisk na cartridge aktywujący go. Po reset komputer wstanie z aktywnym cartridge. Ponieważ jest to założenie projektowe nie zmieniałem nic w działaniu elektroniki i zostawiłem to zgodnie z zamysłem autora, czy cart jest domyślnie wyłączony i trzeba go aktywować ręcznie. Po latach takie działanie może prowadzić do nieporozumień ... gdy ktoś nie pamiętał o tym fakcie, wkłada cart do portu odpala komputer i widzi normalnie napis "READY", stąd niedaleka droga do tego aby uznać cart za uszkodzony/nie-działający.

2026-03-23 10:01:55

Hej!

@Piguła: Ty na screenshocie który zapodałeś masz inną wersję cartridge (nowszą, 16KB), w tej wersji 8KB którą opisywałem w poście 1235, będe się upierał że: pozycje A,B oznaczone jako loadery "ATTN" to są loadery do ATT, natomiast pozycje: E,F,G,H,K opisane jako ATT ---> to jest jednak soft przeznaczony dla AST.

I wydaje mi się że dokładnie tak wynika z opisu w poście 1235? Czy się mylę? (w moim poście jest screenshot z tego carta o którym mowa).

2026-03-22 12:49:15

Dziś kolejny cart z kolekcji od uicr0Bee... jednak zanim zacznę jeszcze bardziej szczegółowy opis to muszę odnieść się do carta wcześniej opisanego w tym wątku, który był nazwany Blizzard II. Dziś na warsztacie jego prekursor, a więc wersja nazwana przez twórcę "Blizzard", lub "Blizzard I" (naklejka jest tak wyblakła że trudno stwierdzić):

Cartridge jest złożony na tym samej płytce drukowanej co poprzednik, jednak ponieważ zawiera pamięć EPROM o połowę mniejszą niż następca (EPROM 2764 - o rozmiarze 8 kB), to tym razem nie mamy przełącznika pozwalającego wybrać którą z połówek pamięci zobaczymy w oknie: $A000-$BFFF, górna strona płytki drukowanej prezentuje się tak:

a dolna wygląda następująco:

Schemat jest właściwie identyczny z tym zaprezentowanym z opisie Blizzard II, wiec zainteresowanych schematem zapraszam do postu związanego z cartem "Blizzard II" (link na początku tego postu). W tym carcie nie zamontowano również diody D1 podłączonej do linii D6, a więc cart nie posiada zabezpieczenia sprzętowego stosowanego przez firmę Atares.

Przechodząc na szybko do prezentacji zawartości tegoż cartridge, po uruchomieniu możemy zobaczyć:

A więc jest do dokładnie jedna z dwóch "połówek oprogramowania" którą zawierał cartridge "Blizzard II", oczywiście dla porządku i weryfikacji zawartości dokonałem dump-a (bez wypruwania EPROM, używając UNO Cart Dumpera), co potwierdziło zgodność z tym co było zawarte w jednej z połówek Blizzard II:

blizzard_I.bin.zip

47d7c9a6f3f60e116b1f26cd014bb60af6fca4d6ecdebccf76e0d8deccd9a4ee  blizzard_I.bin

Jak widać mamy pełną zgodność z "blizzard2_cart2.bin", zaprezentowaną w poście o "Blizzard II".

Co ciekawe płytka drukowana jest identyczna z tą która była w cartridge "Blizzard II", zamontowano na niej jedynie o połowę mniejszą pamięć, więc nie było potrzeby montażu przełącznika, zrezygnowano także z układu "zabezpieczenia". Co ciekawe człowiek składający ten cartridge nie zdecydował się na usunięcie topnika ze spodu PCB (prawdopodobnie kalafonia, chociaż ma dość dziwny kolor ;P) i to chyba wszystko co można powiedzieć o tym carcie. Niebawem następne.

2026-03-21 10:15:28

Robię co mogę, chociaż jak widać (po przerwach w moich postach) ... nie zawsze wychodzi, ale to nie tak że się znudziłem tematem czy nie ma co robić, zasobów do obrobienia jest cała masa... tylko głównie czasu brak niestety. Ale to jest bardzo fajne zajęcie jeżeli trzeba odpocząć od innych spraw.

2026-03-20 22:52:02

@Azbest: jak masz miejsce to zgrywaj co się da, internet już nie jest i nie będzie taki jak dawniej. Z tym że cały Myrient to chyba ~390TB danych, to jest naprawdę jakaś niewyobrażalna dla mnie ilość danych.

2026-03-20 18:56:31

Hej!

Teraz działa bez problemu! Dzięki! :D

test #1
test #2
test #3

2026-03-20 13:23:09

Hej!

Już jakiś czas temu o tym pisałem, ale chciałem się przypomnieć że nadal nie działa:

[list] ... [/list]

albo ja nie umiem jednak z tego korzystać?

2026-03-20 13:10:33

Dziś tylko post uporządkowujący wcześniej wspominany i "zgrany" cart. Pierwszy dump i fotki wykonał oczywiście uicr0bee. Ale dzięki temu że cart trafił potem w moje ręce mogłem go trochę doprowadzić do porządku, bo biedaczek wyglądał początkowo tak:

w środku płytka drukowana (PCB) prezentowała się tak (góra):

i dół płytki drukowanej:

soft zawarty w carcie to oczywiście "Unerring Master Super Cart" w wersji z EPROM-em o wielkości 8kB, po starcie cart przedstawia się następująco:

Jest to wersja carta z manualnym przełącznikiem ON/OFF. Aby wystartować cartridge należy ustawić przełącznik w pozycji "ON", po czy włączyć komputer, gdy pojawi się napis "CARTRIDGE OFF", przełączamy przełącznik w pozycję "OFF", który to fakt software wykrywa i uruchamia się dalej.

Cart zawiera soft dla systemów AST/ATT oraz UM. Z tym że soft dla AST jest oznaczony jako ATT (nie wiem skąd takie podejście autorów carta - firmy UM). A turbo ATT ma tutaj oznaczenie ATTN. Tak więc pozycje E,F,G,H oraz K, to tak naprawdę oprogramowanie dla AST. Czyli mamy dostępne:

E - loader AST
F - kopier AST
G - loader BUT dla AST
H - loader BOT dla AST
K - SCHANGER dla AST (prekursor programu UNICHANGER dostępnego potem w AST MUTLI-CAR).

Wykonałem drugi zrzut aby porównać to z tym co co udostępnił wcześniej uicr0bee, aby porównać zrzut wykonany Simple Cart Dumper-em. Z moim zrzutem wykonanym Uno Cart Dumperem (rozwiązanie sprzętowe oparte o Arduino UNO R3), tak więc nie było potrzeby wylutowywania pamięci EPROM z płytki.

Dla porządku link do pliku zawierającego zawartość EPROM-a tutaj: Unerring Master Super Cartridge [8k].

um_super_cart_8k.bin: 9020e69e4497178d6ce7292a906205d779ad65b3f9788327e67b959585d5d9c0  | SHA256
um_super_cart_8k.bin: fb547cb707fa94b50e279b3b7284f5ca                                  | MD5

Cartridge to standardowy cart o rozmiarze 8kB, mapujący się w obszar $A000-$BFFF. Teoretycznie soft wspiera odłączenie go za pomocą software (zapis do $D5xx). Jednak ta wersja sprzętu nie posiada elektroniki reagującej na ten zapis, z odłączenie należy wykonać ręcznie (za pomocą przełącznika). Jednak gdy pod emulatorem wybierze się typ cartridge "Phoenix 8K", procedura startowa carta odłączy go automatycznie.

Nie wiem czy ten cart jest jakimś klonem wykonanym przez kogoś innego czy też jedną z pierwszych konstrukcji wykonanych przez firmę "Unerring Master". Przybył do mnie bez naklejki a środek wygląda dość nazwijmy to "pioniersko", więc nie mam pewności co do pochodzenia.

Dla przypomnienia dwa linki, jeden to link do postu w którym to uicr0bee się rozprawił z tym cartem: Co to za cart?, a drugi link to link do późniejszego carta który był sprzedawany już na pewno przez Unerring Master: Unerring Master Super Cartridge (16k). Ta konstrukcja wyglądała już o wiele bardziej profesjonalnie, można zatem wysnuć wniosek że ten cart to albo bardzo wczesny prototyp i pierwsza seria, albo po prostu klon wykonany na płytce dostosowanej trochę na siłę do pamięci EPROM o rozmiarze 8K.

To chyba na tyle jeżeli chodzi o ten cart, dostał on nową obudowę, początkowo chciałem go przerobić na wersję bez przełącznika, ale uznałem że nie będę aż tak ingerował w konstrukcję nie mając pewności czy to klon czy ten oryginał z epoki poprzedzającej następne generacje cartów z UM. Zatem przełącznik został, a elektronika bez modyfikacji.

2026-03-19 16:59:25

Dzień dobry-wieczór wszystkim!

Dziś pora na kolejny cart z kolekcji uicr0bee, tym razem trafił się taki dziwny nieborak, mocno poturbowany z zewnątrz:

... jednak w środku zachował się w całkiem niezłym stanie, poniżej górna warstwa PCB:

... i do kompletu dolna:

A jaka jest zawartość tego carta? Okazuje się, że jeżeli chodzi o software jest to klon/remix carta "Blizzard HIT", prezentowanego już w tym wątku na forum. Tym razem jednak mamy do czynienia z wersją wykonaną przez kogoś podpisującego się "ST Electronic" z Tych, cart po odpaleniu przedstawia się tak:

^^^ "ST Electronic" nazwał sobie ten cart "LOTUS IV" ;-) i zawiera on tak jak "Blizzard HIT" oprogramowanie umożliwiające współpracę z systemem Turbo Blizzard.

Niejeden cart dla Blizzarda i niejedna wersja interfejsu Blizzard pojawiała się w tym wątku. Jeżeli wierzyć winiecie programu "ST Elektronic" znajdowało się Tychach (mamy nawet telefon do firmy). Niby typowy bankowany cartridge o rozmiarze 32kB, ale rozwiązanie sprzętowe nie jest klonem 1:1 tego co można było spotkać w wersjach "HIT", tutaj autor rozwiązania zrobił to w nieco inny sposób. Nie ma typowego przerzutnika RS złożonego z dwóch bramek NAND - bramki zostały użyte nieco inaczej. A pisze o tym tylko dlatego że spodziewałem się kopii 1:1 zarówno zawartości EPROM jak i sprzętu, a tu jednak spotkała mnie niespodzianka, zaprezentuję może zatem schemat tego carta:

Do pobrania również wersja wektorowa schematu: Blizzard Hit Clone - Lotus IV (PDF).

Kart jest podzielony na 4 banki pamięci widoczne w oknie $A000-$BFFF. Każde odwołanie do komórek z zakresu $D500...$D5FF, powoduje przełączenie na następny bank pamięci widoczny w oknie $A000-$BFFF. Piąte odwołanie powoduje odłączenie cartridge. Ponowne uruchomienia carta wymaga wyłączenia i włączenia zasilania, twórca nie umieścił przycisku "RESET", na obudowie cartridge.

Z ciekawostek możemy zauważyć że pamięć EPROM wyprodukowana przez Intel nie ma typowego oznaczenia 27C256, a widnieje na niej identyfikator: "B57604", co jeżeli wierzyć informacjom zawartym w internecie jest nr katalogowym OEM dla BOSCH/SIEMENS. Wygląda więc na to że BOSCH/SIEMENS zamawiał te kostki u Intela, a ten znakował je numerem identyfikacyjnym narzuconym przez zamawiającego.

Drugą ciekawostka jest taka że w przypadku tej wersji elektroniki konstruktor nie kopiował ślepo rozwiązań z cartów "Turbo HIT", a poszedł własną drogą i zamiast przerzutnika RS złożonego z dwóch bramek NAND w całości bazował na zachowaniu się licznika 7490. Bramki NAND układu 7400 zostały wykorzystane w różnych celach. Bramki U3A, U3C, U3D zostały wykorzystane jako inwertery (negatory), natomiast bramka U3B została wykorzystana do zablokowania sygnału zegarowego dla licznika 7490 w chwili gdy ten doliczy do wartości "4", wtedy dalsze zliczanie przez licznik zostaje zablokowane i cart wyłącza się, do momentu ponownej sekwencji wyłącz/włącz komputera. Zasada działania taka sama jak w przypadku cartów Blizzard HIT, a jednak realizacja sprzętowa nieco inna. Zawsze to miło popatrzeć że ktoś wykazał się własną inwencją i wprowadził zmiany do projektu, zawsze to coś nowego do analizy :)

Zawartość pamięci EPROM do pobrania tutaj: Blizzard 32K Lotus IV i do kompletu jeszcze SHA256 zawartości EPROM:

78dc6e76bc67ddc4e570fe31aa520e04f82c315020ec81f94bb278cd09d3f8a9  blk32k_hit_clone_lotus_IV.bin

Obraz carta można uruchomić pod emulatorami (zarówno Atari800 jak i Altirra) wybierając typ carta: "Blizzard 32K". Wsparcie dla tego typu carta do emulatora Atari800 dopisał Krótki, za co mu serdecznie dziękuję!

EDIT#1: Przypomniało mi się że tym wątku była prezentowana jeszcze jedna wersja cartridge Atari Blizzard HIT, jednak ta wersja wydawała się repliką z obecnych czasów. A jeżeli chodzi o ten cartridge to chyba tyle co miałem do powiedzenia na jego temat. Mam nadzieję że niebawem pojawią się następne moje posty/opisy ;-)

EDIT#2: Przypomniało mi się że podobną konstrukcją (wygląd PCB), był cart Marka Góreckiego (EGR General Programming/Górecki Production) "Turbo Toolbox II". Nie wiem który cart był nowszy, ten od EGR może być nieco późniejszą konstrukcją. Ale nie jestem tego pewien, ale zakładam że EGR zoptymalizował sobie konstrukcję carta do jednego scalaka (użył sowieckiego klona 74175, w sprytnej konfiguracji która tworzy rej. przesuwający/licznik), stąd moje założenie że to późniejsza "zoptymalizowana" konstrukcja. Ale mogło być też tak że cart od ST Electronic był przeprojektowanym klonem bazującym albo na Turbo Toolbox II albo na Turbo HIT, mogło być tak że 7400 i 7490 były łatwiej dostępne niż 74175 czy też ich sowieckie klony... no ale to tylko moje dywagacje, jak było naprawdę nie wiem.

2026-03-17 12:40:23

Ja dość długo używałem szpul i kaset jako pamięci masowej - stacje dysków przez długi czas pozostawały poza moim zasięgiem. Sytuację uratowało dopiero "Turbo" do magnetofonu, które znacząco ułatwiło i przyspieszyło pracę oraz zabawę z komputerem. Moją pierwszą stacją dysków był TOMS720 - co ciekawe, w tamtym czasie była to jedna z najtańszych opcji. Modele takie jak LDW2000 czy CA2001 były wyraźnie droższe.

Nie ma jednak tego złego, co by na dobre nie wyszło. Dzięki temu, że taśma przez długi czas była moim jedynym nośnikiem danych dla Atari, miałem okazję dobrze poznać tajniki zapisu i odczytu, a także różne metody ich przyspieszania i modyfikowania - zarówno na poziomie procedur, jak i samej struktury nagrania. Ten sentyment pozostał do dziś, dlatego wciąż do tego wracam, próbując zachować resztki tej "taśmowej" historii świata Atari.

Wracając do sedna - gdy zaczynałem swoją przygodę z tym komputerem, dość szybko zauważyłem, że coś jest nie tak z odczytem. Byłem jednak wtedy zbyt niedoświadczony, żeby zrozumieć, gdzie leży problem i jak się za niego zabrać. Ostatecznie pogodziłem się z tym i z czasem przestałem zwracać na to uwagę - zwłaszcza gdy pojawiło się u mnie Turbo 2000, które praktycznie rozwiązało problem z mojej perspektywy.

2026-03-17 09:28:13

Patrząc z mojej perspektywy, to problem nie wydaje się być jest wydumany. I nie chodzi tylko o "BOOT ERROR", ten błąd dotyczy każdej operacji odczytu z magnetofonu w standardzie (czy to gra ładowana za pomocą "!", czy też program ładowany w BASIC przez CLOAD).

Mi się zdarzało często na niego trafiać. Mimo że miałem nagrania dobrej jakości (magnetofon szpulowy, przesuw 9,5cm/s albo 19cm/s). A przy długich programach potrafiło mi się losowo wczytywanie wywalić, ba... nawet było słychać że "baud rate" jest źle ustawiony przez procedurę odczytu, to był bardzo charakterystyczny dźwięk/odgłos w wypadku wystąpienia tego głędu. W dodatku błąd występował w różnych miejscach nagrania, a więc to nie było tak że to nagranie było uszkodzone.

Ja naprawdę sporo czasu używałem taśm. U mnie remedium na ten "problem" było używanie np. Turbo 2600 (szpulowiec dawał radę ~1300bps z interfejsem który posiadałem, bo nie miałem rozwiązania od firmy SZOK ze Świebodzina) lub Iron Turbo które to zmieniały strukturę nagrania na taśmie. Potem miałem XC12 i problem występował oczywiście również. Borykałem się się z tym problemem do czasu zamontowania KSO Turbo 2000. Nie wiem jak u innych, może mieli więcej szczęścia. Ja miałem ewidentnego pecha jeżeli chodzi o trafianie na ten "problem".

2026-03-17 07:29:07

Super! Naprawdę fajnie słyszeć że chciało wam się użyć tych kaset! :D

A co do chodzenia na palcach... czego ja nie robiłem jako młody człowiek aby klątwa magnetofonu mnie nie dopadła... a potem po tylu latach człowiek dowiaduje się że:

10 minut wczytywania a tu nagle BOOT ERROR? Teraz wiadomo czemu ;-)

2026-03-16 18:07:44

Hej! No to świetne wieści! :) cieszę się że po tylu latach udało Ci się to wczytać! :)

W przypadku tych pozycji które z racji wieku sprawiają kłopoty z wczytywaniem, to oczywiście można nagrać duplikaty z dump-ów które zrobiłem i udostępniłem.

Naprawdę się cieszę że te kasety mają kolejne życie! :)

Aktualności ze świata Atari

Opcje wyszukiwania (Strona 2 z 127)

Znalezione posty [ 26 do 50 z 3,171 ]

26 Odpowiedź przez seban 2026-04-12 15:00:33

Odp: Turbo Tapes, Carts & Hardware - z kolekcji uicr0bee i nie tylko :] (1,309 odpowiedzi, napisanych Sprzęt - 8bit)

27 Odpowiedź przez seban 2026-04-09 16:05:02

Odp: Turbo Tapes, Carts & Hardware - z kolekcji uicr0bee i nie tylko :] (1,309 odpowiedzi, napisanych Sprzęt - 8bit)

28 Odpowiedź przez seban 2026-04-08 10:34:03

Odp: Turbo Tapes, Carts & Hardware - z kolekcji uicr0bee i nie tylko :] (1,309 odpowiedzi, napisanych Sprzęt - 8bit)

29 Odpowiedź przez seban 2026-04-03 08:19:13

Odp: Turbo Tapes, Carts & Hardware - z kolekcji uicr0bee i nie tylko :] (1,309 odpowiedzi, napisanych Sprzęt - 8bit)

30 Odpowiedź przez seban 2026-04-02 10:01:57

Odp: Prima Aprilis Compo 2026 (16 odpowiedzi, napisanych Różne)

31 Odpowiedź przez seban 2026-04-01 13:23:06

Odp: Prima Aprilis Compo 2026 (16 odpowiedzi, napisanych Różne)

32 Odpowiedź przez seban 2026-04-01 08:06:39

Odp: Certyfikat wygasł? (5 odpowiedzi, napisanych Sprawy atari.area)

33 Odpowiedź przez seban 2026-03-30 13:05:24

Odp: Prima Aprilis Compo 2026 (16 odpowiedzi, napisanych Różne)

34 Odpowiedź przez seban 2026-03-30 12:06:57

Odp: Prima Aprilis Compo 2026 (16 odpowiedzi, napisanych Różne)

35 Odpowiedź przez seban 2026-03-30 10:47:03

Odp: Prima Aprilis Compo 2026 (16 odpowiedzi, napisanych Różne)

36 Odpowiedź przez seban 2026-03-29 21:05:33

Odp: Prima Aprilis Compo 2026 (16 odpowiedzi, napisanych Różne)

37 Odpowiedź przez seban 2026-03-25 08:11:30

Odp: Turbo Tapes, Carts & Hardware - z kolekcji uicr0bee i nie tylko :] (1,309 odpowiedzi, napisanych Sprzęt - 8bit)

38 Odpowiedź przez seban 2026-03-24 10:41:37

Odp: Turbo Tapes, Carts & Hardware - z kolekcji uicr0bee i nie tylko :] (1,309 odpowiedzi, napisanych Sprzęt - 8bit)

39 Odpowiedź przez seban 2026-03-23 10:01:55

Odp: Turbo Tapes, Carts & Hardware - z kolekcji uicr0bee i nie tylko :] (1,309 odpowiedzi, napisanych Sprzęt - 8bit)

40 Odpowiedź przez seban 2026-03-22 12:49:15

Odp: Turbo Tapes, Carts & Hardware - z kolekcji uicr0bee i nie tylko :] (1,309 odpowiedzi, napisanych Sprzęt - 8bit)

41 Odpowiedź przez seban 2026-03-21 10:15:28

Odp: Turbo Tapes, Carts & Hardware - z kolekcji uicr0bee i nie tylko :] (1,309 odpowiedzi, napisanych Sprzęt - 8bit)

42 Odpowiedź przez seban 2026-03-20 22:52:02

Odp: Padające serwisy (9 odpowiedzi, napisanych Miejsca w sieci)

43 Odpowiedź przez seban 2026-03-20 18:56:31

Odp: forum BBCode - nie działa list. (4 odpowiedzi, napisanych Sprawy atari.area)

44 Temat przez seban 2026-03-20 13:23:09

Temat: forum BBCode - nie działa list. (4 odpowiedzi, napisanych Sprawy atari.area)

45 Odpowiedź przez seban 2026-03-20 13:10:33

Odp: Turbo Tapes, Carts & Hardware - z kolekcji uicr0bee i nie tylko :] (1,309 odpowiedzi, napisanych Sprzęt - 8bit)

46 Odpowiedź przez seban 2026-03-19 16:59:25

Odp: Turbo Tapes, Carts & Hardware - z kolekcji uicr0bee i nie tylko :] (1,309 odpowiedzi, napisanych Sprzęt - 8bit)

47 Odpowiedź przez seban 2026-03-17 12:40:23

Odp: [Ch] - GRUBCIO - zestaw 5 kaset (seria #4) (14 odpowiedzi, napisanych Kupię / Sprzedam / Zamienię Atari)

48 Odpowiedź przez seban 2026-03-17 09:28:13

Odp: [Ch] - GRUBCIO - zestaw 5 kaset (seria #4) (14 odpowiedzi, napisanych Kupię / Sprzedam / Zamienię Atari)

49 Odpowiedź przez seban 2026-03-17 07:29:07

Odp: [Ch] - GRUBCIO - zestaw 5 kaset (seria #4) (14 odpowiedzi, napisanych Kupię / Sprzedam / Zamienię Atari)

50 Odpowiedź przez seban 2026-03-16 18:07:44

Odp: [Ch] - GRUBCIO - zestaw 5 kaset (seria #4) (14 odpowiedzi, napisanych Kupię / Sprzedam / Zamienię Atari)

Znalezione posty [ 26 do 50 z 3,171 ]