Arkivpacker f|r ABC80X V 3.3 1992.10.04 ---------------------------- Filer: ARKPACK5.BAC Packar ihopp program till en file av typ (.ARK) ARKR[KN5.Z80 Assembler rutiner till ARK programen. UNARKIV1.BAC Packarupp filerna till valfri Enhet. ARKLIST1.ABS Listar inneh}llet i ett Arkiv, fr}n dos. Nu fungerar * funktionen {ven p} Ufd:. Skillnaden mellan Version 3 och 1 {r att i 3an kan man fors{tta att packa filer till ett redan existerande arkiv. Och s} kan man andv{nda jokertecket * enligt f|ljande. *.* Packar ner alla filer fr}n den angivna Enheten. A*.* Packar ner alla filer som b|rjar med ett A. *K.* Packar ner alla filer som slutar p} K. *.BAC Packar alla filer som har filetyp .BAC. *.A* Packar ner de filer vars filtyp b|rjar med A. OBS! alla bokst{ver i filenamnet m}ste var stora. Gl|m ej bort att alla .ARK filer {r bin{rfiler. Andv{nd g{rna deta program n{r du skickar upp filer till ABC monitor S} kan man Downloada allt som en Bin{rfil. De h{r program f}r kopieras fritt hur mycket som helst. Avsluta programet genom att angen ENhet och sedan bara trycka return n{r datorn fr}gar efter filer som ska packas. skillnaden mellan unarkiv v1.0 och v1.1 {r att 1.1 skriver ut hur stora filerna blir efter uppackning och sedan g}r den lite snabbare pga att jag anv{nt heltal i st{let f|r flyttal i n}gra FOR loopar. Och s} har jag byte ut ett RED som troligen inte fungerat p} ABC800M, mot CHR$ ist{llt. s} om texten "klar" efter uppackning kommer upp med gr|nt s} har allt g}tt bra, men om den kommer med r|tt s} betyder de att error 34 eller 38 har uppst}t under uppackning. Packning algoritmen i ARKPACKERN {r inte den b{st, s} man kan komplitera .ARK filerna med n}got annat packnings program som HFM.BAC. F|ruts{tningen f|r att ARK ska kunna packa n}got {r att det finns block med med flera lika bytes i f|ljd. S} bilder med stora enf{rgade f{lt blir ganska bra packade, en helt enf{rgad 131 blocks bild borde bli p} ca 2 block. Programet {r skrivt p} en ABC806 i LUX-NET och testat p} en ABC802 med UFD-dos. Magnus Nilsson <8042> TELE: 08/7426945