226

(76 odpowiedzi, napisanych Różne)

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

227

(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

228

(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

229

(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

230

(21 odpowiedzi, napisanych Bałagan)

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

231

(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ś?

232

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

233

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

234

(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?

235

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

236

(6,269 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ć. ;-)

237

(6,269 odpowiedzi, napisanych Kolekcjonowanie)

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

238

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

239

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

240

(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

241

(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ę.

242

(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?

243

(188 odpowiedzi, napisanych Bałagan)

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

244

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

245

(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

246

(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ę.

247

(19 odpowiedzi, napisanych Zloty)

Gzynio napisał/a:

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

Xtra! Czy już wiadomo gdzie?

248

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

Już mam swoje typy i co teraz?

249

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

Prosimy.

250

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

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