7-segment display with P16F84

[Jerson]

i	Var	Byte
n	Var	Byte
Value	Var	Word


	TRISB = $80		' Set segment pins to output
	TRISA = $f0		' Set digit pins to output

mainloop:
	For Value = 0 To 9999
		GoSub display	' Display the value
	Next Value
	
	GoTo mainloop		' Do it forever

You need to modify this patch to something like this

i	Var	Byte
n	Var	Byte
Value	Var	Word
timedelay      var        word

	TRISB = $80		' Set segment pins to output
	TRISA = $f0		' Set digit pins to output

mainloop:
	For Value = 0 To 9999
                for timedelay = 0 to 2000
		GoSub display	' Display the value
                next
	Next Value
	
	GoTo mainloop		' Do it forever

The value you choose for the timedelay will help you persist a value for as long as you choose.

Jerson