1 Odpowiedź przez seban

(13 odpowiedzi, napisanych Kupię / Sprzedam / Zamienię Atari)

uicr0Bee napisał/a:

Niestety po wyjęciu niedawno z szafy, okazało się że nie kręci kasetą przy PLAY, nie przewija. Wymieniłem pasek na nowy ale bez zmian.
Nie mam umiejętności ani czasu aby z nim walczyć.

Kurdę! Co za uparty egzemplarz! Nie dość że tyle go reanimowałem to znowu nie działa? :( Ale silnik w ogóle się kręci? czy jest kompleta cisza? 

POKE 54018,52

z poziomu BASIC-a i PLAY ... jaki daje efekt? kompletna cisza? (brak odgłosu silnika?).

Jakby co podeślij go jeszcze raz, nie będzie nam taki magnetofon się stawiał ;-)

Idź do forum: Kupię / Sprzedam / Zamienię Atari

2 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

JLS napisał/a:

Następny update dotyczący adresu wymienionego w instrukcji ul. Wyspiańskiego. Z zawartości książki telefonicznej Gliwic, przełom lat 90-tych i początek 2000 roku, która w postaci elektronicznej przez przypadek mi się ostała, wynika że nie jest to osoba którą wymieniłeś o domniemywanym nazwisku Kania. Mam nawet nr tel. stacjonarnego :)

Dziękuję za sprawdzenie i dalsze zgłębienie tematu! Mamy jakąś jasność co do tego że pod tym adresem pan Grzegorz Kania nie mieszkał, przynajmniej w chwili w której powstawała książka telefoniczna. Na chwilę obecną można chyba uznać że zabrnęliśmy w ślepą uliczkę. No trudno, może przyszłość przyniesie jakieś wyjaśnienia.

uicr0Bee napisał/a:

seban, a czy kojarzysz, czy miałeś te kasety ode mnie? U Ciebie na pigwie nie widzę, a ja mam je w razem z innymi z pigwy w takim białym futerale na 24 kasety, który chyba był u Ciebie, nie? Jak nie miałeś, to czy odłożyć do archiwizacji do przyszłej paczki?

Przyznam że już nie pamiętam czy te konkretne kasety były u mnie, możesz dorzucić do przyszłej paczki, zgram oczywiście. Ale rzucę jeszcze okiem czy czegoś nie pomieszałem i czy czegoś nie opuściłem. Białe pudło jak najbardziej było w moich rękach.

Idź do forum: Sprzęt - 8bit

3 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

QTZ napisał/a:

AUTOCOPY 3.0 zapisuje inną długość bloku: $0B16, zamiast $0C17

AUTOCOPY 3.1 chodzi o sumę, ale nie wygląda żeby chodziło o XOR-a.
Nie wiem czemu ldx, ale wydaje mi się, że chodzi o inną wartość początkową sumy:


A widzisz nie pamiętałem już że AUTOCOPY 3.0 ma inną długość bloku, sprawdzę.
Jeżeli chodzi o LDX #$A3 - jest dokładnie tak jak piszesz, chodzi o inną początkową wartość sumy kontrolnej.

QTZ napisał/a:

W pliku c3_copy.xsm jest w poniższej linii " ' " zamiast " ; " i w Mads to nie przechodzi.

No tak mój błąd, powinien być oczywiście " ; ", ale w przypadku XASM nie ma to znaczenia (a ja używam do kompilacji projektu XASM), XASM zapewnia wsteczną zgodność z QA, a więc wszystko co będzie po poprawnym mnemoniku będzie ignorowane, dlatego ' (apostrof) przechodzi w XASM a w MADS nie.

QTZ napisał/a:

ert    *>$d000

