4 CLS:PRINT:PRINTI1$;" Select from 1 to 4 ";I2$:LINE(0,7)-(120,48),1,B:PRINT@81,"1) Find a string":PRINT@121,"2) Delete a string":PRINT@161,"3) Enter a string":PRINT@201,"4) Return to MENU":PRINT@280,"SSERCH 1.01 Copyright 1985 Andrew Moore";
5 I$=INPUT$(1):F=INSTR(1,"1234",I$):IFF=0THEN5
6 ONFGOTO7,16,24,29
7 PRINT@125,I1$;" Enter partial string to find ";I2$:PRINT@165,EL$:PRINT@205,EL$:PRINT@245,EL$:LINE(30,23)-(234,54),1,B:LINE(30,32)-(234,32):PRINT@207,STRING$(29,95):PRINT@207,"";
8 LINEINPUTS$:IFLEN(S$)>29THENPRINT@207,"Too long ":FORT=1TO500:NEXT:CLS:GOTO7
24 PRINT@125,EL$:PRINT@165,EL$:PRINT@205,EL$:PRINT@245,EL$:LINE(30,24)-(230,53),1,B:PRINT@166,"Enter the string all on":PRINT@206,"one line, 29 characters maximum.":PRINT:PRINT@280,STRING$(29,95);EL$;CHR$(13);:LINEINPUTA$