651 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

No to jeszcze sprawdzam włącznie motoru przed wczytaniem, bo to nowoczesny system jest...

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 IF MOTUR=0 THEN GOTO 14100
14002 ? "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
14003 ? :? "SORRY, YOUR C64 TAPE HAS WRONG":? "FORMAT..."
14004 ? :? "I USE ONLY REAL TAPE FORMAT FOR":? "PROPER COMPUTER..."
14005 FOR I=0 TO 5000:NEXT I
14006 RETURN 
14100 ? "YOU CAN'T LOAD PROCESS WHEN MOTOR":? "IS OFF...";
14101 FOR I=0 TO 200:SOUND 3,10+(I MOD 12),14,8:NEXT I
14102 SOUND 3,0,0,0
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

652 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

@mono - poprawiłem, jest w linii 21003

Idź do forum: Różne

653 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

@mono, za dużo przekopiowałem z mojego kodu i nie zauważyłem, czeski niezamierzony błąd. Już powinno być ok. Przepraszam, nie zauważyłem.

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
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
15000 RETURN 
16000 REM RUN PROGRAM
16001 ? "PROGRAM RUNNING...";:C=0
16002 ? "Any key stop it!"
16003 POKE 764,255
16004 IF PEEK(764)<>255 THEN RETURN 
16005 POSITION 30,1:? C;:FOR I=0 TO 500+C:NEXT I:C=C+1
16006 IF C>10000 THEN C=0
16007 GOTO 16004
17000 RETURN 
18000 REM MAKE DEMO
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
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

654 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

@mono??? Chyba że w linii 114 był i nie zauważyłem, bo tą tylko wywaliłem. Zaraz dodam, proszę przez 3 minuty nic nie dodawać, bo mam jeszcze uruchomienie programu.

Idź do forum: Różne

655 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

każdy ;)
Dodany blok ładowania:

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
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
15000 RETURN 
16000 REM RUN PROGRAM
17000 RETURN 
18000 REM MAKE DEMO
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: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
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

656 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

No to mała optymalizacja - linia 114 out, mod 101, dodane popierdółki do moturu...

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
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
15000 RETURN 
16000 REM RUN PROGRAM
17000 RETURN 
18000 REM MAKE DEMO
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: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
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

657 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

No dobra, na razie kosmetyka:

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
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 ? :? "?????":? "|* *|":? "?????":? "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 ? :? "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=ASC(C$)-64
110 IF C=24 THEN C=6
111 ON C GOSUB 10000,12000,14000,16000,18000,20000:? CHR$(125):GOTO 101
10000 REM MOTOR ON
10005 IF MOTUR=0 THEN MOTUR=1:RETURN 
10010 PRINT "ERROR: MOTUR JUZ JEST ON!!!"
10015 GOSUB 31421
11000 RETURN 
12000 REM MOTOR OFF
12005 IF MOTUR=1 THEN MOTUR=0:RETURN 
12010 PRINT "ERROR: MOTUR JUZ JEST OF!!!"
12015 GOSUB 31421
13000 RETURN 
14000 REM LOAD PROGRAM
15000 RETURN 
16000 REM RUN PROGRAM
17000 RETURN 
18000 REM MAKE DEMO
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
31421 FOR OPUZNIENIE=1 TO 1000:NEXT OPUZNIENIE:RETURN 
31782 ? "ERROR: WYKRYTO ZLE NACISNIECIE":TRAP 31782
31783 GOSUB 31421:GOTO 101
32760 REM ---
32761 REM PRIMA APRILIS COMPO 2023 TAPE RECORDER
32762 REM BY MONO, SIKOR, MQ, LIZARD, MGR INZ. RAFAL, DELY

Zaleca się wczytanie listingu - ATASCII nie działa w tekście

Idź do forum: Różne

658 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

Tak jak Mq napisał ;)
@mono: obaczym, w sumie podtrzymujesz jakąś dawno temu wymyśloną tradycję ;)

