19 lines
738 B
Plaintext
19 lines
738 B
Plaintext
daysow$ = "Sunday Monday Tuesday Wednesday Thursday Friday Saturday"
|
|
months$ = "January February March April May June " + \
|
|
\ "July August September October November December"
|
|
|
|
date$ = TIME$
|
|
dayow% = (INSTR(daysow$, MID$(date$,1,3)) + 9) DIV 10
|
|
month% = (INSTR(months$, MID$(date$,8,3)) + 9) DIV 10
|
|
|
|
PRINT MID$(date$,12,4) "-" RIGHT$("0"+STR$month%,2) + "-" + MID$(date$,5,2)
|
|
|
|
PRINT FNrtrim(MID$(daysow$, dayow%*10-9, 10)) ", " ;
|
|
PRINT FNrtrim(MID$(months$, month%*10-9, 10)) " " ;
|
|
PRINT MID$(date$,5,2) ", " MID$(date$,12,4)
|
|
END
|
|
|
|
DEF FNrtrim(A$)
|
|
WHILE RIGHT$(A$) = " " A$ = LEFT$(A$) : ENDWHILE
|
|
= A$
|