0 ' DYSAVE by Jerry Tappa 1 ' Club 100 Library 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLS:PRINT"1 Run TMPC":PRINT"2 Update Diary":PRINT:INPUT"1/2";U:ON U GOTO 14,3 3 MAXFILES=2:PRINT:LINE INPUT"Insert DIARY wafer, hit ";FK$:PRINT:PRINT"Reading wafer":OPEN"A:DIARY.DOC"FORINPUTAS1:OPEN"TDIARY.DO"FOROUTPUTAS2 4 INPUT #1,A$:PRINT #2,A$:IFEOF(1)THEN6 5 GOTO4 6 CLOSE:PRINT:PRINT"Adding entries":OPEN"DIARY.DO" FORINPUTAS1:OPEN"TDIARY.DO"FORAPPENDAS2 7 INPUT #1,A$:PRINT #2,A$:IFEOF(1)THEN9 8 GOTO7 9 CLOSE:PRINT:PRINT"Updating wafer":OPEN"TDIARY.DO"FORINPUTAS1:OPEN"A:DIARY.DOC"FOROUTPUTAS2 10 INPUT #1,A$:IFEOF(1)THEN13 11 IFLEFT$(A$,3)="-#-"THEN10ELSEPRINT #2,A$ 12 GOTO10 13 CLOSE:PRINT:PRINT"Killing temp. files":KILL"DIARY.DO":KILL"TDIARY.DO":OPEN"DIARY.DO" FOR OUTPUT AS 1:PRINT #1,"-#-":CLOSE:MAXFILES=1 14 IFHIMEM<=53143THENFORI=1TO26:J=J+PEEK(53152+I):NEXTI:IFJ=3336THENCALL53153:IFPEEK(62735)=98ANDPEEK(62736)=113THENCALL53179 15 PRINT"Can't run TMPC":CALL23456