File encoder decoder in quickbasic