C vs PBP

[skimask]

I think this translates over to PBP. I could be completely wrong.

'config statements to be fixed up
leddigit var byte[15]:value var byte:dig var byte[4]:i var byte:t var byte
x var byte:y var byte:z var byte:in var byte:s var byte:j var byte[4]
k var byte[4]:j[1]=1:j[3]=1:k[2]=1:k[3]=1:for i=0 to 15
lookup i,[1,59,18,6,72,36,32,15,0,12,8,96,49,66,48,56],leddigit[i]:next i
main: cmcon0=7:ansel=0:porta=12:trisa=12:portc=0:trisc=0
ADC:
if porta.3 = 0 then
     in = 0:for i=0 to 12:while porta.3=0:wend:s=porta.2:in=in|(s<<i)
     while porta.3=1:wend:next i:while porta.3=0:wend:value=in:z=0
     if value < 1000 then z=1:dig[0]=0:goto jump1
     dig[0] = value / 1000
JUMP1: dig[1]=value dig 3:dig[2]=value dig 2:dig[3]=value dig 1:dig[4]=value dig 0
endif
for y = 0 to 4
     if y = 0 and z = 1 then
          y=1:portc=leddigit[dig(y)]:porta.5=leddigit[dig(y)]>>6:porta.0=j[y]
          ra1=k[y]:porta.4 = y.1:for t = 0 to 327 : next t
     endif
next y:portc=$ff:porta.5=1:goto adc
END

Oh...and it's been colonized!