Nie jesteś zalogowany. Proszę się zalogować lub zarejestrować.
BigPEmu 1.12 Richard Whitehouse wydał BigPEmu 1.12
FujiNET firmware v1.3.0 Nowa wersja oprogramowania do interfejsu sieciowego FujiNET. Tym razem z obsługą TCP!
hatari 2.5.0 Od dwóch dni dostępna jest najnowsza (2.5.0) wersja Hatari.
Grawitacja 2024 Czas na kolejną edycję 8 bitowego GameJamu.
Tenebra na Atari ST/STE Wersja gry na duże atari.
atari.area forum » Posty przez Lizard
Impreza zamknięta ogłoszona publicznie? Wpadaj! Everyone is invited! :-)
Też się wstępnie zapowiadam.
O tempora! O mores! Ludzie dopominają się f**ków w skrolach dla siebie. :-)
Lizard, paka w drodze :)
Mam nadzieję, że kurier nie zostawi jej obok paczkomatu zamiast w środku. Dzisiaj tak właśnie zagubioną przesyłkę znalazłem. Nie do mnie, ale strach jest. ;-)
Trochę nierozsądnie. Jeśli w jakimś wypadku stracisz głowę, to przepadną Ci te hasła. ;)
Wtedy jego zmartwieniem będzie, aby mu nie nakapało do środka.
Sikor powiązany ze światkiem przestępczym w Brazylii? Przecież to taki dobry chłopak jest. Sąsiadom "dzień dobry" mówi.
Draco, patrząc na adres przytoczonej strony, to ciekawe masz zainteresowania. :-p
Cieszę się, że zawiązuje się już grupa organizatorów. :-] Pin - z własnej woli, As - przez aklamację. :-D
Nie zgodzę się. As przyciąga łiskacza ta samo, jak łiskacz przyciąga Asa. :-)
As dodaje literki, Miker je połyka i chce się zgadywać zamiast zgadzać. Razem się dobrze uzupełniacie. :-)
atarowcy z demosceny to jesteśmy trochę jak sekta
Amigowcy mają swojego guru Meditation, a kto jest naszym? ;-)
Asie! Macgyver tak ładnie wziął Cię pod włos, że nie masz wyboru. Orneta stoi przed Tobą otworem. :-D
Pojszło z tytułem: "Akcja świecidełka, Lizard". Zapomniałeś podać maila, więc wysłałem na ten podany w poscie 26.
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,09A co?! Pochwalę się. :-) Nabyłem w celach badawczo-poznawczych.
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/
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ę.
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. ;-)
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! :-)
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!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, DELYZainstaluj 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.
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. :-)
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
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, DELYTu zaraz będzie kod. Proszę czekać.
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, LIZARDDorzucam 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, LIZARDProgram - 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- Piechotką idę na pocztę. To jest godzinka. Potem wolno nadają paczkę. Poczta, widzi pan, ma najdłuższe kolejki.
atari.area forum » Posty przez Lizard
[ Wygenerowano w 0.153 sekund, wykonano 16 zapytań ]