|
DIM CAT$(9999) CAT$() = "*" CAT$(14) = "*EX 035 CW Clipping 4mS" CAT$(15) = "*EX 035 CW Clipping 6mS" CAT$(35) = "*MD Mode USB" all$ = SUM(CAT$()) REPEAT INPUT "Enter two-letter code: "code$ I% = INSTR(all$, "*"+code$) IF I% THEN J% = INSTR(all$, "*", I%+1) PRINT "Free text is " MID$(all$, I%+4, J%-I%-4) ELSE PRINT "Not found" ENDIF UNTIL FALSE
|