clear ? "Stock Control Program. Version 1.00 (C)1987 HCE" ? "Written by J.G.Harston. 28/7/87" ? "Last update: 31/7/87." ?? "Today is :", date() ?? " at", time() set console off set bell off !config bo 9 !config lo 0=9 !config lo 1=7 set console on set talk off Mkeyflg=1 @ 4,0 say "" do jgh-c1 clear ? "Stock Control Program finished. (C)HCE" ? "dBASE III Plus environment re-entered."