226 Odpowiedź przez Lizard

(188 odpowiedzi, napisanych Bałagan)

Mateoos napisał/a:

Ja taki chcę :) Lizard, ogarniesz logistykę?

No, nie wiem. Cała misterna praca Bocianu pójdzie w piach. ;-)

Są dwie wielkości: 443 ml za $17,95 i 325 ml za $16,95. Nie wiem, skąd mi się wziął poprzednio koszt przesyłki, ale zrobiłem symulację dla różnej liczby zamawianych kubków i wyszło, jak w "tabelce" poniżej. Najważniejsza jest kolumna "Cena jedn.", oznaczająca cenę jednego kubka z przesyłką przy zamówieniu danej liczby sztuk. Pierwsza grupa kolumn (Wartość, Przesyłka, Wartość+Przesyłka, Cena jedn.) dotyczy kubka dużego, druga - małego. Ciekawy jest koszt przesyłki. Przy zamawianiu pewnej liczby sztuk, bywa niższy niż dla mniejszego zamówienia. Wynika to zapewne ze sposobu pakowania. Koszty przesyłki będą różnić się, jeżeli zamówienie będzie mieszane.

L.       Duży                                   Mały                    
szt.     Wartość  Przesyłka  Wartość+   Cena    Wartość  Przesyłka  Wartość+   Cena
                             Przesyłka  jedn.                       Przesyłka  jedn.
1        $17,95   $5,79      $23,74     $23,74  $16,95   $5,19      $22,14     $22,14
2        $35,90   $7,84      $43,74     $21,87  $33,90   $7,24      $41,14     $20,57
3        $53,85   $9,89      $63,74     $21,25  $50,85   $9,29      $60,14     $20,05
4        $71,80   $11,94     $83,74     $20,94  $67,80   $11,34     $79,14     $19,79
5        $89,75   $13,99     $103,74    $20,75  $84,75   $13,39     $98,14     $19,63
6        $107,70  $13,29     $120,99    $20,16  $101,70  $12,69     $114,39    $19,06
7        $125,65  $14,79     $140,44    $20,06  $118,65  $14,19     $132,84    $18,98
8        $143,60  $16,29     $159,89    $19,99  $135,60  $15,69     $151,29    $18,91
9        $161,55  $17,79     $179,34    $19,93  $152,55  $17,19     $169,74    $18,86
10       $179,50  $19,29     $198,79    $19,88  $169,50  $18,69     $188,19    $18,82
11       $197,45  $20,79     $218,24    $19,84  $186,45  $20,19     $206,64    $18,79
12       $215,40  $22,29     $237,69    $19,81  $203,40  $21,69     $225,09    $18,76
13       $233,35  $23,79     $257,14    $19,78  $220,35  $23,19     $243,54    $18,73
14       $251,30  $25,29     $276,59    $19,76  $237,30  $24,69     $261,99    $18,71
15       $269,25  $23,29     $292,54    $19,50  $254,25  $22,69     $276,94    $18,46
16       $287,20  $24,54     $311,74    $19,48  $271,20  $23,94     $295,14    $18,45
17       $305,15  $25,79     $330,94    $19,47  $288,15  $25,19     $313,34    $18,43
18       $323,10  $27,04     $350,14    $19,45  $305,10  $26,44     $331,54    $18,42
19       $341,05  $28,29     $369,34    $19,44  $322,05  $27,69     $349,74    $18,41
20       $359,00  $29,54     $388,54    $19,43  $339,00  $28,94     $367,94    $18,40
21       $376,95  $30,79     $407,74    $19,42  $355,95  $30,19     $386,14    $18,39
22       $394,90  $32,04     $426,94    $19,41  $372,90  $31,44     $404,34    $18,38
23       $412,85  $33,29     $446,14    $19,40  $389,85  $32,69     $422,54    $18,37
24       $430,80  $34,54     $465,34    $19,39  $406,80  $33,94     $440,74    $18,36
25       $448,75  $29,79     $478,54    $19,14  $423,75  $29,19     $452,94    $18,12
26       $466,70  $30,79     $497,49    $19,13  $440,70  $30,19     $470,89    $18,11
27       $484,65  $31,79     $516,44    $19,13  $457,65  $31,19     $488,84    $18,11
28       $502,60  $32,79     $535,39    $19,12  $474,60  $32,19     $506,79    $18,10
29       $520,55  $33,79     $554,34    $19,12  $491,55  $33,19     $524,74    $18,09