nie wiem jak w MADS, ale w XASM dyrektywa "ERT" (error if true) generuje błąd kompilacji jeżeli warunek jest prawdą. W tym wypadku to sprawdzenie czy skompilowany kod nie przekroczył adresu $CFFF. Jeżeli skompilowany kod przekroczy ten adres, to XASM po prostu zgłosi błąd. Usunięcie tabulatora zapewne spowodowało że "ERT" zostało potraktowane jako etykieta (nie używam MADS [ za małe  i za proste projekty robię ] - a więc to jedynie moje domysły).

Idź do forum: Sprzęt - 8bit

4 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

Hej!

JLS napisał/a:

Byłem na wskazanym adresie, rzuciłem okiem, niestety domofon jest na tyle nowoczesny, bo jest bez wskazywania  nazwisk mieszkańców.

Dzięki za sprawdzenie, dalsze drążenie nie ma chyba sensu. Pytanie na miejscu mogłoby być mało komfortowe dla obecnie zamieszkujących pod wskazanym adresem.

@QTZ: Dzięki za szczegółową informację zwrotną! Oczywiście sprawdzę to wszystko. Zgodnie z Twoją sugestią dodam oczywiście wsparcie dla innego liczenia sumy kontrolnej (XOR vs modulo 256) tak aby czytało to pliki zabezpieczone AUTOCOPY 3.x. Przyjrzę się oczywiście szczegółowo też linii którą wskazałeś, wszystko wskazuje na to że popełniłem tam faktycznie błąd, oczywiście poprawię.

Dzięki wielkie że chciało Ci się w tym grzebać i wychwyciłeś nieścisłości! Jeżeli chodzi o BASIC, to coś było na rzeczy ale wydawało mi się że to poprawiłem, może jednak czegoś jeszcze nie dopatrzyłem.

Jeżeli chodzi o KSO 2000 pod Altirra to odczyt działa (sprawdzałem), nie działał chyba tylko zapis, ale zapis działał pod modyfikowaną przez FUJI-ego wersją Atari800.

Na pewno poprawię i dodam co trzeba, tylko proszę o chwilę cierpliwości, muszę dokończyć bieżące tematy leżące na biurku.

Idź do forum: Sprzęt - 8bit

5 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

Dzięki za skany! :) Każdy taki materiał jest bardzo fajnym i cennym historycznie znaleziskiem!

Idź do forum: Sprzęt - 8bit

6 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

JLS napisał/a:

Jeśli pod wskazanym adresem znajdują się nazwiska na domofonie, mogę spróbować to sprawdzić. Ten adres  jest w prostej linii około 500 metrów od mojego miejsca zamieszkania.

To jakbyś kiedyś przechodził i miał chęć to rzuć okiem to byłoby fajnie, może faktycznie będzie jakiś ślad, ale to nic na siłę, to nie tak że chodzi mi o "nękanie" ludzi z przeszłości, po prostu ciekawy jestem kontekstu historycznego. Wszystko co związane takimi tematami i sprawami z dawnych czasów bardzo szybko się zaciera, stąd moje czasami dziwne pytania i próby dociekania jak to wszystko mogło wyglądać w tamtym czasie.

Idź do forum: Sprzęt - 8bit

7 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

@tOri: dzięki za miłe słowa! To naprawdę była fajna przygoda... wyszło tak jakoś samo z siebie ;) Można narzekać na AI/LLM-y ale w tym wypadku to własnie model językowy był motywatorem do działania bo odwalał najnudniejszą robotę, taką za którą nie wziąłbym się sam przed długi czas, ponieważ okno czasowe jakim dysponowałem nie było zbyt duże.