Idź do forum: Różne

659 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

Motor on - już widzę motor w ATASCII i odpowiedni dźwięk... Ale za cienki jestem, aby to zrobić...

Idź do forum: Różne

660 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

Nie no, tak bez czyszczenia ekranu...

10 ? CHR$(125);"LOAD ";CHR$(34);"C:";CHR$(34);
32760 REM ---
32761 REM PRIMA APRILIS COMPO 2023 TAPE RECORDER
32762 REM BY MONO

Na razie się nie dopisuję, bo zmiana żadna...

Idź do forum: Różne

661 Odpowiedź przez Sikor

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

@Cyprian, bez schematu lub dokładnego opisu karty się nie dowiemy. Wróżenie z fusów, ale ogólnie też obstawiam jakieś RGB.

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

662 Odpowiedź przez Sikor

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

O ile chodzi o to złącze, czyli szerokie DSUB15 - podejrzewam wyjście RGB, ale głowy nie dam. W sumie jak w VGA, ale mogą być inne parametry odświerzania. Przydałby się schemat. I tak, to nie jest DVI.

Kroll napisał/a:

Tak karta ma tylko wyjście VGA (D-Sub15)

Jak widać - kolega ma bogatszą wersję z dwoma wyjściami.

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

663 Odpowiedź przez Sikor

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

Cyprian napisał/a:

DSUB15

@Cyprian, DSUB15 to właśnie VGA. Pewnie koledze chodzi o DVI, czyli cyfrowy odpowiednik VGA (w skrócie - super duże uproszczenie). Ewentualnie poprosimy o zdjęcia.

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

664 Odpowiedź przez Sikor

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

Czytam. Po prostu Ty mnie możesz też zgłosić, jak masz jakieś uwagi. Tylko tyle i aż tyle. Dla mnie eot.

Idź do forum: Software, Gry - 8bit

665 Odpowiedź przez Sikor

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

Poczekaj ze dwie minutki jak radzą koledzy na forum obok.

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

666 Odpowiedź przez Sikor

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

Lizard napisał/a:

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.

Drogi jaszczurze, oprócz tego, że napisałem, to zgłosiłem, więc mi z łaski swojej nie inputuj. Poza tym - od sprzatania tutaj jest Dely, a nie Ty, więc swoje rozterki kieruj do niego, jak masz jakieś w moim kierunku. Zawsze możesz też założyć nowy wątek, bo tu widzę Ty zaśmiecasz, stając się kolejnym trolem. Mnożenie perdyliona wątków dla jednej gry, gdzie jest tylko link do video, poza tym  - na 100% nie wiadomo, czy przedstawia prawdę według mnie mija się z celem. Ale po co ja gadam z betnem w sumie...

Idź do forum: Software, Gry - 8bit

667 Odpowiedź przez Sikor

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

Lizard napisał/a:

Miej litość. Mamy dość samozwańczych szeryfów.

Chyba Ci się coś pokićkało. Po cholerę robić pierdylion wątków na jeden temat?

Lizard napisał/a:

Od porządku na forum jest administracja. Każdy post możesz zgłosić i opisać powód zgłoszenia.

A myślisz, że co zrobiłem? Dlatego @Dely zareagował. To jego forum i jego decyzja.

Idź do forum: Software, Gry - 8bit

668 Odpowiedź przez Sikor

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

@dely, Ty tu rządzisz, ale... http://www.atari.org.pl/forum/viewtopic.php?id=19009 - po co mnożyć byty?

Idź do forum: Software, Gry - 8bit

669 Odpowiedź przez Sikor

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

1. Sprawdź wyjście antenowe
2. Kości pamięci ok?

Idź do forum: Sprzęt - 8bit

670 Odpowiedź przez Sikor

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

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

Idź do forum: Software, Gry - 8bit

671 Odpowiedź przez Sikor

(9,977 odpowiedzi, napisanych Bałagan)

