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" 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.