dX;SAVE#D:SNOW.PT3nX;xX;-----------------X; screen data fileX; & uncompacterX; for snowplowX;X; by: Barry KolbeX;X;-----------------X;X;X;X;set up pointers &X;end of memoryX; UNCOMQ> PBFLQ>"PBFL,Q>4MAPDATA6PTL@Q>5MAPDATAJ PTLTQ>^PEDMhQ>r PEDM|X;X;test for unique orX;repeated dataX;%>UC1'UNIQUE 'COUNT GETAB;;in A,U?UUNIQUE;;bit 7 testV?PCOUNT;;lsbHCKU;;if 0 long count GETAB;;msb PCOUNT GETAB&PCOUNT;;lsb of long cnt0CKUQUNIQUE:FUC2DUC3 GETAB;;unique dataN P@BFL7X NXBFLb "COUNTlHUC3v QCOUNTFUC1 "COUNT!UC3X;X;repeated dataX;UC2 GETAB PDATA UC4QDATA P@BFL7 NXBFL "COUNTHUC4 QCOUNT FUC1;;next "COUNT !UC4*X;4X;increment dest. ptr &>X;check for end of screenH X;memoryRX;\NXBFL#BFLfHNINp #BFLzNINQBFL REDMHNRTQBFLREDMHNRT7;;done so get out7NRT:X;GETABQ@TL7;;get 1 byte#TL;;&inc. ptr ofHGTZ;;source #TLGTZ:X; X;the actual screen compacted$X;.MAPDATA ===`==l8 n==`==l=tB ===r=n=L `==== =`V =l=n==`=` l=t====j =====t =====~ ===== === == b=d==== ===== ===b=d= ==b=d== = ==== ===== ===== b=d==== ====b=d =====r n= =`==l=t =====  ==b=d== ===== =====b( d=====2 ==b=h= =`< =l=t===F =====P =====Z =====bd d====r=nn =`==l=t=x ==b=d== ===b=d= == ===b d===== ===== b=d====b d===== ===b=d=  ==b=d== ====`= l=t==== = === =b d====b=d ===b=d= ==b=d== ===b=d= =====" =x=p= =`=, j=v====b6 h==`==f=d@ =====J =====T =====^ x=p= =`==lh n==`==j=vr ===b=d=| ==r=n==` =l=t=== b=d====b d===== b=d==== ===== ===== ===== ===== =====b d====b=d ===== ===== ===== ==== = ==b=d== =====& b=d====b0 d= ====: =b=d===D b=d====bN d=====X x=p==`==b ==`==l=tl ===b=d=v ==b=d== =r=n==`= l=t====r n==`==l=t ===r=n= `==l=t== =b=d=== ==b=d== =x=p==`= ==b=d== =b=d=== b=d=== = ===== =====b d====b=d  = ====b d====b=d  ==b=d==* =b=d===b4 d====b=d> =====bH d====b=dR ===b=d= \ ==b=d==f =b=d===p b=d====rz n==`==l=t =====b d===== b=d====x p==`==j=v ===x=p= `==j=v== =x=p==`= j=v====x p==`==l=n =`==j=v= ==x=p= =` =j=v=== b=d====b  d====b=d  =====  =====$  =====.  ====b=d8  ===r=n=B  `==j=v==L  =b=d===V   =====`  =====j  b=d= ===t  b=d====b~  d====x=p   =`=== =  =====  =b=d===  b=d====b  d====r=n  =`==l=t=  ==r=n==`  =j=p==`=  ===`==f  d====b=d  =====  =====  ===b=d=  ==b=d==  =b=d===  =====(  =b=d===2  =====<  =====F  =b=d===P  b=d====Z  ====b=dd  ===b=d=n  ==r=n==`x  =l=t===  r=n==`==l  t====b=d  ===x=p=  `==l=t==  =b=d===  =====  =b=d===  =====  ====b=d  = ====b  h= =`==l=t  === ==  =====  =====  ===b=d=  ==b=d=="  =b=d===,  b=d====6  =b=d===@  b=d====bJ  d====b=dT  ===b=d=^  ==b=d==h  === ==r  b=d====b|  d=====  ===b=d=  ==b=d==  === ==  b=d====b  d====b=d  =====  ==x=p==`  =j=v===  ====b=d  =====  =b=d===  ===b=d=  ==b=d==  =x=p==`=  l=n==`==j  v====b=d&  =====0  ==x=p==`:  =j=v===D  =====bN  d===b=d=X  ==b=d==b  === ==l  =====bv  d=====  ===x=p=  `==j=p==`  =f=d===  =====  =====  ===b=d=  =====  =====  b=h==`==l  t= ====  === =b=d  ===b=d=  ==b=d==  =r=n==`=  =====  =b=d= ==  == ===b*  d=====4   ===b=d=>  =====H  =b=d===R  ==b=d==\  == ==`=f  j=v====bp  d====b=dz  =====  b=d= ===b  d= ====  ===b=d=  =====  =====  b=d====  ====b=d  =====  =====  ===b=d=  =====  ===x=p=  `==j=p= =` ====`= j=p==`==j v=====$ =====. =`==j=p=&8 `==j=v