@prz, szkoda czasu.Betonu partyjnego nie przekonasz.

Idź do forum: Bałagan

672 Odpowiedź przez Sikor

(9,977 odpowiedzi, napisanych Bałagan)

Nie, każdy może pomylić kierunki w sumie... 17 spod centralnego w sumie z tego samego przystanku odjeżdża, a w przejściu podziemnym każdy może się zgubić i wyjść nie z tej strony co trzeba... :D

Idź do forum: Bałagan

673 Odpowiedź przez Sikor

(9,977 odpowiedzi, napisanych Bałagan)

@agahes: bliżej ci było na żoliborz...

Idź do forum: Bałagan

674 Odpowiedź przez Sikor

(9,977 odpowiedzi, napisanych Bałagan)

@agahes, nie znam się, to się wypowiem...

agahes napisał/a:

Plują na niego bidulkę, narzekają że czajka,

Ale Czajkę to kurdupel Kaczyński zimny zepsuł, bo czekał do ostatniej chwili, dwa lata obsuwu z podpisem i poszły plany z błędami, przez co kacze gówno się wylało, a na Trzaskowskiego się zwala. Zresztą za kaczego kurdupla zaczęli budować, a odbierała już Hanka, tyle, że zrobione według planów. A że howno poszło... No cuż, nikt nie wspomina, że za poprzednikó trzy razy tyle bez żadnej (podkreślę: bez żadnej) filtracji szło do Wisły to już nikt nie pamięta.  Pokaż mi prezydenta dowolnego miasta, co wszystkich rur pilnuje?

agahes napisał/a:

śmieci

To akurat nierząd zatwierdził i każdy się musiał dostosować. Wierz m, w Wawie nie ma dobrej opcji na rozliczanie.

agahes napisał/a:

do miasta nie można wjechać o parkowaniu nie wspominając

Że nie można? Polemizowałbym.A z parkowaniem? Póki co lepiej niż w Łodzi, Gdańsku czy Krakowie. A że drogo? Bywa.

agahes napisał/a:

Ten im sra na łby i się z nich śmieje

Chyba tobie. Akurat za niego chyba i tak najwięcej jest robione, patrząc na poprzedników, z "spieprzaj dziadu" na czele.

agahes napisał/a:

A dobrze Wam tak i nie płakać mi tu

Warszawiacy raczej nie płaczą, to przyjezdni drą ryje, póki co. I taki jeden z metra cięty co to z własną publicznością jeździ do tego podjudza, a pod domem ma setki opiekunów w niebieskich mundurkach, bo się kobiet boi.

agahes napisał/a:

We Francji jest dokładnie to samo jeśli chodzi o macrona.

Nazwiska piszemy z wielkiej litery, poza tym - o ile wiem - nie porównuje się prezydentów kraju do prezydentów miast, nieprawdaż?

agahes napisał/a:

i to nie jest Trzaska wina tylko WASZA!!!!

Wania, towarzysz z Żoliborza nakazał pisać po rusku? A kopiejek mu starczy, aby zapłacić? Bo ostatnio coś przebrząkiwał, że na grzywnę będzie musiał dom sprzedać, to mu nieco odpuszczono.

agahes napisał/a:

ile tych linii metra Wam już pobudował co obiecał w wyborach, bo coś o tym cicho?

A to akurat łatwo sprawdzić. Linii może nie dużo, ale stacji trochę jest: https://metro.waw.pl/o-firmie/historia-budowy-metra/ - a, i pamiętaj, że Warszawa na niestabilnym gruncie stoi, gdzie jest pełno kurzawek i innych ciekawych tworów.
Życzę miłej lektury i meliski na uspokojenie.

Idź do forum: Bałagan

675 Odpowiedź przez Sikor

(188 odpowiedzi, napisanych Bałagan)

Większy kubek wymaga większej prasy do termotransferu, standardowe wkładki o ile pamiętam są do 440ml.

Idź do forum: Bałagan