Tak jak pisałem ze skanów stron magazynu Razem udostępnionych przez uicr0Bee przepisałem (z mizerną w tym przypadku pomocą OCR-a) 2 listingi, które tam znalazłem: Trzy Kostki i Kalendarz. Zrobiłem też niezbędne poprawki - szczegóły w tamtym wątku. Opis po zsynchronizowaniu plików z OCR wyszedł zupełnie bezbłędny!

Przy okazji odszukałem oryginalny program Calendar, który wraz z wieloma innymi dostępny jest tu:
http://www.atarimania.com/documents/gam … _atari.pdf
Niestety nie odnalazłem odpowiednika Trzech Kostek.

Do małej optymalizacji (do samodzielnego zaaplikowania) wykorzystałem sposób użycia POKE / PEEK zamiast / z RESTORE z tej książki:
https://www.retrocomputers.gr/media/kun … i_text.pdf

Program Trzy Kostki nieco odchudziłem, ale, że jeszcze trochę można zrobić, nie udostępniam tej wersji (może później tu dodam).

PS. Tak się złożyło, że sam kiedyś pisałem kalendarz, a niedawno program z obracaną kostką. Poprawiałem też już inne tego typu programy :)

Edit: W 3-ech Kostkach znalazłem błąd - gdy na pytanie "na jaką liczbę stawiasz?" odpowiedzią będzie liczba powyżej 6, bądź litera (nie P i nie wyraz POMOCY), to stan konta zmniejszy się o podaną krok wcześniej stawkę, można w ten sposób doprowadzić do ujemnego stanu konta (kilkukrotnie wpisując błędną wartość np. literę), jeżeli później podamy literę P to po wyświetleniu pomocy zobaczymy ujemny stan konta, bez możliwości dalszej gry, a jeżeli wpiszemy wartość oczek to niespodziewanie zakończymy grę z zerem na koncie. Kolejny błąd tym razem nie krytyczny - ilość oczek możemy podać ujemną (0 szans na wygraną).

poprawka (do zaaplikowania we własnym zakresie):

410 REM 
440 IF LI<1 OR LI>6 THEN 360
450 TRAP 34567:CS=CS-ST

Przy okazji zmieniłem "THEN 370" na "THEN 360", tak aby nie tylko przy błędzie, a również przy niewłaściwej wartości wyświetlić ponownie pytanie. Linię 410 można usunąć, choć żeby nie było wątpliwości lepiej zostawić z REM.

Edit2: W linii 1150 jest literówka "MACISNIJ", oczywiście powinno być "NACISNIJ", sorry.

Artykuł o historii teletekstu, w pierwszym numerze magazynu PIXEL Addict:

Rozmyty, ale da się odczytać.

Magazyn można nabyć tutaj: http://pixel.addict.media/

Okładka kolejnego numeru:

Zawiera artykuły o klasycznych komputerach i grach, w tym o dużym Atari.

Niektóre strony z dostępnych numerów można podejrzeć pod linkiem na stronie magazynu.

Ja używam SFK partcopy - jest wersja pod Windowsa, Linuxa (nie tylko PC) i na Mac-a.

@Mono, no nie da się... (chyba, nie wiem na ile jest to sprzętowe, a na ile programowe). Żaden tryb nie ma 3 bitowego koloru i podejrzewam, że LOCATE, itd. nie są do tego przystosowane (musiałyby czytać / zapisywać co trzecią wartość operując na dwóch Bajtach), a do tego jak wybrać tryb graficzny nie ustawiając go?!

W załączniku kolejna wersja, tym razem dopisałem konwersję oct (w obydwu kierunkach). Tak jak pisałem, aby to zrobić trzeba było trochę pokombinować. Nie było łatwo, liczenie położenia Bajtów, bitów i do tego miałem problem z ADR, adresy zmiennych czasami zmieniały się, chyba przy zmianie GRAPHICS, jednak gdy dopisałem powrót do trybu GR.8+32 problem zniknął. Na wszelki wypadek dodałem if-a na końcu, który sprawdza, czy adresy się nie zmieniły... Dla wygodniejszego testowania dodałem opcję random.

