home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
bus
/
todo.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
966b
|
24 lines
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