10DEFFNS="DSearch" 20MODE7:HIMEM=PAGE+&800:W%=HIMEM:I%=& 900 30VDU23;8202;0;0;0; 40REPEAT 50CLS 60PRINT"     70PRINT"     80PRINTTAB(9,6)" 1. Search ADFS " 90PRINTTAB(9)" 2. Search DFS " 100REPEAT 110A$=GET$ 120UNTILINSTR("12",A$) 130CLS 140IFA$="1"PROCadfssearch 150IFA$="2"PROCdfssearch 160*FX21 170PRINT''" Press A Key " 180REPEATUNTILGET 190UNTILFALSE 200END 210DEFPROCdfssearch 220*DISC 230N%=2:C%=-N%:K%=800 240VDU23;8202;0;0;0;:PRINT'" DFS Searc h By C.J.Richardson." 250PRINT" Enter Drive to search ";:*FX 21 260REPEAT 270A$=GET$ 280UNTILINSTR("0123",A$) 290PRINTA$ 300OSCLI"DRIVE "+A$ 310B%=VAL(A$) 320INPUT" Enter Start Sector: "$&A50 330C%=(EVAL$&A50)-1 340INPUT" Enter Search String ";$&A50 350PRINT 360T%=LEN$&A50 370REPEAT:C%=C%+1 380J%=C%:PROCa1:VDU11,130:PRINT÷C% 390PROCsearch:UNTILC%=K% 400ENDPROC 410DEFPROCa1:?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:CA LL&FFF1:ENDPROC 420DEFPROCsearch 430FORS%=HIMEM+&100 TO HIMEM STEP-1 440?(S%+T%)=13 450IF $S%=$&A50 VDU11:PRINT" Found in Sector: &";÷C%' 460NEXT 470ENDPROC 480DEFPROCadfssearch 490OSCLI"FADFS" 500N%=2:C%=-N%:K%=&A00 510PRINT'" ADFS Search By C.J.Richards on." 520PRINT" Enter Drive to search ";:*FX 21 530REPEAT 540A$=GET$ 550UNTILINSTR("0145",A$) 560PRINTA$ 570OSCLI"MOUNT "+A$ 580INPUT" Enter Start Sector: "$&A50 590C%=(EVAL$&A50)-1 600INPUT" Enter Search String ";$&A50 610PRINT 620T%=LEN$&A50 630REPEAT:C%=C%+1 640J%=C%:PROCa(8):VDU11,130:PRINT÷C% 650PROCsearch:UNTILC%=K% 660ENDPROC 670DEFPROCa(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%=&7 2:Y%=I%DIV256:X%=I%MOD256:CALL&FFF1:ENDP ROC