I'd like to add that if your instructor has set you a project, then it's unfair to come on the forum and ask for a solution. Start by reading your PICBasic manual and your QBASIC manual. You'll have learnt nothing if we gave you all the answers. In the case of Depot1 (who's obviously on the same course), take a look at your comments and compare with your code - they don't even match... just a few examples...

DEFINE OSC 4 'for 20mhz pic ... really? So the number 4 means 20MHz?

Pause 50 'Delay for .5 seconds ... close but no cigar!

HSerin [B0] ... and you wonder why your PIC is hanging...

Open communications (2400 baud, no parity, 8-bit data,
' 1 stop bit,
OPEN "COM1:9600,N,8,1,CD0,CS0,DS0,OP0" FOR RANDOM AS #1

Well, is it supposed to be 2400 or 9600 ?

Did you write this or copy it from someone? If we help you graduate, how long would you last when you got a real job.

Read the Manuals... and compare the commands to what you've written (or copied). Please guys, no Private Messages, I'm not going to do your homework or sit your exams for you.