626 Odpowiedź przez Sikor

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

Hmm, wydaje mi sie, że dałem to w dziale K/S/Z Atari... Albo ktoś przeniósł, albo mi się ręka omsknęła?

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

627 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

Compo przyjęło się na atariage ;) Jest tam przerobiony multidysk ;)

Idź do forum: Różne

628 Odpowiedź przez Sikor

(11 odpowiedzi, napisanych Bałagan)

drac030 napisał/a:

Natomiast znaczki Atari i koszulki Sikora są tam zapewne dużo rzadsze, więc temat potencjalnie ciekawy.

Sugerujesz nową partię? Na razie nie ma szans, ale mam z TLS :)

Idź do forum: Bałagan

629 Odpowiedź przez Sikor

(11 odpowiedzi, napisanych Bałagan)

Bronimy dobrego imienia Atarowców.

Idź do forum: Bałagan

630 Odpowiedź przez Sikor

(11 odpowiedzi, napisanych Bałagan)

Ja bym tam Atarowców nie obrażał :P

Idź do forum: Bałagan

631 Odpowiedź przez Sikor

(238 odpowiedzi, napisanych Bałagan)

Oj tam, zależy, co będzie kapało i ile dawało promili... Bądźmy ludźmi, o suchym pysku to i Zombie nie wytrzyma...

Idź do forum: Bałagan

632 Odpowiedź przez Sikor

(22 odpowiedzi, napisanych Bałagan)

Na pewno jakiś inny by się znalazł :P

Idź do forum: Bałagan

633 Odpowiedź przez Sikor

(11 odpowiedzi, napisanych Bałagan)

drac030 napisał/a:

Na me oko główny bohater ma koszulkę z logo Atari, małym na lewej piersi, dużym na plecach.

Na me oko trza pójść do okulisty i pogodzić się z okularami... :D
http://www.atari.org.pl/forum/misc.php?action=pun_attachment&item=10476

Idź do forum: Bałagan

634 Odpowiedź przez Sikor

(22 odpowiedzi, napisanych Bałagan)

Quast, jak Quast, ale Mońki chyba z niczym by nie kolidowały... Tylko czy my jeszcze tyle alkoholu wypijemy, aby piecyków przy tych cenach nie włączać...

Idź do forum: Bałagan

635 Odpowiedź przez Sikor

(10 odpowiedzi, napisanych Zloty)

Vasco, że Ty jesteś starszy niż węgiel to Wszyscy wiedzą, ale As.. się dobrze konserwuje, więc ten, teges... :D

Idź do forum: Zloty

636 Odpowiedź przez Sikor

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

@willy, pw

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

637 Odpowiedź przez Sikor

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

@jls: Sic!+ jest przystosowany do moich obudów, więc tak
@Atari-User: daj znać jak chcesz odebrać, czy wysyłać czy się jakoś spikniemy

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

638 Temat przez Sikor

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

Ponieważ azaliż aczkolwiek była mała awaria maszyny, dostałem serię nieco uszkodzonych obudów. Uszkodzenie jest pomijalne - nie dolany wtrysk w dolnej poprzeczce obudowy, po włożeniu płytki prawie niewidoczny. Mój producent nie przerwał produkcji, bo początkowo było ok, a potem nie zauważył. Tym niemniej nie sprzedam ich w normalnej cenie, a szkoda obciążać zakład kosztami... Uszkodzenie widać na załączonych obrazkach, cena: 10zł/szt plus ewentualny VAT, przy ilości 100+ 8,50zł/szt plus ewentualny VAT. Użytkowo w niczym nie przeszkadza. Do ceny obudowy doliczamy koszt wysyłki.
http://www.atari.org.pl/forum/misc.php?action=pun_attachment&item=10472
http://www.atari.org.pl/forum/misc.php?action=pun_attachment&item=10473
http://www.atari.org.pl/forum/misc.php?action=pun_attachment&item=10474

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

639 Odpowiedź przez Sikor

