226 Odpowiedź przez Lizard

(76 odpowiedzi, napisanych Różne)

Tu zaraz będzie kod. Proszę czekać.

Idź do forum: Różne

227 Odpowiedź przez Lizard

(76 odpowiedzi, napisanych Różne)

Zupełnie zapomniałem o tej konstrukcji. :-) Pierwotnie chciałem użyć GOSUB, ale przy kilku IF-ach skończylibyśmy na linii 118. Użycie ON...GOSUB pozbawione jest tej wady, wprowadza elegancje, no i unikamy instrukcji GOTO, która jest u niektórych na cenzurowanym.

10 ? CHR$(125);"LOAD ";CHR$(34);"C:";CHR$(34)
20 SOUND 3,52,14,8:FOR I=0 TO 2000:NEXT I
21 P=53760:SOUND 0,5,14,8:SOUND 1,7,14,8:POKE P+15,43:FOR I=0 TO 255:POKE P+13,PEEK(40960+I):NEXT I
22 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 3,0,0,0
30 ? :FOR B=0 TO 4:READ A,C:? CHR$(A);CHR$(253):FOR D=0 TO C:NEXT D:NEXT B:DATA 69,100,82,100,82,0,79,0,82,0
40 DIM A$(1):RESTORE 40:? "READY":FOR I=0 TO 2:READ A$:? A$;:FOR C=0 TO 255:NEXT C:NEXT I:DATA R,U,N
50 ? :? "DeCRUSHing":FOR I=0 TO 255:POKE 53274,PEEK(53770):NEXT I
100 DIM C$(1)
101 ? :? "CASSATE OPERATING SYSTEM 1.2.3":? "2023 BC (C) BY SLMQ"
102 ? :? "YOU'RE SITTING ON STOOL NEAR THE TABLE WITH ATARI 400 AND TAPE RECORDER ON."
103 ? "THROUGH THE WINDOW YOU CAN SEE REAL WORLD. BEAUTIFUL WORLD..."
104 ? "NOW YOU CAN DO:"
105 ? :? "A.MOTOR ON":? "B.MOTOR OFF":? "C.LOAD PROGRAM":? "D.RUN PROGRAM":? "E.MAKE DEMO"
106 ? :? "WHAT NOW";:INPUT C$
108 C=ASC(C$)-64:ON C GOSUB 10000,12000,14000,16000,18000:GOTO 101
110 IF C$<>"X" THEN ? :? "WHAT ARE YOU TALKING ABOUT?":GOTO 101
112 ? "IT IS NOW SAFE TO TURN OFF YOUR COMPUTER":REM HIDDEN FUNCTION ;-)
114 GOTO 114
10000 REM MOTOR ON
11000 RETURN 
12000 REM MOTOR OFF
13000 RETURN 
14000 REM LOAD PROGRAM
15000 RETURN 
16000 REM RUN PROGRAM
17000 RETURN 
18000 REM MAKE DEMO
19000 RETURN 
32760 REM ---
32761 REM PRIMA APRILIS COMPO 2023 TAPE RECORDER
32762 REM BY MONO, SIKOR, MQ, LIZARD

Idź do forum: Różne

228 Odpowiedź przez Lizard

(76 odpowiedzi, napisanych Różne)

Dorzucam jeszcze obsługę menu i hidden part. ;-)
Numery linii (2*(n-(5*INT(ABS(n)/5)))+1)*1000, gdzie n należy do Z można zmieniać wedle potrzeb.

