Old code in BASIC