For starters, GETPIN is a subroutine, use GOSUB to call it, not GOTO.

Robert