@stRing:

10 R=50
20 S=5
30 X=150
40 Y=100
50 N=90/S
60 DIM DX(N),DY(N)
70 DEG 
80 A=0
90 FOR I=0 TO N
100 DX(I)=R*COS(A)
110 DY(I)=R*SIN(A)
120 A=A+S
130 NEXT I
140 GRAPHICS 8
150 COLOR 1
160 FOR I=1 TO N
170 PLOT X+DX(I-1),Y+DY(I-1)
180 DRAWTO X+DX(I),Y+DY(I)
190 PLOT X-DX(I-1),Y+DY(I-1)
200 DRAWTO X-DX(I),Y+DY(I)
210 PLOT X+DX(I-1),Y-DY(I-1)
220 DRAWTO X+DX(I),Y-DY(I)
230 PLOT X-DX(I-1),Y-DY(I-1)
240 DRAWTO X-DX(I),Y-DY(I)
250 NEXT I

Edit: Jak to BartoszP napisał; poza tym:
1. Wyciągaj ile się da obliczeń poza pętlę.
2. Użyj plot+drawto.
3. Cos(a) to Sin(90+a) więc nie licz dwóch tablic.
4. Licz też sin nie dla ćwiartki a dla jednej ósmej.

Próbuj takiej sztuczki:

10 GRAPHICS 8:DL1=DPEEK(560):GP1=PEEK(623)
20 POKE 106,PEEK(106)-32: REM jest to mniej więcej rozmiar trybu GR.8 z dlistą
30 GRAPHICS 10:DL2=DPEEK(560):GP2=PEEK(623)
40 DO
50 DPOKE 560,DL1:POKE 623,GP1:GOSUB 100
50 DPOKE 560,DL2:POKE 623,GP2:GOSUB 100
60 LOOP
100 T=PEEK(20)
110 IF PEEK(20)=T THEN 110
120 RETURN

Być może da się zrobić ładniej jakieś PAUSE albo skorzystać z jakiejś zmiennej RTCLK$ (nie znam TBXL) zamiast wołać GOSUB 100.
Działa to tak, że tworzy GR8 w normalnej pamięci po czym, GR10 w obszarze przed nią. Przełączanie co ramkę (za pomocą zapisu do DLPTRS i GPRIORS) synchronizowane jest przez RTCLK (20). Ponieważ to rejestry cienie to najpierw zapis, potem synchronizacja - nie ma zerwania synchra bo to cienie.
Problemem jest tylko to, że instrukcji TBXL możesz używać na ostatnio otwartym GR. Żeby móc się w pełni przełączyć na poprzedni tryb trzeba by też przepisywać komórki używane przez S:. Ta procedura wystarczy do mrugania statycznymi obrazkami (RTCLK jest zmieniane na przerwaniu VBLK).

Edit: Literówki.

Bardzo dziękuję. Wydaje mi się, że ten opis wystarczy.
Mam jeszcze drobne pytanie precyzujące: Czy te sample są 8-bit czy 4-bit (jak ułożone w bajcie)?

Edit: O to mi chodziło. Jeszcze raz dziękuję.

Niestety nic jeszcze nie oglądałem :(

Atari800: http://atari800.sourceforge.net/
$ atari800 -basic program.bas

Z ciekawości: jak jest zapisany font 6x6, bo jeśli jest monochromatyczny i jest to bitmapa, to wychodzi mi (z długości podanej przez artik-wroc), że w żadnym bajcie nei ma nadmiarowych (pustych) bitów. 256 znaków * 6 pikseli * 6 pikseli / 8 bitów daje mi dokładnie rozmiar pliku w bajtach! Czy może źle liczę...
Mógłbym dostać też te pliki z fontem (artik-wroc - podesłałbyś mi wszystkie)?

@Pin: A dlaczego Crownland nie działa na real Atari?

Ja też poproszę.

Zdaje się, że tylko Automat Perkusyjny wydany przez Avalon miał oryginalnie samplowaną perkusję. Ten z Chaos Software był prekursorem automatu wydanego przez Avalon.
Za to Rythmizer miał perkusję graną POKEYem! Bardzo fajny program.

Digi drum?

O ciekawie. Ale chodzi mi o to, jak to będzie wyglądać kiedy boot będzie z nowego urządzenia bez tricków z remapowaniem właśnie.

Czyli nawet bez sprawdzania zawartości pierwszego sektora dysku można spokojnie założyć, że bootowano z urządzenia, którego numer jest w DUNIT tak, jak to opisywano parę postów wyżej w tym wątku.

Czyli to taki prompt, ale nie o to mi chodziło. Scenariusz jest taki:

Robię sobie program, który będzie ładowany automatycznie przez DOS podczas bootowania (np. jako AUTORUN.SYS). W momencie kiedy DOS przekaże mi sterowanie do tegoż programu chciałbym dowiedzieć się:
1. Z jakiego urządzenia CIO (nazwa i numer) zostałem załadowany i uruchomiony.
2. Z jakiej konkretnie ścieżki odpalony jest program AUTORUN.SYS.
Odpowiedź na 2 nie jest bardzo trudna jeśli jest to AUTORUN.SYS - ładowany z głównego katalogu na dysku. Ale diabeł tkwi w szczegółach :)
Co jeśli użytkownik zechce załadować ten program samemu z linii poleceń (mogę, jak to opisano wyżej, sprawdzić co ostatnio wpisywał w E:; ale co w przypadku kiedy  ładował program jakimś managerem...)?
A jeśli dany DOS nie ma AUTORUN.SYS'a tylko plik wsadowy, w którym mogę wpisać listę programów do uruchomienia?
Wydaje się, że problem sprowadza się więc do tego czy na jakiejś podstawie da się sprawdzić skąd nastąpiło załadowanie mojego programu, który właśnie (tuż po załadowaniu) dostał kontrolę.

Bardzo się cieszę - zaraz podeślę Ci jeszcze maila :)