1

Temat: Prima Aprilis compo 2018

Szczegóły w wątku z zeszłego roku, deadline proponuję wyjątkowo jutro o 23:59 - skoro są święta...
No dobra, zaczynam (przypominam: całość powinna działać w Atari Basicu):

1 REM PRIMA-APRILIS 2018 EDITION
2 REM AUTORZY: SIKOR,
10 GR.0:POKE710,0:?"PRIMA-APRILIS 2018 COMPO":FOR I=0 TO 10000:N.I
15 GR.24:POKE710,0:POKE709,15:COLOR 1
20 PLOT 1,1:DRAWTO319,1:DRAWTO319,191:DRAWTO1,191:DRAWTO1,1

Na początek tytuł i ramka w gr. 8. Czekam na inspirację i może jakiś muzak...??

Sikor umarł...

2

Odp: Prima Aprilis compo 2018

to jeszcze zeby byl walor edukacyjny do linii 10 dodac:

10 GR.0:POK.703,4:POK.85,0:POK.87,12:POK.710,0:?#6;"PRIMA-APRILIS 2018":F.I=1000 TO 0 STEP -1:? I:N.I

Ostatnio edytowany przez xxl (2018-04-01 19:33:32)

http://atari.pl/hsc/ad.php?i=1.

3

Odp: Prima Aprilis compo 2018

xxl,
Nie kompiluje się to Twoje...

PunBB bbcode test

Ostatnio edytowany przez mgr_inz_rafal (2018-04-01 18:48:18)

Post's attachments

poke.png 11.22 kb, nikt jeszcze nie pobierał tego pliku. 

Tylko zalogowani mogą pobierać załączniki.

4

Odp: Prima Aprilis compo 2018

poprawione :-) ... no i teraz zlicza do zera, widac ile trzeba poczekac :-)

Ostatnio edytowany przez xxl (2018-04-01 19:34:44)

http://atari.pl/hsc/ad.php?i=1.

5

Odp: Prima Aprilis compo 2018

Dorzucam zgrzewkę jajek - 6 sztuk.

1 REM PRIMA-APRILIS 2018 EDITION
2 REM AUTORZY: SIKOR, MGR INZ. RAFAL
10 GRAPHICS 0:POKE 710,0:? "PRIMA-APRILIS 2018 COMPO":FOR I=0 TO 10000:NEXT I
15 GRAPHICS 24:POKE 710,0:POKE 709,15:COLOR 1
20 PLOT 1,1:DRAWTO 319,1:DRAWTO 319,191:DRAWTO 1,191:DRAWTO 1,1
30 DEG
40 FOR I=1 TO 1+1+1+1+1+1
45 OFFX=RND(0)*260+15
50 OFFY=RND(0)*130+30
60 FOR J=0 TO 360 STEP 2
70 X=15*COS(J)+OFFX
80 Y=30*SIN(J)+OFFY
90 PLOT X,Y
100 NEXT J
110 NEXT I
32767 GOTO 32767

Ostatnio edytowany przez mgr_inz_rafal (2018-04-01 20:02:54)

6

Odp: Prima Aprilis compo 2018

Dobra, dodałem nieco "życia" - jajka rodzą się w dźwiękach wink Nieco skróciłem też pauzę na początku:

1 REM PRIMA-APRILIS 2018 EDITION
2 REM AUTORZY: SIKOR, MGR INZ. RAFAL
10 GRAPHICS 0:POKE 710,0:? "PRIMA-APRILIS 2018 COMPO":FOR I=0 TO 5000:NEXT I
15 GRAPHICS 24:POKE 710,0:POKE 709,15:COLOR 1
20 PLOT 1,1:DRAWTO 319,1:DRAWTO 319,191:DRAWTO 1,191:DRAWTO 1,1
30 DEG 
40 FOR I=1 TO 1+1+1+1+1+1
45 OFFX=RND(0)*260+15
50 OFFY=RND(0)*130+30
60 FOR J=0 TO 360 STEP 2
70 X=15*COS(J)+OFFX
80 Y=30*SIN(J)+OFFY
85 SOUND 0,X,10,10:SOUND 2,Y,8,8:SOUND 1,X*Y,6,2:SOUND 3,X*Y,4,2
90 PLOT X,Y
100 NEXT J
110 NEXT I
120 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:SOUND 3,0,0,0
32767 GOTO 32767

