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