ftp.whtech.com/ftp.whtech.com.tar/ftp.whtech.com/club100/bus/search.ba

Text File | 2006-10-19 | 2KB | 22 lines

0 ' SEARCH.BA -TMPC search utility          E. Giese / Acroatix, Inc.
1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 PRINT"<ENTER> for search string ends program.":PRINT:PRINT"Carat (^) as first character of search":PRINT" string makes search case-independent.":PRINT:CLEAR1000:MAXFILES=1:DEFSTRA-G:DEFINTI-N:ONERRORGOTO18:FF="TASK.DO"
3 L=1:OPENFF FORINPUTAS1:A=INPUT$(7,1):FORI=1TO3
4 GOSUB5:IFA0<>" "THEN4ELSENEXTI:GOTO9
5 A1=INPUT$(L,1):A0=RIGHT$(A1,1):IFA0=" "THENRETURNELSEA=INPUT$(1,1):J=ASC(A)-32:A=INPUT$(J,1):RETURN
6 GOSUB5:IFJF=0THENK=INSTR(A,F):RETURN
7 B="":FORJ=1TOLEN(A):C=MID$(A,J,1):IFC=>"a"ANDC<="z"THENC=CHR$(223ANDASC(C))
8 B=B+C:NEXTJ:K=INSTR(B,F):RETURN
9 L=6:A="":LINEINPUT"Search String:  ";A:IFA=""THENMENUELSEIFLEFT$(A,1)="^"THENJF=1:A=RIGHT$(A,LEN(A)-1):GOSUB7:F=B ELSEJF=0:F=A
10 GOSUB6:IFA0=" "THEN12ELSEIFK=0THEN10
11 PRINTRIGHT$(STR$(68+ASC(MID$(A1,4,1))),2);"/";RIGHT$(STR$(68+ASC(MID$(A1,3,1))),2);"/";RIGHT$(STR$(48+ASC(MID$(A1,5,1))),2);" ";A:GOTO10
12 GOSUB6:IFA0=" "THEN16ELSEIFK=0THEN12
13 RESTORE:N=6:N1=3:GOSUB14:N=6:N1=4:GOSUB14:N=1:N1=5:GOSUB14:PRINT":"; A:GOTO12
14 N2=ASC(MID$(A1,N1))-32:FORI=1TON:READD(I):NEXT:FORI=1TON:IF(2^(I-1)ANDN2)THENPRINTD(I);" ";
15 NEXTI:RETURN
16 L=11:GOSUB6:IFA0=" "THEN:CLOSE:GOTO3ELSEIFK=0THEN16
17 RESTORE:FORI=1TO13:READD(1):NEXT:N=6:FORN1=3TO10:GOSUB14:NEXT:PRINT":";A:GOTO16
18 IFERR=52THENPRINTFF;" not found.":INPUT"Task file name";FF:RESUMEELSEPRINT"Line";ERL:ERRORERR
19 DATA 1,2,3,4,5,L,Sun,Mon,Tue,Wed,Thu,Fri,Sat,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,L,,,,,Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec:'This BASIC program searches a TMPC task file for
20 'appointments containing a user specified text string.  32 'Checksum 113,919.  Written by E. Giese / Acroatix Inc.