Dla wahających się jeszcze listing do edycji w załączniku.

Post's attachments

pa2018.lst 594 b, liczba pobrań: 1 (od 2018-04-01) 

Tylko zalogowani mogą pobierać załączniki.
Sikor umarł...

7

Odp: Prima Aprilis compo 2018

Zaczyna to przypominać Boulder Dasha!

8

Odp: Prima Aprilis compo 2018

wink Deadline jutro, to można się jeszcze wykazać ;P

Sikor umarł...

9

Odp: Prima Aprilis compo 2018

Lekka zmiana:

1 REM PRIMA-APRILIS 2018 EDITION
2 REM AUTORZY: SIKOR, MGR INZ. RAFAL
9 DIM A$(40)
10 GRAPHICS 0:POKE 710,0:? "PRIMA-APRILIS 2018 COMPO":POKE 752,2
11 RESTORE INT(RND(0)*32)+1000:READ A$
12 ? A$:FOR I=0 TO 4000:NEXT I
15 GRAPHICS 24:POKE 710,0:POKE 709,15:COLOR 1
20 PLOT 1,1:DRAWTO 319,1:DRAWTO 319,191:DRAWTO 1,191:DRAWTO 1,1
30 DEG 
40 FOR I=1 TO 1+1+1+1+1+1
45 OFFX=RND(0)*260+15
50 OFFY=RND(0)*130+30
60 FOR J=0 TO 360 STEP 2
70 X=15*COS(J)+OFFX
80 Y=30*SIN(J)+OFFY
85 SOUND 0,X,10,10:SOUND 2,Y,8,8:SOUND 1,X*Y,6,2:SOUND 3,X*Y,4,2
90 PLOT X,Y
100 NEXT J
110 NEXT I
120 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:SOUND 3,0,0,0
300 GOTO 10
1000 DATA Tata ma Atari!
1001 DATA Atari na zawsze!
1002 DATA sRatari ma Pinokio!
1003 DATA Long live Atari!
1004 DATA Ryba mgr inz. Rafala pila!
1005 DATA Wiencej wegla!
1006 DATA Piotrus pomaga Sikorowi pisac!
1007 DATA A Miker pisze muze...!
1008 DATA Pol giga-mega!
1009 DATA Dely, nie jedz starej mortadeli!
1010 DATA Atari 1010 to dobry magnetofon!
1011 DATA Yerzmyey/hooy - a Pin/Tristesse!
1012 DATA Sikor nie robi Sikorowki!
1013 DATA Mam Atari i sie chwale!
1014 DATA Atari Basic rulez :)
1015 DATA Mono jest stereo!
1016 DATA Vasko oddaj tabasco!
1017 DATA Fox the 0xF!
1018 DATA MAD TeBe!
1019 DATA Oddajcie gluche lazy!
1020 DATA POKEY z nami!
1021 DATA Antic gra na GTIA!
1022 DATA DRAC030 nie uzywa 030!
1023 DATA Larek-latarek!
1024 DATA Nosty nie jedz na mosty!
1025 DATA Biedny pies Antoni 4!
1026 DATA Laura w Tajemniczym Zamku!
1027 DATA 6502C zna niemiecki - HALT!
1028 DATA Kroll z nami!
1029 DATA Mazi nie pije!
1030 DATA Rysiu polewaj!
1031 DATA Bocianu zgubil PAC-MANa!
32767 GOTO 32767

I listing w załączeniu.

Post's attachments

pa2018.lst 1.67 kb, liczba pobrań: 2 (od 2018-04-02) 

Tylko zalogowani mogą pobierać załączniki.
Sikor umarł...

10

Odp: Prima Aprilis compo 2018