Ponieważ oct jest 3 bitowy na 8 bitach maksymalnie da się zapisać wartość 377 (FF w hex), co daje 2bity+3bity+3bity.
Czyli, żeby odczytać/zapisać wszystkie trzy cyfry trzeba rozdzielić Bajt na 3. Zrobiłem to tak, że odczytuję 2 bitową wartość w GR.15, następnie kopiuję cały Bajt do przetwarzania w nowe miejsce i w GR.8 przemieszczam trzy bity środkowej wartości (w lewo przy odczycie) i czyszczę dwa pozostałe bity (piksele).
33222111 -> 02220111 (wartości dla zobrazowania grup bitów, zera - skasowane bity po przesunięciu grupy oznaczonej 222)
Po takim przemieszczeniu mogę odczytać w GR.9 dwie połówki Bajtu, które podobnie jak przy hex, zawierają dwie w tym przypadku cyfry z przedziału 0-7 (0000-0111 binarnie).
Całą operację powtarzam w pętli dla każdej wartości - danych wejściowych i wyników działań logicznych.
Na koniec wyświetlam wszystko w oknie tekstowym GR.8 - zrzut okienka tekstowego w załączniku.
Ponieważ wartości oct dla danych wejściowych już się nie zmieściły, znajdują się pod nimi po prawej stronie ekranu.

Dla zapisu na początku dopisuję zera (gdy podany ciąg jest krótszy niż 3 cyfry), bity przesuwam w drugą stronę niż przy odczycie. Podobnie zmieniając tryby składam całość.

Przy tych operacjach ekran sporo miga, co być może wydłuża przeliczanie, można spróbować na ten czas wyłączyć ekran. Można też zrealizować to nieco inaczej - kopiując bity dla poszczególnych cyfr na nowe Bajty i odczytać je w GR.8 (bez zmiany trybów). Można sobie przy tym pomóc mnożeniem przez 0.5 czy 2 itd. lub przenosić bity przy pomocy LOCATE, PLOT, lub PRINT #6; (gdy odczytamy je do zmiennej).

No i kolejna wersja z konwersją i wyświetlaniem danych/wyników również w hex (w sumie niewielkie zmiany do poprzedniej wersji). Zająłem się pisaniem i nie widziałem, że coś napisaliście po Blukim (fajne uproszczenie poprzez wrzucenie wag do danych). Teraz zerkam i ukrycie linii jak pisałem zrobiłem pod oknem tekstowym, ale wychodzi przy zmianie GRAPHICS. Później doczytam jak to jest u was... Tu wyniki są wyświetlane w kolejności tak jak mamy wybór: bin, hex, dec (pytanie jest jednocześnie opisem). W pierwszej kolumnie wyniki, w drugiej dane wejściowe.