@JLS: a to też jest ciekawa informacja! Nie pamiętasz może czy ten człowiek pod tym adresem nazywał się może Grzegorz Kania? Dopytuję to w niektórych carta do Blizzarda tam gdzie widnieje "KNS Corp.", "KNS" lub "KNS Corporation", widnieje też albo "G. Kania", lub "Grzegorz Kania". Ja to wszystko dopytuję się w celu zrozumienia zależności lub raczej niezależności firmy ATARES i KNS. Można jednak założyć że skoro przeróbkę na Blizzard zrobiłeś w Gliwicach to ten człowiek który tę przeróbkę wykonał (z dużym prawdopodobieństwem był to pan G. Kania / KNS Corp) nie był podmiotem zależnym od ATARES. Zastanawiam się też czy KNS Corp. to był niejako "szyld" pod którym działał pan G. Kania czy też w skład KNS Corp. wchodziło więcej osób. Zastanawiałem się również czy też ów "KNS" nie było skrótem np. od "KaNia Software" ;-) Ale to już czysta spekulacja jest.

Moje dociekania biorą się stąd ze początkowo myślałem że software/hardware jaki powstał dla Blizzarda rodził się ATARES, jednak im więcej kopię i im więcej czasu poświęcam na próbę zrozumienia zależności to wychodzi mi na to że system nie miał jednego autora, tylko to była ciągła ewolucja do której każdy działające wokół tego tematu dokładał swój wkład.

To pewnie jest już nie do ustalenia, ale ciekawi mnie czy ATARES które to potem w swoich cartridge miało software (loadery, KOS, etc.) sygnowane przez KNS w jakiś sposób dogadało się autorem tychże programów czy też było to na zasadzie czystej "partyzantki" i brania z rynku istniejących rozwiązań i pakowania ich do swoich produktów.

Idź do forum: Sprzęt - 8bit

8 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

O to jest świetna idea! Mirrorów taki wartościowych stron nigdy nie za wiele! Widzę że udało się z Twoją pomocą uzupełnić brakujące pliki! super! Dzięki! No i oczywiście podziękowania również dla Kuby Husaka że chciało mu się to ogarnąć i wrzucić github-IO. Śmiga super szybko! Już sobie dodałem do "zakładek".

Idź do forum: Sprzęt - 8bit

9 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

ZABEZTUR - rekonstrukcja ROM-u z pomieszanymi liniami adresowymi/danych

Dziś w wątku temat nieco odbiegający od tego, co zwykle tutaj prezentuję - postanowiłem zająć się czymś, co męczyło mnie od dłuższego czasu...

Zacznijmy może od tego że na stronie ś.p. Jerzego Soboli, w dziale schematy, na dole strony znajdują się również dumpy różnych ROM-ów. Jeden z nich opisany jest opisany tak:

zabeztur.zip - ROM kartridża TURBO 2000 zabezpieczający przed kopiowaniem nagrane programy.