1 REM PRIMA-APRILIS 2018 EDITION
2 REM AUTORZY: SIKOR, MGR INZ. RAFAL, BLUKI
9 DIM A$(40)
10 GRAPHICS 0:POKE 710,0:? "PRIMA-APRILIS 2018 COMPO":POKE 752,2
11 RESTORE INT(RND(0)*32)+1000:READ A$
12 ? A$:FOR I=0 TO 4000:NEXT I
15 GRAPHICS 24:POKE 710,0:POKE 709,15:COLOR 1
20 PLOT 1,1:DRAWTO 319,1:DRAWTO 319,191:DRAWTO 1,191:DRAWTO 1,1
30 DEG 
40 FOR I=1 TO 1+1+1+1+1+1
45 OFFX=RND(0)*260+15
50 OFFY=RND(0)*130+30
60 FOR J=0 TO 360 STEP 2
70 X=15*COS(J)+OFFX
80 Y=30*SIN(J)+OFFY
85 SOUND 0,X,10,10:SOUND 2,Y,8,8:SOUND 1,X*Y,6,2:SOUND 3,X*Y,4,2
90 PLOT X,Y
100 NEXT J
110 NEXT I
120 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:SOUND 3,0,0,0
200 GRAPHICS 18:SETCOLOR 0,0,10
210 POKE 541,3
220 FOR I=0 TO 3
221 RT=INT(RND(0)*6):IF RT>0 THEN RT=10
222 GOSUB 250+RT+I
223 NEXT I
225 ON PEEK(541)>0 GOTO 220
230 GOTO 300
250 POSITION 0,0:? #6;"         ":RETURN 
251 POSITION 10,1:? #6;"         ":RETURN 
252 POSITION 2,4:? #6;"     ":RETURN 
253 POSITION 8,5:? #6;"         ":RETURN 
260 POSITION 0,0:? #6;"CIEMNOSC!":RETURN 
261 POSITION 10,1:? #6;"CIEMNOSC!":RETURN 
262 POSITION 2,4:? #6;"WIDZE":RETURN 
263 POSITION 8,5:? #6;"CIEMNOSC!":RETURN 
300 GOTO 10
1000 DATA TATA MA ATARI!
1001 DATA ATARI NA ZAWSZE!
1002 DATA SRATARI MA PINOKIO!
1003 DATA LONG LIVE ATARI!
1004 DATA RYBA MGR INZ. RAFALA PILA!
1005 DATA WIENCEJ WEGLA!
1006 DATA PIOTRUS POMAGA SIKOROWI PISAC!
1007 DATA A MIKER PISZE MUZE...!
1008 DATA POL GIGA-MEGA!
1009 DATA DELY, NIE JEDZ STAREJ MORTADELI!
1010 DATA ATARI 1010 TO DOBRY MAGNETOFON!
1011 DATA YERZMYEY/HOOY - A PIN/TRISTESSE!
1012 DATA SIKOR NIE ROBI SIKOROWKI!
1013 DATA MAM ATARI I SIE CHWALE!
1014 DATA ATARI BASIC RULEZ :)
1015 DATA MONO JEST STEREO!
1016 DATA VASKO ODDAJ TABASCO!
1017 DATA FOX THE 0XF!
1018 DATA MAD TEBE!
1019 DATA ODDAJCIE GLUCHE LAZY!
1020 DATA POKEY Z NAMI!
1021 DATA ANTIC GRA NA GTIA!
1022 DATA DRAC030 NIE UZYWA 030!
1023 DATA LAREK-LATAREK!
1024 DATA NOSTY NIE JEDZ NA MOSTY!
1025 DATA BIEDNY PIES ANTONI 4!
1026 DATA LAURA W TAJEMNICZYM ZAMKU!
1027 DATA 6502C ZNA NIEMIECKI - HALT!
1028 DATA KROLL Z NAMI!
1029 DATA MAZI NIE PIJE!
1030 DATA RYSIU POLEWAJ!
1031 DATA BOCIANU ZGUBIL PAC-MANA!
32767 GOTO 32767
Post's attachments

PA2018.LST 2.12 kb, liczba pobrań: 1 (od 2018-04-02) 

Tylko zalogowani mogą pobierać załączniki.

11

Odp: Prima Aprilis compo 2018

@Bluki, niezłę! Ale za ciche było wink Drobniutka zmiana wink

