Surely Erik, you've heard of BASIC?

Brecht - how do you expect us to understand this code? How are we expected to know how the port pins are connected? At best we can assume you're bashing some bits. I think I can spot a fundamental error - I'm assuming P2 is the data bus.

P2 = &H00
Gosub Statusscheck
Gosub Writedata

Now if we expand the gosubs, the code sequence might look like this:

P2 = &H00
;Statuscheck
P0 = &B00011001

P2 = &B00000011
;WriteData
P0 = &B00010010


As you can see, P2 gets corrupted in Status check, so it has no hope of working. Also, without knowing how you've connected the lcd to the port pins, I cannot understand how you bit-bash the bus cycle. In,short - re-read the datasheet on your devices CAREFULLY and rewrite your code so it works the way that is required. You might just find your display will magically start to work as you expect.