Jakiś czas temu mnie to mocno zaintrygowało. Niestety zawartość dumpa wyglądała na kompletną sieczkę - losowy, nieczytelny ciąg bajtów. Przez długi czas odkładałem temat, bo brakowało zarówno czasu, jak i sensownego pomysłu, jak się za to zabrać. Zacząłem się nawet zastanawiać, czy dump nie jest po prostu uszkodzony. Nie chciałem również zawracać głowy Jerowi taką błahostką, odkładając temat na później. Jak się okazało nie zdążyłem zapytać i już nie będę miał takiej możliwości :(

Mimo wszystko temat nie dawał mi spokoju. Wracało co jakiś czas, aż w końcu stwierdziłem, że pora spróbować jeszcze raz - tym razem bardziej metodycznie. Nie chciało mi się jednak zaczynać całkowicie od zera, więc postanowiłem wspomóc się dużym modelem językowym (padło na ChatGPT 5.4). Pomógł mi on przygotować podejście do analizy danych oraz zaproponować metody, których ręczne opracowanie zajęłoby sporo czasu.

Zakładałem, że JER poprawnie odczytał zawartość EPROM-u, ale wszystko wskazywało na to, że:
- albo EPROM był uszkodzony i dump faktycznie jest błędny,
- albo PCB miało celowo pozamieniane ścieżki.

Coraz bardziej prawdopodobne wydawało się to drugie - czyli przemieszane linie adresowe i/lub danych.

Brute force wszystkich możliwości nie wchodził w grę - to daje (8+12)! permutacji, czyli coś około 2432902008176640000 możliwości :P

Zamiast tego zastosowałem podejście etapowe.

1. Dane (D0..D7)

Na początek założyłem, że problem może dotyczyć wyłącznie permutacji bitów danych. 
Przetestowałem wszystkie 8! permutacji, czyli 40320 możliwości, ale zamiast przeszukiwać wszystkie i sprawdzać "czy działa", użyłem heurystyki:

- histogram wartości bajtów
- częstość występowania typowych opcode-ów 6502 (A9, 20, 4C, 60, D0, F0 itd.)

Dobra permutacja szybko się wyróżnia - rozkład bajtów przestaje wyglądać losowo i zaczyna przypominać kod maszynowy.

2. Dolne linie adresowe (A0..A3)

Po poprawieniu danych ROM nadal był niespójny, ale już "prawie wyglądał jak 6502".

Kolejny krok to "brute force" dla A0..A3 (11880 przypadków, bo 12P4 = (12!)/(12-4)! = 12 × 11 × 10 × 9 = 11880) z oceną lokalnej składni:

- dopasowanie sekwencji typu:

A9 xx
20 xx xx
4C xx xx
8D xx xx
D0 xx
60

Na tym etapie pojawił się pierwszy "żywy" kod - nadal rozbity globalnie, ale lokalnie sensowny.

3. Środkowe linie (A4..A7)

Tutaj zaczęły pojawiać się fragmenty tekstów, więc do punktacji dodałem:

- premię za ciągi ASCII
- dopasowanie fragmentów słów (np. "TURBO", "format", "plik")

Obraz ROM-u stawał się coraz bardziej czytelny, choć napisy nadal były porozrywane.

4. Górne linie (A8..A11)

Przełomowy moment nastąpił, gdy zauważyłem, że fragmenty napisów istnieją, ale są rozdzielone między różnymi obszarami pamięci.

Przykład:

"Zly fo"  ...  "rmat pliku"

Czyli dane były poprawne, ale większe bloki (strony) były źle ułożone.

Na tym etapie wystarczyło brute force dla 4! = 24 wariantów i dopasowanie pełnych stringów:

- "Zly format pliku"
- "TURBO COPY"
- "dlugosc"
- itd.

Jeden wariant wyraźnie się wyróżnił - i to był właściwy kierunek.

Wynik

Po odwróceniu wszystkich permutacji:

- ROM jest w pełni poprawny
- system uruchamia się w emulatorze
- teksty i logika programu są spójne

Finalne mapowania

Dane:

CART        -> EPROM 2732
-------------------------
D0          -> D1
D1          -> D0
D2          -> D5
D3          -> D4
D4          -> D7
D5          -> D6
D6          -> D2
D7          -> D3

Adresy:

CART        -> EPROM 2732
-------------------------
A0          -> A2
A1          -> A10
A2          -> A11
A3          -> A9
A4          -> A3
A5          -> A8
A6          -> A7
A7          -> A6
A8          -> A5
A9          -> A4
A10         -> A0
A11         -> A1

Podsumowanie

Plik, który początkowo wyglądał jak losowy szum, koniec końców okazał się poprawnym zrzutem pamięci EPROM. Nie wiem, czy pozamieniane linie adresowe/danych miały być rodzajem zabezpieczenia, czy raczej ułatwieniem prowadzenia ścieżek na płytce drukowanej. Niestety nie widziałem oryginału, z którego JER wykonywał dump, więc mogę się jedynie domyślać.

Całość udało się odtworzyć wyłącznie na podstawie:
- analizy statystycznej danych
- struktury kodu 6502
- oraz fragmentów tekstów obecnych w ROM-ie

Początkowo zakładałem, że nie uda mi się odkryć tajemnicy tego pliku, ale w końcu udało się ją rozwiązać i przestało mnie to "męczyć", teraz mogę stwierdzić że była to fajna zagadka - zdecydowanie warta poświęconego czasu! Naprawdę cieszę się, że cała ta zabawa zakończyła się sukcesem, mimo że odkrycie zawartości wywołało u mnie raczej uśmiech na twarzy, bo po tej całej walce moim oczom ukazał się następujący obraz:

https://pigwa.code32.org/atari/JER_WZab_2T12/scr/WZab_2T12_A.png   https://pigwa.code32.org/atari/JER_WZab_2T12/scr/WZab_2T12_B.png

^^^ zatem z dużym prawdopodobieństwem można przyjąć, że to nie jest: "ROM kartridża TURBO 2000 zabezpieczający przed kopiowaniem nagrane programy", tylko raczej: "ROM kartridża TURBO 2000 zabezpieczony przed kopiowaniem". Zabezpieczeniem był nietypowy układ ścieżek na płytce cartridge ;) Cart z identyczną zawartością był już opisany w tym wątku, a dokładniej w tym poście: Turbo 2000 COPY <--- z tym że ten cart nie miał pozamienianych linii danych/adresowych.

