You could make a function to do the work for you, so your code is as easy to read as possible:
rem Read the next available line which is not a comment into these variables
name$ = ReadStr(1)
model$ = ReadStr(1)
print name$
print model$
sync
wait key
end
function ReadStr(file)
rem Go into infinite loop until we find a non commented line
do
read string file,temp$
if left$($temp,3) <> "rem" then exit
loop
endfunction temp$
Just a little example, don't know if it'll work. It should though.

Fishie says:
"Those who fail to prepare prepare to fail"
"Rule are for the guidance of the wise and the blind obdeniency of the fools"