226 Odpowiedź przez Lizard

(76 odpowiedzi, napisanych Różne)

Zainstaluj Notepad++. Otwierasz w nim listing z Atari, następnie z menu Format wybierasz "Koduj w UTF-8". Potem zaznaczasz pierwszy znaczek podobny do ">" i wciskasz Ctrl-H. W polu "Zamień na" wpisujesz "\n" i ustawiasz "Tryb szukania" na "Rozszerzony". Klikasz "Zamień wszystko" i Viola. ;-) W drugą stronę nie ma letko.

Idź do forum: Różne

227 Odpowiedź przez Lizard

(76 odpowiedzi, napisanych Różne)

Sikor napisał/a:

W Altirze: Configure System=>devices, ustawiasz Host Devices H:, prawa do zapisu i dalej jak @mono napisał ;)

Jak masz SDX o tym H: możesz wypchać sobie buty. :-)

Idź do forum: Różne

228 Odpowiedź przez Lizard

(76 odpowiedzi, napisanych Różne)

A Altirrze jest opcja eksploracji dysku, gdzie możesz kliknąć prawym przyciskiem myszy na nazwie pliku i wybrać "Export as text". Podobnie w drugą stronę - "Import as text". Eksploratora wywołujesz (dla dołączonego dysku) poprzez File -> Disk drives -> trójkącik -> Explore disk

Idź do forum: Różne

229 Odpowiedź przez Lizard

(76 odpowiedzi, napisanych Różne)

Dodałem sprawdzenie, czy program przed uruchomieniem był załadowany i rozszerzyłem uruchomienie programu.

W tym drugim nawiązałem do pewnej grupy programistów, która umieszcza swoje filmy na Youtubie. Kto wskaże linka do filmu, temu czteropak piwa przy najbliższej okazji.

9 TRAP 31782
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
23 MOTUR=0:PL=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:? CHR$(125)
100 DIM C$(1)
101 ? CHR$(125):? "┌───┐":? "|* *|":? "└──┘":? "CASSATE OPERATING SYSTEM 1.2.3":? "2023 BC (C) BY PACT"
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 ? :? "STATUS MOTORU: ";:IF MOTUR=1 THEN PRINT "ON"
106 IF MOTUR=0 THEN ? "OF"
107 ? :? "A.MOTOR ON":? "B.MOTOR OFF":? "C.LOAD PROGRAM":? "D.RUN PROGRAM":? "E.MAKE DEMO":? "X.EXIT"
108 ? :? "WHAT NOW";:INPUT C$
109 C=0:IF C$<>"" THEN C=ASC(C$)-64
110 IF C=24 THEN GOSUB 20000
111 ON C GOSUB 10000,12000,14000,16000,18000:GOTO 101
10000 REM MOTOR ON
10005 IF MOTUR=0 THEN GOSUB 21000:RETURN 
10010 PRINT "ERROR: MOTUR JUZ JEST ON";CHR$(253);"!!!"
10015 GOSUB 31421
11000 RETURN 
12000 REM MOTOR OFF
12005 IF MOTUR=1 THEN MOTUR=0:SOUND 0,0,0,0:POKE 54018,60:RETURN 
12010 PRINT "ERROR: MOTUR JUZ JEST OF";CHR$(253);"!!!"
12015 GOSUB 31421
13000 RETURN 
14000 REM LOAD PROGRAM
14001 ? "LOADING:";:FOR I=0 TO 50:? ".";:FOR J=0 TO 50:SOUND 0,10,10,10:NEXT J:SOUND 0,0,0,0:NEXT I
14002 ? :? "SORRY, YOUR C64 TAPE HAS WRONG":? "FORMAT..."
14003 ? :? "I USE ONLY REAL TAPE FORMAT FOR":? "PROPER COMPUTER..."
14004 FOR I=0 TO 5000:NEXT I
14005 PL=1
15000 RETURN 
16000 REM RUN PROGRAM
16001 IF PL=0 THEN ? "NO PROGRAM LOADED YET.":? "LOAD SOMETHING BEFORE RUNNING, PLEASE":GOSUB 31421:RETURN 
16002 ? "PROGRAM RUNNING...";:C=0
16003 ? "ANY KEY STOP IT!"
16004 POKE 764,255
16005 IF PEEK(764)<>255 THEN 16100
16006 POSITION 30,1:? C;:FOR I=0 TO 500+C:NEXT I:C=C+1
16007 IF C>10000 THEN C=0
16008 GOTO 16005
16100 ? "OBJECT REFERENCE NOT SET TO AN":? "INSTANCE OF AN OBJECT."
16101 ? "WE'RE JUST COLLECTING SOME ERROR":? "INFO, AND THEN WE'LL RESTART FOR YOU."
16102 FOR I=0 TO 100:? "↑(";I;"% COMPLETE)";:FOR C=0 TO RND(0)*200:NEXT C:NEXT I:GOSUB 31421
17000 RETURN 
18000 REM MAKE DEMO
18001 GOSUB 31999
19000 RETURN 
20000 REM EXIT
20001 GRAPHICS 2+16
20002 POSITION 1,4:? #6;"   IT IS NOW SAFE"
20003 ? #6;"     TO TURN OFF"
20004 ? #6;"    YOUR COMPUTER"
20005 GOTO 20005
21000 MOTUR=1:SOUND 0,10,0,1:RESTORE 25000:FOR I=0 TO 3:FOR J=0 TO 4
21001 READ A$:? A$;:NEXT J
21002 ? :NEXT I
21003 FOR I=1 TO 1000:NEXT I:POKE 54018,52:RETURN 
25000 DATA v, , ,_,.
25001 DATA ?,?,?,?,?
25003 DATA ?, , , ,?
31421 FOR OPUZNIENIE=1 TO 1000:NEXT OPUZNIENIE:RETURN 
31782 ? "ERROR: WYKRYTO ZLE NACISNIECIE";CHR$(253);"!":TRAP 31782
31783 GOSUB 31421:GOTO 101
31999 POKE 752,1:POKE 82,0:GRAPHICS 0:? "        *** Sober Chessboard ***"
32000 SETCOLOR 1,255,255:SETCOLOR 2,0,0:FOR MALWINA=1 TO 11
32001 FOR LIC=0 TO 19:? " ?";:NEXT LIC
32002 FOR LIC=0 TO 19:? "? ";:NEXT LIC
32003 NEXT MALWINA:POKE 764,255
32004 ? " ? ? ? ? ? ?>>> wdus cos <<< ? ? ? ? ";:POKE 752,1
32005 IF PEEK(764)=255 THEN 32005
32006 POKE 82,2:POKE 752,0:POKE 764,255:POKE 710,148:POKE 710-1,202:RETURN 
32760 REM ---
32761 REM PRIMA APRILIS COMPO 2023 TAPE RECORDER
32762 REM BY PRIMA APRILIS COMPO TEAM:
32763 REM MONO, SIKOR, MQ, LIZARD, MGR INZ. RAFAL, DELY

Idź do forum: Różne

230 Odpowiedź przez Lizard

(76 odpowiedzi, napisanych Różne)

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

Idź do forum: Różne

231 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

232 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

233 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

234 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

235 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

236 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

237 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

238 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

239 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

240 Odpowiedź przez Lizard

(6,280 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

241 Odpowiedź przez Lizard

(6,280 odpowiedzi, napisanych Kolekcjonowanie)

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

Idź do forum: Kolekcjonowanie

242 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

243 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

244 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

245 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

246 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

247 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

248 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

249 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

250 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