Device = 18F1320
Clock = 4 // 4MHz clock
Config OSC = INTIO2, WDT = OFF, LVP = OFF
//includes go here
//Vars Go Here
Dim Digit As PORTA
TRISA = 0
OSCCON = $62 // select 4MHz internal clock
ADCON1 = $7f //all digital
//program start
While True
For Digit = 0 to 9
Select Digit
Case 0
Digit =%0000
Case 1
Digit = %0001
Case 2
Digit = %0010
Case 3
Digit = %0011
Case 4
Digit = %0100
Case 5
Digit = %0101
Case 6
Digit = %0110
Case 7
Digit = %0111
Case 8
Digit = %1000
Case 9
Digit = %1001
EndSelect
delayms (1000)
Next
Wend
End