0 'TODO.BA - AUTHOR UNKNOWN 1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLEAR2000:DEFINTA-Z:DIMT$(20):I=0:OPEN"NOTE.DO"FORINPUTAS1:CLS:PRINT"To Do List":PRINT:TD$=MID$(DATE$,1,5) 3 IFEOF(1)THEN8 4 LINEINPUT#1,IN$:GOSUB13:IFEP=1THENGOSUB8 5 IFMID$(IN$,1,1)="*"THENGOSUB11 6 IFI>20THENPRINT"List Full":GOTO8 7 GOTO3 8 CLOSE:GOSUB17:OPEN"today.do"FOROUTPUTAS2:IFI=0THEN10 9 FORJ=0TOI-1:PRINT#2,T$(J):NEXTJ:CLOSE:MENU 10 PRINT#2,"Nothing in list":CLOSE:MENU 11 PRINT"Item: "IN$:PRINT"Priority (a, b, or c)":LINEINPUTP$:IFP$=""THEN3 12 T$(I)=P$+":"+IN$:I=I+1:RETURN 13 EF=0:X$=MID$(IN$,1,5):IFS$>TD$THENRETURN 14 IFX$<"00/00"THENRETURN 15 X=VAL(X$)-VAL(TD$):IFX>0ANDX<10THENRETURN 16 EF=1:RETURN 17 PRINT"Sorting":CAP=I 18 IFCAP<=1THENPRINT"done":RETURN 19 CAP=INT(CAP/2) 20 FLG=0:FORJ=0TOI-1-CAP:IFT$(J)>T$(J+CAP)THENGOSUB22 21 NEXTJ:IFFLG=0THEN18ELSE20 22 TM$=T$(J):T$(J)=T$(J+CAP):T$(J+CAP)=TM$:FLG=1:RETURN