Idź do forum: Bałagan

227 Odpowiedź przez Lizard

(188 odpowiedzi, napisanych Bałagan)

A co?! Pochwalę się. :-) Nabyłem w celach badawczo-poznawczych.

http://www.atari.org.pl/forum/misc.php?action=pun_attachment&item=10464

Pojemność 2400... Sorry, to nie ta piosenka. :-) Kubek ma pojemność ok. 440 ml. Nadruk ma wymiary ok. 9,5 cm na 23 cm. Najmniejsze litery mają nieco ponad 1 mm wysokości, ale są wyraźne. Ucho jest duże i zmieszczą się w nim swobodnie cztery palce.

Cena: $18, wysyłka: $5 przy jednym kubku; dla większej liczby wychodzi relatywnie mniej. Przy zamówieniu dla wszystkich zainteresowanych, przesyłka wyniosłaby, jak dobrze pamiętam, jakieś $10. Płatność przez PayPala, który może automatycznie przewalutować na złotówki, chociaż w moim przypadku korzystniej wyszło przeliczenie przez bank. Gdzie? O tu: https://stirringdragon.games/

Idź do forum: Bałagan

228 Odpowiedź przez Lizard

(22 odpowiedzi, napisanych Bałagan)

Ech! To były czasy! Dziś już nie ma takich czasów. Ani pętli. Pozostał tylko smutek i nostalgia. No i frasunek dla Van Ejka za organizację.

Idź do forum: Bałagan

229 Odpowiedź przez Lizard

(76 odpowiedzi, napisanych Różne)

Sikor napisał/a:

A bo poprawiając mnie zapomnialeś o wartości bezwzglednej... Ujemna wychodziła.

Bo się pierdzielnąłem i zamiast iloraz mnożyć przez dzielnik pomnożyłem przez dzielną. W 14101 powinno być:

SOUND 3,10+(I-12*INT(I/12))

Błędu już nie poprawiam, niech zostanie dla potomnych. Za rok zrobimy SerwisPaka, to się zmieni. ;-)

Idź do forum: Różne

230 Odpowiedź przez Lizard

(76 odpowiedzi, napisanych Różne)

prz napisał/a:

Wkleiłem mini-część w liniach 20005-20025, a dotychczasową 20005 zmieniłem na 20050. Mam nadzieję, że niczego Wam nie popsułem :).

No ładne cacko! :-)

mgr_inz_rafal napisał/a:

Za rok trzeba postawić jakiegoś gita bo inaczej się zajedziemy z tym nadpisywaniem kodu :)

To jest bardzo dobra koncepcja!

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

WHAT NOW?C
YOU CAN'T LOAD PROCESS WHEN MOTOR
IS OFF...ERROR: WYKRYTO ZLE NACISNIECI
E!

Idź do forum: Różne

231 Odpowiedź przez Lizard

(76 odpowiedzi, napisanych Różne)

Sikor tak się zafiksował na kodowaniu, że zdaje się ignorować zgłoszenia błędów. :-)

Zmieniłem MOD na coś zrozumiałego przez Atari Basic.

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

232 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

233 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

234 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

235 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

236 Odpowiedź przez Lizard

(76 odpowiedzi, napisanych Różne)

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

Idź do forum: Różne

237 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

238 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

239 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

240 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

241 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

242 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

243 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

244 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

245 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

246 Odpowiedź przez Lizard

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

247 Odpowiedź przez Lizard

(6,304 odpowiedzi, napisanych Kolekcjonowanie)

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

Idź do forum: Kolekcjonowanie

248 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

249 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

250 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