(10 odpowiedzi, napisanych Zloty)

Pisze się gry ;) Grawitacja.eu - looknij sobie

Idź do forum: Zloty

640 Temat przez Sikor

(10 odpowiedzi, napisanych Zloty)

Azaliż ponieważ iż że wybieram się i jadę z Mikerem i Sylwią w piątek około 15-tej, to mam jedno wolne miejsce jeszcze. Jak ktoś chętny dorzucić się do paliwka - dawać znać.

Idź do forum: Zloty

641 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

To jeszcze uaktualniony multidysk:  http://www.atari.org.pl/forum/viewtopic.php?id=15266

Idź do forum: Różne

642 Odpowiedź przez Sikor

(3 odpowiedzi, napisanych Scena - 8bit)

Aktualizacja 2023.

Idź do forum: Scena - 8bit

643 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

Oj, czyżbyśmy znowu mieli współpracować...? Pamiętajcie: nie ma takiego poziomu poniżej którego możemy zejść ;)

Idź do forum: Różne

644 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

Dzięki za odświeżenie tematu i fajną zabawę ;) Trzeba będzie dodać do zbiorczej dyskietki z PA Compo ;)
Ale to już za dnia lub za kilka dni ;)

Idź do forum: Różne

645 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

Ok, ja odpadam na dziś. Przydałoby się losową pozycją w demie duszkiem podkolorować szachownicę (aby jeździł), ale nie przypomnę sobie obsługi duszków na szybko... Mea culpa czy jakoś tak to było... Jutro po robocie looknę jak wyszło :)

Idź do forum: Różne

646 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

Lizard napisał/a:

Coś jest nie w "LOAD PROGRAM". Gdy motur jest of dostaję poniższy komunikat i dźwięk nie jest wyciszany.

A bo poprawiając mnie zapomnialeś o wartości bezwzglednej... Ujemna wychodziła. Poprawione i jest prawdziwe wyjście z programu:

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...":PL=1
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,ABS(10+(I-I*INT(I/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 FOR T=0 TO 200:NEXT T:GRAPHICS 7
20006 SETCOLOR 2,0,0:SETCOLOR 0,0,0
20007 COLOR 1
20008 PLOT 10,48:DRAWTO 150,48
20009 COLOR 0
20010 FOR A=0 TO 15
20011 SETCOLOR 0,0,15-A
20012 PLOT 10+A,48:DRAWTO 20+A,48
20013 PLOT 150-A,48:DRAWTO 140-A,48
20014 NEXT A
20015 GRAPHICS 7
20016 SETCOLOR 2,0,0
20017 SETCOLOR 0,0,0
20018 COLOR 1
20019 PLOT 75,48
20020 FOR A=0 TO 15
20021 SETCOLOR 0,0,A
20022 NEXT A
20023 FOR A=0 TO 15
20024 SETCOLOR 0,0,15-A
20025 NEXT A
20050 GRAPHICS 0:END 
21000 MOTUR=1:SOUND 0,10,0,1:RESTORE 25000:FOR I=0 TO 2: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

647 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

Jest, mgr zauważył, na szybko testowałem. Tu już bez:

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...":PL=1
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),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 2: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

648 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

@prz: ja wczytuję po prostu do altiry
Poprawiona wersja:

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...":PL=1
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 2: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

649 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

mono napisał/a:

@Sikor: W 21000 masz FOR I=0 TO 3 - za daleko! Powinno być do 2 bo inaczej jest zły dotyk.

Masz rację, zaraz naniosę poprawki, ale potrzebuję 3 minut na załączenie nowego kodu.

Idź do forum: Różne

650 Odpowiedź przez Sikor

(76 odpowiedzi, napisanych Różne)

prz napisał/a:

Podpowiecie czym windowsowym otwieracie ten *.lst do edycji aby entery się normalnie wyświetlały, ale przy zapisie wracało do wersji Atari :)?

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

Idź do forum: Różne