Przeglądarka plików programu Paint256
Poniżej kod kolejnej przeglądarki plików. Viewer256 służy do podglądu plików z programu Paint256.
Jak w poprzednich przeglądarkach można (i zachęcam) w pliku RUNEXT.CFG dodać skojarzenie typu pliku z przeglądarką. W podanym niżej przykładzie przeglądarka została umieszczona w folderze A:\DOS. Pewnym problem może być to, że twórca programu zastosował (miejmy nadzieję że to błąd nie zamierzony) dla plików graficznych rozszerzenie PIC, które jest już wykorzystywane przez program Koala Micro Illustrator. Rozsądnym będzie zastanowić się nad przypisaniem jakiegoś innego rozszerzenia dla tego typu plików lub (co bardziej eleganckie) rozpoznać dane w pliku i wyświetlić. Być może tak właśnie będzie pracować kolejna przeglądarka, którą mam w planach czyli viewer plików Koali.
RUNEXT.CFG:
256,A:\DOS\VIEW256.COM
;Viewer Paint256, Atari Fan, 200905
CARD X,Y,T,BUF=10,EKR=88
CHAR ARRAY F(15),P=0
BYTE ARRAY BIN=[$48$A5$CB$49$80$85$CB$8D$0A$D4$8D$1B$D0$68$40]
Proc View256()
Moveblock(1536,BIN,15)
Graphics(9) P(559)=12
X=EKR Y=X-1024
POKEC(560,Y) POKEC(Y,28784)
P(Y+2)=240 P(203)=65
FOR T=Y+3 TO Y+573 STEP 3
DO P(T)=207 OD
P(Y+576)=79 P(Y+579)=65
POKEC(Y+580,Y) POKEC(512,1536)
FOR T=Y+4 TO Y+574 STEP 6
DO
POKEC(T,X) POKEC(T+3,X+3840)
X==+40
OD
P(54286)=192 P(203)=64
;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)=46
P(764)=255 WHILE P(764)=255 DO OD P(764)=255
Graphics(0)
[$6C$0A$00] ;powrot do SDX