10 ? CHR$(125);"LOAD ";CHR$(34);"C:";CHR$(34)
20 SOUND 3,52,14,8:FOR I=0 TO 2000:NEXT I
21 P=53760:SOUND 0,5,14,8:SOUND 1,7,14,8:POKE P+15,43:FOR I=0 TO 255:POKE P+13,PEEK(40960+I):NEXT I
22 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 3,0,0,0
30 ? :FOR B=0 TO 4:READ A,C:? CHR$(A);CHR$(253):FOR D=0 TO C:NEXT D:NEXT B:DATA 69,100,82,100,82,0,79,0,82,0
40 DIM A$(1):RESTORE 40:? "READY":FOR I=0 TO 2:READ A$:? A$;:FOR C=0 TO 255:NEXT C:NEXT I:DATA R,U,N
50 ? :? "DECRUSHING":FOR I=0 TO 255:POKE 53274,PEEK(53770):NEXT I
100 DIM C$(1)
101 ? :? "CASSATE OPERATING SYSTEM 1.2.3":? "2023 BC (C) BY SLMQ"
102 ? :? "YOU'RE SITTING ON STOOL NEAR THE TABLE WITH ATARI 400 AND TAPE RECORDER ON."
103 ? "THROUGH THE WINDOW YOU CAN SEE REAL WORLD. BEAUTIFUL WORLD..."
104 ? "NOW YOU CAN DO:"
105 ? :? "A.MOTOR ON":? "B.MOTOR OFF":? "C.LOAD PROGRAM":? "D.RUN PROGRAM":? "E.MAKE DEMO"
106 ? :? "WHAT NOW";:INPUT C$
108 IF C$="A" THEN GOTO 10000
110 IF C$="B" THEN GOTO 12000
112 IF C$="C" THEN GOTO 14000
114 IF C$="D" THEN GOTO 16000
116 IF C$="E" THEN GOTO 18000
118 IF C$<>"X" THEN ? :? "WHAT ARE YOU TALKING ABOUT?":GOTO 101
120 ? "IT IS NOW SAFE TO TURN OFF YOUR COMPUTER":REM HIDDEN FEATURE ;-)
122 GOTO 122
10000 REM MOTOR ON
11000 GOTO 101
12000 REM MOTOR OFF
13000 GOTO 101
14000 REM LOAD PROGRAM
15000 GOTO 101
16000 REM RUN PROGRAM
17000 GOTO 101
18000 REM MAKE DEMO
19000 GOTO 101
32760 REM ---
32761 REM PRIMA APRILIS COMPO 2023 TAPE RECORDER
32762 REM BY MONO, SIKOR, MQ, LIZARD

Idź do forum: Różne

229 Odpowiedź przez Lizard

(76 odpowiedzi, napisanych Różne)

Program - nawet po nieudanym ładowaniu - należy uruchomić.

10 ? CHR$(125);"LOAD ";CHR$(34);"C:";CHR$(34)
20 SOUND 3,52,14,8:FOR I=0 TO 2000:NEXT I
21 P=53760:SOUND 0,5,14,8:SOUND 1,7,14,8:POKE P+15,43:FOR I=0 TO 255:POKE P+13,PEEK(40960+I):NEXT I
22 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 3,0,0,0
30 ? :FOR B=0 TO 4:READ A,C:? CHR$(A);CHR$(253):FOR D=0 TO C:NEXT D:NEXT B:DATA 69,100,82,100,82,0,79,0,82,0
40 DIM A$(1):RESTORE 40:? "READY":FOR I=0 TO 2:READ A$:? A$;:FOR C=0 TO 255:NEXT C:NEXT I:DATA R,U,N
50 ? :? "DeCRUSHing":FOR I=0 TO 255:POKE 53274,PEEK(53770):NEXT I
32760 REM ---
32761 REM PRIMA APRILIS COMPO 2023 TAPE RECORDER
32762 REM BY MONO, SIKOR, MQ, LIZARD

Idź do forum: Różne

230 Odpowiedź przez Lizard

(21 odpowiedzi, napisanych Bałagan)

- Piechotką idę na pocztę. To jest godzinka. Potem wolno nadają paczkę. Poczta, widzi pan, ma najdłuższe kolejki.

Idź do forum: Bałagan

231 Odpowiedź przez Lizard

(34 odpowiedzi, napisanych Software, Gry - 8bit)

Sikor napisał/a:

swoje rozterki kieruj do niego, jak masz jakieś w moim kierunku.

Ty chociaż czytasz przed wysłaniem, to co napisałeś?

Idź do forum: Software, Gry - 8bit

232 Odpowiedź przez Lizard

(34 odpowiedzi, napisanych Software, Gry - 8bit)