1 REM PRIMA-APRILIS 2018 EDITION
2 REM AUTORZY: SIKOR, MGR INZ. RAFAL, BLUKI
9 DIM A$(40)
10 GRAPHICS 0:POKE 710,0:? "PRIMA-APRILIS 2018 COMPO":POKE 752,2
11 RESTORE INT(RND(0)*32)+1000:READ A$
12 ? A$:FOR I=0 TO 4000:NEXT I
15 GRAPHICS 24:POKE 710,0:POKE 709,15:COLOR 1
20 PLOT 1,1:DRAWTO 319,1:DRAWTO 319,191:DRAWTO 1,191:DRAWTO 1,1
30 DEG 
40 FOR I=1 TO 1+1+1+1+1+1
45 OFFX=RND(0)*260+15
50 OFFY=RND(0)*130+30
60 FOR J=0 TO 360 STEP 2
70 X=15*COS(J)+OFFX
80 Y=30*SIN(J)+OFFY
85 SOUND 0,X,10,10:SOUND 2,Y,8,8:SOUND 1,X*Y,6,2:SOUND 3,X*Y,4,2
90 PLOT X,Y
100 NEXT J
110 NEXT I
120 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:SOUND 3,0,0,0
200 GRAPHICS 18:SETCOLOR 0,0,10
210 POKE 541,3
220 FOR I=0 TO 3
221 RT=INT(RND(0)*6):SOUND 0,RT,RT*10,10:IF RT>0 THEN RT=10
222 GOSUB 250+RT+I
223 SOUND 0,0,0,0:NEXT I
225 ON PEEK(541)>0 GOTO 220
230 GOTO 300
250 POSITION 0,0:? #6;"         ":RETURN 
251 POSITION 10,1:? #6;"         ":RETURN 
252 POSITION 2,4:? #6;"     ":RETURN 
253 POSITION 8,5:? #6;"         ":RETURN 
260 POSITION 0,0:? #6;"CIEMNOSC!":RETURN 
261 POSITION 10,1:? #6;"CIEMNOSC!":RETURN 
262 POSITION 2,4:? #6;"WIDZE":RETURN 
263 POSITION 8,5:? #6;"CIEMNOSC!":RETURN 
300 GOTO 10
1000 DATA TATA MA ATARI!
1001 DATA ATARI NA ZAWSZE!
1002 DATA SRATARI MA PINOKIO!
1003 DATA LONG LIVE ATARI!
1004 DATA RYBA MGR INZ. RAFALA PILA!
1005 DATA WIENCEJ WEGLA!
1006 DATA PIOTRUS POMAGA SIKOROWI PISAC!
1007 DATA A MIKER PISZE MUZE...!
1008 DATA POL GIGA-MEGA!
1009 DATA DELY, NIE JEDZ STAREJ MORTADELI!
1010 DATA ATARI 1010 TO DOBRY MAGNETOFON!
1011 DATA YERZMYEY/HOOY - A PIN/TRISTESSE!
1012 DATA SIKOR NIE ROBI SIKOROWKI!
1013 DATA MAM ATARI I SIE CHWALE!
1014 DATA ATARI BASIC RULEZ :)
1015 DATA MONO JEST STEREO!
1016 DATA VASKO ODDAJ TABASCO!
1017 DATA FOX THE 0XF!
1018 DATA MAD TEBE!
1019 DATA ODDAJCIE GLUCHE LAZY!
1020 DATA POKEY Z NAMI!
1021 DATA ANTIC GRA NA GTIA!
1022 DATA DRAC030 NIE UZYWA 030!
1023 DATA LAREK-LATAREK!
1024 DATA NOSTY NIE JEDZ NA MOSTY!
1025 DATA BIEDNY PIES ANTONI 4!
1026 DATA LAURA W TAJEMNICZYM ZAMKU!
1027 DATA 6502C ZNA NIEMIECKI - HALT!
1028 DATA KROLL Z NAMI!
1029 DATA MAZI NIE PIJE!
1030 DATA RYSIU POLEWAJ!
1031 DATA BOCIANU ZGUBIL PAC-MANA!
32767 GOTO 32767
Post's attachments

pa2018.lst 2.22 kb, liczba pobrań: 4 (od 2018-04-02) 

Tylko zalogowani mogą pobierać załączniki.
Sikor umarł...

12

Odp: Prima Aprilis compo 2018

Mgr inż. Rafałowi i Blukiemu dziękuję za wspólną zabawę, mam nadzieję, że nie ostatni raz wink Reszta może sobie obejrzeć, na dniach przygotuję atr-a z pliczkiem, o ile ktoś mnie nie uprzedzi wink
btw: wyszło w sumie nienajgorzej, choć jajka to ciężki (długi) kawałek chleba bez kompilacji ;P

Sikor umarł...

13

Odp: Prima Aprilis compo 2018

Po multidyskietkę zapraszam tu: http://www.atari.org.pl/forum/viewtopic.php?id=15266

Sikor umarł...