Session end : 11h59m39s | Hide picture Sexe : OFF | ![]() | ![]() | ![]() | ![]() | Donations 2024 : 679.48 € |
90 CLS #1 :FOR A=S TO 65535 STEP 200 :M=INT(A/256) :POKE @F$+1,A-M*256 :POKE @F$+2,M :F=INSTR(F$,S$) :IF F<>0 THEN GOSUB 110
110 PRINT #1," "HEX$(A+F-1)"H";A+F-1 :RETURN
20 CLS :F$=SPACE$(250) :S$="" :PRINT "S>tring or B>yte search ?"