) 
)
)
Lbl ICONDISPLAY
sum(0)
If [Med]PROGRAM,"N/A")
If TYPE=0 and ICONT=1
sum(2,PROGRAM,"r",5)->SLOT
sum(10,6,0,SLOT)
0->TILE
ICONX->XINIT
For(ICONLOOP,1,256,1)
TILE+1->TILE
sum(6,SLOT)->ICONCHAR
*{COLORS+ICONCHAR-48-7*(ICONCHAR>58)}->ICONCOLOR
det(2,ICONCOLOR)
det(36,ICONX,ICONY,XSCALE,YSCALE
If TILE=16
ICONY+YSCALE->ICONY
XINIT-XSCALE->ICONX
0->TILE
End
ICONX+XSCALE->ICONX
End
sum(3,SLOT)
End
If TYPE=1 and ICONT=1
sum(2,PROGRAM,"r",6)->S
sum(18,S)->P
sum(3,S)
[Sigmay]ICON+2,P+10,256)
det(62,ICON,ICONX,ICONY,XSCALE,YSCALE)
End
End
Return , I think I also found a good way:iFolders
Alloc(258)→ICON // allocates ram for the icon sprite
...
Lbl GET ICON
CloseAll()
OpenVar(„NAME“,“r“,TYPE)
0→A
For(B,0,9) // searches in the 10 first bytes for 16,16
If GetChar(1)=16:If GetChar(1)=16
9→A→B
End:End
End
If A=9:16→*{ICON}→*{ICON+1} // saves the icon if one is found
Read(ICON+2,256,1,1)
Else
0→*{ICON} // stores 0 otherwise
End
Return
...
Advertisement