Nie zgłosiłeś, a napisałeś w wątku, zaśmiecając go i powoduję tę niepotrzebną dyskusję. To nie fejsbuk, że postawisz małpę przed nickiem i adresatowi wyskoczy powiadomienie.

Idź do forum: Software, Gry - 8bit

233 Odpowiedź przez Lizard

(34 odpowiedzi, napisanych Software, Gry - 8bit)

Sikor napisał/a:

@Dely, miej litość... Mamy dość własnych spamerów...

Miej litość. Mamy dość samozwańczych szeryfów. Od porządku na forum jest administracja. Każdy post możesz zgłosić i opisać powód zgłoszenia.

Idź do forum: Software, Gry - 8bit

234 Odpowiedź przez Lizard

(9 odpowiedzi, napisanych Sprzęt - 8bit)

Brak "READY" sugeruje grubsza awarię, ale czy zrywanie synchronizacji nie jest spowodowane tym, że do odbiornika 60 Hz wysyłasz sygnał 50 Hz?

Idź do forum: Sprzęt - 8bit

235 Odpowiedź przez Lizard

(10,041 odpowiedzi, napisanych Bałagan)

Simius napisał/a:

Z ciekawości spytam, jakie cele preferujecie za te siedem lat - progresywne, czy ambitne? To znaczy kartki na mięso i talon na samochód, czy tylko sałata i autobus?

Po co mi samochód, jak wszędzie dotrę w 15 minut. Przejażdżka powyżej tego czasu będzie surowo karana. Są tacy, co cieszą się na samą myśl 15-minutowych gett.

AS... napisał/a:

Przeprowadzka ;)

To jest właściwy kierunek. :-)

Idź do forum: Bałagan

236 Odpowiedź przez Lizard

(6,265 odpowiedzi, napisanych Kolekcjonowanie)

Chyba dopłacę Lewisowi, bo mi puścił na Lascie XC12 w pudełku za 250 zł. Zaczynam się źle z tym czuć. ;-)

Idź do forum: Kolekcjonowanie

237 Odpowiedź przez Lizard

(6,265 odpowiedzi, napisanych Kolekcjonowanie)

Powiem żonie, że szykuje się wyprzedaż damskiej galanterii na OLX.

Idź do forum: Kolekcjonowanie

238 Odpowiedź przez Lizard

(31 odpowiedzi, napisanych Sprzęt - 8bit)

TMK napisał/a:

Jak kupiłem raz kabelek s-video, reklamowany "HQ", "ekranowany" to później wyszło na atariage, że to g*wno prawda z tym ekranowaniem tego kabla bo to chiński kabelek z AE tylko wtyczka zmieniona na porządną DIN a w środku ekranowania nie ma.

Niestety, też się na niego naciąłem. Niezależnie czy podłączałem cinche, czy s-video obraz był do dupy. Na Allegro kupiłem inny kabel od gościa o nicku anabeda. Na tym kablu obraz jest jak żyleta bez "zbijania chromy". Kabelek wygląda niepozornie, ale każda żyła swój ekran ma. Nie jest to, co prawda, pełny ekran, ale swoją rolę spełnia.

Idź do forum: Sprzęt - 8bit

239 Odpowiedź przez Lizard

(9 odpowiedzi, napisanych Sprzęt - 16/32bit)

uicr0Bee napisał/a:

No właśnie, czy ktoś kto temat "rozborował" (_tzok_ ? :-D ) mógłby napisać które urządzenia z epoki i ew. które współczesne mają jakie problemy (objawy) z fabrycznymi TOSami, czy są łaty softwarowe lub poprawione wersje TOS dające zgodność z Y2K ?

Zegarek w Mega STe (TOS 2.06) działa bez przeróbek i innych software'owych patchy do dzisiaj.

Idź do forum: Sprzęt - 16/32bit

240 Odpowiedź przez Lizard

(72 odpowiedzi, napisanych Sprzęt - 16/32bit)

Kroll napisał/a:

@Lizard, moze i mowileś, tylko mowisz o partycji 1GB czy ogolnie wielkosci dysku, a ograniczeniach TOS-ow i wielkosci partycji to wiem doskonale :)

O całym dysku. Mam HDD 4 GB i nie ma szans, aby dostać się poza pierwszy gigabajt.

