home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / sserch.100 < prev    next >
Text File  |  2006-10-19  |  2KB  |  32 lines
  1. 0 'SSERCH 1.01 - Andrew Moore
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 '
  4. 3 SCREEN0,0:OPEN"@ssdat"FORAPPENDAS1:CLOSE1:DIMD$(100):I1$=CHR$(27)+"p":I2$=CHR$(27)+"q":EL$=CHR$(27)+"K"
  5. 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";
  6. 5 I$=INPUT$(1):F=INSTR(1,"1234",I$):IFF=0THEN5
  7. 6 ONFGOTO7,16,24,29
  8. 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,"";
  9. 8 LINEINPUTS$:IFLEN(S$)>29THENPRINT@207,"Too long ":FORT=1TO500:NEXT:CLS:GOTO7
  10. 9 IFS$=""THEN4
  11. 10 FORG=1TOLEN(S$):P=ASC(MID$(S$,G,1)):IFP>96ANDP<123THENMID$(S$,G,1)=CHR$(P-32)
  12. 11 NEXT:OPEN"@ssdat"FORINPUTAS1:CLS:PRINT
  13. 12 IFEOF(1)THEN15
  14. 13 LINEINPUT#1,T$:IFINSTR(1,T$,S$)<>0THENPRINTT$
  15. 14 PRINT"(any key)";CHR$(13);:I$=INPUT$(1):PRINTEL$;:GOTO12
  16. 15 CLOSE1:PRINT:PRINT"Done -- Press any key: ";:K$=INKEY$:I$=INPUT$(1):GOTO4
  17. 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
  18. 17 IFEOF(1)THENCLOSE1:GOTO21
  19. 18 D=D+1:LINEINPUT#1,D$(D):PRINT@126,LEFT$(D$(D),30);SPACE$(29-LEN(D$(D))):PRINT@265,"Kill? _";CHR$(8);
  20. 19 K$=INKEY$:I$=INPUT$(1):IFI$="Y"ORI$="y"THEND$(D)=""ELSEIFI$="N"ORI$="n"THEN20ELSE19
  21. 20 GOTO17
  22. 21 PRINT@126,I1$;" reorganizing file ";I2$;"          ":LINE(36,32)-(149,32):KILL"@ssdat":OPEN"@ssdat"FOROUTPUTAS1:FORT=1TOD:IFD$(T)=""THEN23
  23. 22 PRINT#1,D$(T)
  24. 23 NEXT:CLOSE1:GOTO4
  25. 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$
  26. 25 CLS:PRINT@120,"":IFLEN(A$)>29THENPRINT"Too long.":FORT=1TO500:NEXT:CLS:GOTO24
  27. 26 IFA$=""THEN4
  28. 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)
  29. 28 NEXT:OPEN"@ssdat"FORAPPENDAS1:PRINT#1,A$:CLOSE1:GOTO4
  30. 29 '
  31. 30 MENU
  32.