Dla porządku oczywiście wrzucam link do tego, co udało się zdekodować: WZab_2T12_recovered.bin.zip

Skróty plików zgadzają się w 100% z tymi, które są udostępnione w w/w poście:

MD5    : b74515156ce99bbb658ef342a91f051f
SHA256 : 2821fec46fb1caf4ad75f0f2f5905987671df0d5d18c7f9d098d95a23ae7154b

A dla jeszcze większego porządku - aby każdy zainteresowany mógł samodzielnie zdekodować plik ze strony JER-a - dodaję skrypt w Pythonie: descramble_WZab_2T12.py, przykład użycia:

python3 descramble_WZab_2T12.py WZab_2T12_scrambled.bin -o WZab_2T12_recovered.bin 
Gotowe.
Wejscie : WZab_2T12_scrambled.bin
Wyjscie : WZab_2T12_recovered.bin
Dane    : (1, 0, 5, 4, 7, 6, 2, 3)
Adresy  : (2, 10, 11, 9, 3, 8, 7, 6, 5, 4, 0, 1)

Skróty pliku wynikowego:
  MD5    : b74515156ce99bbb658ef342a91f051f
  SHA256 : 2821fec46fb1caf4ad75f0f2f5905987671df0d5d18c7f9d098d95a23ae7154b

I to chyba tyle na dziś - dobranoc wszystkim!

Idź do forum: Sprzęt - 8bit

10 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

@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.

Idź do forum: Sprzęt - 8bit

11 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

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:

https://pigwa.code32.org/uicr0bee/carts/Turbo2001_v22/photos/t2k1_klatwa_cart.jpg
^^^ 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:
https://pigwa.code32.org/uicr0bee/carts/Turbo2001_v22/photos/t2k1_klatwa_pcb_bot.jpg

Strona lutowania:
https://pigwa.code32.org/uicr0bee/carts/Turbo2001_v22/photos/t2k1_klatwa_pcb_top.jpg

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:

https://pigwa.code32.org/uicr0bee/carts/Turbo2001_v22/scr/t2k1_v22_klatwa_a.png   https://pigwa.code32.org/uicr0bee/carts/Turbo2001_v22/scr/t2k1_v22_klatwa_b.png

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:

https://pigwa.code32.org/uicr0bee/carts/Turbo2001_v22/sch/turbo_2001_4K_cart.png
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.

Idź do forum: Sprzęt - 8bit