100 DIM S$(1),H1$(2),H2$(2),HA$(2),HO$(2),HX$(2),A$(8),B$(8),OA$(8),OO$(8),OX$(8)
105 GRAPHICS 8:E=PEEK(88)+256*PEEK(89):AD=ADR(A$):YS=191:E=E+40*YS
110 ? "(B)IN, (H)EX, DEC ";:INPUT S$:ON (S$="B")*1+(S$="H")*2 GOTO 125,135
115 TRAP 115:? "0-255 (A) ";:INPUT IA:POKE E,IA
120 TRAP 120:? "0-255 (B) ";:INPUT IB:POKE E+1,IB:TRAP 0:GOTO 155
125 ? "0-11111111 (A) ";:INPUT A$:POKE E,0:POSITION 8-LEN(A$),YS:? #6;A$
130 ? "0-11111111 (B) ";:INPUT B$:POKE E+1,0:POSITION 8+8-LEN(B$),YS:? #6;B$:GOTO 155
135 ? "0-FF (A) ";:INPUT H1$:? "0-FF (B) ";:INPUT H2$
140 FOR X=7 TO 10:A=AD-X:B=PEEK(A):IF B>64 AND B<71 THEN POKE A,B-7
145 NEXT X:GRAPHICS 9+32:POKE E,0:POSITION 2-LEN(H1$),YS:? #6;H1$
150 POKE E+1,0:POSITION 2+2-LEN(H2$),YS:? #6;H2$:GRAPHICS 8+32
155 IA=PEEK(E):IB=PEEK(E+1):A$(8)="#":B$=A$:OA$=A$:OO$=A$:OX$=A$:H1$(2)="#":H2$=H1$:HA$=H1$:HO$=H1$:HX$=H1$
160 FOR X=0 TO 7
170 LOCATE X,YS,A:POKE AD+X,A+48:LOCATE X+8,YS,B:POKE AD+X+8,B+48
180 OA=A AND B:POKE AD+X+16,OA+48:REM COLOR OA:PLOT X+16,YS
190 OO=A OR B:POKE AD+X+24,OO+48:REM COLOR OO:PLOT X+24,YS
200 OX=OO AND  NOT OA:POKE AD+X+32,OX+48:REM COLOR OX:PLOT X+32,YS
210 NEXT X:POSITION 0+16,YS:? #6;OA$;OO$;OX$
215 GRAPHICS 9+32:FOR X=0 TO 9:LOCATE X,YS,A:POKE AD-10+X,A+48+(A>9)*7:NEXT X:GRAPHICS 8+32:? CHR$(125);
220 OA=PEEK(E+2):? "AND:";OA$;" ";HA$;" ";OA;CHR$(127);A$;" ";H1$;" ";IA
230 OO=PEEK(E+3):? "OR: ";OO$;" ";HO$;" ";OO;CHR$(127);B$;" ";H2$;" ";IB
240 OX=PEEK(E+4):? "XOR:";OX$;" ";HX$;" ";OX
250 GOTO 110

Edit: Forum zamienia duże "B" w nawiasie kwadratowym występujące w kodzie na małe "b", podobnie z "H"->"h", więc zmieniam nawias na okrągły - linia 110.

Edit2: Ukrywania danych za oknem tekstowym użyłem w mojej wersji Computer Inhabitant - tam w tym obszarze ukryte są dane animacji przedmiotów i elementów domu ;) Więc tu mi to od razu przyszło do głowy. Wybrałem linię 191, bo jest to ostatnia lina ekranu, gdzie bardziej prawdopodobne, że nic tam nie umieścimy, jeszcze lepiej byłoby przenieść dane na koniec tej linii. Można też przed konwersją zrobić backup tego co tam się znajduje, a po skończonym 'liczeniu' przywrócić.

Do DL pochodzę jak do jeża, ale być może ostatnią lub inną wybraną linię da się ukryć. Jeden minus, że pewnie trzeba będzie użyć kilku instrukcji assemblera, których unikamy w tej metodzie.

@Mono nie rozumiem, dlaczego najpierw robisz POKE, a na końcu po ustawieniu koloru, PEEK? OK, chyba rozumiem, to taki niepełny przykład abstrakcja - brakuje PLOTa :)
EXOR pierwotnie zrobiłem wg wzoru z Wikipedii, czy czegoś podobnego, jednak wydawał mi się zbyt długi i poszukałem krótszego :)
@Maw a czy próbowałeś zmienić GRAPHICS na NR+32, to znaczy z zachowaniem zawartości ekranu? Ja użyłem tego powyżej wraz z Twoim sposobem konwersji - do konwersji hex - zmiana na GR.9+32 4 bity na pixel, i z powrotem na GR.8+32 1 bit na pixel.

Edit3: Zastanawia mnie czy można użyć #6 do czegoś innego niż PRINT? Wpisanie INPUT #6,A$ powoduje dłuższe jakby zawieszenie i ERROR - 141? Czyżby dało się w ten sposób odczytać ciąg Bajtów? Spróbuję umieścić bajt 155 na ekranie i zobaczyć czy uda się odczytać kilka Bajtów... Gdyby to działało można by w ten sposób odczytać kilka zmiennych jednocześnie... i np. przekopiować dane...

Edit4: Działa GR. 8 i POS.X,Y:PUT#6,1-A:POS.X,Y:GET#6,A:?A;
PUT i GET zapala/gasi i odczytuje bit (piksel). W GR.8 nie ma chyba możliwości aby INPUT #6,A$ odczytało koniec linii?

