1 MAXFILES=2:DEFSTRA-F:F="COM:9N81XN":OPENFFOROUTPUTAS1:OPENFFORINPUTAS2:E=CHR$(5):C=CHR$(13):PRINT#1,E;"time";C;E;"date";C;:INPUT#2,A:A=STR$(VAL(A)+(RIGHT$(A,1)="p"AND12))+RIGHT$(A,7):A="0"+RIGHT$(A,LEN(A)-1):TIME$=MID$(A,LEN(A)-8,8)
2 INPUT#2,A:A="0"+RIGHT$(A,LEN(A)-1):L=LEN(A)-9:DATE$=RIGHT$(A,2)+"/"+MID$(A,L,2)+"/"+MID$(A,3+L,2)