Binary.

Binary Asylum once in as t

10 REM a* contain* 10 data it
30 LET n-lOl IWUT "ENTER NAME
TO FIND-,t«t(SOSUS lOOOlf 1-0 T
HEN PRINT t*|" NOT IN FILE-«GOTO
30
40 P«1NT t»| " IS NUH»Eft "Jil
GOTO 30
1000 LET (l-ni LET 1-1i LET o-n*
is IF af(n>-t* THEN LET i -m RETUR
N
1001 LET t«INT(<1«h>/2)<IF o-l
THEN LET 1-01 RETURN
1003 LET o-liIF »*<i>-t* THEN ft
rruiw)
1003 IF 4«(»><t* THEN LET 1-liS
OT O 1001
1004 LET h-1iGQTO 1001