Przeglądarka plików GR9
Poniżej kod kolejnej przeglądarki plików. VIEWGR9 wyświetla 16 odcieniowe pliki trybu Graphics 9. 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
RUNEXT.CFG:
GR9,A:\DOS\VIEWGR9.COM
;GR9 VIEWER, ATARIFAN, 210405
BYTE
DMACTLS=$022F,
COLBAKS=$02C8,
KBCODES=$02FC,
ICCMD =$0362
CARD X,Y,BUF=10,EKR=88,
ICBUFA =$0364,
ICBUFL =$0368
CHAR ARRAY F(15),P=0
PROC GR9_VIEWER()
GRAPHICS(9)
DMACTLS=0 ;WYLACZ EKRAN
COLBAKS=$0 ;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)
ICCMD=7 ICBUFA=EKR ICBUFL=7680
[$AD X $0A$0A$0A$0A$AA$20$56$E4]
CLOSE(X)
DMACTLS=34 ;WLACZ EKRAN
KBCODES=255
WHILE KBCODES=255 DO OD
KBCODES=255
GRAPHICS(0) ;PRZYWROC EKRAN
[$6C$0A$00] ;POWROT DO SDX
Biblioteka: