home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / dysave.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  17 lines
  1. 0 ' DYSAVE by Jerry Tappa
  2. 1 ' Club 100 Library 415/939-1246 BBS,      937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:PRINT"1 Run TMPC":PRINT"2 Update Diary":PRINT:INPUT"1/2";U:ON U GOTO 14,3
  4. 3 MAXFILES=2:PRINT:LINE INPUT"Insert DIARY wafer, hit <ENTER>";FK$:PRINT:PRINT"Reading wafer":OPEN"A:DIARY.DOC"FORINPUTAS1:OPEN"TDIARY.DO"FOROUTPUTAS2
  5. 4 INPUT #1,A$:PRINT #2,A$:IFEOF(1)THEN6
  6. 5 GOTO4
  7. 6 CLOSE:PRINT:PRINT"Adding entries":OPEN"DIARY.DO" FORINPUTAS1:OPEN"TDIARY.DO"FORAPPENDAS2
  8. 7 INPUT #1,A$:PRINT #2,A$:IFEOF(1)THEN9
  9. 8 GOTO7
  10. 9 CLOSE:PRINT:PRINT"Updating wafer":OPEN"TDIARY.DO"FORINPUTAS1:OPEN"A:DIARY.DOC"FOROUTPUTAS2
  11. 10 INPUT #1,A$:IFEOF(1)THEN13
  12. 11 IFLEFT$(A$,3)="-#-"THEN10ELSEPRINT #2,A$
  13. 12 GOTO10
  14. 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
  15. 14 IFHIMEM<=53143THENFORI=1TO26:J=J+PEEK(53152+I):NEXTI:IFJ=3336THENCALL53153:IFPEEK(62735)=98ANDPEEK(62736)=113THENCALL53179
  16. 15 PRINT"Can't run TMPC":CALL23456
  17.