>>> Continued from previous message
usedate$ = MakeDate(Month,Day, Year)
goto monthswitchpoint
end if
 if ch$ = gohome$ then
 usedate$ = date$
 goto monthswitchpoint
 end if
 if ch$ = pagedown$ then
decr year ,10
if year < 1900 then year = 1900
usedate$ = MakeDate(Month,Day, Year)
goto monthswitchpoint
end if
 if ch$ = pageup$ then
incr year, 10
if year > 2078 then year = 2078
usedate$ = MakeDate(Month,Day, Year)
goto monthswitchpoint
end if
loop
---
 * SLMR 2.1a * 
--- InterEcho 1.19
---------------