Short BASIC Program (198x)(-)(PD)