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