// this is invoked as a command (ie, date$ = "6/7/2010")
// search through the line looking for the equals sign and step over it,
// evaluate the rest of the command, split it up and save in the system counters
void cmd_date(void) {
char *arg;
int d, m, y;
while(*cmdline && tokenfunction(*cmdline) != op_equal) cmdline++;
if(!*cmdline) error("Invalid syntax");
++cmdline;
arg = getstring(cmdline);
{
getargs(&arg, 5, "-/"); // this is a macro and must be the first executable stmt in a block
if(argc != 5) error("Invalid syntax");
d = atoi(argv[0]);
m = atoi(argv[2]);
y = atoi(argv[4]);
if(d < 1 || d > 31 || m < 1 || m > 12 || y < 0 || (y > 99 && y < 1000)) error("Invalid date");
if (y < 100) y += 2000;
day = d;
month = m;
year = y;
}
}