10 DEFFNS="DSearch"
   20 MODE7:HIMEM=PAGE+&800:W%=HIMEM:I%=&900
   30 VDU23;8202;0;0;0;
   40 REPEAT
   50 CLS
   60 PRINT" ��ADFS/DFS Search By C.J.Richardson."
   70 PRINT" ��ADFS/DFS Search By C.J.Richardson."
   80 PRINTTAB(9,6)"���1. Search ADFS  �"
   90 PRINTTAB(9)"���2. Search DFS   �"
  100 REPEAT
  110 A$=GET$
  120 UNTILINSTR("12",A$)
  130 CLS
  140 IFA$="1"PROCadfssearch
  150 IFA$="2"PROCdfssearch
  160 *FX21
  170 PRINT''"���Press A Key  �"
  180 REPEATUNTILGET
  190 UNTILFALSE
  200 END
  210 DEFPROCdfssearch
  220 *DISC
  230 N%=2:C%=-N%:K%=800
  240 VDU23;8202;0;0;0;:PRINT'"�DFS Search By C.J.Richardson."
  250 PRINT"�Enter Drive to search ";:*FX21
  260 REPEAT
  270 A$=GET$
  280 UNTILINSTR("0123",A$)
  290 PRINTA$
  300 OSCLI"DRIVE "+A$
  310 B%=VAL(A$)
  320 INPUT"�Enter Start Sector: "$&A50
  330 C%=(EVAL$&A50)-1
  340 INPUT"�Enter Search String ";$&A50
  350 PRINT
  360 T%=LEN$&A50
  370 REPEAT:C%=C%+1
  380 J%=C%:PROCa1:VDU11,130:PRINT~C%
  390 PROCsearch:UNTILC%=K%
  400 ENDPROC
  410 DEFPROCa1:?I%=B%:I%!1=W%:I%?5=3:I%?6=&53:I%?7=C% DIV 10:I%?8=C% MOD 10:I%?9=32+N%:A%=&7F:Y%=I%DIV256:X%=I%MOD256:CALL&FFF1:ENDPROC
  420 DEFPROCsearch
  430 FORS%=HIMEM+&100 TO HIMEM STEP-1
  440 ?(S%+T%)=13
  450 IF $S%=$&A50 VDU11:PRINT"�Found in Sector: &";~C%'
  460 NEXT
  470 ENDPROC
  480 DEFPROCadfssearch
  490 OSCLI"FADFS"
  500 N%=2:C%=-N%:K%=&A00
  510 PRINT'"�ADFS Search By C.J.Richardson."
  520 PRINT"�Enter Drive to search ";:*FX21
  530 REPEAT
  540 A$=GET$
  550 UNTILINSTR("0145",A$)
  560 PRINTA$
  570 OSCLI"MOUNT "+A$
  580 INPUT"�Enter Start Sector: "$&A50
  590 C%=(EVAL$&A50)-1
  600 INPUT"�Enter Search String ";$&A50
  610 PRINT
  620 T%=LEN$&A50
  630 REPEAT:C%=C%+1
  640 J%=C%:PROCa(8):VDU11,130:PRINT~C%
  650 PROCsearch:UNTILC%=K%
  660 ENDPROC
  670 DEFPROCa(H%):?I%=0:I%!1=W%:I%?5=H%:I%?6=J%DIV&10000:I%?7=(J%DIV&100)AND&FF:I%?8=J%AND&FF:I%?9=N%:I%!11=N%*256:A%=&72:Y%=I%DIV256:X%=I%MOD256:CALL&FFF1:ENDPROC