Przeglądarka plików PIC
Kto pamięta słynny obrazek Faraona ? Przeglądarka plików PIC odczytuje pliki utworzone przez program KOALA Microillustrator i zapisane w formie skompresowanej. Procedura KPicLoad() pochodzi ze strony http://atariwiki.org
Strona atariki: http://atariki.krap.pl/index.php/PIC opisuje metody kompresji i popełniane często błędy procedur odczytu, które niepoprawnie lub wcale nie obsługują wszystkich metod kompresji. Przyznam, że nie analizowałem kodu KPicLoad() i nie wiem czy ta procedura obsługuje poprawnie wszystkie metody.
Wszelkie uwagi i wykryte nieprawidłowości proszę podesłać w e-mail.
RUNEXT.CFG:
PIC,A:\DOS\VIEWPIC.COM
;PIC Viewer, AtariFan, 220111
;KPICLOAD by http://atariwiki.org
CARD X,Y,BUF=10
CHAR ARRAY F(15),P=0
PROC KBGET =$F302()
PROC KPicLoad=*()[$A2$10$A9$07$9D$42$03$A0$01$84$D5$A9$00$9D$48$03$9D$49$03
$20$56$E4$A4$D5$C0$08$D0$02$85$D4$C0$0E$30$07$C0$13$10$03$99
$B6$02$C8$C0$1C$30$DB$10$08$50$2E$42$2E$20$27$38$36$A9$00$85
$DB$85$DC$A5$58$85$D7$85$D9$A5$59$85$D8$85$DA$A9$00$85$D6$9D
$48$03$9D$49$03$20$56$E4$10$01$60$A8$29$80$85$DE$98$29$7F$D0
$18$A9$00$9D$48$03$9D$49$03$20$56$E4$85$D6$A9$00$9D$48$03$9D
$49$03$20$56$E4$85$D5$A9$00$9D$48$03$9D$49$03$20$56$E4$85$DD
$A0$00$A5$DD$91$D7$38$A5$D5$E9$01$85$D5$A5$D6$E9$00$85$D6$90
$AA$A5$D4$C9$02$D0$0A$E6$D7$D0$49$E6$D8$D0$45$90$DB$E6$DC$18
$A5$D7$69$50$85$D7$90$02$E6$D8$A9$60$C5$DC$D0$30$A9$00$85$DC
$A5$DB$D0$13$A9$01$85$DB$18$A5$D9$69$28$85$D7$A5$DA$69$00$85
$D8$90$15$A9$00$85$DB$18$A5$D9$69$01$85$D7$85$D9$A5$DA$69$00
$85$D8$85$DA$A5$D5$D0$07$A5$D6$D0$03$18$90$A0$A5$DE$10$0D$A9
$00$9D$48$03$9D$49$03$20$56$E4$85$DD$18$90$9C]
proc KOALA()
Graphics(31)
; 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-XF(0)=Y+2 MOVEBLOCK(F+3,X,Y) F(1)=$44F(2)=$3A
; odczyt pliku KOALI
close(1) open(1,F,4,0) KPICLOAD() close(1)
; powrot do SDX
graphics(0) KBGET()
[$6C$0A$00]
Biblioteka: