0 'Date/Time.ba or DT.BA for short by Harvey Chrisley 3 May 92 [72446,3465]
0 'Opens the file you tell it, appends the current date and time from the
0 'system clock and jumps to text with the cursor set to the end of the
0 'file ready for you to start typing. Created to make keeping a daily
0 'journal easier. Will only run on a Tandy 200 because of the M/L routine
0 'stored in C$. I'll be happy to give the source to anyone who wants to
0 'convert it for a Model 100/102.
0 'These comments will self-delete when you convert this to a BA file.
0 '
1 CLS:INPUT"File to edit";A$
2 C$="åÍh‚*"+CHR$(21)+"öëáåÍLD"+CHR$(34)+"ÒïÃ"+CHR$(34)+"s":VP=VARPTR(C$):CD=PEEK(VP+1)+256*PEEK(VP+2)
3 OPENA$FORAPPENDAS1:PRINT#1,:PRINT#1,DATE$;"   ";TIME$;:PRINT#1,:VP=VARPTR(#1):CLOSE:DI=PEEK(VP+2)+256*PEEK(VP+3):AD=PEEK(DI)+256*PEEK(DI+1):CALL CD,,AD