12 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

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:
https://pigwa.code32.org/uicr0bee/carts/Blizzard_16k_Phoenix_clone/photos/blz_phoenix_clone_cart.jpg
^^^ 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):
https://pigwa.code32.org/uicr0bee/carts/Blizzard_16k_Phoenix_clone/photos/blz_phoenix_clone_pcb_top.jpg
^^^ 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:
https://pigwa.code32.org/uicr0bee/carts/Blizzard_16k_Phoenix_clone/photos/blz_phoenix_clone_pcb_bot.jpg

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:
https://pigwa.code32.org/uicr0bee/carts/Blizzard_16k_Phoenix_clone/sch/blz16k_phoenix_clone.png
^^^ Do pobrania oczywiście również wersja wektorowa: Blizzard 16KB - Phoenix (clone).

Cart po uruchomieniu prezentuje się tak:
https://pigwa.code32.org/uicr0bee/carts/Blizzard_16k_Phoenix_clone/scr/blz_phoenix_1.0.png

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.

Idź do forum: Sprzęt - 8bit

13 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

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:

https://pigwa.code32.org/uicr0bee/carts/Blizzard_32k_Hens/photos/blz_hit_clone_hens_cart.jpg

górna warstwa płytki drukowanej wygląda tak:
https://pigwa.code32.org/uicr0bee/carts/Blizzard_32k_Hens/photos/blz_hit_clone_hens_pcb_top.jpg

a dolna strona prezentuje się następująco:
https://pigwa.code32.org/uicr0bee/carts/Blizzard_32k_Hens/photos/blz_hit_clone_hens_pcb_bot.jpg

Po uruchomieniu widzimy następujący ekran powitalny:
https://pigwa.code32.org/uicr0bee/carts/Blizzard_32k_Hens/scr/blz_hit_clone_hens.png
^^^ 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:

https://pigwa.code32.org/uicr0bee/carts/Blizzard_32k_Hens/sch/blz32k_hens_clone.png?
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.

Idź do forum: Sprzęt - 8bit

14 Odpowiedź przez seban

(16 odpowiedzi, napisanych Różne)

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!

Idź do forum: Różne

15 Odpowiedź przez seban

(16 odpowiedzi, napisanych Różne)

#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

Idź do forum: Różne

16 Odpowiedź przez seban

(5 odpowiedzi, napisanych Sprawy atari.area)

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

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

Idź do forum: Sprawy atari.area

17 Odpowiedź przez seban

(16 odpowiedzi, napisanych Różne)

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

Idź do forum: Różne

18 Odpowiedź przez seban

(16 odpowiedzi, napisanych Różne)

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

Idź do forum: Różne

19 Odpowiedź przez seban

(16 odpowiedzi, napisanych Różne)

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.

Idź do forum: Różne

20 Odpowiedź przez seban

(16 odpowiedzi, napisanych Różne)

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

Idź do forum: Różne

21 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

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".

Idź do forum: Sprzęt - 8bit

22 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

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:
https://pigwa.code32.org/uicr0bee/carts/universal_turbo/photos/universal_turbo_cart.jpg

Płytka drukowana od strony elementów:
https://pigwa.code32.org/uicr0bee/carts/universal_turbo/photos/universal_turbo_pcb_top.jpg

Spód płytki drukowanej:
https://pigwa.code32.org/uicr0bee/carts/universal_turbo/photos/universal_turbo_pcb_bot.jpg

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.

Idź do forum: Sprzęt - 8bit

23 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

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).

Idź do forum: Sprzęt - 8bit

24 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

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ć):

https://pigwa.code32.org/uicr0bee/carts/Blizzard_I/photos/blizzard_I_cart.jpg

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:

https://pigwa.code32.org/uicr0bee/carts/Blizzard_I/photos/blizzard_I_pcb_top.jpg

a dolna wygląda następująco:
https://pigwa.code32.org/uicr0bee/carts/Blizzard_I/photos/blizzard_I_pcb_bot.jpg

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ć:
https://pigwa.code32.org/uicr0bee/carts/Blizzard_I/scr/blizzard_I.png

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.

Idź do forum: Sprzęt - 8bit

25 Odpowiedź przez seban

(1,278 odpowiedzi, napisanych Sprzęt - 8bit)

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.

Idź do forum: Sprzęt - 8bit