Edit5: Wygląda na to, że INPUT #6,A$ czyta dane z całego ekranu od miejsca wskazanego przez POS.X,Y. Tylko jak ten odczyt zakończyć? Może gdyby ustawić TRAP i wtedy... no właśnie co? Niestety zmienna A$ pozostaje niezmieniona (obecne dane pozostają bez zmian). Nieważne też jak długa jest ta zmienna odczyt i tak dochodzi do końca ekranu.

Wersja całkowicie bez IF-ów:

5 READ QH
10 ? "0-255,0-255 ";:INPUT A,B
20 T=A*QH:A=INT(T):A0=SGN(T-A)
21 T=A*QH:A=INT(T):A1=SGN(T-A)
22 T=A*QH:A=INT(T):A2=SGN(T-A)
23 T=A*QH:A=INT(T):A3=SGN(T-A)
24 T=A*QH:A=INT(T):A4=SGN(T-A)
25 T=A*QH:A=INT(T):A5=SGN(T-A)
26 T=A*QH:A=INT(T):A6=SGN(T-A)
27 T=A*QH:A7=SGN(T-INT(T))
29 ? A7;A6;A5;A4;A3;A2;A1;A0
30 T=B*QH:B=INT(T):B0=SGN(T-B)
31 T=B*QH:B=INT(T):B1=SGN(T-B)
32 T=B*QH:B=INT(T):B2=SGN(T-B)
33 T=B*QH:B=INT(T):B3=SGN(T-B)
34 T=B*QH:B=INT(T):B4=SGN(T-B)
35 T=B*QH:B=INT(T):B5=SGN(T-B)
36 T=B*QH:B=INT(T):B6=SGN(T-B)
37 T=B*QH:B7=SGN(T-INT(T))
39 ? B7;B6;B5;B4;B3;B2;B1;B0
40 ? "-------- AND"
41 ? A7 AND B7;A6 AND B6;A5 AND B5;A4 AND B4;A3 AND B3;A2 AND B2;A1 AND B1;A0 AND B0
50 ? "-------- OR"
51 ? A7 OR B7;A6 OR B6;A5 OR B5;A4 OR B4;A3 OR B3;A2 OR B2;A1 OR B1;A0 OR B0
61 ? "-------- XOR"
62 ? (A7 OR B7) AND NOT (A7 AND B7);(A6 OR B6) AND NOT (A6 AND B6);
63 ? (A5 OR B5) AND NOT (A5 AND B5);(A4 OR B4) AND NOT (A4 AND B4);
64 ? (A3 OR B3) AND NOT (A3 AND B3);(A2 OR B2) AND NOT (A2 AND B2);
65 ? (A1 OR B1) AND NOT (A1 AND B1);(A0 OR B0) AND NOT (A0 AND B0)
90 ? :GOTO 10
99 DATA .5

Edit: Po dokładniejszym sprawdzeniu wychodzi na to, że moja wersja jest nieco wolniejsza od wersji Xxl-a. Sprawdzałem też jednak osobno niektóre składowe operacje i np. AND działa szybciej niż "*", więc jest jeszcze miejsce na optymalizację. Wydaje mi się, że gdzieś widziałem jeszcze inny sposób na te obliczenia, ale nie pamiętam szczegółów... teraz nic takiego nie znalazłem. Jak wyżej również tu występuje niejawna pętla - trzeba obliczyć poprzednie bity, aby obliczyć kolejny - tu tradycyjnie - czyli w odwrotnym kierunku niż u Xxl-a. Dodatkowo dopisałem OR i XOR. Edit2: krótsza wersja XOR - można jeszcze użyć wartości z AND i OR i nie "liczyć" ich ponownie przy XOR.

