Przeglądarka plików GR7
Tryb graficzny 7 to prawdopodobnie jeden z pierwszych trybów graficznych od którego rozpoczyna się przygodę z grafiką na Atari. Jest to dosyć prosty i niezbyt wymagający tryb o rozdzielczości 160 x 80 punktów i czterech dowolnych kolorach (z kolorem tła włącznie). Pomimo niskiej rozdzielczości można znaleźć wiele ciekawych grafik w tym trybie bo ani liczba kolorów ani nawet niska rozdzielczość nie ogranicza kunsztu dobrego grafika.
Wszelkie uwagi i wykryte nieprawidłowości w działaniu proszę podsyłać w e-mail.
RUNEXT.CFG:
GR7,A:\DOS\VIEWGR7.COM
;GR7 Viewer, AtariFan, 220210
;email: atari@atari8.eu, http://atari8.eu
BYTE
B,
DMACTLS=$022F,
COLPF0S =$02C4,
COLPF1S =$02C5,
COLPF2S =$02C6,
COLBAKS=$02C8,
KBCODES=$02FC,
ICCMD =$0362
CARD
X, Y,
BUF =$000A,
EKR =$0058,
ICBUFA =$0364,
ICBUFL =$0368
CHAR ARRAY
F(15) , P=0
Proc GR7_VIEWER()
Graphics(7+16) ;ekran bez okna tekstowego
DMACTLS=0 ;wylacz ekran
;obrobka wiersza polecen
X=BUF+$3F DO X==+1 IF P(X)=$20 THEN EXIT FI OD
X==+1 Y=X DO Y==+1 IF P(Y)=$9B THEN EXIT FI OD
Y=Y-X F(0)=Y+2 MOVEBLOCK(F+3,X,Y) F(1)=$44 F(2)=$3A
;wczytaj plik
X=2 CLOSE(X) OPEN(X,F,4,0)
ICCMD=7 ICBUFA=EKR ICBUFL=3840
[$AD X $0A$0A$0A$0A$AA$20$56$E4]
COLBAKS=GETD(X)
COLPF0S=GETD(X)
COLPF1S=GETD(X)
COLPF2S=GETD(X)
CLOSE(X)
DMACTLS=34 ;wlacz ekran
KBCODES=255 WHILE KBCODES=255 DO OD KBCODES=255
GRAPHICS(0)
[$6C$0A$00] ;powrot do SDX
Biblioteka: