'code by Shaun Wilson July 2/99 'This code recieves a (1)on or (0)off state send from 'your PC using Visual Basic 5 and controls the state of 'pin 0 datain var byte 'contains a 0 or a 1 pin con 16 'stamps dedicated serial input pin baud con $4054 '9600 baud again: serin pin,baud, [datain] if datain = "1" then on if datain = "0" then off goto again on: high 0 'make pin 0 high goto again off: low 0 'make pin 0 low goto again