BASIC-256 5CYCLE PROGRAM