- Panie Słąwku! Panie Sławku! Pan pozwoli.
- Co jest...? A...
(...)
- I na gablotę. Na naszą gablotę.

1) Kroll - 1x Mega STE
2) uicr0Bee - 1x Mega STE
3) Cyprian - 1x Mega STE
4) gop13 - 1x Mega STE
5) dragmar - 1x Mega STE 1x oryginalny
6) AdamK - 1x Mega STE 1x oryginalny
7) Lizard - 1x Mega STE

Idź do forum: Sprzęt - 16/32bit

241 Odpowiedź przez Lizard

(188 odpowiedzi, napisanych Bałagan)

Ja bym zostawił implikowany. BRK nic nie robi z bajtem występującym za nim, jak w trybie natychmiastowym. Powrót dwa bajty dalej może być błędem w konstrukcji procesora, a może być celowym działaniem twórców. Nie uważam, aby ten wątek był miejscem na - bądź, co bądź - akademicką dyskusję.

Idź do forum: Bałagan

242 Odpowiedź przez Lizard

(72 odpowiedzi, napisanych Sprzęt - 16/32bit)

Własnie o takie coś nic nie robiłem. Jestem zainteresowany interfejsem do MSTe.

Kroll napisał/a:

OK dzieki to, nie wiedzialem o tym ograniczeniu

To komu mówiłem o granicy 1 GB?

Idź do forum: Sprzęt - 16/32bit

243 Odpowiedź przez Lizard

(188 odpowiedzi, napisanych Bałagan)

Przed użyciem nielegalnych rozkazów nalej do kubka wrzątku i odwróć kubek do góry dnem. ;-)

Idź do forum: Bałagan

244 Odpowiedź przez Lizard

(43 odpowiedzi, napisanych Sprzęt - 8bit)

Ad. 4 Raczej nie, chyba że wczytywany program wymaga włączonego Basica.
Ad. 5 Wg Atariki 800 i 800XL pod tym względem se nie różnią. Różnią się między sobą egzemplarze 800XL.

Idź do forum: Sprzęt - 8bit

245 Odpowiedź przez Lizard

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

Z PeCetem mój Gotek nie chciał gadać. Za to z Megą jest mega. :-) Współpraca z obrazami 1,44 MB nie stanowi problemu. Sam Gotek łyka obrazy 2,88 MB, ale MSTe juz tego nie potrafi. Ramka pasuje idealnie do otworu i śrubek, chociaż nie jest to szczyt elegancji.

Krótkie wideo z pracy napędu. Szum na nagraniu pochodzi od wentylatora i HDD. Przejście głowicy pomiędzy ścieżkami odrgywane jest czymś, co przypomina PC-speakera.
https://www.youtube.com/watch?v=H0Xv5PAiUaw

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

246 Odpowiedź przez Lizard

(19 odpowiedzi, napisanych Zloty)

Mnie tam obojętne gdzie, byle blisko metra M1. Jest szansa, że w kwietniu będę w lepszym stanie, więc w końcu się pojawię.

Idź do forum: Zloty

247 Odpowiedź przez Lizard

(19 odpowiedzi, napisanych Zloty)

Gzynio napisał/a:

Było super, a za miesiąc nowa miejscówka w centrum :)

Xtra! Czy już wiadomo gdzie?

Idź do forum: Zloty

248 Odpowiedź przez Lizard

(14 odpowiedzi, napisanych Kupię / Sprzedam / Zamienię pozostałe)

Już mam swoje typy i co teraz?

Idź do forum: Kupię / Sprzedam / Zamienię pozostałe

249 Odpowiedź przez Lizard

(14 odpowiedzi, napisanych Kupię / Sprzedam / Zamienię pozostałe)

Prosimy.

Idź do forum: Kupię / Sprzedam / Zamienię pozostałe

250 Odpowiedź przez Lizard

(14 odpowiedzi, napisanych Kupię / Sprzedam / Zamienię pozostałe)

Mogę przyjechać przed VLX-em i zgrać te koncerty, pliz?

Idź do forum: Kupię / Sprzedam / Zamienię pozostałe