no i coście narobili??
teraz mi źródeł nie przyśle...

#braksmaku #oczywiste

Przepraszam, że trochę pojadę offtopem, ale co do Pascala, to pamiętam, że Smaku napisał kiedyś emulator 6502 w TurboPascalu 5.5. Ciekawe czy skompilowałoby się pod MadPascalem i uruchomiło na Atari.
To byłoby coś: emulator 6502 na 6502.
Smaku, masz źródła?

Z pewnością cała seria "Phantasie" zasługuje na uwagę.
W tamtych czasach była to bardzo rozbudowana pozycja.
Grałem na Atari 8bit w jedynkę i dwójkę - nie wiem czy późniejsze części wyszły na "malucha".

https://en.wikipedia.org/wiki/Phantasie

Na w/w stronie jest napisane, że masz jeszcze 5 minut...

a czy uczestnicy też mogą głosować? i jaka w takiej sytuacji powinni głosować na własną prace? w regulaminie, nie ma o tym ani słowa.

O której się rozpoczyna i gdzie?

1. lemiel - 1 szt.
2. piomet - 1 szt. - czerwona
3. pancio.net - 2 szt.
4. 5eba - 2 szt.
5. sikor - 1 sztuka, czerwona (a co ;P), bez wybielania
6. Renton - 1 sztuka, najlepiej kolor czerwony
7. dragmar - 1 szt.
8. ZuluGula - 1 szt.
9. Voy - 1 szt. - też czerwona
10. Mq - 2 szt. - czerwona
11. Eagle - 2 szt.
12. x_angel - 1 szt. kolor dowolny
13. Cyprian - 2 sztuki - jedna czerwona, druga inna (dowolnie czarna, zielona, niebieska)
14. dez3 - 1szt.
15. Pablozp - 1szt.
16. Mgor - 1szt.
17. Pin - 1 szt, kolor czarny lub obojętny.
18. mpolak - 2 szt. czerwone
19. Adam Klobukowski - 1szt.
20. dely - 1 szt., dowolny kolor
21. Montezuma - 4 szt., dowolny kolor
22. rj1307 - 1szt - dowolny kolor
23. thePink - 1szt, kolor dowolny.
24. Sniegowy - 1szt, kolor dowolny
25. pajero - 2szt,  kolor dowolny (byle ścieżki były widoczne)
26. Zlew - 1szt., kolor bez różnicy
27. bocianu - 1 szt. kolor dowolny

Dziękuje za szybką odpowiedź.
Wolałem się upewnić.
Czekam na przelew na znalezienie luki :)

1. mono 5szt
2. pancio.net 3szt
3. Sikor 1szt
4. Eagle 2szt
5. Mq 2szt
6. dragmar 1szt.
7. lopez 1szt.
8. nosty 4 szt.
9. PROTON 1 szt.
10. pajero 1szt
11. bocianu 3 szt.

Siema Sikor. Zamiast się smucić może wyjdziesz ze swojej strefy komfortu i spróbujesz Mad-Pascala? :D
Na zachętę przepisałem Twój program z poprzedniej edycji z Basica do Mad-Pascala:

ORYGINAŁ

0 GRAPHICS 31:COLOR 5:X=40:Y=100:PLOT X,Y
1 A=INT(RND(0)*2):B=INT(RND(0)*2):C=INT(RND(0)*16)
2 IF A=0 THEN A=-1
3 IF B=0 THEN B=-1
4 X=X+A:Y=Y+B:IF X>79 THEN X=79
5 IF X<0 THEN X=0:IF Y<0 THEN Y=0
6 IF Y>191 THEN Y=191
7 COLOR C:PLOT X,Y:COLOR 15-C:PLOT 79-X,191-Y
8 COLOR C:PLOT X,191-Y:COLOR 15-C:PLOT 79-X,Y
9 COLOR C:PLOT 80+X,Y:COLOR 15-C:PLOT 159-X,191-Y
10 COLOR C:PLOT 80+X,191-Y:COLOR 15-C:PLOT 159-X,Y
15 IF PEEK(53279)<>6 THEN 1

KOPIA

program nice;
uses graph;
var x,y,c,a,b:SmallInt;

begin
    InitGraph(31);
    SetColor(5);
    x:=40;
    y:=100;
    PutPixel(x,y);

    repeat
        a:=Random(2);
        b:=Random(2);
        c:=Random(16);
        if a=0 then a:=-1;
        if b=0 then b:=-1;
        x:=x+a;
        y:=y+b;

        if x>79 then x:=79;
        if x<0 then x:=0;
        if y<0 then y:=0;
        if y>191 then y:=191;
        
        SetColor(c);
        PutPixel(x,y);
        PutPixel(x,191-y);
        PutPixel(80+x,y);
        PutPixel(80+x,191-y);

        SetColor(15-c);
        PutPixel(79-x,191-y);
        PutPixel(79-x,y);
        PutPixel(159-x,191-y);
        PutPixel(159-x,y);
    until Peek(53279)=6;
end.

Kod wynikowy z Mad-Pascala ma 1585 bajtów, czyli nawet nie 25% konkursowego limitu i działa kilkukrotnie szybciej. A sam zobacz, że wcale się tak bardzo nie różni :)

Mój kolega kiedyś powiedział:
"Każdy dzień w którym nie uczymy się niczego nowego jest tylko starzeniem się".

Chętnie pomogę jak będziesz miał jakiekolwiek pytania.