4 CLS:PRINT:PRINTI1$;" Select from 5 to 8 ";I2$:PRINT@132,"5) Find string":PRINT@172,"6) Delete string":PRINT@212,"7) Enter string":PRINT@252,"8) MENU"
5 I$=INPUT$(1):F=INSTR(1,"5678",I$):IFF=0THEN5
6 ONFGOTO7,16,24,29
7 PRINT@125,I1$;" Find _ enter partial string ";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$