\START92\
\COMMENT=Converts an input line to a binary number
\NAME=parseln
\FILE=day4.parseln.92f
(s)
Func
Local l,i,c,result
0\->\result
dim(s)\->\l
For i,1,l
 mid(s,l-i+1,1)\->\c
 result*2\->\result
 If c="@" Then
  1+result\->\result
 EndIf
EndFor
result
EndFunc

\STOP92\