Sprawdziłem jeszcze wersję z AtariManii. Kasetowa wersja dokładnie ta sama co na aol i niestety też niekompletna. Wersja dyskietkowa jest za to lepsza, nic się nie glitch-uje. Jedyny problem jaki zauważyłem (jest w każdej wersji) dotyczy cyfr wpisanych w imieniu, gdyż wygląda na to, że na nich zdefiniowana została grafika. Nie pamiętam, ale chyba nie wiedziałam, że można wybrać opcję retry / next event i do tego po każdej dyscyplinie :D. Gra po wybraniu "next event" kończy się komunikatem " INSERT SIDE 1 & HOLD OPTION TO REBOOT  ", wygląda więc, że komunikat był tam od początku. Ale skoro *AJEK coś tam dopisał, to raczej wiedział że się to pojawi, do tego zamienił SIDE na HEAD, czyli jak rozumiem chodzi o nagłówek całości. Ja akurat na emulatorze wczytałem Turbo KSO z "taśmy" więc po restarcie przywitał mnie Self Test. Przy okazji - z tego co zauważyłem oryginalnie (zakładam, że oryginalnie) jak gra nie znajdzie właściwej dyscypliny to albo się zawiesza (floppy). albo wychodzi do Basic-a (tape). W wersji Turbo też nie można się pomylić.

Super, że udało się ten soft odnaleźć i zgrać, dzięki chłopaki!

Od siebie dołączam instrukcję uzupełnioną o polskie znaki, dodatkowo wersję bez łamania linii, do druku, edycji czy tłumaczenia. Dołączam też listę programów z pliku gry.obj. Spis obejmuje 714 tytułów, zapisanych na 60-ciu dyskietkach. Dyskietki numerowane są od 1 do 87, jednak część nie została skatalogowana - szczegóły w pliku. Załączona lista została ułożona wg numerów z oryginalnego wydruku, w drugim pliku wersja posortowana po numerach dyskietek.

Wcześniej wyciągałem pliki xex z plików cas nagranych z kaset nagranych tym softem, więc chciałbym porównać powyższy spis z listą zgranych plików, jak też sprawdzić czy da się odtworzyć pełną zawartość choć jednej dyskietki :) Oczywiście byłoby też fajnie gdyby udało się te "*oryginalne*" dyskietki odnaleźć :)

Wygląda na to, że komputery w takich obudowach ok. 1996-97 roku sprzedawało NTT:
https://starykomputerforum.piteusz.ovh/ … =100#p1629
https://allegrolokalnie.pl/oferta/kompu … mb-voodoo2

Miałem przez chwilę inną obudowę z takimi wytłoczeniami na dole, ale nazwy nie pamiętam. Wiem, że kupowałem na Rostafińskich w Warszawie w jakiejś firmie (nie w sklepie). Pamiętam, że testy obudów były w magazynie Chip i stamtąd tę moją wybrałem. Gazet nie chce mi się wyciągać, ale wydaje mi się, że na płycie były zdjęcia i opisy, spróbuję wyszukać.

Edit:

W załączniku test obudów z Chip CD 12.2001.

Obudowa o której pisałem (Enlight) nie jest aż tak podobna do poszukiwanej jak mi się wydawało i z tego co widzę jest to późniejszy okres, ale może lista obudów się przyda, np. naprowadzi na producenta.

[Ponieważ w grach SingStar niektóre standardowe rekordy są praktycznie nie do pobicia, do 24 SingStar-ów, w tym "Wakacyjnej Imprezy", przygotowałem pliki, które zastąpią standardowe rekordy najniższymi: https://qtz.cwaboard.co.uk/ps2/cleared_ … r_games.7z

Moduł do mikrofonu jeżeli jest to najpopularniejszy "SingStar USB converter", to konwerter z dwóch wejść mikrofonowych (osobne wejścia mono na prawy i lewy kanał tworzące w sumie stereo) na USB. Prawy i lewy odpowiadają dwóm mikrofonom wykorzystywanym w grze. Konwertera można też używać z PC np. do gry UltraStar, czy do innych celów.]

Piguła nie może pisać teraz na forum, więc poprosił mnie o zamieszczenie następującej odpowiedzi:
Piguła: Interesują mnie każde wav'y nawet Retronix.

W swoim imieniu napiszę że mnie w pierwszej kolejności interesują wersje z lat '80-tych.
Szczególnie ciekawe jak widać są te, które zawierają wersje w turbo, ale to tak na marginesie.

W załączniku kartka - katalog z Mirage-a z wyprzedaży 1998.