;GR9 Viewer, AtariFan, 200902
;Kurs Action!, atarionline.pl
CARD X,Y,BUF=10,EKR=88
CHAR ARRAY F(15),P=0
Proc GR9_VIEWER()
GRAPHICS(9)
P(559)=0 ;wylacz ekran
P(709)=$0F P(710)=$04 ;ustaw kolory
;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)
P($362)=7 POKEC($364,EKR) POKEC($368,7680)
[$AD X $0A$0A$0A$0A$AA$20$56$E4]
CLOSE(X)
P(559)=34 ;wlacz ekran
P(764)=255 WHILE P(764)=255 DO OD
GRAPHICS(0) ;przywroc ekran
P(764)=255
[$6C$0A$00] ;powrot do SDX