0 'SSERCH 1.01 - Andrew Moore 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 ' 3 SCREEN0,0:OPEN"@ssdat"FORAPPENDAS1:CLOSE1:DIMD$(100):I1$=CHR$(27)+"p":I2$=CHR$(27)+"q":EL$=CHR$(27)+"K" 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 9 IFS$=""THEN4 10 FORG=1TOLEN(S$):P=ASC(MID$(S$,G,1)):IFP>96ANDP<123THENMID$(S$,G,1)=CHR$(P-32) 11 NEXT:OPEN"@ssdat"FORINPUTAS1:CLS:PRINT 12 IFEOF(1)THEN15 13 LINEINPUT#1,T$:IFINSTR(1,T$,S$)<>0THENPRINTT$ 14 PRINT"(any key)";CHR$(13);:I$=INPUT$(1):PRINTEL$;:GOTO12 15 CLOSE1:PRINT:PRINT"Done -- Press any key: ";:K$=INKEY$:I$=INPUT$(1):GOTO4 16 PRINT@85,STRING$(30,32):PRINT@125,STRING$(30,32):PRINT@165,STRING$(30,32):D=0:PSET(120,16):LINE(30,17)-(210,40),1,B:OPEN"@ssdat"FORINPUTAS1 17 IFEOF(1)THENCLOSE1:GOTO21 18 D=D+1:LINEINPUT#1,D$(D):PRINT@126,LEFT$(D$(D),30);SPACE$(29-LEN(D$(D))):PRINT@265,"Kill? _";CHR$(8); 19 K$=INKEY$:I$=INPUT$(1):IFI$="Y"ORI$="y"THEND$(D)=""ELSEIFI$="N"ORI$="n"THEN20ELSE19 20 GOTO17 21 PRINT@126,I1$;" reorganizing file ";I2$;" ":LINE(36,32)-(149,32):KILL"@ssdat":OPEN"@ssdat"FOROUTPUTAS1:FORT=1TOD:IFD$(T)=""THEN23 22 PRINT#1,D$(T) 23 NEXT:CLOSE1:GOTO4 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$ 25 CLS:PRINT@120,"":IFLEN(A$)>29THENPRINT"Too long.":FORT=1TO500:NEXT:CLS:GOTO24 26 IFA$=""THEN4 27 FORY=1TOLEN(A$):IFASC(MID$(A$,Y,1))>96ANDASC(MID$(A$,Y,1))<123THENMID$(A$,Y,1)=CHR$(ASC(MID$(A$,Y,1))-32) 28 NEXT:OPEN"@ssdat"FORAPPENDAS1:PRINT#1,A$:CLOSE1:GOTO4 29 ' 30 MENU