Search inside Integers

[LPG]

could you do it like this?

Code:

CLS

INPUT A$
S$ = "5"

1 IF INSTR(A$,S$) <> 0 THEN : TOT = TOT + 1 : A$ = RIGHT$(A$,LEN(A$)-INSTR(A$,S$)) : GOTO 1

PRINT "THERE ARE ";TOT;" `"; S$ ; "`'S"
SYSTEM

This works differently

What do you want it for?